From 6fc9368d5c5e5a99bba07de2a6637680c318152a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 28 Feb 2018 18:49:58 -0700 Subject: [PATCH] revert a keyword-argument expansion that confuses TR A change in keyword-argument expansion was intended to avoid copy-propagation wrok in later passes. That saving does not appear to be worthwhile, so revert it. Reverting the change exposed weakness in the expander flattener and an unsoundness in its simplification pass. That unsoundness has to do with the assumption that variables are defined before use. The unsound assumption is likely to be fine for code that is flattened --- all the more considering that flattened code is routinely run in unsafe mode --- but it's a departure from the intended safety of the simplifier. Improving the analysis to so that it's sound and good enough will require sometimes inferring when a structure-type property guard (for `prop:evt`, at least) will succeed. --- racket/collects/racket/private/kw.rkt | 13 - racket/src/expander/eval/module.rkt | 2 +- racket/src/expander/extract/simplify-defn.rkt | 34 +- racket/src/racket/src/startup.inc | 43646 ++++++++-------- 4 files changed, 22060 insertions(+), 21635 deletions(-) diff --git a/racket/collects/racket/private/kw.rkt b/racket/collects/racket/private/kw.rkt index cadd361fd3..0dccefa827 100644 --- a/racket/collects/racket/private/kw.rkt +++ b/racket/collects/racket/private/kw.rkt @@ -1054,19 +1054,6 @@ arg-accum (cons (cons (car l) (car ids)) kw-pairs))] - [(and (identifier? (car l)) - (null? bind-accum)) - ;; Don't generate an alias for an identifier if we haven't - ;; needed to bind anything earlier, since we'll keep the - ;; arguments in order in that case. This optimization is especially - ;; useful for the rator position of a direct keyword call, - ;; since we avoid generating an alias (that might take a while - ;; to optimize away] to the generic implementation. - (loop (cdr l) - (cdr ids) - null - (cons (car l) arg-accum) - kw-pairs)] [else (loop (cdr l) (cdr ids) (cons (list (car ids) (car l)) bind-accum) diff --git a/racket/src/expander/eval/module.rkt b/racket/src/expander/eval/module.rkt index 27b5d8a8da..60ae8e2c75 100644 --- a/racket/src/expander/eval/module.rkt +++ b/racket/src/expander/eval/module.rkt @@ -279,7 +279,7 @@ [(eq? get-encoded-root-expand-ctx 'empty) ;; A `#:empty-namespace` declaration requested a namespace with no initial bindings (namespace-set-root-expand-ctx! ns (delay (shift-to-inside-root-context - (make-root-expand-context self))))] + (make-root-expand-context #:self-mpi self))))] [(procedure? get-encoded-root-expand-ctx) ;; Root expand context has been preserved; deserialize it on demand (namespace-set-root-expand-ctx! ns (delay (shift-to-inside-root-context diff --git a/racket/src/expander/extract/simplify-defn.rkt b/racket/src/expander/extract/simplify-defn.rkt index 3397c72f09..f9a7f7e379 100644 --- a/racket/src/expander/extract/simplify-defn.rkt +++ b/racket/src/expander/extract/simplify-defn.rkt @@ -28,7 +28,9 @@ (define cl* (map (lambda (c) (mutated-vars (cadr c))) cl)) (define binds (apply seteq (apply append (map car cl)))) (set-union (apply union-all (map mutated-vars cl*)) (set-remove (mutated-vars e) binds))] - [`(letrec-values ,cl ,e) + [`(letrec-values ,cl ,e) + ;; UNSOUND --- assume that variables are defined before use + ;; (i.e., no visible implicit assignment) (define cl* (map (lambda (c) (mutated-vars (cadr c))) cl)) (define binds (apply seteq (apply append (map car cl)))) (set-remove (set-union (mutated-vars e) (apply union-all (map mutated-vars cl*))) binds)] @@ -87,11 +89,15 @@ (lambda (c) (define vars (car c)) (define rhs (simp (cadr c))) - (cond [(and (for/and ([v (in-list vars)]) (not (set-member? body-frees v))) - (not (any-side-effects? rhs (length vars) #:known-defns seen-defns - #:ready-variable? safe-ref?))) - #f] - [else (list vars rhs)])) + (cond + [(and (for/and ([v (in-list vars)]) (not (set-member? body-frees v))) + (or + (not (any-side-effects? rhs (length vars) #:known-defns seen-defns + #:ready-variable? safe-ref?)) + ;; UNSOUND --- assume that variables are defined before use + (symbol? rhs))) + #f] + [else (list vars rhs)])) cl)) `(let-values ,cl* ,simp-body)] [`(letrec-values ,cl ,e) @@ -105,6 +111,7 @@ (list (car c) (simp (cadr c)))))] [`(variable-reference-constant? (#%variable-reference ,x)) + ;; UNSOUND --- assume that variables are defined before use (not (hash-ref vars x #f))] [`(,sym ,e ...) #:when (memq sym '(begin begin0 with-continuation-mark set!)) @@ -128,9 +135,10 @@ (define seen-defns (make-hasheq)) (register-known-primitives! seen-defns) - (define (safe-defn? e) - (and (defn? e) - (not (any-side-effects? (defn-rhs e) (length (defn-syms e)) #:known-defns seen-defns)))) + (define (safe-defn-or-expr? e) + (if (defn? e) + (not (any-side-effects? (defn-rhs e) (length (defn-syms e)) #:known-defns seen-defns)) + (not (any-side-effects? e #f #:known-defns seen-defns)))) (define (safe-ref? s) (hash-ref seen-defns s #f)) @@ -139,9 +147,11 @@ (cond [(null? body) null] [(defn? (car body)) (for* ([d (in-list body)] - #:break (not (safe-defn? d)) - [s (in-list (defn-syms d))]) - (hash-set! seen-defns s (known-defined))) + #:break (and (defn? d) + (hash-ref seen-defns (car (defn-syms d)) #f)) + #:break (not (safe-defn-or-expr? d)) + #:when (defn? d)) + (add-defn-known! seen-defns (defn-syms d) (defn-rhs d))) (define e (car body)) (define new-defn (list 'define-values (defn-syms e) (simplify-expr (defn-rhs e) all-mutated-vars safe-ref? seen-defns))) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 925c815003..b5dae70606 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -602,115 +602,10 @@ static const char *startup_source = "(let-values()(thunk_1)))" " (raise-argument-error 'call-with-default-reading-parameterization \"(procedure-arity-includes/c 0)\" thunk_1)))))" "(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)))))" -"(define-values" -"(struct:keyword-procedure mk-kw-proc keyword-procedure? keyword-procedure-ref keyword-procedure-set!)" -"(make-struct-type" -" 'keyword-procedure" -" #f" -" 4" -" 0" -" #f" -"(list(cons prop:checked-procedure #t)(cons prop:impersonator-of keyword-procedure-impersonator-of))" -"(current-inspector)" -" #f" -" '(0 1 2 3)))" -"(define-values(keyword-procedure-checker)(make-struct-field-accessor keyword-procedure-ref 0))" -"(define-values(keyword-procedure-proc)(make-struct-field-accessor keyword-procedure-ref 1))" -"(define-values(keyword-procedure-required)(make-struct-field-accessor keyword-procedure-ref 2))" -"(define-values(keyword-procedure-allowed)(make-struct-field-accessor keyword-procedure-ref 3))" -"(define-values" -"(struct:keyword-method make-km keyword-method? km-ref km-set!)" -"(make-struct-type 'procedure struct:keyword-procedure 0 0 #f(list(cons prop:method-arity-error #t))))" -"(define-values" -"(generate-arity-string)" -"(lambda(proc_0)" -"(begin" -"(let-values(((req_0 allowed_0)(procedure-keywords proc_0))" -"((a_1)(procedure-arity proc_0))" -"((keywords-desc_0)" -"(lambda(opt_0 req_1)" -"(begin" -" 'keywords-desc" -"(format" -" \"~a with keyword~a~a\"" -" (if (null? (cdr req_1)) (format \"an ~aargument\" opt_0) (format \"~aarguments\" opt_0))" -" (if (null? (cdr req_1)) \"\" \"s\")" -"(let-values(((tmp_0)(length req_1)))" -"(if(equal? tmp_0 1)" -" (let-values () (format \" ~a\" (car req_1)))" -"(if(equal? tmp_0 2)" -" (let-values () (format \" ~a and ~a\" (car req_1) (cadr req_1)))" -"(let-values()" -"((letrec-values(((loop_8)" -"(lambda(req_2)" -"(begin" -" 'loop" -"(if(null?(cdr req_2))" -" (format \" and ~a\" (car req_2))" -" (format \" ~a,~a\" (car req_2) (loop_8 (cdr req_2))))))))" -" loop_8)" -" req_1)))))))))" -"((method-adjust_0)" -"(lambda(a_2)" -"(begin" -" 'method-adjust" -"(if(let-values(((or-part_14)(okm? proc_0)))" -"(if or-part_14 or-part_14(keyword-method? proc_0)))" -"(if(zero? a_2) 0(sub1 a_2))" -" a_2)))))" -"(string-append" -"(if(number? a_1)" -" (let-values () (let-values (((a_3) (method-adjust_0 a_1))) (format \"~a\" a_3)))" -"(if(arity-at-least? a_1)" -"(let-values()" -" (let-values (((a_4) (method-adjust_0 (arity-at-least-value a_1)))) (format \"at least ~a\" a_4)))" -" (let-values () \"a different number\")))" -" (if (null? req_0) \"\" (format \" plus ~a\" (keywords-desc_0 \"\" req_0)))" -"(if allowed_0" -"(let-values(((others_0)" -"((letrec-values(((loop_9)" -"(lambda(req_3 allowed_1)" -"(begin" -" 'loop" -"(if(null? req_3)" -"(let-values() allowed_1)" -"(if(eq?(car req_3)(car allowed_1))" -"(let-values()(loop_9(cdr req_3)(cdr allowed_1)))" -"(let-values()" -"(cons(car allowed_1)(loop_9 req_3(cdr allowed_1))))))))))" -" loop_9)" -" req_0" -" allowed_0)))" -" (if (null? others_0) \"\" (format \" plus ~a\" (keywords-desc_0 \"optional \" others_0))))" -" \" plus arbitrary keyword arguments\"))))))" -"(define-values" -"(struct:okp make-optional-keyword-procedure okp? okp-ref okp-set!)" -"(make-struct-type" -" 'procedure" -" struct:keyword-procedure" -" 1" -" 0" -" #f" -"(list(cons prop:arity-string generate-arity-string))" -"(current-inspector)" -" 0))" -"(define-values" -"(struct:okm make-optional-keyword-method okm? okm-ref okm-set!)" -"(make-struct-type 'procedure struct:okp 0 0 #f(list(cons prop:method-arity-error #t))))" -"(define-values" -"(prop:named-keyword-procedure named-keyword-procedure? keyword-procedure-name+fail)" -"(make-struct-type-property 'named-keyword-procedure))" -"(define-values" "(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_8 info-l_0)(if(exact-integer? v_8)(make-struct-field-accessor(list-ref info-l_0 3) v_8) #f))))" "(define-values" "(new-prop:procedure new-procedure? new-procedure-ref)" "(make-struct-type-property" @@ -719,227 +614,34 @@ static const char *startup_source = "(list(cons prop:procedure values)(cons prop:procedure-accessor values))" " #t))" "(define-values" -"(struct:keyword-procedure/arity-error make-kp/ae kp/ae? kp/ae-ref kp/ae-set!)" -"(make-struct-type" -" 'procedure" -" struct:keyword-procedure" -" 0" -" 0" -" #f" -"(list(cons prop:arity-string generate-arity-string)(cons prop:incomplete-arity #t))))" -"(define-values" -"(procedure-keywords)" -"(lambda(p_2)" -"(begin" -"(if(keyword-procedure? p_2)" -"(let-values()(values(keyword-procedure-required p_2)(keyword-procedure-allowed p_2)))" -"(if(procedure? p_2)" -"(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_5)(procedure-accessor-ref p_2)))" -"(if a_5(procedure-keywords(a_5 p_2))(values null null)))))" -"(values null null)))" -" (let-values () (raise-argument-error 'procedure-keywords \"procedure?\" p_2)))))))" -"(define-values" -"(missing-kw)" -"(lambda(proc_1 . args_0)(begin(apply(keyword-procedure-extract/method null 0 proc_1 0) null null args_0))))" -"(define-values" -"(check-kw-args)" -"(lambda(p_3 kws_0)" -"(begin" -"((letrec-values(((loop_10)" -"(lambda(kws_1 required_0 allowed_2)" -"(begin" -" 'loop" -"(if(null? kws_1)" -"(let-values()(if(null? required_0)(values #f #f)(values(car required_0) #f)))" -"(if(if(pair? required_0)(eq?(car required_0)(car kws_1)) #f)" -"(let-values()(loop_10(cdr kws_1)(cdr required_0)(if allowed_2(cdr allowed_2) #f)))" -"(if(not allowed_2)" -"(let-values()(loop_10(cdr kws_1) required_0 #f))" -"(if(pair? allowed_2)" -"(let-values()" -"(if(eq?(car allowed_2)(car kws_1))" -"(loop_10(cdr kws_1) required_0(cdr allowed_2))" -"(loop_10 kws_1 required_0(cdr allowed_2))))" -"(let-values()(values #f(car kws_1)))))))))))" -" loop_10)" -" kws_0" -"(keyword-procedure-required p_3)" -"(keyword-procedure-allowed p_3)))))" -"(define-values" -"(subset?$1)" -"(lambda(l1_0 l2_0)" -"(begin" -" 'subset?" -"(if(null? l1_0)" -"(let-values() #t)" -"(if(null? l2_0)" -"(let-values() #f)" -"(if(eq?(car l1_0)(car l2_0))" -"(let-values()(subset?$1(cdr l1_0)(cdr l2_0)))" -"(let-values()(subset?$1 l1_0(cdr l2_0)))))))))" -"(define-values" -"(subsets?)" -"(lambda(l1_1 l2_1 l3_0)" -"(begin" -"(if(null? l1_1)" -"(let-values()(subset?$1 l2_1 l3_0))" -"(if(null? l2_1)" -"(let-values() #f)" -"(if(null? l3_0)" -"(let-values() #f)" -"(let-values()" -"(let-values(((v2_0)(car l2_1)))" -"(if(eq?(car l1_1) v2_0)" -"(let-values()(subsets?(cdr l1_1)(cdr l2_1)(cdr l3_0)))" -"(if(eq? v2_0(car l3_0))" -"(let-values()(subsets? l1_1(cdr l2_1)(cdr l3_0)))" -"(let-values()(subsets? l1_1 l2_1(cdr l3_0)))))))))))))" -"(define-values" -"(keyword-procedure-extract/method)" -"(lambda(kws_2 n_1 p_4 method-n_0)" -"(begin" -"(if(if(keyword-procedure? p_4)((keyword-procedure-checker p_4) kws_2 n_1) #f)" -"(keyword-procedure-proc p_4)" -"(let-values(((p2_0)" -"(if(not(keyword-procedure? p_4))" -"(if(procedure? p_4)" -"(let-values(((or-part_15)" -"(if(new-procedure? p_4)" -"(let-values(((a_6)(procedure-accessor-ref p_4)))(if a_6(a_6 p_4) #f))" -" #f)))" -"(if or-part_15" -" or-part_15" -"(let-values(((or-part_16)(procedure-extract-target p_4)))" -"(if or-part_16 or-part_16(if(new-procedure? p_4) 'method #f)))))" -" #f)" -" #f)))" -"(if p2_0" -"(if(eq? p2_0 'method)" -"(let-values(((p3_0)" -"(keyword-procedure-extract/method" -" kws_2" -"(add1 n_1)" -"(new-procedure-ref p_4)" -"(add1 method-n_0))))" -"(lambda(kws_3 kw-args_0 . args_1)(apply p3_0 kws_3 kw-args_0(cons p_4 args_1))))" -"(keyword-procedure-extract/method kws_2 n_1 p2_0 method-n_0))" -"(lambda(kws_4 kw-args_1 . args_2)" -"(let-values(((missing-kw_0 extra-kw_0)" -"(if(keyword-procedure? p_4)(check-kw-args p_4 kws_4)(values #f(car kws_4)))))" -"(let-values(((n_2)" -"(let-values(((method-n_1)" -"(+" -" method-n_0" -"(if(let-values(((or-part_17)(keyword-method? p_4)))" -"(if or-part_17 or-part_17(okm? p_4)))" -" 1" -" 0))))" -"(if(>= n_1 method-n_1)(- n_1 method-n_1) n_1)))" -"((args-str_0)" -"(if(if(null? args_2)(null? kws_4) #f)" -" \"\"" -"(apply" -" string-append" -" \"\\n arguments...:\"" -"(append" -" (map (lambda (v_11) (format \"\\n ~e\" v_11)) args_2)" -" (map (lambda (kw_0 kw-arg_0) (format \"\\n ~a ~e\" kw_0 kw-arg_0)) kws_4 kw-args_1)))))" -"((proc-name_0)" -"(lambda(p_5)" -"(begin" -" 'proc-name" -"(let-values(((or-part_18)" -"(if(named-keyword-procedure? p_5)" -"(car(keyword-procedure-name+fail p_5))" -" #f)))" -"(if or-part_18" -" or-part_18" -"(let-values(((or-part_19)(object-name p_5)))" -"(if or-part_19 or-part_19 p_5))))))))" -"(raise" -"(exn:fail:contract" -"(if extra-kw_0" -"(if(keyword-procedure? p_4)" -"(format" -"(string-append" -" \"application: procedure does not expect an argument with given keyword\\n\"" -" \" procedure: ~a\\n\"" -" \" given keyword: ~a\"" -" \"~a\")" -"(proc-name_0 p_4)" -" extra-kw_0" -" args-str_0)" -"(if(procedure? p_4)" -"(format" -"(string-append" -" \"application: procedure does not accept keyword arguments\\n\"" -" \" procedure: ~a\"" -" \"~a\")" -"(proc-name_0 p_4)" -" args-str_0)" -"(format" -"(string-append" -" \"application: not a procedure;\\n\"" -" \" expected a procedure that can be applied to arguments\\n\"" -" \" given: ~e\"" -" \"~a\")" -" p_4" -" args-str_0)))" -"(if missing-kw_0" -"(format" -"(string-append" -" \"application: required keyword argument not supplied\\n\"" -" \" procedure: ~a\\n\"" -" \" required keyword: ~a\"" -" \"~a\")" -"(proc-name_0 p_4)" -" missing-kw_0" -" args-str_0)" -"(format" -"(string-append" -" \"application: no case matching ~a non-keyword argument~a\\n\"" -" \" procedure: ~a\"" -" \"~a\")" -"(- n_2 2)" -" (if (= 1 (- n_2 2)) \"\" \"s\")" -"(proc-name_0 p_4)" -" args-str_0)))" -"(current-continuation-marks))))))))))))" -"(define-values" "(reverse$1)" "(lambda(l_3)" "(begin" " 'reverse" "(begin" " (if (list? l_3) (void) (raise-argument-error 'reverse \"list?\" l_3))" -"(letrec-values(((loop_11)" -"(lambda(a_7 l_4)" -"(begin 'loop(if(null? l_4) a_7(loop_11(cons(car l_4) a_7)(cdr l_4)))))))" -"(loop_11 null l_3))))))" +"(letrec-values(((loop_8)" +"(lambda(a_1 l_4)(begin 'loop(if(null? l_4) a_1(loop_8(cons(car l_4) a_1)(cdr l_4)))))))" +"(loop_8 null l_3))))))" "(define-values" "(sort vector-sort vector-sort!)" "(let-values()" "(let-values(((generic-sort_0)" -"(lambda(A_0 less-than?_0 n_3)" +"(lambda(A_0 less-than?_0 n_1)" "(begin" " 'generic-sort" "(let-values()" "(let-values()" -"(let-values(((n/2-_0)(unsafe-fxrshift n_3 1)))" -"(let-values(((n/2+_0)(unsafe-fx- n_3 n/2-_0)))" +"(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_4)" +"(lambda(Alo_0 Blo_0 n_2)" "(begin" " 'copying-mergesort" -"(if(unsafe-fx= n_4 1)" +"(if(unsafe-fx= n_2 1)" "(let-values()" "(unsafe-vector-set! A_0 Blo_0(unsafe-vector-ref A_0 Alo_0)))" -"(if(unsafe-fx= n_4 2)" +"(if(unsafe-fx= n_2 2)" "(let-values()" "(let-values(((x_0)(unsafe-vector-ref A_0 Alo_0))" "((y_0)" @@ -951,7 +653,7 @@ static const char *startup_source = "(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_4 16)" +"(if(unsafe-fx< n_2 16)" "(let-values()" "(begin" "(unsafe-vector-set!" @@ -962,7 +664,7 @@ static const char *startup_source = "(lambda(i_4)" "(begin" " 'iloop" -"(if(unsafe-fx< i_4 n_4)" +"(if(unsafe-fx< i_4 n_2)" "(let-values()" "(let-values(((ref-i_0)" "(unsafe-vector-ref" @@ -1011,16 +713,16 @@ static const char *startup_source = " iloop_0)" " 1)))" "(let-values()" -"(let-values(((n/2-_1)(unsafe-fxrshift n_4 1)))" -"(let-values(((n/2+_1)(unsafe-fx- n_4 n/2-_1)))" +"(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)))" "(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_4)))" -"((letrec-values(((loop_12)" +"(let-values(((b2_0)(unsafe-fx+ Blo_0 n_2)))" +"((letrec-values(((loop_9)" "(lambda(a1_0 b1_0 c1_0)" "(begin" " 'loop" @@ -1053,7 +755,7 @@ static const char *startup_source = " c1_1" " b1_0)" "(let-values()" -"(loop_12" +"(loop_9" " a1_1" " b1_0" " c1_1))" @@ -1074,7 +776,7 @@ static const char *startup_source = "(if(unsafe-fx<=" " b2_0" " b1_1)" -"((letrec-values(((loop_13)" +"((letrec-values(((loop_10)" "(lambda(a1_2" " c1_3)" "(begin" @@ -1090,7 +792,7 @@ static const char *startup_source = "(unsafe-vector-ref" " A_0" " a1_2))" -"(loop_13" +"(loop_10" "(unsafe-fx+" " a1_2" " 1)" @@ -1098,29 +800,29 @@ static const char *startup_source = " c1_3" " 1))))" "(void))))))" -" loop_13)" +" loop_10)" " a1_0" " c1_2)" -"(loop_12" +"(loop_9" " a1_0" " b1_1" " c1_2))))))))))" -" loop_12)" +" loop_9)" " Amid2_0" " Bmid1_0" " Blo_0))))))))))))))" "(let-values(((Alo_1) 0)" "((Amid1_1) n/2-_0)" "((Amid2_1) n/2+_0)" -"((Ahi_0) n_3)" -"((B1lo_0) n_3))" +"((Ahi_0) n_1)" +"((B1lo_0) n_1))" "(begin" "(copying-mergesort_0 Amid1_1 B1lo_0 n/2+_0)" "(if(zero? n/2-_0)" "(void)" "(let-values()(copying-mergesort_0 Alo_1 Amid2_1 n/2-_0)))" "(let-values(((b2_1) Ahi_0))" -"((letrec-values(((loop_14)" +"((letrec-values(((loop_11)" "(lambda(a1_3 b1_2 c1_4)" "(begin" " 'loop" @@ -1132,14 +834,14 @@ static const char *startup_source = "(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_14 a1_4 b1_2 c1_5))" +"(let-values()(loop_11 a1_4 b1_2 c1_5))" "(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_15)" +"((letrec-values(((loop_12)" "(lambda(a1_5 c1_7)" "(begin" " 'loop" @@ -1152,36 +854,36 @@ static const char *startup_source = "(unsafe-vector-ref" " A_0" " a1_5))" -"(loop_15" +"(loop_12" "(unsafe-fx+ a1_5 1)" "(unsafe-fx+" " c1_7" " 1))))" "(void))))))" -" loop_15)" +" loop_12)" " a1_3" " c1_6)" -"(loop_14 a1_3 b1_3 c1_6))))))))))" -" loop_14)" +"(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_5 key_7)" +"(lambda(A_1 less-than?_1 n_3 key_7)" "(begin" " 'generic-sort/key" "(let-values()" "(let-values()" -"(let-values(((n/2-_2)(unsafe-fxrshift n_5 1)))" -"(let-values(((n/2+_2)(unsafe-fx- n_5 n/2-_2)))" +"(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_6)" +"(lambda(Alo_2 Blo_1 n_4)" "(begin" " 'copying-mergesort" -"(if(unsafe-fx= n_6 1)" +"(if(unsafe-fx= n_4 1)" "(let-values()" "(unsafe-vector-set! A_1 Blo_1(unsafe-vector-ref A_1 Alo_2)))" -"(if(unsafe-fx= n_6 2)" +"(if(unsafe-fx= n_4 2)" "(let-values()" "(let-values(((x_3)(unsafe-vector-ref A_1 Alo_2))" "((y_3)" @@ -1195,7 +897,7 @@ static const char *startup_source = "(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_6 16)" +"(if(unsafe-fx< n_4 16)" "(let-values()" "(begin" "(unsafe-vector-set!" @@ -1206,7 +908,7 @@ static const char *startup_source = "(lambda(i_5)" "(begin" " 'iloop" -"(if(unsafe-fx< i_5 n_6)" +"(if(unsafe-fx< i_5 n_4)" "(let-values()" "(let-values(((ref-i_1)" "(unsafe-vector-ref" @@ -1261,16 +963,16 @@ static const char *startup_source = " iloop_1)" " 1)))" "(let-values()" -"(let-values(((n/2-_3)(unsafe-fxrshift n_6 1)))" -"(let-values(((n/2+_3)(unsafe-fx- n_6 n/2-_3)))" +"(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)))" "(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_6)))" -"((letrec-values(((loop_16)" +"(let-values(((b2_2)(unsafe-fx+ Blo_1 n_4)))" +"((letrec-values(((loop_13)" "(lambda(a1_6 b1_4 c1_8)" "(begin" " 'loop" @@ -1307,7 +1009,7 @@ static const char *startup_source = " c1_9" " b1_4)" "(let-values()" -"(loop_16" +"(loop_13" " a1_7" " b1_4" " c1_9))" @@ -1328,7 +1030,7 @@ static const char *startup_source = "(if(unsafe-fx<=" " b2_2" " b1_5)" -"((letrec-values(((loop_17)" +"((letrec-values(((loop_14)" "(lambda(a1_8" " c1_11)" "(begin" @@ -1344,7 +1046,7 @@ static const char *startup_source = "(unsafe-vector-ref" " A_1" " a1_8))" -"(loop_17" +"(loop_14" "(unsafe-fx+" " a1_8" " 1)" @@ -1352,29 +1054,29 @@ static const char *startup_source = " c1_11" " 1))))" "(void))))))" -" loop_17)" +" loop_14)" " a1_6" " c1_10)" -"(loop_16" +"(loop_13" " a1_6" " b1_5" " c1_10))))))))))" -" loop_16)" +" 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_5)" -"((B1lo_1) n_5))" +"((Ahi_1) n_3)" +"((B1lo_1) n_3))" "(begin" "(copying-mergesort_1 Amid1_3 B1lo_1 n/2+_2)" "(if(zero? n/2-_2)" "(void)" "(let-values()(copying-mergesort_1 Alo_3 Amid2_3 n/2-_2)))" "(let-values(((b2_3) Ahi_1))" -"((letrec-values(((loop_18)" +"((letrec-values(((loop_15)" "(lambda(a1_9 b1_6 c1_12)" "(begin" " 'loop" @@ -1388,14 +1090,14 @@ static const char *startup_source = "(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_18 a1_10 b1_6 c1_13))" +"(let-values()(loop_15 a1_10 b1_6 c1_13))" "(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_19)" +"((letrec-values(((loop_16)" "(lambda(a1_11 c1_15)" "(begin" " 'loop" @@ -1410,7 +1112,7 @@ static const char *startup_source = "(unsafe-vector-ref" " A_1" " a1_11))" -"(loop_19" +"(loop_16" "(unsafe-fx+" " a1_11" " 1)" @@ -1418,52 +1120,52 @@ static const char *startup_source = " c1_15" " 1))))" "(void))))))" -" loop_19)" +" loop_16)" " a1_9" " c1_14)" -"(loop_18 a1_9 b1_7 c1_14))))))))))" -" loop_18)" +"(loop_15 a1_9 b1_7 c1_14))))))))))" +" loop_15)" " B1lo_1" " Amid2_3" " Alo_3)))))))))))))" "(values" "(case-lambda" "((lst_0 less-than?_2)" -"(let-values(((n_7)(length lst_0)))" +"(let-values(((n_5)(length lst_0)))" "(let-values()" -"(if(unsafe-fx= n_7 0)" +"(if(unsafe-fx= n_5 0)" "(let-values() lst_0)" -"(if((letrec-values(((loop_20)" +"(if((letrec-values(((loop_17)" "(lambda(last_0 next_1)" "(begin" " 'loop" -"(let-values(((or-part_20)(null? next_1)))" -"(if or-part_20" -" or-part_20" +"(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_20(unsafe-car next_1)(unsafe-cdr next_1))" +"(loop_17(unsafe-car next_1)(unsafe-cdr next_1))" " #f)))))))" -" loop_20)" +" loop_17)" "(car lst_0)" "(cdr lst_0))" "(let-values() lst_0)" -"(if(unsafe-fx<= n_7 3)" +"(if(unsafe-fx<= n_5 3)" "(let-values()" -"(if(unsafe-fx= n_7 1)" +"(if(unsafe-fx= n_5 1)" "(let-values() lst_0)" -"(if(unsafe-fx= n_7 2)" +"(if(unsafe-fx= n_5 2)" "(let-values()(list(cadr lst_0)(car lst_0)))" "(let-values()" -"(let-values(((a_8)(car lst_0))((b_1)(cadr lst_0))((c_0)(caddr lst_0)))" -"(if(less-than?_2 b_1 a_8)" +"(let-values(((a_2)(car lst_0))((b_1)(cadr lst_0))((c_0)(caddr lst_0)))" +"(if(less-than?_2 b_1 a_2)" "(if(less-than?_2 c_0 b_1)" -"(list c_0 b_1 a_8)" -"(if(less-than?_2 c_0 a_8)(list b_1 c_0 a_8)(list b_1 a_8 c_0)))" -"(if(less-than?_2 c_0 a_8)(list c_0 a_8 b_1)(list a_8 c_0 b_1))))))))" +"(list c_0 b_1 a_2)" +"(if(less-than?_2 c_0 a_2)(list b_1 c_0 a_2)(list b_1 a_2 c_0)))" +"(if(less-than?_2 c_0 a_2)(list c_0 a_2 b_1)(list a_2 c_0 b_1))))))))" "(let-values()" -"(let-values(((vec_0)(make-vector(+ n_7(ceiling(/ n_7 2))))))" +"(let-values(((vec_0)(make-vector(+ n_5(ceiling(/ n_5 2))))))" "(begin" -"((letrec-values(((loop_21)" +"((letrec-values(((loop_18)" "(lambda(i_6 lst_1)" "(begin" " 'loop" @@ -1471,22 +1173,22 @@ static const char *startup_source = "(let-values()" "(begin" "(vector-set! vec_0 i_6(car lst_1))" -"(loop_21(add1 i_6)(cdr lst_1))))" +"(loop_18(add1 i_6)(cdr lst_1))))" "(void))))))" -" loop_21)" +" loop_18)" " 0" " lst_0)" -"(generic-sort_0 vec_0 less-than?_2 n_7)" -"((letrec-values(((loop_22)" +"(generic-sort_0 vec_0 less-than?_2 n_5)" +"((letrec-values(((loop_19)" "(lambda(i_7 r_1)" "(begin" " 'loop" "(let-values(((i_8)(sub1 i_7)))" "(if(< i_8 0)" " r_1" -"(loop_22 i_8(cons(vector-ref vec_0 i_8) r_1))))))))" -" loop_22)" -" n_7" +"(loop_19 i_8(cons(vector-ref vec_0 i_8) r_1))))))))" +" loop_19)" +" n_5" " '()))))))))))" "((lst_2 less-than?_3 getkey_0)" "(if(if getkey_0(not(eq? values getkey_0)) #f)" @@ -1494,15 +1196,15 @@ static const char *startup_source = "(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_8)(length lst_3)))" +"(let-values(((n_6)(length lst_3)))" "(let-values()" -"(if(unsafe-fx= n_8 0)" +"(if(unsafe-fx= n_6 0)" "(let-values() lst_3)" "(if cache-keys?_0" "(let-values()" -"(let-values(((vec_1)(make-vector(+ n_8(ceiling(/ n_8 2))))))" +"(let-values(((vec_1)(make-vector(+ n_6(ceiling(/ n_6 2))))))" "(begin" -"((letrec-values(((loop_23)" +"((letrec-values(((loop_20)" "(lambda(i_9 lst_4)" "(begin" " 'loop" @@ -1511,71 +1213,71 @@ static const char *startup_source = "(let-values(((x_6)(car lst_4)))" "(begin" "(unsafe-vector-set! vec_1 i_9(cons(getkey_1 x_6) x_6))" -"(loop_23(unsafe-fx+ i_9 1)(cdr lst_4)))))" +"(loop_20(unsafe-fx+ i_9 1)(cdr lst_4)))))" "(void))))))" -" loop_23)" +" loop_20)" " 0" " lst_3)" -"(generic-sort/key_0 vec_1 less-than?_4 n_8 unsafe-car)" -"((letrec-values(((loop_24)" +"(generic-sort/key_0 vec_1 less-than?_4 n_6 unsafe-car)" +"((letrec-values(((loop_21)" "(lambda(i_10 r_2)" "(begin" " 'loop" "(let-values(((i_11)(unsafe-fx- i_10 1)))" "(if(unsafe-fx< i_11 0)" " r_2" -"(loop_24" +"(loop_21" " i_11" "(cons(unsafe-cdr(unsafe-vector-ref vec_1 i_11)) r_2))))))))" -" loop_24)" -" n_8" +" loop_21)" +" n_6" " '()))))" -"(if((letrec-values(((loop_25)" +"(if((letrec-values(((loop_22)" "(lambda(last_1 next_2)" "(begin" " 'loop" -"(let-values(((or-part_21)(null? next_2)))" -"(if or-part_21" -" or-part_21" +"(let-values(((or-part_15)(null? next_2)))" +"(if or-part_15" +" or-part_15" "(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_25(unsafe-car next_2)(unsafe-cdr next_2))" +"(loop_22(unsafe-car next_2)(unsafe-cdr next_2))" " #f)))))))" -" loop_25)" +" loop_22)" "(car lst_3)" "(cdr lst_3))" "(let-values() lst_3)" -"(if(unsafe-fx<= n_8 3)" +"(if(unsafe-fx<= n_6 3)" "(let-values()" -"(if(unsafe-fx= n_8 1)" +"(if(unsafe-fx= n_6 1)" "(let-values() lst_3)" -"(if(unsafe-fx= n_8 2)" +"(if(unsafe-fx= n_6 2)" "(let-values()(list(cadr lst_3)(car lst_3)))" "(let-values()" -"(let-values(((a_9)(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_9))(less-than?_4 b_2 a_9))" +"(let-values(((a_3)(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_3))(less-than?_4 b_2 a_3))" "(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_9)" +"(list c_1 b_2 a_3)" "(if(if getkey_1" -"(less-than?_4(getkey_1 c_1)(getkey_1 a_9))" -"(less-than?_4 c_1 a_9))" -"(list b_2 c_1 a_9)" -"(list b_2 a_9 c_1)))" +"(less-than?_4(getkey_1 c_1)(getkey_1 a_3))" +"(less-than?_4 c_1 a_3))" +"(list b_2 c_1 a_3)" +"(list b_2 a_3 c_1)))" "(if(if getkey_1" -"(less-than?_4(getkey_1 c_1)(getkey_1 a_9))" -"(less-than?_4 c_1 a_9))" -"(list c_1 a_9 b_2)" -"(list a_9 c_1 b_2))))))))" +"(less-than?_4(getkey_1 c_1)(getkey_1 a_3))" +"(less-than?_4 c_1 a_3))" +"(list c_1 a_3 b_2)" +"(list a_3 c_1 b_2))))))))" "(let-values()" -"(let-values(((vec_2)(make-vector(+ n_8(ceiling(/ n_8 2))))))" +"(let-values(((vec_2)(make-vector(+ n_6(ceiling(/ n_6 2))))))" "(begin" -"((letrec-values(((loop_26)" +"((letrec-values(((loop_23)" "(lambda(i_12 lst_5)" "(begin" " 'loop" @@ -1583,117 +1285,117 @@ static const char *startup_source = "(let-values()" "(begin" "(vector-set! vec_2 i_12(car lst_5))" -"(loop_26(add1 i_12)(cdr lst_5))))" +"(loop_23(add1 i_12)(cdr lst_5))))" "(void))))))" -" loop_26)" +" loop_23)" " 0" " lst_3)" -"(generic-sort/key_0 vec_2 less-than?_4 n_8 getkey_1)" -"((letrec-values(((loop_27)" +"(generic-sort/key_0 vec_2 less-than?_4 n_6 getkey_1)" +"((letrec-values(((loop_24)" "(lambda(i_13 r_3)" "(begin" " 'loop" "(let-values(((i_14)(sub1 i_13)))" "(if(< i_14 0)" " r_3" -"(loop_27 i_14(cons(vector-ref vec_2 i_14) r_3))))))))" -" loop_27)" -" n_8" +"(loop_24 i_14(cons(vector-ref vec_2 i_14) r_3))))))))" +" loop_24)" +" n_6" " '()))))))))))" "(sort lst_3 less-than?_4))))" "(case-lambda" "((vec_3 less-than?_5 start_0 end_0)" -"(let-values(((n_9)(- end_0 start_0)))" -"(let-values(((dst-vec_0)(make-vector n_9)))" +"(let-values(((n_7)(- end_0 start_0)))" +"(let-values(((dst-vec_0)(make-vector n_7)))" "(let-values(((dst-start_0) 0))" "(begin" -"(if(unsafe-fx= n_9 0)" +"(if(unsafe-fx= n_7 0)" "(let-values()(void))" -"(if((letrec-values(((loop_28)" +"(if((letrec-values(((loop_25)" "(lambda(prev-val_0 next-index_0)" "(begin" " 'loop" -"(let-values(((or-part_22)(unsafe-fx= next-index_0 end_0)))" -"(if or-part_22" -" or-part_22" +"(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_28 next-val_0(unsafe-fx+ next-index_0 1))" +"(loop_25 next-val_0(unsafe-fx+ next-index_0 1))" " #f))))))))" -" loop_28)" +" loop_25)" "(unsafe-vector-ref vec_3 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_9 3)" +"(if(unsafe-fx<= n_7 3)" "(let-values()" "(begin" "(let-values()(vector-copy! dst-vec_0 dst-start_0 vec_3 start_0 end_0))" -"(if(unsafe-fx= n_9 1)" +"(if(unsafe-fx= n_7 1)" "(let-values()(void))" -"(if(unsafe-fx= n_9 2)" +"(if(unsafe-fx= n_7 2)" "(let-values()" -"(let-values(((tmp_1)(unsafe-vector-ref dst-vec_0(unsafe-fx+ dst-start_0 0))))" +"(let-values(((tmp_0)(unsafe-vector-ref dst-vec_0(unsafe-fx+ dst-start_0 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_1))))" +"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 1) tmp_0))))" "(let-values()" -"(let-values(((a_10)(unsafe-vector-ref dst-vec_0(unsafe-fx+ dst-start_0 0)))" +"(let-values(((a_4)(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_10)" +"(if(less-than?_5 b_3 a_4)" "(let-values()" "(if(less-than?_5 c_2 b_3)" "(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_10)))" -"(if(less-than?_5 c_2 a_10)" +"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 2) a_4)))" +"(if(less-than?_5 c_2 a_4)" "(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_10)))" +"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 2) a_4)))" "(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_10))))))" -"(if(less-than?_5 c_2 a_10)" +"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 1) a_4))))))" +"(if(less-than?_5 c_2 a_4)" "(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_10)" +"(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 1) a_4)" "(unsafe-vector-set! dst-vec_0(unsafe-fx+ dst-start_0 2) b_3)))" "(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)))))))))))" "(let-values()" -"(let-values(((work-vec_0)(make-vector(+ n_9(ceiling(/ n_9 2))) #f)))" +"(let-values(((work-vec_0)(make-vector(+ n_7(ceiling(/ n_7 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_9)" -"(vector-copy! dst-vec_0 dst-start_0 work-vec_0 0 n_9)))))))" +"(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_10)(- end_1 start_1)))" -"(let-values(((dst-vec_1)(make-vector n_10)))" +"(let-values(((n_8)(- end_1 start_1)))" +"(let-values(((dst-vec_1)(make-vector n_8)))" "(let-values(((dst-start_1) 0))" "(begin" -"(if(unsafe-fx= n_10 0)" +"(if(unsafe-fx= n_8 0)" "(let-values()(void))" "(if cache-keys?_1" "(let-values()" -"(let-values(((work-vec_1)(make-vector(+ n_10(ceiling(/ n_10 2))) #t)))" +"(let-values(((work-vec_1)(make-vector(+ n_8(ceiling(/ n_8 2))) #t)))" "(begin" -"((letrec-values(((loop_29)" +"((letrec-values(((loop_26)" "(lambda(i_15)" "(begin" " 'loop" -"(if(unsafe-fx< i_15 n_10)" +"(if(unsafe-fx< i_15 n_8)" "(let-values()" "(begin" "(let-values(((x_7)" @@ -1704,33 +1406,33 @@ static const char *startup_source = " work-vec_1" " i_15" "(cons(getkey_2 x_7) x_7)))" -"(loop_29(unsafe-fx+ i_15 1))))" +"(loop_26(unsafe-fx+ i_15 1))))" "(void))))))" -" loop_29)" +" loop_26)" " 0)" -"(generic-sort/key_0 work-vec_1 less-than?_6 n_10 unsafe-car)" -"((letrec-values(((loop_30)" +"(generic-sort/key_0 work-vec_1 less-than?_6 n_8 unsafe-car)" +"((letrec-values(((loop_27)" "(lambda(i_16)" "(begin" " 'loop" -"(if(unsafe-fx< i_16 n_10)" +"(if(unsafe-fx< i_16 n_8)" "(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_30(unsafe-fx+ i_16 1))))" +"(loop_27(unsafe-fx+ i_16 1))))" "(void))))))" -" loop_30)" +" loop_27)" " 0))))" -"(if((letrec-values(((loop_31)" +"(if((letrec-values(((loop_28)" "(lambda(prev-val_1 next-index_1)" "(begin" " 'loop" -"(let-values(((or-part_23)(unsafe-fx= next-index_1 end_1)))" -"(if or-part_23" -" or-part_23" +"(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)))" "(if(not" @@ -1739,34 +1441,34 @@ static const char *startup_source = "(getkey_2 next-val_1)" "(getkey_2 prev-val_1))" "(less-than?_6 next-val_1 prev-val_1)))" -"(loop_31 next-val_1(unsafe-fx+ next-index_1 1))" +"(loop_28 next-val_1(unsafe-fx+ next-index_1 1))" " #f))))))))" -" loop_31)" +" 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_10 3)" +"(if(unsafe-fx<= n_8 3)" "(let-values()" "(begin" "(let-values()(vector-copy! dst-vec_1 dst-start_1 vec_4 start_1 end_1))" -"(if(unsafe-fx= n_10 1)" +"(if(unsafe-fx= n_8 1)" "(let-values()(void))" -"(if(unsafe-fx= n_10 2)" +"(if(unsafe-fx= n_8 2)" "(let-values()" -"(let-values(((tmp_2)(unsafe-vector-ref dst-vec_1(unsafe-fx+ dst-start_1 0))))" +"(let-values(((tmp_1)(unsafe-vector-ref dst-vec_1(unsafe-fx+ dst-start_1 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_2))))" +"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 1) tmp_1))))" "(let-values()" -"(let-values(((a_11)(unsafe-vector-ref dst-vec_1(unsafe-fx+ dst-start_1 0)))" +"(let-values(((a_5)(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_11))" -"(less-than?_6 b_4 a_11))" +"(less-than?_6(getkey_2 b_4)(getkey_2 a_5))" +"(less-than?_6 b_4 a_5))" "(let-values()" "(if(if getkey_2" "(less-than?_6(getkey_2 c_3)(getkey_2 b_4))" @@ -1774,132 +1476,132 @@ static const char *startup_source = "(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_11)))" +"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 2) a_5)))" "(if(if getkey_2" -"(less-than?_6(getkey_2 c_3)(getkey_2 a_11))" -"(less-than?_6 c_3 a_11))" +"(less-than?_6(getkey_2 c_3)(getkey_2 a_5))" +"(less-than?_6 c_3 a_5))" "(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_11)))" +"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 2) a_5)))" "(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_11))))))" +"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 1) a_5))))))" "(if(if getkey_2" -"(less-than?_6(getkey_2 c_3)(getkey_2 a_11))" -"(less-than?_6 c_3 a_11))" +"(less-than?_6(getkey_2 c_3)(getkey_2 a_5))" +"(less-than?_6 c_3 a_5))" "(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_11)" +"(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 1) a_5)" "(unsafe-vector-set! dst-vec_1(unsafe-fx+ dst-start_1 2) b_4)))" "(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)))))))))))" "(let-values()" -"(let-values(((work-vec_2)(make-vector(+ n_10(ceiling(/ n_10 2))) #f)))" +"(let-values(((work-vec_2)(make-vector(+ n_8(ceiling(/ n_8 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_10 getkey_2)" -"(vector-copy! dst-vec_1 dst-start_1 work-vec_2 0 n_10))))))))" +"(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))))" "(case-lambda" "((vec_5 less-than?_7 start_2 end_2)" -"(let-values(((n_11)(- end_2 start_2)))" +"(let-values(((n_9)(- end_2 start_2)))" "(let-values(((dst-vec_2) vec_5))" "(let-values(((dst-start_2) start_2))" "(begin" -"(if(unsafe-fx= n_11 0)" +"(if(unsafe-fx= n_9 0)" "(let-values()(void))" -"(if((letrec-values(((loop_32)" +"(if((letrec-values(((loop_29)" "(lambda(prev-val_2 next-index_2)" "(begin" " 'loop" -"(let-values(((or-part_24)(unsafe-fx= next-index_2 end_2)))" -"(if or-part_24" -" or-part_24" +"(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_32 next-val_2(unsafe-fx+ next-index_2 1))" +"(loop_29 next-val_2(unsafe-fx+ next-index_2 1))" " #f))))))))" -" loop_32)" +" loop_29)" "(unsafe-vector-ref vec_5 start_2)" "(unsafe-fx+ start_2 1))" "(let-values()(void))" -"(if(unsafe-fx<= n_11 3)" +"(if(unsafe-fx<= n_9 3)" "(let-values()" "(begin" "(void)" -"(if(unsafe-fx= n_11 1)" +"(if(unsafe-fx= n_9 1)" "(let-values()(void))" -"(if(unsafe-fx= n_11 2)" +"(if(unsafe-fx= n_9 2)" "(let-values()" -"(let-values(((tmp_3)(unsafe-vector-ref dst-vec_2(unsafe-fx+ dst-start_2 0))))" +"(let-values(((tmp_2)(unsafe-vector-ref dst-vec_2(unsafe-fx+ dst-start_2 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_3))))" +"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 1) tmp_2))))" "(let-values()" -"(let-values(((a_12)(unsafe-vector-ref dst-vec_2(unsafe-fx+ dst-start_2 0)))" +"(let-values(((a_6)(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_12)" +"(if(less-than?_7 b_5 a_6)" "(let-values()" "(if(less-than?_7 c_4 b_5)" "(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_12)))" -"(if(less-than?_7 c_4 a_12)" +"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 2) a_6)))" +"(if(less-than?_7 c_4 a_6)" "(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_12)))" +"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 2) a_6)))" "(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_12))))))" -"(if(less-than?_7 c_4 a_12)" +"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 1) a_6))))))" +"(if(less-than?_7 c_4 a_6)" "(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_12)" +"(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 1) a_6)" "(unsafe-vector-set! dst-vec_2(unsafe-fx+ dst-start_2 2) b_5)))" "(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)))))))))))" "(let-values()" -"(let-values(((work-vec_3)(make-vector(+ n_11(ceiling(/ n_11 2))) #f)))" +"(let-values(((work-vec_3)(make-vector(+ n_9(ceiling(/ n_9 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_11)" -"(vector-copy! dst-vec_2 dst-start_2 work-vec_3 0 n_11)))))))" +"(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)))))))" "(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_12)(- end_3 start_3)))" +"(let-values(((n_10)(- end_3 start_3)))" "(let-values(((dst-vec_3) vec_6))" "(let-values(((dst-start_3) start_3))" "(begin" -"(if(unsafe-fx= n_12 0)" +"(if(unsafe-fx= n_10 0)" "(let-values()(void))" "(if cache-keys?_2" "(let-values()" -"(let-values(((work-vec_4)(make-vector(+ n_12(ceiling(/ n_12 2))) #t)))" +"(let-values(((work-vec_4)(make-vector(+ n_10(ceiling(/ n_10 2))) #t)))" "(begin" -"((letrec-values(((loop_33)" +"((letrec-values(((loop_30)" "(lambda(i_17)" "(begin" " 'loop" -"(if(unsafe-fx< i_17 n_12)" +"(if(unsafe-fx< i_17 n_10)" "(let-values()" "(begin" "(let-values(((x_8)" @@ -1910,33 +1612,33 @@ static const char *startup_source = " work-vec_4" " i_17" "(cons(getkey_3 x_8) x_8)))" -"(loop_33(unsafe-fx+ i_17 1))))" +"(loop_30(unsafe-fx+ i_17 1))))" "(void))))))" -" loop_33)" +" loop_30)" " 0)" -"(generic-sort/key_0 work-vec_4 less-than?_8 n_12 unsafe-car)" -"((letrec-values(((loop_34)" +"(generic-sort/key_0 work-vec_4 less-than?_8 n_10 unsafe-car)" +"((letrec-values(((loop_31)" "(lambda(i_18)" "(begin" " 'loop" -"(if(unsafe-fx< i_18 n_12)" +"(if(unsafe-fx< i_18 n_10)" "(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_34(unsafe-fx+ i_18 1))))" +"(loop_31(unsafe-fx+ i_18 1))))" "(void))))))" -" loop_34)" +" loop_31)" " 0))))" -"(if((letrec-values(((loop_35)" +"(if((letrec-values(((loop_32)" "(lambda(prev-val_3 next-index_3)" "(begin" " 'loop" -"(let-values(((or-part_25)(unsafe-fx= next-index_3 end_3)))" -"(if or-part_25" -" or-part_25" +"(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)))" "(if(not" @@ -1945,34 +1647,34 @@ static const char *startup_source = "(getkey_3 next-val_3)" "(getkey_3 prev-val_3))" "(less-than?_8 next-val_3 prev-val_3)))" -"(loop_35 next-val_3(unsafe-fx+ next-index_3 1))" +"(loop_32 next-val_3(unsafe-fx+ next-index_3 1))" " #f))))))))" -" loop_35)" +" loop_32)" "(unsafe-vector-ref vec_6 start_3)" "(unsafe-fx+ start_3 1))" "(let-values()(void))" -"(if(unsafe-fx<= n_12 3)" +"(if(unsafe-fx<= n_10 3)" "(let-values()" "(begin" "(void)" -"(if(unsafe-fx= n_12 1)" +"(if(unsafe-fx= n_10 1)" "(let-values()(void))" -"(if(unsafe-fx= n_12 2)" +"(if(unsafe-fx= n_10 2)" "(let-values()" -"(let-values(((tmp_4)(unsafe-vector-ref dst-vec_3(unsafe-fx+ dst-start_3 0))))" +"(let-values(((tmp_3)(unsafe-vector-ref dst-vec_3(unsafe-fx+ dst-start_3 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_4))))" +"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 1) tmp_3))))" "(let-values()" -"(let-values(((a_13)(unsafe-vector-ref dst-vec_3(unsafe-fx+ dst-start_3 0)))" +"(let-values(((a_7)(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_13))" -"(less-than?_8 b_6 a_13))" +"(less-than?_8(getkey_3 b_6)(getkey_3 a_7))" +"(less-than?_8 b_6 a_7))" "(let-values()" "(if(if getkey_3" "(less-than?_8(getkey_3 c_5)(getkey_3 b_6))" @@ -1980,52 +1682,52 @@ static const char *startup_source = "(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_13)))" +"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 2) a_7)))" "(if(if getkey_3" -"(less-than?_8(getkey_3 c_5)(getkey_3 a_13))" -"(less-than?_8 c_5 a_13))" +"(less-than?_8(getkey_3 c_5)(getkey_3 a_7))" +"(less-than?_8 c_5 a_7))" "(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_13)))" +"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 2) a_7)))" "(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_13))))))" +"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 1) a_7))))))" "(if(if getkey_3" -"(less-than?_8(getkey_3 c_5)(getkey_3 a_13))" -"(less-than?_8 c_5 a_13))" +"(less-than?_8(getkey_3 c_5)(getkey_3 a_7))" +"(less-than?_8 c_5 a_7))" "(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_13)" +"(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 1) a_7)" "(unsafe-vector-set! dst-vec_3(unsafe-fx+ dst-start_3 2) b_6)))" "(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)))))))))))" "(let-values()" -"(let-values(((work-vec_5)(make-vector(+ n_12(ceiling(/ n_12 2))) #f)))" +"(let-values(((work-vec_5)(make-vector(+ n_10(ceiling(/ n_10 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_12 getkey_3)" -"(vector-copy! dst-vec_3 dst-start_3 work-vec_5 0 n_12))))))))" +"(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))))))))" "(void)))))" "(vector-sort! vec_6 less-than?_8 start_3 end_3)))))))))" "(define-values" "(prop:stream stream-via-prop? stream-ref)" "(make-struct-type-property" " 'stream" -"(lambda(v_12 si_0)" +"(lambda(v_9 si_0)" "(begin" -"(if(if(vector? v_12)" -"(if(= 3(vector-length v_12))" -"(if(procedure?(vector-ref v_12 0))" -"(if(procedure-arity-includes?(vector-ref v_12 0) 1)" -"(if(procedure?(vector-ref v_12 1))" -"(if(procedure-arity-includes?(vector-ref v_12 1) 1)" -"(if(procedure?(vector-ref v_12 2))(procedure-arity-includes?(vector-ref v_12 2) 1) #f)" +"(if(if(vector? v_9)" +"(if(= 3(vector-length v_9))" +"(if(procedure?(vector-ref v_9 0))" +"(if(procedure-arity-includes?(vector-ref v_9 0) 1)" +"(if(procedure?(vector-ref v_9 1))" +"(if(procedure-arity-includes?(vector-ref v_9 1) 1)" +"(if(procedure?(vector-ref v_9 2))(procedure-arity-includes?(vector-ref v_9 2) 1) #f)" " #f)" " #f)" " #f)" @@ -2040,18 +1742,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_12)))" -"(vector->immutable-vector v_12)))))" +" v_9)))" +"(vector->immutable-vector v_9)))))" "(define-values" "(prop:gen-sequence sequence-via-prop? sequence-ref)" "(make-struct-type-property" " 'sequence" -"(lambda(v_13 si_1)" +"(lambda(v_10 si_1)" "(begin" -"(if(if(procedure? v_13)(procedure-arity-includes? v_13 1) #f)" +"(if(if(procedure? v_10)(procedure-arity-includes? v_10 1) #f)" "(void)" -" (let-values () (raise-argument-error 'guard-for-prop:sequence \"(procedure-arity-includes/c 1)\" v_13)))" -" v_13))))" +" (let-values () (raise-argument-error 'guard-for-prop:sequence \"(procedure-arity-includes/c 1)\" v_10)))" +" v_10))))" "(define-values" "(struct:range make-range range? range-ref range-set!)" "(make-struct-type" @@ -2064,27 +1766,27 @@ static const char *startup_source = "(cons" " prop:stream" "(vector" -"(lambda(v_14)(let-values(((cont?_0)(range-ref v_14 2)))(if cont?_0(not(cont?_0(range-ref v_14 0))) #f)))" -"(lambda(v_15)(range-ref v_15 0))" -"(lambda(v_16)(make-range((range-ref v_16 1)(range-ref v_16 0))(range-ref v_16 1)(range-ref v_16 2)))))" +"(lambda(v_11)(let-values(((cont?_0)(range-ref v_11 2)))(if cont?_0(not(cont?_0(range-ref v_11 0))) #f)))" +"(lambda(v_12)(range-ref v_12 0))" +"(lambda(v_13)(make-range((range-ref v_13 1)(range-ref v_13 0))(range-ref v_13 1)(range-ref v_13 2)))))" "(cons" " prop:gen-sequence" -"(lambda(v_17)(values values #f(range-ref v_17 1)(range-ref v_17 0)(range-ref v_17 2) #f #f))))))" +"(lambda(v_14)(values values #f(range-ref v_14 1)(range-ref v_14 0)(range-ref v_14 2) #f #f))))))" "(define-values" "(check-range)" -"(lambda(a_14 b_7 step_0)" +"(lambda(a_8 b_7 step_0)" "(begin" "(begin" -" (if (real? a_14) (void) (let-values () (raise-argument-error 'in-range \"real?\" a_14)))" +" (if (real? a_8) (void) (let-values () (raise-argument-error 'in-range \"real?\" a_8)))" " (if (real? b_7) (void) (let-values () (raise-argument-error 'in-range \"real?\" b_7)))" " (if (real? step_0) (void) (let-values () (raise-argument-error 'in-range \"real?\" step_0)))))))" "(define-values" "(check-naturals)" -"(lambda(n_13)" +"(lambda(n_11)" "(begin" -"(if(if(integer? n_13)(if(exact? n_13)(>= n_13 0) #f) #f)" +"(if(if(integer? n_11)(if(exact? n_11)(>= n_11 0) #f) #f)" "(void)" -" (let-values () (raise-argument-error 'in-naturals \"exact-nonnegative-integer?\" n_13))))))" +" (let-values () (raise-argument-error 'in-naturals \"exact-nonnegative-integer?\" n_11))))))" "(define-values" "(struct:list-stream make-list-stream list-stream? list-stream-ref list-stream-set!)" "(make-struct-type" @@ -2097,10 +1799,10 @@ static const char *startup_source = "(cons" " prop:stream" "(vector" -"(lambda(v_18)(not(pair?(list-stream-ref v_18 0))))" -"(lambda(v_19)(car(list-stream-ref v_19 0)))" -"(lambda(v_20)(make-list-stream(cdr(list-stream-ref v_20 0))))))" -"(cons prop:gen-sequence(lambda(v_21)(values car cdr values(list-stream-ref v_21 0) pair? #f #f))))))" +"(lambda(v_15)(not(pair?(list-stream-ref v_15 0))))" +"(lambda(v_16)(car(list-stream-ref v_16 0)))" +"(lambda(v_17)(make-list-stream(cdr(list-stream-ref v_17 0))))))" +"(cons prop:gen-sequence(lambda(v_18)(values car cdr values(list-stream-ref v_18 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))))))" @@ -2143,7 +1845,7 @@ static const char *startup_source = "(begin" "(begin" "(if(if(exact-nonnegative-integer? start_4)" -"(let-values(((or-part_26)(< start_4 len_0)))(if or-part_26 or-part_26(= len_0 start_4 stop_0)))" +"(let-values(((or-part_20)(< start_4 len_0)))(if or-part_20 or-part_20(= len_0 start_4 stop_0)))" " #f)" "(void)" " (let-values () (raise-range-error who_3 \"vector\" \"starting \" start_4 vec_7 0 (sub1 len_0))))" @@ -2188,13 +1890,13 @@ static const char *startup_source = "(begin(check-ranges who_4 vec_8 start_5 stop*_0 step_2 len_1)(values vec_8 start_5 stop*_0 step_2))))))))" "(define-values" "(check-vector)" -" (lambda (v_22) (begin (if (vector? v_22) (void) (let-values () (raise-argument-error 'in-vector \"vector\" v_22))))))" +" (lambda (v_19) (begin (if (vector? v_19) (void) (let-values () (raise-argument-error 'in-vector \"vector\" v_19))))))" "(define-values" "(check-string)" -" (lambda (v_23) (begin (if (string? v_23) (void) (let-values () (raise-argument-error 'in-string \"string\" v_23))))))" +" (lambda (v_20) (begin (if (string? v_20) (void) (let-values () (raise-argument-error 'in-string \"string\" v_20))))))" "(define-values" "(check-bytes)" -" (lambda (v_24) (begin (if (bytes? v_24) (void) (let-values () (raise-argument-error 'in-bytes \"bytes\" v_24))))))" +" (lambda (v_21) (begin (if (bytes? v_21) (void) (let-values () (raise-argument-error 'in-bytes \"bytes\" v_21))))))" "(define-values" "(struct:do-stream make-do-stream do-stream? do-stream-ref do-stream-set!)" "(make-struct-type" @@ -2207,17 +1909,17 @@ static const char *startup_source = "(cons" " prop:stream" "(vector" -"(lambda(v_25)((do-stream-ref v_25 0)))" -"(lambda(v_26)((do-stream-ref v_26 1)))" -"(lambda(v_27)((do-stream-ref v_27 2))))))))" +"(lambda(v_22)((do-stream-ref v_22 0)))" +"(lambda(v_23)((do-stream-ref v_23 1)))" +"(lambda(v_24)((do-stream-ref v_24 2))))))))" "(define-values(empty-stream)(make-do-stream(lambda() #t) void void))" "(define-values" "(grow-vector)" "(lambda(vec_9)" "(begin" -"(let-values(((n_14)(vector-length vec_9)))" -"(let-values(((new-vec_0)(make-vector(* 2 n_14))))" -"(begin(vector-copy! new-vec_0 0 vec_9 0 n_14) new-vec_0))))))" +"(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))))))" "(define-values" "(shrink-vector)" "(lambda(vec_10 i_19)" @@ -2230,7 +1932,7 @@ static const char *startup_source = "(begin" " 'map" "(if(if(procedure? f_0)(if(procedure-arity-includes? f_0 1)(list? l_6) #f) #f)" -"((letrec-values(((loop_36)" +"((letrec-values(((loop_33)" "(lambda(l_2)" "(begin" " 'loop" @@ -2238,30 +1940,30 @@ static const char *startup_source = "(let-values() null)" "(let-values()" "(let-values(((r_4)(cdr l_2)))" -"(cons(f_0(car l_2))(loop_36 r_4)))))))))" -" loop_36)" +"(cons(f_0(car l_2))(loop_33 r_4)))))))))" +" loop_33)" " l_6)" "(gen-map f_0(list l_6)))))" -"((f_1 l1_2 l2_2)" +"((f_1 l1_0 l2_0)" "(if(if(procedure? f_1)" "(if(procedure-arity-includes? f_1 2)" -"(if(list? l1_2)(if(list? l2_2)(=(length l1_2)(length l2_2)) #f) #f)" +"(if(list? l1_0)(if(list? l2_0)(=(length l1_0)(length l2_0)) #f) #f)" " #f)" " #f)" -"((letrec-values(((loop_37)" -"(lambda(l1_3 l2_3)" +"((letrec-values(((loop_34)" +"(lambda(l1_1 l2_1)" "(begin" " 'loop" -"(if(null? l1_3)" +"(if(null? l1_1)" "(let-values() null)" "(let-values()" -"(let-values(((r1_0)(cdr l1_3))((r2_0)(cdr l2_3)))" -"(cons(f_1(car l1_3)(car l2_3))(loop_37 r1_0 r2_0)))))))))" -" loop_37)" -" l1_2" -" l2_2)" -"(gen-map f_1(list l1_2 l2_2))))" -"((f_2 l_7 . args_3)(gen-map f_2(cons l_7 args_3))))))" +"(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)" +" l1_0" +" l2_0)" +"(gen-map f_1(list l1_0 l2_0))))" +"((f_2 l_7 . args_0)(gen-map f_2(cons l_7 args_0))))))" " map_0))" "(define-values" "(for-each2)" @@ -2271,7 +1973,7 @@ static const char *startup_source = "(begin" " 'for-each" "(if(if(procedure? f_3)(if(procedure-arity-includes? f_3 1)(list? l_8) #f) #f)" -"((letrec-values(((loop_38)" +"((letrec-values(((loop_35)" "(lambda(l_9)" "(begin" " 'loop" @@ -2279,30 +1981,30 @@ static const char *startup_source = "(let-values()(void))" "(let-values()" "(let-values(((r_5)(cdr l_9)))" -"(begin(f_3(car l_9))(loop_38 r_5)))))))))" -" loop_38)" +"(begin(f_3(car l_9))(loop_35 r_5)))))))))" +" loop_35)" " l_8)" "(gen-for-each f_3(list l_8)))))" -"((f_4 l1_4 l2_4)" +"((f_4 l1_2 l2_2)" "(if(if(procedure? f_4)" "(if(procedure-arity-includes? f_4 2)" -"(if(list? l1_4)(if(list? l2_4)(=(length l1_4)(length l2_4)) #f) #f)" +"(if(list? l1_2)(if(list? l2_2)(=(length l1_2)(length l2_2)) #f) #f)" " #f)" " #f)" -"((letrec-values(((loop_39)" -"(lambda(l1_5 l2_5)" +"((letrec-values(((loop_36)" +"(lambda(l1_3 l2_3)" "(begin" " 'loop" -"(if(null? l1_5)" +"(if(null? l1_3)" "(let-values()(void))" "(let-values()" -"(let-values(((r1_1)(cdr l1_5))((r2_1)(cdr l2_5)))" -"(begin(f_4(car l1_5)(car l2_5))(loop_39 r1_1 r2_1)))))))))" -" loop_39)" -" l1_4" -" l2_4)" -"(gen-for-each f_4(list l1_4 l2_4))))" -"((f_5 l_10 . args_4)(gen-for-each f_5(cons l_10 args_4))))))" +"(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_10 . args_1)(gen-for-each f_5(cons l_10 args_1))))))" " for-each_0))" "(define-values" "(andmap2)" @@ -2314,7 +2016,7 @@ static const char *startup_source = "(if(if(procedure? f_6)(if(procedure-arity-includes? f_6 1)(list? l_11) #f) #f)" "(if(null? l_11)" " #t" -"((letrec-values(((loop_40)" +"((letrec-values(((loop_37)" "(lambda(l_12)" "(begin" " 'loop" @@ -2322,32 +2024,32 @@ static const char *startup_source = "(let-values()(f_6(car l_12)))" "(let-values()" "(let-values(((r_6)(cdr l_12)))" -"(if(f_6(car l_12))(loop_40 r_6) #f))))))))" -" loop_40)" +"(if(f_6(car l_12))(loop_37 r_6) #f))))))))" +" loop_37)" " l_11))" "(gen-andmap f_6(list l_11)))))" -"((f_7 l1_6 l2_6)" +"((f_7 l1_4 l2_4)" "(if(if(procedure? f_7)" "(if(procedure-arity-includes? f_7 2)" -"(if(list? l1_6)(if(list? l2_6)(=(length l1_6)(length l2_6)) #f) #f)" +"(if(list? l1_4)(if(list? l2_4)(=(length l1_4)(length l2_4)) #f) #f)" " #f)" " #f)" -"(if(null? l1_6)" +"(if(null? l1_4)" " #t" -"((letrec-values(((loop_41)" -"(lambda(l1_7 l2_7)" +"((letrec-values(((loop_38)" +"(lambda(l1_5 l2_5)" "(begin" " 'loop" -"(if(null?(cdr l1_7))" -"(let-values()(f_7(car l1_7)(car l2_7)))" +"(if(null?(cdr l1_5))" +"(let-values()(f_7(car l1_5)(car l2_5)))" "(let-values()" -"(let-values(((r1_2)(cdr l1_7))((r2_2)(cdr l2_7)))" -"(if(f_7(car l1_7)(car l2_7))(loop_41 r1_2 r2_2) #f))))))))" -" loop_41)" -" l1_6" -" l2_6))" -"(gen-andmap f_7(list l1_6 l2_6))))" -"((f_8 l_13 . args_5)(gen-andmap f_8(cons l_13 args_5))))))" +"(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_13 . args_2)(gen-andmap f_8(cons l_13 args_2))))))" " andmap_0))" "(define-values" "(ormap2)" @@ -2359,7 +2061,7 @@ static const char *startup_source = "(if(if(procedure? f_9)(if(procedure-arity-includes? f_9 1)(list? l_14) #f) #f)" "(if(null? l_14)" " #f" -"((letrec-values(((loop_42)" +"((letrec-values(((loop_39)" "(lambda(l_15)" "(begin" " 'loop" @@ -2367,34 +2069,34 @@ static const char *startup_source = "(let-values()(f_9(car l_15)))" "(let-values()" "(let-values(((r_7)(cdr l_15)))" -"(let-values(((or-part_27)(f_9(car l_15))))" -"(if or-part_27 or-part_27(loop_42 r_7))))))))))" -" loop_42)" +"(let-values(((or-part_21)(f_9(car l_15))))" +"(if or-part_21 or-part_21(loop_39 r_7))))))))))" +" loop_39)" " l_14))" "(gen-ormap f_9(list l_14)))))" -"((f_10 l1_8 l2_8)" +"((f_10 l1_6 l2_6)" "(if(if(procedure? f_10)" "(if(procedure-arity-includes? f_10 2)" -"(if(list? l1_8)(if(list? l2_8)(=(length l1_8)(length l2_8)) #f) #f)" +"(if(list? l1_6)(if(list? l2_6)(=(length l1_6)(length l2_6)) #f) #f)" " #f)" " #f)" -"(if(null? l1_8)" +"(if(null? l1_6)" " #f" -"((letrec-values(((loop_43)" -"(lambda(l1_9 l2_9)" +"((letrec-values(((loop_40)" +"(lambda(l1_7 l2_7)" "(begin" " 'loop" -"(if(null?(cdr l1_9))" -"(let-values()(f_10(car l1_9)(car l2_9)))" +"(if(null?(cdr l1_7))" +"(let-values()(f_10(car l1_7)(car l2_7)))" "(let-values()" -"(let-values(((r1_3)(cdr l1_9))((r2_3)(cdr l2_9)))" -"(let-values(((or-part_28)(f_10(car l1_9)(car l2_9))))" -"(if or-part_28 or-part_28(loop_43 r1_3 r2_3))))))))))" -" loop_43)" -" l1_8" -" l2_8))" -"(gen-ormap f_10(list l1_8 l2_8))))" -"((f_11 l_16 . args_6)(gen-ormap f_11(cons l_16 args_6))))))" +"(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_16 . args_3)(gen-ormap f_11(cons l_16 args_3))))))" " ormap_0))" "(define-values" "(check-args)" @@ -2402,7 +2104,7 @@ static const char *startup_source = "(begin" "(begin" " (if (procedure? f_12) (void) (let-values () (raise-argument-error who_5 \"procedure?\" f_12)))" -"((letrec-values(((loop_44)" +"((letrec-values(((loop_41)" "(lambda(prev-len_0 ls_5 i_20)" "(begin" " 'loop" @@ -2426,8 +2128,8 @@ static const char *startup_source = " \"procedure\"" " f_12))" "(void))" -"(loop_44 len_2(cdr ls_5)(add1 i_20))))))))))))" -" loop_44)" +"(loop_41 len_2(cdr ls_5)(add1 i_20))))))))))))" +" loop_41)" " #f" " ls_4" " 1)" @@ -2443,19 +2145,19 @@ static const char *startup_source = " \" the given number of lists\")" " \"given procedure\"" "(unquoted-printing-string" -"(let-values(((or-part_29)" -"(let-values(((n_15)(object-name f_12)))(if(symbol? n_15)(symbol->string n_15) #f))))" -" (if or-part_29 or-part_29 \"#\")))" +"(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 \"#\")))" "(append" -"(let-values(((a_15)(procedure-arity f_12)))" -"(if(integer? a_15)" -" (let-values () (list \"expected\" a_15))" -"(if(arity-at-least? a_15)" +"(let-values(((a_9)(procedure-arity f_12)))" +"(if(integer? a_9)" +" (let-values () (list \"expected\" a_9))" +"(if(arity-at-least? a_9)" "(let-values()" "(list" " \"expected\"" "(unquoted-printing-string" -" (string-append \"at least \" (number->string (arity-at-least-value a_15))))))" +" (string-append \"at least \" (number->string (arity-at-least-value a_9))))))" "(let-values() null))))" " (list \"given\" (length ls_4))" "(let-values(((w_0)(quotient(error-print-width)(length ls_4))))" @@ -2465,7 +2167,7 @@ static const char *startup_source = "(unquoted-printing-string" "(apply" " string-append" -"((letrec-values(((loop_45)" +"((letrec-values(((loop_42)" "(lambda(ls_6)" "(begin" " 'loop" @@ -2474,8 +2176,8 @@ static const char *startup_source = "(let-values()" "(cons" " (string-append \"\\n \" ((error-value->string-handler) (car ls_6) w_0))" -"(loop_45(cdr ls_6)))))))))" -" loop_45)" +"(loop_42(cdr ls_6)))))))))" +" loop_42)" " ls_4))))" " null))))))))))" "(define-values" @@ -2484,7 +2186,7 @@ static const char *startup_source = "(begin" "(begin" "(check-args 'map f_13 ls_7)" -"((letrec-values(((loop_46)" +"((letrec-values(((loop_43)" "(lambda(ls_8)" "(begin" " 'loop" @@ -2492,8 +2194,8 @@ static const char *startup_source = "(let-values() null)" "(let-values()" "(let-values(((next-ls_0)(map2 cdr ls_8)))" -"(cons(apply f_13(map2 car ls_8))(loop_46 next-ls_0)))))))))" -" loop_46)" +"(cons(apply f_13(map2 car ls_8))(loop_43 next-ls_0)))))))))" +" loop_43)" " ls_7)))))" "(define-values" "(gen-for-each)" @@ -2501,7 +2203,7 @@ static const char *startup_source = "(begin" "(begin" "(check-args 'for-each f_14 ls_9)" -"((letrec-values(((loop_47)" +"((letrec-values(((loop_44)" "(lambda(ls_10)" "(begin" " 'loop" @@ -2509,8 +2211,8 @@ static const char *startup_source = "(void)" "(let-values()" "(let-values(((next-ls_1)(map2 cdr ls_10)))" -"(begin(apply f_14(map2 car ls_10))(loop_47 next-ls_1)))))))))" -" loop_47)" +"(begin(apply f_14(map2 car ls_10))(loop_44 next-ls_1)))))))))" +" loop_44)" " ls_9)))))" "(define-values" "(gen-andmap)" @@ -2518,7 +2220,7 @@ static const char *startup_source = "(begin" "(begin" "(check-args 'andmap f_15 ls_11)" -"((letrec-values(((loop_48)" +"((letrec-values(((loop_45)" "(lambda(ls_12)" "(begin" " 'loop" @@ -2528,8 +2230,8 @@ static const char *startup_source = "(let-values()(apply f_15(map2 car ls_12)))" "(let-values()" "(let-values(((next-ls_2)(map2 cdr ls_12)))" -"(if(apply f_15(map2 car ls_12))(loop_48 next-ls_2) #f)))))))))" -" loop_48)" +"(if(apply f_15(map2 car ls_12))(loop_45 next-ls_2) #f)))))))))" +" loop_45)" " ls_11)))))" "(define-values" "(gen-ormap)" @@ -2537,7 +2239,7 @@ static const char *startup_source = "(begin" "(begin" "(check-args 'ormap f_16 ls_13)" -"((letrec-values(((loop_49)" +"((letrec-values(((loop_46)" "(lambda(ls_14)" "(begin" " 'loop" @@ -2547,22 +2249,22 @@ static const char *startup_source = "(let-values()(apply f_16(map2 car ls_14)))" "(let-values()" "(let-values(((next-ls_3)(map2 cdr ls_14)))" -"(let-values(((or-part_30)(apply f_16(map2 car ls_14))))" -"(if or-part_30 or-part_30(loop_49 next-ls_3)))))))))))" -" loop_49)" +"(let-values(((or-part_24)(apply f_16(map2 car ls_14))))" +"(if or-part_24 or-part_24(loop_46 next-ls_3)))))))))))" +" loop_46)" " ls_13)))))" "(define-values" "(hash-keys)" "(lambda(h_0)" "(begin" -"((letrec-values(((loop_11)" +"((letrec-values(((loop_8)" "(lambda(pos_0)" "(begin" " 'loop" "(if pos_0" -"(cons(hash-iterate-key h_0 pos_0)(loop_11(hash-iterate-next h_0 pos_0)))" +"(cons(hash-iterate-key h_0 pos_0)(loop_8(hash-iterate-next h_0 pos_0)))" " null)))))" -" loop_11)" +" loop_8)" "(hash-iterate-first h_0)))))" "(define-values" "(sort7.1)" @@ -2588,7 +2290,7 @@ static const char *startup_source = " (lambda (who_6 orig-l_7) (begin (raise-mismatch-error who_6 \"not a proper list: \" orig-l_7))))" "(define-values" "(bad-item)" -" (lambda (who_7 a_16 orig-l_8) (begin (raise-mismatch-error who_7 \"non-pair found in list: \" a_16 \" in \" orig-l_8))))" +" (lambda (who_7 a_10 orig-l_8) (begin (raise-mismatch-error who_7 \"non-pair found in list: \" a_10 \" in \" orig-l_8))))" "(define-values" "(1/assq 1/assv 1/assoc assf)" "(let-values()" @@ -2597,7 +2299,7 @@ static const char *startup_source = "(lambda(x_9 l_18)" "(begin" " 'assq" -"((letrec-values(((loop_49)" +"((letrec-values(((loop_46)" "(lambda(l_19 t_0)" "(begin" " 'loop" @@ -2610,16 +2312,16 @@ static const char *startup_source = "(let-values(((l_20)(unsafe-cdr l_19)))" "(if(pair? l_20)" "(let-values()" -"(let-values(((a_17)(unsafe-car l_20)))" -"(if(pair? a_17)" -"(if(eq? x_9(unsafe-car a_17))" -" a_17" +"(let-values(((a_11)(unsafe-car l_20)))" +"(if(pair? a_11)" +"(if(eq? x_9(unsafe-car a_11))" +" a_11" "(let-values(((t_1)(unsafe-cdr t_0))" "((l_21)(unsafe-cdr l_20)))" "(if(eq? l_21 t_1)" "(bad-list 'assq l_18)" -"(loop_49 l_21 t_1))))" -"(bad-item 'assq a_17 l_18))))" +"(loop_46 l_21 t_1))))" +"(bad-item 'assq a_11 l_18))))" "(if(null? l_20)" "(let-values() #f)" "(let-values()(bad-list 'assq l_18))))))" @@ -2627,44 +2329,44 @@ static const char *startup_source = "(if(null? l_19)" "(let-values() #f)" "(let-values()(bad-list 'assq l_18))))))))" -" loop_49)" +" loop_46)" " l_18" " l_18))))" "((assv_0)" "(lambda(x_10 l_22)" "(begin" " 'assv" -"((letrec-values(((loop_50)" +"((letrec-values(((loop_47)" "(lambda(l_23 t_2)" "(begin" " 'loop" "(if(pair? l_23)" "(let-values()" -"(let-values(((a_18)(unsafe-car l_23)))" -"(if(pair? a_18)" -"(if(eqv? x_10(unsafe-car a_18))" -" a_18" +"(let-values(((a_12)(unsafe-car l_23)))" +"(if(pair? a_12)" +"(if(eqv? x_10(unsafe-car a_12))" +" a_12" "(let-values(((l_24)(unsafe-cdr l_23)))" "(if(pair? l_24)" "(let-values()" -"(let-values(((a_19)(unsafe-car l_24)))" -"(if(pair? a_19)" -"(if(eqv? x_10(unsafe-car a_19))" -" a_19" +"(let-values(((a_13)(unsafe-car l_24)))" +"(if(pair? a_13)" +"(if(eqv? x_10(unsafe-car a_13))" +" a_13" "(let-values(((t_3)(unsafe-cdr t_2))" "((l_25)(unsafe-cdr l_24)))" "(if(eq? l_25 t_3)" "(bad-list 'assv l_22)" -"(loop_50 l_25 t_3))))" -"(bad-item 'assv a_19 l_22))))" +"(loop_47 l_25 t_3))))" +"(bad-item 'assv a_13 l_22))))" "(if(null? l_24)" "(let-values() #f)" "(let-values()(bad-list 'assv l_22))))))" -"(bad-item 'assv a_18 l_22))))" +"(bad-item 'assv a_12 l_22))))" "(if(null? l_23)" "(let-values() #f)" "(let-values()(bad-list 'assv l_22))))))))" -" loop_50)" +" loop_47)" " l_22" " l_22))))" "((assoc_0)" @@ -2672,37 +2374,37 @@ static const char *startup_source = "((x_11 l_26)" "(begin" " 'assoc" -"((letrec-values(((loop_51)" +"((letrec-values(((loop_48)" "(lambda(l_27 t_4)" "(begin" " 'loop" "(if(pair? l_27)" "(let-values()" -"(let-values(((a_20)(unsafe-car l_27)))" -"(if(pair? a_20)" -"(if(equal? x_11(unsafe-car a_20))" -" a_20" +"(let-values(((a_14)(unsafe-car l_27)))" +"(if(pair? a_14)" +"(if(equal? x_11(unsafe-car a_14))" +" a_14" "(let-values(((l_28)(unsafe-cdr l_27)))" "(if(pair? l_28)" "(let-values()" -"(let-values(((a_21)(unsafe-car l_28)))" -"(if(pair? a_21)" -"(if(equal? x_11(unsafe-car a_21))" -" a_21" +"(let-values(((a_15)(unsafe-car l_28)))" +"(if(pair? a_15)" +"(if(equal? x_11(unsafe-car a_15))" +" a_15" "(let-values(((t_5)(unsafe-cdr t_4))" "((l_29)(unsafe-cdr l_28)))" "(if(eq? l_29 t_5)" "(bad-list 'assoc l_26)" -"(loop_51 l_29 t_5))))" -"(bad-item 'assoc a_21 l_26))))" +"(loop_48 l_29 t_5))))" +"(bad-item 'assoc a_15 l_26))))" "(if(null? l_28)" "(let-values() #f)" "(let-values()(bad-list 'assoc l_26))))))" -"(bad-item 'assoc a_20 l_26))))" +"(bad-item 'assoc a_14 l_26))))" "(if(null? l_27)" "(let-values() #f)" "(let-values()(bad-list 'assoc l_26))))))))" -" loop_51)" +" loop_48)" " l_26" " l_26)))" "((x_12 l_30 is-equal?_0)" @@ -2710,37 +2412,37 @@ static const char *startup_source = "(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_52)" +"((letrec-values(((loop_49)" "(lambda(l_31 t_6)" "(begin" " 'loop" "(if(pair? l_31)" "(let-values()" -"(let-values(((a_22)(unsafe-car l_31)))" -"(if(pair? a_22)" -"(if(is-equal?_0 x_12(unsafe-car a_22))" -" a_22" +"(let-values(((a_16)(unsafe-car l_31)))" +"(if(pair? a_16)" +"(if(is-equal?_0 x_12(unsafe-car a_16))" +" a_16" "(let-values(((l_32)(unsafe-cdr l_31)))" "(if(pair? l_32)" "(let-values()" -"(let-values(((a_23)(unsafe-car l_32)))" -"(if(pair? a_23)" -"(if(is-equal?_0 x_12(unsafe-car a_23))" -" a_23" +"(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(((t_7)(unsafe-cdr t_6))" "((l_33)(unsafe-cdr l_32)))" "(if(eq? l_33 t_7)" "(bad-list 'assoc l_30)" -"(loop_52 l_33 t_7))))" -"(bad-item 'assoc a_23 l_30))))" +"(loop_49 l_33 t_7))))" +"(bad-item 'assoc a_17 l_30))))" "(if(null? l_32)" "(let-values() #f)" "(let-values()(bad-list 'assoc l_30))))))" -"(bad-item 'assoc a_22 l_30))))" +"(bad-item 'assoc a_16 l_30))))" "(if(null? l_31)" "(let-values() #f)" "(let-values()(bad-list 'assoc l_30))))))))" -" loop_52)" +" loop_49)" " l_30" " l_30)))))" "((assf_0)" @@ -2751,39 +2453,39 @@ static const char *startup_source = "(if(if(procedure? f_17)(procedure-arity-includes? f_17 1) #f)" "(void)" " (let-values () (raise-argument-error 'assf \"(any/c any/c . -> . any/c)\" f_17)))" -"((letrec-values(((loop_53)" +"((letrec-values(((loop_50)" "(lambda(l_35 t_8)" "(begin" " 'loop" "(if(pair? l_35)" "(let-values()" -"(let-values(((a_24)(unsafe-car l_35)))" -"(if(pair? a_24)" -"(if((lambda(__0 a_25)(f_17 a_25)) #f(unsafe-car a_24))" -" a_24" +"(let-values(((a_18)(unsafe-car l_35)))" +"(if(pair? a_18)" +"(if((lambda(__0 a_19)(f_17 a_19)) #f(unsafe-car a_18))" +" a_18" "(let-values(((l_36)(unsafe-cdr l_35)))" "(if(pair? l_36)" "(let-values()" -"(let-values(((a_26)(unsafe-car l_36)))" -"(if(pair? a_26)" -"(if((lambda(__1 a_27)(f_17 a_27))" +"(let-values(((a_20)(unsafe-car l_36)))" +"(if(pair? a_20)" +"(if((lambda(__1 a_21)(f_17 a_21))" " #f" -"(unsafe-car a_26))" -" a_26" +"(unsafe-car a_20))" +" a_20" "(let-values(((t_9)(unsafe-cdr t_8))" "((l_37)(unsafe-cdr l_36)))" "(if(eq? l_37 t_9)" "(bad-list 'assf l_34)" -"(loop_53 l_37 t_9))))" -"(bad-item 'assf a_26 l_34))))" +"(loop_50 l_37 t_9))))" +"(bad-item 'assf a_20 l_34))))" "(if(null? l_36)" "(let-values() #f)" "(let-values()(bad-list 'assf l_34))))))" -"(bad-item 'assf a_24 l_34))))" +"(bad-item 'assf a_18 l_34))))" "(if(null? l_35)" "(let-values() #f)" "(let-values()(bad-list 'assf l_34))))))))" -" loop_53)" +" loop_50)" " l_34" " l_34))))))" "(values assq_0 assv_0 assoc_0 assf_0)))))" @@ -2796,14 +2498,14 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'filter \"(any/c . -> . any/c)\" f_18)))" " (if (list? list_0) (void) (let-values () (raise-argument-error 'filter \"list?\" list_0)))" -"((letrec-values(((loop_54)" +"((letrec-values(((loop_51)" "(lambda(l_38 result_0)" "(begin" " 'loop" "(if(null? l_38)" "(reverse$1 result_0)" -"(loop_54(cdr l_38)(if(f_18(car l_38))(cons(car l_38) result_0) result_0)))))))" -" loop_54)" +"(loop_51(cdr l_38)(if(f_18(car l_38))(cons(car l_38) result_0) result_0)))))))" +" loop_51)" " list_0" " null)))))" "(define-values(no-empty-edge-table)(make-hash))" @@ -2831,41 +2533,41 @@ static const char *startup_source = "(begin" " 'with-input-from-file45" "(let-values(((path_1) path43_0))" -"(let-values(((proc_2) proc44_0))" +"(let-values(((proc_0) proc44_0))" "(let-values(((mode_1)(if mode42_0 mode41_0 'binary)))" "(let-values()" "(begin" "(if(path-string? path_1)" "(void)" " (let-values () (raise-argument-error 'with-input-from-file \"path-string?\" path_1)))" -"(if(if(procedure? proc_2)(procedure-arity-includes? proc_2 0) #f)" +"(if(if(procedure? proc_0)(procedure-arity-includes? proc_0 0) #f)" "(void)" -" (let-values () (raise-argument-error 'with-input-from-file \"(-> any)\" proc_2)))" +" (let-values () (raise-argument-error 'with-input-from-file \"(-> any)\" proc_0)))" "(if(memq mode_1 '(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_2 mode_1)))))))))" +"(with-input-from-file path_1 proc_0 mode_1)))))))))" "(define-values" "(call-with-input-file*61.1)" "(lambda(mode57_0 mode58_0 path59_0 proc60_0)" "(begin" " 'call-with-input-file*61" "(let-values(((path_2) path59_0))" -"(let-values(((proc_3) proc60_0))" +"(let-values(((proc_1) proc60_0))" "(let-values(((mode_2)(if mode58_0 mode57_0 'binary)))" "(let-values()" "(begin" "(if(path-string? path_2)" "(void)" " (let-values () (raise-argument-error 'call-with-input-file* \"path-string?\" path_2)))" -"(if(if(procedure? proc_3)(procedure-arity-includes? proc_3 1) #f)" +"(if(if(procedure? proc_1)(procedure-arity-includes? proc_1 1) #f)" "(void)" -" (let-values () (raise-argument-error 'call-with-input-file* \"(input-port? . -> . any)\" proc_3)))" +" (let-values () (raise-argument-error 'call-with-input-file* \"(input-port? . -> . any)\" proc_1)))" "(if(memq mode_2 '(binary text))" "(void)" "(let-values()(raise-argument-error 'call-with-input-file* binary-or-text-desc mode_2)))" -"(let-values(((p_6)(open-input-file path_2 mode_2)))" -"(dynamic-wind void(lambda()(proc_3 p_6))(lambda()(close-input-port p_6))))))))))))" +"(let-values(((p_2)(open-input-file path_2 mode_2)))" +"(dynamic-wind void(lambda()(proc_1 p_2))(lambda()(close-input-port p_2))))))))))))" "(define-values(the-empty-hash) '#hash())" "(define-values(the-empty-hasheq) '#hasheq())" "(define-values(the-empty-hasheqv) '#hasheqv())" @@ -2928,8 +2630,8 @@ static const char *startup_source = "(set=?)" "(lambda(s1_1 s2_1)" "(begin" -"(let-values(((or-part_31)(eq? s1_1 s2_1)))" -"(if or-part_31 or-part_31(if(=(hash-count s1_1)(hash-count s2_1))(hash-keys-subset? s1_1 s2_1) #f))))))" +"(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))))))" "(define-values" "(set-subtract)" "(lambda(s1_2 s2_2)" @@ -3026,23 +2728,23 @@ static const char *startup_source = "(void)" "(let-values()(check-in-immutable-hash-keys ht_20)))" "((letrec-values(((for-loop_5)" -"(lambda(y_6 n_16 i_24)" +"(lambda(y_6 n_14 i_24)" "(begin" " 'for-loop" "(if i_24" -"(let-values(((v_28)(unsafe-immutable-hash-iterate-key ht_20 i_24)))" -"(let-values(((y_7 n_17)" -"(let-values(((y_8) y_6)((n_18) n_16))" -"(let-values(((y_9 n_19)" +"(let-values(((v_25)(unsafe-immutable-hash-iterate-key ht_20 i_24)))" +"(let-values(((y_7 n_15)" +"(let-values(((y_8) y_6)((n_16) n_14))" +"(let-values(((y_9 n_17)" "(let-values()" -"(if(pred_0 v_28)" -"(values(set-add y_8 v_28) n_18)" -"(values y_8(set-add n_18 v_28))))))" -"(values y_9 n_19)))))" +"(if(pred_0 v_25)" +"(values(set-add y_8 v_25) n_16)" +"(values y_8(set-add n_16 v_25))))))" +"(values y_9 n_17)))))" "(if(not #f)" -"(for-loop_5 y_7 n_17(unsafe-immutable-hash-iterate-next ht_20 i_24))" -"(values y_7 n_17))))" -"(values y_6 n_16))))))" +"(for-loop_5 y_7 n_15(unsafe-immutable-hash-iterate-next ht_20 i_24))" +"(values y_7 n_15))))" +"(values y_6 n_14))))))" " for-loop_5)" " empty-y-set_0" " empty-n-set_0" @@ -3143,51 +2845,51 @@ static const char *startup_source = "(make-struct-type-property 'binding-reach-scopes))" "(define-values" "(1/module-path?)" -"(lambda(v_29)" +"(lambda(v_26)" "(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_0)(if(pair? v_26)(if(eq?(car v_26) 'submod)(submodule-module-path? v_26) #f) #f)))" +"(if or-part_0 or-part_0(root-module-path? v_26))))))" "(define-values" "(root-module-path?)" -"(lambda(v_30)" +"(lambda(v_27)" "(begin" -"(let-values(((or-part_11)(path? v_30)))" +"(let-values(((or-part_11)(path? v_27)))" "(if or-part_11" " or-part_11" -"(let-values(((or-part_2)(if(string? v_30)(string-module-path? v_30) #f)))" +"(let-values(((or-part_2)(if(string? v_27)(string-module-path? v_27) #f)))" "(if or-part_2" " or-part_2" -"(let-values(((or-part_32)(if(symbol? v_30)(symbol-module-path? v_30) #f)))" -"(if or-part_32" -" or-part_32" -"(if(pair? v_30)" -"(let-values(((tmp_5)(car v_30)))" -"(if(equal? tmp_5 'quote)" -"(let-values()(if(pair?(cdr v_30))(if(symbol?(cadr v_30))(null?(cddr v_30)) #f) #f))" -"(if(equal? tmp_5 'lib)" -"(let-values()(lib-module-path? v_30))" -"(if(equal? tmp_5 'file)" +"(let-values(((or-part_26)(if(symbol? v_27)(symbol-module-path? v_27) #f)))" +"(if or-part_26" +" or-part_26" +"(if(pair? v_27)" +"(let-values(((tmp_4)(car v_27)))" +"(if(equal? tmp_4 'quote)" +"(let-values()(if(pair?(cdr v_27))(if(symbol?(cadr v_27))(null?(cddr v_27)) #f) #f))" +"(if(equal? tmp_4 'lib)" +"(let-values()(lib-module-path? v_27))" +"(if(equal? tmp_4 '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_27))" +"(if(string?(cadr v_27))(if(path-string?(cadr v_27))(null?(cddr v_27)) #f) #f)" " #f))" -"(if(equal? tmp_5 'planet)" -"(let-values()(planet-module-path? v_30))" +"(if(equal? tmp_4 'planet)" +"(let-values()(planet-module-path? v_27))" "(let-values() #f))))))" " #f))))))))))" "(define-values" "(submodule-module-path?)" -"(lambda(v_31)" +"(lambda(v_28)" "(begin" -"(if(pair?(cdr v_31))" -"(if(list? v_31)" -" (if (let-values (((or-part_33) (equal? (cadr v_31) \"..\")))" -"(if or-part_33" -" or-part_33" -" (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_28))" +"(if(list? v_28)" +" (if (let-values (((or-part_27) (equal? (cadr v_28) \"..\")))" +"(if or-part_27" +" or-part_27" +" (let-values (((or-part_10) (equal? (cadr v_28) \".\")))" +"(if or-part_10 or-part_10(root-module-path?(cadr v_28))))))" +"(let-values(((lst_15)(cddr v_28)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_15)))" "((letrec-values(((for-loop_9)" @@ -3201,10 +2903,10 @@ static const char *startup_source = "(let-values(((result_3)" "(let-values()" "(let-values()" -"(let-values(((or-part_34)" +"(let-values(((or-part_28)" " (equal? e_7 \"..\")))" -"(if or-part_34" -" or-part_34" +"(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)" @@ -3219,81 +2921,81 @@ static const char *startup_source = " #f))))" "(define-values" "(string-module-path?)" -"(lambda(v_32)" +"(lambda(v_29)" "(begin" -"(let-values(((temp14_0) #t)((temp15_0) #t)((temp16_0) #t))" -"(module-path-string?10.1 temp14_0 #t temp16_0 #t #f #f temp15_0 #t v_32)))))" +"(let-values(((v13_0) v_29)((temp14_0) #t)((temp15_0) #t)((temp16_0) #t))" +"(module-path-string?10.1 temp14_0 #t temp16_0 #t #f #f temp15_0 #t v13_0)))))" "(define-values" "(symbol-module-path?)" -"(lambda(v_33)" +"(lambda(v_30)" "(begin" -"(let-values(((temp17_0)(symbol->string v_33)))(module-path-string?10.1 #f #f #f #f #f #f #f #f temp17_0)))))" +"(let-values(((temp17_0)(symbol->string v_30)))(module-path-string?10.1 #f #f #f #f #f #f #f #f temp17_0)))))" "(define-values" "(lib-module-path?)" -"(lambda(v_34)" +"(lambda(v_31)" "(begin" -"(if(list? v_34)" -"(if(pair?(cdr v_34))" -"((letrec-values(((loop_55)" -"(lambda(v_35 first?_0)" +"(if(list? v_31)" +"(if(pair?(cdr v_31))" +"((letrec-values(((loop_52)" +"(lambda(v_32 first?_0)" "(begin" " 'loop" -"(let-values(((or-part_35)(null? v_35)))" -"(if or-part_35" -" or-part_35" -"(if(string?(car v_35))" -"(if(let-values(((temp18_0)(car v_35))" +"(let-values(((or-part_29)(null? v_32)))" +"(if or-part_29" +" or-part_29" +"(if(string?(car v_32))" +"(if(let-values(((temp18_0)(car v_32))" "((first?19_0) first?_0)" "((first?20_0) first?_0))" "(module-path-string?10.1 #f #f first?20_0 #t #f #f first?19_0 #t temp18_0))" -"(loop_55(cdr v_35) #f)" +"(loop_52(cdr v_32) #f)" " #f)" " #f)))))))" -" loop_55)" -"(cdr v_34)" +" loop_52)" +"(cdr v_31)" " #t)" " #f)" " #f))))" "(define-values" "(planet-module-path?)" -"(lambda(v_36)" +"(lambda(v_33)" "(begin" -"(if(list? v_36)" -"(let-values(((tmp_6)(length v_36)))" -"(if(equal? tmp_6 1)" +"(if(list? v_33)" +"(let-values(((tmp_5)(length v_33)))" +"(if(equal? tmp_5 1)" "(let-values() #f)" -"(if(equal? tmp_6 2)" +"(if(equal? tmp_5 2)" "(let-values()" -"(let-values(((e_8)(cadr v_36)))" +"(let-values(((e_8)(cadr v_33)))" "(if(string? e_8)" "(let-values()" -"(let-values(((temp22_0) #t)((temp23_0) #t))" -"(module-path-string?10.1 #f #f temp23_0 #t temp22_0 #t #f #f e_8)))" +"(let-values(((e21_0) e_8)((temp22_0) #t)((temp23_0) #t))" +"(module-path-string?10.1 #f #f temp23_0 #t temp22_0 #t #f #f e21_0)))" "(if(symbol? e_8)" "(let-values()" "(let-values(((temp24_0)(symbol->string e_8))((temp25_0) #t))" "(module-path-string?10.1 #f #f #f #f temp25_0 #t #f #f temp24_0)))" "(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)))" +"(let-values(((file_0)(cadr v_33)))" +"(let-values(((pkg_0)(caddr v_33)))" +"(let-values(((subs_0)(cdddr v_33)))" "(if file_0" -"(if(let-values(((temp27_0) #t)((temp28_0) #t))" -"(module-path-string?10.1 #f #f temp28_0 #t #f #f temp27_0 #t file_0))" +"(if(let-values(((file26_0) file_0)((temp27_0) #t)((temp28_0) #t))" +"(module-path-string?10.1 #f #f temp28_0 #t #f #f temp27_0 #t 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_36)(null?(cddr pkg_0))))" -"(if or-part_36" -" or-part_36" -"(let-values(((or-part_37)(planet-version-number?(caddr pkg_0))))" -"(if or-part_37" -" or-part_37" -"(let-values(((or-part_38)(null?(cddr pkg_0))))" -"(if or-part_38" -" or-part_38" +"(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_21)(null?(cddr pkg_0))))" +"(if or-part_21" +" or-part_21" "(planet-version-minor-spec?(cadddr pkg_0))))))))" " #f)" " #f)" @@ -3342,21 +3044,21 @@ static const char *startup_source = " #f)" " #f))))))))" " #f))))" -"(define-values(planet-version-number?)(lambda(v_37)(begin(exact-nonnegative-integer? v_37))))" +"(define-values(planet-version-number?)(lambda(v_34)(begin(exact-nonnegative-integer? v_34))))" "(define-values" "(planet-version-minor-spec?)" -"(lambda(v_38)" +"(lambda(v_35)" "(begin" -"(let-values(((or-part_39)(planet-version-number? v_38)))" -"(if or-part_39" -" or-part_39" -"(if(pair? v_38)" -"(if(list? v_38)" -"(if(= 2(length v_38))" -"(let-values(((tmp_7)(car v_38)))" -"(if(if(equal? tmp_7 '=) #t(if(equal? tmp_7 '+) #t(equal? tmp_7 '-)))" -"(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_32)(planet-version-number? v_35)))" +"(if or-part_32" +" or-part_32" +"(if(pair? v_35)" +"(if(list? v_35)" +"(if(= 2(length v_35))" +"(let-values(((tmp_6)(car v_35)))" +"(if(if(equal? tmp_6 '=) #t(if(equal? tmp_6 '+) #t(equal? tmp_6 '-)))" +"(let-values()(planet-version-number?(cadr v_35)))" +"(let-values()(if(planet-version-number?(car v_35))(planet-version-number?(cadr v_35)) #f))))" " #f)" " #f)" " #f))))))" @@ -3373,135 +3075,135 @@ static const char *startup_source = " v9_0)" "(begin" " 'module-path-string?10" -"(let-values(((v_39) v9_0))" +"(let-values(((v_36) v9_0))" "(let-values(((for-planet?_0)(if for-planet?5_0 for-planet?1_0 #f)))" "(let-values(((dots-dir-ok?_0)(if dots-dir-ok?6_0 dots-dir-ok?2_0 #f)))" "(let-values(((just-file-ok?_0)(if just-file-ok?7_0 just-file-ok?3_0 #f)))" "(let-values(((file-end-ok?_0)(if file-end-ok?8_0 file-end-ok?4_0 #f)))" "(let-values()" -"(let-values(((len_3)(string-length v_39)))" +"(let-values(((len_3)(string-length v_36)))" "(if(positive? len_3)" -"(if(not(char=? '#\\/(string-ref v_39 0)))" -"(if(not(char=? '#\\/(string-ref v_39(sub1 len_3))))" +"(if(not(char=? '#\\/(string-ref v_36 0)))" +"(if(not(char=? '#\\/(string-ref v_36(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 for-planet?_0(check-planet-part v_36 len_3)(values 0 0))))" "(if start-package-version-pos_0" -"((letrec-values(((loop_56)" +"((letrec-values(((loop_53)" "(lambda(i_26 prev-was-slash?_0 saw-slash?_0 saw-dot?_0)" "(begin" " 'loop" "(if(not(zero? i_26))" "(let-values()" -"(let-values(((c_6)(string-ref v_39 i_26)))" +"(let-values(((c_6)(string-ref v_36 i_26)))" "(if(char=? c_6 '#\\/)" "(let-values()" "(if(not prev-was-slash?_0)" -"(loop_56(sub1 i_26) #t #t saw-dot?_0)" +"(loop_53(sub1 i_26) #t #t saw-dot?_0)" " #f))" "(if(char=? c_6 '#\\.)" "(let-values()" "(if(if(<(add1 i_26) len_3)" "(if(not" -"(char=?(string-ref v_39(add1 i_26)) '#\\/))" +"(char=?(string-ref v_36(add1 i_26)) '#\\/))" "(not" -"(char=?(string-ref v_39(add1 i_26)) '#\\.))" +"(char=?(string-ref v_36(add1 i_26)) '#\\.))" " #f)" " #f)" "(if(not saw-slash?_0)" -"(loop_56(sub1 i_26) #f saw-slash?_0 #t)" +"(loop_53(sub1 i_26) #f saw-slash?_0 #t)" " #f)" -"(loop_56(sub1 i_26) #f saw-slash?_0 saw-dot?_0)))" -"(if(let-values(((or-part_40)(plain-char? c_6)))" -"(if or-part_40" -" or-part_40" +"(loop_53(sub1 i_26) #f saw-slash?_0 saw-dot?_0)))" +"(if(let-values(((or-part_33)(plain-char? c_6)))" +"(if or-part_33" +" or-part_33" "(if(char=? c_6 '#\\%)" "(if(<(+ i_26 2) len_3)" -"(hex-sequence? v_39(add1 i_26))" +"(hex-sequence? v_36(add1 i_26))" " #f)" " #f)))" "(let-values()" -"(loop_56(sub1 i_26) #f saw-slash?_0 saw-dot?_0))" +"(loop_53(sub1 i_26) #f saw-slash?_0 saw-dot?_0))" "(if(if(>= i_26 start-package-version-pos_0)" "(< i_26 end-package-version-pos_0)" " #f)" "(let-values()" -"(loop_56(sub1 i_26) #f saw-slash?_0 saw-dot?_0))" +"(loop_53(sub1 i_26) #f saw-slash?_0 saw-dot?_0))" "(let-values() #f)))))))" "(let-values()" "(if(not" "(if(not just-file-ok?_0)" "(if saw-dot?_0(not saw-slash?_0) #f)" " #f))" -"(let-values(((or-part_41) dots-dir-ok?_0))" -"(if or-part_41" -" or-part_41" -"((letrec-values(((loop_57)" +"(let-values(((or-part_34) dots-dir-ok?_0))" +"(if or-part_34" +" or-part_34" +"((letrec-values(((loop_54)" "(lambda(i_27)" "(begin" " 'loop" "(if(= i_27 len_3)" "(let-values() #t)" "(if(char=?" -"(string-ref v_39 i_27)" +"(string-ref v_36 i_27)" " '#\\.)" "(let-values()" "(if(not" -"(let-values(((or-part_42)" +"(let-values(((or-part_35)" "(=" " len_3" "(add1" " i_27))))" -"(if or-part_42" -" or-part_42" +"(if or-part_35" +" or-part_35" "(char=?" "(string-ref" -" v_39" +" v_36" "(add1 i_27))" " '#\\/))))" "(if(not" "(if(char=?" "(string-ref" -" v_39" +" v_36" "(add1 i_27))" " '#\\.)" -"(let-values(((or-part_43)" +"(let-values(((or-part_36)" "(=" " len_3" "(+" " i_27" " 2))))" -"(if or-part_43" -" or-part_43" +"(if or-part_36" +" or-part_36" "(char=?" "(string-ref" -" v_39" +" v_36" "(+ i_27 2))" " '#\\/)))" " #f))" -"(loop_57" -"((letrec-values(((loop_58)" +"(loop_54" +"((letrec-values(((loop_46)" "(lambda(i_28)" "(begin" " 'loop" "(if(char=?" " '#\\." "(string-ref" -" v_39" +" v_36" " i_28))" -"(loop_58" +"(loop_46" "(add1" " i_28))" " i_28)))))" -" loop_58)" +" loop_46)" " i_27))" " #f)" " #f))" "(let-values()" -"(loop_57(add1 i_27)))))))))" -" loop_57)" +"(loop_54(add1 i_27)))))))))" +" loop_54)" " 0)))" " #f)))))))" -" loop_56)" +" loop_53)" "(sub1 len_3)" " #f" "(not file-end-ok?_0)" @@ -3512,13 +3214,13 @@ static const char *startup_source = " #f)))))))))))" "(define-values" "(planet-user/pkg-string?)" -"(lambda(v_40)" +"(lambda(v_37)" "(begin" -"(if(string? v_40)" -"(let-values(((len_4)(string-length v_40)))" +"(if(string? v_37)" +"(let-values(((len_4)(string-length v_37)))" "(if(positive? len_4)" "(let-values(((vec_11 len_5)" -"(let-values(((vec_12) v_40))" +"(let-values(((vec_12) v_37))" "(begin(check-string vec_12)(values vec_12(unsafe-string-length vec_12)))))" "((start_6) 0))" "(begin" @@ -3537,17 +3239,17 @@ static const char *startup_source = "(let-values(((result_9)" "(let-values()" "(let-values()" -"(let-values(((or-part_44)" +"(let-values(((or-part_37)" "(plain-char? c_7)))" -"(if or-part_44" -" or-part_44" -"(let-values(((or-part_45)" +"(if or-part_37" +" or-part_37" +"(let-values(((or-part_38)" "(char=? '#\\. c_7)))" -"(if or-part_45" -" or-part_45" +"(if or-part_38" +" or-part_38" "(if(char=? '#\\% c_7)" "(if(< i_29(- len_4 2))" -"(hex-sequence? v_40(add1 i_29))" +"(hex-sequence? v_37(add1 i_29))" " #f)" " #f)))))))))" "(values result_9)))))" @@ -3567,20 +3269,20 @@ static const char *startup_source = "(plain-char?)" "(lambda(c_8)" "(begin" -"(let-values(((or-part_46)(char<=? '#\\a c_8 '#\\z)))" -"(if or-part_46" -" or-part_46" -"(let-values(((or-part_47)(char<=? '#\\A c_8 '#\\Z)))" -"(if or-part_47" -" or-part_47" -"(let-values(((or-part_48)(char<=? '#\\0 c_8 '#\\9)))" -"(if or-part_48" -" or-part_48" -"(let-values(((or-part_49)(char=? '#\\- c_8)))" -"(if or-part_49" -" or-part_49" -"(let-values(((or-part_50)(char=? '#\\_ c_8)))" -"(if or-part_50 or-part_50(char=? '#\\+ c_8))))))))))))))" +"(let-values(((or-part_39)(char<=? '#\\a c_8 '#\\z)))" +"(if or-part_39" +" or-part_39" +"(let-values(((or-part_40)(char<=? '#\\A c_8 '#\\Z)))" +"(if or-part_40" +" or-part_40" +"(let-values(((or-part_41)(char<=? '#\\0 c_8 '#\\9)))" +"(if or-part_41" +" or-part_41" +"(let-values(((or-part_42)(char=? '#\\- c_8)))" +"(if or-part_42" +" or-part_42" +"(let-values(((or-part_43)(char=? '#\\_ c_8)))" +"(if or-part_43 or-part_43(char=? '#\\+ c_8))))))))))))))" "(define-values" "(hex-sequence?)" "(lambda(s_32 i_30)" @@ -3596,7 +3298,7 @@ static const char *startup_source = "(define-values" "(hex-char?)" "(lambda(c_10)" -"(begin(let-values(((or-part_51)(char<=? '#\\a c_10 '#\\f)))(if or-part_51 or-part_51(char<=? '#\\0 c_10 '#\\9))))))" +"(begin(let-values(((or-part_44)(char<=? '#\\a c_10 '#\\f)))(if or-part_44 or-part_44(char<=? '#\\0 c_10 '#\\9))))))" "(define-values" "(hex-char->integer)" "(lambda(c_11)" @@ -3608,10 +3310,10 @@ static const char *startup_source = "(let-values()(-(char->integer c_11)(char->integer '#\\0))))))))" "(define-values" "(check-planet-part)" -"(lambda(v_41 len_6)" +"(lambda(v_38 len_6)" "(begin" "(let-values(((start-package-version-pos_1 end-package-version-pos_1 colon1-pos_0 colon2-pos_0)" -"((letrec-values(((loop_59)" +"((letrec-values(((loop_55)" "(lambda(j_2" " start-package-version-pos_2" " end-package-version-pos_2" @@ -3623,51 +3325,51 @@ static const char *startup_source = "(let-values()" "(values" " start-package-version-pos_2" -"(let-values(((or-part_52) end-package-version-pos_2))" -"(if or-part_52 or-part_52 j_2))" +"(let-values(((or-part_45) end-package-version-pos_2))" +"(if or-part_45 or-part_45 j_2))" " colon1-pos_1" " colon2-pos_1))" "(let-values()" -"(let-values(((tmp_8)(string-ref v_41 j_2)))" -"(if(equal? tmp_8 '#\\/)" +"(let-values(((tmp_7)(string-ref v_38 j_2)))" +"(if(equal? tmp_7 '#\\/)" "(let-values()" -"(loop_59" +"(loop_55" "(add1 j_2)" -"(let-values(((or-part_53) start-package-version-pos_2))" -"(if or-part_53 or-part_53(add1 j_2)))" +"(let-values(((or-part_46) start-package-version-pos_2))" +"(if or-part_46 or-part_46(add1 j_2)))" "(if start-package-version-pos_2" -"(let-values(((or-part_54) end-package-version-pos_2))" -"(if or-part_54 or-part_54 j_2))" +"(let-values(((or-part_47) end-package-version-pos_2))" +"(if or-part_47 or-part_47 j_2))" " #f)" " colon1-pos_1" " colon2-pos_1))" -"(if(equal? tmp_8 '#\\:)" +"(if(equal? tmp_7 '#\\:)" "(let-values()" "(if colon2-pos_1" "(let-values()(values #f #f #f #f))" "(if colon1-pos_1" "(let-values()" -"(loop_59" +"(loop_55" "(add1 j_2)" " start-package-version-pos_2" " end-package-version-pos_2" " colon1-pos_1" " j_2))" "(let-values()" -"(loop_59" +"(loop_55" "(add1 j_2)" " start-package-version-pos_2" " end-package-version-pos_2" " j_2" " #f)))))" "(let-values()" -"(loop_59" +"(loop_55" "(add1 j_2)" " start-package-version-pos_2" " end-package-version-pos_2" " colon1-pos_1" " colon2-pos_1)))))))))))" -" loop_59)" +" loop_55)" " 0" " #f" " #f" @@ -3675,34 +3377,34 @@ static const char *startup_source = " #f)))" "(if(if start-package-version-pos_1" "(if(> end-package-version-pos_1 start-package-version-pos_1)" -"(let-values(((or-part_55)(not colon2-pos_0)))" -"(if or-part_55 or-part_55(<(add1 colon2-pos_0) end-package-version-pos_1)))" +"(let-values(((or-part_48)(not colon2-pos_0)))" +"(if or-part_48 or-part_48(<(add1 colon2-pos_0) end-package-version-pos_1)))" " #f)" " #f)" "(let-values()" "(if colon1-pos_0" "(let-values()" "(let-values(((colon1-end_0)" -"(let-values(((or-part_56) colon2-pos_0))" -"(if or-part_56 or-part_56 end-package-version-pos_1))))" -"(if(if(integer-sequence? v_41(add1 colon1-pos_0) colon1-end_0)" -"(let-values(((or-part_57)(not colon2-pos_0)))" -"(if or-part_57" -" or-part_57" -"(let-values(((tmp_9)(string-ref v_41(add1 colon2-pos_0))))" -"(if(equal? tmp_9 '#\\=)" -"(let-values()(integer-sequence? v_41(+ 2 colon2-pos_0) end-package-version-pos_1))" -"(if(if(equal? tmp_9 '#\\>) #t(equal? tmp_9 '#\\<))" +"(let-values(((or-part_49) colon2-pos_0))" +"(if or-part_49 or-part_49 end-package-version-pos_1))))" +"(if(if(integer-sequence? v_38(add1 colon1-pos_0) colon1-end_0)" +"(let-values(((or-part_50)(not colon2-pos_0)))" +"(if or-part_50" +" or-part_50" +"(let-values(((tmp_8)(string-ref v_38(add1 colon2-pos_0))))" +"(if(equal? tmp_8 '#\\=)" +"(let-values()(integer-sequence? v_38(+ 2 colon2-pos_0) end-package-version-pos_1))" +"(if(if(equal? tmp_8 '#\\>) #t(equal? tmp_8 '#\\<))" "(let-values()" "(if(if(<(+ 2 colon2-pos_0) end-package-version-pos_1)" -"(char=? '#\\=(string-ref v_41(+ colon2-pos_0 2)))" +"(char=? '#\\=(string-ref v_38(+ colon2-pos_0 2)))" " #f)" "(let-values()" -"(integer-sequence? v_41(+ 3 colon2-pos_0) end-package-version-pos_1))" +"(integer-sequence? v_38(+ 3 colon2-pos_0) end-package-version-pos_1))" "(let-values()" -"(integer-sequence? v_41(+ 2 colon2-pos_0) end-package-version-pos_1))))" +"(integer-sequence? v_38(+ 2 colon2-pos_0) end-package-version-pos_1))))" "(let-values()" -"(integer-range-sequence? v_41(add1 colon2-pos_0) end-package-version-pos_1)))))))" +"(integer-range-sequence? v_38(add1 colon2-pos_0) end-package-version-pos_1)))))))" " #f)" "(let-values()(values colon1-pos_0 end-package-version-pos_1))" "(let-values()(values #f #f)))))" @@ -3762,10 +3464,10 @@ static const char *startup_source = "(let-values()" "(let-values(((c_12)" "(string-ref s_34 i_32)))" -"(let-values(((or-part_58)" +"(let-values(((or-part_51)" "(char=? c_12 '#\\-)))" -"(if or-part_58" -" or-part_58" +"(if or-part_51" +" or-part_51" "(char<=? '#\\0 c_12 '#\\9))))))))" "(values result_15)))))" "(if(if(not((lambda x_18(not result_14)) i_32))(not #f) #f)" @@ -3839,13 +3541,13 @@ static const char *startup_source = "(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_39)" "(begin" "(let-values(((b_8)(weak-intern-table-box tt_0)))" "(let-values(((t_10)(unbox b_8)))" -"(let-values(((code_0)(equal-hash-code v_42)))" +"(let-values(((code_0)(equal-hash-code v_39)))" "(let-values(((vals_0)(hash-ref(table-ht t_10) code_0 null)))" -"(let-values(((or-part_59)" +"(let-values(((or-part_31)" "(let-values(((lst_19) vals_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" @@ -3866,7 +3568,7 @@ static const char *startup_source = "(let-values(((bv_0)" "(weak-box-value" " b_9)))" -"(if(equal? bv_0 v_42)" +"(if(equal? bv_0 v_39)" " bv_0" " #f))))))" "(values result_22)))))" @@ -3877,17 +3579,17 @@ static const char *startup_source = " for-loop_15)" " #f" " lst_19)))))" -"(if or-part_59" -" or-part_59" +"(if or-part_31" +" or-part_31" "(let-values(((pruned-t_0)(if(=(table-count t_10)(table-prune-at t_10))(prune-table t_10) t_10)))" "(let-values(((ht_22)(table-ht pruned-t_0)))" "(let-values(((new-t_0)" "(table2.1" -"(hash-set ht_22 code_0(cons(make-weak-box v_42)(hash-ref ht_22 code_0 null)))" +"(hash-set ht_22 code_0(cons(make-weak-box v_39)(hash-ref ht_22 code_0 null)))" "(add1(table-count pruned-t_0))" "(table-prune-at pruned-t_0))))" -"(let-values(((or-part_60)(if(box-cas! b_8 t_10 new-t_0) v_42 #f)))" -"(if or-part_60 or-part_60(weak-intern! tt_0 v_42)))))))))))))))" +"(let-values(((or-part_32)(if(box-cas! b_8 t_10 new-t_0) v_39 #f)))" +"(if or-part_32 or-part_32(weak-intern! tt_0 v_39)))))))))))))))" "(define-values" "(prune-table)" "(lambda(t_11)" @@ -4049,10 +3751,10 @@ static const char *startup_source = "(cons" " prop:equal+hash" "(list" -"(lambda(a_28 b_11 eql?_0)" -"(eql?_0(1/resolved-module-path-name a_28)(1/resolved-module-path-name b_11)))" -"(lambda(a_29 hash-code_0)(hash-code_0(1/resolved-module-path-name a_29)))" -"(lambda(a_30 hash-code_1)(hash-code_1(1/resolved-module-path-name a_30))))))" +"(lambda(a_22 b_11 eql?_0)" +"(eql?_0(1/resolved-module-path-name a_22)(1/resolved-module-path-name b_11)))" +"(lambda(a_23 hash-code_0)(hash-code_0(1/resolved-module-path-name a_23)))" +"(lambda(a_24 hash-code_1)(hash-code_1(1/resolved-module-path-name a_24))))))" "(current-inspector)" " #f" " '(0)" @@ -4061,16 +3763,16 @@ static const char *startup_source = "(values struct:_0 make-_0 ?_0(make-struct-field-accessor -ref_0 0 'name))))" "(define-values" "(format-resolved-module-path-name)" -"(lambda(p_7)" +"(lambda(p_3)" "(begin" -"(if(path? p_7)" -" (let-values () (string-append \"\\\"\" (path->string p_7) \"\\\"\"))" -"(if(symbol? p_7)" -"(let-values()(format-symbol p_7))" -"(let-values()(format-submod(format-resolved-module-path-name(car p_7))(cdr p_7))))))))" +"(if(path? p_3)" +" (let-values () (string-append \"\\\"\" (path->string p_3) \"\\\"\"))" +"(if(symbol? p_3)" +"(let-values()(format-symbol p_3))" +"(let-values()(format-submod(format-resolved-module-path-name(car p_3))(cdr p_3))))))))" "(define-values" "(format-symbol)" -" (lambda (p_8) (begin (format \"'~s~a\" p_8 (if (symbol-interned? p_8) \"\" (format \"[~a]\" (eq-hash-code p_8)))))))" +" (lambda (p_4) (begin (format \"'~s~a\" p_4 (if (symbol-interned? p_4) \"\" (format \"[~a]\" (eq-hash-code p_4)))))))" "(define-values" "(format-submod)" "(lambda(base_5 syms_0)" @@ -4110,33 +3812,33 @@ static const char *startup_source = "(define-values(resolved-module-paths)(make-weak-intern-table))" "(define-values" "(1/make-resolved-module-path)" -"(lambda(p_9)" +"(lambda(p_5)" "(begin" " 'make-resolved-module-path" "(begin" -"(if(let-values(((or-part_61)(symbol? p_9)))" -"(if or-part_61" -" or-part_61" -"(let-values(((or-part_62)(if(path? p_9)(complete-path? p_9) #f)))" -"(if or-part_62" -" or-part_62" -"(if(pair? p_9)" -"(if(pair?(cdr p_9))" -"(if(list? p_9)" -"(if(let-values(((or-part_7)(symbol?(car p_9))))" -"(if or-part_7 or-part_7(if(path?(car p_9))(complete-path?(car p_9)) #f)))" -"(let-values(((lst_18)(cdr p_9)))" +"(if(let-values(((or-part_52)(symbol? p_5)))" +"(if or-part_52" +" or-part_52" +"(let-values(((or-part_53)(if(path? p_5)(complete-path? p_5) #f)))" +"(if or-part_53" +" or-part_53" +"(if(pair? p_5)" +"(if(pair?(cdr p_5))" +"(if(list? p_5)" +"(if(let-values(((or-part_7)(symbol?(car p_5))))" +"(if or-part_7 or-part_7(if(path?(car p_5))(complete-path?(car p_5)) #f)))" +"(let-values(((lst_25)(cdr p_5)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_18)))" +"(let-values()(check-list lst_25)))" "((letrec-values(((for-loop_21)" -"(lambda(result_27 lst_25)" +"(lambda(result_27 lst_26)" "(begin" " 'for-loop" -"(if(pair? lst_25)" -"(let-values(((s_35)(unsafe-car lst_25))" -"((rest_9)(unsafe-cdr lst_25)))" +"(if(pair? lst_26)" +"(let-values(((s_35)(unsafe-car lst_26))" +"((rest_9)(unsafe-cdr lst_26)))" "(let-values(((result_20)" "(let-values()" "(let-values(((result_28)" @@ -4152,7 +3854,7 @@ static const char *startup_source = " result_27)))))" " for-loop_21)" " #t" -" lst_18)))" +" lst_25)))" " #f)" " #f)" " #f)" @@ -4167,8 +3869,8 @@ static const char *startup_source = " \" (cons/c (or/c symbol?\\n\"" " \" (and/c path? complete-path?))\\n\"" " \" (non-empty-listof symbol?)))\")" -" p_9)))" -"(weak-intern! resolved-module-paths(resolved-module-path1.1 p_9))))))" +" p_5)))" +"(weak-intern! resolved-module-paths(resolved-module-path1.1 p_5))))))" "(define-values" "(resolved-module-path->module-path)" "(lambda(r_11)" @@ -4208,7 +3910,7 @@ static const char *startup_source = "(if(module-path-index-path r_12)" "(let-values()" "(let-values(((l_43)" -"((letrec-values(((loop_60)" +"((letrec-values(((loop_56)" "(lambda(r_13)" "(begin" " 'loop" @@ -4219,42 +3921,42 @@ static const char *startup_source = "(if(module-path-index-path r_13)" "(let-values()" "(cons" -"((letrec-values(((loop_61)" -"(lambda(v_43)" +"((letrec-values(((loop_57)" +"(lambda(v_40)" "(begin" " 'loop" -"(if(if(pair? v_43)" +"(if(if(pair? v_40)" "(if(eq?" " 'quote" "(car" -" v_43))" +" v_40))" "(null?" "(cddr" -" v_43))" +" v_40))" " #f)" " #f)" "(let-values()" "(format-symbol" -"(cadr v_43)))" +"(cadr v_40)))" "(if(if(pair?" -" v_43)" +" v_40)" "(eq?" " 'submod" -"(car v_43))" +"(car v_40))" " #f)" "(let-values()" "(format-submod" -"(loop_61" -"(cadr v_43))" -"(cddr v_43)))" +"(loop_57" +"(cadr v_40))" +"(cddr v_40)))" "(let-values()" "(format" " \"~.s\"" "(module-path-index-path" " r_13)))))))))" -" loop_61)" +" loop_57)" "(module-path-index-path r_13))" -"(loop_60(module-path-index-base r_13))))" +"(loop_56(module-path-index-base r_13))))" "(if(module-path-index-resolved r_13)" "(let-values()" "(list" @@ -4263,7 +3965,7 @@ static const char *startup_source = " \"~a\"" "(module-path-index-resolved r_13))))" "(let-values() null)))))))))" -" loop_60)" +" loop_56)" " r_12)))" "(fprintf" " port_1" @@ -4272,18 +3974,18 @@ static const char *startup_source = " string-append" "(car l_43)" "(reverse$1" -"(let-values(((lst_26)(cdr l_43)))" +"(let-values(((lst_27)(cdr l_43)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_26)))" +"(let-values()(check-list lst_27)))" "((letrec-values(((for-loop_22)" -"(lambda(fold-var_13 lst_27)" +"(lambda(fold-var_13 lst_28)" "(begin" " 'for-loop" -"(if(pair? lst_27)" -"(let-values(((i_37)(unsafe-car lst_27))" -"((rest_10)(unsafe-cdr lst_27)))" +"(if(pair? lst_28)" +"(let-values(((i_37)(unsafe-car lst_28))" +"((rest_10)(unsafe-cdr lst_28)))" "(let-values(((fold-var_14)" "(let-values(((fold-var_15)" " fold-var_13))" @@ -4302,7 +4004,7 @@ static const char *startup_source = " fold-var_13)))))" " for-loop_22)" " null" -" lst_26))))))))" +" lst_27))))))))" "(if(module-path-index-resolved r_12)" " (let-values () (fprintf port_1 \"=~a\" (module-path-index-resolved r_12)))" "(void))))" @@ -4310,16 +4012,16 @@ static const char *startup_source = "(cons" " prop:equal+hash" "(list" -"(lambda(a_31 b_12 eql?_1)" -"(if(eql?_1(module-path-index-path a_31)(module-path-index-path b_12))" -"(eql?_1(module-path-index-base a_31)(module-path-index-base b_12))" +"(lambda(a_25 b_12 eql?_1)" +"(if(eql?_1(module-path-index-path a_25)(module-path-index-path b_12))" +"(eql?_1(module-path-index-base a_25)(module-path-index-base b_12))" " #f))" -"(lambda(a_32 hash-code_2)" -"(+(hash-code_2(module-path-index-path a_32))(hash-code_2(module-path-index-base a_32))))" -"(lambda(a_33 hash-code_3)" +"(lambda(a_26 hash-code_2)" +"(+(hash-code_2(module-path-index-path a_26))(hash-code_2(module-path-index-base a_26))))" +"(lambda(a_27 hash-code_3)" "(+" -"(hash-code_3(module-path-index-path a_33))" -"(hash-code_3(module-path-index-base a_33)))))))" +"(hash-code_3(module-path-index-path a_27))" +"(hash-code_3(module-path-index-base a_27)))))))" "(current-inspector)" " #f" " '(0 1)" @@ -4355,9 +4057,9 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'module-path-index-resolve \"module-path-index?\" mpi_0)))" -"(let-values(((or-part_63)(module-path-index-resolved mpi_0)))" -"(if or-part_63" -" or-part_63" +"(let-values(((or-part_54)(module-path-index-resolved mpi_0)))" +"(if or-part_54" +" or-part_54" "(let-values(((mod-name_0)" "((1/current-module-name-resolver)" "(module-path-index-path mpi_0)" @@ -4397,25 +4099,25 @@ static const char *startup_source = "(let-values(((submod_0)(if submod9_0 submod8_0 #f)))" "(let-values()" "(begin" -"(if(let-values(((or-part_49)(not mod-path_0)))" -"(if or-part_49 or-part_49(1/module-path? mod-path_0)))" +"(if(let-values(((or-part_37)(not mod-path_0)))" +"(if or-part_37 or-part_37(1/module-path? mod-path_0)))" "(void)" "(let-values()" " (raise-argument-error 'module-path-index-join \"(or/c #f module-path?)\" mod-path_0)))" -"(if(let-values(((or-part_50)(not base_8)))" -"(if or-part_50" -" or-part_50" -"(let-values(((or-part_64)(1/resolved-module-path? base_8)))" -"(if or-part_64 or-part_64(1/module-path-index? base_8)))))" +"(if(let-values(((or-part_38)(not base_8)))" +"(if or-part_38" +" or-part_38" +"(let-values(((or-part_55)(1/resolved-module-path? base_8)))" +"(if or-part_55 or-part_55(1/module-path-index? base_8)))))" "(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_65)(not submod_0)))" -"(if or-part_65" -" or-part_65" +"(if(let-values(((or-part_56)(not submod_0)))" +"(if or-part_56" +" or-part_56" "(if(pair? submod_0)(if(list? submod_0)(andmap2 symbol? submod_0) #f) #f)))" "(void)" "(let-values()" @@ -4447,7 +4149,7 @@ static const char *startup_source = "(1/make-resolved-module-path(cons generic-module-name submod_0))))" "(let-values()" "(let-values(((keep-base_0)" -"((letrec-values(((loop_62)" +"((letrec-values(((loop_58)" "(lambda(mod-path_1)" "(begin" " 'loop" @@ -4463,9 +4165,9 @@ static const char *startup_source = "(eq? 'submod(car mod-path_1))" " #f)" "(let-values()" -"(loop_62(cadr mod-path_1)))" +"(loop_58(cadr mod-path_1)))" "(let-values() base_8)))))))))" -" loop_62)" +" loop_58)" " mod-path_0)))" "(module-path-index2.1 mod-path_0 keep-base_0 #f #f)))))))))))))" "(case-lambda" @@ -4496,7 +4198,7 @@ static const char *startup_source = " (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_10)(1/resolved-module-path-name r_14)))(if(pair? p_10)(cdr p_10) #f)) #f))" +"(if r_14(let-values(((p_6)(1/resolved-module-path-name r_14)))(if(pair? p_6)(cdr p_6) #f)) #f))" " #f)))))" "(define-values" "(make-self-module-path-index)" @@ -4513,10 +4215,10 @@ static const char *startup_source = "(lambda(self_0)" "(begin" "(let-values(((r_15)(resolved-module-path-to-generic-resolved-module-path(module-path-index-resolved self_0))))" -"(let-values(((or-part_54)" +"(let-values(((or-part_57)" "(let-values(((e_9)(hash-ref generic-self-mpis r_15 #f)))(if e_9(ephemeron-value e_9) #f))))" -"(if or-part_54" -" or-part_54" +"(if or-part_57" +" or-part_57" "(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))))))))" "(define-values" @@ -4562,128 +4264,135 @@ static const char *startup_source = "(module-path-index-shift-cache!)" "(lambda(mpi_9)" "(begin" -"(let-values(((or-part_66)" +"(let-values(((or-part_58)" "(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_66" -" or-part_66" +"(if or-part_58" +" or-part_58" "(let-values(((cache_1)(make-weak-box(box '#hasheq()))))" "(begin(set-module-path-index-shift-cache! mpi_9 cache_1) cache_1)))))))" "(define-values" "(shift-cache-ref)" -"(lambda(cache_2 v_44)" +"(lambda(cache_2 v_41)" "(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_2(let-values(((b_13)(weak-box-value cache_2)))(if b_13(hash-ref(unbox b_13) v_41 #f) #f)) #f))))" "(define-values" "(shift-cache-set!)" -"(lambda(cache_3 v_45 r_18)" +"(lambda(cache_3 v_42 r_18)" "(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))))))" +"(if b_14(let-values()(set-box! b_14(hash-set(unbox b_14) v_42 r_18)))(void))))))" "(define-values(top-level-module-path-index)(make-self-module-path-index(1/make-resolved-module-path 'top-level)))" "(define-values(top-level-module-path-index?)(lambda(mpi_10)(begin(eq? top-level-module-path-index mpi_10))))" "(define-values" "(core-module-name-resolver)" "(case-lambda" "((name_12 from-namespace_0)(begin(void)))" -"((p_11 enclosing_1 source-stx-stx_0 load?_2)" +"((p_7 enclosing_1 source-stx-stx_0 load?_2)" "(begin" -"(if(1/module-path? p_11)" +"(if(1/module-path? p_7)" "(void)" -" (let-values () (raise-argument-error 'core-module-name-resolver \"module-path?\" p_11)))" -"(if(let-values(((or-part_58)(not enclosing_1)))" -"(if or-part_58 or-part_58(1/resolved-module-path? enclosing_1)))" +" (let-values () (raise-argument-error 'core-module-name-resolver \"module-path?\" p_7)))" +"(if(let-values(((or-part_59)(not enclosing_1)))" +"(if or-part_59 or-part_59(1/resolved-module-path? enclosing_1)))" "(void)" " (let-values () (raise-argument-error 'core-module-name-resolver \"resolved-module-path?\" enclosing_1)))" -"(if(if(list? p_11)(if(=(length p_11) 2)(if(eq? 'quote(car p_11))(symbol?(cadr p_11)) #f) #f) #f)" -"(let-values()(1/make-resolved-module-path(cadr p_11)))" -" (if (if (list? p_11) (if (eq? 'submod (car p_11)) (equal? \"..\" (cadr p_11)) #f) #f)" +"(if(if(list? p_7)(if(=(length p_7) 2)(if(eq? 'quote(car p_7))(symbol?(cadr p_7)) #f) #f) #f)" +"(let-values()(1/make-resolved-module-path(cadr p_7)))" +" (if (if (list? p_7) (if (eq? 'submod (car p_7)) (equal? \"..\" (cadr p_7)) #f) #f)" "(let-values()" -"(let-values(((lst_28)(cdr p_11)))" +"(let-values(((lst_29)(cdr p_7)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_28)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_29)))" "((letrec-values(((for-loop_23)" -"(lambda(enclosing_2 lst_29)" +"(lambda(enclosing_2 lst_30)" "(begin" " 'for-loop" -"(if(pair? lst_29)" -"(let-values(((s_36)(unsafe-car lst_29))((rest_11)(unsafe-cdr lst_29)))" +"(if(pair? lst_30)" +"(let-values(((s_36)(unsafe-car lst_30))((rest_11)(unsafe-cdr lst_30)))" "(let-values(((enclosing_3)" "(let-values(((enclosing_4) enclosing_2))" "(let-values(((enclosing_5)" "(let-values()" -"(let-values(((p27_0) p_11))" +"(let-values(((s25_0) s_36)" +"((enclosing26_0) enclosing_4)" +"((p27_0) p_7))" "(build-module-name18.1" " p27_0" " #t" -" s_36" -" enclosing_4)))))" +" s25_0" +" enclosing26_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_11) (if (eq? 'submod (car p_11)) (equal? \".\" (cadr p_11)) #f) #f)" +" lst_29))))" +" (if (if (list? p_7) (if (eq? 'submod (car p_7)) (equal? \".\" (cadr p_7)) #f) #f)" "(let-values()" -"(let-values(((lst_30)(cddr p_11)))" +"(let-values(((lst_31)(cddr p_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_30)))" +"(let-values()(check-list lst_31)))" "((letrec-values(((for-loop_24)" -"(lambda(enclosing_6 lst_31)" +"(lambda(enclosing_6 lst_32)" "(begin" " 'for-loop" -"(if(pair? lst_31)" -"(let-values(((s_37)(unsafe-car lst_31))((rest_12)(unsafe-cdr lst_31)))" +"(if(pair? lst_32)" +"(let-values(((s_37)(unsafe-car lst_32))((rest_12)(unsafe-cdr lst_32)))" "(let-values(((enclosing_7)" "(let-values(((enclosing_8) enclosing_6))" "(let-values(((enclosing_9)" "(let-values()" -"(let-values(((p30_0) p_11))" +"(let-values(((s28_0) s_37)" +"((enclosing29_0) enclosing_8)" +"((p30_0) p_7))" "(build-module-name18.1" " p30_0" " #t" -" s_37" -" enclosing_8)))))" +" s28_0" +" enclosing29_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_11)(eq? 'submod(car p_11)) #f)" +" lst_31))))" +"(if(if(list? p_7)(eq? 'submod(car p_7)) #f)" "(let-values()" -"(let-values(((base_13)((1/current-module-name-resolver)(cadr p_11) enclosing_1 #f #f)))" -"(let-values(((lst_32)(cddr p_11)))" +"(let-values(((base_13)((1/current-module-name-resolver)(cadr p_7) enclosing_1 #f #f)))" +"(let-values(((lst_33)(cddr p_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_32)))" +"(let-values()(check-list lst_33)))" "((letrec-values(((for-loop_25)" -"(lambda(enclosing_10 lst_33)" +"(lambda(enclosing_10 lst_34)" "(begin" " 'for-loop" -"(if(pair? lst_33)" -"(let-values(((s_38)(unsafe-car lst_33))((rest_13)(unsafe-cdr lst_33)))" +"(if(pair? lst_34)" +"(let-values(((s_38)(unsafe-car lst_34))((rest_13)(unsafe-cdr lst_34)))" "(let-values(((enclosing_11)" "(let-values(((enclosing_12) enclosing_10))" "(let-values(((enclosing_13)" "(let-values()" -"(let-values(((p33_0) p_11))" +"(let-values(((s31_0) s_38)" +"((enclosing32_0)" +" enclosing_12)" +"((p33_0) p_7))" "(build-module-name18.1" " p33_0" " #t" -" s_38" -" enclosing_12)))))" +" s31_0" +" enclosing32_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_11))))))))))" +" lst_33)))))" +" (let-values () (error 'core-module-name-resolver \"not a supported module path: ~v\" p_7))))))))))" "(define-values" "(build-module-name18.1)" "(lambda(original14_0 original15_0 name16_0 enclosing17_0)" @@ -4711,23 +4420,23 @@ static const char *startup_source = "(1/current-module-name-resolver)" "(make-parameter" " core-module-name-resolver" -"(lambda(v_46)" +"(lambda(v_43)" "(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_43)(if(procedure-arity-includes? v_43 2)(procedure-arity-includes? v_43 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_43)))" +" v_43))))" "(define-values" "(1/current-module-declare-name)" "(make-parameter" " #f" "(lambda(r_19)" "(begin" -"(if(let-values(((or-part_67)(not r_19)))(if or-part_67 or-part_67(1/resolved-module-path? r_19)))" +"(if(let-values(((or-part_60)(not r_19)))(if or-part_60 or-part_60(1/resolved-module-path? r_19)))" "(void)" " (let-values () (raise-argument-error 'current-module-declare-name \"(or/c #f resolved-module-path?)\" r_19)))" " r_19))))" @@ -4737,11 +4446,11 @@ static const char *startup_source = " #f" "(lambda(s_39)" "(begin" -"(if(let-values(((or-part_68)(not s_39)))" -"(if or-part_68" -" or-part_68" -"(let-values(((or-part_69)(symbol? s_39)))" -"(if or-part_69 or-part_69(if(path? s_39)(complete-path? s_39) #f)))))" +"(if(let-values(((or-part_61)(not s_39)))" +"(if or-part_61" +" or-part_61" +"(let-values(((or-part_62)(symbol? s_39)))" +"(if or-part_62 or-part_62(if(path? s_39)(complete-path? s_39) #f)))))" "(void)" "(let-values()" " (raise-argument-error 'current-module-declare-source \"(or/c #f symbol? (and/c path? complete-path?))\" s_39)))" @@ -4761,69 +4470,69 @@ static const char *startup_source = "(force/composable)" "(lambda(root_1)" "(begin" -"(let-values(((v_47)(unsafe-struct-ref root_1 0)))" -"(if(procedure? v_47)" +"(let-values(((v_44)(unsafe-struct-ref root_1 0)))" +"(if(procedure? v_44)" "(let-values()" "(begin" -"(unsafe-struct-set! root_1 0(make-running(object-name v_47)))" +"(unsafe-struct-set! root_1 0(make-running(object-name v_44)))" "(call-with-exception-handler" "(lambda(e_10)(begin(unsafe-struct-set! root_1 0(make-reraise e_10)) e_10))" "(lambda()" -"((letrec-values(((loop_63)" -"(lambda(v_48)" +"((letrec-values(((loop_59)" +"(lambda(v_45)" "(begin" " 'loop" -"(if(composable-promise? v_48)" +"(if(composable-promise? v_45)" "(let-values()" -"(let-values(((v*_0)(unsafe-struct-ref v_48 0)))" +"(let-values(((v*_0)(unsafe-struct-ref v_45 0)))" "(begin" -"(unsafe-struct-set! v_48 0 root_1)" +"(unsafe-struct-set! v_45 0 root_1)" "(if(procedure? v*_0)" -"(let-values()(loop_63(v*_0)))" +"(let-values()(loop_59(v*_0)))" "(if(pair? v*_0)" "(let-values()" "(begin(unsafe-struct-set! root_1 0 v*_0)(unsafe-car v*_0)))" -"(let-values()(loop_63 v*_0)))))))" -"(if(promise? v_48)" -"(let-values()(begin(unsafe-struct-set! root_1 0 v_48)(force v_48)))" -"(let-values()(begin(unsafe-struct-set! root_1 0(list v_48)) v_48))))))))" -" loop_63)" -"(v_47))))))" -"(if(pair? v_47)" -"(let-values()(if(null?(unsafe-cdr v_47))(unsafe-car v_47)(apply values v_47)))" -"(if(composable-promise? v_47)" -"(let-values()(force/composable v_47))" -"(if(null? v_47)" +"(let-values()(loop_59 v*_0)))))))" +"(if(promise? v_45)" +"(let-values()(begin(unsafe-struct-set! root_1 0 v_45)(force v_45)))" +"(let-values()(begin(unsafe-struct-set! root_1 0(list v_45)) v_45))))))))" +" loop_59)" +"(v_44))))))" +"(if(pair? v_44)" +"(let-values()(if(null?(unsafe-cdr v_44))(unsafe-car v_44)(apply values v_44)))" +"(if(composable-promise? v_44)" +"(let-values()(force/composable v_44))" +"(if(null? v_44)" "(let-values()(values))" -"(if(promise? v_47)" -"(let-values()(force v_47))" -" (let-values () (error 'force \"composable promise with invalid contents: ~e\" v_47)))))))))))" +"(if(promise? v_44)" +"(let-values()(force v_44))" +" (let-values () (error 'force \"composable promise with invalid contents: ~e\" v_44)))))))))))" "(define-values" "(reify-result)" -"(lambda(v_49)" +"(lambda(v_46)" "(begin" -"(if(pair? v_49)" -"(let-values()(if(null?(unsafe-cdr v_49))(unsafe-car v_49)(apply values v_49)))" -"(if(null? v_49)" +"(if(pair? v_46)" +"(let-values()(if(null?(unsafe-cdr v_46))(unsafe-car v_46)(apply values v_46)))" +"(if(null? v_46)" "(let-values()(values))" -"(if(reraise? v_49)" -"(let-values()(v_49))" -" (let-values () (error 'force \"promise with invalid contents: ~e\" v_49))))))))" +"(if(reraise? v_46)" +"(let-values()(v_46))" +" (let-values () (error 'force \"promise with invalid contents: ~e\" v_46))))))))" "(define-values" "(force/generic)" "(lambda(promise_0)" "(begin" "(reify-result" -"(let-values(((v_50)(unsafe-struct-ref promise_0 0)))" -"(if(procedure? v_50)" +"(let-values(((v_47)(unsafe-struct-ref promise_0 0)))" +"(if(procedure? v_47)" "(begin" -"(unsafe-struct-set! promise_0 0(make-running(object-name v_50)))" +"(unsafe-struct-set! promise_0 0(make-running(object-name v_47)))" "(call-with-exception-handler" "(lambda(e_11)(begin(unsafe-struct-set! promise_0 0(make-reraise e_11)) e_11))" "(lambda()" -"(let-values(((vs_0)(call-with-values v_50 list)))" +"(let-values(((vs_0)(call-with-values v_47 list)))" "(begin(unsafe-struct-set! promise_0 0 vs_0) vs_0)))))" -" v_50))))))" +" v_47))))))" "(define-values" "(force)" "(lambda(promise_1)(begin(if(promise? promise_1)((promise-forcer promise_1) promise_1) promise_1))))" @@ -4831,57 +4540,57 @@ static const char *startup_source = "(promise-printer)" "(lambda(promise_2 port_2 write?_0)" "(begin" -"((letrec-values(((loop_50)" -"(lambda(v_51)" +"((letrec-values(((loop_47)" +"(lambda(v_48)" "(begin" " 'loop" -"(if(reraise? v_51)" +"(if(reraise? v_48)" "(let-values()" -"(let-values(((r_20)(reraise-val v_51)))" +"(let-values(((r_20)(reraise-val v_48)))" "(if(exn? r_20)" "(fprintf" " port_2" " (if write?_0 \"#\" \"#\")" "(exn-message r_20))" " (fprintf port_2 (if write?_0 \"#\" \"#\") r_20))))" -"(if(running? v_51)" +"(if(running? v_48)" "(let-values()" -"(let-values(((r_21)(running-name v_51)))" +"(let-values(((r_21)(running-name v_48)))" "(if r_21" " (fprintf port_2 \"#\" r_21)" " (fprintf port_2 \"#\"))))" -"(if(procedure? v_51)" +"(if(procedure? v_48)" "(let-values()" -"(let-values(((c1_18)(object-name v_51)))" +"(let-values(((c1_18)(object-name v_48)))" "(if c1_18" -" ((lambda (n_20) (fprintf port_2 \"#\" n_20)) c1_18)" +" ((lambda (n_18) (fprintf port_2 \"#\" n_18)) c1_18)" " (let-values () (display \"#\" port_2)))))" -"(if(promise? v_51)" -"(let-values()(loop_50(unsafe-struct-ref v_51 0)))" -"(if(null? v_51)" +"(if(promise? v_48)" +"(let-values()(loop_47(unsafe-struct-ref v_48 0)))" +"(if(null? v_48)" " (let-values () (fprintf port_2 \"#\"))" -"(if(null?(cdr v_51))" +"(if(null?(cdr v_48))" "(let-values()" -" (fprintf port_2 (if write?_0 \"#\" \"#\") (car v_51)))" +" (fprintf port_2 (if write?_0 \"#\" \"#\") (car v_48)))" "(let-values()" "(begin" " (display \"#\" port_2)))))))))))))" -" loop_50)" +" loop_47)" "(unsafe-struct-ref promise_2 0)))))" "(define-values" "(prop:force promise-forcer)" "(let-values(((prop_0 pred?_0 get_0)" "(make-struct-type-property" " 'forcer" -"(lambda(v_52 info_0)" +"(lambda(v_49 info_0)" "(begin" -"(if(if(procedure? v_52)(procedure-arity-includes? v_52 1) #f)" +"(if(if(procedure? v_49)(procedure-arity-includes? v_49 1) #f)" "(void)" -" (let-values () (raise-argument-error 'prop:force \"(any/c . -> . any)\" v_52)))" -" v_52))" +" (let-values () (raise-argument-error 'prop:force \"(any/c . -> . any)\" v_49)))" +" v_49))" " null" " #t)))" "(values prop_0 get_0)))" @@ -4985,7 +4694,7 @@ static const char *startup_source = " 0" " 0" " #f" -"(list(cons prop:force(lambda(p_12)((unsafe-struct-ref p_12 0)))))" +"(list(cons prop:force(lambda(p_8)((unsafe-struct-ref p_8 0)))))" "(current-inspector)" " #f" " '()" @@ -5003,7 +4712,7 @@ static const char *startup_source = " 0" " 0" " #f" -"(list(cons prop:force(lambda(p_13)(reify-result(unsafe-struct-ref p_13 0)))))" +"(list(cons prop:force(lambda(p_9)(reify-result(unsafe-struct-ref p_9 0)))))" "(current-inspector)" " #f" " '()" @@ -5064,56 +4773,56 @@ static const char *startup_source = "(list" "(cons" " prop:evt" -"(lambda(p_14)" -"(let-values(((v_53)(unsafe-struct-ref p_14 0)))" -"(wrap-evt(if(syncinfo? v_53)(syncinfo-done-evt v_53) always-evt) void))))" +"(lambda(p_10)" +"(let-values(((v_50)(unsafe-struct-ref p_10 0)))" +"(wrap-evt(if(syncinfo? v_50)(syncinfo-done-evt v_50) always-evt) void))))" "(cons" " prop:force" -"(lambda(p_15)" -"(let-values(((v_51)(unsafe-struct-ref p_15 0)))" +"(lambda(p_11)" +"(let-values(((v_48)(unsafe-struct-ref p_11 0)))" "(reify-result" -"(if(not(syncinfo? v_51))" -"(let-values() v_51)" -"(if(running-thread?(syncinfo-thunk v_51))" +"(if(not(syncinfo? v_48))" +"(let-values() v_48)" +"(if(running-thread?(syncinfo-thunk v_48))" "(let-values()" -"(let-values(((r_20)(syncinfo-thunk v_51)))" +"(let-values(((r_20)(syncinfo-thunk v_48)))" "(if(eq?(running-thread-thread r_20)(current-thread))" "(r_20)" -"(begin(sync(syncinfo-done-evt v_51))(unsafe-struct-ref p_15 0)))))" +"(begin(sync(syncinfo-done-evt v_48))(unsafe-struct-ref p_11 0)))))" "(let-values()" "(begin" "(call-with-semaphore" -"(syncinfo-access-sema v_51)" -"(lambda(p_16 v_54)" -"(let-values(((thunk_2)(syncinfo-thunk v_54)))" -"(let-values(((done_0)(syncinfo-done-sema v_54)))" +"(syncinfo-access-sema v_48)" +"(lambda(p_12 v_51)" +"(let-values(((thunk_2)(syncinfo-thunk v_51)))" +"(let-values(((done_0)(syncinfo-done-sema v_51)))" "(if(running-thread? thunk_2)" "(void)" "(let-values()" "(begin" "(set-syncinfo-thunk!" -" v_54" +" v_51" "(make-running-thread(object-name thunk_2)(current-thread)))" "(call-with-exception-handler" "(lambda(e_12)" "(begin" -"(unsafe-struct-set! p_16 0(make-reraise e_12))" +"(unsafe-struct-set! p_12 0(make-reraise e_12))" "(semaphore-post done_0)" " e_12))" "(lambda()" "(begin" -"(unsafe-struct-set! p_16 0(call-with-values thunk_2 list))" +"(unsafe-struct-set! p_12 0(call-with-values thunk_2 list))" "(semaphore-post done_0))))))))))" " #f" -" p_15" -" v_51)" -"(unsafe-struct-ref p_15 0)))))))))" +" p_11" +" v_48)" +"(unsafe-struct-ref p_11 0)))))))))" "(cons" " prop:custom-write" -"(lambda(p_17 port_4 write?_2)" -"(let-values(((v_52)(unsafe-struct-ref p_17 0)))" +"(lambda(p_13 port_4 write?_2)" +"(let-values(((v_49)(unsafe-struct-ref p_13 0)))" "(promise-printer" -"(if(syncinfo? v_52)(make-promise(syncinfo-thunk v_52)) p_17)" +"(if(syncinfo? v_49)(make-promise(syncinfo-thunk v_49)) p_13)" " port_4" " write?_2)))))" "(current-inspector)" @@ -5136,26 +4845,26 @@ static const char *startup_source = "(list" "(cons" " prop:evt" -"(lambda(p_18)" -"(let-values(((v_55)(unsafe-struct-ref p_18 0)))" -"(wrap-evt(if(running? v_55)(running-thread-thread v_55) always-evt) void))))" +"(lambda(p_14)" +"(let-values(((v_52)(unsafe-struct-ref p_14 0)))" +"(wrap-evt(if(running? v_52)(running-thread-thread v_52) always-evt) void))))" "(cons" " prop:force" -"(lambda(p_19)" -"(let-values(((v_28)(unsafe-struct-ref p_19 0)))" +"(lambda(p_15)" +"(let-values(((v_25)(unsafe-struct-ref p_15 0)))" "(reify-result" -"(if(running-thread? v_28)" -"(let-values(((t_8)(running-thread-thread v_28)))" +"(if(running-thread? v_25)" +"(let-values(((t_8)(running-thread-thread v_25)))" "(let-values((()(begin(thread-wait t_8)(values))))" -"(let-values(((v_56)(unsafe-struct-ref p_19 0)))" -"(if(running-thread? v_56)" +"(let-values(((v_53)(unsafe-struct-ref p_15 0)))" +"(if(running-thread? v_53)" "(error" " 'force" " \"promise's thread terminated ~a\\n promise: ~e\"" " \"without result or exception\"" -" p_19)" -" v_56))))" -" v_28))))))" +" p_15)" +" v_53))))" +" v_25))))))" "(current-inspector)" " #f" " '()" @@ -5176,17 +4885,17 @@ static const char *startup_source = "(list" "(cons" " prop:force" -"(lambda(p_20)" -"(let-values(((v_57)(unsafe-struct-ref p_20 0)))" +"(lambda(p_16)" +"(let-values(((v_54)(unsafe-struct-ref p_16 0)))" "(reify-result" -"(if(procedure? v_57)" +"(if(procedure? v_54)" "(let-values(((controller_0)" -"(if(running-thread? v_57)(running-thread-thread v_57)(v_57))))" +"(if(running-thread? v_54)(running-thread-thread v_54)(v_54))))" "(begin" "(thread-send controller_0 'force!)" "(thread-wait controller_0)" -"(unsafe-struct-ref p_20 0)))" -" v_57))))))" +"(unsafe-struct-ref p_16 0)))" +" v_54))))))" "(current-inspector)" " #f" " '()" @@ -5195,15 +4904,15 @@ static const char *startup_source = "(values struct:_13 make-_13 ?_13)))" "(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_7 b_15)(begin(if a_7(if b_15(+ a_7 b_15) #f) #f))))" -"(define-values(phase-)(lambda(a_34 b_16)(begin(if a_34(if b_16(- a_34 b_16) #f) #f))))" +"(lambda(v_26)(begin(let-values(((or-part_0)(not v_26)))(if or-part_0 or-part_0(exact-integer? v_26))))))" +"(define-values(phase+)(lambda(a_1 b_15)(begin(if a_1(if b_15(+ a_1 b_15) #f) #f))))" +"(define-values(phase-)(lambda(a_28 b_16)(begin(if a_28(if b_16(- a_28 b_16) #f) #f))))" "(define-values" "(phasedatum" -"(let-values(((s_50) s_49)" +"(let-values(((s_32) s_49)" "((f_21)(lambda(tail?_5 x_25)(begin 'f x_25)))" -"((d->s_0)(lambda(s_51 d_1)(begin 'd->s d_1)))" +"((d->s_0)(lambda(s_50 d_1)(begin 'd->s d_1)))" "((s-e_0) syntax-content)" "((seen_3) #f))" -"((letrec-values(((loop_66)" -"(lambda(s_52)" +"((letrec-values(((loop_62)" +"(lambda(s_51)" "(begin" " 'loop" -"(let-values(((s_53) s_52)" +"(let-values(((s_52) s_51)" "((f_22)" -"(lambda(tail?_6 v_75)" +"(lambda(tail?_6 v_71)" "(begin" " 'f" -"(if(syntax?$1 v_75)" -"(let-values()(d->s_0 v_75(loop_66(s-e_0 v_75))))" -"(let-values()(f_21 tail?_6 v_75))))))" +"(if(syntax?$1 v_71)" +"(let-values()(d->s_0 v_71(loop_62(s-e_0 v_71))))" +"(let-values()(f_21 tail?_6 v_71))))))" "((seen_4) seen_3))" -"((letrec-values(((loop_67)" -"(lambda(tail?_7 s_54 prev-depth_1)" +"((letrec-values(((loop_63)" +"(lambda(tail?_7 s_53 prev-depth_1)" "(begin" " 'loop" "(let-values(((depth_1)(add1 prev-depth_1)))" @@ -6162,48 +5871,48 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_7" -" s_54" -"(lambda(tail?_8 s_55)(f_22 tail?_8 s_55))" +" s_53" +"(lambda(tail?_8 s_54)(f_22 tail?_8 s_54))" " seen_4))" -"(if(null? s_54)" -"(let-values()(f_22 tail?_7 s_54))" -"(if(pair? s_54)" +"(if(null? s_53)" +"(let-values()(f_22 tail?_7 s_53))" +"(if(pair? s_53)" "(let-values()" "(f_22" " tail?_7" "(cons" -"(loop_67 #f(car s_54) depth_1)" -"(loop_67 #t(cdr s_54) depth_1))))" -"(if(let-values(((or-part_92)(symbol? s_54)))" -"(if or-part_92" -" or-part_92" -"(let-values(((or-part_93)(boolean? s_54)))" -"(if or-part_93 or-part_93(number? s_54)))))" -"(let-values()(f_22 #f s_54))" -"(if(let-values(((or-part_94)(vector? s_54)))" -"(if or-part_94" -" or-part_94" -"(let-values(((or-part_95)(box? s_54)))" -"(if or-part_95" -" or-part_95" -"(let-values(((or-part_96)" -"(prefab-struct-key s_54)))" -"(if or-part_96" -" or-part_96" -"(hash? s_54)))))))" +"(loop_63 #f(car s_53) depth_1)" +"(loop_63 #t(cdr s_53) depth_1))))" +"(if(let-values(((or-part_47)(symbol? s_53)))" +"(if or-part_47" +" or-part_47" +"(let-values(((or-part_48)(boolean? s_53)))" +"(if or-part_48 or-part_48(number? s_53)))))" +"(let-values()(f_22 #f s_53))" +"(if(let-values(((or-part_86)(vector? s_53)))" +"(if or-part_86" +" or-part_86" +"(let-values(((or-part_49)(box? s_53)))" +"(if or-part_49" +" or-part_49" +"(let-values(((or-part_50)" +"(prefab-struct-key s_53)))" +"(if or-part_50" +" or-part_50" +"(hash? s_53)))))))" "(let-values()" "(datum-map-slow" " tail?_7" -" s_54" -"(lambda(tail?_9 s_56)(f_22 tail?_9 s_56))" -" seen_4))" -"(let-values()(f_22 #f s_54))))))))))))" -" loop_67)" -" #f" " s_53" +"(lambda(tail?_9 s_33)(f_22 tail?_9 s_33))" +" seen_4))" +"(let-values()(f_22 #f s_53))))))))))))" +" loop_63)" +" #f" +" s_52" " 0))))))" -" loop_66)" -" s_50)))))" +" loop_62)" +" s_32)))))" "(define-values" "(datum->syntax$1)" "(let-values(((datum->syntax8_0)" @@ -6211,12 +5920,12 @@ static const char *startup_source = "(begin" " 'datum->syntax8" "(let-values(((stx-c_0) stx-c6_0))" -"(let-values(((s_57) s7_0))" +"(let-values(((s_55) s7_0))" "(let-values(((stx-l_0)(if stx-l4_0 stx-l2_0 #f)))" "(let-values(((stx-p_0)(if stx-p5_0 stx-p3_0 #f)))" "(let-values()" -"(if(syntax?$1 s_57)" -"(let-values() s_57)" +"(if(syntax?$1 s_55)" +"(let-values() s_55)" "(let-values()" "(let-values(((wrap_0)" "(lambda(content_1)" @@ -6238,23 +5947,23 @@ static const char *startup_source = " empty-props" "(if stx-c_0(syntax-inspector stx-c_0) #f))))))" "(let-values(((result-s_0)" -"(let-values(((s_58) s_57)" +"(let-values(((s_56) s_55)" "((f_23)" "(lambda(tail?_10 x_26)" "(begin 'f(if tail?_10 x_26(wrap_0 x_26)))))" -"((s->_0)(lambda(s_59)(begin 's-> s_59)))" +"((s->_0)(lambda(s_57)(begin 's-> s_57)))" "((seen_5) disallow-cycles))" -"(let-values(((s_60) s_58)" +"(let-values(((s_58) s_56)" "((f_24)" -"(lambda(tail?_11 v_76)" +"(lambda(tail?_11 v_72)" "(begin" " 'f" -"(if(syntax?$1 v_76)" -"(let-values()(s->_0 v_76))" -"(let-values()(f_23 tail?_11 v_76))))))" +"(if(syntax?$1 v_72)" +"(let-values()(s->_0 v_72))" +"(let-values()(f_23 tail?_11 v_72))))))" "((seen_6) seen_5))" -"((letrec-values(((loop_68)" -"(lambda(tail?_12 s_61 prev-depth_2)" +"((letrec-values(((loop_64)" +"(lambda(tail?_12 s_59 prev-depth_2)" "(begin" " 'loop" "(let-values(((depth_2)" @@ -6263,60 +5972,60 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_12" -" s_61" -"(lambda(tail?_13 s_62)" -"(f_24 tail?_13 s_62))" +" s_59" +"(lambda(tail?_13 s_60)" +"(f_24 tail?_13 s_60))" " seen_6))" -"(if(null? s_61)" -"(let-values()(f_24 tail?_12 s_61))" -"(if(pair? s_61)" +"(if(null? s_59)" +"(let-values()(f_24 tail?_12 s_59))" +"(if(pair? s_59)" "(let-values()" "(f_24" " tail?_12" "(cons" -"(loop_68 #f(car s_61) depth_2)" -"(loop_68" +"(loop_64 #f(car s_59) depth_2)" +"(loop_64" " #t" -"(cdr s_61)" +"(cdr s_59)" " depth_2))))" -"(if(let-values(((or-part_97)" -"(symbol? s_61)))" -"(if or-part_97" -" or-part_97" -"(let-values(((or-part_98)" +"(if(let-values(((or-part_87)" +"(symbol? s_59)))" +"(if or-part_87" +" or-part_87" +"(let-values(((or-part_88)" "(boolean?" -" s_61)))" -"(if or-part_98" -" or-part_98" -"(number? s_61)))))" -"(let-values()(f_24 #f s_61))" -"(if(let-values(((or-part_99)" -"(vector? s_61)))" -"(if or-part_99" -" or-part_99" -"(let-values(((or-part_100)" +" s_59)))" +"(if or-part_88" +" or-part_88" +"(number? s_59)))))" +"(let-values()(f_24 #f s_59))" +"(if(let-values(((or-part_89)" +"(vector? s_59)))" +"(if or-part_89" +" or-part_89" +"(let-values(((or-part_90)" "(box?" -" s_61)))" -"(if or-part_100" -" or-part_100" -"(let-values(((or-part_101)" +" s_59)))" +"(if or-part_90" +" or-part_90" +"(let-values(((or-part_91)" "(prefab-struct-key" -" s_61)))" -"(if or-part_101" -" or-part_101" -"(hash? s_61)))))))" +" s_59)))" +"(if or-part_91" +" or-part_91" +"(hash? s_59)))))))" "(let-values()" "(datum-map-slow" " tail?_12" -" s_61" -"(lambda(tail?_14 s_63)" -"(f_24 tail?_14 s_63))" +" s_59" +"(lambda(tail?_14 s_61)" +"(f_24 tail?_14 s_61))" " seen_6))" "(let-values()" -"(f_24 #f s_61))))))))))))" -" loop_68)" +"(f_24 #f s_59))))))))))))" +" loop_64)" " #f" -" s_60" +" s_58" " 0)))))" "(if(if stx-p_0(not(eq?(syntax-props stx-p_0) empty-props)) #f)" "(let-values(((the-struct_0) result-s_0))" @@ -6334,14 +6043,14 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_0)))" " result-s_0))))))))))))))" "(case-lambda" -"((stx-c_1 s_64)(begin 'datum->syntax(datum->syntax8_0 stx-c_1 s_64 #f #f #f #f)))" -"((stx-c_2 s_38 stx-l_1 stx-p3_1)(datum->syntax8_0 stx-c_2 s_38 stx-l_1 stx-p3_1 #t #t))" -"((stx-c_3 s_65 stx-l2_1)(datum->syntax8_0 stx-c_3 s_65 stx-l2_1 #f #t #f)))))" +"((stx-c_1 s_62)(begin 'datum->syntax(datum->syntax8_0 stx-c_1 s_62 #f #f #f #f)))" +"((stx-c_2 s_63 stx-l_1 stx-p3_1)(datum->syntax8_0 stx-c_2 s_63 stx-l_1 stx-p3_1 #t #t))" +"((stx-c_3 s_64 stx-l2_1)(datum->syntax8_0 stx-c_3 s_64 stx-l2_1 #f #t #f)))))" "(define-values" "(disallow-cycles)" "(hasheq" " 'cycle-fail" -" (lambda (s_66) (raise-arguments-error 'datum->syntax \"cannot create syntax from cyclic datum\" s_66))))" +" (lambda (s_38) (raise-arguments-error 'datum->syntax \"cannot create syntax from cyclic datum\" s_38))))" "(define-values" "(struct:syntax-state" " syntax-state19.1" @@ -6368,16 +6077,16 @@ static const char *startup_source = "(begin" "(if(pair? content_2)" "(let-values()" -"((letrec-values(((loop_69)" +"((letrec-values(((loop_65)" "(lambda(content_3)" "(begin" " 'loop" "(if(if(syntax?$1 content_3)(pair?(syntax-content content_3)) #f)" "(let-values() #f)" "(if(pair? content_3)" -"(let-values()(loop_69(cdr content_3)))" +"(let-values()(loop_65(cdr content_3)))" "(let-values() #t)))))))" -" loop_69)" +" loop_65)" "(cdr content_2)))" "(let-values() #t)))))" "(define-values" @@ -6397,12 +6106,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_33)))" -"((letrec-values(((for-loop_33)" -"(lambda(table_29 i_45)" +"((letrec-values(((for-loop_32)" +"(lambda(table_29 i_46)" "(begin" " 'for-loop" -"(if i_45" -"(let-values(((k_15 v_77)(unsafe-immutable-hash-iterate-key+value ht_33 i_45)))" +"(if i_46" +"(let-values(((k_15 v_73)(unsafe-immutable-hash-iterate-key+value ht_33 i_46)))" "(let-values(((table_30)" "(let-values(((table_31) table_29))" "(let-values(((table_32)" @@ -6412,14 +6121,14 @@ static const char *startup_source = "(values" " k_15" "(preserved-property-value1.1" -" v_77)))))" +" v_73)))))" "(hash-set table_31 key_18 val_8)))))" "(values table_32)))))" "(if(not #f)" -"(for-loop_33 table_30(unsafe-immutable-hash-iterate-next ht_33 i_45))" +"(for-loop_32 table_30(unsafe-immutable-hash-iterate-next ht_33 i_46))" " table_30)))" " table_29)))))" -" for-loop_33)" +" for-loop_32)" " '#hasheq()" "(unsafe-immutable-hash-iterate-first ht_33))))" " empty-props)" @@ -6428,8 +6137,8 @@ static const char *startup_source = "(deserialize-datum->syntax)" "(lambda(content_5 context-triple_2 srcloc_2 inspector_1)" "(begin" -"(let-values(((s_67)(deserialize-syntax #f context-triple_2 srcloc_2 #f #f inspector_1)))" -"(datum->syntax$1 s_67 content_5 s_67 s_67)))))" +"(let-values(((s_65)(deserialize-syntax #f context-triple_2 srcloc_2 #f #f inspector_1)))" +"(datum->syntax$1 s_65 content_5 s_65 s_65)))))" "(define-values(empty-binding-table) '#hasheq())" "(define-values" "(struct:table-with-bulk-bindings" @@ -6532,11 +6241,11 @@ static const char *startup_source = "(make-struct-field-accessor -ref_18 1 'create))))" "(define-values" "(bulk-binding-symbols)" -"(lambda(b_21 s_68 extra-shifts_0)" +"(lambda(b_21 s_66 extra-shifts_0)" "(begin" "((bulk-binding-class-get-symbols(bulk-binding-ref b_21))" " b_21" -"(append extra-shifts_0(if s_68(syntax-mpi-shifts s_68) null))))))" +"(append extra-shifts_0(if s_66(syntax-mpi-shifts s_66) null))))))" "(define-values(bulk-binding-create)(lambda(b_22)(begin(bulk-binding-class-create(bulk-binding-ref b_22)))))" "(define-values(binding-table-empty?)(lambda(bt_0)(begin(if(hash? bt_0)(zero?(hash-count bt_0)) #f))))" "(define-values" @@ -6603,13 +6312,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_34)))" -"((letrec-values(((for-loop_34)" -"(lambda(syms_3 i_46)" +"((letrec-values(((for-loop_33)" +"(lambda(syms_3 i_47)" "(begin" " 'for-loop" -"(if i_46" +"(if i_47" "(let-values(((sym_1 sym-bindings_0)" -"(unsafe-immutable-hash-iterate-key+value ht_34 i_46)))" +"(unsafe-immutable-hash-iterate-key+value ht_34 i_47)))" "(let-values(((syms_4)" "(let-values(((syms_5) syms_3))" "(let-values(((syms_6)" @@ -6623,10 +6332,10 @@ static const char *startup_source = " syms_5))))" "(values syms_6)))))" "(if(not #f)" -"(for-loop_34 syms_4(unsafe-immutable-hash-iterate-next ht_34 i_46))" +"(for-loop_33 syms_4(unsafe-immutable-hash-iterate-next ht_34 i_47))" " syms_4)))" " syms_3)))))" -" for-loop_34)" +" for-loop_33)" " syms_2" "(unsafe-immutable-hash-iterate-first ht_34)))))" "(let-values()" @@ -6635,12 +6344,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_35)))" -"((letrec-values(((for-loop_35)" -"(lambda(syms_7 i_47)" +"((letrec-values(((for-loop_34)" +"(lambda(syms_7 i_48)" "(begin" " 'for-loop" -"(if i_47" -"(let-values(((sym_2)(unsafe-immutable-hash-iterate-key ht_35 i_47)))" +"(if i_48" +"(let-values(((sym_2)(unsafe-immutable-hash-iterate-key ht_35 i_48)))" "(let-values(((syms_8)" "(let-values(((syms_9) syms_7))" "(let-values(((syms_10)" @@ -6656,10 +6365,10 @@ static const char *startup_source = " syms_9)))))" "(values syms_10)))))" "(if(not #f)" -"(for-loop_35 syms_8(unsafe-immutable-hash-iterate-next ht_35 i_47))" +"(for-loop_34 syms_8(unsafe-immutable-hash-iterate-next ht_35 i_48))" " syms_8)))" " syms_7)))))" -" for-loop_35)" +" for-loop_34)" " syms_2" "(unsafe-immutable-hash-iterate-first ht_35))))))))))" "(define-values" @@ -6668,7 +6377,7 @@ static const char *startup_source = "(begin(hash-set syms_11 sym_3(hash-remove sym-bindings_2 scopes_4)))))" "(define-values" "(binding-table-symbols)" -"(lambda(table_33 scs_2 s_69 extra-shifts_1)" +"(lambda(table_33 scs_2 s_67 extra-shifts_1)" "(begin" "(let-values(((ht_36 bulk-bindings_1)" "(if(hash? table_33)" @@ -6680,12 +6389,12 @@ static const char *startup_source = "(let-values(((ht_37) ht_36))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_37)))" -"((letrec-values(((for-loop_36)" -"(lambda(table_34 i_48)" +"((letrec-values(((for-loop_35)" +"(lambda(table_34 i_49)" "(begin" " 'for-loop" -"(if i_48" -"(let-values(((sym_4 at-sym_0)(hash-iterate-key+value ht_37 i_48)))" +"(if i_49" +"(let-values(((sym_4 at-sym_0)(hash-iterate-key+value ht_37 i_49)))" "(let-values(((table_2)" "(let-values(((table_3) table_34))" "(if(let-values(((ht_38) at-sym_0))" @@ -6694,15 +6403,15 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_38)))" -"((letrec-values(((for-loop_37)" -"(lambda(result_29 i_49)" +"((letrec-values(((for-loop_36)" +"(lambda(result_29 i_50)" "(begin" " 'for-loop" -"(if i_49" +"(if i_50" "(let-values(((an-scs_0)" "(hash-iterate-key" " ht_38" -" i_49)))" +" i_50)))" "(let-values(((result_30)" "(let-values()" "(let-values(((result_31)" @@ -6719,14 +6428,14 @@ static const char *startup_source = " an-scs_0))" "(not #f)" " #f)" -"(for-loop_37" +"(for-loop_36" " result_30" "(hash-iterate-next" " ht_38" -" i_49))" +" i_50))" " result_30)))" " result_29)))))" -" for-loop_37)" +" for-loop_36)" " #f" "(hash-iterate-first ht_38))))" "(let-values(((table_5) table_3))" @@ -6740,42 +6449,42 @@ static const char *startup_source = "(hash-set table_5 key_19 val_9)))))" "(values table_6)))" " table_3))))" -"(if(not #f)(for-loop_36 table_2(hash-iterate-next ht_37 i_48)) table_2)))" +"(if(not #f)(for-loop_35 table_2(hash-iterate-next ht_37 i_49)) table_2)))" " table_34)))))" -" for-loop_36)" +" for-loop_35)" " '#hasheq()" "(hash-iterate-first ht_37))))" -"(let-values(((lst_34) bulk-bindings_1))" +"(let-values(((lst_35) bulk-bindings_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_34)))" -"((letrec-values(((for-loop_38)" -"(lambda(table_35 lst_35)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_35)))" +"((letrec-values(((for-loop_37)" +"(lambda(table_35 lst_36)" "(begin" " 'for-loop" -"(if(pair? lst_35)" -"(let-values(((bba_1)(unsafe-car lst_35))((rest_14)(unsafe-cdr lst_35)))" +"(if(pair? lst_36)" +"(let-values(((bba_1)(unsafe-car lst_36))((rest_14)(unsafe-cdr lst_36)))" "(let-values(((table_36)" "(let-values(((table_37) table_35))" "(if(subset?(bulk-binding-at-scopes bba_1) scs_2)" "(let-values(((ht_39)" "(bulk-binding-symbols" "(bulk-binding-at-bulk bba_1)" -" s_69" +" s_67" " extra-shifts_1)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_39)))" -"((letrec-values(((for-loop_39)" -"(lambda(table_38 i_50)" +"((letrec-values(((for-loop_38)" +"(lambda(table_38 i_51)" "(begin" " 'for-loop" -"(if i_50" +"(if i_51" "(let-values(((sym_5)" "(hash-iterate-key" " ht_39" -" i_50)))" +" i_51)))" "(let-values(((table_39)" "(let-values(((table_40)" " table_38))" @@ -6795,29 +6504,29 @@ static const char *startup_source = "(values" " table_41)))))" "(if(not #f)" -"(for-loop_39" +"(for-loop_38" " table_39" "(hash-iterate-next" " ht_39" -" i_50))" +" i_51))" " table_39)))" " table_38)))))" -" for-loop_39)" +" for-loop_38)" " table_37" "(hash-iterate-first ht_39))))" " table_37))))" -"(if(not #f)(for-loop_38 table_36 rest_14) table_36)))" +"(if(not #f)(for-loop_37 table_36 rest_14) table_36)))" " table_35)))))" -" for-loop_38)" +" for-loop_37)" " '#hasheq()" -" lst_34))))))))" +" lst_35))))))))" "(define-values" "(binding-table-prune-to-reachable)" "(lambda(bt_3 state_12)" "(begin" -"(let-values(((or-part_102)(hash-ref(serialize-state-bindings-intern state_12) bt_3 #f)))" -"(if or-part_102" -" or-part_102" +"(let-values(((or-part_92)(hash-ref(serialize-state-bindings-intern state_12) bt_3 #f)))" +"(if or-part_92" +" or-part_92" "(let-values(((reachable-scopes_1)(serialize-state-reachable-scopes state_12)))" "(let-values(((new-syms_2)" "(let-values(((ht_40)(if(hash? bt_3) bt_3(table-with-bulk-bindings-syms/serialize bt_3))))" @@ -6825,15 +6534,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_40)))" -"((letrec-values(((for-loop_40)" -"(lambda(table_42 i_51)" +"((letrec-values(((for-loop_39)" +"(lambda(table_42 i_52)" "(begin" " 'for-loop" -"(if i_51" +"(if i_52" "(let-values(((sym_6 bindings-for-sym_0)" "(unsafe-immutable-hash-iterate-key+value" " ht_40" -" i_51)))" +" i_52)))" "(let-values(((table_43)" "(let-values(((new-bindings-for-sym_0)" "(let-values(((ht_41)" @@ -6845,17 +6554,17 @@ static const char *startup_source = "(let-values()" "(check-in-immutable-hash" " ht_41)))" -"((letrec-values(((for-loop_41)" +"((letrec-values(((for-loop_40)" "(lambda(table_44" -" i_52)" +" i_53)" "(begin" " 'for-loop" -"(if i_52" +"(if i_53" "(let-values(((scopes_5" " binding_1)" "(unsafe-immutable-hash-iterate-key+value" " ht_41" -" i_52)))" +" i_53)))" "(let-values(((table_45)" "(let-values(((table_46)" " table_44))" @@ -6883,20 +6592,20 @@ static const char *startup_source = " table_46))))" "(if(not" " #f)" -"(for-loop_41" +"(for-loop_40" " table_45" "(unsafe-immutable-hash-iterate-next" " ht_41" -" i_52))" +" i_53))" " table_45)))" " table_44)))))" -" for-loop_41)" +" for-loop_40)" " '#hash()" "(unsafe-immutable-hash-iterate-first" " ht_41))))))" "(begin" " #t" -"((letrec-values(((for-loop_42)" +"((letrec-values(((for-loop_41)" "(lambda(table_49)" "(begin" " 'for-loop" @@ -6925,33 +6634,33 @@ static const char *startup_source = " table_53)))" " table_51))))" " table_50))))))" -" for-loop_42)" +" for-loop_41)" " table_42)))))" "(if(not #f)" -"(for-loop_40" +"(for-loop_39" " table_43" -"(unsafe-immutable-hash-iterate-next ht_40 i_51))" +"(unsafe-immutable-hash-iterate-next ht_40 i_52))" " table_43)))" " table_42)))))" -" for-loop_40)" +" for-loop_39)" " '#hasheq()" "(unsafe-immutable-hash-iterate-first ht_40))))))" "(let-values(((new-bulk-bindings_0)" "(if(hash? bt_3)" " null" "(reverse$1" -"(let-values(((lst_36)(table-with-bulk-bindings-bulk-bindings bt_3)))" +"(let-values(((lst_37)(table-with-bulk-bindings-bulk-bindings bt_3)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_36)))" -"((letrec-values(((for-loop_43)" -"(lambda(fold-var_21 lst_37)" +"(let-values()(check-list lst_37)))" +"((letrec-values(((for-loop_42)" +"(lambda(fold-var_21 lst_38)" "(begin" " 'for-loop" -"(if(pair? lst_37)" -"(let-values(((bba_2)(unsafe-car lst_37))" -"((rest_15)(unsafe-cdr lst_37)))" +"(if(pair? lst_38)" +"(let-values(((bba_2)(unsafe-car lst_38))" +"((rest_15)(unsafe-cdr lst_38)))" "(let-values(((fold-var_22)" "(let-values(((fold-var_23) fold-var_21))" "(if(subset?" @@ -6983,12 +6692,12 @@ static const char *startup_source = "(values fold-var_25)))" " fold-var_23))))" "(if(not #f)" -"(for-loop_43 fold-var_22 rest_15)" +"(for-loop_42 fold-var_22 rest_15)" " fold-var_22)))" " fold-var_21)))))" -" for-loop_43)" +" for-loop_42)" " null" -" lst_36)))))))" +" lst_37)))))))" "(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)" @@ -7004,28 +6713,28 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_42)))" -"((letrec-values(((for-loop_44)" -"(lambda(i_53)" +"((letrec-values(((for-loop_43)" +"(lambda(i_54)" "(begin" " 'for-loop" -"(if i_53" +"(if i_54" "(let-values(((sym_7 bindings-for-sym_1)" -"(unsafe-immutable-hash-iterate-key+value ht_42 i_53)))" +"(unsafe-immutable-hash-iterate-key+value ht_42 i_54)))" "(let-values((()" "(let-values(((ht_43) bindings-for-sym_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_43)))" -"((letrec-values(((for-loop_45)" -"(lambda(i_54)" +"((letrec-values(((for-loop_44)" +"(lambda(i_55)" "(begin" " 'for-loop" -"(if i_54" +"(if i_55" "(let-values(((scopes_6 binding_2)" "(unsafe-immutable-hash-iterate-key+value" " ht_43" -" i_54)))" +" i_55)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -7041,30 +6750,30 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_45" +"(for-loop_44" "(unsafe-immutable-hash-iterate-next" " ht_43" -" i_54))" -"(values))))" -"(values))))))" -" for-loop_45)" -"(unsafe-immutable-hash-iterate-first ht_43))))))" -"(if(not #f)" -"(for-loop_44(unsafe-immutable-hash-iterate-next ht_42 i_53))" +" i_55))" "(values))))" "(values))))))" " for-loop_44)" +"(unsafe-immutable-hash-iterate-first ht_43))))))" +"(if(not #f)" +"(for-loop_43(unsafe-immutable-hash-iterate-next ht_42 i_54))" +"(values))))" +"(values))))))" +" for-loop_43)" "(unsafe-immutable-hash-iterate-first ht_42))))" "(void)))))" "(define-values" "(scopes-register-reachable)" "(lambda(scopes_7 binding_3 reachable-scopes_3 reach_3 register-trigger_1)" "(begin" -"(let-values(((v_46)(if(binding-reach-scopes? binding_3)((binding-reach-scopes-ref binding_3) binding_3) #f)))" -"(if v_46" +"(let-values(((v_74)(if(binding-reach-scopes? binding_3)((binding-reach-scopes-ref binding_3) binding_3) #f)))" +"(if v_74" "(let-values()" "(if(subset? scopes_7 reachable-scopes_3)" -"(let-values()(reach_3 v_46))" +"(let-values()(reach_3 v_74))" "(let-values()" "(begin" "(let-values(((ht_44) scopes_7))" @@ -7072,12 +6781,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_44)))" -"((letrec-values(((for-loop_46)" -"(lambda(i_55)" +"((letrec-values(((for-loop_45)" +"(lambda(i_56)" "(begin" " 'for-loop" -"(if i_55" -"(let-values(((sc_0)(unsafe-immutable-hash-iterate-key ht_44 i_55)))" +"(if i_56" +"(let-values(((sc_0)(unsafe-immutable-hash-iterate-key ht_44 i_56)))" "(let-values((()" "(let-values()" "(if(set-member? reachable-scopes_3 sc_0)" @@ -7087,14 +6796,14 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(register-trigger_1 sc_0 v_46))" +"(register-trigger_1 sc_0 v_74))" "(values)))))" "(values)))))))" "(if(not #f)" -"(for-loop_46(unsafe-immutable-hash-iterate-next ht_44 i_55))" +"(for-loop_45(unsafe-immutable-hash-iterate-next ht_44 i_56))" "(values))))" "(values))))))" -" for-loop_46)" +" for-loop_45)" "(unsafe-immutable-hash-iterate-first ht_44))))" "(void)))))" "(void))))))" @@ -7102,7 +6811,7 @@ static const char *startup_source = "(taint-content)" "(lambda(d_2)" "(begin" -"(let-values(((s_70) d_2)" +"(let-values(((s_68) d_2)" "((f_25)(lambda(tail?_15 x_28)(begin 'f x_28)))" "((s->_1)" "(lambda(sub-s_0)" @@ -7117,10 +6826,10 @@ static const char *startup_source = "(let-values(((scope-propagations+tamper6_0)" "(let-values(((t_16)" "(tamper-tainted-for-content(syntax-content sub-s_0)))" -"((p_23)(syntax-scope-propagations+tamper stx_0)))" -"(if(tamper? p_23)" +"((p_19)(syntax-scope-propagations+tamper stx_0)))" +"(if(tamper? p_19)" " t_16" -"((propagation-set-tamper-ref p_23) p_23 t_16)))))" +"((propagation-set-tamper-ref p_19) p_19 t_16)))))" "(syntax1.1" "(syntax-content the-struct_3)" "(syntax-scopes the-struct_3)" @@ -7132,107 +6841,107 @@ static const char *startup_source = "(syntax-inspector the-struct_3)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_3)))))))))" "((seen_7) #f))" -"(let-values(((s_71) s_70)" +"(let-values(((s_69) s_68)" "((f_4)" -"(lambda(tail?_16 v_78)" +"(lambda(tail?_16 v_75)" "(begin" " 'f" -"(if(syntax?$1 v_78)(let-values()(s->_1 v_78))(let-values()(f_25 tail?_16 v_78))))))" +"(if(syntax?$1 v_75)(let-values()(s->_1 v_75))(let-values()(f_25 tail?_16 v_75))))))" "((seen_8) seen_7))" -"((letrec-values(((loop_70)" -"(lambda(tail?_17 s_72 prev-depth_3)" +"((letrec-values(((loop_66)" +"(lambda(tail?_17 s_70 prev-depth_3)" "(begin" " 'loop" "(let-values(((depth_3)(add1 prev-depth_3)))" "(if(if seen_8(> depth_3 32) #f)" "(let-values()" -"(datum-map-slow tail?_17 s_72(lambda(tail?_1 s_41)(f_4 tail?_1 s_41)) seen_8))" -"(if(null? s_72)" -"(let-values()(f_4 tail?_17 s_72))" -"(if(pair? s_72)" +"(datum-map-slow tail?_17 s_70(lambda(tail?_1 s_41)(f_4 tail?_1 s_41)) seen_8))" +"(if(null? s_70)" +"(let-values()(f_4 tail?_17 s_70))" +"(if(pair? s_70)" "(let-values()" "(f_4" " tail?_17" -"(cons(loop_70 #f(car s_72) depth_3)(loop_70 #t(cdr s_72) depth_3))))" -"(if(let-values(((or-part_86)(symbol? s_72)))" -"(if or-part_86" -" or-part_86" -"(let-values(((or-part_87)(boolean? s_72)))" -"(if or-part_87 or-part_87(number? s_72)))))" -"(let-values()(f_4 #f s_72))" -"(if(let-values(((or-part_76)(vector? s_72)))" -"(if or-part_76" -" or-part_76" -"(let-values(((or-part_77)(box? s_72)))" -"(if or-part_77" -" or-part_77" -"(let-values(((or-part_88)(prefab-struct-key s_72)))" -"(if or-part_88 or-part_88(hash? s_72)))))))" +"(cons(loop_66 #f(car s_70) depth_3)(loop_66 #t(cdr s_70) depth_3))))" +"(if(let-values(((or-part_78)(symbol? s_70)))" +"(if or-part_78" +" or-part_78" +"(let-values(((or-part_79)(boolean? s_70)))" +"(if or-part_79 or-part_79(number? s_70)))))" +"(let-values()(f_4 #f s_70))" +"(if(let-values(((or-part_70)(vector? s_70)))" +"(if or-part_70" +" or-part_70" +"(let-values(((or-part_71)(box? s_70)))" +"(if or-part_71" +" or-part_71" +"(let-values(((or-part_80)(prefab-struct-key s_70)))" +"(if or-part_80 or-part_80(hash? s_70)))))))" "(let-values()" "(datum-map-slow" " tail?_17" -" s_72" -"(lambda(tail?_18 s_73)(f_4 tail?_18 s_73))" +" s_70" +"(lambda(tail?_18 s_71)(f_4 tail?_18 s_71))" " seen_8))" -"(let-values()(f_4 #f s_72))))))))))))" -" loop_70)" +"(let-values()(f_4 #f s_70))))))))))))" +" loop_66)" " #f" -" s_71" +" s_69" " 0))))))" -"(define-values(syntax-tainted?$1)(lambda(s_74)(begin 'syntax-tainted?(tamper-tainted?(syntax-tamper s_74)))))" +"(define-values(syntax-tainted?$1)(lambda(s_72)(begin 'syntax-tainted?(tamper-tainted?(syntax-tamper s_72)))))" "(define-values(syntax-clean?)(lambda(s_6)(begin(tamper-clean?(syntax-tamper s_6)))))" "(define-values" "(syntax-arm$1)" -"(lambda(s_75 insp_0)" +"(lambda(s_73 insp_0)" "(begin" " 'syntax-arm" -"(let-values(((t_17)(syntax-tamper s_75)))" +"(let-values(((t_17)(syntax-tamper s_73)))" "(if(tamper-tainted? t_17)" -"(let-values() s_75)" +"(let-values() s_73)" "(if(if t_17" -"(let-values(((or-part_103)(set-member? t_17 insp_0)))" -"(if or-part_103" -" or-part_103" +"(let-values(((or-part_93)(set-member? t_17 insp_0)))" +"(if or-part_93" +" or-part_93" "(let-values(((ht_45) t_17))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_45)))" -"((letrec-values(((for-loop_47)" -"(lambda(result_32 i_56)" +"((letrec-values(((for-loop_46)" +"(lambda(result_32 i_57)" "(begin" " 'for-loop" -"(if i_56" +"(if i_57" "(let-values(((already-insp_0)" -"(unsafe-immutable-hash-iterate-key ht_45 i_56)))" -"(let-values(((result_4)" -"(let-values()" +"(unsafe-immutable-hash-iterate-key ht_45 i_57)))" "(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_33)))))" -"(if(if(not((lambda x_29 result_4) already-insp_0))(not #f) #f)" -"(for-loop_47" -" result_4" -"(unsafe-immutable-hash-iterate-next ht_45 i_56))" -" result_4)))" +"(values result_34)))))" +"(if(if(not((lambda x_29 result_33) already-insp_0))(not #f) #f)" +"(for-loop_46" +" result_33" +"(unsafe-immutable-hash-iterate-next ht_45 i_57))" +" result_33)))" " result_32)))))" -" for-loop_47)" +" for-loop_46)" " #f" "(unsafe-immutable-hash-iterate-first ht_45))))))" " #f)" -"(let-values() s_75)" +"(let-values() s_73)" "(let-values()" -"(let-values(((stx_1) s_75))" +"(let-values(((stx_1) s_73))" "(let-values(((the-struct_4) stx_1))" "(if(syntax?$1 the-struct_4)" "(let-values(((scope-propagations+tamper7_0)" "(let-values(((t_18)(set-add(if t_17(remove-inferior t_17 insp_0)(seteq)) insp_0))" -"((p_24)(syntax-scope-propagations+tamper stx_1)))" -"(if(tamper? p_24) t_18((propagation-set-tamper-ref p_24) p_24 t_18)))))" +"((p_20)(syntax-scope-propagations+tamper stx_1)))" +"(if(tamper? p_20) t_18((propagation-set-tamper-ref p_20) p_20 t_18)))))" "(syntax1.1" "(syntax-content the-struct_4)" "(syntax-scopes the-struct_4)" @@ -7252,12 +6961,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_46)))" -"((letrec-values(((for-loop_48)" -"(lambda(table_54 i_57)" +"((letrec-values(((for-loop_47)" +"(lambda(table_54 i_58)" "(begin" " 'for-loop" -"(if i_57" -"(let-values(((already-insp_1)(unsafe-immutable-hash-iterate-key ht_46 i_57)))" +"(if i_58" +"(let-values(((already-insp_1)(unsafe-immutable-hash-iterate-key ht_46 i_58)))" "(let-values(((table_15)" "(let-values(((table_55) table_54))" "(if(inspector-superior-or-same? insp_1 already-insp_1)" @@ -7273,10 +6982,10 @@ static const char *startup_source = "(hash-set table_56 key_23 val_13)))))" "(values table_57)))))))" "(if(not #f)" -"(for-loop_48 table_15(unsafe-immutable-hash-iterate-next ht_46 i_57))" +"(for-loop_47 table_15(unsafe-immutable-hash-iterate-next ht_46 i_58))" " table_15)))" " table_54)))))" -" for-loop_48)" +" for-loop_47)" " '#hasheq()" "(unsafe-immutable-hash-iterate-first ht_46)))))))" "(define-values" @@ -7298,10 +7007,10 @@ static const char *startup_source = "(if(syntax?$1 the-struct_5)" "(let-values(((scope-propagations+tamper8_0)" "(let-values(((t_21) #f)" -"((p_25)(syntax-scope-propagations+tamper stx_2)))" -"(if(tamper? p_25)" +"((p_21)(syntax-scope-propagations+tamper stx_2)))" +"(if(tamper? p_21)" " t_21" -"((propagation-set-tamper-ref p_25) p_25 t_21)))))" +"((propagation-set-tamper-ref p_21) p_21 t_21)))))" "(syntax1.1" "(syntax-content the-struct_5)" "(syntax-scopes the-struct_5)" @@ -7319,10 +7028,10 @@ static const char *startup_source = "(if(syntax?$1 the-struct_6)" "(let-values(((scope-propagations+tamper9_0)" "(let-values(((t_22)(if(not(set-empty? new-t_1)) new-t_1 #f))" -"((p_26)(syntax-scope-propagations+tamper stx_3)))" -"(if(tamper? p_26)" +"((p_22)(syntax-scope-propagations+tamper stx_3)))" +"(if(tamper? p_22)" " t_22" -"((propagation-set-tamper-ref p_26) p_26 t_22)))))" +"((propagation-set-tamper-ref p_22) p_22 t_22)))))" "(syntax1.1" "(syntax-content the-struct_6)" "(syntax-scopes the-struct_6)" @@ -7335,7 +7044,7 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_6))))))))))))))))" "(case-lambda" "((s_21)(begin 'syntax-disarm(syntax-disarm4_0 s_21 #f #f)))" -"((s_76 insp1_1)(syntax-disarm4_0 s_76 insp1_1 #t)))))" +"((s_74 insp1_1)(syntax-disarm4_0 s_74 insp1_1 #t)))))" "(define-values" "(syntax-rearm$1)" "(lambda(s_23 from-s_0)" @@ -7355,8 +7064,8 @@ static const char *startup_source = "(if(syntax?$1 the-struct_7)" "(let-values(((scope-propagations+tamper10_0)" "(let-values(((t_24)(tamper-tainted-for-content(syntax-content s_23)))" -"((p_27)(syntax-scope-propagations+tamper stx_4)))" -"(if(tamper? p_27) t_24((propagation-set-tamper-ref p_27) p_27 t_24)))))" +"((p_23)(syntax-scope-propagations+tamper stx_4)))" +"(if(tamper? p_23) t_24((propagation-set-tamper-ref p_23) p_23 t_24)))))" "(syntax1.1" "(syntax-content the-struct_7)" "(syntax-scopes the-struct_7)" @@ -7374,8 +7083,8 @@ static const char *startup_source = "(if(syntax?$1 the-struct_8)" "(let-values(((scope-propagations+tamper11_0)" "(let-values(((t_25) from-t_0)" -"((p_28)(syntax-scope-propagations+tamper stx_5)))" -"(if(tamper? p_28) t_25((propagation-set-tamper-ref p_28) p_28 t_25)))))" +"((p_24)(syntax-scope-propagations+tamper stx_5)))" +"(if(tamper? p_24) t_25((propagation-set-tamper-ref p_24) p_24 t_25)))))" "(syntax1.1" "(syntax-content the-struct_8)" "(syntax-scopes the-struct_8)" @@ -7397,15 +7106,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_47)))" -"((letrec-values(((for-loop_49)" -"(lambda(t_27 i_58)" +"((letrec-values(((for-loop_48)" +"(lambda(t_27 i_59)" "(begin" " 'for-loop" -"(if i_58" +"(if i_59" "(let-values(((from-i_0)" "(unsafe-immutable-hash-iterate-key" " ht_47" -" i_58)))" +" i_59)))" "(let-values(((t_28)" "(let-values(((t_29)" " t_27))" @@ -7430,18 +7139,18 @@ static const char *startup_source = "(values" " t_30)))))" "(if(not #f)" -"(for-loop_49" +"(for-loop_48" " t_28" "(unsafe-immutable-hash-iterate-next" " ht_47" -" i_58))" +" i_59))" " t_28)))" " t_27)))))" -" for-loop_49)" +" for-loop_48)" " t_23" "(unsafe-immutable-hash-iterate-first ht_47)))))" -"((p_29)(syntax-scope-propagations+tamper stx_6)))" -"(if(tamper? p_29) t_26((propagation-set-tamper-ref p_29) p_29 t_26)))))" +"((p_25)(syntax-scope-propagations+tamper stx_6)))" +"(if(tamper? p_25) t_26((propagation-set-tamper-ref p_25) p_25 t_26)))))" "(syntax1.1" "(syntax-content the-struct_9)" "(syntax-scopes the-struct_9)" @@ -7454,18 +7163,18 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_9)))))))))))))))" "(define-values" "(syntax-taint$1)" -"(lambda(s_77)" +"(lambda(s_75)" "(begin" " 'syntax-taint" -"(if(tamper-tainted?(syntax-tamper s_77))" -" s_77" -"(let-values(((stx_7) s_77))" +"(if(tamper-tainted?(syntax-tamper s_75))" +" s_75" +"(let-values(((stx_7) s_75))" "(let-values(((the-struct_10) stx_7))" "(if(syntax?$1 the-struct_10)" "(let-values(((scope-propagations+tamper13_0)" -"(let-values(((t_31)(tamper-tainted-for-content(syntax-content s_77)))" -"((p_30)(syntax-scope-propagations+tamper stx_7)))" -"(if(tamper? p_30) t_31((propagation-set-tamper-ref p_30) p_30 t_31)))))" +"(let-values(((t_31)(tamper-tainted-for-content(syntax-content s_75)))" +"((p_26)(syntax-scope-propagations+tamper stx_7)))" +"(if(tamper? p_26) t_31((propagation-set-tamper-ref p_26) p_26 t_31)))))" "(syntax1.1" "(syntax-content the-struct_10)" "(syntax-scopes the-struct_10)" @@ -7485,32 +7194,31 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_48)))" -"((letrec-values(((for-loop_50)" -"(lambda(result_34 i_59)" +"((letrec-values(((for-loop_49)" +"(lambda(result_35 i_60)" "(begin" " 'for-loop" -"(if i_59" -"(let-values(((i_60)(unsafe-immutable-hash-iterate-key ht_48 i_59)))" -"(let-values(((result_7)" +"(if i_60" +"(let-values(((i_61)(unsafe-immutable-hash-iterate-key ht_48 i_60)))" +"(let-values(((result_36)" "(let-values()" -"(let-values(((result_35)" +"(let-values(((result_37)" "(let-values()" "(let-values()" -"(inspector-superior-or-same? i_60 from-i_1)))))" -"(values result_35)))))" -"(if(if(not((lambda x_30 result_7) i_60))(not #f) #f)" -"(for-loop_50 result_7(unsafe-immutable-hash-iterate-next ht_48 i_59))" -" result_7)))" -" result_34)))))" -" for-loop_50)" +"(inspector-superior-or-same? i_61 from-i_1)))))" +"(values result_37)))))" +"(if(if(not((lambda x_30 result_36) i_61))(not #f) #f)" +"(for-loop_49 result_36(unsafe-immutable-hash-iterate-next ht_48 i_60))" +" result_36)))" +" result_35)))))" +" for-loop_49)" " #f" "(unsafe-immutable-hash-iterate-first ht_48)))))))" "(define-values" "(inspector-superior-or-same?)" -"(lambda(sup-i_0 i_61)" +"(lambda(sup-i_0 i_62)" "(begin" -"(let-values(((or-part_104)(eq? sup-i_0 i_61)))" -"(if or-part_104 or-part_104(inspector-superior? sup-i_0 i_61))))))" +"(let-values(((or-part_94)(eq? sup-i_0 i_62)))(if or-part_94 or-part_94(inspector-superior? sup-i_0 i_62))))))" "(define-values" "(struct:fallback fallback1.1 fallback? fallback-search-list)" "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" @@ -7550,15 +7258,15 @@ static const char *startup_source = "(if(fallback? smss_4)" "(fallback1.1" "(reverse$1" -"(let-values(((lst_38)(fallback-search-list smss_4)))" +"(let-values(((lst_39)(fallback-search-list smss_4)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_38)))" -"((letrec-values(((for-loop_51)" -"(lambda(fold-var_26 lst_39)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_39)))" +"((letrec-values(((for-loop_50)" +"(lambda(fold-var_26 lst_40)" "(begin" " 'for-loop" -"(if(pair? lst_39)" -"(let-values(((smss_5)(unsafe-car lst_39))((rest_16)(unsafe-cdr lst_39)))" +"(if(pair? lst_40)" +"(let-values(((smss_5)(unsafe-car lst_40))((rest_16)(unsafe-cdr lst_40)))" "(let-values(((fold-var_27)" "(let-values(((fold-var_28) fold-var_26))" "(let-values(((fold-var_29)" @@ -7567,11 +7275,11 @@ static const char *startup_source = "(let-values()(f_19 smss_5))" " fold-var_28))))" "(values fold-var_29)))))" -"(if(not #f)(for-loop_51 fold-var_27 rest_16) fold-var_27)))" +"(if(not #f)(for-loop_50 fold-var_27 rest_16) fold-var_27)))" " fold-var_26)))))" -" for-loop_51)" +" for-loop_50)" " null" -" lst_38)))))" +" lst_39)))))" "(f_19 smss_4)))))" "(define-values" "(fallback->list)" @@ -7616,10 +7324,10 @@ static const char *startup_source = "(begin" "(let-values(((c_15)(weak-box-value(unbox* cache))))" "(if c_15" -"(let-values(((v_79)(hash-ref c_15 sym_9 #f)))" -"(if v_79" -"(if(eqv? phase_0(entry-phase v_79))" -"(if(set=? scs_3(entry-scs v_79))(if(set=? smss_7(entry-smss v_79))(entry-binding v_79) #f) #f)" +"(let-values(((v_76)(hash-ref c_15 sym_9 #f)))" +"(if v_76" +"(if(eqv? phase_0(entry-phase v_76))" +"(if(set=? scs_3(entry-scs v_76))(if(set=? smss_7(entry-smss v_76))(entry-binding v_76) #f) #f)" " #f)" " #f))" " #f)))))" @@ -7642,92 +7350,92 @@ static const char *startup_source = "(define-values(cached-hashes-pos) 0)" "(define-values" "(cache-or-reuse-set)" -"(lambda(s_78)" +"(lambda(s_76)" "(begin" "(let-values(((vec_16)" -"(let-values(((or-part_105)(weak-box-value cached-sets)))" -"(if or-part_105" -" or-part_105" +"(let-values(((or-part_95)(weak-box-value cached-sets)))" +"(if or-part_95" +" or-part_95" "(let-values(((vec_17)(make-vector NUM-CACHE-SLOTS #f)))" "(begin(set! cached-sets(make-weak-box vec_17)) vec_17))))))" -"(let-values(((or-part_106)" +"(let-values(((or-part_96)" "(let-values(((vec_18 len_9)" "(let-values(((vec_19) vec_16))" "(begin(check-vector vec_19)(values vec_19(unsafe-vector-length vec_19))))))" "(begin" " #f" -"((letrec-values(((for-loop_52)" -"(lambda(result_36 pos_7)" +"((letrec-values(((for-loop_51)" +"(lambda(result_38 pos_7)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_7 len_9)" "(let-values(((s2_5)(unsafe-vector-ref vec_18 pos_7)))" -"(let-values(((result_37)" +"(let-values(((result_39)" "(let-values()" -"(let-values(((result_38)" +"(let-values(((result_40)" "(let-values()" "(let-values()" "(if s2_5" -"(if(set=? s_78 s2_5) s2_5 #f)" +"(if(set=? s_76 s2_5) s2_5 #f)" " #f)))))" -"(values result_38)))))" -"(if(if(not((lambda x_31 result_37) s2_5))(not #f) #f)" -"(for-loop_52 result_37(unsafe-fx+ 1 pos_7))" -" result_37)))" -" result_36)))))" -" for-loop_52)" +"(values result_40)))))" +"(if(if(not((lambda x_31 result_39) s2_5))(not #f) #f)" +"(for-loop_51 result_39(unsafe-fx+ 1 pos_7))" +" result_39)))" +" result_38)))))" +" for-loop_51)" " #f" " 0)))))" -"(if or-part_106" -" or-part_106" +"(if or-part_96" +" or-part_96" "(begin" -"(vector-set! vec_16 cached-sets-pos s_78)" +"(vector-set! vec_16 cached-sets-pos s_76)" "(set! cached-sets-pos(modulo(add1 cached-sets-pos) NUM-CACHE-SLOTS))" -" s_78)))))))" +" s_76)))))))" "(define-values" "(cache-or-reuse-hash)" -"(lambda(s_79)" +"(lambda(s_77)" "(begin" "(let-values(((vec_20)" -"(let-values(((or-part_107)(weak-box-value cached-hashes)))" -"(if or-part_107" -" or-part_107" +"(let-values(((or-part_97)(weak-box-value cached-hashes)))" +"(if or-part_97" +" or-part_97" "(let-values(((vec_21)(make-vector NUM-CACHE-SLOTS #f)))" "(begin(set! cached-hashes(make-weak-box vec_21)) vec_21))))))" -"(let-values(((or-part_108)" +"(let-values(((or-part_98)" "(let-values(((vec_22 len_10)" "(let-values(((vec_23) vec_20))" "(begin(check-vector vec_23)(values vec_23(unsafe-vector-length vec_23))))))" "(begin" " #f" -"((letrec-values(((for-loop_53)" -"(lambda(result_39 pos_8)" +"((letrec-values(((for-loop_52)" +"(lambda(result_41 pos_8)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_8 len_10)" "(let-values(((s2_6)(unsafe-vector-ref vec_22 pos_8)))" -"(let-values(((result_40)" +"(let-values(((result_42)" "(let-values()" -"(let-values(((result_41)" +"(let-values(((result_43)" "(let-values()" "(let-values()" "(if s2_6" -"(if(equal? s_79 s2_6) s2_6 #f)" +"(if(equal? s_77 s2_6) s2_6 #f)" " #f)))))" -"(values result_41)))))" -"(if(if(not((lambda x_32 result_40) s2_6))(not #f) #f)" -"(for-loop_53 result_40(unsafe-fx+ 1 pos_8))" -" result_40)))" -" result_39)))))" -" for-loop_53)" +"(values result_43)))))" +"(if(if(not((lambda x_32 result_42) s2_6))(not #f) #f)" +"(for-loop_52 result_42(unsafe-fx+ 1 pos_8))" +" result_42)))" +" result_41)))))" +" for-loop_52)" " #f" " 0)))))" -"(if or-part_108" -" or-part_108" +"(if or-part_98" +" or-part_98" "(begin" -"(vector-set! vec_20 cached-hashes-pos s_79)" +"(vector-set! vec_20 cached-hashes-pos s_77)" "(set! cached-hashes-pos(modulo(add1 cached-hashes-pos) NUM-CACHE-SLOTS))" -" s_79)))))))" +" s_77)))))))" "(define-values" "(struct:scope scope1.1 scope? scope-id scope-kind scope-binding-table set-scope-binding-table!)" "(let-values(((struct:_19 make-_19 ?_19 -ref_19 -set!_19)" @@ -7743,33 +7451,33 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:scope-with-bindings" -"(lambda(s_75 reachable-scopes_4 reach_4 register-trigger_2)" +"(lambda(s_73 reachable-scopes_4 reach_4 register-trigger_2)" "(binding-table-register-reachable" -"(scope-binding-table s_75)" +"(scope-binding-table s_73)" " reachable-scopes_4" " reach_4" " register-trigger_2)))" -"(cons prop:reach-scopes(lambda(s_80 reach_5)(void)))" +"(cons prop:reach-scopes(lambda(s_78 reach_5)(void)))" "(cons" " prop:serialize-fill!" -"(lambda(s_81 ser-push!_4 state_13)" -"(if(binding-table-empty?(scope-binding-table s_81))" +"(lambda(s_79 ser-push!_4 state_13)" +"(if(binding-table-empty?(scope-binding-table s_79))" "(let-values()(ser-push!_4 'tag #f))" "(let-values()" "(begin" "(ser-push!_4 'tag '#:scope-fill!)" -"(ser-push!_4(binding-table-prune-to-reachable(scope-binding-table s_81) state_13)))))))" +"(ser-push!_4(binding-table-prune-to-reachable(scope-binding-table s_79) state_13)))))))" "(cons" " prop:serialize" -"(lambda(s_82 ser-push!_5 state_14)" +"(lambda(s_80 ser-push!_5 state_14)" "(begin" -"(if(set-member?(serialize-state-reachable-scopes state_14) s_82)" +"(if(set-member?(serialize-state-reachable-scopes state_14) s_80)" "(void)" " (let-values () (error \"internal error: found supposedly unreachable scope\")))" -"(if(eq? s_82 top-level-common-scope)" +"(if(eq? s_80 top-level-common-scope)" "(let-values()(ser-push!_5 'tag '#:scope))" "(let-values()" -"(begin(ser-push!_5 'tag '#:scope+kind)(ser-push!_5(scope-kind s_82))))))))" +"(begin(ser-push!_5 'tag '#:scope+kind)(ser-push!_5(scope-kind s_80))))))))" "(cons" " prop:custom-write" "(lambda(sc_1 port_6 mode_6)" @@ -7797,7 +7505,7 @@ static const char *startup_source = "(case-lambda" "(()(begin top-level-common-scope))" "((kind_0)(scope1.1(new-deserialize-scope-id!) kind_0 empty-binding-table))))" -"(define-values(deserialize-scope-fill!)(lambda(s_83 bt_5)(begin(set-scope-binding-table! s_83 bt_5))))" +"(define-values(deserialize-scope-fill!)(lambda(s_81 bt_5)(begin(set-scope-binding-table! s_81 bt_5))))" "(define-values" "(struct:multi-scope" " multi-scope2.1" @@ -7873,11 +7581,11 @@ static const char *startup_source = "(ser-push!_7(representative-scope-owner s_30)))))" "(cons" " prop:serialize" -"(lambda(s_84 ser-push!_8 state_16)" +"(lambda(s_82 ser-push!_8 state_16)" "(begin" "(ser-push!_8 'tag '#:representative-scope)" -"(ser-push!_8(scope-kind s_84))" -"(ser-push!_8(representative-scope-phase s_84)))))" +"(ser-push!_8(scope-kind s_82))" +"(ser-push!_8(representative-scope-phase s_82)))))" "(cons" " prop:custom-write" "(lambda(sc_2 port_7 mode_7)" @@ -7909,11 +7617,11 @@ static const char *startup_source = "(define-values" "(deserialize-representative-scope)" "(lambda(kind_1 phase_2)" -"(begin(let-values(((v_56)(representative-scope3.1(new-deserialize-scope-id!) kind_1 #f #f phase_2))) v_56))))" +"(begin(let-values(((v_53)(representative-scope3.1(new-deserialize-scope-id!) kind_1 #f #f phase_2))) v_53))))" "(define-values" "(deserialize-representative-scope-fill!)" -"(lambda(s_85 bt_6 owner_0)" -"(begin(begin(deserialize-scope-fill! s_85 bt_6)(set-representative-scope-owner! s_85 owner_0)))))" +"(lambda(s_83 bt_6 owner_0)" +"(begin(begin(deserialize-scope-fill! s_83 bt_6)(set-representative-scope-owner! s_83 owner_0)))))" "(define-values" "(struct:shifted-multi-scope" " shifted-multi-scope4.1" @@ -7972,9 +7680,9 @@ static const char *startup_source = "(lambda(boxed-table_0 key_24 make_0)" "(begin" " 'transaction-loop" -"(let-values(((or-part_66)(hash-ref(unbox boxed-table_0) phase_4 #f)))" -"(if or-part_66" -" or-part_66" +"(let-values(((or-part_58)(hash-ref(unbox boxed-table_0) phase_4 #f)))" +"(if or-part_58" +" or-part_58" "(let-values(((val_14)(make_0)))" "(let-values(((current_0)(unbox boxed-table_0)))" "(let-values(((next_3)(hash-set current_0 key_24 val_14)))" @@ -7983,17 +7691,17 @@ static const char *startup_source = "(transaction-loop_0 boxed-table_0 key_24 make_0)))))))))))" "(if(phase? phase_4)" "(let-values()" -"(let-values(((or-part_109)(hash-ref(unbox(multi-scope-shifted multi-scope_1)) phase_4 #f)))" -"(if or-part_109" -" or-part_109" +"(let-values(((or-part_99)(hash-ref(unbox(multi-scope-shifted multi-scope_1)) phase_4 #f)))" +"(if or-part_99" +" or-part_99" "(transaction-loop_0" "(multi-scope-shifted multi-scope_1)" " phase_4" "(lambda()(shifted-multi-scope4.1 phase_4 multi-scope_1))))))" "(let-values()" -"(let-values(((or-part_110)(hash-ref(unbox(multi-scope-label-shifted multi-scope_1)) phase_4 #f)))" -"(if or-part_110" -" or-part_110" +"(let-values(((or-part_100)(hash-ref(unbox(multi-scope-label-shifted multi-scope_1)) phase_4 #f)))" +"(if or-part_100" +" or-part_100" "(transaction-loop_0" "(multi-scope-label-shifted multi-scope_1)" " phase_4" @@ -8037,11 +7745,11 @@ static const char *startup_source = "(multi-scope-to-scope-at-phase)" "(lambda(ms_2 phase_5)" "(begin" -"(let-values(((or-part_98)(hash-ref(multi-scope-scopes ms_2) phase_5 #f)))" -"(if or-part_98" -" or-part_98" -"(let-values(((s_86)(representative-scope3.1(new-scope-id!) 'module empty-binding-table ms_2 phase_5)))" -"(begin(hash-set!(multi-scope-scopes ms_2) phase_5 s_86) s_86)))))))" +"(let-values(((or-part_88)(hash-ref(multi-scope-scopes ms_2) phase_5 #f)))" +"(if or-part_88" +" or-part_88" +"(let-values(((s_84)(representative-scope3.1(new-scope-id!) 'module empty-binding-table ms_2 phase_5)))" +"(begin(hash-set!(multi-scope-scopes ms_2) phase_5 s_84) s_84)))))))" "(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)" @@ -8077,17 +7785,17 @@ static const char *startup_source = "(let-values(((the-struct_11) sub-s_1))" "(if(syntax?$1 the-struct_11)" "(let-values(((scopes41_0)" -"(propagation-apply prop_3(syntax-scopes sub-s_1) s_87))" +"(propagation-apply prop_3(syntax-scopes sub-s_1) s_85))" "((shifted-multi-scopes42_0)" "(propagation-apply-shifted" " prop_3" "(syntax-shifted-multi-scopes sub-s_1)" -" s_87))" +" s_85))" "((mpi-shifts43_0)" "(propagation-apply-mpi-shifts" " prop_3" "(syntax-mpi-shifts sub-s_1)" -" s_87))" +" s_85))" "((inspector44_0)" "(propagation-apply-inspector" " prop_3" @@ -8125,17 +7833,17 @@ static const char *startup_source = "(syntax-inspector the-struct_12)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_12)))))))" "((seen_9) #f))" -"(let-values(((s_89) s_88)" +"(let-values(((s_87) s_86)" "((f_28)" -"(lambda(tail?_20 v_80)" +"(lambda(tail?_20 v_77)" "(begin" " 'f" -"(if(syntax?$1 v_80)" -"(let-values()(s->_2 v_80))" -"(let-values()(f_27 tail?_20 v_80))))))" +"(if(syntax?$1 v_77)" +"(let-values()(s->_2 v_77))" +"(let-values()(f_27 tail?_20 v_77))))))" "((seen_10) seen_9))" -"((letrec-values(((loop_71)" -"(lambda(tail?_21 s_90 prev-depth_4)" +"((letrec-values(((loop_67)" +"(lambda(tail?_21 s_88 prev-depth_4)" "(begin" " 'loop" "(let-values(((depth_4)(add1 prev-depth_4)))" @@ -8143,58 +7851,58 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_21" -" s_90" -"(lambda(tail?_22 s_91)(f_28 tail?_22 s_91))" +" s_88" +"(lambda(tail?_22 s_89)(f_28 tail?_22 s_89))" " seen_10))" -"(if(null? s_90)" -"(let-values()(f_28 tail?_21 s_90))" -"(if(pair? s_90)" +"(if(null? s_88)" +"(let-values()(f_28 tail?_21 s_88))" +"(if(pair? s_88)" "(let-values()" "(f_28" " tail?_21" "(cons" -"(loop_71 #f(car s_90) depth_4)" -"(loop_71 #t(cdr s_90) depth_4))))" -"(if(let-values(((or-part_112)(symbol? s_90)))" -"(if or-part_112" -" or-part_112" -"(let-values(((or-part_67)(boolean? s_90)))" -"(if or-part_67 or-part_67(number? s_90)))))" -"(let-values()(f_28 #f s_90))" -"(if(let-values(((or-part_113)(vector? s_90)))" -"(if or-part_113" -" or-part_113" -"(let-values(((or-part_68)(box? s_90)))" -"(if or-part_68" -" or-part_68" -"(let-values(((or-part_69)" -"(prefab-struct-key s_90)))" -"(if or-part_69 or-part_69(hash? s_90)))))))" +"(loop_67 #f(car s_88) depth_4)" +"(loop_67 #t(cdr s_88) depth_4))))" +"(if(let-values(((or-part_102)(symbol? s_88)))" +"(if or-part_102" +" or-part_102" +"(let-values(((or-part_103)(boolean? s_88)))" +"(if or-part_103 or-part_103(number? s_88)))))" +"(let-values()(f_28 #f s_88))" +"(if(let-values(((or-part_104)(vector? s_88)))" +"(if or-part_104" +" or-part_104" +"(let-values(((or-part_105)(box? s_88)))" +"(if or-part_105" +" or-part_105" +"(let-values(((or-part_106)" +"(prefab-struct-key s_88)))" +"(if or-part_106 or-part_106(hash? s_88)))))))" "(let-values()" "(datum-map-slow" " tail?_21" -" s_90" -"(lambda(tail?_23 s_92)(f_28 tail?_23 s_92))" +" s_88" +"(lambda(tail?_23 s_90)(f_28 tail?_23 s_90))" " seen_10))" -"(let-values()(f_28 #f s_90))))))))))))" -" loop_71)" +"(let-values()(f_28 #f s_88))))))))))))" +" loop_67)" " #f" -" s_89" +" s_87" " 0)))))" "(begin" -"(set-syntax-content! s_87 new-content_0)" +"(set-syntax-content! s_85 new-content_0)" "(set-syntax-scope-propagations+tamper!" -" s_87" +" s_85" "(tamper-propagated(if(propagation? prop_3)(propagation-tamper prop_3) prop_3)))" " new-content_0))" -"(syntax-content s_87))))))" +"(syntax-content s_85))))))" "(define-values" "(syntax-e$1)" -"(lambda(s_93)" +"(lambda(s_91)" "(begin" " 'syntax-e" -"(let-values(((content_4)(syntax-e/no-taint s_93)))" -"(if(not(tamper-armed?(syntax-tamper s_93)))" +"(let-values(((content_4)(syntax-e/no-taint s_91)))" +"(if(not(tamper-armed?(syntax-tamper s_91)))" "(let-values() content_4)" "(if(datum-has-elements? content_4)(let-values()(taint-content content_4))(let-values() content_4)))))))" "(define-values" @@ -8206,25 +7914,25 @@ static const char *startup_source = " sc_3))))" "(define-values" "(add-scope)" -"(lambda(s_94 sc_4)" +"(lambda(s_92 sc_4)" "(begin" -"(let-values(((s_95) s_94)((sc_5)(generalize-scope sc_4))((op_0) set-add)((prop-op_0) propagation-add))" +"(let-values(((s_93) s_92)((sc_5)(generalize-scope sc_4))((op_0) set-add)((prop-op_0) propagation-add))" "(if(shifted-multi-scope? sc_5)" -"(let-values(((the-struct_13) s_95))" +"(let-values(((the-struct_13) s_93))" "(if(syntax?$1 the-struct_13)" "(let-values(((shifted-multi-scopes47_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_95)" +"(syntax-shifted-multi-scopes s_93)" "(lambda(smss_9)(op_0(fallback-first smss_9) sc_5))))" "((scope-propagations+tamper48_0)" -"(if(datum-has-elements?(syntax-content s_95))" +"(if(datum-has-elements?(syntax-content s_93))" "(prop-op_0" -"(syntax-scope-propagations+tamper s_95)" +"(syntax-scope-propagations+tamper s_93)" " sc_5" -"(syntax-scopes s_95)" -"(syntax-shifted-multi-scopes s_95)" -"(syntax-mpi-shifts s_95))" -"(syntax-scope-propagations+tamper s_95))))" +"(syntax-scopes s_93)" +"(syntax-shifted-multi-scopes s_93)" +"(syntax-mpi-shifts s_93))" +"(syntax-scope-propagations+tamper s_93))))" "(syntax1.1" "(syntax-content the-struct_13)" "(syntax-scopes the-struct_13)" @@ -8235,18 +7943,18 @@ static const char *startup_source = "(syntax-props the-struct_13)" "(syntax-inspector the-struct_13)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_13)))" -"(let-values(((the-struct_14) s_95))" +"(let-values(((the-struct_14) s_93))" "(if(syntax?$1 the-struct_14)" -"(let-values(((scopes49_0)(op_0(syntax-scopes s_95) sc_5))" +"(let-values(((scopes49_0)(op_0(syntax-scopes s_93) sc_5))" "((scope-propagations+tamper50_0)" -"(if(datum-has-elements?(syntax-content s_95))" +"(if(datum-has-elements?(syntax-content s_93))" "(prop-op_0" -"(syntax-scope-propagations+tamper s_95)" +"(syntax-scope-propagations+tamper s_93)" " sc_5" -"(syntax-scopes s_95)" -"(syntax-shifted-multi-scopes s_95)" -"(syntax-mpi-shifts s_95))" -"(syntax-scope-propagations+tamper s_95))))" +"(syntax-scopes s_93)" +"(syntax-shifted-multi-scopes s_93)" +"(syntax-mpi-shifts s_93))" +"(syntax-scope-propagations+tamper s_93))))" "(syntax1.1" "(syntax-content the-struct_14)" " scopes49_0" @@ -8259,50 +7967,47 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_14))))))))" "(define-values" "(add-scopes)" -"(lambda(s_96 scs_5)" +"(lambda(s_94 scs_5)" "(begin" -"(let-values(((lst_40) scs_5))" +"(let-values(((lst_41) scs_5))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_40)))" -"((letrec-values(((for-loop_54)" -"(lambda(s_97 lst_41)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_41)))" +"((letrec-values(((for-loop_53)" +"(lambda(s_95 lst_42)" "(begin" " 'for-loop" -"(if(pair? lst_41)" -"(let-values(((sc_6)(unsafe-car lst_41))((rest_17)(unsafe-cdr lst_41)))" -"(let-values(((s_98)" -"(let-values(((s_99) s_97))" -"(let-values(((s_100)(let-values()(add-scope s_99 sc_6))))" -"(values s_100)))))" -"(if(not #f)(for-loop_54 s_98 rest_17) s_98)))" -" s_97)))))" -" for-loop_54)" -" s_96" -" lst_40))))))" +"(if(pair? lst_42)" +"(let-values(((sc_6)(unsafe-car lst_42))((rest_17)(unsafe-cdr lst_42)))" +"(let-values(((s_96)" +"(let-values(((s_97) s_95))" +"(let-values(((s_98)(let-values()(add-scope s_97 sc_6))))" +"(values s_98)))))" +"(if(not #f)(for-loop_53 s_96 rest_17) s_96)))" +" s_95)))))" +" for-loop_53)" +" s_94" +" lst_41))))))" "(define-values" "(remove-scope)" -"(lambda(s_101 sc_7)" +"(lambda(s_99 sc_7)" "(begin" -"(let-values(((s_102) s_101)" -"((sc_8)(generalize-scope sc_7))" -"((op_1) set-remove)" -"((prop-op_1) propagation-remove))" +"(let-values(((s_100) s_99)((sc_8)(generalize-scope sc_7))((op_1) set-remove)((prop-op_1) propagation-remove))" "(if(shifted-multi-scope? sc_8)" -"(let-values(((the-struct_15) s_102))" +"(let-values(((the-struct_15) s_100))" "(if(syntax?$1 the-struct_15)" "(let-values(((shifted-multi-scopes51_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_102)" +"(syntax-shifted-multi-scopes s_100)" "(lambda(smss_10)(op_1(fallback-first smss_10) sc_8))))" "((scope-propagations+tamper52_0)" -"(if(datum-has-elements?(syntax-content s_102))" +"(if(datum-has-elements?(syntax-content s_100))" "(prop-op_1" -"(syntax-scope-propagations+tamper s_102)" +"(syntax-scope-propagations+tamper s_100)" " sc_8" -"(syntax-scopes s_102)" -"(syntax-shifted-multi-scopes s_102)" -"(syntax-mpi-shifts s_102))" -"(syntax-scope-propagations+tamper s_102))))" +"(syntax-scopes s_100)" +"(syntax-shifted-multi-scopes s_100)" +"(syntax-mpi-shifts s_100))" +"(syntax-scope-propagations+tamper s_100))))" "(syntax1.1" "(syntax-content the-struct_15)" "(syntax-scopes the-struct_15)" @@ -8313,18 +8018,18 @@ static const char *startup_source = "(syntax-props the-struct_15)" "(syntax-inspector the-struct_15)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_15)))" -"(let-values(((the-struct_16) s_102))" +"(let-values(((the-struct_16) s_100))" "(if(syntax?$1 the-struct_16)" -"(let-values(((scopes53_0)(op_1(syntax-scopes s_102) sc_8))" +"(let-values(((scopes53_0)(op_1(syntax-scopes s_100) sc_8))" "((scope-propagations+tamper54_0)" -"(if(datum-has-elements?(syntax-content s_102))" +"(if(datum-has-elements?(syntax-content s_100))" "(prop-op_1" -"(syntax-scope-propagations+tamper s_102)" +"(syntax-scope-propagations+tamper s_100)" " sc_8" -"(syntax-scopes s_102)" -"(syntax-shifted-multi-scopes s_102)" -"(syntax-mpi-shifts s_102))" -"(syntax-scope-propagations+tamper s_102))))" +"(syntax-scopes s_100)" +"(syntax-shifted-multi-scopes s_100)" +"(syntax-mpi-shifts s_100))" +"(syntax-scope-propagations+tamper s_100))))" "(syntax1.1" "(syntax-content the-struct_16)" " scopes53_0" @@ -8337,50 +8042,50 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_16))))))))" "(define-values" "(remove-scopes)" -"(lambda(s_103 scs_6)" +"(lambda(s_101 scs_6)" "(begin" -"(let-values(((lst_42) scs_6))" +"(let-values(((lst_43) scs_6))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_42)))" -"((letrec-values(((for-loop_55)" -"(lambda(s_104 lst_43)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_43)))" +"((letrec-values(((for-loop_54)" +"(lambda(s_102 lst_44)" "(begin" " 'for-loop" -"(if(pair? lst_43)" -"(let-values(((sc_9)(unsafe-car lst_43))((rest_18)(unsafe-cdr lst_43)))" -"(let-values(((s_105)" -"(let-values(((s_106) s_104))" -"(let-values(((s_107)(let-values()(remove-scope s_106 sc_9))))" -"(values s_107)))))" -"(if(not #f)(for-loop_55 s_105 rest_18) s_105)))" -" s_104)))))" -" for-loop_55)" -" s_103" -" lst_42))))))" +"(if(pair? lst_44)" +"(let-values(((sc_9)(unsafe-car lst_44))((rest_18)(unsafe-cdr lst_44)))" +"(let-values(((s_103)" +"(let-values(((s_104) s_102))" +"(let-values(((s_105)(let-values()(remove-scope s_104 sc_9))))" +"(values s_105)))))" +"(if(not #f)(for-loop_54 s_103 rest_18) s_103)))" +" s_102)))))" +" for-loop_54)" +" s_101" +" lst_43))))))" "(define-values" "(set-flip)" -"(lambda(s_108 e_15)(begin(if(set-member? s_108 e_15)(set-remove s_108 e_15)(set-add s_108 e_15)))))" +"(lambda(s_106 e_15)(begin(if(set-member? s_106 e_15)(set-remove s_106 e_15)(set-add s_106 e_15)))))" "(define-values" "(flip-scope)" -"(lambda(s_109 sc_10)" +"(lambda(s_107 sc_10)" "(begin" -"(let-values(((s_110) s_109)((sc_11)(generalize-scope sc_10))((op_2) set-flip)((prop-op_2) propagation-flip))" +"(let-values(((s_108) s_107)((sc_11)(generalize-scope sc_10))((op_2) set-flip)((prop-op_2) propagation-flip))" "(if(shifted-multi-scope? sc_11)" -"(let-values(((the-struct_17) s_110))" +"(let-values(((the-struct_17) s_108))" "(if(syntax?$1 the-struct_17)" "(let-values(((shifted-multi-scopes55_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_110)" +"(syntax-shifted-multi-scopes s_108)" "(lambda(smss_11)(op_2(fallback-first smss_11) sc_11))))" "((scope-propagations+tamper56_0)" -"(if(datum-has-elements?(syntax-content s_110))" +"(if(datum-has-elements?(syntax-content s_108))" "(prop-op_2" -"(syntax-scope-propagations+tamper s_110)" +"(syntax-scope-propagations+tamper s_108)" " sc_11" -"(syntax-scopes s_110)" -"(syntax-shifted-multi-scopes s_110)" -"(syntax-mpi-shifts s_110))" -"(syntax-scope-propagations+tamper s_110))))" +"(syntax-scopes s_108)" +"(syntax-shifted-multi-scopes s_108)" +"(syntax-mpi-shifts s_108))" +"(syntax-scope-propagations+tamper s_108))))" "(syntax1.1" "(syntax-content the-struct_17)" "(syntax-scopes the-struct_17)" @@ -8391,18 +8096,18 @@ static const char *startup_source = "(syntax-props the-struct_17)" "(syntax-inspector the-struct_17)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_17)))" -"(let-values(((the-struct_18) s_110))" +"(let-values(((the-struct_18) s_108))" "(if(syntax?$1 the-struct_18)" -"(let-values(((scopes57_0)(op_2(syntax-scopes s_110) sc_11))" +"(let-values(((scopes57_0)(op_2(syntax-scopes s_108) sc_11))" "((scope-propagations+tamper58_0)" -"(if(datum-has-elements?(syntax-content s_110))" +"(if(datum-has-elements?(syntax-content s_108))" "(prop-op_2" -"(syntax-scope-propagations+tamper s_110)" +"(syntax-scope-propagations+tamper s_108)" " sc_11" -"(syntax-scopes s_110)" -"(syntax-shifted-multi-scopes s_110)" -"(syntax-mpi-shifts s_110))" -"(syntax-scope-propagations+tamper s_110))))" +"(syntax-scopes s_108)" +"(syntax-shifted-multi-scopes s_108)" +"(syntax-mpi-shifts s_108))" +"(syntax-scope-propagations+tamper s_108))))" "(syntax1.1" "(syntax-content the-struct_18)" " scopes57_0" @@ -8415,29 +8120,29 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_18))))))))" "(define-values" "(flip-scopes)" -"(lambda(s_111 scs_7)" +"(lambda(s_109 scs_7)" "(begin" -"(let-values(((lst_44) scs_7))" +"(let-values(((lst_45) scs_7))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_44)))" -"((letrec-values(((for-loop_56)" -"(lambda(s_112 lst_45)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_45)))" +"((letrec-values(((for-loop_55)" +"(lambda(s_110 lst_46)" "(begin" " 'for-loop" -"(if(pair? lst_45)" -"(let-values(((sc_12)(unsafe-car lst_45))((rest_19)(unsafe-cdr lst_45)))" -"(let-values(((s_113)" -"(let-values(((s_114) s_112))" -"(let-values(((s_115)(let-values()(flip-scope s_114 sc_12))))" -"(values s_115)))))" -"(if(not #f)(for-loop_56 s_113 rest_19) s_113)))" -" s_112)))))" -" for-loop_56)" -" s_111" -" lst_44))))))" +"(if(pair? lst_46)" +"(let-values(((sc_12)(unsafe-car lst_46))((rest_19)(unsafe-cdr lst_46)))" +"(let-values(((s_111)" +"(let-values(((s_112) s_110))" +"(let-values(((s_113)(let-values()(flip-scope s_112 sc_12))))" +"(values s_113)))))" +"(if(not #f)(for-loop_55 s_111 rest_19) s_111)))" +" s_110)))))" +" for-loop_55)" +" s_109" +" lst_45))))))" "(define-values" "(push-scope)" -"(lambda(s_116 sms_6)" +"(lambda(s_114 sms_6)" "(begin" "(let-values(((smss/maybe-fallbacks59_0) #f))" "(let-values(((prev-result_0) #f))" @@ -8463,17 +8168,17 @@ static const char *startup_source = "(set! smss/maybe-fallbacks59_0 smss/maybe-fallbacks_0)" "(set! prev-result_0 r_22)" " r_22))))))))" -"(let-values(((s_117) s_116)" +"(let-values(((s_115) s_114)" "((f_29)(lambda(tail?_24 x_34)(begin 'f x_34)))" "((d->s_1)" -"(lambda(s_118 d_3)" +"(lambda(s_116 d_3)" "(begin" " 'd->s" -"(let-values(((the-struct_19) s_118))" +"(let-values(((the-struct_19) s_116))" "(if(syntax?$1 the-struct_19)" "(let-values(((content60_0) d_3)" "((shifted-multi-scopes61_0)" -"(push_0(syntax-shifted-multi-scopes s_118))))" +"(push_0(syntax-shifted-multi-scopes s_116))))" "(syntax1.1" " content60_0" "(syntax-scopes the-struct_19)" @@ -8486,21 +8191,21 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_19))))))" "((s-e_1) syntax-e/no-taint)" "((seen_11) #f))" -"((letrec-values(((loop_72)" -"(lambda(s_119)" +"((letrec-values(((loop_68)" +"(lambda(s_117)" "(begin" " 'loop" -"(let-values(((s_120) s_119)" +"(let-values(((s_118) s_117)" "((f_30)" -"(lambda(tail?_25 v_81)" +"(lambda(tail?_25 v_78)" "(begin" " 'f" -"(if(syntax?$1 v_81)" -"(let-values()(d->s_1 v_81(loop_72(s-e_1 v_81))))" -"(let-values()(f_29 tail?_25 v_81))))))" +"(if(syntax?$1 v_78)" +"(let-values()(d->s_1 v_78(loop_68(s-e_1 v_78))))" +"(let-values()(f_29 tail?_25 v_78))))))" "((seen_12) seen_11))" -"((letrec-values(((loop_73)" -"(lambda(tail?_26 s_121 prev-depth_5)" +"((letrec-values(((loop_69)" +"(lambda(tail?_26 s_119 prev-depth_5)" "(begin" " 'loop" "(let-values(((depth_5)(add1 prev-depth_5)))" @@ -8508,53 +8213,53 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_26" -" s_121" -"(lambda(tail?_27 s_122)(f_30 tail?_27 s_122))" +" s_119" +"(lambda(tail?_27 s_120)(f_30 tail?_27 s_120))" " seen_12))" -"(if(null? s_121)" -"(let-values()(f_30 tail?_26 s_121))" -"(if(pair? s_121)" +"(if(null? s_119)" +"(let-values()(f_30 tail?_26 s_119))" +"(if(pair? s_119)" "(let-values()" "(f_30" " tail?_26" "(cons" -"(loop_73 #f(car s_121) depth_5)" -"(loop_73 #t(cdr s_121) depth_5))))" -"(if(let-values(((or-part_114)(symbol? s_121)))" -"(if or-part_114" -" or-part_114" -"(let-values(((or-part_115)" -"(boolean? s_121)))" -"(if or-part_115" -" or-part_115" -"(number? s_121)))))" -"(let-values()(f_30 #f s_121))" -"(if(let-values(((or-part_116)(vector? s_121)))" -"(if or-part_116" -" or-part_116" -"(let-values(((or-part_117)(box? s_121)))" -"(if or-part_117" -" or-part_117" -"(let-values(((or-part_118)" +"(loop_69 #f(car s_119) depth_5)" +"(loop_69 #t(cdr s_119) depth_5))))" +"(if(let-values(((or-part_107)(symbol? s_119)))" +"(if or-part_107" +" or-part_107" +"(let-values(((or-part_108)" +"(boolean? s_119)))" +"(if or-part_108" +" or-part_108" +"(number? s_119)))))" +"(let-values()(f_30 #f s_119))" +"(if(let-values(((or-part_109)(vector? s_119)))" +"(if or-part_109" +" or-part_109" +"(let-values(((or-part_110)(box? s_119)))" +"(if or-part_110" +" or-part_110" +"(let-values(((or-part_111)" "(prefab-struct-key" -" s_121)))" -"(if or-part_118" -" or-part_118" -"(hash? s_121)))))))" +" s_119)))" +"(if or-part_111" +" or-part_111" +"(hash? s_119)))))))" "(let-values()" "(datum-map-slow" " tail?_26" -" s_121" -"(lambda(tail?_28 s_123)" -"(f_30 tail?_28 s_123))" +" s_119" +"(lambda(tail?_28 s_121)" +"(f_30 tail?_28 s_121))" " seen_12))" -"(let-values()(f_30 #f s_121))))))))))))" -" loop_73)" +"(let-values()(f_30 #f s_119))))))))))))" +" loop_69)" " #f" -" s_120" +" s_118" " 0))))))" -" loop_72)" -" s_117))))))))" +" loop_68)" +" s_115))))))))" "(define-values" "(struct:propagation" " propagation14.1" @@ -8577,8 +8282,8 @@ static const char *startup_source = " #f" "(list" "(cons prop:authentic #t)" -"(cons prop:propagation-set-tamper(lambda(p_31 v_82)(propagation-set-tamper p_31 v_82)))" -"(cons prop:propagation-tamper(lambda(p_32)(propagation-tamper p_32)))" +"(cons prop:propagation-set-tamper(lambda(p_27 v_79)(propagation-set-tamper p_27 v_79)))" +"(cons prop:propagation-tamper(lambda(p_28)(propagation-tamper p_28)))" "(cons prop:propagation syntax-e$1))" "(current-inspector)" " #f" @@ -8654,10 +8359,10 @@ static const char *startup_source = "(hash-set" " ops_0" " sc_15" -"(let-values(((tmp_10) current-op_0))" -"(if(equal? tmp_10 'add)" +"(let-values(((tmp_9) current-op_0))" +"(if(equal? tmp_9 'add)" "(let-values() 'remove)" -"(if(equal? tmp_10 'remove)(let-values() 'add)(let-values() 'flip))))))))" +"(if(equal? tmp_9 'remove)(let-values() 'add)(let-values() 'flip))))))))" "(propagation14.1" "(propagation-prev-scs the-struct_22)" "(propagation-prev-smss the-struct_22)" @@ -8679,10 +8384,10 @@ static const char *startup_source = "(let-values(((base-add_0)(propagation-add-mpi-shifts prop_7)))" "(if(if add_0 base-add_0 #f)" "(lambda(mss_0)(begin 'add-mpi-shifts66(add_0(base-add_0 mss_0))))" -"(let-values(((or-part_119) add_0))(if or-part_119 or-part_119 base-add_0)))))" +"(let-values(((or-part_112) add_0))(if or-part_112 or-part_112 base-add_0)))))" "((inspector67_0)" -"(let-values(((or-part_120)(propagation-inspector prop_7)))" -"(if or-part_120 or-part_120 inspector_2))))" +"(let-values(((or-part_113)(propagation-inspector prop_7)))" +"(if or-part_113 or-part_113 inspector_2))))" "(propagation14.1" "(propagation-prev-scs the-struct_23)" "(propagation-prev-smss the-struct_23)" @@ -8706,25 +8411,25 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_49)))" -"((letrec-values(((for-loop_57)" -"(lambda(scs_9 i_62)" +"((letrec-values(((for-loop_56)" +"(lambda(scs_9 i_63)" "(begin" " 'for-loop" -"(if i_62" +"(if i_63" "(let-values(((sc_16 op_3)" -"(unsafe-immutable-hash-iterate-key+value ht_49 i_62)))" +"(unsafe-immutable-hash-iterate-key+value ht_49 i_63)))" "(let-values(((scs_10)" "(let-values(((scs_11) scs_9))" "(if(not(shifted-multi-scope? sc_16))" "(let-values(((scs_12) scs_11))" "(let-values(((scs_13)" "(let-values()" -"(let-values(((tmp_11) op_3))" -"(if(equal? tmp_11 'add)" +"(let-values(((tmp_10) op_3))" +"(if(equal? tmp_10 'add)" "(let-values()" "(set-add scs_12 sc_16))" "(if(equal?" -" tmp_11" +" tmp_10" " 'remove)" "(let-values()" "(set-remove" @@ -8737,12 +8442,12 @@ static const char *startup_source = "(values scs_13)))" " scs_11))))" "(if(not #f)" -"(for-loop_57" +"(for-loop_56" " scs_10" -"(unsafe-immutable-hash-iterate-next ht_49 i_62))" +"(unsafe-immutable-hash-iterate-next ht_49 i_63))" " scs_10)))" " scs_9)))))" -" for-loop_57)" +" for-loop_56)" " scs_8" "(unsafe-immutable-hash-iterate-first ht_49))))))" "(if(set=? new-scs_0(syntax-scopes parent-s_0))" @@ -8761,13 +8466,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_50)))" -"((letrec-values(((for-loop_58)" -"(lambda(smss_14 i_63)" +"((letrec-values(((for-loop_57)" +"(lambda(smss_14 i_64)" "(begin" " 'for-loop" -"(if i_63" +"(if i_64" "(let-values(((sms_7 op_4)" -"(unsafe-immutable-hash-iterate-key+value ht_50 i_63)))" +"(unsafe-immutable-hash-iterate-key+value ht_50 i_64)))" "(let-values(((smss_15)" "(let-values(((smss_16) smss_14))" "(if(shifted-multi-scope? sms_7)" @@ -8777,15 +8482,15 @@ static const char *startup_source = "(fallback-update-first" " smss_17" "(lambda(smss_19)" -"(let-values(((tmp_12)" +"(let-values(((tmp_11)" " op_4))" -"(if(equal? tmp_12 'add)" +"(if(equal? tmp_11 'add)" "(let-values()" "(set-add" " smss_19" " sms_7))" "(if(equal?" -" tmp_12" +" tmp_11" " 'remove)" "(let-values()" "(set-remove" @@ -8798,12 +8503,12 @@ static const char *startup_source = "(values smss_18)))" " smss_16))))" "(if(not #f)" -"(for-loop_58" +"(for-loop_57" " smss_15" -"(unsafe-immutable-hash-iterate-next ht_50 i_63))" +"(unsafe-immutable-hash-iterate-next ht_50 i_64))" " smss_15)))" " smss_14)))))" -" for-loop_58)" +" for-loop_57)" " smss_13" "(unsafe-immutable-hash-iterate-first ht_50))))))" "(let-values(((parent-smss_0)(syntax-shifted-multi-scopes parent-s_1)))" @@ -8819,8 +8524,8 @@ static const char *startup_source = "(let-values()(let-values(((add_1)(propagation-add-mpi-shifts prop_10)))(if add_1(add_1 mss_1) mss_1)))))))" "(define-values" "(propagation-apply-inspector)" -"(lambda(prop_11 i_64)" -"(begin(let-values(((or-part_121) i_64))(if or-part_121 or-part_121(propagation-inspector prop_11))))))" +"(lambda(prop_11 i_65)" +"(begin(let-values(((or-part_114) i_65))(if or-part_114 or-part_114(propagation-inspector prop_11))))))" "(define-values" "(propagation-set-tamper)" "(lambda(prop_12 t_32)" @@ -8871,27 +8576,27 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_51)))" -"((letrec-values(((for-loop_59)" -"(lambda(ops_1 i_65)" +"((letrec-values(((for-loop_58)" +"(lambda(ops_1 i_66)" "(begin" " 'for-loop" -"(if i_65" +"(if i_66" "(let-values(((sc_17 op_5)" "(unsafe-immutable-hash-iterate-key+value" " ht_51" -" i_65)))" +" i_66)))" "(let-values(((ops_2)" "(let-values(((ops_3) ops_1))" "(let-values(((ops_4)" "(let-values()" -"(let-values(((tmp_13) op_5))" -"(if(equal? tmp_13 'add)" +"(let-values(((tmp_12) op_5))" +"(if(equal? tmp_12 'add)" "(let-values()" "(hash-set" " ops_3" " sc_17" " 'add))" -"(if(equal? tmp_13 'remove)" +"(if(equal? tmp_12 'remove)" "(let-values()" "(hash-set" " ops_3" @@ -8903,10 +8608,10 @@ static const char *startup_source = " ops_3" " sc_17" " #f)))" -"(let-values(((tmp_14)" +"(let-values(((tmp_13)" " current-op_1))" "(if(equal?" -" tmp_14" +" tmp_13" " 'add)" "(let-values()" "(hash-set" @@ -8914,7 +8619,7 @@ static const char *startup_source = " sc_17" " 'remove))" "(if(equal?" -" tmp_14" +" tmp_13" " 'remove)" "(let-values()" "(hash-set" @@ -8922,7 +8627,7 @@ static const char *startup_source = " sc_17" " 'add))" "(if(equal?" -" tmp_14" +" tmp_13" " 'flip)" "(let-values()" "(hash-remove" @@ -8935,19 +8640,19 @@ static const char *startup_source = " 'flip))))))))))))))" "(values ops_4)))))" "(if(not #f)" -"(for-loop_59" +"(for-loop_58" " ops_2" -"(unsafe-immutable-hash-iterate-next ht_51 i_65))" +"(unsafe-immutable-hash-iterate-next ht_51 i_66))" " ops_2)))" " ops_1)))))" -" for-loop_59)" +" for-loop_58)" "(propagation-scope-ops base-prop_0)" "(unsafe-immutable-hash-iterate-first ht_51))))))" "(let-values(((add_2)(propagation-add-mpi-shifts prop_13)))" "(let-values(((base-add_1)(propagation-add-mpi-shifts base-prop_0)))" "(let-values(((new-tamper_0)" -"(if(let-values(((or-part_122)(tamper-tainted?(propagation-tamper prop_13))))" -"(if or-part_122 or-part_122(tamper-tainted?(propagation-tamper base-prop_0))))" +"(if(let-values(((or-part_115)(tamper-tainted?(propagation-tamper prop_13))))" +"(if or-part_115 or-part_115(tamper-tainted?(propagation-tamper base-prop_0))))" " 'tainted/need-propagate" "(propagation-tamper base-prop_0))))" "(if(if(zero?(hash-count new-ops_0))" @@ -8964,10 +8669,10 @@ static const char *startup_source = "((add-mpi-shifts70_0)" "(if(if add_2 base-add_1 #f)" "(lambda(mss_2)(begin 'add-mpi-shifts70(add_2(base-add_1 mss_2))))" -"(let-values(((or-part_123) add_2))(if or-part_123 or-part_123 base-add_1))))" +"(let-values(((or-part_116) add_2))(if or-part_116 or-part_116 base-add_1))))" "((inspector71_0)" -"(let-values(((or-part_124)(propagation-inspector base-prop_0)))" -"(if or-part_124 or-part_124(propagation-inspector prop_13))))" +"(let-values(((or-part_117)(propagation-inspector base-prop_0)))" +"(if or-part_117 or-part_117(propagation-inspector prop_13))))" "((tamper72_0) new-tamper_0))" "(propagation14.1" "(propagation-prev-scs the-struct_25)" @@ -9000,11 +8705,11 @@ static const char *startup_source = "(shifted-multi-scope-multi-scope sms_8)))))))))" "(define-values" "(syntax-shift-phase-level$1)" -"(lambda(s_124 phase_6)" +"(lambda(s_122 phase_6)" "(begin" " 'syntax-shift-phase-level" "(if(eqv? phase_6 0)" -" s_124" +" s_122" "(let-values()" "(let-values(((smss73_0) #f))" "(let-values(((prev-result_1) #f))" @@ -9025,15 +8730,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_52)))" -"((letrec-values(((for-loop_60)" -"(lambda(table_58 i_66)" +"((letrec-values(((for-loop_59)" +"(lambda(table_58 i_67)" "(begin" " 'for-loop" -"(if i_66" +"(if i_67" "(let-values(((sms_9)" "(unsafe-immutable-hash-iterate-key" " ht_52" -" i_66)))" +" i_67)))" "(let-values(((table_59)" "(let-values(((new-sms_0)" "(shift-multi-scope" @@ -9041,7 +8746,7 @@ static const char *startup_source = " phase_6)))" "(begin" " #t" -"((letrec-values(((for-loop_61)" +"((letrec-values(((for-loop_60)" "(lambda(table_60)" "(begin" " 'for-loop" @@ -9069,31 +8774,31 @@ static const char *startup_source = " table_64)))" " table_62))))" " table_61))))))" -" for-loop_61)" +" for-loop_60)" " table_58)))))" "(if(not #f)" -"(for-loop_60" +"(for-loop_59" " table_59" "(unsafe-immutable-hash-iterate-next" " ht_52" -" i_66))" +" i_67))" " table_59)))" " table_58)))))" -" for-loop_60)" +" for-loop_59)" " '#hasheq()" "(unsafe-immutable-hash-iterate-first ht_52)))))))))" "(begin(set! smss73_0 smss_20)(set! prev-result_1 r_23) r_23))))))))" -"(let-values(((s_125) s_124)" +"(let-values(((s_123) s_122)" "((f_31)(lambda(tail?_29 d_4)(begin 'f d_4)))" "((d->s_2)" -"(lambda(s_126 d_5)" +"(lambda(s_124 d_5)" "(begin" " 'd->s" -"(let-values(((the-struct_26) s_126))" +"(let-values(((the-struct_26) s_124))" "(if(syntax?$1 the-struct_26)" "(let-values(((content74_0) d_5)" "((shifted-multi-scopes75_0)" -"(shift-all_0(syntax-shifted-multi-scopes s_126))))" +"(shift-all_0(syntax-shifted-multi-scopes s_124))))" "(syntax1.1" " content74_0" "(syntax-scopes the-struct_26)" @@ -9106,21 +8811,21 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_26))))))" "((s-e_2) syntax-e/no-taint)" "((seen_13) #f))" -"((letrec-values(((loop_74)" -"(lambda(s_127)" +"((letrec-values(((loop_70)" +"(lambda(s_125)" "(begin" " 'loop" -"(let-values(((s_128) s_127)" +"(let-values(((s_126) s_125)" "((f_32)" -"(lambda(tail?_30 v_83)" +"(lambda(tail?_30 v_80)" "(begin" " 'f" -"(if(syntax?$1 v_83)" -"(let-values()(d->s_2 v_83(loop_74(s-e_2 v_83))))" -"(let-values()(f_31 tail?_30 v_83))))))" +"(if(syntax?$1 v_80)" +"(let-values()(d->s_2 v_80(loop_70(s-e_2 v_80))))" +"(let-values()(f_31 tail?_30 v_80))))))" "((seen_14) seen_13))" -"((letrec-values(((loop_75)" -"(lambda(tail?_31 s_129 prev-depth_6)" +"((letrec-values(((loop_71)" +"(lambda(tail?_31 s_127 prev-depth_6)" "(begin" " 'loop" "(let-values(((depth_6)(add1 prev-depth_6)))" @@ -9128,62 +8833,62 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_31" -" s_129" -"(lambda(tail?_32 s_130)(f_32 tail?_32 s_130))" +" s_127" +"(lambda(tail?_32 s_128)(f_32 tail?_32 s_128))" " seen_14))" -"(if(null? s_129)" -"(let-values()(f_32 tail?_31 s_129))" -"(if(pair? s_129)" +"(if(null? s_127)" +"(let-values()(f_32 tail?_31 s_127))" +"(if(pair? s_127)" "(let-values()" "(f_32" " tail?_31" "(cons" -"(loop_75 #f(car s_129) depth_6)" -"(loop_75 #t(cdr s_129) depth_6))))" -"(if(let-values(((or-part_125)" -"(symbol? s_129)))" -"(if or-part_125" -" or-part_125" -"(let-values(((or-part_126)" -"(boolean? s_129)))" -"(if or-part_126" -" or-part_126" -"(number? s_129)))))" -"(let-values()(f_32 #f s_129))" -"(if(let-values(((or-part_127)" -"(vector? s_129)))" -"(if or-part_127" -" or-part_127" -"(let-values(((or-part_128)" -"(box? s_129)))" -"(if or-part_128" -" or-part_128" -"(let-values(((or-part_129)" +"(loop_71 #f(car s_127) depth_6)" +"(loop_71 #t(cdr s_127) depth_6))))" +"(if(let-values(((or-part_118)" +"(symbol? s_127)))" +"(if or-part_118" +" or-part_118" +"(let-values(((or-part_119)" +"(boolean? s_127)))" +"(if or-part_119" +" or-part_119" +"(number? s_127)))))" +"(let-values()(f_32 #f s_127))" +"(if(let-values(((or-part_120)" +"(vector? s_127)))" +"(if or-part_120" +" or-part_120" +"(let-values(((or-part_121)" +"(box? s_127)))" +"(if or-part_121" +" or-part_121" +"(let-values(((or-part_122)" "(prefab-struct-key" -" s_129)))" -"(if or-part_129" -" or-part_129" -"(hash? s_129)))))))" +" s_127)))" +"(if or-part_122" +" or-part_122" +"(hash? s_127)))))))" "(let-values()" "(datum-map-slow" " tail?_31" -" s_129" -"(lambda(tail?_33 s_131)" -"(f_32 tail?_33 s_131))" +" s_127" +"(lambda(tail?_33 s_129)" +"(f_32 tail?_33 s_129))" " seen_14))" -"(let-values()(f_32 #f s_129))))))))))))" -" loop_75)" +"(let-values()(f_32 #f s_127))))))))))))" +" loop_71)" " #f" -" s_128" +" s_126" " 0))))))" -" loop_74)" -" s_125))))))))))" +" loop_70)" +" s_123))))))))))" "(define-values" "(syntax-swap-scopes)" -"(lambda(s_132 src-scopes_0 dest-scopes_0)" +"(lambda(s_130 src-scopes_0 dest-scopes_0)" "(begin" "(if(equal? src-scopes_0 dest-scopes_0)" -" s_132" +" s_130" "(let-values(((src-smss_0 src-scs_0)" "(set-partition" "(let-values(((ht_53) src-scopes_0))" @@ -9191,13 +8896,13 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_53)))" -"((letrec-values(((for-loop_62)" -"(lambda(table_65 i_67)" +"((letrec-values(((for-loop_61)" +"(lambda(table_65 i_68)" "(begin" " 'for-loop" -"(if i_67" +"(if i_68" "(let-values(((sc_18)" -"(unsafe-immutable-hash-iterate-key ht_53 i_67)))" +"(unsafe-immutable-hash-iterate-key ht_53 i_68)))" "(let-values(((table_66)" "(let-values(((table_67) table_65))" "(let-values(((table_68)" @@ -9215,12 +8920,12 @@ static const char *startup_source = " val_16)))))" "(values table_68)))))" "(if(not #f)" -"(for-loop_62" +"(for-loop_61" " table_66" -"(unsafe-immutable-hash-iterate-next ht_53 i_67))" +"(unsafe-immutable-hash-iterate-next ht_53 i_68))" " table_66)))" " table_65)))))" -" for-loop_62)" +" for-loop_61)" " '#hasheq()" "(unsafe-immutable-hash-iterate-first ht_53))))" " shifted-multi-scope?" @@ -9233,13 +8938,13 @@ static const char *startup_source = "(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_68)" +"((letrec-values(((for-loop_62)" +"(lambda(table_69 i_69)" "(begin" " 'for-loop" -"(if i_68" +"(if i_69" "(let-values(((sc_19)" -"(unsafe-immutable-hash-iterate-key ht_54 i_68)))" +"(unsafe-immutable-hash-iterate-key ht_54 i_69)))" "(let-values(((table_70)" "(let-values(((table_71) table_69))" "(let-values(((table_72)" @@ -9257,12 +8962,12 @@ static const char *startup_source = " val_17)))))" "(values table_72)))))" "(if(not #f)" -"(for-loop_63" +"(for-loop_62" " table_70" -"(unsafe-immutable-hash-iterate-next ht_54 i_68))" +"(unsafe-immutable-hash-iterate-next ht_54 i_69))" " table_70)))" " table_69)))))" -" for-loop_63)" +" for-loop_62)" " '#hasheq()" "(unsafe-immutable-hash-iterate-first ht_54))))" " shifted-multi-scope?" @@ -9301,18 +9006,18 @@ static const char *startup_source = "(set-union(set-subtract smss_23 src-smss_0) dest-smss_0)" " smss_23))))))" "(begin(set! smss77_0 smss_22)(set! prev-result_3 r_25) r_25))))))))" -"(let-values(((s_133) s_132)" +"(let-values(((s_131) s_130)" "((f_33)(lambda(tail?_34 d_6)(begin 'f d_6)))" "((d->s_3)" -"(lambda(s_134 d_7)" +"(lambda(s_132 d_7)" "(begin" " 'd->s" -"(let-values(((the-struct_27) s_134))" +"(let-values(((the-struct_27) s_132))" "(if(syntax?$1 the-struct_27)" "(let-values(((content78_0) d_7)" -"((scopes79_0)(swap-scs_0(syntax-scopes s_134)))" +"((scopes79_0)(swap-scs_0(syntax-scopes s_132)))" "((shifted-multi-scopes80_0)" -"(swap-smss_0(syntax-shifted-multi-scopes s_134))))" +"(swap-smss_0(syntax-shifted-multi-scopes s_132))))" "(syntax1.1" " content78_0" " scopes79_0" @@ -9325,21 +9030,21 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_27))))))" "((s-e_3) syntax-e/no-taint)" "((seen_15) #f))" -"((letrec-values(((loop_76)" -"(lambda(s_135)" +"((letrec-values(((loop_72)" +"(lambda(s_133)" "(begin" " 'loop" -"(let-values(((s_136) s_135)" +"(let-values(((s_134) s_133)" "((f_34)" -"(lambda(tail?_35 v_84)" +"(lambda(tail?_35 v_81)" "(begin" " 'f" -"(if(syntax?$1 v_84)" -"(let-values()(d->s_3 v_84(loop_76(s-e_3 v_84))))" -"(let-values()(f_33 tail?_35 v_84))))))" +"(if(syntax?$1 v_81)" +"(let-values()(d->s_3 v_81(loop_72(s-e_3 v_81))))" +"(let-values()(f_33 tail?_35 v_81))))))" "((seen_16) seen_15))" -"((letrec-values(((loop_35)" -"(lambda(tail?_36 s_137 prev-depth_7)" +"((letrec-values(((loop_32)" +"(lambda(tail?_36 s_135 prev-depth_7)" "(begin" " 'loop" "(let-values(((depth_7)(add1 prev-depth_7)))" @@ -9347,82 +9052,82 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_36" -" s_137" -"(lambda(tail?_37 s_138)" -"(f_34 tail?_37 s_138))" +" s_135" +"(lambda(tail?_37 s_136)" +"(f_34 tail?_37 s_136))" " seen_16))" -"(if(null? s_137)" -"(let-values()(f_34 tail?_36 s_137))" -"(if(pair? s_137)" +"(if(null? s_135)" +"(let-values()(f_34 tail?_36 s_135))" +"(if(pair? s_135)" "(let-values()" "(f_34" " tail?_36" "(cons" -"(loop_35 #f(car s_137) depth_7)" -"(loop_35 #t(cdr s_137) depth_7))))" -"(if(let-values(((or-part_130)" -"(symbol? s_137)))" -"(if or-part_130" -" or-part_130" -"(let-values(((or-part_131)" -"(boolean? s_137)))" -"(if or-part_131" -" or-part_131" -"(number? s_137)))))" -"(let-values()(f_34 #f s_137))" -"(if(let-values(((or-part_132)" -"(vector? s_137)))" -"(if or-part_132" -" or-part_132" -"(let-values(((or-part_133)" -"(box? s_137)))" -"(if or-part_133" -" or-part_133" -"(let-values(((or-part_134)" +"(loop_32 #f(car s_135) depth_7)" +"(loop_32 #t(cdr s_135) depth_7))))" +"(if(let-values(((or-part_123)" +"(symbol? s_135)))" +"(if or-part_123" +" or-part_123" +"(let-values(((or-part_124)" +"(boolean? s_135)))" +"(if or-part_124" +" or-part_124" +"(number? s_135)))))" +"(let-values()(f_34 #f s_135))" +"(if(let-values(((or-part_125)" +"(vector? s_135)))" +"(if or-part_125" +" or-part_125" +"(let-values(((or-part_126)" +"(box? s_135)))" +"(if or-part_126" +" or-part_126" +"(let-values(((or-part_127)" "(prefab-struct-key" -" s_137)))" -"(if or-part_134" -" or-part_134" -"(hash? s_137)))))))" +" s_135)))" +"(if or-part_127" +" or-part_127" +"(hash? s_135)))))))" "(let-values()" "(datum-map-slow" " tail?_36" -" s_137" -"(lambda(tail?_38 s_139)" -"(f_34 tail?_38 s_139))" +" s_135" +"(lambda(tail?_38 s_137)" +"(f_34 tail?_38 s_137))" " seen_16))" "(let-values()" -"(f_34 #f s_137))))))))))))" -" loop_35)" +"(f_34 #f s_135))))))))))))" +" loop_32)" " #f" -" s_136" +" s_134" " 0))))))" -" loop_76)" -" s_133)))))))))))))" +" loop_72)" +" s_131)))))))))))))" "(define-values" "(syntax-scope-set)" -"(lambda(s_140 phase_7)" -"(begin(scope-set-at-fallback s_140(fallback-first(syntax-shifted-multi-scopes s_140)) phase_7))))" +"(lambda(s_138 phase_7)" +"(begin(scope-set-at-fallback s_138(fallback-first(syntax-shifted-multi-scopes s_138)) phase_7))))" "(define-values" "(scope-set-at-fallback)" -"(lambda(s_141 smss_24 phase_8)" +"(lambda(s_139 smss_24 phase_8)" "(begin" "(let-values(((ht_55) smss_24))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_55)))" -"((letrec-values(((for-loop_64)" -"(lambda(scopes_9 i_69)" +"((letrec-values(((for-loop_63)" +"(lambda(scopes_9 i_70)" "(begin" " 'for-loop" -"(if i_69" -"(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_55 i_69)))" +"(if i_70" +"(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_55 i_70)))" "(let-values(((scopes_10)" "(let-values(((scopes_11) scopes_9))" -"(if(let-values(((or-part_135)(label-phase? phase_8)))" -"(if or-part_135" -" or-part_135" +"(if(let-values(((or-part_128)(label-phase? phase_8)))" +"(if or-part_128" +" or-part_128" "(not" "(shifted-to-label-phase?" "(shifted-multi-scope-phase sms_10)))))" @@ -9442,11 +9147,11 @@ static const char *startup_source = "(values scopes_13)))" " scopes_11))))" "(if(not #f)" -"(for-loop_64 scopes_10(unsafe-immutable-hash-iterate-next ht_55 i_69))" +"(for-loop_63 scopes_10(unsafe-immutable-hash-iterate-next ht_55 i_70))" " scopes_10)))" " scopes_9)))))" -" for-loop_64)" -"(syntax-scopes s_141)" +" for-loop_63)" +"(syntax-scopes s_139)" "(unsafe-immutable-hash-iterate-first ht_55)))))))" "(define-values" "(find-max-scope)" @@ -9459,12 +9164,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_56)))" -"((letrec-values(((for-loop_65)" -"(lambda(max-sc_0 i_70)" +"((letrec-values(((for-loop_64)" +"(lambda(max-sc_0 i_71)" "(begin" " 'for-loop" -"(if i_70" -"(let-values(((sc_20)(unsafe-immutable-hash-iterate-key ht_56 i_70)))" +"(if i_71" +"(let-values(((sc_20)(unsafe-immutable-hash-iterate-key ht_56 i_71)))" "(let-values(((max-sc_1)" "(let-values(((max-sc_2) max-sc_0))" "(let-values(((max-sc_3)" @@ -9472,10 +9177,10 @@ static const char *startup_source = "(if(scope>? sc_20 max-sc_2) sc_20 max-sc_2))))" "(values max-sc_3)))))" "(if(not #f)" -"(for-loop_65 max-sc_1(unsafe-immutable-hash-iterate-next ht_56 i_70))" +"(for-loop_64 max-sc_1(unsafe-immutable-hash-iterate-next ht_56 i_71))" " max-sc_1)))" " max-sc_0)))))" -" for-loop_65)" +" for-loop_64)" "(set-first scopes_14)" "(unsafe-immutable-hash-iterate-first ht_56))))))))" "(define-values" @@ -9506,30 +9211,30 @@ static const char *startup_source = "(begin(set-scope-binding-table! max-sc_5 bt_8)(clear-resolve-cache!)))))))" "(define-values" "(syntax-any-macro-scopes?)" -"(lambda(s_142)" +"(lambda(s_140)" "(begin" -"(let-values(((ht_57)(syntax-scopes s_142)))" +"(let-values(((ht_57)(syntax-scopes s_140)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash-keys ht_57)))" -"((letrec-values(((for-loop_66)" -"(lambda(result_42 i_71)" +"((letrec-values(((for-loop_65)" +"(lambda(result_44 i_72)" "(begin" " 'for-loop" -"(if i_71" -"(let-values(((sc_21)(unsafe-immutable-hash-iterate-key ht_57 i_71)))" -"(let-values(((result_43)" +"(if i_72" +"(let-values(((sc_21)(unsafe-immutable-hash-iterate-key ht_57 i_72)))" +"(let-values(((result_45)" "(let-values()" -"(let-values(((result_44)" +"(let-values(((result_46)" "(let-values()" "(let-values()(eq?(scope-kind sc_21) 'macro)))))" -"(values result_44)))))" -"(if(if(not((lambda x_35 result_43) sc_21))(not #f) #f)" -"(for-loop_66 result_43(unsafe-immutable-hash-iterate-next ht_57 i_71))" -" result_43)))" -" result_42)))))" -" for-loop_66)" +"(values result_46)))))" +"(if(if(not((lambda x_35 result_45) sc_21))(not #f) #f)" +"(for-loop_65 result_45(unsafe-immutable-hash-iterate-next ht_57 i_72))" +" result_45)))" +" result_44)))))" +" for-loop_65)" " #f" "(unsafe-immutable-hash-iterate-first ht_57)))))))" "(define-values" @@ -9542,18 +9247,18 @@ static const char *startup_source = " extra-shifts30_0" " get-scopes?25_0" " get-scopes?29_0" -" s31_0" +" s31_1" " phase32_0)" "(begin" " 'resolve33" -"(let-values(((s_143) s31_0))" +"(let-values(((s_141) s31_1))" "(let-values(((phase_9) phase32_0))" "(let-values(((ambiguous-value_0)(if ambiguous-value27_0 ambiguous-value23_0 #f)))" "(let-values(((exactly?_0)(if exactly?28_0 exactly?24_0 #f)))" "(let-values(((get-scopes?_0)(if get-scopes?29_0 get-scopes?25_0 #f)))" "(let-values(((extra-shifts_2)(if extra-shifts30_0 extra-shifts26_0 null)))" "(let-values()" -"(let-values(((sym_12)(syntax-content s_143)))" +"(let-values(((sym_12)(syntax-content s_141)))" "((letrec-values(((fallback-loop_0)" "(lambda(smss_25)" "(begin" @@ -9564,7 +9269,7 @@ static const char *startup_source = "(resolve-cache-get" " sym_12" " phase_9" -"(syntax-scopes s_143)" +"(syntax-scopes s_141)" "(fallback-first smss_25))" " #f)" " #f)))" @@ -9580,7 +9285,7 @@ static const char *startup_source = "(let-values()" "(let-values(((scopes_17)" "(scope-set-at-fallback" -" s_143" +" s_141" "(fallback-first smss_25)" " phase_9)))" "(let-values(((best-scopes_0 best-binding_0)" @@ -9591,17 +9296,17 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash-keys ht_58)))" -"((letrec-values(((for-loop_67)" +"((letrec-values(((for-loop_66)" "(lambda(best-scopes_1" " best-binding_1" -" i_72)" +" i_73)" "(begin" " 'for-loop" -"(if i_72" +"(if i_73" "(let-values(((sc_22)" "(unsafe-immutable-hash-iterate-key" " ht_58" -" i_72)))" +" i_73)))" "(let-values(((best-scopes_2" " best-binding_2)" "(let-values(((ht_59" @@ -9625,45 +9330,45 @@ static const char *startup_source = " '#hash())" "(table-with-bulk-bindings-bulk-bindings" " table_73)))))" -"((s_144)" -" s_143)" +"((s_142)" +" s_141)" "((extra-shifts_3)" " extra-shifts_2))" "(begin" " #t" -"((letrec-values(((for-loop_68)" +"((letrec-values(((for-loop_67)" "(lambda(best-scopes_3" " best-binding_3" -" i_73)" +" i_74)" "(begin" " 'for-loop" "(if(not" "(null?" -" i_73))" +" i_74))" "(let-values(((b-scopes_0)" "(if(pair?" -" i_73)" +" i_74)" "(let-values()" "(bulk-binding-at-scopes" "(car" -" i_73)))" +" i_74)))" "(let-values()" "(hash-iterate-key" " ht_59" -" i_73))))" +" i_74))))" "((binding_5)" "(if(pair?" -" i_73)" +" i_74)" "(let-values()" "(let-values(((bulk_3)" "(bulk-binding-at-bulk" "(car" -" i_73))))" +" i_74))))" "(let-values(((b-info_0)" "(hash-ref" "(bulk-binding-symbols" " bulk_3" -" s_144" +" s_142" " extra-shifts_3)" " sym_12" " #f)))" @@ -9677,7 +9382,7 @@ static const char *startup_source = "(let-values()" "(hash-iterate-value" " ht_59" -" i_73)))))" +" i_74)))))" "(let-values(((best-scopes_4" " best-binding_4)" "(let-values(((best-scopes_5)" @@ -9701,7 +9406,7 @@ static const char *startup_source = "(if(pair?" " best-scopes_6)" "(let-values()" -"(if(let-values(((lst_46)" +"(if(let-values(((lst_47)" " best-scopes_6))" "(begin" "(if(variable-reference-from-unsafe?" @@ -9709,46 +9414,46 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_46)))" -"((letrec-values(((for-loop_69)" -"(lambda(result_45" -" lst_47)" +" lst_47)))" +"((letrec-values(((for-loop_68)" +"(lambda(result_47" +" lst_48)" "(begin" " 'for-loop" "(if(pair?" -" lst_47)" +" lst_48)" "(let-values(((amb-scopes_0)" "(unsafe-car" -" lst_47))" +" lst_48))" "((rest_20)" "(unsafe-cdr" -" lst_47)))" -"(let-values(((result_46)" +" lst_48)))" +"(let-values(((result_48)" "(let-values()" -"(let-values(((result_47)" +"(let-values(((result_49)" "(let-values()" "(let-values()" "(subset?" " amb-scopes_0" " b-scopes_0)))))" "(values" -" result_47)))))" +" result_49)))))" "(if(if(not" "((lambda x_36" "(not" -" result_46))" +" result_48))" " amb-scopes_0))" "(not" " #f)" " #f)" -"(for-loop_69" -" result_46" +"(for-loop_68" +" result_48" " rest_20)" -" result_46)))" -" result_45)))))" -" for-loop_69)" +" result_48)))" +" result_47)))))" +" for-loop_68)" " #t" -" lst_46)))" +" lst_47)))" "(let-values()" "(values" " b-scopes_0" @@ -9793,21 +9498,21 @@ static const char *startup_source = " best-binding_5)))))" "(if(not" " #f)" -"(for-loop_68" +"(for-loop_67" " best-scopes_4" " best-binding_4" "(if(pair?" -" i_73)" +" i_74)" "(let-values()" "(cdr" -" i_73))" +" i_74))" "(let-values()" -"(let-values(((or-part_136)" +"(let-values(((or-part_129)" "(hash-iterate-next" " ht_59" -" i_73)))" -"(if or-part_136" -" or-part_136" +" i_74)))" +"(if or-part_129" +" or-part_129" " bulk-bindings_2)))))" "(values" " best-scopes_4" @@ -9815,29 +9520,29 @@ static const char *startup_source = "(values" " best-scopes_3" " best-binding_3))))))" -" for-loop_68)" +" for-loop_67)" " best-scopes_1" " best-binding_1" -"(let-values(((or-part_137)" +"(let-values(((or-part_130)" "(hash-iterate-first" " ht_59)))" -"(if or-part_137" -" or-part_137" +"(if or-part_130" +" or-part_130" " bulk-bindings_2)))))))" "(if(not #f)" -"(for-loop_67" +"(for-loop_66" " best-scopes_2" " best-binding_2" "(unsafe-immutable-hash-iterate-next" " ht_58" -" i_72))" +" i_73))" "(values" " best-scopes_2" " best-binding_2))))" "(values" " best-scopes_1" " best-binding_1))))))" -" for-loop_67)" +" for-loop_66)" " #f" " #f" "(unsafe-immutable-hash-iterate-first ht_58))))))" @@ -9852,12 +9557,12 @@ static const char *startup_source = "(resolve-cache-set!" " sym_12" " phase_9" -"(syntax-scopes s_143)" +"(syntax-scopes s_141)" "(fallback-first smss_25)" " best-binding_0)" -"(if(let-values(((or-part_138)(not exactly?_0)))" -"(if or-part_138" -" or-part_138" +"(if(let-values(((or-part_131)(not exactly?_0)))" +"(if or-part_131" +" or-part_131" "(eqv?" "(set-count scopes_17)" "(set-count best-scopes_0))))" @@ -9868,21 +9573,21 @@ static const char *startup_source = "(resolve-cache-set!" " sym_12" " phase_9" -"(syntax-scopes s_143)" +"(syntax-scopes s_141)" "(fallback-first smss_25)" " '#:none)" "(if(fallback? smss_25)" "(fallback-loop_0(fallback-rest smss_25))" " #f))))))))))))))" " fallback-loop_0)" -"(syntax-shifted-multi-scopes s_143)))))))))))))" +"(syntax-shifted-multi-scopes s_141)))))))))))))" "(define-values" "(bound-identifier=?$1)" -"(lambda(a_38 b_25 phase_10)" +"(lambda(a_32 b_25 phase_10)" "(begin" " 'bound-identifier=?" -"(if(eq?(syntax-e$1 a_38)(syntax-e$1 b_25))" -"(equal?(syntax-scope-set a_38 phase_10)(syntax-scope-set b_25 phase_10))" +"(if(eq?(syntax-e$1 a_32)(syntax-e$1 b_25))" +"(equal?(syntax-scope-set a_32 phase_10)(syntax-scope-set b_25 phase_10))" " #f))))" "(define-values" "(syntax-property$1)" @@ -9894,7 +9599,7 @@ static const char *startup_source = "(begin" " (if (syntax?$1 s_0) (void) (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_0)))" "(values))))" -"(let-values(((v_30)(hash-ref(syntax-props s_0) key_11 #f)))(plain-property-value v_30)))))" +"(let-values(((v_27)(hash-ref(syntax-props s_0) key_11 #f)))(plain-property-value v_27)))))" "((s_1 key_12 val_3)" "(let-values((()" "(begin" @@ -9914,12 +9619,12 @@ static const char *startup_source = " props1_0" "(syntax-inspector the-struct_28)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_28))))))" -"((s_145 key_28 val_18 preserved?_0)" +"((s_143 key_28 val_18 preserved?_0)" "(let-values((()" "(begin" -"(if(syntax?$1 s_145)" +"(if(syntax?$1 s_143)" "(void)" -" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_145)))" +" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_143)))" "(values))))" "(let-values((()" "(begin" @@ -9938,9 +9643,9 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((pval_1)(if preserved?_0(preserved-property-value1.1 val_18) val_18)))" -"(let-values(((the-struct_29) s_145))" +"(let-values(((the-struct_29) s_143))" "(if(syntax?$1 the-struct_29)" -"(let-values(((props2_0)(hash-set(syntax-props s_145) key_28 pval_1)))" +"(let-values(((props2_0)(hash-set(syntax-props s_143) key_28 pval_1)))" "(syntax1.1" "(syntax-content the-struct_29)" "(syntax-scopes the-struct_29)" @@ -9953,34 +9658,34 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_29)))))))))" "(define-values" "(1/syntax-property-preserved?)" -"(lambda(s_146 key_29)" +"(lambda(s_144 key_29)" "(begin" " 'syntax-property-preserved?" "(begin" -" (if (syntax?$1 s_146) (void) (let-values () (raise-argument-error 'syntax-property-preserved \"syntax?\" s_146)))" +" (if (syntax?$1 s_144) (void) (let-values () (raise-argument-error 'syntax-property-preserved \"syntax?\" s_144)))" "(if(if(symbol? key_29)(symbol-interned? key_29) #f)" "(void)" " (let-values () (raise-argument-error 'syntax-property \"(and/c symbol? symbol-interned?)\" key_29)))" -"(preserved-property-value?(hash-ref(syntax-props s_146) key_29 #f))))))" +"(preserved-property-value?(hash-ref(syntax-props s_144) key_29 #f))))))" "(define-values" "(1/syntax-property-symbol-keys)" -"(lambda(s_147)" +"(lambda(s_145)" "(begin" " 'syntax-property-symbol-keys" "(begin" -" (if (syntax?$1 s_147) (void) (let-values () (raise-argument-error 'syntax-property-symbol-keys \"syntax\" s_147)))" +" (if (syntax?$1 s_145) (void) (let-values () (raise-argument-error 'syntax-property-symbol-keys \"syntax\" s_145)))" "(reverse$1" -"(let-values(((ht_60)(syntax-props s_147)))" +"(let-values(((ht_60)(syntax-props s_145)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_60)))" -"((letrec-values(((for-loop_70)" -"(lambda(fold-var_30 i_74)" +"((letrec-values(((for-loop_69)" +"(lambda(fold-var_30 i_75)" "(begin" " 'for-loop" -"(if i_74" -"(let-values(((k_16 v_85)(unsafe-immutable-hash-iterate-key+value ht_60 i_74)))" +"(if i_75" +"(let-values(((k_16 v_82)(unsafe-immutable-hash-iterate-key+value ht_60 i_75)))" "(let-values(((fold-var_31)" "(let-values(((fold-var_32) fold-var_30))" "(if(if(symbol? k_16)(symbol-interned? k_16) #f)" @@ -9991,20 +9696,20 @@ static const char *startup_source = "(values fold-var_34)))" " fold-var_32))))" "(if(not #f)" -"(for-loop_70 fold-var_31(unsafe-immutable-hash-iterate-next ht_60 i_74))" +"(for-loop_69 fold-var_31(unsafe-immutable-hash-iterate-next ht_60 i_75))" " fold-var_31)))" " fold-var_30)))))" -" for-loop_70)" +" for-loop_69)" " null" "(unsafe-immutable-hash-iterate-first ht_60)))))))))" "(define-values" "(syntax-property-remove)" -"(lambda(s_72 key_30)" +"(lambda(s_70 key_30)" "(begin" -"(if(hash-ref(syntax-props s_72) key_30 #f)" -"(let-values(((the-struct_30) s_72))" +"(if(hash-ref(syntax-props s_70) key_30 #f)" +"(let-values(((the-struct_30) s_70))" "(if(syntax?$1 the-struct_30)" -"(let-values(((props3_0)(hash-remove(syntax-props s_72) key_30)))" +"(let-values(((props3_0)(hash-remove(syntax-props s_70) key_30)))" "(syntax1.1" "(syntax-content the-struct_30)" "(syntax-scopes the-struct_30)" @@ -10015,7 +9720,7 @@ static const char *startup_source = " props3_0" "(syntax-inspector the-struct_30)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_30)))" -" s_72))))" +" s_70))))" "(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)" @@ -10082,15 +9787,15 @@ static const char *startup_source = "(let-values(((extra-nominal-bindings_0)" "(if extra-nominal-bindings18_0 extra-nominal-bindings9_0 null)))" "(let-values()" -"(if(let-values(((or-part_85) frame-id_0))" -"(if or-part_85" -" or-part_85" -"(let-values(((or-part_86) free=id_0))" -"(if or-part_86" -" or-part_86" -"(let-values(((or-part_87) extra-inspector_0))" -"(if or-part_87" -" or-part_87" +"(if(let-values(((or-part_29) frame-id_0))" +"(if or-part_29" +" or-part_29" +"(let-values(((or-part_78) free=id_0))" +"(if or-part_78" +" or-part_78" +"(let-values(((or-part_79) extra-inspector_0))" +"(if or-part_79" +" or-part_79" "(not" "(if(eqv? nominal-phase_0 phase_11)" "(if(eq? nominal-sym_0 sym_13)" @@ -10169,7 +9874,10 @@ static const char *startup_source = " extra-nominal-bindings35_0" "(module-binding-extra-nominal-bindings b_28))))" "(let-values()" -"(let-values(((nominal-module56_0) nominal-module_1)" +"(let-values(((module53_0) module_1)" +"((phase54_0) phase_12)" +"((sym55_0) sym_14)" +"((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)" @@ -10196,15 +9904,15 @@ static const char *startup_source = " #t" " #f" " #f" -" module_1" -" phase_12" -" sym_14))))))))))))))))))" +" module53_0" +" phase54_0" +" sym55_0))))))))))))))))))" "(define-values" "(module-binding?)" "(lambda(b_29)" "(begin" -"(let-values(((or-part_139)(simple-module-binding? b_29)))" -"(if or-part_139 or-part_139(full-module-binding? b_29))))))" +"(let-values(((or-part_89)(simple-module-binding? b_29)))" +"(if or-part_89 or-part_89(full-module-binding? b_29))))))" "(define-values" "(struct:full-module-binding" " full-module-binding51.1" @@ -10234,7 +9942,7 @@ static const char *startup_source = "(lambda(b_30 ser-push!_10 state_18)" "(let-values(((simplified-b_0)" "(if(full-binding-frame-id b_30)" -"(let-values(((temp66_0) #f))" +"(let-values(((b65_0) b_30)((temp66_0) #f))" "(module-binding-update48.1" " #f" " #f" @@ -10258,7 +9966,7 @@ static const char *startup_source = " #f" " #f" " #f" -" b_30))" +" b65_0))" " b_30)))" "(if(full-module-binding? simplified-b_0)" "(let-values()" @@ -10349,7 +10057,10 @@ static const char *startup_source = " extra-inspector_2" " extra-nominal-bindings_2)" "(begin" -"(let-values(((nominal-module71_0) nominal-module_2)" +"(let-values(((module68_0) module_2)" +"((phase69_0) phase_13)" +"((sym70_0) sym_15)" +"((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)" @@ -10375,9 +10086,9 @@ static const char *startup_source = " #t" " #f" " #f" -" module_2" -" phase_13" -" sym_15)))))" +" module68_0" +" phase69_0" +" sym70_0)))))" "(define-values" "(deserialize-simple-module-binding)" "(lambda(module_3 sym_16 phase_14 nominal-module_3)" @@ -10474,8 +10185,8 @@ static const char *startup_source = "(let-values(((frame-id_3)(if frame-id14_0 frame-id11_0(binding-frame-id b_43))))" "(let-values(((free=id_5)(if free=id15_0 free=id12_0(binding-free=id b_43))))" "(let-values()" -"(let-values(((frame-id22_0) frame-id_3)((free=id23_0) free=id_5))" -"(make-local-binding7.1 frame-id22_0 #t free=id23_0 #t key_33))))))))))" +"(let-values(((key21_0) key_33)((frame-id22_0) frame-id_3)((free=id23_0) free=id_5))" +"(make-local-binding7.1 frame-id22_0 #t free=id23_0 #t key21_0))))))))))" "(define-values" "(local-binding-key)" "(lambda(b_44)(begin(if(full-local-binding? b_44)(full-local-binding-key b_44) b_44))))" @@ -10483,14 +10194,14 @@ static const char *startup_source = "(1/prop:rename-transformer 1/rename-transformer? rename-transformer-value)" "(make-struct-type-property" " 'rename-transformer" -"(lambda(v_29 info_1)" +"(lambda(v_26 info_1)" "(let-values((()" "(begin" -"(if(let-values(((or-part_11)(exact-nonnegative-integer? v_29)))" +"(if(let-values(((or-part_11)(exact-nonnegative-integer? v_26)))" "(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)))))" +"(let-values(((or-part_2)(identifier? v_26)))" +"(if or-part_2 or-part_2(if(procedure? v_26)(procedure-arity-includes? v_26 1) #f)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -10499,44 +10210,44 @@ static const char *startup_source = " \"(or/c exact-nonnegative-integer?\\n\"" " \" identifier?\\n\"" " \" (procedure-arity-includes? proc 1))\")" -" v_29)))" +" v_26)))" "(values))))" "(let-values((()" "(begin" -"(if(exact-nonnegative-integer? v_29)" +"(if(exact-nonnegative-integer? v_26)" "(let-values()" "(begin" -"(if(<= v_29(list-ref info_1 1))" +"(if(<= v_26(list-ref info_1 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_26" " \"initialized-field count\"" "(list-ref info_1 1))))" -"(if(member v_29(list-ref info_1 5))" +"(if(member v_26(list-ref info_1 5))" "(void)" "(let-values()" "(raise-arguments-error" " 'guard-for-prop:rename-transformer" " \"field index not declared immutable\"" " \"field index\"" -" v_29)))))" +" v_26)))))" "(void))" "(values))))" "(let-values(((ref_0)(list-ref info_1 3)))" -"(if(identifier? v_29)" -"(let-values()(lambda(t_33) v_29))" -"(if(integer? v_29)" +"(if(identifier? v_26)" +"(let-values()(lambda(t_33) v_26))" +"(if(integer? v_26)" "(let-values()" "(lambda(t_34)" -"(let-values(((val_19)(ref_0 t_34 v_29)))" +"(let-values(((val_19)(ref_0 t_34 v_26)))" "(if(identifier? val_19) val_19(datum->syntax$1 #f '?)))))" "(let-values()" "(lambda(t_13)" -"(let-values(((id_0)(call-with-continuation-prompt(lambda()(v_29 t_13)))))" +"(let-values(((id_0)(call-with-continuation-prompt(lambda()(v_26 t_13)))))" "(begin" "(if(identifier? id_0)" "(void)" @@ -10580,16 +10291,16 @@ static const char *startup_source = "(lambda(t_35)(begin 'rename-transformer-target((rename-transformer-value t_35) t_35))))" "(define-values" "(free-identifier=?$1)" -"(lambda(a_39 b_45 a-phase_0 b-phase_0)" +"(lambda(a_33 b_45 a-phase_0 b-phase_0)" "(begin" " 'free-identifier=?" "(let-values(((ab_0)" -"(let-values(((temp49_0) #t))" -"(resolve+shift30.1 #f #f #f #f #f #f #f #f temp49_0 #t a_39 a-phase_0))))" +"(let-values(((a47_0) a_33)((a-phase48_0) a-phase_0)((temp49_0) #t))" +"(resolve+shift30.1 #f #f #f #f #f #f #f #f temp49_0 #t a47_0 a-phase48_0))))" "(let-values(((bb_0)" -"(let-values(((temp52_0) #t))" -"(resolve+shift30.1 #f #f #f #f #f #f #f #f temp52_0 #t b_45 b-phase_0))))" -"(if(let-values(((or-part_33)(symbol? ab_0)))(if or-part_33 or-part_33(symbol? bb_0)))" +"(let-values(((b50_0) b_45)((b-phase51_0) b-phase_0)((temp52_0) #t))" +"(resolve+shift30.1 #f #f #f #f #f #f #f #f temp52_0 #t b50_0 b-phase51_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))))))))" "(define-values" @@ -10627,8 +10338,8 @@ static const char *startup_source = "(begin" " 'identifier-binding-symbol" "(let-values(((b_46)" -"(let-values(((temp55_0) #t))" -"(resolve+shift30.1 #f #f #f #f #f #f #f #f temp55_0 #t id_2 phase_15))))" +"(let-values(((id53_0) id_2)((phase54_1) phase_15)((temp55_0) #t))" +"(resolve+shift30.1 #f #f #f #f #f #f #f #f temp55_0 #t id53_0 phase54_1))))" "(if(symbol? b_46)" "(let-values() b_46)" "(if(module-binding? b_46)" @@ -10644,28 +10355,28 @@ static const char *startup_source = "(let-values(((phase_16) phase4_0))" "(let-values(((top-level-symbol?_0)(if top-level-symbol?2_0 top-level-symbol?1_0 #f)))" "(let-values()" -"(let-values(((b_26)" +"(let-values(((b_47)" "(let-values(((id56_0) id_3)((phase57_0) phase_16))" "(resolve+shift30.1 #f #f #f #f #f #f #f #f #f #f id56_0 phase57_0))))" -"(if(module-binding? b_26)" +"(if(module-binding? b_47)" "(let-values()" -"(if(top-level-module-path-index?(module-binding-module b_26))" -"(if top-level-symbol?_0(list(module-binding-nominal-sym b_26)) #f)" +"(if(top-level-module-path-index?(module-binding-module b_47))" +"(if top-level-symbol?_0(list(module-binding-nominal-sym b_47)) #f)" "(list" -"(module-binding-module b_26)" -"(module-binding-sym b_26)" -"(module-binding-nominal-module b_26)" -"(module-binding-nominal-sym b_26)" -"(module-binding-phase b_26)" -"(module-binding-nominal-require-phase b_26)" -"(module-binding-nominal-phase b_26))))" -"(if(local-binding? b_26)(let-values() 'lexical)(let-values() #f))))))))))))" +"(module-binding-module b_47)" +"(module-binding-sym b_47)" +"(module-binding-nominal-module b_47)" +"(module-binding-nominal-sym b_47)" +"(module-binding-phase b_47)" +"(module-binding-nominal-require-phase b_47)" +"(module-binding-nominal-phase b_47))))" +"(if(local-binding? b_47)(let-values() 'lexical)(let-values() #f))))))))))))" "(case-lambda" "((id_4 phase_17)(begin 'identifier-binding(identifier-binding5_0 id_4 phase_17 #f #f)))" -"((id_1 phase_18 top-level-symbol?1_1)(identifier-binding5_0 id_1 phase_18 top-level-symbol?1_1 #t)))))" +"((id_5 phase_18 top-level-symbol?1_1)(identifier-binding5_0 id_5 phase_18 top-level-symbol?1_1 #t)))))" "(define-values" "(maybe-install-free=id!)" -"(lambda(val_20 id_5 phase_19)" +"(lambda(val_20 id_6 phase_19)" "(begin" "(if(1/rename-transformer? val_20)" "(let-values()" @@ -10673,21 +10384,21 @@ static const char *startup_source = "(if(syntax-property$1 free=id_6 'not-free-identifier=?)" "(void)" "(let-values()" -"(let-values(((b_47)" -"(let-values(((temp63_0) #t)((temp64_0) #t))" -"(resolve+shift30.1 #f #f temp63_0 #t #f #f temp64_0 #t #f #f id_5 phase_19))))" -"(let-values(((temp58_0)(syntax-scope-set id_5 phase_19))" -"((temp59_0)(syntax-e$1 id_5))" -"((temp60_0)(binding-set-free=id b_47 free=id_6)))" +"(let-values(((b_48)" +"(let-values(((id61_0) id_6)((phase62_0) phase_19)((temp63_0) #t)((temp64_0) #t))" +"(resolve+shift30.1 #f #f temp63_0 #t #f #f temp64_0 #t #f #f id61_0 phase62_0))))" +"(let-values(((temp58_0)(syntax-scope-set id_6 phase_19))" +"((temp59_0)(syntax-e$1 id_6))" +"((temp60_0)(binding-set-free=id b_48 free=id_6)))" "(add-binding-in-scopes!20.1 #f #f temp58_0 temp59_0 temp60_0)))))))" "(void)))))" "(define-values" "(binding-set-free=id)" -"(lambda(b_48 free=id_7)" +"(lambda(b_49 free=id_7)" "(begin" -"(if(module-binding? b_48)" +"(if(module-binding? b_49)" "(let-values()" -"(let-values(((free=id66_0) free=id_7))" +"(let-values(((b65_1) b_49)((free=id66_0) free=id_7))" "(module-binding-update48.1" " #f" " #f" @@ -10711,11 +10422,12 @@ static const char *startup_source = " #f" " #f" " #f" -" b_48)))" -"(if(local-binding? b_48)" +" b65_1)))" +"(if(local-binding? b_49)" "(let-values()" -"(let-values(((free=id68_0) free=id_7))(local-binding-update17.1 #f #f free=id68_0 #t #f #f b_48)))" -" (let-values () (error \"bad binding for free=id:\" b_48)))))))" +"(let-values(((b67_0) b_49)((free=id68_0) free=id_7))" +"(local-binding-update17.1 #f #f free=id68_0 #t #f #f b67_0)))" +" (let-values () (error \"bad binding for free=id:\" b_49)))))))" "(define-values" "(struct:non-source-shift non-source-shift7.1 non-source-shift? non-source-shift-from non-source-shift-to)" "(let-values(((struct:_29 make-_29 ?_29 -ref_29 -set!_29)" @@ -10728,42 +10440,42 @@ static const char *startup_source = " ?_29" "(make-struct-field-accessor -ref_29 0 'from)" "(make-struct-field-accessor -ref_29 1 'to))))" -"(define-values(shift-from)(lambda(s_148)(begin(if(pair? s_148)(car s_148)(non-source-shift-from s_148)))))" -"(define-values(shift-to)(lambda(s_11)(begin(if(pair? s_11)(cdr s_11)(non-source-shift-to s_11)))))" +"(define-values(shift-from)(lambda(s_17)(begin(if(pair? s_17)(car s_17)(non-source-shift-from s_17)))))" +"(define-values(shift-to)(lambda(s_18)(begin(if(pair? s_18)(cdr s_18)(non-source-shift-to s_18)))))" "(define-values" "(syntax-module-path-index-shift15.1)" "(lambda(non-source?8_0 non-source?9_0 s12_0 from-mpi13_0 to-mpi14_0 inspector10_0 inspector11_0)" "(begin" " 'syntax-module-path-index-shift15" -"(let-values(((s_149) s12_0))" +"(let-values(((s_24) s12_0))" "(let-values(((from-mpi_1) from-mpi13_0))" "(let-values(((to-mpi_1) to-mpi14_0))" "(let-values(((inspector_3)(if inspector11_0 inspector10_0 #f)))" "(let-values(((non-source?_0)(if non-source?9_0 non-source?8_0 #f)))" "(let-values()" "(if(eq? from-mpi_1 to-mpi_1)" -"(let-values()(if inspector_3(syntax-set-inspector s_149 inspector_3) s_149))" +"(let-values()(if inspector_3(syntax-set-inspector s_24 inspector_3) s_24))" "(let-values()" "(let-values(((shift_0)" "(if non-source?_0" "(non-source-shift7.1 from-mpi_1 to-mpi_1)" "(cons from-mpi_1 to-mpi_1))))" -"(let-values(((the-struct_31) s_149))" +"(let-values(((the-struct_31) s_24))" "(if(syntax?$1 the-struct_31)" -"(let-values(((mpi-shifts70_0)(cons shift_0(syntax-mpi-shifts s_149)))" +"(let-values(((mpi-shifts70_0)(cons shift_0(syntax-mpi-shifts s_24)))" "((inspector71_1)" -"(let-values(((or-part_74)(syntax-inspector s_149)))" -"(if or-part_74 or-part_74 inspector_3)))" +"(let-values(((or-part_132)(syntax-inspector s_24)))" +"(if or-part_132 or-part_132 inspector_3)))" "((scope-propagations+tamper72_0)" -"(if(datum-has-elements?(syntax-content s_149))" +"(if(datum-has-elements?(syntax-content s_24))" "(propagation-mpi-shift" -"(syntax-scope-propagations+tamper s_149)" -"(lambda(s_21)(cons shift_0 s_21))" +"(syntax-scope-propagations+tamper s_24)" +"(lambda(s_146)(cons shift_0 s_146))" " inspector_3" -"(syntax-scopes s_149)" -"(syntax-shifted-multi-scopes s_149)" -"(syntax-mpi-shifts s_149))" -"(syntax-scope-propagations+tamper s_149))))" +"(syntax-scopes s_24)" +"(syntax-shifted-multi-scopes s_24)" +"(syntax-mpi-shifts s_24))" +"(syntax-scope-propagations+tamper s_24))))" "(syntax1.1" "(syntax-content the-struct_31)" "(syntax-scopes the-struct_31)" @@ -10786,22 +10498,24 @@ static const char *startup_source = " immediate?25_0" " unbound-sym?21_0" " unbound-sym?26_0" -" s28_0" +" s28_1" " phase29_0)" "(begin" " 'resolve+shift30" -"(let-values(((s_150) s28_0))" +"(let-values(((s_147) s28_1))" "(let-values(((phase_20) phase29_0))" "(let-values(((ambiguous-value_1)(if ambiguous-value23_1 ambiguous-value18_0 #f)))" "(let-values(((exactly?_1)(if exactly?24_1 exactly?19_0 #f)))" "(let-values(((immediate?_0)(if immediate?25_0 immediate?20_0 exactly?_1)))" "(let-values(((unbound-sym?_0)(if unbound-sym?26_0 unbound-sym?21_0 #f)))" -"(let-values(((extra-shifts_4)(if extra-shifts27_0 extra-shifts22_0 null)))" +"(let-values(((extra-shifts_1)(if extra-shifts27_0 extra-shifts22_0 null)))" "(let-values()" "(let-values(((immediate-b_0)" -"(let-values(((ambiguous-value75_0) ambiguous-value_1)" +"(let-values(((s73_0) s_147)" +"((phase74_0) phase_20)" +"((ambiguous-value75_0) ambiguous-value_1)" "((exactly?76_0) exactly?_1)" -"((extra-shifts77_0) extra-shifts_4))" +"((extra-shifts77_0) extra-shifts_1))" "(resolve33.1" " ambiguous-value75_0" " #t" @@ -10811,15 +10525,15 @@ static const char *startup_source = " #t" " #f" " #f" -" s_150" -" phase_20))))" -"(let-values(((b_49)" +" s73_0" +" phase74_0))))" +"(let-values(((b_50)" "(if(if immediate-b_0" "(if(not immediate?_0)(binding-free=id immediate-b_0) #f)" " #f)" "(let-values(((temp78_0)(binding-free=id immediate-b_0))" "((phase79_0) phase_20)" -"((temp80_0)(append extra-shifts_4(syntax-mpi-shifts s_150)))" +"((temp80_0)(append extra-shifts_1(syntax-mpi-shifts s_147)))" "((ambiguous-value81_0) ambiguous-value_1)" "((exactly?82_0) exactly?_1)" "((unbound-sym?83_0) unbound-sym?_0))" @@ -10837,56 +10551,57 @@ static const char *startup_source = " temp78_0" " phase79_0))" " immediate-b_0)))" -"(if(module-binding? b_49)" +"(if(module-binding? b_50)" "(let-values()" -"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_150)))" +"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_147)))" "(if(null? mpi-shifts_2)" -"(let-values() b_49)" +"(let-values() b_50)" "(let-values()" -"(let-values(((mod_0)(module-binding-module b_49)))" +"(let-values(((mod_0)(module-binding-module b_50)))" "(let-values(((shifted-mod_0)(apply-syntax-shifts mod_0 mpi-shifts_2)))" -"(let-values(((nominal-mod_0)(module-binding-nominal-module b_49)))" +"(let-values(((nominal-mod_0)(module-binding-nominal-module b_50)))" "(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))))" "(if(if(eq? mod_0 shifted-mod_0)" "(if(eq? nominal-mod_0 shifted-nominal-mod_0)" -"(if(not(binding-free=id b_49))" -"(null?(module-binding-extra-nominal-bindings b_49))" +"(if(not(binding-free=id b_50))" +"(null?(module-binding-extra-nominal-bindings b_50))" " #f)" " #f)" " #f)" -" b_49" -"(let-values(((shifted-mod85_0) shifted-mod_0)" +" b_50" +"(let-values(((b84_0) b_50)" +"((shifted-mod85_0) shifted-mod_0)" "((shifted-nominal-mod86_0) shifted-nominal-mod_0)" "((temp87_0)" -"(if(binding-free=id b_49)" -"(let-values(((temp89_0)(binding-free=id b_49))" -"((s90_0) s_150))" +"(if(binding-free=id b_50)" +"(let-values(((temp89_0)(binding-free=id b_50))" +"((s90_0) s_147))" "(syntax-transfer-shifts39.1 #f #f temp89_0 s90_0 #f #f))" " #f))" "((temp88_0)" "(reverse$1" -"(let-values(((lst_48)" +"(let-values(((lst_49)" "(module-binding-extra-nominal-bindings" -" b_49)))" +" b_50)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_48)))" -"((letrec-values(((for-loop_71)" -"(lambda(fold-var_35 lst_49)" +"(let-values()(check-list lst_49)))" +"((letrec-values(((for-loop_70)" +"(lambda(fold-var_35 lst_50)" "(begin" " 'for-loop" -"(if(pair? lst_49)" -"(let-values(((b_50)" +"(if(pair? lst_50)" +"(let-values(((b_51)" "(unsafe-car" -" lst_49))" +" lst_50))" "((rest_21)" "(unsafe-cdr" -" lst_49)))" +" lst_50)))" "(let-values(((fold-var_36)" "(let-values(((fold-var_37)" " fold-var_35))" @@ -10895,20 +10610,20 @@ static const char *startup_source = "(cons" "(let-values()" "(apply-syntax-shifts-to-binding" -" b_50" +" b_51" " mpi-shifts_2))" " fold-var_37))))" "(values" " fold-var_38)))))" "(if(not #f)" -"(for-loop_71" +"(for-loop_70" " fold-var_36" " rest_21)" " fold-var_36)))" " fold-var_35)))))" -" for-loop_71)" +" for-loop_70)" " null" -" lst_48))))))" +" lst_49))))))" "(module-binding-update48.1" " #f" " #f" @@ -10932,10 +10647,10 @@ static const char *startup_source = " #f" " #f" " #f" -" b_49)))))))))))" -"(if(if(not b_49) unbound-sym?_0 #f)" -"(let-values()(syntax-e$1 s_150))" -"(let-values() b_49))))))))))))))))" +" b84_0)))))))))))" +"(if(if(not b_50) unbound-sym?_0 #f)" +"(let-values()(syntax-e$1 s_147))" +"(let-values() b_50))))))))))))))))" "(define-values" "(apply-syntax-shifts)" "(lambda(mpi_11 shifts_0)" @@ -10948,53 +10663,54 @@ static const char *startup_source = "(module-path-index-shift shifted-mpi_1(shift-from shift_1)(shift-to shift_1)))))))))" "(define-values" "(apply-syntax-shifts-to-binding)" -"(lambda(b_51 shifts_1)" +"(lambda(b_52 shifts_1)" "(begin" "(if(null? shifts_1)" -"(let-values() b_51)" +"(let-values() b_52)" "(let-values()" -"(let-values(((shifted-b_0)(apply-syntax-shifts-to-binding b_51(cdr shifts_1))))" +"(let-values(((shifted-b_0)(apply-syntax-shifts-to-binding b_52(cdr shifts_1))))" "(let-values(((shift_2)(car shifts_1)))" "(binding-module-path-index-shift shifted-b_0(shift-from shift_2)(shift-to shift_2)))))))))" "(define-values" "(binding-module-path-index-shift)" -"(lambda(b_52 from-mpi_2 to-mpi_2)" +"(lambda(b_53 from-mpi_2 to-mpi_2)" "(begin" -"(if(module-binding? b_52)" +"(if(module-binding? b_53)" "(let-values()" -"(let-values(((temp92_0)(module-path-index-shift(module-binding-module b_52) from-mpi_2 to-mpi_2))" -"((temp93_0)(module-path-index-shift(module-binding-nominal-module b_52) from-mpi_2 to-mpi_2))" +"(let-values(((b91_0) b_53)" +"((temp92_0)(module-path-index-shift(module-binding-module b_53) from-mpi_2 to-mpi_2))" +"((temp93_0)(module-path-index-shift(module-binding-nominal-module b_53) from-mpi_2 to-mpi_2))" "((temp94_0)" "(reverse$1" -"(let-values(((lst_32)(module-binding-extra-nominal-bindings b_52)))" +"(let-values(((lst_51)(module-binding-extra-nominal-bindings b_53)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_32)))" -"((letrec-values(((for-loop_25)" -"(lambda(fold-var_39 lst_33)" +"(let-values()(check-list lst_51)))" +"((letrec-values(((for-loop_71)" +"(lambda(fold-var_39 lst_52)" "(begin" " 'for-loop" -"(if(pair? lst_33)" -"(let-values(((b_53)(unsafe-car lst_33))" -"((rest_13)(unsafe-cdr lst_33)))" -"(let-values(((fold-var_21)" -"(let-values(((fold-var_40) fold-var_39))" -"(let-values(((fold-var_41)" +"(if(pair? lst_52)" +"(let-values(((b_54)(unsafe-car lst_52))" +"((rest_22)(unsafe-cdr lst_52)))" +"(let-values(((fold-var_40)" +"(let-values(((fold-var_41) fold-var_39))" +"(let-values(((fold-var_42)" "(let-values()" "(cons" "(let-values()" "(binding-module-path-index-shift" -" b_53" +" b_54" " from-mpi_2" " to-mpi_2))" -" fold-var_40))))" -"(values fold-var_41)))))" -"(if(not #f)(for-loop_25 fold-var_21 rest_13) fold-var_21)))" +" fold-var_41))))" +"(values fold-var_42)))))" +"(if(not #f)(for-loop_71 fold-var_40 rest_22) fold-var_40)))" " fold-var_39)))))" -" for-loop_25)" +" for-loop_71)" " null" -" lst_32))))))" +" lst_51))))))" "(module-binding-update48.1" " #f" " #f" @@ -11018,8 +10734,8 @@ static const char *startup_source = " #f" " #f" " #f" -" b_52)))" -"(let-values() b_52)))))" +" b91_0)))" +"(let-values() b_53)))))" "(define-values" "(syntax-transfer-shifts39.1)" "(lambda(non-source?33_0 non-source?34_0 to-s37_0 from-s38_0 inspector35_0 inspector36_0)" @@ -11034,32 +10750,33 @@ static const char *startup_source = "(if(if(null? shifts_2) inspector_4 #f)" "(let-values()(syntax-set-inspector to-s_0 inspector_4))" "(let-values()" -"(let-values(((lst_50)(reverse$1 shifts_2))((start_12) 0))" +"(let-values(((lst_53)(reverse$1 shifts_2))((start_12) 0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_50)))" +"(let-values()(check-list lst_53)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_12)))" "((letrec-values(((for-loop_72)" -"(lambda(s_151 lst_51 pos_9)" +"(lambda(s_39 lst_54 pos_9)" "(begin" " 'for-loop" -"(if(if(pair? lst_51) #t #f)" -"(let-values(((shift_3)(unsafe-car lst_51))" -"((rest_22)(unsafe-cdr lst_51))" -"((i_75) pos_9))" -"(let-values(((s_152)" -"(let-values(((s_153) s_151))" -"(let-values(((s_90)" +"(if(if(pair? lst_54) #t #f)" +"(let-values(((shift_3)(unsafe-car lst_54))" +"((rest_23)(unsafe-cdr lst_54))" +"((i_76) pos_9))" +"(let-values(((s_148)" +"(let-values(((s_149) s_39))" +"(let-values(((s_150)" "(let-values()" -"(let-values(((temp96_0)" +"(let-values(((s95_0) s_149)" +"((temp96_0)" "(shift-from shift_3))" "((temp97_0)" "(shift-to shift_3))" "((temp98_0)" -"(if(zero? i_75)" +"(if(zero? i_76)" " inspector_4" " #f))" "((non-source?99_0)" @@ -11067,36 +10784,36 @@ static const char *startup_source = "(syntax-module-path-index-shift15.1" " non-source?99_0" " #t" -" s_153" +" s95_0" " temp96_0" " temp97_0" " temp98_0" " #t)))))" -"(values s_90)))))" -"(if(not #f)(for-loop_72 s_152 rest_22(+ pos_9 1)) s_152)))" -" s_151)))))" +"(values s_150)))))" +"(if(not #f)(for-loop_72 s_148 rest_23(+ pos_9 1)) s_148)))" +" s_39)))))" " for-loop_72)" " to-s_0" -" lst_50" +" lst_53" " start_12))))))))))))))" "(define-values" "(syntax-set-inspector)" -"(lambda(s_97 insp_3)" +"(lambda(s_151 insp_3)" "(begin" -"(let-values(((the-struct_32) s_97))" +"(let-values(((the-struct_32) s_151))" "(if(syntax?$1 the-struct_32)" "(let-values(((inspector100_0)" -"(let-values(((or-part_140)(syntax-inspector s_97)))(if or-part_140 or-part_140 insp_3)))" +"(let-values(((or-part_133)(syntax-inspector s_151)))(if or-part_133 or-part_133 insp_3)))" "((scope-propagations+tamper101_0)" -"(if(datum-has-elements?(syntax-content s_97))" +"(if(datum-has-elements?(syntax-content s_151))" "(propagation-mpi-shift" -"(syntax-scope-propagations+tamper s_97)" +"(syntax-scope-propagations+tamper s_151)" " #f" " insp_3" -"(syntax-scopes s_97)" -"(syntax-shifted-multi-scopes s_97)" -"(syntax-mpi-shifts s_97))" -"(syntax-scope-propagations+tamper s_97))))" +"(syntax-scopes s_151)" +"(syntax-shifted-multi-scopes s_151)" +"(syntax-mpi-shifts s_151))" +"(syntax-scope-propagations+tamper s_151))))" "(syntax1.1" "(syntax-content the-struct_32)" "(syntax-scopes the-struct_32)" @@ -11113,31 +10830,31 @@ static const char *startup_source = "(lambda(s44_0 source?42_0 source?43_0)" "(begin" " 'syntax-source-module45" -"(let-values(((s_154) s44_0))" +"(let-values(((s_152) s44_0))" "(let-values(((source?_0)(if source?43_0 source?42_0 #f)))" "(let-values()" "(begin" -"(if(syntax?$1 s_154)" +"(if(syntax?$1 s_152)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_154)))" -"(let-values(((lst_52)(reverse$1(syntax-mpi-shifts s_154))))" +" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_152)))" +"(let-values(((lst_55)(reverse$1(syntax-mpi-shifts s_152))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_52)))" +"(let-values()(check-list lst_55)))" "((letrec-values(((for-loop_73)" -"(lambda(result_48 lst_53)" +"(lambda(result_50 lst_56)" "(begin" " 'for-loop" -"(if(pair? lst_53)" -"(let-values(((shift_4)(unsafe-car lst_53))" -"((rest_23)(unsafe-cdr lst_53)))" -"(let-values(((result_49)" -"(let-values(((result_50) result_48))" -"(if(non-source-shift? shift_4)" -" result_50" -"(let-values()" +"(if(pair? lst_56)" +"(let-values(((shift_4)(unsafe-car lst_56))" +"((rest_24)(unsafe-cdr lst_56)))" "(let-values(((result_51)" +"(let-values(((result_52) result_50))" +"(if(non-source-shift? shift_4)" +" result_52" +"(let-values()" +"(let-values(((result_53)" "(let-values()" "(let-values()" "(let-values(((from-mpi_3)" @@ -11154,7 +10871,7 @@ static const char *startup_source = "(apply-syntax-shifts" " from-mpi_3" "(syntax-mpi-shifts" -" s_154))))" +" s_152))))" "(if source?_0" "(1/resolved-module-path-name" "(1/module-path-index-resolve" @@ -11163,29 +10880,29 @@ static const char *startup_source = " mpi_12))" " #f)" " #f)))))))" -"(values result_51)))))))" -"(if(if(not((lambda x_37 result_49) shift_4))(not #f) #f)" -"(for-loop_73 result_49 rest_23)" -" result_49)))" -" result_48)))))" +"(values result_53)))))))" +"(if(if(not((lambda x_37 result_51) shift_4))(not #f) #f)" +"(for-loop_73 result_51 rest_24)" +" result_51)))" +" result_50)))))" " for-loop_73)" " #f" -" lst_52)))))))))))" +" lst_55)))))))))))" "(case-lambda" -"((s_155)(begin 'syntax-source-module(syntax-source-module45_0 s_155 #f #f)))" -"((s_105 source?42_1)(syntax-source-module45_0 s_105 source?42_1 #t)))))" +"((s_153)(begin 'syntax-source-module(syntax-source-module45_0 s_153 #f #f)))" +"((s_111 source?42_1)(syntax-source-module45_0 s_111 source?42_1 #t)))))" "(define-values" "(1/identifier-prune-to-source-module)" -"(lambda(id_6)" +"(lambda(id_7)" "(begin" " 'identifier-prune-to-source-module" "(begin" -"(if(identifier? id_6)" +"(if(identifier? id_7)" "(void)" -" (let-values () (raise-argument-error 'identifier-prune-to-source-module \"identifier?\" id_6)))" -"(let-values(((the-struct_33)(datum->syntax$1 #f(syntax-e$1 id_6) id_6 id_6)))" +" (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-shifts102_0)(syntax-mpi-shifts id_6)))" +"(let-values(((mpi-shifts102_0)(syntax-mpi-shifts id_7)))" "(syntax1.1" "(syntax-content the-struct_33)" "(syntax-scopes the-struct_33)" @@ -11198,12 +10915,12 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_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_156)(begin(hash-ref built-in-symbols s_156 #f))))" +"(define-values(built-in-symbol?)(lambda(s_154)(begin(hash-ref built-in-symbols s_154 #f))))" "(define-values" "(make-built-in-symbol!)" -"(lambda(s_157)" +"(lambda(s_155)" "(begin" -" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_157))))" +" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_155))))" "(begin(register-built-in-symbol! built-in-s_0) built-in-s_0)))))" "(void" "(begin" @@ -11271,12 +10988,12 @@ static const char *startup_source = "(list" "(cons" " prop:serialize" -"(lambda(p_33 ser-push!_13 state_21)" +"(lambda(p_29 ser-push!_13 state_21)" "(begin" "(ser-push!_13 'tag '#:provided)" -"(ser-push!_13(provided-binding p_33))" -"(ser-push!_13(provided-protected? p_33))" -"(ser-push!_13(provided-syntax? p_33))))))" +"(ser-push!_13(provided-binding p_29))" +"(ser-push!_13(provided-protected? p_29))" +"(ser-push!_13(provided-syntax? p_29))))))" " #f" " #f" " '(0 1 2)" @@ -11289,9 +11006,9 @@ static const char *startup_source = "(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_86)(begin(if(provided? v_86)(provided-binding v_86) v_86))))" +"(define-values(provided-as-binding)(lambda(v_83)(begin(if(provided? v_83)(provided-binding v_83) v_83))))" "(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_36)(begin(if(provided? v_36)(provided-syntax? v_36) #f))))" +"(define-values(provided-as-transformer?)(lambda(v_84)(begin(if(provided? v_84)(provided-syntax? v_84) #f))))" "(define-values" "(deserialize-provided)" "(lambda(binding_6 protected?_0 syntax?_1)(begin(provided1.1 binding_6 protected?_0 syntax?_1))))" @@ -11309,7 +11026,8 @@ static const char *startup_source = "(let-values()" "(let-values(((binding_7)(provided-as-binding binding/p_0)))" "(let-values(((from-mod_0)(module-binding-module binding_7)))" -"(let-values(((temp18_1)(module-path-index-shift from-mod_0 self_1 mpi_13))" +"(let-values(((binding17_0) binding_7)" +"((temp18_1)(module-path-index-shift from-mod_0 self_1 mpi_13))" "((mpi19_0) mpi_13)" "((provide-phase-level20_0) provide-phase-level_0)" "((sym21_1) sym_17)" @@ -11343,7 +11061,7 @@ static const char *startup_source = " #f" " #f" " #f" -" binding_7))))))))))))))" +" binding17_0))))))))))))))" "(define-values" "(struct:bulk-binding" " bulk-binding14.1" @@ -11370,28 +11088,28 @@ static const char *startup_source = "(list" "(cons" " prop:serialize" -"(lambda(b_54 ser-push!_14 reachable-scopes_5)" +"(lambda(b_55 ser-push!_14 reachable-scopes_5)" "(begin" "(ser-push!_14 'tag '#:bulk-binding)" -"(ser-push!_14(bulk-binding-prefix b_54))" -"(ser-push!_14(bulk-binding-excepts b_54))" -"(ser-push!_14(bulk-binding-mpi b_54))" -"(ser-push!_14(bulk-binding-provide-phase-level b_54))" -"(ser-push!_14(bulk-binding-phase-shift b_54))" +"(ser-push!_14(bulk-binding-prefix b_55))" +"(ser-push!_14(bulk-binding-excepts b_55))" +"(ser-push!_14(bulk-binding-mpi b_55))" +"(ser-push!_14(bulk-binding-provide-phase-level b_55))" +"(ser-push!_14(bulk-binding-phase-shift b_55))" "(ser-push!_14 'tag '#:bulk-binding-registry))))" "(cons" " prop:bulk-binding" "(bulk-binding-class3.1" -"(lambda(b_55 mpi-shifts_3)" -"(let-values(((or-part_141)(bulk-binding-provides b_55)))" -"(if or-part_141" -" or-part_141" +"(lambda(b_56 mpi-shifts_3)" +"(let-values(((or-part_134)(bulk-binding-provides b_56)))" +"(if or-part_134" +" or-part_134" "(let-values(((mod-name_1)" "(1/module-path-index-resolve" -"(apply-syntax-shifts(bulk-binding-mpi b_55) mpi-shifts_3))))" +"(apply-syntax-shifts(bulk-binding-mpi b_56) mpi-shifts_3))))" "(let-values((()" "(begin" -"(if(bulk-binding-bulk-binding-registry b_55)" +"(if(bulk-binding-bulk-binding-registry b_56)" "(void)" "(let-values()" "(error" @@ -11400,7 +11118,7 @@ static const char *startup_source = "(values))))" "(let-values(((table_74)" "(bulk-binding-registry-table" -"(bulk-binding-bulk-binding-registry b_55))))" +"(bulk-binding-bulk-binding-registry b_56))))" "(let-values(((bulk-provide_0)(hash-ref table_74 mod-name_1 #f)))" "(let-values((()" "(begin" @@ -11413,18 +11131,18 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(set-bulk-binding-self! b_55(bulk-provide-self bulk-provide_0))" +"(set-bulk-binding-self! b_56(bulk-provide-self bulk-provide_0))" "(values))))" "(let-values(((provides_0)" "(hash-ref" "(bulk-provide-provides bulk-provide_0)" -"(bulk-binding-provide-phase-level b_55))))" -"(let-values(((excepts_0)(bulk-binding-excepts b_55)))" -"(let-values(((prefix_0)(bulk-binding-prefix b_55)))" +"(bulk-binding-provide-phase-level b_56))))" +"(let-values(((excepts_0)(bulk-binding-excepts b_56)))" +"(let-values(((prefix_0)(bulk-binding-prefix b_56)))" "(let-values(((adjusted-provides_0)" -"(if(let-values(((or-part_142) prefix_0))" -"(if or-part_142" -" or-part_142" +"(if(let-values(((or-part_135) prefix_0))" +"(if or-part_135" +" or-part_135" "(positive?(hash-count excepts_0))))" "(let-values()" "(bulk-provides-add-prefix-remove-exceptions" @@ -11433,26 +11151,27 @@ static const char *startup_source = " excepts_0))" "(let-values() provides_0))))" "(begin" -"(set-bulk-binding-provides! b_55 adjusted-provides_0)" +"(set-bulk-binding-provides! b_56 adjusted-provides_0)" " adjusted-provides_0))))))))))))))" -"(lambda(b_56 binding_8 sym_18)" -"(let-values(((temp28_1)" -"(if(bulk-binding-prefix b_56)" +"(lambda(b_57 binding_8 sym_14)" +"(let-values(((binding27_0) binding_8)" +"((temp28_1)" +"(if(bulk-binding-prefix b_57)" "(string->symbol" "(substring" -"(symbol->string sym_18)" -"(string-length(symbol->string(bulk-binding-prefix b_56)))))" -" sym_18))" -"((temp29_0)(bulk-binding-self b_56))" -"((temp30_0)(bulk-binding-mpi b_56))" -"((temp31_0)(bulk-binding-provide-phase-level b_56))" -"((temp32_0)(bulk-binding-phase-shift b_56)))" +"(symbol->string sym_14)" +"(string-length(symbol->string(bulk-binding-prefix b_57)))))" +" sym_14))" +"((temp29_0)(bulk-binding-self b_57))" +"((temp30_0)(bulk-binding-mpi b_57))" +"((temp31_0)(bulk-binding-provide-phase-level b_57))" +"((temp32_0)(bulk-binding-phase-shift b_57)))" "(provide-binding-to-require-binding11.1" " temp30_0" " temp32_0" " temp31_0" " temp29_0" -" binding_8" +" binding27_0" " temp28_1))))))" "(current-inspector)" " #f" @@ -11475,28 +11194,28 @@ static const char *startup_source = "(make-struct-field-mutator -set!_30 3 'self))))" "(define-values" "(deserialize-bulk-binding)" -"(lambda(prefix_1 excepts_1 mpi_14 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0)" +"(lambda(prefix_1 excepts_1 mpi_3 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0)" "(begin" -"(bulk-binding14.1 #f prefix_1 excepts_1 #f mpi_14 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0))))" +"(bulk-binding14.1 #f prefix_1 excepts_1 #f mpi_3 provide-phase-level_1 phase-shift_1 bulk-binding-registry_0))))" "(define-values" "(bulk-provides-add-prefix-remove-exceptions)" "(lambda(provides_1 prefix_2 excepts_2)" "(begin" -"(let-values(((ht_35) provides_1))" +"(let-values(((ht_61) provides_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_35)))" -"((letrec-values(((for-loop_35)" -"(lambda(table_28 i_47)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_61)))" +"((letrec-values(((for-loop_74)" +"(lambda(table_75 i_77)" "(begin" " 'for-loop" -"(if i_47" -"(let-values(((sym_2 val_21)(hash-iterate-key+value ht_35 i_47)))" -"(let-values(((table_75)" -"(let-values(((table_76) table_28))" -"(if(hash-ref excepts_2 sym_2 #f)" -" table_76" -"(let-values(((table_77) table_76))" -"(let-values(((table_78)" +"(if i_77" +"(let-values(((sym_18 val_21)(hash-iterate-key+value ht_61 i_77)))" +"(let-values(((table_76)" +"(let-values(((table_77) table_75))" +"(if(hash-ref excepts_2 sym_18 #f)" +" table_77" +"(let-values(((table_78) table_77))" +"(let-values(((table_33)" "(let-values()" "(let-values(((key_34 val_22)" "(let-values()" @@ -11506,16 +11225,16 @@ static const char *startup_source = "(format" " \"~a~a\"" " prefix_2" -" sym_2))" -" sym_2)" +" sym_18))" +" sym_18)" " val_21))))" -"(hash-set table_77 key_34 val_22)))))" -"(values table_78)))))))" -"(if(not #f)(for-loop_35 table_75(hash-iterate-next ht_35 i_47)) table_75)))" -" table_28)))))" -" for-loop_35)" +"(hash-set table_78 key_34 val_22)))))" +"(values table_33)))))))" +"(if(not #f)(for-loop_74 table_76(hash-iterate-next ht_61 i_77)) table_76)))" +" table_75)))))" +" for-loop_74)" " '#hash()" -"(hash-iterate-first ht_35)))))))" +"(hash-iterate-first ht_61)))))))" "(define-values" "(struct:bulk-provide bulk-provide15.1 bulk-provide? bulk-provide-self bulk-provide-provides)" "(let-values(((struct:_31 make-_31 ?_31 -ref_31 -set!_31)" @@ -11655,46 +11374,32 @@ static const char *startup_source = " frame-id_4))))" "(define-values" "(root-expand-context-post-expansion-scope)" -"(lambda(v_48)(begin(root-expand-context/outer-post-expansion-scope v_48))))" +"(lambda(v_45)(begin(root-expand-context/outer-post-expansion-scope v_45))))" "(define-values" "(root-expand-context-use-site-scopes)" -"(lambda(v_87)(begin(root-expand-context/outer-use-site-scopes v_87))))" -"(define-values(root-expand-context-frame-id)(lambda(v_49)(begin(root-expand-context/outer-frame-id v_49))))" +"(lambda(v_85)(begin(root-expand-context/outer-use-site-scopes v_85))))" +"(define-values(root-expand-context-frame-id)(lambda(v_46)(begin(root-expand-context/outer-frame-id v_46))))" "(define-values" "(root-expand-context-self-mpi)" -"(lambda(v_88)(begin(root-expand-context/inner-self-mpi(root-expand-context/outer-inner v_88)))))" +"(lambda(v_86)(begin(root-expand-context/inner-self-mpi(root-expand-context/outer-inner v_86)))))" "(define-values" "(root-expand-context-module-scopes)" -"(lambda(v_50)(begin(root-expand-context/inner-module-scopes(root-expand-context/outer-inner v_50)))))" +"(lambda(v_47)(begin(root-expand-context/inner-module-scopes(root-expand-context/outer-inner v_47)))))" "(define-values" "(root-expand-context-top-level-bind-scope)" -"(lambda(v_60)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_60)))))" +"(lambda(v_57)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_57)))))" "(define-values" "(root-expand-context-all-scopes-stx)" -"(lambda(v_89)(begin(root-expand-context/inner-all-scopes-stx(root-expand-context/outer-inner v_89)))))" +"(lambda(v_87)(begin(root-expand-context/inner-all-scopes-stx(root-expand-context/outer-inner v_87)))))" "(define-values" "(root-expand-context-defined-syms)" -"(lambda(v_90)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_90)))))" +"(lambda(v_88)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_88)))))" "(define-values" "(root-expand-context-counter)" -"(lambda(v_43)(begin(root-expand-context/inner-counter(root-expand-context/outer-inner v_43)))))" +"(lambda(v_40)(begin(root-expand-context/inner-counter(root-expand-context/outer-inner v_40)))))" "(define-values" "(root-expand-context-lift-key)" -"(lambda(v_91)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_91)))))" -"(define-values" -"(lifted/1.1$26 lifted/2.1$26 lifted/3.1$24 lifted/4.1$24 lifted/5.1$24)" -"(make-struct-type" -" 'make-root-expand-context" -" struct:keyword-procedure/arity-error" -" 0" -" 0" -" #f" -"(list" -"(cons" -" prop:named-keyword-procedure" -"(cons 'make-root-expand-context(case-lambda((self_3)(apply missing-kw self_3 null))))))" -"(current-inspector)" -"(case-lambda((self_4)(apply missing-kw self_4 null)))))" +"(lambda(v_89)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_89)))))" "(define-values" "(make-root-expand-context13.1)" "(lambda(all-scopes-stx7_0" @@ -11721,60 +11426,14 @@ static const char *startup_source = " module-scopes_1" " post-expansion-scope_1" "(new-scope 'module)" -"(let-values(((or-part_143) all-scopes-stx_1))" -"(if or-part_143 or-part_143(add-scopes empty-syntax module-scopes_1)))" +"(let-values(((or-part_136) all-scopes-stx_1))" +"(if or-part_136 or-part_136(add-scopes empty-syntax module-scopes_1)))" "(box null)" "(make-hasheqv)" " (string->uninterned-symbol \"root-frame\")" "(box 0)" "(generate-lift-key))))))))))))" "(define-values" -"(unpack14.1$4)" -"(lambda(given-kws_0 given-args_0)" -"(begin" -" 'unpack14" -"(let-values(((all-scopes-stx12_1)(if(pair? given-kws_0)(eq? '#:all-scopes-stx(car given-kws_0)) #f)))" -"(let-values(((all-scopes-stx7_1)(if all-scopes-stx12_1(car given-args_0)(void)))" -"((given-kws_1)(if all-scopes-stx12_1(cdr given-kws_0) given-kws_0))" -"((given-args_1)(if all-scopes-stx12_1(cdr given-args_0) given-args_0)))" -"(let-values(((initial-scopes9_1)(if(pair? given-kws_1)(eq? '#:initial-scopes(car given-kws_1)) #f)))" -"(let-values(((initial-scopes4_1)(if initial-scopes9_1(car given-args_1)(void)))" -"((given-kws_2)(if initial-scopes9_1(cdr given-kws_1) given-kws_1))" -"((given-args_2)(if initial-scopes9_1(cdr given-args_1) given-args_1)))" -"(let-values(((outside-scope10_1)(if(pair? given-kws_2)(eq? '#:outside-scope(car given-kws_2)) #f)))" -"(let-values(((outside-scope5_1)(if outside-scope10_1(car given-args_2)(void)))" -"((given-kws_3)(if outside-scope10_1(cdr given-kws_2) given-kws_2))" -"((given-args_3)(if outside-scope10_1(cdr given-args_2) given-args_2)))" -"(let-values(((post-expansion-scope11_1)" -"(if(pair? given-kws_3)(eq? '#:post-expansion-scope(car given-kws_3)) #f)))" -"(let-values(((post-expansion-scope6_1)(if post-expansion-scope11_1(car given-args_3)(void)))" -"((given-kws_4)(if post-expansion-scope11_1(cdr given-kws_3) given-kws_3))" -"((given-args_4)(if post-expansion-scope11_1(cdr given-args_3) given-args_3)))" -"(let-values(((self-mpi3_1)(car given-args_4)))" -"(make-root-expand-context13.1" -" all-scopes-stx7_1" -" all-scopes-stx12_1" -" initial-scopes4_1" -" initial-scopes9_1" -" outside-scope5_1" -" outside-scope10_1" -" post-expansion-scope6_1" -" post-expansion-scope11_1" -" self-mpi3_1)))))))))))))" -"(define-values" -"(make-root-expand-context15.1)" -"(lifted/2.1$26" -"(lambda(given-kws_5 given-argc_0)" -"(if(= given-argc_0 2)" -"(subsets?" -" '(#:self-mpi)" -" given-kws_5" -" '(#:all-scopes-stx #:initial-scopes #:outside-scope #:post-expansion-scope #:self-mpi))" -" #f))" -"(case-lambda((given-kws_6 given-args_5)(unpack14.1$4 given-kws_6 given-args_5)))" -" '(#:self-mpi)" -" '(#:all-scopes-stx #:initial-scopes #:outside-scope #:post-expansion-scope #:self-mpi)))" -"(define-values" "(root-expand-context-encode-for-module)" "(lambda(ctx_0 orig-self_0 new-self_0)" "(begin" @@ -11788,34 +11447,34 @@ static const char *startup_source = "((new-self20_0) new-self_0))" "(syntax-module-path-index-shift15.1 #f #f temp18_2 orig-self19_0 new-self20_0 #f #f))" "(add-scopes empty-syntax(unbox(root-expand-context-use-site-scopes ctx_0)))" -"(let-values(((ht_61)(root-expand-context-defined-syms ctx_0)))" +"(let-values(((ht_62)(root-expand-context-defined-syms ctx_0)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_61)))" -"((letrec-values(((for-loop_74)" -"(lambda(table_79 i_76)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_62)))" +"((letrec-values(((for-loop_75)" +"(lambda(table_79 i_78)" "(begin" " 'for-loop" -"(if i_76" -"(let-values(((phase_21 ht_62)(hash-iterate-key+value ht_61 i_76)))" +"(if i_78" +"(let-values(((phase_21 ht_63)(hash-iterate-key+value ht_62 i_78)))" "(let-values(((table_34)" "(let-values(((table_80) table_79))" "(let-values(((table_81)" "(let-values()" "(let-values(((key_35 val_23)" "(let-values()" -"(values phase_21 ht_62))))" +"(values phase_21 ht_63))))" "(hash-set table_80 key_35 val_23)))))" "(values table_81)))))" -"(if(not #f)(for-loop_74 table_34(hash-iterate-next ht_61 i_76)) table_34)))" +"(if(not #f)(for-loop_75 table_34(hash-iterate-next ht_62 i_78)) table_34)))" " table_79)))))" -" for-loop_74)" +" for-loop_75)" " '#hasheqv()" -"(hash-iterate-first ht_61))))" +"(hash-iterate-first ht_62))))" "(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_5)" +"(lambda(vec-s_0 self_3)" "(begin" "(let-values(((vec_24)(if(syntax?$1 vec-s_0)(syntax-e$1 vec-s_0) #f)))" "(begin" @@ -11839,7 +11498,7 @@ 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_5" +" self_3" "(extract-scope-list(vector-ref vec_24 0))" "(extract-scope(vector-ref vec_24 1))" "(new-scope 'module)" @@ -11851,80 +11510,80 @@ static const char *startup_source = "(generate-lift-key)))))))" "(define-values" "(defined-syms-hash?)" -"(lambda(v_92)" +"(lambda(v_90)" "(begin" -"(let-values(((ht_63) v_92))" +"(let-values(((ht_64) v_90))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_63)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_64)))" "((letrec-values(((for-loop_8)" -"(lambda(result_30 i_77)" +"(lambda(result_30 i_79)" "(begin" " 'for-loop" -"(if i_77" -"(let-values(((phase_22 ht-s_0)(hash-iterate-key+value ht_63 i_77)))" -"(let-values(((result_52)" +"(if i_79" +"(let-values(((phase_22 ht-s_0)(hash-iterate-key+value ht_64 i_79)))" +"(let-values(((result_54)" "(let-values()" -"(let-values(((result_53)" +"(let-values(((result_55)" "(let-values()" "(let-values()" "(if(phase? phase_22)" "(if(hash?(syntax-e$1 ht-s_0))" -"(let-values(((ht_64)(syntax-e$1 ht-s_0)))" +"(let-values(((ht_65)(syntax-e$1 ht-s_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_64)))" -"((letrec-values(((for-loop_75)" -"(lambda(result_54 i_78)" +"(let-values()(check-in-hash ht_65)))" +"((letrec-values(((for-loop_76)" +"(lambda(result_56 i_80)" "(begin" " 'for-loop" -"(if i_78" +"(if i_80" "(let-values(((sym_19" -" id_7)" +" id_8)" "(hash-iterate-key+value" -" ht_64" -" i_78)))" -"(let-values(((result_55)" +" ht_65" +" i_80)))" +"(let-values(((result_57)" "(let-values()" -"(let-values(((result_56)" +"(let-values(((result_58)" "(let-values()" "(let-values()" "(if(symbol?" " sym_19)" "(identifier?" -" id_7)" +" id_8)" " #f)))))" "(values" -" result_56)))))" +" result_58)))))" "(if(if(not" "((lambda x_38" "(not" -" result_55))" +" result_57))" " sym_19" -" id_7))" +" id_8))" "(not #f)" " #f)" -"(for-loop_75" -" result_55" +"(for-loop_76" +" result_57" "(hash-iterate-next" -" ht_64" -" i_78))" -" result_55)))" -" result_54)))))" -" for-loop_75)" +" ht_65" +" i_80))" +" result_57)))" +" result_56)))))" +" for-loop_76)" " #t" -"(hash-iterate-first ht_64))))" +"(hash-iterate-first ht_65))))" " #f)" " #f)))))" -"(values result_53)))))" -"(if(if(not((lambda x_39(not result_52)) phase_22 ht-s_0))(not #f) #f)" -"(for-loop_8 result_52(hash-iterate-next ht_63 i_77))" -" result_52)))" +"(values result_55)))))" +"(if(if(not((lambda x_39(not result_54)) phase_22 ht-s_0))(not #f) #f)" +"(for-loop_8 result_54(hash-iterate-next ht_64 i_79))" +" result_54)))" " result_30)))))" " for-loop_8)" " #t" -"(hash-iterate-first ht_63)))))))" +"(hash-iterate-first ht_64)))))))" "(define-values" "(extract-scope-list)" "(lambda(stx_8)(begin(map2 generalize-scope(set->list(syntax-scope-set stx_8 0))))))" @@ -11933,21 +11592,21 @@ static const char *startup_source = "(lambda(stx_9)(begin(if(syntax?$1 stx_9)(= 1(set-count(syntax-scope-set stx_9 0))) #f))))" "(define-values" "(extract-scope)" -"(lambda(stx_10)(begin(let-values(((s_34)(syntax-scope-set stx_10 0)))(generalize-scope(set-first s_34))))))" +"(lambda(stx_10)(begin(let-values(((s_156)(syntax-scope-set stx_10 0)))(generalize-scope(set-first s_156))))))" "(define-values" "(unpack-defined-syms)" -"(lambda(v_93)" +"(lambda(v_91)" "(begin" "(hash-copy" -"(let-values(((ht_65)(syntax-e$1 v_93)))" +"(let-values(((ht_66)(syntax-e$1 v_91)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_65)))" -"((letrec-values(((for-loop_76)" -"(lambda(table_82 i_79)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_66)))" +"((letrec-values(((for-loop_77)" +"(lambda(table_82 i_81)" "(begin" " 'for-loop" -"(if i_79" -"(let-values(((phase_23 ht-s_1)(hash-iterate-key+value ht_65 i_79)))" +"(if i_81" +"(let-values(((phase_23 ht-s_1)(hash-iterate-key+value ht_66 i_81)))" "(let-values(((table_83)" "(let-values(((table_84) table_82))" "(let-values(((table_85)" @@ -11957,7 +11616,7 @@ static const char *startup_source = "(values" " phase_23" "(hash-copy" -"(let-values(((ht_66)" +"(let-values(((ht_67)" "(syntax-e$1" " ht-s_1)))" "(begin" @@ -11965,18 +11624,18 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_66)))" -"((letrec-values(((for-loop_77)" +"(check-in-hash ht_67)))" +"((letrec-values(((for-loop_13)" "(lambda(table_86" -" i_80)" +" i_82)" "(begin" " 'for-loop" -"(if i_80" +"(if i_82" "(let-values(((sym_20" -" id_8)" +" id_9)" "(hash-iterate-key+value" -" ht_66" -" i_80)))" +" ht_67" +" i_82)))" "(let-values(((table_87)" "(let-values(((table_88)" " table_86))" @@ -11987,7 +11646,7 @@ static const char *startup_source = "(let-values()" "(values" " sym_20" -" id_8))))" +" id_9))))" "(hash-set" " table_88" " key_37" @@ -11996,24 +11655,24 @@ static const char *startup_source = " table_89)))))" "(if(not" " #f)" -"(for-loop_77" +"(for-loop_13" " table_87" "(hash-iterate-next" -" ht_66" -" i_80))" +" ht_67" +" i_82))" " table_87)))" " table_86)))))" -" for-loop_77)" +" for-loop_13)" " '#hash()" "(hash-iterate-first" -" ht_66)))))))))" +" ht_67)))))))))" "(hash-set table_84 key_36 val_24)))))" "(values table_85)))))" -"(if(not #f)(for-loop_76 table_83(hash-iterate-next ht_65 i_79)) table_83)))" +"(if(not #f)(for-loop_77 table_83(hash-iterate-next ht_66 i_81)) table_83)))" " table_82)))))" -" for-loop_76)" +" for-loop_77)" " '#hasheqv()" -"(hash-iterate-first ht_65))))))))" +"(hash-iterate-first ht_66))))))))" "(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)" @@ -12074,30 +11733,30 @@ static const char *startup_source = "(define-values(make-module-registry)(lambda()(begin(module-registry1.1(make-hasheq)(box #f)))))" "(define-values" "(registry-call-with-lock)" -"(lambda(r_26 proc_4)" +"(lambda(r_26 proc_2)" "(begin" "(let-values(((lock-box_0)(module-registry-lock-box r_26)))" -"((letrec-values(((loop_55)" +"((letrec-values(((loop_73)" "(lambda()" "(begin" " 'loop" -"(let-values(((v_35)(unbox lock-box_0)))" -"(if(let-values(((or-part_83)(not v_35)))" -"(if or-part_83 or-part_83(sync/timeout 0(car v_35)(cdr v_35))))" +"(let-values(((v_31)(unbox lock-box_0)))" +"(if(let-values(((or-part_75)(not v_31)))" +"(if or-part_75 or-part_75(sync/timeout 0(car v_31)(cdr v_31))))" "(let-values()" "(let-values(((sema_0)(make-semaphore)))" "(let-values(((lock_0)(cons(semaphore-peek-evt sema_0)(current-thread))))" "((dynamic-wind" " void" "(lambda()" -"(if(box-cas! lock-box_0 v_35 lock_0)" -"(let-values()(begin(proc_4) void))" -"(let-values()(loop_55))))" +"(if(box-cas! lock-box_0 v_31 lock_0)" +"(let-values()(begin(proc_2) void))" +"(let-values()(loop_73))))" "(lambda()(semaphore-post sema_0)))))))" -"(if(eq?(current-thread)(cdr v_35))" -"(let-values()(proc_4))" -"(let-values()(begin(sync(car v_35)(cdr v_35))(loop_55))))))))))" -" loop_55))))))" +"(if(eq?(current-thread)(cdr v_31))" +"(let-values()(proc_2))" +"(let-values()(begin(sync(car v_31)(cdr v_31))(loop_73))))))))))" +" loop_73))))))" "(define-values" "(struct:namespace" " namespace1.1" @@ -12132,10 +11791,10 @@ static const char *startup_source = " prop:custom-write" "(lambda(ns_0 port_9 mode_9)" " (let-values ((() (begin (write-string \"#name ns_0)))" "(void))" "(values))))" @@ -12217,8 +11876,8 @@ static const char *startup_source = "(make-bulk-binding-registry))" "(make-small-hasheq)" "(if share-from-ns_0" -"(let-values(((or-part_144)(namespace-root-namespace share-from-ns_0)))" -"(if or-part_144 or-part_144 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))" " #f)" " #f" "(make-inspector(current-code-inspector))" @@ -12235,10 +11894,10 @@ static const char *startup_source = "(1/current-namespace)" "(make-parameter" "(make-namespace)" -"(lambda(v_94)" +"(lambda(v_70)" "(begin" -" (if (1/namespace? v_94) (void) (let-values () (raise-argument-error 'current-namespace \"namespace?\" v_94)))" -" v_94))))" +" (if (1/namespace? v_70) (void) (let-values () (raise-argument-error 'current-namespace \"namespace?\" v_70)))" +" v_70))))" "(define-values" "(namespace-get-root-expand-ctx)" "(lambda(ns_2)(begin(force(unbox(namespace-root-expand-ctx ns_2))))))" @@ -12252,17 +11911,17 @@ static const char *startup_source = "(namespace->module)" "(lambda(ns_5 name_17)" "(begin" -"(let-values(((or-part_145)(small-hash-ref(namespace-submodule-declarations ns_5) name_17 #f)))" -"(if or-part_145" -" or-part_145" +"(let-values(((or-part_138)(small-hash-ref(namespace-submodule-declarations ns_5) name_17 #f)))" +"(if or-part_138" +" or-part_138" "(hash-ref(module-registry-declarations(1/namespace-module-registry ns_5)) name_17 #f))))))" "(define-values" "(namespace->namespace-at-phase)" "(lambda(ns_6 phase_25)" "(begin" -"(let-values(((or-part_146)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_25 #f)))" -"(if or-part_146" -" or-part_146" +"(let-values(((or-part_139)(small-hash-ref(namespace-phase-to-namespace ns_6) phase_25 #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)" @@ -12289,23 +11948,23 @@ static const char *startup_source = "(namespace->name)" "(lambda(ns_7)" "(begin" -"(let-values(((n_22)(namespace-source-name ns_7)))" -"(let-values(((s_158)" -"(if(not n_22)" +"(let-values(((n_20)(namespace-source-name ns_7)))" +"(let-values(((s_157)" +"(if(not n_20)" "(let-values() 'top-level)" -"(if(symbol? n_22)" -" (let-values () (format \"'~s\" n_22))" -" (let-values () (string-append \"\\\"\" (path->string n_22) \"\\\"\"))))))" -"(let-values(((r_27)(1/resolved-module-path-name(1/module-path-index-resolve(namespace-mpi ns_7)))))" -" (if (pair? r_27) (string-append \"(submod \" s_158 \" \" (substring (format \"~s\" (cdr r_27)) 1)) s_158)))))))" +"(if(symbol? n_20)" +" (let-values () (format \"'~s\" n_20))" +" (let-values () (string-append \"\\\"\" (path->string n_20) \"\\\"\"))))))" +"(let-values(((r_15)(1/resolved-module-path-name(1/module-path-index-resolve(namespace-mpi ns_7)))))" +" (if (pair? r_15) (string-append \"(submod \" s_157 \" \" (substring (format \"~s\" (cdr r_15)) 1)) s_157)))))))" "(define-values" "(namespace->definitions)" "(lambda(ns_8 phase-level_1)" "(begin" "(let-values(((d_8)(small-hash-ref(namespace-phase-level-to-definitions ns_8) phase-level_1 #f)))" -"(let-values(((or-part_147) d_8))" -"(if or-part_147" -" or-part_147" +"(let-values(((or-part_140) d_8))" +"(if or-part_140" +" or-part_140" "(let-values()" "(let-values(((p-ns_1)" "(namespace->namespace-at-phase ns_8(phase+(namespace-0-phase ns_8) phase-level_1))))" @@ -12320,56 +11979,56 @@ static const char *startup_source = "(let-values(((ns_9) ns14_0))" "(let-values(((phase-level_2) phase-level15_0))" "(let-values(((name_18) name16_1))" -"(let-values(((val_26) val17_0))" +"(let-values(((val_14) val17_0))" "(let-values(((as-constant?_0)(if as-constant?13_0 as-constant?12_0 #f)))" "(let-values()" "(let-values(((d_10)(namespace->definitions ns_9 phase-level_2)))" "(1/instance-set-variable-value!" "(definitions-variables d_10)" " name_18" -" val_26" +" val_14" "(if as-constant?_0 'constant #f)))))))))))))" "(case-lambda" -"((ns_10 phase-level_3 name_19 val_27)" -"(begin(namespace-set-variable!18_0 ns_10 phase-level_3 name_19 val_27 #f #f)))" -"((ns_11 phase-level_4 name_20 val_28 as-constant?12_1)" -"(namespace-set-variable!18_0 ns_11 phase-level_4 name_20 val_28 as-constant?12_1 #t)))))" +"((ns_10 phase-level_3 name_19 val_26)" +"(begin(namespace-set-variable!18_0 ns_10 phase-level_3 name_19 val_26 #f #f)))" +"((ns_11 phase-level_4 name_20 val_27 as-constant?12_1)" +"(namespace-set-variable!18_0 ns_11 phase-level_4 name_20 val_27 as-constant?12_1 #t)))))" "(define-values" "(namespace-set-consistent!)" -"(lambda(ns_12 phase-level_5 name_14 val_29)" +"(lambda(ns_12 phase-level_5 name_21 val_28)" "(begin" "(let-values(((d_11)(namespace->definitions ns_12 phase-level_5)))" -"(1/instance-set-variable-value!(definitions-variables d_11) name_14 val_29 'consistent)))))" +"(1/instance-set-variable-value!(definitions-variables d_11) name_21 val_28 'consistent)))))" "(define-values" "(namespace-unset-variable!)" -"(lambda(ns_13 phase-level_6 name_21)" +"(lambda(ns_13 phase-level_6 name_22)" "(begin" "(let-values(((d_12)(namespace->definitions ns_13 phase-level_6)))" -"(1/instance-unset-variable!(definitions-variables d_12) name_21)))))" +"(1/instance-unset-variable!(definitions-variables d_12) name_22)))))" "(define-values" "(namespace-set-transformer!)" -"(lambda(ns_14 phase-level_7 name_22 val_30)" +"(lambda(ns_14 phase-level_7 name_23 val_29)" "(begin" "(let-values(((d_13)(namespace->definitions ns_14(add1 phase-level_7))))" -"(hash-set!(definitions-transformers d_13) name_22 val_30)))))" +"(hash-set!(definitions-transformers d_13) name_23 val_29)))))" "(define-values" "(namespace-unset-transformer!)" -"(lambda(ns_15 phase-level_8 name_23)" +"(lambda(ns_15 phase-level_8 name_24)" "(begin" "(let-values(((d_14)(namespace->definitions ns_15(add1 phase-level_8))))" -"(hash-remove!(definitions-transformers d_14) name_23)))))" +"(hash-remove!(definitions-transformers d_14) name_24)))))" "(define-values" "(namespace-get-variable)" -"(lambda(ns_16 phase-level_9 name_24 fail-k_0)" +"(lambda(ns_16 phase-level_9 name_25 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)))))" +"(1/instance-variable-value(definitions-variables d_15) name_25 fail-k_0)))))" "(define-values" "(namespace-get-transformer)" -"(lambda(ns_17 phase-level_10 name_25 fail-k_1)" +"(lambda(ns_17 phase-level_10 name_26 fail-k_1)" "(begin" "(let-values(((d_16)(namespace->definitions ns_17(add1 phase-level_10))))" -"(hash-ref(definitions-transformers d_16) name_25 fail-k_1)))))" +"(hash-ref(definitions-transformers d_16) name_26 fail-k_1)))))" "(define-values" "(namespace->instance)" "(lambda(ns_18 phase-shift_2)(begin(definitions-variables(namespace->definitions ns_18 phase-shift_2)))))" @@ -12387,16 +12046,16 @@ static const char *startup_source = "(begin" " 'syntax->list" "(let-values(((l_46)" -"((letrec-values(((loop_77)" +"((letrec-values(((loop_74)" "(lambda(s_1)" "(begin" " 'loop" "(if(pair? s_1)" -"(let-values()(cons(car s_1)(loop_77(cdr s_1))))" +"(let-values()(cons(car s_1)(loop_74(cdr s_1))))" "(if(syntax?$1 s_1)" -"(let-values()(loop_77(syntax-e$1 s_1)))" +"(let-values()(loop_74(syntax-e$1 s_1)))" "(let-values() s_1)))))))" -" loop_77)" +" loop_74)" " s_0)))" "(if(list? l_46) l_46 #f)))))" "(define-values(missing$1)(gensym))" @@ -12408,36 +12067,36 @@ static const char *startup_source = " 'syntax-track-origin5" "(let-values(((new-stx_0) new-stx3_0))" "(let-values(((old-stx_0) old-stx4_0))" -"(let-values(((id_9)" +"(let-values(((id_10)" "(if id2_0" " id1_0" "(if(identifier? old-stx_0)" " old-stx_0" -"(let-values(((v_95)(syntax-e/no-taint old-stx_0)))" -"(if(pair? v_95)(car v_95) #f))))))" +"(let-values(((v_92)(syntax-e/no-taint old-stx_0)))" +"(if(pair? v_92)(car v_92) #f))))))" "(let-values()" "(let-values(((old-props_0)(syntax-props old-stx_0)))" "(if(zero?(hash-count old-props_0))" "(let-values()" -"(if id_9" +"(if id_10" "(syntax-property$1" " new-stx_0" " 'origin" -"(cons id_9(hash-ref(syntax-props new-stx_0) 'origin null)))" +"(cons id_10(hash-ref(syntax-props new-stx_0) 'origin null)))" " new-stx_0))" "(let-values()" "(let-values(((new-props_0)(syntax-props new-stx_0)))" "(if(zero?(hash-count new-props_0))" "(let-values()" -"(if id_9" +"(if id_10" "(let-values()" "(let-values(((old-origin_0)" "(plain-property-value" "(hash-ref old-props_0 'origin missing$1))))" "(let-values(((origin_0)" "(if(eq? old-origin_0 missing$1)" -"(list id_9)" -"(cons id_9 old-origin_0))))" +"(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(((props7_0)(hash-set old-props_0 'origin origin_0)))" @@ -12467,11 +12126,11 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_36))))))" "(let-values()" "(let-values(((old-props-with-origin_0)" -"(if id_9" +"(if id_10" "(hash-set" " old-props_0" " 'origin" -"(cons id_9(hash-ref old-props_0 'origin null)))" +"(cons id_10(hash-ref old-props_0 'origin null)))" " old-props_0)))" "(let-values(((updated-props_0)" "(if(<" @@ -12484,15 +12143,15 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-immutable-hash ht_60)))" -"((letrec-values(((for-loop_70)" -"(lambda(new-props_1 i_74)" +"((letrec-values(((for-loop_69)" +"(lambda(new-props_1 i_75)" "(begin" " 'for-loop" -"(if i_74" -"(let-values(((k_16 v_85)" +"(if i_75" +"(let-values(((k_16 v_82)" "(unsafe-immutable-hash-iterate-key+value" " ht_60" -" i_74)))" +" i_75)))" "(let-values(((new-props_2)" "(let-values(((new-props_3)" " new-props_1))" @@ -12509,39 +12168,39 @@ static const char *startup_source = "(if(eq?" " new-v_0" " missing$1)" -" v_85" +" v_82" "(cons/preserve" " new-v_0" -" v_85)))))))" +" v_82)))))))" "(values" " new-props_4)))))" "(if(not #f)" -"(for-loop_70" +"(for-loop_69" " new-props_2" "(unsafe-immutable-hash-iterate-next" " ht_60" -" i_74))" +" i_75))" " new-props_2)))" " new-props_1)))))" -" for-loop_70)" +" for-loop_69)" " new-props_0" "(unsafe-immutable-hash-iterate-first ht_60)))))" "(let-values()" -"(let-values(((ht_67) new-props_0))" +"(let-values(((ht_68) new-props_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_67)))" +"(let-values()(check-in-immutable-hash ht_68)))" "((letrec-values(((for-loop_78)" -"(lambda(old-props_1 i_81)" +"(lambda(old-props_1 i_83)" "(begin" " 'for-loop" -"(if i_81" +"(if i_83" "(let-values(((k_17 v_5)" "(unsafe-immutable-hash-iterate-key+value" -" ht_67" -" i_81)))" +" ht_68" +" i_83)))" "(let-values(((old-props_2)" "(let-values(((old-props_3)" " old-props_1))" @@ -12568,13 +12227,13 @@ static const char *startup_source = "(for-loop_78" " old-props_2" "(unsafe-immutable-hash-iterate-next" -" ht_67" -" i_81))" +" ht_68" +" i_83))" " old-props_2)))" " old-props_1)))))" " for-loop_78)" " old-props-with-origin_0" -"(unsafe-immutable-hash-iterate-first ht_67))))))))" +"(unsafe-immutable-hash-iterate-first ht_68))))))))" "(let-values(((the-struct_37) new-stx_0))" "(if(syntax?$1 the-struct_37)" "(let-values(((props9_0) updated-props_0))" @@ -12596,36 +12255,36 @@ static const char *startup_source = "((new-stx_2 old-stx_2 id1_1)(syntax-track-origin5_0 new-stx_2 old-stx_2 id1_1 #t)))))" "(define-values" "(cons/preserve)" -"(lambda(a_40 b_57)" +"(lambda(a_34 b_58)" "(begin" -"(if(let-values(((or-part_37)(preserved-property-value? a_40)))" -"(if or-part_37 or-part_37(preserved-property-value? b_57)))" -"(preserved-property-value1.1(cons(plain-property-value a_40)(plain-property-value b_57)))" -"(cons a_40 b_57)))))" +"(if(let-values(((or-part_141)(preserved-property-value? a_34)))" +"(if or-part_141 or-part_141(preserved-property-value? b_58)))" +"(preserved-property-value1.1(cons(plain-property-value a_34)(plain-property-value b_58)))" +"(cons a_34 b_58)))))" "(define-values" "(syntax-track-origin*)" "(lambda(old-stxes_0 new-stx_3)" "(begin" -"(let-values(((lst_54) old-stxes_0))" +"(let-values(((lst_57) old-stxes_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_54)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_57)))" "((letrec-values(((for-loop_79)" -"(lambda(new-stx_4 lst_55)" +"(lambda(new-stx_4 lst_58)" "(begin" " 'for-loop" -"(if(pair? lst_55)" -"(let-values(((old-stx_3)(unsafe-car lst_55))((rest_24)(unsafe-cdr lst_55)))" +"(if(pair? lst_58)" +"(let-values(((old-stx_3)(unsafe-car lst_58))((rest_25)(unsafe-cdr lst_58)))" "(let-values(((new-stx_5)" "(let-values(((new-stx_6) new-stx_4))" "(let-values(((new-stx_7)" "(let-values()" "(syntax-track-origin$1 new-stx_6 old-stx_3))))" "(values new-stx_7)))))" -"(if(not #f)(for-loop_79 new-stx_5 rest_24) new-stx_5)))" +"(if(not #f)(for-loop_79 new-stx_5 rest_25) new-stx_5)))" " new-stx_4)))))" " for-loop_79)" " new-stx_3" -" lst_54))))))" +" lst_57))))))" "(define-values" "(1/struct:exn:fail:syntax make-exn:fail:syntax$1 1/exn:fail:syntax? 1/exn:fail:syntax-exprs)" "(let-values(((struct:_27 make-_27 ?_27 -ref_27 -set!_27)" @@ -12766,8 +12425,8 @@ static const char *startup_source = "(begin" "(let-values((()" "(begin" -"(if(let-values(((or-part_148)(not given-name_12)))" -"(if or-part_148 or-part_148(symbol? given-name_12)))" +"(if(let-values(((or-part_135)(not given-name_12)))" +"(if or-part_135 or-part_135(symbol? given-name_12)))" "(void)" " (let-values () (raise-argument-error 'raise-syntax-error \"(or/c symbol? #f)\" given-name_12)))" "(values))))" @@ -12790,57 +12449,57 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'raise-syntax-error \"string?\" message-suffix_2)))" "(values))))" -"(let-values(((name_26)" +"(let-values(((name_27)" "(format" " \"~a\"" -"(let-values(((or-part_143) given-name_12))" -"(if or-part_143" -" or-part_143" -"(let-values(((or-part_149)(extract-form-name expr_8)))" -"(if or-part_149 or-part_149 '?)))))))" +"(let-values(((or-part_136) given-name_12))" +"(if or-part_136" +" or-part_136" +"(let-values(((or-part_142)(extract-form-name expr_8)))" +"(if or-part_142 or-part_142 '?)))))))" "(let-values(((at-message_0)" -"(let-values(((or-part_150)" +"(let-values(((or-part_143)" "(if sub-expr_6" "(if(error-print-source-location)" " (format \"\\n at: ~.s\" (syntax->datum$1 (datum->syntax$1 #f sub-expr_6)))" " #f)" " #f)))" -" (if or-part_150 or-part_150 \"\"))))" +" (if or-part_143 or-part_143 \"\"))))" "(let-values(((in-message_0)" -"(let-values(((or-part_151)" +"(let-values(((or-part_144)" "(if expr_8" "(if(error-print-source-location)" " (format \"\\n in: ~.s\" (syntax->datum$1 (datum->syntax$1 #f expr_8)))" " #f)" " #f)))" -" (if or-part_151 or-part_151 \"\"))))" +" (if or-part_144 or-part_144 \"\"))))" "(let-values(((src-loc-str_0)" -"(let-values(((or-part_152)" +"(let-values(((or-part_145)" "(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_146)(extract-source-location sub-expr_6)))" +"(if or-part_146 or-part_146(extract-source-location expr_8)))" " #f)))" -" (if or-part_152 or-part_152 \"\"))))" +" (if or-part_145 or-part_145 \"\"))))" "(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_0 name_27 \": \" message_12 at-message_0 in-message_0 message-suffix_2)" "(current-continuation-marks)" "(map2" " syntax-taint$1" -"(if(let-values(((or-part_153) sub-expr_6))(if or-part_153 or-part_153 expr_8))" +"(if(let-values(((or-part_137) sub-expr_6))(if or-part_137 or-part_137 expr_8))" "(cons" "(datum->syntax$1" " #f" -"(let-values(((or-part_63) sub-expr_6))(if or-part_63 or-part_63 expr_8)))" +"(let-values(((or-part_54) sub-expr_6))(if or-part_54 or-part_54 expr_8)))" " extra-sources_4)" " extra-sources_4)))))))))))))))" "(define-values" "(extract-form-name)" -"(lambda(s_159)" +"(lambda(s_158)" "(begin" -"(if(syntax?$1 s_159)" +"(if(syntax?$1 s_158)" "(let-values()" -"(let-values(((e_17)(syntax-e$1 s_159)))" +"(let-values(((e_17)(syntax-e$1 s_158)))" "(if(symbol? e_17)" "(let-values() e_17)" "(if(if(pair? e_17)(identifier?(car e_17)) #f)" @@ -12849,11 +12508,11 @@ static const char *startup_source = "(let-values() #f)))))" "(define-values" "(extract-source-location)" -"(lambda(s_84)" +"(lambda(s_82)" "(begin" -"(if(syntax?$1 s_84)" -"(if(syntax-srcloc s_84)" -" (let-values (((str_2) (srcloc->string (syntax-srcloc s_84)))) (if str_2 (string-append str_2 \": \") #f))" +"(if(syntax?$1 s_82)" +"(if(syntax-srcloc s_82)" +" (let-values (((str_2) (srcloc->string (syntax-srcloc s_82)))) (if str_2 (string-append str_2 \": \") #f))" " #f)" " #f))))" "(define-values" @@ -13005,7 +12664,7 @@ static const char *startup_source = "(begin" " 'make-module39" "(let-values(((source-name_0)(if source-name21_0 source-name3_0 #f)))" -"(let-values(((self_6) self4_0))" +"(let-values(((self_4) self4_0))" "(let-values(((requires_0)(if requires23_0 requires5_0 null)))" "(let-values(((provides_3) provides6_0))" "(let-values(((min-phase-level_0)(if min-phase-level25_0 min-phase-level7_0 0)))" @@ -13018,7 +12677,7 @@ static const char *startup_source = "(let-values(((phase-level-linklet-info-callback_0)" "(if phase-level-linklet-info-callback30_0" " phase-level-linklet-info-callback12_0" -"(lambda(phase-level_11 ns_17 insp_4)" +"(lambda(phase-level_11 ns_19 insp_4)" "(begin 'phase-level-linklet-info-callback #f)))))" "(let-values(((language-info_0)(if language-info31_0 language-info13_0 #f)))" "(let-values(((primitive?_0)(if primitive?32_0 primitive?14_0 #f)))" @@ -13039,7 +12698,7 @@ static const char *startup_source = "(let-values()" "(module1.1" " source-name_0" -" self_6" +" self_4" "(unresolve-requires requires_0)" " provides_3" " #f" @@ -13109,26 +12768,27 @@ static const char *startup_source = "(lambda(for-submodule?45_0 mpi43_0 root-expand-context44_0 ns49_0)" "(begin" " 'make-module-namespace50" -"(let-values(((ns_19) ns49_0))" +"(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()" "(let-values(((phase_26) 0))" -"(let-values(((name_27)(1/module-path-index-resolve name-mpi_0)))" +"(let-values(((name_28)(1/module-path-index-resolve name-mpi_0)))" "(let-values(((m-ns_1)" "(let-values(((the-struct_38)" -"(let-values(((root-expand-ctx161_0) root-expand-ctx_1)" +"(let-values(((ns160_0) ns_20)" +"((root-expand-ctx161_0) root-expand-ctx_1)" "((temp162_0) #f))" -"(new-namespace9.1 temp162_0 #t root-expand-ctx161_0 #t ns_19 #t))))" +"(new-namespace9.1 temp162_0 #t root-expand-ctx161_0 #t ns160_0 #t))))" "(if(1/namespace? the-struct_38)" "(let-values(((mpi152_0) name-mpi_0)" -"((source-name153_0)(resolved-module-path-root-name name_27))" +"((source-name153_0)(resolved-module-path-root-name name_28))" "((phase154_0) phase_26)" "((0-phase155_0) phase_26)" "((submodule-declarations156_0)" "(if for-submodule?_0" -"(namespace-submodule-declarations ns_19)" +"(namespace-submodule-declarations ns_20)" "(make-small-hasheq)))" "((available-module-instances157_0)(make-hasheqv))" "((module-instances158_0)(make-hasheqv))" @@ -13157,14 +12817,14 @@ static const char *startup_source = "(let-values(((at-phase_0)(make-hasheq)))" "(begin" "(hash-set!(namespace-module-instances m-ns_1) phase_26 at-phase_0)" -"(hash-set! at-phase_0 name_27(make-module-instance m-ns_1 #f))" +"(hash-set! at-phase_0 name_28(make-module-instance m-ns_1 #f))" " m-ns_1))))))))))))))" "(define-values" "(declare-module!58.1)" "(lambda(with-submodules?53_0 with-submodules?54_0 ns55_0 m56_0 mod-name57_0)" "(begin" " 'declare-module!58" -"(let-values(((ns_20) ns55_0))" +"(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)(if with-submodules?54_0 with-submodules?53_0 #t)))" @@ -13172,16 +12832,16 @@ static const char *startup_source = "(let-values(((prior-m_0)" "(if with-submodules?_0" "(hash-ref" -"(module-registry-declarations(1/namespace-module-registry ns_20))" +"(module-registry-declarations(1/namespace-module-registry ns_21))" " mod-name_4" " #f)" " #f)))" "(let-values(((prior-mi_0)" "(if prior-m_0" "(if(not(eq? m_2 prior-m_0))" -"(let-values(((ns163_0) ns_20)" +"(let-values(((ns163_0) ns_21)" "((mod-name164_0) mod-name_4)" -"((temp165_0)(namespace-phase ns_20)))" +"((temp165_0)(namespace-phase ns_21)))" "(namespace->module-instance70.1" " #f" " #f" @@ -13199,13 +12859,13 @@ static const char *startup_source = "(let-values()(check-redeclaration-ok prior-m_0 prior-mi_0 mod-name_4))" "(void))" "(if with-submodules?_0" -"(hash-set!(module-registry-declarations(1/namespace-module-registry ns_20)) mod-name_4 m_2)" -"(small-hash-set!(namespace-submodule-declarations ns_20) mod-name_4 m_2))" +"(hash-set!(module-registry-declarations(1/namespace-module-registry ns_21)) mod-name_4 m_2)" +"(small-hash-set!(namespace-submodule-declarations ns_21) mod-name_4 m_2))" "(if with-submodules?_0" "(let-values()" "(begin" "(register-bulk-provide!" -"(namespace-bulk-binding-registry ns_20)" +"(namespace-bulk-binding-registry ns_21)" " mod-name_4" "(module-self m_2)" "(module-provides m_2))" @@ -13215,22 +12875,22 @@ static const char *startup_source = "(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_27)(namespace-phase ns_20)))" +"(let-values(((phase_27)(namespace-phase ns_21)))" "(let-values(((visit?_0)(eq? 'started(small-hash-ref states_0(add1 phase_27) #f))))" "(let-values(((run?_0)(eq? 'started(small-hash-ref states_0 phase_27 #f))))" -"(let-values(((at-phase_1)(hash-ref(namespace-module-instances ns_20) phase_27)))" +"(let-values(((at-phase_1)(hash-ref(namespace-module-instances ns_21) phase_27)))" "(begin" "(hash-set! at-phase_1 mod-name_4(make-module-instance m-ns_2 m_2))" "(if visit?_0" "(let-values()" -"(let-values(((ns166_0) ns_20)" +"(let-values(((ns166_0) ns_21)" "((temp167_0)(namespace-mpi m-ns_2))" "((phase168_0) phase_27))" "(namespace-module-visit!104.1 #f #f ns166_0 temp167_0 phase168_0)))" "(void))" "(if run?_0" "(let-values()" -"(let-values(((ns169_0) ns_20)" +"(let-values(((ns169_0) ns_21)" "((temp170_0)(namespace-mpi m-ns_2))" "((phase171_0) phase_27))" "(namespace-module-instantiate!96.1" @@ -13257,9 +12917,9 @@ static const char *startup_source = " (raise-arguments-error 'module \"cannot redeclare cross-phase persistent module\" \"module name\" mod-name_5))" "(void))" "(if(if prior-mi_1" -"(let-values(((or-part_154)(module-instance-attached? prior-mi_1)))" -"(if or-part_154" -" or-part_154" +"(let-values(((or-part_147)(module-instance-attached? prior-mi_1)))" +"(if or-part_147" +" or-part_147" "(not" "(inspector-superior?" "(current-code-inspector)" @@ -13273,10 +12933,10 @@ static const char *startup_source = " (lambda (who_8 mod-name_6) (begin (raise-arguments-error who_8 \"unknown module\" \"module name\" mod-name_6))))" "(define-values" "(namespace->module-linklet-info)" -"(lambda(ns_21 name_28 phase-level_12)" +"(lambda(ns_22 name_29 phase-level_12)" "(begin" -"(let-values(((m_3)(namespace->module ns_21 name_28)))" -"(if m_3((module-phase-level-linklet-info-callback m_3) phase-level_12 ns_21(module-inspector m_3)) #f)))))" +"(let-values(((m_3)(namespace->module ns_22 name_29)))" +"(if m_3((module-phase-level-linklet-info-callback m_3) phase-level_12 ns_22(module-inspector m_3)) #f)))))" "(define-values" "(namespace->module-instance70.1)" "(lambda(check-available-at-phase-level62_0" @@ -13290,8 +12950,8 @@ static const char *startup_source = " 0-phase69_0)" "(begin" " 'namespace->module-instance70" -"(let-values(((ns_22) ns67_0))" -"(let-values(((name_29) name68_0))" +"(let-values(((ns_23) ns67_0))" +"(let-values(((name_30) name68_0))" "(let-values(((0-phase_1) 0-phase69_0))" "(let-values(((complain-on-failure?_0)(if complain-on-failure?64_0 complain-on-failure?61_0 #f)))" "(let-values(((check-available-at-phase-level_0)" @@ -13299,33 +12959,33 @@ static const char *startup_source = "(let-values(((unavailable-callback_0)(if unavailable-callback66_0 unavailable-callback63_0 void)))" "(let-values()" "(let-values(((mi_0)" -"(let-values(((or-part_155)" +"(let-values(((or-part_148)" "(hash-ref" -"(hash-ref(namespace-module-instances ns_22) 0-phase_1 '#hasheq())" -" name_29" +"(hash-ref(namespace-module-instances ns_23) 0-phase_1 '#hasheq())" +" name_30" " #f)))" -"(if or-part_155" -" or-part_155" -"(let-values(((or-part_156)" +"(if or-part_148" +" or-part_148" +"(let-values(((or-part_112)" "(let-values(((c-ns_0)" -"(let-values(((or-part_119)" -"(namespace-root-namespace ns_22)))" -"(if or-part_119 or-part_119 ns_22))))" -"(hash-ref(namespace-module-instances c-ns_0) name_29 #f))))" -"(if or-part_156" -" or-part_156" +"(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_30 #f))))" +"(if or-part_112" +" or-part_112" "(if complain-on-failure?_0" -" (error \"no module instance found:\" name_29 0-phase_1)" +" (error \"no module instance found:\" name_30 0-phase_1)" " #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))))))))))))" "(define-values" "(namespace-install-module-namespace!)" -"(lambda(ns_23 name_30 0-phase_2 m_4 existing-m-ns_0)" +"(lambda(ns_24 name_31 0-phase_2 m_4 existing-m-ns_0)" "(begin" "(let-values(((m-ns_3)" -"(let-values(((the-struct_39) ns_23))" +"(let-values(((the-struct_39) ns_24))" "(if(1/namespace? the-struct_39)" "(let-values(((mpi172_0)(namespace-mpi existing-m-ns_0))" "((source-name173_0)(namespace-source-name existing-m-ns_0))" @@ -13372,8 +13032,8 @@ static const char *startup_source = "(namespace->definitions existing-m-ns_0 1))" "(hash-set!" "(namespace-module-instances" -"(let-values(((or-part_157)(namespace-root-namespace ns_23)))(if or-part_157 or-part_157 ns_23)))" -" name_30" +"(let-values(((or-part_150)(namespace-root-namespace ns_24)))(if or-part_150 or-part_150 ns_24)))" +" name_31" " mi_1)" "(small-hash-set!(module-instance-phase-level-to-state mi_1) 0 'started)))" "(let-values()" @@ -13391,28 +13051,28 @@ static const char *startup_source = "(small-hash-set!(module-instance-phase-level-to-state mi_1) 0 'started)" "(values))))" "(let-values(((at-phase_2)" -"(let-values(((or-part_158)" -"(hash-ref(namespace-module-instances ns_23) 0-phase_2 #f)))" -"(if or-part_158" -" or-part_158" +"(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)))" "(begin" -"(hash-set!(namespace-module-instances ns_23) 0-phase_2 at-phase_3)" +"(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! at-phase_2 name_31 mi_1))))))))))))" "(define-values" "(namespace-create-module-instance!)" -"(lambda(ns_24 name_31 0-phase_3 m_5 mpi_15)" +"(lambda(ns_25 name_32 0-phase_3 m_5 mpi_14)" "(begin" "(let-values(((m-ns_4)" -"(let-values(((the-struct_40) ns_24))" +"(let-values(((the-struct_40) ns_25))" "(if(1/namespace? the-struct_40)" -"(let-values(((mpi181_0) mpi_15)" +"(let-values(((mpi181_0) mpi_14)" "((source-name182_0)" -"(let-values(((or-part_159)(module-source-name m_5)))" -"(if or-part_159" -" or-part_159" -"(resolved-module-path-root-name(1/module-path-index-resolve mpi_15)))))" +"(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_14)))))" "((root-expand-ctx183_0)(box #f))" "((phase184_0) 0-phase_3)" "((0-phase185_0) 0-phase_3)" @@ -13441,16 +13101,16 @@ static const char *startup_source = "(let-values(((mi_2)(make-module-instance m-ns_4 m_5)))" "(begin" "(if(module-cross-phase-persistent? m_5)" -"(hash-set!(namespace-module-instances ns_24) name_31 mi_2)" +"(hash-set!(namespace-module-instances ns_25) name_32 mi_2)" "(let-values(((at-phase_4)" -"(let-values(((or-part_160)(hash-ref(namespace-module-instances ns_24) 0-phase_3 #f)))" -"(if or-part_160" -" or-part_160" +"(let-values(((or-part_117)(hash-ref(namespace-module-instances ns_25) 0-phase_3 #f)))" +"(if or-part_117" +" or-part_117" "(let-values(((at-phase_5)(make-hasheq)))" "(begin" -"(hash-set!(namespace-module-instances ns_24) 0-phase_3 at-phase_5)" +"(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)))" +"(hash-set! at-phase_4 name_32 mi_2)))" " mi_2)))))))" "(define-values" "(check-availablilty)" @@ -13481,8 +13141,8 @@ static const char *startup_source = " 0-phase81_0)" "(begin" " 'namespace->module-namespace82" -"(let-values(((ns_25) ns79_0))" -"(let-values(((name_32) name80_0))" +"(let-values(((ns_26) ns79_0))" +"(let-values(((name_33) name80_0))" "(let-values(((0-phase_4) 0-phase81_0))" "(let-values(((complain-on-failure?_1)(if complain-on-failure?76_0 complain-on-failure?73_0 #f)))" "(let-values(((check-available-at-phase-level_2)" @@ -13490,7 +13150,10 @@ static const char *startup_source = "(let-values(((unavailable-callback_2)(if unavailable-callback78_0 unavailable-callback75_0 void)))" "(let-values()" "(let-values(((mi_4)" -"(let-values(((complain-on-failure?193_0) complain-on-failure?_1)" +"(let-values(((ns190_0) ns_26)" +"((name191_0) name_33)" +"((0-phase192_0) 0-phase_4)" +"((complain-on-failure?193_0) complain-on-failure?_1)" "((check-available-at-phase-level194_0) check-available-at-phase-level_2)" "((unavailable-callback195_0) unavailable-callback_2))" "(namespace->module-instance70.1" @@ -13500,21 +13163,21 @@ static const char *startup_source = " #t" " unavailable-callback195_0" " #t" -" ns_25" -" name_32" -" 0-phase_4))))" +" ns190_0" +" name191_0" +" 0-phase192_0))))" "(if mi_4(module-instance-namespace mi_4) #f))))))))))))" "(define-values" "(namespace-record-module-instance-attached!)" -"(lambda(ns_26 mod-name_7 phase_28)" +"(lambda(ns_27 mod-name_7 phase_28)" "(begin" "(let-values(((mi_5)" -"(let-values(((ns196_0) ns_26)((mod-name197_0) mod-name_7)((phase198_0) phase_28))" +"(let-values(((ns196_0) ns_27)((mod-name197_0) mod-name_7)((phase198_0) phase_28))" "(namespace->module-instance70.1 #f #f #f #f #f #f ns196_0 mod-name197_0 phase198_0))))" "(set-module-instance-attached?! mi_5 #t)))))" "(define-values" "(module-force-bulk-binding!)" -"(lambda(m_7 ns_27)(begin((module-force-bulk-binding m_7)(namespace-bulk-binding-registry ns_27)))))" +"(lambda(m_7 ns_28)(begin((module-force-bulk-binding m_7)(namespace-bulk-binding-registry ns_28)))))" "(define-values" "(namespace-module-instantiate!96.1)" "(lambda(otherwise-available?87_0" @@ -13530,36 +13193,36 @@ static const char *startup_source = " instance-phase95_0)" "(begin" " 'namespace-module-instantiate!96" -"(let-values(((ns_28) ns93_0))" -"(let-values(((mpi_16) mpi94_0))" +"(let-values(((ns_29) ns93_0))" +"(let-values(((mpi_15) mpi94_0))" "(let-values(((instance-phase_0) instance-phase95_0))" -"(let-values(((run-phase_0)(if run-phase89_0 run-phase85_0(namespace-phase ns_28))))" +"(let-values(((run-phase_0)(if run-phase89_0 run-phase85_0(namespace-phase ns_29))))" "(let-values(((skip-run?_0)(if skip-run?90_0 skip-run?86_0 #f)))" "(let-values(((otherwise-available?_0)(if otherwise-available?91_0 otherwise-available?87_0 #t)))" "(let-values(((seen_17)(if seen92_0 seen88_0 '#hasheq())))" "(let-values()" "(let-values((()" "(begin" -"(if(1/module-path-index? mpi_16)" +"(if(1/module-path-index? mpi_15)" "(void)" -" (let-values () (error \"not a module path index:\" mpi_16)))" +" (let-values () (error \"not a module path index:\" mpi_15)))" "(values))))" -"(let-values(((name_33)(1/module-path-index-resolve mpi_16 #t)))" -"(let-values(((m_8)(namespace->module ns_28 name_33)))" +"(let-values(((name_34)(1/module-path-index-resolve mpi_15 #t)))" +"(let-values(((m_8)(namespace->module ns_29 name_34)))" "(let-values((()" "(begin" "(if m_8" "(void)" -"(let-values()(raise-unknown-module-error 'instantiate name_33)))" +"(let-values()(raise-unknown-module-error 'instantiate name_34)))" "(values))))" "(let-values(((instantiate!_0)" -"(lambda(instance-phase_1 run-phase_1 ns_29)" +"(lambda(instance-phase_1 run-phase_1 ns_30)" "(begin" " 'instantiate!" "(let-values(((mi_6)" -"(let-values(((or-part_161)" -"(let-values(((ns205_0) ns_29)" -"((name206_0) name_33)" +"(let-values(((or-part_153)" +"(let-values(((ns205_0) ns_30)" +"((name206_0) name_34)" "((instance-phase207_0)" " instance-phase_1))" "(namespace->module-instance70.1" @@ -13572,15 +13235,17 @@ static const char *startup_source = " ns205_0" " name206_0" " instance-phase207_0))))" -"(if or-part_161" -" or-part_161" +"(if or-part_153" +" or-part_153" "(namespace-create-module-instance!" -" ns_29" -" name_33" +" ns_30" +" name_34" " instance-phase_1" " m_8" -" mpi_16)))))" -"(let-values(((run-phase201_0) run-phase_1)" +" mpi_15)))))" +"(let-values(((mi199_0) mi_6)" +"((ns200_0) ns_30)" +"((run-phase201_0) run-phase_1)" "((skip-run?202_0) skip-run?_0)" "((otherwise-available?203_0) otherwise-available?_0)" "((seen204_0) seen_17))" @@ -13590,27 +13255,30 @@ static const char *startup_source = " seen204_0" " #t" " skip-run?202_0" -" mi_6" -" ns_29)))))))" +" mi199_0" +" ns200_0)))))))" "(if(module-cross-phase-persistent? m_8)" "(let-values()" "(instantiate!_0" " 0" " 0" -"(let-values(((or-part_162)(namespace-root-namespace ns_28)))" -"(if or-part_162 or-part_162 ns_28))))" -"(let-values()(instantiate!_0 instance-phase_0 run-phase_0 ns_28)))))))))))))))))))" +"(let-values(((or-part_154)(namespace-root-namespace ns_29)))" +"(if or-part_154 or-part_154 ns_29))))" +"(let-values()(instantiate!_0 instance-phase_0 run-phase_0 ns_29)))))))))))))))))))" "(define-values" "(namespace-module-visit!104.1)" "(lambda(visit-phase99_0 visit-phase100_0 ns101_0 mpi102_0 instance-phase103_0)" "(begin" " 'namespace-module-visit!104" -"(let-values(((ns_30) ns101_0))" -"(let-values(((mpi_17) mpi102_0))" +"(let-values(((ns_31) ns101_0))" +"(let-values(((mpi_16) mpi102_0))" "(let-values(((instance-phase_2) instance-phase103_0))" -"(let-values(((visit-phase_0)(if visit-phase100_0 visit-phase99_0(namespace-phase ns_30))))" +"(let-values(((visit-phase_0)(if visit-phase100_0 visit-phase99_0(namespace-phase ns_31))))" "(let-values()" -"(let-values(((temp211_0)(add1 visit-phase_0)))" +"(let-values(((ns208_0) ns_31)" +"((mpi209_0) mpi_16)" +"((instance-phase210_0) instance-phase_2)" +"((temp211_0)(add1 visit-phase_0)))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -13620,20 +13288,24 @@ static const char *startup_source = " #f" " #f" " #f" -" ns_30" -" mpi_17" -" instance-phase_2))))))))))" +" ns208_0" +" mpi209_0" +" instance-phase210_0))))))))))" "(define-values" "(namespace-module-make-available!112.1)" "(lambda(visit-phase107_0 visit-phase108_0 ns109_0 mpi110_0 instance-phase111_0)" "(begin" " 'namespace-module-make-available!112" -"(let-values(((ns_31) ns109_0))" -"(let-values(((mpi_18) mpi110_0))" +"(let-values(((ns_32) ns109_0))" +"(let-values(((mpi_17) mpi110_0))" "(let-values(((instance-phase_3) instance-phase111_0))" -"(let-values(((visit-phase_1)(if visit-phase108_0 visit-phase107_0(namespace-phase ns_31))))" +"(let-values(((visit-phase_1)(if visit-phase108_0 visit-phase107_0(namespace-phase ns_32))))" "(let-values()" -"(let-values(((temp215_0)(add1 visit-phase_1))((temp216_0) #t))" +"(let-values(((ns212_0) ns_32)" +"((mpi213_0) mpi_17)" +"((instance-phase214_0) instance-phase_3)" +"((temp215_0)(add1 visit-phase_1))" +"((temp216_0) #t))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -13643,16 +13315,16 @@ static const char *startup_source = " #f" " temp216_0" " #t" -" ns_31" -" mpi_18" -" instance-phase_3))))))))))" +" ns212_0" +" mpi213_0" +" instance-phase214_0))))))))))" "(define-values" "(run-module-instance!125.1)" "(lambda(otherwise-available?117_0 run-phase115_0 seen118_0 seen122_0 skip-run?116_0 mi123_0 ns124_0)" "(begin" " 'run-module-instance!125" "(let-values(((mi_7) mi123_0))" -"(let-values(((ns_32) ns124_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))" @@ -13662,22 +13334,22 @@ static const char *startup_source = "(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_163) skip-run?_1))" -"(if or-part_163" -" or-part_163" +"(if(if(let-values(((or-part_155) skip-run?_1))" +"(if or-part_155" +" or-part_155" "(eq?" " 'started" "(small-hash-ref" "(module-instance-phase-level-to-state mi_7)" " run-phase-level_0" " #f))))" -"(let-values(((or-part_164)(not otherwise-available?_1)))" -"(if or-part_164 or-part_164(module-instance-made-available? mi_7)))" +"(let-values(((or-part_156)(not otherwise-available?_1)))" +"(if or-part_156 or-part_156(module-instance-made-available? mi_7)))" " #f)" "(void)" "(let-values()" "(let-values(((m_9)(module-instance-module mi_7)))" -"(let-values(((mpi_19)(namespace-mpi m-ns_5)))" +"(let-values(((mpi_18)(namespace-mpi m-ns_5)))" "(let-values(((phase-shift_3) instance-phase_4))" "(let-values(((bulk-binding-registry_3)(namespace-bulk-binding-registry m-ns_5)))" "(begin" @@ -13691,24 +13363,24 @@ static const char *startup_source = "(set-module-instance-shifted-requires!" " mi_7" "(reverse$1" -"(let-values(((lst_56)(module-requires m_9)))" +"(let-values(((lst_59)(module-requires m_9)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_56)))" +"(let-values()(check-list lst_59)))" "((letrec-values(((for-loop_80)" -"(lambda(fold-var_42 lst_57)" +"(lambda(fold-var_43 lst_60)" "(begin" " 'for-loop" -"(if(pair? lst_57)" +"(if(pair? lst_60)" "(let-values(((phase+mpis_0)" -"(unsafe-car lst_57))" -"((rest_25)" -"(unsafe-cdr lst_57)))" -"(let-values(((fold-var_43)" +"(unsafe-car lst_60))" +"((rest_26)" +"(unsafe-cdr lst_60)))" "(let-values(((fold-var_44)" -" fold-var_42))" "(let-values(((fold-var_45)" +" fold-var_43))" +"(let-values(((fold-var_46)" "(let-values()" "(cons" "(let-values()" @@ -13716,7 +13388,7 @@ static const char *startup_source = "(car" " phase+mpis_0)" "(reverse$1" -"(let-values(((lst_58)" +"(let-values(((lst_61)" "(cdr" " phase+mpis_0)))" "(begin" @@ -13725,24 +13397,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_58)))" +" lst_61)))" "((letrec-values(((for-loop_81)" -"(lambda(fold-var_46" -" lst_59)" +"(lambda(fold-var_47" +" lst_62)" "(begin" " 'for-loop" "(if(pair?" -" lst_59)" +" lst_62)" "(let-values(((req-mpi_0)" "(unsafe-car" -" lst_59))" -"((rest_26)" +" lst_62))" +"((rest_27)" "(unsafe-cdr" -" lst_59)))" -"(let-values(((fold-var_47)" +" lst_62)))" "(let-values(((fold-var_48)" -" fold-var_46))" "(let-values(((fold-var_49)" +" fold-var_47))" +"(let-values(((fold-var_50)" "(let-values()" "(cons" "(let-values()" @@ -13750,41 +13422,41 @@ static const char *startup_source = " req-mpi_0" "(module-self" " m_9)" -" mpi_19))" -" fold-var_48))))" +" mpi_18))" +" fold-var_49))))" "(values" -" fold-var_49)))))" +" fold-var_50)))))" "(if(not" " #f)" "(for-loop_81" -" fold-var_47" -" rest_26)" -" fold-var_47)))" -" fold-var_46)))))" +" fold-var_48" +" rest_27)" +" fold-var_48)))" +" fold-var_47)))))" " for-loop_81)" " null" -" lst_58))))))" -" fold-var_44))))" -"(values fold-var_45)))))" +" lst_61))))))" +" fold-var_45))))" +"(values fold-var_46)))))" "(if(not #f)" -"(for-loop_80 fold-var_43 rest_25)" -" fold-var_43)))" -" fold-var_42)))))" +"(for-loop_80 fold-var_44 rest_26)" +" fold-var_44)))" +" fold-var_43)))))" " for-loop_80)" " null" -" lst_56)))))))" -"(let-values(((lst_60)(module-instance-shifted-requires mi_7)))" +" lst_59)))))))" +"(let-values(((lst_63)(module-instance-shifted-requires mi_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_60)))" +"(let-values()(check-list lst_63)))" "((letrec-values(((for-loop_82)" -"(lambda(lst_61)" +"(lambda(lst_64)" "(begin" " 'for-loop" -"(if(pair? lst_61)" -"(let-values(((phase+mpis_1)(unsafe-car lst_61))" -"((rest_27)(unsafe-cdr lst_61)))" +"(if(pair? lst_64)" +"(let-values(((phase+mpis_1)(unsafe-car lst_64))" +"((rest_28)(unsafe-cdr lst_64)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -13795,7 +13467,7 @@ static const char *startup_source = "(car" " phase+mpis_1)))" "(begin" -"(let-values(((lst_62)" +"(let-values(((lst_65)" "(cdr" " phase+mpis_1)))" "(begin" @@ -13804,26 +13476,30 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_62)))" +" lst_65)))" "((letrec-values(((for-loop_83)" -"(lambda(lst_63)" +"(lambda(lst_66)" "(begin" " 'for-loop" "(if(pair?" -" lst_63)" +" lst_66)" "(let-values(((req-mpi_1)" "(unsafe-car" -" lst_63))" -"((rest_28)" +" lst_66))" +"((rest_29)" "(unsafe-cdr" -" lst_63)))" +" lst_66)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((temp219_0)" +"(let-values(((ns217_0)" +" ns_33)" +"((req-mpi218_0)" +" req-mpi_1)" +"((temp219_0)" "(phase+" " instance-phase_4" " req-phase_0))" @@ -13847,26 +13523,26 @@ static const char *startup_source = " #t" " skip-run?221_0" " #t" -" ns_32" -" req-mpi_1" +" ns217_0" +" req-mpi218_0" " temp219_0)))" "(values)))))" "(values)))))" "(if(not" " #f)" "(for-loop_83" -" rest_28)" +" rest_29)" "(values))))" "(values))))))" " for-loop_83)" -" lst_62)))" +" lst_65)))" "(void))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_82 rest_27)(values))))" +"(if(not #f)(for-loop_82 rest_28)(values))))" "(values))))))" " for-loop_82)" -" lst_60)))" +" lst_63)))" "(void)" "(if(label-phase? instance-phase_4)" "(void)" @@ -13947,7 +13623,7 @@ static const char *startup_source = " data-box_0" " p-ns_2" " phase-shift_3" -" mpi_19" +" mpi_18" " bulk-binding-registry_3" " insp_5)" "(go_0" @@ -13955,7 +13631,7 @@ static const char *startup_source = " p-ns_2" " phase-shift_3" " phase-level_13" -" mpi_19" +" mpi_18" " bulk-binding-registry_3" " insp_5))))))))))))" "(if(if otherwise-available?_1" @@ -13974,7 +13650,7 @@ static const char *startup_source = "(begin" "(hash-update!" "(namespace-available-module-instances" -" ns_32)" +" ns_33)" " phase_29" "(lambda(l_47)" "(cons" @@ -14012,34 +13688,34 @@ static const char *startup_source = "(lambda(ns130_0 run-phase128_0 run-phase129_0)" "(begin" " 'namespace-visit-available-modules!131" -"(let-values(((ns_33) ns130_0))" -"(let-values(((run-phase_3)(if run-phase129_0 run-phase128_0(namespace-phase ns_33))))" -"(let-values()(namespace-run-available-modules! ns_33(add1 run-phase_3)))))))))" +"(let-values(((ns_34) ns130_0))" +"(let-values(((run-phase_3)(if run-phase129_0 run-phase128_0(namespace-phase ns_34))))" +"(let-values()(namespace-run-available-modules! ns_34(add1 run-phase_3)))))))))" "(case-lambda" -"((ns_34)(begin(namespace-visit-available-modules!131_0 ns_34 #f #f)))" -"((ns_35 run-phase128_1)(namespace-visit-available-modules!131_0 ns_35 run-phase128_1 #t)))))" +"((ns_35)(begin(namespace-visit-available-modules!131_0 ns_35 #f #f)))" +"((ns_36 run-phase128_1)(namespace-visit-available-modules!131_0 ns_36 run-phase128_1 #t)))))" "(define-values" "(namespace-run-available-modules!)" "(let-values(((namespace-run-available-modules!136_0)" "(lambda(ns135_0 run-phase133_0 run-phase134_0)" "(begin" " 'namespace-run-available-modules!136" -"(let-values(((ns_36) ns135_0))" -"(let-values(((run-phase_4)(if run-phase134_0 run-phase133_0(namespace-phase ns_36))))" +"(let-values(((ns_37) ns135_0))" +"(let-values(((run-phase_4)(if run-phase134_0 run-phase133_0(namespace-phase ns_37))))" "(let-values()" -"(if(null?(hash-ref(namespace-available-module-instances ns_36) run-phase_4 null))" +"(if(null?(hash-ref(namespace-available-module-instances ns_37) run-phase_4 null))" "(void)" "(let-values()" "(registry-call-with-lock" -"(1/namespace-module-registry ns_36)" +"(1/namespace-module-registry ns_37)" "(lambda()" -"((letrec-values(((loop_78)" +"((letrec-values(((loop_75)" "(lambda()" "(begin" " 'loop" "(let-values(((mis_0)" "(hash-ref" -"(namespace-available-module-instances ns_36)" +"(namespace-available-module-instances ns_37)" " run-phase_4" " null)))" "(if(null? mis_0)" @@ -14047,33 +13723,37 @@ static const char *startup_source = "(let-values()" "(begin" "(hash-set!" -"(namespace-available-module-instances ns_36)" +"(namespace-available-module-instances ns_37)" " run-phase_4" " null)" -"(let-values(((lst_64)(reverse$1 mis_0)))" +"(let-values(((lst_67)(reverse$1 mis_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_64)))" +"(let-values()(check-list lst_67)))" "((letrec-values(((for-loop_85)" -"(lambda(lst_65)" +"(lambda(lst_68)" "(begin" " 'for-loop" -"(if(pair? lst_65)" +"(if(pair? lst_68)" "(let-values(((mi_8)" "(unsafe-car" -" lst_65))" -"((rest_29)" +" lst_68))" +"((rest_30)" "(unsafe-cdr" -" lst_65)))" +" lst_68)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((run-phase226_0)" +"(let-values(((mi224_0)" +" mi_8)" +"((ns225_0)" +" ns_37)" +"((run-phase226_0)" " run-phase_4)" "((temp227_0)" " #f)" @@ -14085,35 +13765,35 @@ static const char *startup_source = " #f" " #f" " temp227_0" -" mi_8" -" ns_36)))" +" mi224_0" +" ns225_0)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_85 rest_29)" +"(for-loop_85 rest_30)" "(values))))" "(values))))))" " for-loop_85)" -" lst_64)))" +" lst_67)))" "(void)" -"(loop_78)))))))))" -" loop_78)))))))))))))" +"(loop_75)))))))))" +" loop_75)))))))))))))" "(case-lambda" -"((ns_37)(begin(namespace-run-available-modules!136_0 ns_37 #f #f)))" -"((ns_38 run-phase133_1)(namespace-run-available-modules!136_0 ns_38 run-phase133_1 #t)))))" +"((ns_38)(begin(namespace-run-available-modules!136_0 ns_38 #f #f)))" +"((ns_39 run-phase133_1)(namespace-run-available-modules!136_0 ns_39 run-phase133_1 #t)))))" "(define-values" "(namespace-primitive-module-visit!)" -"(lambda(ns_39 name_34)" +"(lambda(ns_40 name_35)" "(begin" -"(let-values(((mi_9)(hash-ref(namespace-module-instances ns_39)(1/make-resolved-module-path name_34))))" -"(let-values(((temp231_0) 1)((temp232_0) #f)((temp233_0) #t))" -"(run-module-instance!125.1 temp233_0 temp231_0 #f #f temp232_0 mi_9 ns_39))))))" +"(let-values(((mi_9)(hash-ref(namespace-module-instances ns_40)(1/make-resolved-module-path name_35))))" +"(let-values(((mi229_0) mi_9)((ns230_0) ns_40)((temp231_0) 1)((temp232_0) #f)((temp233_0) #t))" +"(run-module-instance!125.1 temp233_0 temp231_0 #f #f temp232_0 mi229_0 ns230_0))))))" "(define-values" "(namespace-module-use->module+linklet-instances146.1)" "(lambda(phase-shift140_0 shift-from138_0 shift-from141_0 shift-to139_0 shift-to142_0 ns144_0 mu145_0)" "(begin" " 'namespace-module-use->module+linklet-instances146" -"(let-values(((ns_40) ns144_0))" +"(let-values(((ns_41) ns144_0))" "(let-values(((mu_0) mu145_0))" "(let-values(((shift-from_0)(if shift-from141_0 shift-from138_0 #f)))" "(let-values(((shift-to_0)(if shift-to142_0 shift-to139_0 #f)))" @@ -14121,7 +13801,8 @@ static const char *startup_source = "(let-values()" "(let-values(((mod_1)(module-use-module mu_0)))" "(let-values(((mi_10)" -"(let-values(((temp235_0)" +"(let-values(((ns234_0) ns_41)" +"((temp235_0)" "(1/module-path-index-resolve" "(if shift-from_0" "(module-path-index-shift mod_1 shift-from_0 shift-to_0)" @@ -14135,7 +13816,7 @@ static const char *startup_source = " #t" " #f" " #f" -" ns_40" +" ns234_0" " temp235_0" " phase-shift236_0))))" "(let-values(((m-ns_6)(module-instance-namespace mi_10)))" @@ -14161,96 +13842,96 @@ static const char *startup_source = "(lambda(requires_1)" "(begin" "(reverse$1" -"(let-values(((lst_66) requires_1))" +"(let-values(((lst_69) requires_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_66)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_69)))" "((letrec-values(((for-loop_86)" -"(lambda(fold-var_50 lst_67)" +"(lambda(fold-var_51 lst_70)" "(begin" " 'for-loop" -"(if(pair? lst_67)" -"(let-values(((phase+mpis_2)(unsafe-car lst_67))((rest_30)(unsafe-cdr lst_67)))" -"(let-values(((fold-var_51)" -"(let-values(((fold-var_52) fold-var_50))" -"(let-values(((fold-var_53)" +"(if(pair? lst_70)" +"(let-values(((phase+mpis_2)(unsafe-car lst_70))((rest_31)(unsafe-cdr lst_70)))" +"(let-values(((fold-var_52)" +"(let-values(((fold-var_53) fold-var_51))" +"(let-values(((fold-var_54)" "(let-values()" "(cons" "(let-values()" "(cons" "(car phase+mpis_2)" "(reverse$1" -"(let-values(((lst_68)(cdr phase+mpis_2)))" +"(let-values(((lst_71)(cdr phase+mpis_2)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_68)))" +"(let-values()(check-list lst_71)))" "((letrec-values(((for-loop_87)" -"(lambda(fold-var_54" -" lst_69)" +"(lambda(fold-var_55" +" lst_72)" "(begin" " 'for-loop" -"(if(pair? lst_69)" +"(if(pair? lst_72)" "(let-values(((req-mpi_2)" "(unsafe-car" -" lst_69))" -"((rest_31)" +" lst_72))" +"((rest_32)" "(unsafe-cdr" -" lst_69)))" -"(let-values(((fold-var_55)" +" lst_72)))" "(let-values(((fold-var_56)" -" fold-var_54))" "(let-values(((fold-var_57)" +" fold-var_55))" +"(let-values(((fold-var_58)" "(let-values()" "(cons" "(let-values()" "(module-path-index-unresolve" " req-mpi_2))" -" fold-var_56))))" +" fold-var_57))))" "(values" -" fold-var_57)))))" +" fold-var_58)))))" "(if(not #f)" "(for-loop_87" -" fold-var_55" -" rest_31)" -" fold-var_55)))" -" fold-var_54)))))" +" fold-var_56" +" rest_32)" +" fold-var_56)))" +" fold-var_55)))))" " for-loop_87)" " null" -" lst_68))))))" -" fold-var_52))))" -"(values fold-var_53)))))" -"(if(not #f)(for-loop_86 fold-var_51 rest_30) fold-var_51)))" -" fold-var_50)))))" +" lst_71))))))" +" fold-var_53))))" +"(values fold-var_54)))))" +"(if(not #f)(for-loop_86 fold-var_52 rest_31) fold-var_52)))" +" fold-var_51)))))" " for-loop_86)" " null" -" lst_66)))))))" +" lst_69)))))))" "(define-values" "(module-compute-access!)" "(lambda(m_10)" "(begin" "(let-values(((access_0)" -"(let-values(((ht_68)(module-provides m_10)))" +"(let-values(((ht_69)(module-provides m_10)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_68)))" +"(let-values()(check-in-hash ht_69)))" "((letrec-values(((for-loop_88)" -"(lambda(table_90 i_82)" +"(lambda(table_90 i_84)" "(begin" " 'for-loop" -"(if i_82" +"(if i_84" "(let-values(((phase_30 at-phase_6)" -"(hash-iterate-key+value ht_68 i_82)))" +"(hash-iterate-key+value ht_69 i_84)))" "(let-values(((table_91)" "(let-values(((table_92) table_90))" "(let-values(((table_93)" "(let-values()" -"(let-values(((key_38 val_31)" +"(let-values(((key_38 val_30)" "(let-values()" "(values" " phase_30" -"(let-values(((ht_69)" +"(let-values(((ht_70)" " at-phase_6))" "(begin" "(if(variable-reference-from-unsafe?" @@ -14258,25 +13939,25 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_69)))" +" ht_70)))" "((letrec-values(((for-loop_89)" "(lambda(table_94" -" i_83)" +" i_85)" "(begin" " 'for-loop" -"(if i_83" +"(if i_85" "(let-values(((sym_21" " binding/p_1)" "(hash-iterate-key+value" -" ht_69" -" i_83)))" +" ht_70" +" i_85)))" "(let-values(((table_95)" "(let-values(((table_96)" " table_94))" "(let-values(((table_97)" "(let-values()" "(let-values(((key_39" -" val_32)" +" val_31)" "(let-values()" "(values" "(module-binding-sym" @@ -14289,7 +13970,7 @@ static const char *startup_source = "(hash-set" " table_96" " key_39" -" val_32)))))" +" val_31)))))" "(values" " table_97)))))" "(if(not" @@ -14297,38 +13978,39 @@ static const char *startup_source = "(for-loop_89" " table_95" "(hash-iterate-next" -" ht_69" -" i_83))" +" ht_70" +" i_85))" " table_95)))" " table_94)))))" " for-loop_89)" " '#hash()" "(hash-iterate-first" -" ht_69))))))))" +" ht_70))))))))" "(hash-set" " table_92" " key_38" -" val_31)))))" +" val_30)))))" "(values table_93)))))" "(if(not #f)" -"(for-loop_88 table_91(hash-iterate-next ht_68 i_82))" +"(for-loop_88 table_91(hash-iterate-next ht_69 i_84))" " table_91)))" " table_90)))))" " for-loop_88)" " '#hasheqv()" -"(hash-iterate-first ht_68))))))" +"(hash-iterate-first ht_69))))))" "(begin(set-module-access! m_10 access_0) access_0)))))" "(define-values" "(binding->module-instance)" -"(lambda(b_41 ns_41 phase_31 id_10)" +"(lambda(b_41 ns_42 phase_31 id_11)" "(begin" "(let-values(((at-phase_7)(phase- phase_31(module-binding-phase b_41))))" "(let-values(((mi_11)" -"(let-values(((temp2_0)(1/module-path-index-resolve(module-binding-module b_41)))" +"(let-values(((ns1_0) ns_42)" +"((temp2_0)(1/module-path-index-resolve(module-binding-module b_41)))" "((at-phase3_0) at-phase_7)" "((temp4_0)(module-binding-phase b_41))" "((temp5_0)(lambda(mi_12) 'unavailable)))" -"(namespace->module-instance70.1 temp4_0 #t #f #f temp5_0 #t ns_41 temp2_0 at-phase3_0))))" +"(namespace->module-instance70.1 temp4_0 #t #f #f temp5_0 #t ns1_0 temp2_0 at-phase3_0))))" "(begin" "(if(eq? mi_11 'unavailable)" "(let-values()" @@ -14345,7 +14027,7 @@ static const char *startup_source = " \" phase: ~s\")" "(module-binding-module b_41)" "(phase+ at-phase_7(module-binding-phase b_41)))" -" id_10))" +" id_11))" "(void))" "(if mi_11" "(void)" @@ -14361,34 +14043,34 @@ static const char *startup_source = "(module-binding-module b_41)" " phase_31" "(module-binding-phase b_41)" -" id_10)))" +" id_11)))" " mi_11))))))" "(define-values" "(check-access)" -"(lambda(b_41 mi_13 id_11 in-s_0 what_0)" +"(lambda(b_41 mi_13 id_12 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()" "(let-values(((access_1)" -"(let-values(((or-part_33)(module-access m_11)))" -"(if or-part_33 or-part_33(module-compute-access! m_11)))))" -"(let-values(((a_41)" +"(let-values(((or-part_27)(module-access m_11)))" +"(if or-part_27 or-part_27(module-compute-access! m_11)))))" +"(let-values(((a_35)" "(hash-ref" "(hash-ref access_1(module-binding-phase b_41) '#hasheq())" "(module-binding-sym b_41)" " 'unexported)))" -"(if(let-values(((or-part_10)(eq? a_41 'unexported)))" -"(if or-part_10 or-part_10(eq? a_41 'protected)))" +"(if(let-values(((or-part_10)(eq? a_35 'unexported)))" +"(if or-part_10 or-part_10(eq? a_35 'protected)))" "(let-values()" "(begin" -"(if(let-values(((or-part_165)" +"(if(let-values(((or-part_157)" "(inspector-superior?" -"(let-values(((or-part_12)(syntax-inspector id_11)))" +"(let-values(((or-part_12)(syntax-inspector id_12)))" "(if or-part_12 or-part_12(current-code-inspector)))" "(namespace-inspector(module-instance-namespace mi_13)))))" -"(if or-part_165" -" or-part_165" +"(if or-part_157" +" or-part_157" "(if(module-binding-extra-inspector b_41)" "(inspector-superior?" "(module-binding-extra-inspector b_41)" @@ -14403,66 +14085,66 @@ static const char *startup_source = "(if(not" "(eq?" "(if(syntax?$1 c-id_0)(syntax-content c-id_0) c-id_0)" -"(syntax-content id_11)))" +"(syntax-content id_12)))" " c-id_0" " #f))))" "(raise-syntax-error$1" " #f" "(format" " \"access disallowed by code inspector to ~a ~a\\n from module: ~a\"" -" a_41" +" a_35" " what_0" "(1/module-path-index-resolve(namespace-mpi(module-instance-namespace mi_13))))" " complain-id_0" -" id_11" +" id_12" " null))))" " #t))" "(let-values() #f)))))" "(let-values() #f))))))" "(define-values" "(resolve+shift/extra-inspector)" -"(lambda(id_12 phase_32 ns_42)" +"(lambda(id_13 phase_32 ns_43)" "(begin" -"((letrec-values(((loop_79)" -"(lambda(id_13 in-s_1)" +"((letrec-values(((loop_76)" +"(lambda(id_2 in-s_1)" "(begin" " 'loop" -"(let-values(((b_58)" -"(let-values(((temp3_0) #t))" -"(resolve+shift30.1 #f #f #f #f #f #f temp3_0 #t #f #f id_13 phase_32))))" -"(let-values(((c1_22)(binding-free=id b_58)))" +"(let-values(((b_46)" +"(let-values(((id1_2) id_2)((phase2_0) phase_32)((temp3_0) #t))" +"(resolve+shift30.1 #f #f #f #f #f #f temp3_0 #t #f #f id1_2 phase2_0))))" +"(let-values(((c1_22)(binding-free=id b_46)))" "(if c1_22" "((lambda(next-id_0)" "(let-values((()" "(begin" -"(if(if(module-binding? b_58)" +"(if(if(module-binding? b_46)" "(not" -"(top-level-module-path-index?(module-binding-module b_58)))" +"(top-level-module-path-index?(module-binding-module b_46)))" " #f)" "(let-values()" "(let-values(((mi_14)" "(binding->module-instance" -" b_58" -" ns_42" +" b_46" +" ns_43" " phase_32" -" id_13)))" -" (check-access b_58 mi_14 id_13 in-s_1 \"provided binding\")))" +" id_2)))" +" (check-access b_46 mi_14 id_2 in-s_1 \"provided binding\")))" "(void))" "(values))))" "(let-values(((next-b_0)" -"(loop_79" +"(loop_76" " next-id_0" -"(let-values(((or-part_166) in-s_1))" -"(if or-part_166 or-part_166 id_13)))))" +"(let-values(((or-part_75) in-s_1))" +"(if or-part_75 or-part_75 id_2)))))" "(if(not next-b_0)" -"(let-values() b_58)" +"(let-values() b_46)" "(if(if(module-binding? next-b_0)" "(if(not(module-binding-extra-inspector next-b_0))" -"(syntax-inspector id_13)" +"(syntax-inspector id_2)" " #f)" " #f)" "(let-values()" -"(let-values(((temp5_1)(syntax-inspector id_13)))" +"(let-values(((next-b4_0) next-b_0)((temp5_1)(syntax-inspector id_2)))" "(module-binding-update48.1" " temp5_1" " #t" @@ -14486,26 +14168,26 @@ static const char *startup_source = " #f" " #f" " #f" -" next-b_0)))" +" next-b4_0)))" "(let-values() next-b_0))))))" " c1_22)" -"(let-values() b_58))))))))" -" loop_79)" -" id_12" +"(let-values() b_46))))))))" +" loop_76)" +" id_13" " #f))))" "(define-values" "(1/prop:set!-transformer 1/set!-transformer? set!-transformer-value)" "(make-struct-type-property" " 'set!-transformer" -"(lambda(v_29 info_1)" +"(lambda(v_26 info_1)" "(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(procedure? v_26)" +"(let-values(((or-part_2)(procedure-arity-includes? v_26 1)))" +"(if or-part_2 or-part_2(procedure-arity-includes? v_26 2)))" " #f)))" -"(if or-part_11 or-part_11(exact-nonnegative-integer? v_29)))" +"(if or-part_11 or-part_11(exact-nonnegative-integer? v_26)))" "(void)" "(let-values()" "(raise-argument-error" @@ -14514,42 +14196,42 @@ 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_26)))" "(values))))" "(let-values((()" "(begin" -"(if(exact-nonnegative-integer? v_29)" +"(if(exact-nonnegative-integer? v_26)" "(let-values()" "(begin" -"(if(<= v_29(list-ref info_1 1))" +"(if(<= v_26(list-ref info_1 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_26" " \"initialized-field count\"" "(list-ref info_1 1))))" -"(if(member v_29(list-ref info_1 5))" +"(if(member v_26(list-ref info_1 5))" "(void)" "(let-values()" "(raise-arguments-error" " 'guard-for-prop:set!-transformer" " \"field index not declared immutable\"" " \"field index\"" -" v_29)))))" +" v_26)))))" "(void))" "(values))))" "(let-values(((ref_0)(list-ref info_1 3)))" -"(if(integer? v_29)" +"(if(integer? v_26)" "(let-values()" "(lambda(t_33)" -"(let-values(((p_34)(ref_0 t_33 v_29)))" -"(if(if(procedure? p_34)(procedure-arity-includes? p_34 1) #f)" -" p_34" +"(let-values(((p_30)(ref_0 t_33 v_26)))" +"(if(if(procedure? p_30)(procedure-arity-includes? p_30 1) #f)" +" p_30" " (lambda (s_3) (error \"bad syntax:\" s_3))))))" -"(let-values()(lambda(t_13) v_29)))))))))" +"(let-values()(lambda(t_13) v_26)))))))))" "(define-values" "(1/make-set!-transformer)" "(let-values()" @@ -14570,21 +14252,21 @@ static const char *startup_source = " #f" " 'set!-transformer)))))" "(values struct:_38 make-_38 ?_38(make-struct-field-accessor -ref_38 0 'proc)))))" -"(lambda(proc_5)" +"(lambda(proc_3)" "(begin" " 'make-set!-transformer" "(begin" -"(if(if(procedure? proc_5)(procedure-arity-includes? proc_5 1) #f)" +"(if(if(procedure? proc_3)(procedure-arity-includes? proc_3 1) #f)" "(void)" -" (let-values () (raise-argument-error 'make-set!-transformer \"(procedure-arity-includes/c 1)\" proc_5)))" -"(set!-transformer1_0 proc_5)))))))" +" (let-values () (raise-argument-error 'make-set!-transformer \"(procedure-arity-includes/c 1)\" proc_3)))" +"(set!-transformer1_0 proc_3)))))))" "(define-values" "(1/set!-transformer-procedure)" "(lambda(t_36)" "(begin" " 'set!-transformer-procedure" -"(let-values(((v_96)((set!-transformer-value t_36) t_36)))" -"(if(procedure-arity-includes? v_96 1) v_96(lambda(s_160)(v_96 t_36 s_160)))))))" +"(let-values(((v_93)((set!-transformer-value t_36) t_36)))" +"(if(procedure-arity-includes? v_93 1) v_93(lambda(s_159)(v_93 t_36 s_159)))))))" "(define-values(empty-env) '#hasheq())" "(define-values(env-extend)(lambda(env_0 key_40 val_19)(begin(hash-set env_0 key_40 val_19))))" "(define-values(variable)(gensym 'variable))" @@ -14615,33 +14297,31 @@ static const char *startup_source = "(lambda(no-stops?2_0 id4_0 t5_0)" "(begin" " 'substitute-variable6" -"(let-values(((id_14) id4_0))" +"(let-values(((id_5) id4_0))" "(let-values(((t_37) t5_0))" "(let-values(((no-stops?_0) no-stops?2_0))" "(let-values()" "(if(if no-stops?_0(local-variable? t_37) #f)" "(let-values(((bind-id_0)(local-variable-id t_37)))" -"(syntax-rearm$1" -"(datum->syntax$1(syntax-disarm$1 bind-id_0)(syntax-e$1 bind-id_0) id_14 id_14)" -" id_14))" -" id_14))))))))" +"(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))))))))" "(define-values(missing)(gensym 'missing))" "(define-values" "(transformer?)" "(lambda(t_38)" "(begin" -"(let-values(((or-part_27)(procedure? t_38)))" -"(if or-part_27" -" or-part_27" -"(let-values(((or-part_167)(1/set!-transformer? t_38)))" -"(if or-part_167 or-part_167(1/rename-transformer? t_38))))))))" +"(let-values(((or-part_21)(procedure? t_38)))" +"(if or-part_21" +" or-part_21" +"(let-values(((or-part_158)(1/set!-transformer? t_38)))" +"(if or-part_158 or-part_158(1/rename-transformer? t_38))))))))" "(define-values" "(transformer->procedure)" "(lambda(t_18)" "(begin" "(if(1/set!-transformer? t_18)" "(let-values()(1/set!-transformer-procedure t_18))" -"(if(1/rename-transformer? t_18)(let-values()(lambda(s_161) s_161))(let-values() t_18))))))" +"(if(1/rename-transformer? t_18)(let-values()(lambda(s_160) s_160))(let-values() t_18))))))" "(define-values" "(struct:core-form core-form9.1 core-form? core-form-expander core-form-name)" "(let-values(((struct:_20 make-_20 ?_20 -ref_20 -set!_20)" @@ -14670,16 +14350,16 @@ static const char *startup_source = "(lambda(in10_0 in12_0 just-for-nominal?11_0 just-for-nominal?13_0 id14_0 binding15_0 phase16_0)" "(begin" " 'add-binding!17" -"(let-values(((id_15) id14_0))" +"(let-values(((id_14) id14_0))" "(let-values(((binding_9) binding15_0))" "(let-values(((phase_33) phase16_0))" "(let-values(((in-s_2)(if in12_0 in10_0 #f)))" "(let-values(((just-for-nominal?_2)(if just-for-nominal?13_0 just-for-nominal?11_0 #f)))" "(let-values()" "(begin" -"(check-id-taint id_15 in-s_2)" -"(let-values(((temp53_0)(syntax-scope-set id_15 phase_33))" -"((temp54_0)(syntax-e$1 id_15))" +"(check-id-taint id_14 in-s_2)" +"(let-values(((temp53_0)(syntax-scope-set id_14 phase_33))" +"((temp54_0)(syntax-e$1 id_14))" "((binding55_0) binding_9)" "((just-for-nominal?56_0) just-for-nominal?_2))" "(add-binding-in-scopes!20.1 just-for-nominal?56_0 #t temp53_0 temp54_0 binding55_0))))))))))))" @@ -14688,45 +14368,45 @@ static const char *startup_source = "(lambda(in20_0 in21_0 s22_0 binding23_0 phase24_0)" "(begin" " 'add-bulk-binding!25" -"(let-values(((s_28) s22_0))" +"(let-values(((s_29) s22_0))" "(let-values(((binding_10) binding23_0))" "(let-values(((phase_34) phase24_0))" "(let-values(((in-s_3)(if in21_0 in20_0 #f)))" "(let-values()" "(begin" -"(if(syntax-tainted?$1 s_28)" -" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_28))" +"(if(syntax-tainted?$1 s_29)" +" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_29))" "(void))" -"(add-bulk-binding-in-scopes!(syntax-scope-set s_28 phase_34) binding_10))))))))))" +"(add-bulk-binding-in-scopes!(syntax-scope-set s_29 phase_34) binding_10))))))))))" "(define-values" "(add-local-binding!35.1)" "(lambda(frame-id28_0 frame-id30_0 in29_0 in31_0 id32_0 phase33_0 counter34_0)" "(begin" " 'add-local-binding!35" -"(let-values(((id_16) id32_0))" +"(let-values(((id_15) id32_0))" "(let-values(((phase_35) phase33_0))" "(let-values(((counter_1) counter34_0))" "(let-values(((frame-id_5)(if frame-id30_0 frame-id28_0 #f)))" "(let-values(((in-s_4)(if in31_0 in29_0 #f)))" "(let-values()" -"(let-values((()(begin(check-id-taint id_16 in-s_4)(values))))" +"(let-values((()(begin(check-id-taint id_15 in-s_4)(values))))" "(let-values((()(begin(set-box! counter_1(add1(unbox counter_1)))(values))))" -"(let-values(((key_41)" -" (string->uninterned-symbol (format \"~a_~a\" (syntax-e$1 id_16) (unbox counter_1)))))" +"(let-values(((key_8)" +" (string->uninterned-symbol (format \"~a_~a\" (syntax-e$1 id_15) (unbox counter_1)))))" "(begin" -"(let-values(((temp57_0)(syntax-scope-set id_16 phase_35))" -"((temp58_1)(syntax-e$1 id_16))" +"(let-values(((temp57_0)(syntax-scope-set id_15 phase_35))" +"((temp58_1)(syntax-e$1 id_15))" "((temp59_1)" -"(let-values(((frame-id61_0) frame-id_5))" -"(make-local-binding7.1 frame-id61_0 #t #f #f key_41))))" +"(let-values(((key60_0) key_8)((frame-id61_0) frame-id_5))" +"(make-local-binding7.1 frame-id61_0 #t #f #f key60_0))))" "(add-binding-in-scopes!20.1 #f #f temp57_0 temp58_1 temp59_1))" -" key_41)))))))))))))" +" key_8)))))))))))))" "(define-values" "(check-id-taint)" -"(lambda(id_17 in-s_5)" +"(lambda(id_16 in-s_5)" "(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_16)" +" (let-values () (raise-syntax-error$1 #f \"cannot bind tainted identifier\" in-s_5 id_16))" "(void)))))" "(define-values" "(binding-lookup48.1)" @@ -14745,9 +14425,9 @@ static const char *startup_source = "(let-values(((b_59) b42_0))" "(let-values(((env_1) env43_0))" "(let-values(((lift-envs_0) lift-envs44_0))" -"(let-values(((ns_43) ns45_0))" +"(let-values(((ns_15) ns45_0))" "(let-values(((phase_36) phase46_0))" -"(let-values(((id_18) id47_0))" +"(let-values(((id_17) id47_0))" "(let-values(((in-s_6)(if in40_0 in38_0 #f)))" "(let-values(((out-of-context-as-variable?_0)" "(if out-of-context-as-variable?41_0 out-of-context-as-variable?39_0 #f)))" @@ -14757,15 +14437,15 @@ static const char *startup_source = "(let-values(((top-level?_0)(top-level-module-path-index?(module-binding-module b_59))))" "(let-values(((mi_15)" "(if(not top-level?_0)" -"(binding->module-instance b_59 ns_43 phase_36 id_18)" +"(binding->module-instance b_59 ns_15 phase_36 id_17)" " #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_43" +" ns_15" "(if mi_15(module-instance-namespace mi_15) #f))))" -"(let-values((()(begin(check-taint id_18)(values))))" +"(let-values((()(begin(check-taint id_17)(values))))" "(let-values(((t_39)" "(namespace-get-transformer" " m-ns_7" @@ -14777,41 +14457,41 @@ static const char *startup_source = "(check-access" " b_59" " mi_15" -" id_18" +" id_17" " in-s_6" " (if (variable? t_39) \"variable\" \"transformer\"))" " #f)))" -"(let-values(((insp_4)" +"(let-values(((insp_6)" "(if mi_15" "(if(module-instance-module mi_15)" "(module-inspector(module-instance-module mi_15))" " #f)" " #f)))" -"(values t_39 primitive?_1 insp_4 protected?_1)))))))))))" +"(values t_39 primitive?_1 insp_6 protected?_1)))))))))))" "(if(local-binding? b_59)" "(let-values()" "(let-values(((t_40)(hash-ref env_1(local-binding-key b_59) missing)))" "(if(eq? t_40 missing)" "(let-values()" "(values" -"(let-values(((or-part_168)" -"(let-values(((lst_70) lift-envs_0))" +"(let-values(((or-part_159)" +"(let-values(((lst_73) lift-envs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_70)))" +"(let-values()(check-list lst_73)))" "((letrec-values(((for-loop_90)" -"(lambda(result_57 lst_71)" +"(lambda(result_59 lst_37)" "(begin" " 'for-loop" -"(if(pair? lst_71)" +"(if(pair? lst_37)" "(let-values(((lift-env_0)" -"(unsafe-car lst_71))" -"((rest_32)" -"(unsafe-cdr lst_71)))" -"(let-values(((result_58)" +"(unsafe-car lst_37))" +"((rest_33)" +"(unsafe-cdr lst_37)))" +"(let-values(((result_60)" "(let-values()" -"(let-values(((result_59)" +"(let-values(((result_61)" "(let-values()" "(let-values()" "(hash-ref" @@ -14821,105 +14501,105 @@ static const char *startup_source = " b_59)" " #f)))))" "(values" -" result_59)))))" +" result_61)))))" "(if(if(not" -"((lambda x_40 result_58)" +"((lambda x_40 result_60)" " lift-env_0))" "(not #f)" " #f)" -"(for-loop_90 result_58 rest_32)" -" result_58)))" -" result_57)))))" +"(for-loop_90 result_60 rest_33)" +" result_60)))" +" result_59)))))" " for-loop_90)" " #f" -" lst_70)))))" -"(if or-part_168" -" or-part_168" +" lst_73)))))" +"(if or-part_159" +" or-part_159" "(if out-of-context-as-variable?_0" " variable" -" (error \"identifier used out of context:\" id_18))))" +" (error \"identifier used out of context:\" id_17))))" " #f" " #f" " #f))" -"(let-values()(begin(check-taint id_18)(values t_40 #f #f #f))))))" +"(let-values()(begin(check-taint id_17)(values t_40 #f #f #f))))))" " (let-values () (error \"internal error: unknown binding for lookup:\" b_59))))))))))))))))" "(define-values" "(check-taint)" -"(lambda(id_19)" +"(lambda(id_18)" "(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_18)" +" (let-values () (raise-syntax-error$1 #f \"cannot use identifier tainted by macro transformation\" id_18))" "(void)))))" -"(define-values(cons-ish)(lambda(a_42 b_60)(begin(if(null? b_60) a_42(cons a_42 b_60)))))" +"(define-values(cons-ish)(lambda(a_36 b_60)(begin(if(null? b_60) a_36(cons a_36 b_60)))))" "(define-values" "(free-id-set)" "(lambda(phase_37 ids_0)" "(begin" -"(let-values(((lst_72) ids_0))" +"(let-values(((lst_74) ids_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_72)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_74)))" "((letrec-values(((for-loop_91)" -"(lambda(ht_70 lst_73)" +"(lambda(ht_71 lst_75)" "(begin" " 'for-loop" -"(if(pair? lst_73)" -"(let-values(((id_20)(unsafe-car lst_73))((rest_33)(unsafe-cdr lst_73)))" -"(let-values(((ht_71)" -"(let-values(((ht_72) ht_70))" -"(let-values(((ht_73)" +"(if(pair? lst_75)" +"(let-values(((id_19)(unsafe-car lst_75))((rest_34)(unsafe-cdr lst_75)))" +"(let-values(((ht_72)" +"(let-values(((ht_73) ht_71))" +"(let-values(((ht_74)" "(let-values()" "(let-values(((sym_22)" "(identifier-binding-symbol$1" -" id_20" +" id_19" " phase_37)))" "(hash-set" -" ht_72" +" ht_73" " sym_22" "(cons-ish" -" id_20" -"(hash-ref ht_72 sym_22 null)))))))" -"(values ht_73)))))" -"(if(not #f)(for-loop_91 ht_71 rest_33) ht_71)))" -" ht_70)))))" +" id_19" +"(hash-ref ht_73 sym_22 null)))))))" +"(values ht_74)))))" +"(if(not #f)(for-loop_91 ht_72 rest_34) ht_72)))" +" ht_71)))))" " for-loop_91)" " '#hasheq()" -" lst_72))))))" +" lst_74))))))" "(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_15 given-id_0)" +"(lambda(fs_1 phase_38 given-id_0)" "(begin" "(if(zero?(hash-count fs_1))" " #f" -"(let-values(((lst_74)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_15) null)))" +"(let-values(((lst_76)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_38) null)))" "(begin" "(void)" "((letrec-values(((for-loop_92)" -"(lambda(result_3 lst_75)" +"(lambda(result_3 lst_77)" "(begin" " 'for-loop" -"(if(not(null? lst_75))" -"(let-values(((id_21)(if(pair? lst_75)(car lst_75) lst_75))" -"((rest_34)(if(pair? lst_75)(cdr lst_75) null)))" -"(let-values(((result_60)" +"(if(not(null? lst_77))" +"(let-values(((id_20)(if(pair? lst_77)(car lst_77) lst_77))" +"((rest_35)(if(pair? lst_77)(cdr lst_77) null)))" +"(let-values(((result_62)" "(let-values()" -"(let-values(((result_61)" +"(let-values(((result_63)" "(let-values()" "(let-values()" "(free-identifier=?$1" -" id_21" +" id_20" " given-id_0" -" phase_15" -" phase_15)))))" -"(values result_61)))))" -"(if(if(not((lambda x_41 result_60) id_21))(not #f) #f)" -"(for-loop_92 result_60 rest_34)" -" result_60)))" +" phase_38" +" phase_38)))))" +"(values result_63)))))" +"(if(if(not((lambda x_41 result_62) id_20))(not #f) #f)" +"(for-loop_92 result_62 rest_35)" +" result_62)))" " result_3)))))" " for-loop_92)" " #f" -" lst_74)))))))" +" lst_76)))))))" "(define-values" "(free-id-set-empty-or-just-module*?)" "(lambda(fs_2)(begin(let-values(((c_17)(hash-count fs_2)))(<= c_17 1)))))" @@ -15041,7 +14721,7 @@ static const char *startup_source = " lift-key_1" " to-parsed?_0" " context_0" -" phase_38" +" phase_39" " namespace_0" " env_2" " post-expansion-scope-action_0" @@ -15064,7 +14744,7 @@ static const char *startup_source = " require-lifts_0" " to-module-lifts_0" " requires+provides_0" -" name_35" +" name_36" " observer_0" " for-serializable?_0" " should-not-encounter-macros?_0)" @@ -15079,7 +14759,7 @@ static const char *startup_source = " counter_2" " lift-key_1" " to-parsed?_0" -" phase_38" +" phase_39" " namespace_0" " just-once?_0" " module-begin-k_0" @@ -15109,80 +14789,80 @@ static const char *startup_source = " only-immediate?_0" " need-eventually-defined_0" " current-introduction-scopes_0" -" name_35))))" -"(define-values(expand-context-context)(lambda(v_97)(begin(expand-context/outer-context v_97))))" -"(define-values(expand-context-env)(lambda(v_98)(begin(expand-context/outer-env v_98))))" +" name_36))))" +"(define-values(expand-context-context)(lambda(v_94)(begin(expand-context/outer-context v_94))))" +"(define-values(expand-context-env)(lambda(v_95)(begin(expand-context/outer-env v_95))))" "(define-values" "(expand-context-post-expansion-scope-action)" -"(lambda(v_99)(begin(expand-context/outer-post-expansion-scope-action v_99))))" -"(define-values(expand-context-scopes)(lambda(v_100)(begin(expand-context/outer-scopes v_100))))" -"(define-values(expand-context-def-ctx-scopes)(lambda(v_101)(begin(expand-context/outer-def-ctx-scopes v_101))))" -"(define-values(expand-context-binding-layer)(lambda(v_102)(begin(expand-context/outer-binding-layer v_102))))" +"(lambda(v_96)(begin(expand-context/outer-post-expansion-scope-action v_96))))" +"(define-values(expand-context-scopes)(lambda(v_97)(begin(expand-context/outer-scopes v_97))))" +"(define-values(expand-context-def-ctx-scopes)(lambda(v_98)(begin(expand-context/outer-def-ctx-scopes v_98))))" +"(define-values(expand-context-binding-layer)(lambda(v_99)(begin(expand-context/outer-binding-layer v_99))))" "(define-values" "(expand-context-reference-records)" -"(lambda(v_103)(begin(expand-context/outer-reference-records v_103))))" -"(define-values(expand-context-only-immediate?)(lambda(v_104)(begin(expand-context/outer-only-immediate? v_104))))" +"(lambda(v_100)(begin(expand-context/outer-reference-records v_100))))" +"(define-values(expand-context-only-immediate?)(lambda(v_101)(begin(expand-context/outer-only-immediate? v_101))))" "(define-values" "(expand-context-need-eventually-defined)" -"(lambda(v_105)(begin(expand-context/outer-need-eventually-defined v_105))))" +"(lambda(v_102)(begin(expand-context/outer-need-eventually-defined v_102))))" "(define-values" "(expand-context-current-introduction-scopes)" -"(lambda(v_106)(begin(expand-context/outer-current-introduction-scopes v_106))))" -"(define-values(expand-context-name)(lambda(v_107)(begin(expand-context/outer-name v_107))))" +"(lambda(v_103)(begin(expand-context/outer-current-introduction-scopes v_103))))" +"(define-values(expand-context-name)(lambda(v_104)(begin(expand-context/outer-name v_104))))" "(define-values" "(expand-context-to-parsed?)" -"(lambda(v_108)(begin(expand-context/inner-to-parsed?(root-expand-context/outer-inner v_108)))))" +"(lambda(v_105)(begin(expand-context/inner-to-parsed?(root-expand-context/outer-inner v_105)))))" "(define-values" "(expand-context-phase)" -"(lambda(v_109)(begin(expand-context/inner-phase(root-expand-context/outer-inner v_109)))))" +"(lambda(v_106)(begin(expand-context/inner-phase(root-expand-context/outer-inner v_106)))))" "(define-values" "(expand-context-namespace)" -"(lambda(v_110)(begin(expand-context/inner-namespace(root-expand-context/outer-inner v_110)))))" +"(lambda(v_107)(begin(expand-context/inner-namespace(root-expand-context/outer-inner v_107)))))" "(define-values" "(expand-context-just-once?)" -"(lambda(v_111)(begin(expand-context/inner-just-once?(root-expand-context/outer-inner v_111)))))" +"(lambda(v_108)(begin(expand-context/inner-just-once?(root-expand-context/outer-inner v_108)))))" "(define-values" "(expand-context-module-begin-k)" -"(lambda(v_112)(begin(expand-context/inner-module-begin-k(root-expand-context/outer-inner v_112)))))" +"(lambda(v_109)(begin(expand-context/inner-module-begin-k(root-expand-context/outer-inner v_109)))))" "(define-values" "(expand-context-allow-unbound?)" -"(lambda(v_113)(begin(expand-context/inner-allow-unbound?(root-expand-context/outer-inner v_113)))))" +"(lambda(v_110)(begin(expand-context/inner-allow-unbound?(root-expand-context/outer-inner v_110)))))" "(define-values" "(expand-context-in-local-expand?)" -"(lambda(v_114)(begin(expand-context/inner-in-local-expand?(root-expand-context/outer-inner v_114)))))" +"(lambda(v_111)(begin(expand-context/inner-in-local-expand?(root-expand-context/outer-inner v_111)))))" "(define-values" "(expand-context-stops)" -"(lambda(v_115)(begin(expand-context/inner-stops(root-expand-context/outer-inner v_115)))))" +"(lambda(v_112)(begin(expand-context/inner-stops(root-expand-context/outer-inner v_112)))))" "(define-values" "(expand-context-declared-submodule-names)" -"(lambda(v_116)(begin(expand-context/inner-declared-submodule-names(root-expand-context/outer-inner v_116)))))" +"(lambda(v_113)(begin(expand-context/inner-declared-submodule-names(root-expand-context/outer-inner v_113)))))" "(define-values" "(expand-context-lifts)" -"(lambda(v_117)(begin(expand-context/inner-lifts(root-expand-context/outer-inner v_117)))))" +"(lambda(v_114)(begin(expand-context/inner-lifts(root-expand-context/outer-inner v_114)))))" "(define-values" "(expand-context-lift-envs)" -"(lambda(v_118)(begin(expand-context/inner-lift-envs(root-expand-context/outer-inner v_118)))))" +"(lambda(v_115)(begin(expand-context/inner-lift-envs(root-expand-context/outer-inner v_115)))))" "(define-values" "(expand-context-module-lifts)" -"(lambda(v_119)(begin(expand-context/inner-module-lifts(root-expand-context/outer-inner v_119)))))" +"(lambda(v_116)(begin(expand-context/inner-module-lifts(root-expand-context/outer-inner v_116)))))" "(define-values" "(expand-context-require-lifts)" -"(lambda(v_120)(begin(expand-context/inner-require-lifts(root-expand-context/outer-inner v_120)))))" +"(lambda(v_117)(begin(expand-context/inner-require-lifts(root-expand-context/outer-inner v_117)))))" "(define-values" "(expand-context-to-module-lifts)" -"(lambda(v_121)(begin(expand-context/inner-to-module-lifts(root-expand-context/outer-inner v_121)))))" +"(lambda(v_118)(begin(expand-context/inner-to-module-lifts(root-expand-context/outer-inner v_118)))))" "(define-values" "(expand-context-requires+provides)" -"(lambda(v_122)(begin(expand-context/inner-requires+provides(root-expand-context/outer-inner v_122)))))" +"(lambda(v_119)(begin(expand-context/inner-requires+provides(root-expand-context/outer-inner v_119)))))" "(define-values" "(expand-context-observer)" -"(lambda(v_123)(begin(expand-context/inner-observer(root-expand-context/outer-inner v_123)))))" +"(lambda(v_120)(begin(expand-context/inner-observer(root-expand-context/outer-inner v_120)))))" "(define-values" "(expand-context-for-serializable?)" -"(lambda(v_124)(begin(expand-context/inner-for-serializable?(root-expand-context/outer-inner v_124)))))" +"(lambda(v_121)(begin(expand-context/inner-for-serializable?(root-expand-context/outer-inner v_121)))))" "(define-values" "(expand-context-should-not-encounter-macros?)" -"(lambda(v_125)(begin(expand-context/inner-should-not-encounter-macros?(root-expand-context/outer-inner v_125)))))" +"(lambda(v_122)(begin(expand-context/inner-should-not-encounter-macros?(root-expand-context/outer-inner v_122)))))" "(define-values" "(make-expand-context10.1)" "(lambda(for-serializable?4_0 for-serializable?7_0 observer5_0 observer8_0 to-parsed?3_0 to-parsed?6_0 ns9_0)" @@ -15238,15 +14918,15 @@ static const char *startup_source = "(copy-root-expand-context)" "(lambda(ctx_1 root-ctx_2)" "(begin" -"(let-values(((v_126) ctx_1))" -"(let-values(((the-struct_41) v_126))" +"(let-values(((v_123) ctx_1))" +"(let-values(((the-struct_41) v_123))" "(if(expand-context/outer? the-struct_41)" "(let-values(((post-expansion-scope28_0)(root-expand-context-post-expansion-scope root-ctx_2))" "((use-site-scopes29_0)(root-expand-context-use-site-scopes root-ctx_2))" "((frame-id30_1)(root-expand-context-frame-id root-ctx_2))" "((binding-layer31_0)(root-expand-context-frame-id root-ctx_2))" "((inner32_0)" -"(let-values(((the-struct_42)(root-expand-context/outer-inner v_126)))" +"(let-values(((the-struct_42)(root-expand-context/outer-inner v_123)))" "(if(expand-context/inner? the-struct_42)" "(let-values(((self-mpi33_0)(root-expand-context-self-mpi root-ctx_2))" "((module-scopes34_0)(root-expand-context-module-scopes root-ctx_2))" @@ -15309,22 +14989,22 @@ static const char *startup_source = "(let-values(((who_9)(if who16_0 who15_0 'unexpected)))" "(let-values(((fail-ok?_0)(if fail-ok?14_0 fail-ok?13_0 #f)))" "(let-values()" -"(let-values(((or-part_169)(force(current-expand-context))))" -"(if or-part_169" -" or-part_169" +"(let-values(((or-part_160)(force(current-expand-context))))" +"(if or-part_160" +" or-part_160" " (if fail-ok?_0 #f (raise-arguments-error who_9 \"not currently expanding\"))))))))))" "(define-values" "(current-expand-observe)" "(make-parameter" " #f" -"(lambda(v_127)" +"(lambda(v_124)" "(begin" -"(if(let-values(((or-part_170)(not v_127)))" -"(if or-part_170 or-part_170(if(procedure? v_127)(procedure-arity-includes? v_127 2) #f)))" +"(if(let-values(((or-part_161)(not v_124)))" +"(if or-part_161 or-part_161(if(procedure? v_124)(procedure-arity-includes? v_124 2) #f)))" "(void)" "(let-values()" -" (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_127)))" -" v_127))))" +" (raise-argument-error 'current-expand-observe \"(or/c (procedure-arity-includes/c 2) #f)\" v_124)))" +" v_124))))" "(define-values" "(as-expression-context)" "(lambda(ctx_2)" @@ -15332,13 +15012,13 @@ static const char *startup_source = "(if(if(eq? 'expression(expand-context-context ctx_2))(not(expand-context-name ctx_2)) #f)" "(let-values() ctx_2)" "(let-values()" -"(let-values(((v_128) ctx_2))" -"(let-values(((the-struct_43) v_128))" +"(let-values(((v_125) ctx_2))" +"(let-values(((the-struct_43) v_125))" "(if(expand-context/outer? the-struct_43)" "(let-values(((context40_0) 'expression)" "((name41_0) #f)" "((post-expansion-scope42_0) #f)" -"((inner43_0)(root-expand-context/outer-inner v_128)))" +"((inner43_0)(root-expand-context/outer-inner v_125)))" "(expand-context/outer1.1" " inner43_0" " post-expansion-scope42_0" @@ -15363,10 +15043,10 @@ static const char *startup_source = "(if(not(expand-context-name ctx_3))" "(let-values() ctx_3)" "(let-values()" -"(let-values(((v_129) ctx_3))" -"(let-values(((the-struct_44) v_129))" +"(let-values(((v_126) ctx_3))" +"(let-values(((the-struct_44) v_126))" "(if(expand-context/outer? the-struct_44)" -"(let-values(((name44_0) #f)((inner45_0)(root-expand-context/outer-inner v_129)))" +"(let-values(((name44_0) #f)((inner45_0)(root-expand-context/outer-inner v_126)))" "(expand-context/outer1.1" " inner45_0" "(root-expand-context/outer-post-expansion-scope the-struct_44)" @@ -15394,11 +15074,11 @@ static const char *startup_source = "(let-values()" "(if(expand-context-name wrt-ctx_0)" "(let-values()" -"(let-values(((v_130) ctx_4))" -"(let-values(((the-struct_45) v_130))" +"(let-values(((v_127) ctx_4))" +"(let-values(((the-struct_45) v_127))" "(if(expand-context/outer? the-struct_45)" "(let-values(((name46_0)(expand-context-name wrt-ctx_0))" -"((inner47_0)(root-expand-context/outer-inner v_130)))" +"((inner47_0)(root-expand-context/outer-inner v_127)))" "(expand-context/outer1.1" " inner47_0" "(root-expand-context/outer-post-expansion-scope the-struct_45)" @@ -15423,10 +15103,10 @@ static const char *startup_source = "(begin" "(if(if(pair? ids_1)(null?(cdr ids_1)) #f)" "(let-values()" -"(let-values(((v_131) ctx_5))" -"(let-values(((the-struct_46) v_131))" +"(let-values(((v_128) ctx_5))" +"(let-values(((the-struct_46) v_128))" "(if(expand-context/outer? the-struct_46)" -"(let-values(((name48_0)(car ids_1))((inner49_0)(root-expand-context/outer-inner v_131)))" +"(let-values(((name48_0)(car ids_1))((inner49_0)(root-expand-context/outer-inner v_128)))" "(expand-context/outer1.1" " inner49_0" "(root-expand-context/outer-post-expansion-scope the-struct_46)" @@ -15449,11 +15129,11 @@ static const char *startup_source = "(as-to-parsed-context)" "(lambda(ctx_6)" "(begin" -"(let-values(((v_132) ctx_6))" -"(let-values(((the-struct_47) v_132))" +"(let-values(((v_129) ctx_6))" +"(let-values(((the-struct_47) v_129))" "(if(expand-context/outer? the-struct_47)" "(let-values(((inner50_0)" -"(let-values(((the-struct_48)(root-expand-context/outer-inner v_132)))" +"(let-values(((the-struct_48)(root-expand-context/outer-inner v_129)))" "(if(expand-context/inner? the-struct_48)" "(let-values(((to-parsed?51_0) #t)" "((observer52_0) #f)" @@ -15504,14 +15184,14 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_47)))))))" "(define-values" "(to-syntax-list.1)" -"(lambda(s_102)" +"(lambda(s_100)" "(begin" " 'to-syntax-list" -"(if(list? s_102)" -"(let-values() s_102)" -"(if(pair? s_102)" -"(let-values()(let-values(((r_28)(to-syntax-list.1(cdr s_102))))(if r_28(cons(car s_102) r_28) #f)))" -"(if(syntax?$1 s_102)(let-values()(to-syntax-list.1(syntax-e$1 s_102)))(let-values() #f)))))))" +"(if(list? s_100)" +"(let-values() s_100)" +"(if(pair? s_100)" +"(let-values()(let-values(((r_27)(to-syntax-list.1(cdr s_100))))(if r_27(cons(car s_100) r_27) #f)))" +"(if(syntax?$1 s_100)(let-values()(to-syntax-list.1(syntax-e$1 s_100)))(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))" @@ -15527,13 +15207,13 @@ static const char *startup_source = "(let-values(((or-part_6)(hash-ref id-cache-0 sym_8 #f)))" "(if or-part_6" " or-part_6" -"(let-values(((s_147)(datum->syntax$1 core-stx sym_8)))" -"(begin(hash-set! id-cache-0 sym_8 s_147) s_147)))))" +"(let-values(((s_145)(datum->syntax$1 core-stx sym_8)))" +"(begin(hash-set! id-cache-0 sym_8 s_145) s_145)))))" "(if(eq? phase_32 1)" "(let-values()" -"(let-values(((or-part_34)(hash-ref id-cache-1 sym_8 #f)))" -"(if or-part_34" -" or-part_34" +"(let-values(((or-part_28)(hash-ref id-cache-1 sym_8 #f)))" +"(if or-part_28" +" or-part_28" "(let-values(((s_10)(datum->syntax$1(syntax-shift-phase-level$1 core-stx 1) sym_8)))" "(begin(hash-set! id-cache-1 sym_8 s_10) s_10)))))" "(let-values()(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_32) sym_8)))))))" @@ -15541,12 +15221,12 @@ static const char *startup_source = "(define-values(core-primitives) '#hasheq())" "(define-values" "(add-core-form!*)" -"(lambda(sym_23 proc_6)" -"(begin(begin(add-core-binding! sym_23)(set! core-forms(hash-set core-forms sym_23 proc_6))))))" +"(lambda(sym_23 proc_4)" +"(begin(begin(add-core-binding! sym_23)(set! core-forms(hash-set core-forms sym_23 proc_4))))))" "(define-values" "(add-core-primitive!)" -"(lambda(sym_13 val_33)" -"(begin(begin(add-core-binding! sym_13)(set! core-primitives(hash-set core-primitives sym_13 val_33))))))" +"(lambda(sym_13 val_32)" +"(begin(begin(add-core-binding! sym_13)(set! core-primitives(hash-set core-primitives sym_13 val_32))))))" "(define-values" "(add-core-binding!)" "(lambda(sym_24)" @@ -15591,49 +15271,49 @@ static const char *startup_source = "((temp14_1)" "(hasheqv" " 0" -"(let-values(((lst_76)(list core-primitives core-forms))((lst_77) '(#f #t)))" +"(let-values(((lst_78)(list core-primitives core-forms))((lst_79) '(#f #t)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_76)))" +"(let-values()(check-list lst_78)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_77)))" +"(let-values()(check-list lst_79)))" "((letrec-values(((for-loop_93)" -"(lambda(table_98 lst_78 lst_79)" +"(lambda(table_98 lst_80 lst_81)" "(begin" " 'for-loop" -"(if(if(pair? lst_78)(pair? lst_79) #f)" -"(let-values(((syms_12)(unsafe-car lst_78))" -"((rest_35)(unsafe-cdr lst_78))" -"((syntax?_2)(unsafe-car lst_79))" -"((rest_36)(unsafe-cdr lst_79)))" +"(if(if(pair? lst_80)(pair? lst_81) #f)" +"(let-values(((syms_12)(unsafe-car lst_80))" +"((rest_36)(unsafe-cdr lst_80))" +"((syntax?_2)(unsafe-car lst_81))" +"((rest_37)(unsafe-cdr lst_81)))" "(let-values(((table_99)" "(let-values(((table_100) table_98))" -"(let-values(((ht_74) syms_12))" +"(let-values(((ht_75) syms_12))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash-keys ht_74)))" +"(check-in-hash-keys ht_75)))" "((letrec-values(((for-loop_94)" "(lambda(table_101" -" i_84)" +" i_86)" "(begin" " 'for-loop" -"(if i_84" -"(let-values(((sym_10)" +"(if i_86" +"(let-values(((sym_25)" "(hash-iterate-key" -" ht_74" -" i_84)))" +" ht_75" +" i_86)))" "(let-values(((table_102)" "(let-values(((table_103)" " table_101))" "(let-values(((table_104)" "(let-values()" -"(let-values(((key_33" -" val_34)" +"(let-values(((key_41" +" val_33)" "(let-values()" "(let-values(((b_61)" "(let-values(((core-mpi17_0)" @@ -15641,7 +15321,7 @@ static const char *startup_source = "((temp18_3)" " 0)" "((sym19_0)" -" sym_10))" +" sym_25))" "(make-module-binding22.1" " #f" " #f" @@ -15665,7 +15345,7 @@ static const char *startup_source = " temp18_3" " sym19_0))))" "(values" -" sym_10" +" sym_25" "(if syntax?_2" "(provided1.1" " b_61" @@ -15674,8 +15354,8 @@ static const char *startup_source = " b_61))))))" "(hash-set" " table_103" -" key_33" -" val_34)))))" +" key_41" +" val_33)))))" "(values" " table_104)))))" "(if(not" @@ -15683,23 +15363,23 @@ static const char *startup_source = "(for-loop_94" " table_102" "(hash-iterate-next" -" ht_74" -" i_84))" +" ht_75" +" i_86))" " table_102)))" " table_101)))))" " for-loop_94)" " table_100" -"(hash-iterate-first ht_74)))))))" +"(hash-iterate-first ht_75)))))))" "(if(not #f)" -"(for-loop_93 table_99 rest_35 rest_36)" +"(for-loop_93 table_99 rest_36 rest_37)" " table_99)))" " table_98)))))" " for-loop_93)" " '#hasheq()" -" lst_76" -" lst_77)))))" +" lst_78" +" lst_79)))))" "((temp15_1)" -"(lambda(phase-level_14 ns_46 insp_6)" +"(lambda(phase-level_14 ns_46 insp_7)" "(if(zero? phase-level_14)" "(let-values(((ns_47)" "(let-values(((ns20_0) ns_46)" @@ -15722,29 +15402,29 @@ static const char *startup_source = "((temp16_1)" "(lambda(data-box_1" " ns_48" -" phase_39" +" phase_40" " phase-level_15" -" self_7" +" self_5" " bulk-binding-registry_4" -" insp_7)" -"(let-values(((tmp_15) phase-level_15))" -"(if(equal? tmp_15 0)" +" insp_8)" +"(let-values(((tmp_14) phase-level_15))" +"(if(equal? tmp_14 0)" "(let-values()" "(begin" -"(let-values(((ht_75) core-primitives))" +"(let-values(((ht_76) core-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_75)))" +"(let-values()(check-in-hash ht_76)))" "((letrec-values(((for-loop_95)" -"(lambda(i_85)" +"(lambda(i_87)" "(begin" " 'for-loop" -"(if i_85" -"(let-values(((sym_25 val_35)" +"(if i_87" +"(let-values(((sym_26 val_34)" "(hash-iterate-key+value" -" ht_75" -" i_85)))" +" ht_76" +" i_87)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -15754,32 +15434,32 @@ static const char *startup_source = "(namespace-set-consistent!" " ns_48" " 0" -" sym_25" -" val_35))" +" sym_26" +" val_34))" "(values)))))" "(values)))))" "(if(not #f)" "(for-loop_95" -"(hash-iterate-next ht_75 i_85))" +"(hash-iterate-next ht_76 i_87))" "(values))))" "(values))))))" " for-loop_95)" -"(hash-iterate-first ht_75))))" +"(hash-iterate-first ht_76))))" "(void)" -"(let-values(((ht_76) core-forms))" +"(let-values(((ht_77) core-forms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_76)))" -"((letrec-values(((for-loop_53)" -"(lambda(i_27)" +"(let-values()(check-in-hash ht_77)))" +"((letrec-values(((for-loop_96)" +"(lambda(i_88)" "(begin" " 'for-loop" -"(if i_27" -"(let-values(((sym_26 proc_7)" +"(if i_88" +"(let-values(((sym_27 proc_5)" "(hash-iterate-key+value" -" ht_76" -" i_27)))" +" ht_77" +" i_88)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -15789,19 +15469,19 @@ static const char *startup_source = "(namespace-set-transformer!" " ns_48" " 0" -" sym_26" +" sym_27" "(core-form9.1" -" proc_7" -" sym_26)))" +" proc_5" +" sym_27)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_53" -"(hash-iterate-next ht_76 i_27))" +"(for-loop_96" +"(hash-iterate-next ht_77 i_88))" "(values))))" "(values))))))" -" for-loop_53)" -"(hash-iterate-first ht_76))))" +" for-loop_96)" +"(hash-iterate-first ht_77))))" "(void)))" "(let-values()(void)))))))" "(make-module39.1" @@ -15842,29 +15522,29 @@ static const char *startup_source = "(declare-module!58.1 #f #f ns7_0 temp8_0 core-module-name9_0)))))" "(define-values" "(core-form-sym)" -"(lambda(s_22 phase_33)" +"(lambda(s_23 phase_41)" "(begin" "(let-values(((ok?_0 id23_0 _24_0)" -"(let-values(((s_162) s_22))" -"(if(let-values(((s_163)(if(syntax?$1 s_162)(syntax-e$1 s_162) s_162)))" -"(if(pair? s_163)" -"(if(let-values(((s_68)(car s_163)))" -"(let-values(((or-part_171)(if(syntax?$1 s_68)(symbol?(syntax-e$1 s_68)) #f)))" -"(if or-part_171 or-part_171(symbol? s_68))))" -"(let-values(((s_164)(cdr s_163))) #t)" +"(let-values(((s_161) s_23))" +"(if(let-values(((s_66)(if(syntax?$1 s_161)(syntax-e$1 s_161) s_161)))" +"(if(pair? s_66)" +"(if(let-values(((s_162)(car s_66)))" +"(let-values(((or-part_162)(if(syntax?$1 s_162)(symbol?(syntax-e$1 s_162)) #f)))" +"(if or-part_162 or-part_162(symbol? s_162))))" +"(let-values(((s_163)(cdr s_66))) #t)" " #f)" " #f))" "(let-values()" "(let-values(((id23_1 _24_1)" -"(let-values(((s_165)(if(syntax?$1 s_162)(syntax-e$1 s_162) s_162)))" -"(let-values(((id25_0)(let-values(((s_166)(car s_165))) s_166))" -"((_26_0)(let-values(((s_167)(cdr s_165))) s_167)))" +"(let-values(((s_164)(if(syntax?$1 s_161)(syntax-e$1 s_161) s_161)))" +"(let-values(((id25_0)(let-values(((s_165)(car s_164))) s_165))" +"((_26_0)(let-values(((s_75)(cdr s_164))) s_75)))" "(values id25_0 _26_0)))))" "(values #t id23_1 _24_1)))" "(values #f #f #f)))))" "(if ok?_0" "(let-values(((b_62)" -"(let-values(((temp27_1) id23_0)((phase28_0) phase_33))" +"(let-values(((temp27_1) id23_0)((phase28_0) phase_41))" "(resolve+shift30.1 #f #f #f #f #f #f #f #f #f #f temp27_1 phase28_0))))" "(if(module-binding? b_62)" "(if(eq? core-module-name(1/module-path-index-resolve(module-binding-module b_62)))" @@ -15874,43 +15554,43 @@ static const char *startup_source = " #f)))))" "(define-values" "(taint-dispatch)" -"(lambda(s_0 proc_8 phase_31)" +"(lambda(s_0 proc_6 phase_31)" "(begin" -"((letrec-values(((loop_36)" -"(lambda(s_168 mode_10)" +"((letrec-values(((loop_33)" +"(lambda(s_166 mode_10)" "(begin" " 'loop" -"(let-values(((tmp_5) mode_10))" -"(if(equal? tmp_5 'none)" -"(let-values() s_168)" -"(if(equal? tmp_5 'opaque)" -"(let-values()(proc_8 s_168))" -"(if(equal? tmp_5 'transparent)" +"(let-values(((tmp_4) mode_10))" +"(if(equal? tmp_4 'none)" +"(let-values() s_166)" +"(if(equal? tmp_4 'opaque)" +"(let-values()(proc_6 s_166))" +"(if(equal? tmp_4 'transparent)" "(let-values()" "(let-values(((c_18)" -"(let-values(((s_169)" -"(let-values(((or-part_13)(syntax->list$1 s_168)))" -"(if or-part_13 or-part_13(syntax-e$1 s_168))))" +"(let-values(((s_167)" +"(let-values(((or-part_13)(syntax->list$1 s_166)))" +"(if or-part_13 or-part_13(syntax-e$1 s_166))))" "((f_35)(lambda(tail?_39 d_18)(begin 'f d_18)))" "((s->_3)" -"(lambda(s_170)" +"(lambda(s_168)" "(begin" " 's->" -"(loop_36" -" s_170" -"(syntax-taint-mode-property s_170)))))" +"(loop_33" +" s_168" +"(syntax-taint-mode-property s_168)))))" "((seen_19) #f))" -"(let-values(((s_146) s_169)" +"(let-values(((s_144) s_167)" "((f_36)" -"(lambda(tail?_40 v_65)" +"(lambda(tail?_40 v_61)" "(begin" " 'f" -"(if(syntax?$1 v_65)" -"(let-values()(s->_3 v_65))" -"(let-values()(f_35 tail?_40 v_65))))))" +"(if(syntax?$1 v_61)" +"(let-values()(s->_3 v_61))" +"(let-values()(f_35 tail?_40 v_61))))))" "((seen_20) seen_19))" "((letrec-values(((loop_7)" -"(lambda(tail?_41 s_171 prev-depth_8)" +"(lambda(tail?_41 s_169 prev-depth_8)" "(begin" " 'loop" "(let-values(((depth_8)" @@ -15919,117 +15599,117 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_41" -" s_171" -"(lambda(tail?_42 s_172)" -"(f_36 tail?_42 s_172))" +" s_169" +"(lambda(tail?_42 s_170)" +"(f_36 tail?_42 s_170))" " seen_20))" -"(if(null? s_171)" +"(if(null? s_169)" "(let-values()" -"(f_36 tail?_41 s_171))" -"(if(pair? s_171)" +"(f_36 tail?_41 s_169))" +"(if(pair? s_169)" "(let-values()" "(f_36" " tail?_41" "(cons" "(loop_7" " #f" -"(car s_171)" +"(car s_169)" " depth_8)" "(loop_7" " #t" -"(cdr s_171)" +"(cdr s_169)" " depth_8))))" -"(if(let-values(((or-part_172)" +"(if(let-values(((or-part_163)" "(symbol?" -" s_171)))" -"(if or-part_172" -" or-part_172" -"(let-values(((or-part_82)" +" s_169)))" +"(if or-part_163" +" or-part_163" +"(let-values(((or-part_74)" "(boolean?" -" s_171)))" -"(if or-part_82" -" or-part_82" -"(number? s_171)))))" -"(let-values()(f_36 #f s_171))" -"(if(let-values(((or-part_83)" +" s_169)))" +"(if or-part_74" +" or-part_74" +"(number? s_169)))))" +"(let-values()(f_36 #f s_169))" +"(if(let-values(((or-part_75)" "(vector?" -" s_171)))" -"(if or-part_83" -" or-part_83" -"(let-values(((or-part_35)" +" s_169)))" +"(if or-part_75" +" or-part_75" +"(let-values(((or-part_76)" "(box?" -" s_171)))" -"(if or-part_35" -" or-part_35" -"(let-values(((or-part_84)" +" s_169)))" +"(if or-part_76" +" or-part_76" +"(let-values(((or-part_77)" "(prefab-struct-key" -" s_171)))" -"(if or-part_84" -" or-part_84" +" s_169)))" +"(if or-part_77" +" or-part_77" "(hash?" -" s_171)))))))" +" s_169)))))))" "(let-values()" "(datum-map-slow" " tail?_41" -" s_171" -"(lambda(tail?_43 s_173)" -"(f_36 tail?_43 s_173))" +" s_169" +"(lambda(tail?_43 s_171)" +"(f_36 tail?_43 s_171))" " seen_20))" "(let-values()" -"(f_36 #f s_171))))))))))))" +"(f_36 #f s_169))))))))))))" " loop_7)" " #f" -" s_146" +" s_144" " 0)))))" "(datum->syntax$1" " #f" " c_18" -" s_168" -"(if(syntax-any-macro-scopes? s_168)" -"(syntax-property-remove s_168 original-property-sym)" -" s_168))))" -"(if(equal? tmp_5 'transparent-binding)" +" s_166" +"(if(syntax-any-macro-scopes? s_166)" +"(syntax-property-remove s_166 original-property-sym)" +" s_166))))" +"(if(equal? tmp_4 'transparent-binding)" "(let-values()" -"(let-values(((c_19)(syntax-e$1 s_168)))" +"(let-values(((c_19)(syntax-e$1 s_166)))" "(if(pair? c_19)" "(let-values()" "(let-values(((cd_0)(cdr c_19)))" -"(if(let-values(((or-part_77)(pair? cd_0)))" -"(if or-part_77" -" or-part_77" +"(if(let-values(((or-part_71)(pair? cd_0)))" +"(if or-part_71" +" or-part_71" "(if(syntax?$1 cd_0)(pair?(syntax-e$1 cd_0)) #f)))" "(let-values()" "(let-values(((d_19)(if(syntax?$1 cd_0)(syntax-e$1 cd_0) cd_0)))" "(datum->syntax$1" " #f" "(cons" -"(loop_36(car c_19)(syntax-taint-mode-property(car c_19)))" +"(loop_33(car c_19)(syntax-taint-mode-property(car c_19)))" "(cons" -"(loop_36(car d_19) 'transparent)" -"(let-values(((s_174)" -"(let-values(((or-part_173)" +"(loop_33(car d_19) 'transparent)" +"(let-values(((s_172)" +"(let-values(((or-part_164)" "(syntax->list$1(cdr d_19))))" -"(if or-part_173 or-part_173(cdr d_19))))" +"(if or-part_164 or-part_164(cdr d_19))))" "((f_7)(lambda(tail?_44 d_20)(begin 'f d_20)))" "((s->_4)" -"(lambda(s_175)" +"(lambda(s_173)" "(begin" " 's->" -"(loop_36" -" s_175" -"(syntax-taint-mode-property s_175)))))" +"(loop_33" +" s_173" +"(syntax-taint-mode-property s_173)))))" "((seen_21) #f))" -"(let-values(((s_80) s_174)" +"(let-values(((s_78) s_172)" "((f_8)" -"(lambda(tail?_45 v_42)" +"(lambda(tail?_45 v_39)" "(begin" " 'f" -"(if(syntax?$1 v_42)" -"(let-values()(s->_4 v_42))" -"(let-values()(f_7 tail?_45 v_42))))))" +"(if(syntax?$1 v_39)" +"(let-values()(s->_4 v_39))" +"(let-values()(f_7 tail?_45 v_39))))))" "((seen_22) seen_21))" -"((letrec-values(((loop_80)" -"(lambda(tail?_46 s_176 prev-depth_9)" +"((letrec-values(((loop_77)" +"(lambda(tail?_46 s_174 prev-depth_9)" "(begin" " 'loop" "(let-values(((depth_9)" @@ -16038,130 +15718,130 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_46" -" s_176" -"(lambda(tail?_47 s_177)" -"(f_8 tail?_47 s_177))" +" s_174" +"(lambda(tail?_47 s_175)" +"(f_8 tail?_47 s_175))" " seen_22))" -"(if(null? s_176)" +"(if(null? s_174)" "(let-values()" -"(f_8 tail?_46 s_176))" -"(if(pair? s_176)" +"(f_8 tail?_46 s_174))" +"(if(pair? s_174)" "(let-values()" "(f_8" " tail?_46" "(cons" -"(loop_80" +"(loop_77" " #f" -"(car s_176)" +"(car s_174)" " depth_9)" -"(loop_80" +"(loop_77" " #t" -"(cdr s_176)" +"(cdr s_174)" " depth_9))))" -"(if(let-values(((or-part_174)" +"(if(let-values(((or-part_165)" "(symbol?" -" s_176)))" -"(if or-part_174" -" or-part_174" -"(let-values(((or-part_175)" +" s_174)))" +"(if or-part_165" +" or-part_165" +"(let-values(((or-part_166)" "(boolean?" -" s_176)))" -"(if or-part_175" -" or-part_175" +" s_174)))" +"(if or-part_166" +" or-part_166" "(number?" -" s_176)))))" +" s_174)))))" "(let-values()" -"(f_8 #f s_176))" -"(if(let-values(((or-part_176)" +"(f_8 #f s_174))" +"(if(let-values(((or-part_167)" "(vector?" -" s_176)))" -"(if or-part_176" -" or-part_176" -"(let-values(((or-part_177)" +" s_174)))" +"(if or-part_167" +" or-part_167" +"(let-values(((or-part_168)" "(box?" -" s_176)))" -"(if or-part_177" -" or-part_177" -"(let-values(((or-part_39)" +" s_174)))" +"(if or-part_168" +" or-part_168" +"(let-values(((or-part_169)" "(prefab-struct-key" -" s_176)))" -"(if or-part_39" -" or-part_39" +" s_174)))" +"(if or-part_169" +" or-part_169" "(hash?" -" s_176)))))))" +" s_174)))))))" "(let-values()" "(datum-map-slow" " tail?_46" -" s_176" +" s_174" "(lambda(tail?_48" -" s_178)" +" s_176)" "(f_8" " tail?_48" -" s_178))" +" s_176))" " seen_22))" "(let-values()" "(f_8" " #f" -" s_176))))))))))))" -" loop_80)" +" s_174))))))))))))" +" loop_77)" " #f" -" s_80" +" s_78" " 0)))))" -" s_168" -"(if(syntax-any-macro-scopes? s_168)" -"(syntax-property-remove s_168 original-property-sym)" -" s_168))))" -"(let-values()(loop_36 s_168 'transparent)))))" -"(let-values()(loop_36 s_168 'transparent)))))" +" s_166" +"(if(syntax-any-macro-scopes? s_166)" +"(syntax-property-remove s_166 original-property-sym)" +" s_166))))" +"(let-values()(loop_33 s_166 'transparent)))))" +"(let-values()(loop_33 s_166 'transparent)))))" "(let-values()" -"(let-values(((c_20)(syntax-e$1 s_168)))" -"(let-values(((tmp_16)(core-form-sym c_20 phase_31)))" -"(if(if(equal? tmp_16 'begin)" +"(let-values(((c_20)(syntax-e$1 s_166)))" +"(let-values(((tmp_15)(core-form-sym c_20 phase_31)))" +"(if(if(equal? tmp_15 'begin)" " #t" -"(if(equal? tmp_16 'begin-for-syntax)" +"(if(equal? tmp_15 'begin-for-syntax)" " #t" -"(equal? tmp_16 '#%module-begin)))" -"(let-values()(loop_36 s_168 'transparent))" -"(if(if(equal? tmp_16 'define-values)" +"(equal? tmp_15 '#%module-begin)))" +"(let-values()(loop_33 s_166 'transparent))" +"(if(if(equal? tmp_15 'define-values)" " #t" -"(equal? tmp_16 'define-syntaxes))" -"(let-values()(loop_36 s_168 'transparent-binding))" -"(let-values()(loop_36 s_168 'opaque))))))))))))))))" -" loop_36)" +"(equal? tmp_15 'define-syntaxes))" +"(let-values()(loop_33 s_166 'transparent-binding))" +"(let-values()(loop_33 s_166 'opaque))))))))))))))))" +" loop_33)" " s_0" "(syntax-taint-mode-property s_0)))))" "(define-values" "(syntax-taint-mode-property)" -"(lambda(s_179)" +"(lambda(s_177)" "(begin" -"(let-values(((or-part_178)(syntax-property$1 s_179 'taint-mode)))" -"(if or-part_178 or-part_178(syntax-property$1 s_179 'certify-mode))))))" +"(let-values(((or-part_170)(syntax-property$1 s_177 'taint-mode)))" +"(if or-part_170 or-part_170(syntax-property$1 s_177 'certify-mode))))))" "(define-values" "(syntax-remove-taint-dispatch-properties)" -"(lambda(s_180)(begin(syntax-property-remove(syntax-property-remove s_180 'taint-mode) 'certify-mode))))" +"(lambda(s_178)(begin(syntax-property-remove(syntax-property-remove s_178 'taint-mode) 'certify-mode))))" "(define-values(current-module-code-inspector)(make-parameter #f))" "(define-values" "(syntax-debug-info$1)" -"(lambda(s_0 phase_40 all-bindings?_0)" +"(lambda(s_0 phase_42 all-bindings?_0)" "(begin" " 'syntax-debug-info" "(let-values(((hts_0)" "(reverse$1" -"(let-values(((lst_73)(fallback->list(syntax-shifted-multi-scopes s_0))))" +"(let-values(((lst_75)(fallback->list(syntax-shifted-multi-scopes s_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_73)))" -"((letrec-values(((for-loop_96)" -"(lambda(fold-var_58 lst_80)" +"(let-values()(check-list lst_75)))" +"((letrec-values(((for-loop_97)" +"(lambda(fold-var_59 lst_82)" "(begin" " 'for-loop" -"(if(pair? lst_80)" -"(let-values(((smss_26)(unsafe-car lst_80))" -"((rest_37)(unsafe-cdr lst_80)))" -"(let-values(((fold-var_59)" -"(let-values(((fold-var_60) fold-var_58))" -"(let-values(((fold-var_61)" +"(if(pair? lst_82)" +"(let-values(((smss_26)(unsafe-car lst_82))" +"((rest_38)(unsafe-cdr lst_82)))" +"(let-values(((fold-var_60)" +"(let-values(((fold-var_61) fold-var_59))" +"(let-values(((fold-var_62)" "(let-values()" "(cons" "(let-values()" @@ -16176,7 +15856,7 @@ static const char *startup_source = "(scope-set-at-fallback" " s_0" " smss_26" -" phase_40)))" +" phase_42)))" "(let-values(((context_1)" "(scope-set->context" " s-scs_0)))" @@ -16194,7 +15874,7 @@ static const char *startup_source = "(let-values()" "(let-values(((bindings_1" " covered-scopess_0)" -"(let-values(((ht_77)" +"(let-values(((ht_78)" " s-scs_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -16202,21 +15882,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash-keys" -" ht_77)))" -"((letrec-values(((for-loop_97)" +" ht_78)))" +"((letrec-values(((for-loop_98)" "(lambda(bindings_2" " covered-scope-sets_0" -" i_86)" +" i_89)" "(begin" " 'for-loop" -"(if i_86" +"(if i_89" "(let-values(((sc_23)" "(unsafe-immutable-hash-iterate-key" -" ht_77" -" i_86)))" +" ht_78" +" i_89)))" "(let-values(((bindings_3" " covered-scope-sets_1)" -"(let-values(((ht_78" +"(let-values(((ht_79" " bulk-bindings_3)" "(let-values(((table_105)" "(scope-binding-table" @@ -16237,46 +15917,46 @@ static const char *startup_source = " '#hash())" "(table-with-bulk-bindings-bulk-bindings" " table_105)))))" -"((s_181)" +"((s_179)" " s_0)" -"((extra-shifts_5)" +"((extra-shifts_4)" " null))" "(begin" " #t" -"((letrec-values(((for-loop_98)" +"((letrec-values(((for-loop_99)" "(lambda(bindings_4" " covered-scope-sets_2" -" i_87)" +" i_90)" "(begin" " 'for-loop" "(if(not" "(null?" -" i_87))" +" i_90))" "(let-values(((scs_15)" "(if(pair?" -" i_87)" +" i_90)" "(let-values()" "(bulk-binding-at-scopes" "(car" -" i_87)))" +" i_90)))" "(let-values()" "(hash-iterate-key" -" ht_78" -" i_87))))" +" ht_79" +" i_90))))" "((b_63)" "(if(pair?" -" i_87)" +" i_90)" "(let-values()" "(let-values(((bulk_4)" "(bulk-binding-at-bulk" "(car" -" i_87))))" +" i_90))))" "(let-values(((b-info_1)" "(hash-ref" "(bulk-binding-symbols" " bulk_4" -" s_181" -" extra-shifts_5)" +" s_179" +" extra-shifts_4)" " sym_17" " #f)))" "(if b-info_1" @@ -16288,8 +15968,8 @@ static const char *startup_source = " #f))))" "(let-values()" "(hash-iterate-value" -" ht_78" -" i_87)))))" +" ht_79" +" i_90)))))" "(let-values(((bindings_5" " covered-scope-sets_3)" "(let-values(((bindings_6)" @@ -16298,10 +15978,10 @@ static const char *startup_source = " covered-scope-sets_2))" "(if(if scs_15" "(if b_63" -"(if(let-values(((or-part_36)" +"(if(let-values(((or-part_171)" " all-bindings?_0))" -"(if or-part_36" -" or-part_36" +"(if or-part_171" +" or-part_171" "(subset?" " scs_15" " s-scs_0)))" @@ -16359,19 +16039,19 @@ static const char *startup_source = " covered-scope-sets_4)))))" "(if(not" " #f)" -"(for-loop_98" +"(for-loop_99" " bindings_5" " covered-scope-sets_3" "(if(pair?" -" i_87)" +" i_90)" "(let-values()" "(cdr" -" i_87))" +" i_90))" "(let-values()" "(let-values(((or-part_7)" "(hash-iterate-next" -" ht_78" -" i_87)))" +" ht_79" +" i_90)))" "(if or-part_7" " or-part_7" " bulk-bindings_3)))))" @@ -16381,34 +16061,34 @@ static const char *startup_source = "(values" " bindings_4" " covered-scope-sets_2))))))" -" for-loop_98)" +" for-loop_99)" " bindings_2" " covered-scope-sets_0" "(let-values(((or-part_8)" "(hash-iterate-first" -" ht_78)))" +" ht_79)))" "(if or-part_8" " or-part_8" " bulk-bindings_3)))))))" "(if(not" " #f)" -"(for-loop_97" +"(for-loop_98" " bindings_3" " covered-scope-sets_1" "(unsafe-immutable-hash-iterate-next" -" ht_77" -" i_86))" +" ht_78" +" i_89))" "(values" " bindings_3" " covered-scope-sets_1))))" "(values" " bindings_2" " covered-scope-sets_0))))))" -" for-loop_97)" +" for-loop_98)" " null" "(set)" "(unsafe-immutable-hash-iterate-first" -" ht_77))))))" +" ht_78))))))" " bindings_1))" "(let-values()" " null))))" @@ -16418,34 +16098,34 @@ static const char *startup_source = " context-ht_0" " 'bindings" " bindings_0)))))))))" -" fold-var_60))))" -"(values fold-var_61)))))" -"(if(not #f)(for-loop_96 fold-var_59 rest_37) fold-var_59)))" -" fold-var_58)))))" -" for-loop_96)" +" fold-var_61))))" +"(values fold-var_62)))))" +"(if(not #f)(for-loop_97 fold-var_60 rest_38) fold-var_60)))" +" fold-var_59)))))" +" for-loop_97)" " null" -" lst_73))))))" -"(let-values(((ht_70)(car hts_0)))(if(null?(cdr hts_0)) ht_70(hash-set ht_70 'fallbacks(cdr hts_0))))))))" +" lst_75))))))" +"(let-values(((ht_71)(car hts_0)))(if(null?(cdr hts_0)) ht_71(hash-set ht_71 'fallbacks(cdr hts_0))))))))" "(define-values" "(scope-set->context)" "(lambda(scs_16)" "(begin" "(let-values(((temp1_1)" "(reverse$1" -"(let-values(((ht_79) scs_16))" +"(let-values(((ht_80) scs_16))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_79)))" -"((letrec-values(((for-loop_27)" -"(lambda(fold-var_17 i_88)" +"(let-values()(check-in-immutable-hash-keys ht_80)))" +"((letrec-values(((for-loop_100)" +"(lambda(fold-var_63 i_91)" "(begin" " 'for-loop" -"(if i_88" -"(let-values(((sc_24)(unsafe-immutable-hash-iterate-key ht_79 i_88)))" -"(let-values(((fold-var_18)" -"(let-values(((fold-var_19) fold-var_17))" -"(let-values(((fold-var_20)" +"(if i_91" +"(let-values(((sc_24)(unsafe-immutable-hash-iterate-key ht_80 i_91)))" +"(let-values(((fold-var_19)" +"(let-values(((fold-var_20) fold-var_63))" +"(let-values(((fold-var_64)" "(let-values()" "(cons" "(let-values()" @@ -16459,55 +16139,55 @@ static const char *startup_source = "(vector" "(scope-id sc_24)" "(scope-kind sc_24))))" -" fold-var_19))))" -"(values fold-var_20)))))" +" fold-var_20))))" +"(values fold-var_64)))))" "(if(not #f)" -"(for-loop_27" -" fold-var_18" -"(unsafe-immutable-hash-iterate-next ht_79 i_88))" -" fold-var_18)))" -" fold-var_17)))))" -" for-loop_27)" +"(for-loop_100" +" fold-var_19" +"(unsafe-immutable-hash-iterate-next ht_80 i_91))" +" fold-var_19)))" +" fold-var_63)))))" +" for-loop_100)" " null" -"(unsafe-immutable-hash-iterate-first ht_79))))))" +"(unsafe-immutable-hash-iterate-first ht_80))))))" "((<2_0) <)" -"((temp3_2)(lambda(v_133)(vector-ref v_133 0))))" +"((temp3_2)(lambda(v_130)(vector-ref v_130 0))))" "(sort7.1 #f #f temp3_2 #t temp1_1 <2_0)))))" "(define-values" "(raise-ambiguous-error)" -"(lambda(id_22 ctx_7)" +"(lambda(id_21 ctx_7)" "(begin" "(raise-syntax-error$1" " #f" " \"identifier's binding is ambiguous\"" -" id_22" +" id_21" " #f" " null" -"(syntax-debug-info-string id_22 ctx_7)))))" +"(syntax-debug-info-string id_21 ctx_7)))))" "(define-values" "(syntax-debug-info-string)" -"(lambda(s_157 ctx_8)" +"(lambda(s_155 ctx_8)" "(begin" -"(let-values(((info_3)(syntax-debug-info$1 s_157(expand-context-phase ctx_8) #t)))" +"(let-values(((info_3)(syntax-debug-info$1 s_155(expand-context-phase ctx_8) #t)))" "(if(not" -"(let-values(((or-part_32)(pair?(hash-ref info_3 'bindings null))))" -"(if or-part_32" -" or-part_32" +"(let-values(((or-part_26)(pair?(hash-ref info_3 'bindings null))))" +"(if or-part_26" +" or-part_26" "(let-values(((lst_6)(hash-ref info_3 'fallbacks null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_6)))" -"((letrec-values(((for-loop_99)" -"(lambda(result_62 lst_81)" +"((letrec-values(((for-loop_101)" +"(lambda(result_64 lst_83)" "(begin" " 'for-loop" -"(if(pair? lst_81)" -"(let-values(((fb-info_0)(unsafe-car lst_81))" -"((rest_38)(unsafe-cdr lst_81)))" +"(if(pair? lst_83)" +"(let-values(((fb-info_0)(unsafe-car lst_83))" +"((rest_39)(unsafe-cdr lst_83)))" "(let-values(((result_1)" "(let-values()" -"(let-values(((result_63)" +"(let-values(((result_65)" "(let-values()" "(let-values()" "(pair?" @@ -16515,18 +16195,18 @@ static const char *startup_source = " fb-info_0" " 'bindings" " null))))))" -"(values result_63)))))" +"(values result_65)))))" "(if(if(not((lambda x_28 result_1) fb-info_0))(not #f) #f)" -"(for-loop_99 result_1 rest_38)" +"(for-loop_101 result_1 rest_39)" " result_1)))" -" result_62)))))" -" for-loop_99)" +" result_64)))))" +" for-loop_101)" " #f" " lst_6))))))" " (let-values () \"\")" "(let-values()" "(let-values(((relevant-scope-sets_0)" -"((letrec-values(((loop_79)" +"((letrec-values(((loop_76)" "(lambda(info_4 layer_0)" "(begin" " 'loop" @@ -16535,23 +16215,23 @@ static const char *startup_source = "(cons" "(hash-ref info_4 'context)" "(reverse$1" -"(let-values(((lst_82)(hash-ref info_4 'bindings null)))" +"(let-values(((lst_84)(hash-ref info_4 'bindings null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_82)))" -"((letrec-values(((for-loop_100)" -"(lambda(fold-var_62 lst_83)" +"(let-values()(check-list lst_84)))" +"((letrec-values(((for-loop_102)" +"(lambda(fold-var_65 lst_85)" "(begin" " 'for-loop" -"(if(pair? lst_83)" -"(let-values(((b_26)(unsafe-car lst_83))" -"((rest_39)" -"(unsafe-cdr lst_83)))" +"(if(pair? lst_85)" +"(let-values(((b_26)(unsafe-car lst_85))" +"((rest_40)" +"(unsafe-cdr lst_85)))" "(let-values(((fold-var_33)" "(let-values(((fold-var_34)" -" fold-var_62))" -"(let-values(((fold-var_63)" +" fold-var_65))" +"(let-values(((fold-var_66)" "(let-values()" "(cons" "(let-values()" @@ -16560,91 +16240,91 @@ static const char *startup_source = " 'context))" " fold-var_34))))" "(values" -" fold-var_63)))))" +" fold-var_66)))))" "(if(not #f)" -"(for-loop_100 fold-var_33 rest_39)" +"(for-loop_102 fold-var_33 rest_40)" " fold-var_33)))" -" fold-var_62)))))" -" for-loop_100)" +" fold-var_65)))))" +" for-loop_102)" " null" -" lst_82)))))" +" lst_84)))))" "(let-values(((fallbacks_0)(hash-ref info_4 'fallbacks null)))" "(reverse$1" -"(let-values(((lst_84) fallbacks_0)((start_14)(add1 layer_0)))" +"(let-values(((lst_86) fallbacks_0)((start_14)(add1 layer_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_84)))" +"(let-values()(check-list lst_86)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_14)))" -"((letrec-values(((for-loop_101)" -"(lambda(fold-var_64 lst_85 pos_11)" +"((letrec-values(((for-loop_103)" +"(lambda(fold-var_67 lst_87 pos_11)" "(begin" " 'for-loop" -"(if(if(pair? lst_85) #t #f)" +"(if(if(pair? lst_87) #t #f)" "(let-values(((fallback_0)" -"(unsafe-car lst_85))" -"((rest_40)" -"(unsafe-cdr lst_85))" +"(unsafe-car lst_87))" +"((rest_41)" +"(unsafe-cdr lst_87))" "((layer_1) pos_11))" "(let-values(((fold-var_9)" -"(let-values(((fold-var_65)" -" fold-var_64))" -"(let-values(((fold-var_66)" +"(let-values(((fold-var_68)" +" fold-var_67))" +"(let-values(((fold-var_69)" "(let-values()" "(cons" "(let-values()" -"(loop_79" +"(loop_76" " fallback_0" " layer_1))" -" fold-var_65))))" +" fold-var_68))))" "(values" -" fold-var_66)))))" +" fold-var_69)))))" "(if(not #f)" -"(for-loop_101" +"(for-loop_103" " fold-var_9" -" rest_40" +" rest_41" "(+ pos_11 1))" " fold-var_9)))" -" fold-var_64)))))" -" for-loop_101)" +" fold-var_67)))))" +" for-loop_103)" " null" -" lst_84" +" lst_86" " start_14))))))))))" -" loop_79)" +" loop_76)" " info_3" " 0)))" "(let-values(((common-scopes_0)" "(if(null? relevant-scope-sets_0)" "(set)" -"(let-values(((lst_76) relevant-scope-sets_0))" +"(let-values(((lst_88) relevant-scope-sets_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_76)))" -"((letrec-values(((for-loop_102)" -"(lambda(s_182 lst_86)" +"(let-values()(check-list lst_88)))" +"((letrec-values(((for-loop_104)" +"(lambda(s_180 lst_89)" "(begin" " 'for-loop" -"(if(pair? lst_86)" -"(let-values(((l_48)(unsafe-car lst_86))" -"((rest_41)(unsafe-cdr lst_86)))" -"(let-values(((s_81)" -"(let-values(((s_183) s_182))" -"(let-values(((s_184)" +"(if(pair? lst_89)" +"(let-values(((l_48)(unsafe-car lst_89))" +"((rest_42)(unsafe-cdr lst_89)))" +"(let-values(((s_79)" +"(let-values(((s_181) s_180))" +"(let-values(((s_182)" "(let-values()" "(set-intersect" -" s_183" +" s_181" "(list->set l_48)))))" -"(values s_184)))))" -"(if(not #f)(for-loop_102 s_81 rest_41) s_81)))" -" s_182)))))" -" for-loop_102)" +"(values s_182)))))" +"(if(not #f)(for-loop_104 s_79 rest_42) s_79)))" +" s_180)))))" +" for-loop_104)" "(list->set(car relevant-scope-sets_0))" -" lst_76))))))" +" lst_88))))))" "(string-append" -"((letrec-values(((loop_80)" +"((letrec-values(((loop_77)" "(lambda(info_5 layer_2)" "(begin" " 'loop" @@ -16656,31 +16336,31 @@ static const char *startup_source = "(apply" " string-append" "(reverse$1" -"(let-values(((lst_87)" -"(let-values(((temp1_2)(hash-ref info_5 'bindings null))" +"(let-values(((lst_90)" +"(let-values(((temp1_1)(hash-ref info_5 'bindings null))" "((temp2_2)" -"(lambda(a_43 b_64)" +"(lambda(a_37 b_64)" "(begin" " 'temp2" -"(if(hash-ref a_43 'match? #f)" +"(if(hash-ref a_37 'match? #f)" "(not(hash-ref b_64 'match? #f))" " #f)))))" -"(sort7.1 #f #f #f #f temp1_2 temp2_2))))" +"(sort7.1 #f #f #f #f temp1_1 temp2_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_87)))" -"((letrec-values(((for-loop_103)" -"(lambda(fold-var_67 lst_88)" +"(let-values()(check-list lst_90)))" +"((letrec-values(((for-loop_100)" +"(lambda(fold-var_63 lst_91)" "(begin" " 'for-loop" -"(if(pair? lst_88)" -"(let-values(((b_23)(unsafe-car lst_88))" -"((rest_42)(unsafe-cdr lst_88)))" +"(if(pair? lst_91)" +"(let-values(((b_23)(unsafe-car lst_91))" +"((rest_43)(unsafe-cdr lst_91)))" "(let-values(((fold-var_20)" -"(let-values(((fold-var_68)" -" fold-var_67))" -"(let-values(((fold-var_69)" +"(let-values(((fold-var_64)" +" fold-var_63))" +"(let-values(((fold-var_70)" "(let-values()" "(cons" "(let-values()" @@ -16713,59 +16393,59 @@ static const char *startup_source = " b_23" " 'context)" " common-scopes_0)))" -" fold-var_68))))" -"(values fold-var_69)))))" +" fold-var_64))))" +"(values fold-var_70)))))" "(if(not #f)" -"(for-loop_103 fold-var_20 rest_42)" +"(for-loop_100 fold-var_20 rest_43)" " fold-var_20)))" -" fold-var_67)))))" -" for-loop_103)" +" fold-var_63)))))" +" for-loop_100)" " null" -" lst_87)))))" +" lst_90)))))" "(let-values(((fallbacks_1)(hash-ref info_5 'fallbacks null)))" "(apply" " string-append" "(reverse$1" -"(let-values(((lst_89) fallbacks_1)((start_15)(add1 layer_2)))" +"(let-values(((lst_92) fallbacks_1)((start_15)(add1 layer_2)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_89)))" +"(let-values()(check-list lst_92)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_15)))" -"((letrec-values(((for-loop_104)" -"(lambda(fold-var_70 lst_90 pos_12)" +"((letrec-values(((for-loop_105)" +"(lambda(fold-var_71 lst_93 pos_12)" "(begin" " 'for-loop" -"(if(if(pair? lst_90) #t #f)" -"(let-values(((fallback_1)(unsafe-car lst_90))" -"((rest_0)(unsafe-cdr lst_90))" +"(if(if(pair? lst_93) #t #f)" +"(let-values(((fallback_1)(unsafe-car lst_93))" +"((rest_0)(unsafe-cdr lst_93))" "((layer_3) pos_12))" -"(let-values(((fold-var_71)" "(let-values(((fold-var_72)" -" fold-var_70))" "(let-values(((fold-var_73)" +" fold-var_71))" +"(let-values(((fold-var_74)" "(let-values()" "(cons" "(let-values()" -"(loop_80" +"(loop_77" " fallback_1" " layer_3))" -" fold-var_72))))" -"(values fold-var_73)))))" +" fold-var_73))))" +"(values fold-var_74)))))" "(if(not #f)" -"(for-loop_104" -" fold-var_71" +"(for-loop_105" +" fold-var_72" " rest_0" "(+ pos_12 1))" -" fold-var_71)))" -" fold-var_70)))))" -" for-loop_104)" +" fold-var_72)))" +" fold-var_71)))))" +" for-loop_105)" " null" -" lst_89" +" lst_92" " start_15)))))))))))" -" loop_80)" +" loop_77)" " info_3" " 0)" "(if(set-empty? common-scopes_0)" @@ -16780,25 +16460,25 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_9)))" "((letrec-values(((for-loop_1)" -"(lambda(fold-var_74 lst_10)" +"(lambda(fold-var_75 lst_10)" "(begin" " 'for-loop" "(if(pair? lst_10)" -"(let-values(((s_185)(unsafe-car lst_10))" +"(let-values(((s_183)(unsafe-car lst_10))" "((rest_1)(unsafe-cdr lst_10)))" -"(let-values(((fold-var_75)" -"(let-values(((fold-var_76) fold-var_74))" -"(if(set-member? common-scopes_0 s_185)" -"(let-values(((fold-var_5) fold-var_76))" +"(let-values(((fold-var_76)" +"(let-values(((fold-var_77) fold-var_75))" +"(if(set-member? common-scopes_0 s_183)" +"(let-values(((fold-var_5) fold-var_77))" "(let-values(((fold-var_6)" "(let-values()" "(cons" -"(let-values() s_185)" +"(let-values() s_183)" " fold-var_5))))" "(values fold-var_6)))" -" fold-var_76))))" -"(if(not #f)(for-loop_1 fold-var_75 rest_1) fold-var_75)))" -" fold-var_74)))))" +" fold-var_77))))" +"(if(not #f)(for-loop_1 fold-var_76 rest_1) fold-var_76)))" +" fold-var_75)))))" " for-loop_1)" " null" " lst_9))))" @@ -16808,7 +16488,7 @@ static const char *startup_source = "(lambda(scopes_19 common-scopes_1)" "(begin" "(let-values(((strs_0)" -"((letrec-values(((loop_58)" +"((letrec-values(((loop_78)" "(lambda(strs_1 scopes_20)" "(begin" " 'loop" @@ -16819,44 +16499,44 @@ static const char *startup_source = "(if(if(pair? strs_1)" "(<(+(string-length str_3)(string-length(car strs_1))) 72)" " #f)" -"(loop_58" +"(loop_78" "(cons(string-append(car strs_1) str_3)(cdr strs_1))" "(cdr scopes_20))" -"(loop_58(cons str_3 strs_1)(cdr scopes_20))))))))))" -" loop_58)" +"(loop_78(cons str_3 strs_1)(cdr scopes_20))))))))))" +" loop_78)" " null" "(if(set-empty? common-scopes_1)" " scopes_19" "(append" "(reverse$1" -"(let-values(((lst_91) scopes_19))" +"(let-values(((lst_94) scopes_19))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_91)))" -"((letrec-values(((for-loop_105)" -"(lambda(fold-var_77 lst_92)" +"(let-values()(check-list lst_94)))" +"((letrec-values(((for-loop_106)" +"(lambda(fold-var_78 lst_95)" "(begin" " 'for-loop" -"(if(pair? lst_92)" -"(let-values(((s_186)(unsafe-car lst_92))" -"((rest_43)(unsafe-cdr lst_92)))" -"(let-values(((fold-var_78)" -"(let-values(((fold-var_79) fold-var_77))" -"(if(not(set-member? common-scopes_1 s_186))" -"(let-values(((fold-var_80) fold-var_79))" -"(let-values(((fold-var_81)" +"(if(pair? lst_95)" +"(let-values(((s_184)(unsafe-car lst_95))" +"((rest_44)(unsafe-cdr lst_95)))" +"(let-values(((fold-var_79)" +"(let-values(((fold-var_80) fold-var_78))" +"(if(not(set-member? common-scopes_1 s_184))" +"(let-values(((fold-var_81) fold-var_80))" +"(let-values(((fold-var_82)" "(let-values()" "(cons" -"(let-values() s_186)" +"(let-values() s_184)" +" fold-var_81))))" +"(values fold-var_82)))" " fold-var_80))))" -"(values fold-var_81)))" -" fold-var_79))))" -"(if(not #f)(for-loop_105 fold-var_78 rest_43) fold-var_78)))" -" fold-var_77)))))" -" for-loop_105)" +"(if(not #f)(for-loop_106 fold-var_79 rest_44) fold-var_79)))" +" fold-var_78)))))" +" for-loop_106)" " null" -" lst_91))))" +" lst_94))))" " (list \"[common scopes]\"))))))" "(if(null? strs_0)" " (let-values () \"\\n [empty]\")" @@ -16864,44 +16544,44 @@ static const char *startup_source = "(apply" " string-append" "(reverse$1" -"(let-values(((lst_93) strs_0))" +"(let-values(((lst_96) strs_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_93)))" -"((letrec-values(((for-loop_106)" -"(lambda(fold-var_82 lst_94)" +"(let-values()(check-list lst_96)))" +"((letrec-values(((for-loop_107)" +"(lambda(fold-var_83 lst_97)" "(begin" " 'for-loop" -"(if(pair? lst_94)" -"(let-values(((str_4)(unsafe-car lst_94))((rest_44)(unsafe-cdr lst_94)))" -"(let-values(((fold-var_83)" -"(let-values(((fold-var_84) fold-var_82))" +"(if(pair? lst_97)" +"(let-values(((str_4)(unsafe-car lst_97))((rest_45)(unsafe-cdr lst_97)))" +"(let-values(((fold-var_84)" +"(let-values(((fold-var_85) fold-var_83))" "(let-values(((fold-var_14)" "(let-values()" "(cons" "(let-values()" " (string-append \"\\n \" str_4))" -" fold-var_84))))" +" fold-var_85))))" "(values fold-var_14)))))" -"(if(not #f)(for-loop_106 fold-var_83 rest_44) fold-var_83)))" -" fold-var_82)))))" -" for-loop_106)" +"(if(not #f)(for-loop_107 fold-var_84 rest_45) fold-var_84)))" +" fold-var_83)))))" +" for-loop_107)" " null" -" lst_93)))))))))))" +" lst_96)))))))))))" " (define-values (layer->string) (lambda (layer_4) (begin (if (zero? layer_4) \"\" (format \" at layer ~a\" layer_4)))))" "(define-values" "(raise-syntax-implicit-error)" -"(lambda(s_0 sym_27 trigger-id_0 ctx_8)" +"(lambda(s_0 sym_28 trigger-id_0 ctx_8)" "(begin" -"(let-values(((phase_41)(expand-context-phase ctx_8)))" +"(let-values(((phase_43)(expand-context-phase ctx_8)))" "(let-values(((what_1)" -"(let-values(((tmp_17) sym_27))" -"(if(equal? tmp_17 '#%app)" +"(let-values(((tmp_16) sym_28))" +"(if(equal? tmp_16 '#%app)" " (let-values () \"function application\")" -"(if(equal? tmp_17 '#%datum)" +"(if(equal? tmp_16 '#%datum)" " (let-values () \"literal data\")" -"(if(equal? tmp_17 '#%top)" +"(if(equal? tmp_16 '#%top)" "(let-values()" "(if(expand-context-allow-unbound? ctx_8)" " \"reference to a top-level identifier\"" @@ -16910,8 +16590,8 @@ static const char *startup_source = "(let-values(((unbound?_0)" "(if trigger-id_0" "(not" -"(let-values(((trigger-id1_0) trigger-id_0)((phase2_0) phase_41))" -"(resolve33.1 #f #f #f #f #f #f #f #f trigger-id1_0 phase2_0)))" +"(let-values(((trigger-id1_0) trigger-id_0)((phase2_1) phase_43))" +"(resolve33.1 #f #f #f #f #f #f #f #f trigger-id1_0 phase2_1)))" " #f)))" "(raise-syntax-error$1" " #f" @@ -16919,13 +16599,13 @@ static const char *startup_source = "(if unbound?_0" " \"unbound identifier;\\n also, no ~a transformer is bound~a\"" " (string-append what_1 \" is not allowed;\\n no ~a syntax transformer is bound~a\"))" -" sym_27" -"(let-values(((tmp_18) phase_41))" -"(if(equal? tmp_18 0)" +" sym_28" +"(let-values(((tmp_17) phase_43))" +"(if(equal? tmp_17 0)" " (let-values () \"\")" -"(if(equal? tmp_18 1)" +"(if(equal? tmp_17 1)" " (let-values () \" in the transformer phase\")" -" (let-values () (format \" at phase ~a\" phase_41))))))" +" (let-values () (format \" at phase ~a\" phase_43))))))" "(if unbound?_0 trigger-id_0 #f)" "(if unbound?_0(if(not(eq?(syntax-e$1 s_0)(syntax-e$1 trigger-id_0))) s_0 #f) #f)" " null" @@ -16937,32 +16617,32 @@ static const char *startup_source = "(begin" " 'check-no-duplicate-ids8" "(let-values(((ids_2) ids5_0))" -"(let-values(((phase_42) phase6_0))" -"(let-values(((s_145) s7_1))" -"(let-values(((ht_73)(if ht4_0 ht3_0(make-check-no-duplicate-table))))" +"(let-values(((phase_44) phase6_0))" +"(let-values(((s_143) s7_1))" +"(let-values(((ht_74)(if ht4_0 ht3_0(make-check-no-duplicate-table))))" " (let-values (((what_2) (if what2_0 what1_0 \"binding name\")))" "(let-values()" -"((letrec-values(((loop_81)" -"(lambda(v_134 ht_80)" +"((letrec-values(((loop_79)" +"(lambda(v_131 ht_81)" "(begin" " 'loop" -"(if(identifier? v_134)" +"(if(identifier? v_131)" "(let-values()" -"(let-values(((l_7)(hash-ref ht_80(syntax-e$1 v_134) null)))" +"(let-values(((l_7)(hash-ref ht_81(syntax-e$1 v_131) null)))" "(begin" -"(let-values(((lst_74) l_7))" +"(let-values(((lst_76) l_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_74)))" +"(let-values()(check-list lst_76)))" "((letrec-values(((for-loop_92)" -"(lambda(lst_95)" +"(lambda(lst_98)" "(begin" " 'for-loop" -"(if(pair? lst_95)" -"(let-values(((id_13)(unsafe-car lst_95))" -"((rest_45)" -"(unsafe-cdr lst_95)))" +"(if(pair? lst_98)" +"(let-values(((id_2)(unsafe-car lst_98))" +"((rest_46)" +"(unsafe-cdr lst_98)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -16970,34 +16650,34 @@ static const char *startup_source = "(begin" "(let-values()" "(if(bound-identifier=?$1" -" id_13" -" v_134" -" phase_42)" +" id_2" +" v_131" +" phase_44)" "(let-values()" "(raise-syntax-error$1" " #f" "(string-append" " \"duplicate \"" " what_2)" -" s_145" -" v_134))" +" s_143" +" v_131))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_92 rest_45)" +"(for-loop_92 rest_46)" "(values))))" "(values))))))" " for-loop_92)" -" lst_74)))" +" lst_76)))" "(void)" -"(hash-set ht_80(syntax-e$1 v_134)(cons v_134 l_7)))))" -"(if(pair? v_134)" -"(let-values()(loop_81(cdr v_134)(loop_81(car v_134) ht_80)))" -"(let-values() ht_80)))))))" -" loop_81)" +"(hash-set ht_81(syntax-e$1 v_131)(cons v_131 l_7)))))" +"(if(pair? v_131)" +"(let-values()(loop_79(cdr v_131)(loop_79(car v_131) ht_81)))" +"(let-values() ht_81)))))))" +" loop_79)" " ids_2" -" ht_73))))))))))" +" ht_74))))))))))" "(define-values" "(remove-use-site-scopes)" "(lambda(s_0 ctx_7)" @@ -17007,31 +16687,31 @@ static const char *startup_source = "(if(syntax?$1 s_0)" "(remove-scopes s_0(unbox use-sites_0))" "(reverse$1" -"(let-values(((lst_96) s_0))" +"(let-values(((lst_99) s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_96)))" -"((letrec-values(((for-loop_107)" -"(lambda(fold-var_85 lst_6)" +"(let-values()(check-list lst_99)))" +"((letrec-values(((for-loop_108)" +"(lambda(fold-var_86 lst_6)" "(begin" " 'for-loop" "(if(pair? lst_6)" -"(let-values(((id_9)(unsafe-car lst_6))((rest_46)(unsafe-cdr lst_6)))" -"(let-values(((fold-var_86)" -"(let-values(((fold-var_87) fold-var_85))" -"(let-values(((fold-var_59)" +"(let-values(((id_10)(unsafe-car lst_6))((rest_47)(unsafe-cdr lst_6)))" +"(let-values(((fold-var_87)" +"(let-values(((fold-var_88) fold-var_86))" +"(let-values(((fold-var_60)" "(let-values()" "(cons" "(let-values()" -"(remove-scopes id_9(unbox use-sites_0)))" -" fold-var_87))))" -"(values fold-var_59)))))" -"(if(not #f)(for-loop_107 fold-var_86 rest_46) fold-var_86)))" -" fold-var_85)))))" -" for-loop_107)" +"(remove-scopes id_10(unbox use-sites_0)))" +" fold-var_88))))" +"(values fold-var_60)))))" +"(if(not #f)(for-loop_108 fold-var_87 rest_47) fold-var_87)))" +" fold-var_86)))))" +" for-loop_108)" " null" -" lst_96)))))" +" lst_99)))))" " s_0)))))" "(define-values" "(struct:compile-context" @@ -17087,8 +16767,8 @@ static const char *startup_source = "(begin" " 'make-compile-context14" "(let-values(((namespace_1)(if namespace8_0 namespace2_0(1/current-namespace))))" -"(let-values(((phase_43)(if phase9_0 phase3_0(namespace-phase namespace_1))))" -"(let-values(((self_8)(if self10_0 self4_1(namespace-self-mpi namespace_1))))" +"(let-values(((phase_45)(if phase9_0 phase3_0(namespace-phase namespace_1))))" +"(let-values(((self_6)(if self10_0 self4_1(namespace-self-mpi namespace_1))))" "(let-values(((module-self_0)(if module-self11_0 module-self5_0 #f)))" "(let-values(((full-module-name_0)(if full-module-name12_0 full-module-name6_0 #f)))" "(let-values(((lazy-syntax-literals?_0)" @@ -17100,8 +16780,8 @@ static const char *startup_source = "(void))" "(compile-context1.1" " namespace_1" -" phase_43" -" self_8" +" phase_45" +" self_6" " module-self_0" " full-module-name_0" " lazy-syntax-literals?_0" @@ -17134,30 +16814,30 @@ static const char *startup_source = "(lambda()(begin(mpi-intern-table1.1(make-hash)(make-hasheq)))))" "(define-values" "(intern-module-path-index!)" -"(lambda(t_41 mpi_20)" +"(lambda(t_41 mpi_19)" "(begin" -"(let-values(((or-part_166)(hash-ref(mpi-intern-table-fast t_41) mpi_20 #f)))" -"(if or-part_166" -" or-part_166" -"(let-values(((name_2 base_15)(1/module-path-index-split mpi_20)))" +"(let-values(((or-part_172)(hash-ref(mpi-intern-table-fast t_41) mpi_19 #f)))" +"(if or-part_172" +" or-part_172" +"(let-values(((name_2 base_15)(1/module-path-index-split mpi_19)))" "(if(not name_2)" -"(let-values()(begin(hash-set!(mpi-intern-table-fast t_41) mpi_20 mpi_20) mpi_20))" +"(let-values()(begin(hash-set!(mpi-intern-table-fast t_41) mpi_19 mpi_19) mpi_19))" "(let-values()" "(let-values(((interned-base_0)(if base_15(intern-module-path-index! t_41 base_15) #f)))" "(let-values(((at-name_0)" -"(let-values(((or-part_85)(hash-ref(mpi-intern-table-normal t_41) name_2 #f)))" -"(if or-part_85" -" or-part_85" +"(let-values(((or-part_29)(hash-ref(mpi-intern-table-normal t_41) 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_41) name_2 at-name_1) at-name_1))))))" "(let-values(((i-mpi_0)" -"(let-values(((or-part_87)(hash-ref at-name_0 interned-base_0 #f)))" -"(if or-part_87" -" or-part_87" -"(let-values(((mpi_21)" +"(let-values(((or-part_79)(hash-ref at-name_0 interned-base_0 #f)))" +"(if or-part_79" +" or-part_79" +"(let-values(((mpi_20)" "(if(eq? base_15 interned-base_0)" -" mpi_20" -"(let-values(((the-struct_49) mpi_20))" +" mpi_19" +"(let-values(((the-struct_49) mpi_19))" "(if(1/module-path-index? the-struct_49)" "(let-values(((base3_0) interned-base_0))" "(module-path-index2.1" @@ -17169,8 +16849,8 @@ static const char *startup_source = " 'struct-copy" " \"module-path-index?\"" " the-struct_49))))))" -"(begin(hash-set! at-name_0 interned-base_0 mpi_21) mpi_21))))))" -"(begin(hash-set!(mpi-intern-table-fast t_41) mpi_20 i-mpi_0) i-mpi_0))))))))))))" +"(begin(hash-set! at-name_0 interned-base_0 mpi_20) mpi_20))))))" +"(begin(hash-set!(mpi-intern-table-fast t_41) mpi_19 i-mpi_0) i-mpi_0))))))))))))" "(define-values" "(unsafe-vector-ref-id)" "(if(eq?(system-type 'vm) 'chez-scheme)(let-values() 'unsafe-vector*-ref)(let-values() 'vector*-ref)))" @@ -17206,25 +16886,25 @@ static const char *startup_source = "(lambda()(begin(module-path-index-table1.1(make-hasheq)(make-module-path-index-intern-table)))))" "(define-values" "(add-module-path-index!)" -"(lambda(mpis_0 mpi_20)" +"(lambda(mpis_0 mpi_19)" "(begin" -"(let-values(((pos_13)(add-module-path-index!/pos mpis_0 mpi_20)))" +"(let-values(((pos_13)(add-module-path-index!/pos mpis_0 mpi_19)))" "(if pos_13(list unsafe-vector-ref-id mpi-vector-id pos_13) #f)))))" "(define-values" "(add-module-path-index!/pos)" -"(lambda(mpis_1 mpi_22)" +"(lambda(mpis_1 mpi_21)" "(begin" -"(if(not mpi_22)" +"(if(not mpi_21)" "(let-values() #f)" -"(if mpi_22" +"(if mpi_21" "(let-values()" -"(let-values(((mpi_23)(intern-module-path-index!(module-path-index-table-intern mpis_1) mpi_22))" +"(let-values(((mpi_22)(intern-module-path-index!(module-path-index-table-intern mpis_1) mpi_21))" "((positions_0)(module-path-index-table-positions mpis_1)))" -"(let-values(((or-part_84)(hash-ref positions_0 mpi_23 #f)))" -"(if or-part_84" -" or-part_84" +"(let-values(((or-part_77)(hash-ref positions_0 mpi_22 #f)))" +"(if or-part_77" +" or-part_77" "(let-values(((pos_14)(hash-count positions_0)))" -"(begin(hash-set! positions_0 mpi_23 pos_14) pos_14))))))" +"(begin(hash-set! positions_0 mpi_22 pos_14) pos_14))))))" "(void))))))" "(define-values" "(generate-module-path-index-deserialize)" @@ -17233,38 +16913,38 @@ static const char *startup_source = "(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_81) positions_1))" +"(let-values(((ht_82) positions_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_81)))" -"((letrec-values(((for-loop_108)" -"(lambda(table_106 i_89)" +"(let-values()(check-in-hash ht_82)))" +"((letrec-values(((for-loop_109)" +"(lambda(table_106 i_92)" "(begin" " 'for-loop" -"(if i_89" -"(let-values(((k_18 v_135)(hash-iterate-key+value ht_81 i_89)))" -"(let-values(((table_98)" -"(let-values(((table_107) table_106))" +"(if i_92" +"(let-values(((k_18 v_132)(hash-iterate-key+value ht_82 i_92)))" +"(let-values(((table_107)" +"(let-values(((table_98) table_106))" "(let-values(((table_108)" "(let-values()" -"(let-values(((key_42 val_36)" +"(let-values(((key_42 val_35)" "(let-values()" "(values" -" v_135" +" v_132" " k_18))))" "(hash-set" -" table_107" +" table_98" " key_42" -" val_36)))))" +" val_35)))))" "(values table_108)))))" "(if(not #f)" -"(for-loop_108 table_98(hash-iterate-next ht_81 i_89))" -" table_98)))" +"(for-loop_109 table_107(hash-iterate-next ht_82 i_92))" +" table_107)))" " table_106)))))" -" for-loop_108)" +" for-loop_109)" " '#hasheqv()" -"(hash-iterate-first ht_81))))))" +"(hash-iterate-first ht_82))))))" "(let-values((()" "(begin" "(let-values(((start_16) 0)((end_10)(hash-count rev-positions_0))((inc_4) 1))" @@ -17277,44 +16957,44 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_15 end_10)" -"(let-values(((i_90) pos_15))" +"(let-values(((i_93) pos_15))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((mpi_24)" +"(let-values(((mpi_23)" "(hash-ref" " rev-positions_0" -" i_90)))" -"((letrec-values(((loop_82)" -"(lambda(mpi_25)" +" i_93)))" +"((letrec-values(((loop_80)" +"(lambda(mpi_24)" "(begin" " 'loop" "(if(hash-ref" " gen-order_0" -" mpi_25" +" mpi_24" " #f)" "(void)" "(let-values()" -"(let-values(((name_36" +"(let-values(((name_37" " base_16)" "(1/module-path-index-split" -" mpi_25)))" +" mpi_24)))" "(begin" "(if base_16" "(let-values()" -"(loop_82" +"(loop_80" " base_16))" "(void))" "(hash-set!" " gen-order_0" -" mpi_25" +" mpi_24" "(hash-count" " gen-order_0))))))))))" -" loop_82)" -" mpi_24)))" +" loop_80)" +" mpi_23)))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_21(+ pos_15 inc_4))(values))))" @@ -17324,40 +17004,40 @@ static const char *startup_source = "(values))))" "(let-values()" "(let-values(((rev-gen-order_0)" -"(let-values(((ht_82) gen-order_0))" +"(let-values(((ht_83) gen-order_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_82)))" -"((letrec-values(((for-loop_109)" -"(lambda(table_109 i_91)" +"(let-values()(check-in-hash ht_83)))" +"((letrec-values(((for-loop_110)" +"(lambda(table_109 i_94)" "(begin" " 'for-loop" -"(if i_91" -"(let-values(((k_19 v_136)" -"(hash-iterate-key+value ht_82 i_91)))" +"(if i_94" +"(let-values(((k_19 v_130)" +"(hash-iterate-key+value ht_83 i_94)))" "(let-values(((table_15)" "(let-values(((table_55) table_109))" "(let-values(((table_56)" "(let-values()" "(let-values(((key_43" -" val_37)" +" val_36)" "(let-values()" "(values" -" v_136" +" v_130" " k_19))))" "(hash-set" " table_55" " key_43" -" val_37)))))" +" val_36)))))" "(values table_56)))))" "(if(not #f)" -"(for-loop_109 table_15(hash-iterate-next ht_82 i_91))" +"(for-loop_110 table_15(hash-iterate-next ht_83 i_94))" " table_15)))" " table_109)))))" -" for-loop_109)" +" for-loop_110)" " '#hasheqv()" -"(hash-iterate-first ht_82))))))" +"(hash-iterate-first ht_83))))))" "(let-values(((gens_0)" "(let-values(((len_11)(hash-count gen-order_0)))" "(begin" @@ -17365,7 +17045,7 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_11)))" -"(let-values(((v_39)(make-vector len_11 0)))" +"(let-values(((v_133)(make-vector len_11 0)))" "(begin" "(if(zero? len_11)" "(void)" @@ -17375,43 +17055,43 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_17 end_11 inc_5)))" -"((letrec-values(((for-loop_29)" -"(lambda(i_92 pos_16)" +"((letrec-values(((for-loop_28)" +"(lambda(i_95 pos_16)" "(begin" " 'for-loop" "(if(< pos_16 end_11)" -"(let-values(((i_93) pos_16))" -"(let-values(((i_94)" -"(let-values(((i_26) i_92))" -"(let-values(((i_95)" +"(let-values(((i_96) pos_16))" +"(let-values(((i_97)" +"(let-values(((i_98) i_95))" +"(let-values(((i_99)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_39" -" i_26" +" v_133" +" i_98" "(let-values()" -"(let-values(((mpi_26)" +"(let-values(((mpi_25)" "(hash-ref" " rev-gen-order_0" -" i_93)))" +" i_96)))" "(let-values(((path_6" " base_17)" "(1/module-path-index-split" -" mpi_26)))" +" mpi_25)))" "(if(top-level-module-path-index?" -" mpi_26)" +" mpi_25)" "(let-values()" " 'top)" "(if(not" " path_6)" "(let-values()" "(box" -"(let-values(((or-part_40)" +"(let-values(((or-part_173)" "(1/resolved-module-path-name" "(module-path-index-resolved" -" mpi_26))))" -"(if or-part_40" -" or-part_40" +" mpi_25))))" +"(if or-part_173" +" or-part_173" " 'self))))" "(if(not" " base_17)" @@ -17428,46 +17108,46 @@ static const char *startup_source = "(void)))))))))" "(unsafe-fx+" " 1" -" i_26)))))" -"(values i_95)))))" +" i_98)))))" +"(values i_99)))))" "(if(if(not" "((lambda x_42" -"(unsafe-fx= i_94 len_11))" -" i_93))" +"(unsafe-fx= i_97 len_11))" +" i_96))" "(not #f)" " #f)" -"(for-loop_29 i_94(+ pos_16 inc_5))" -" i_94)))" -" i_92)))))" -" for-loop_29)" +"(for-loop_28 i_97(+ pos_16 inc_5))" +" i_97)))" +" i_95)))))" +" for-loop_28)" " 0" " start_17)))))" -" v_39))))))" +" v_133))))))" "(list" " 'deserialize-module-path-indexes" "(list 'quote gens_0)" "(list" " 'quote" -"(let-values(((vec_25 i_27)" +"(let-values(((vec_25 i_26)" "(let-values(((start_18) 0)((end_12)(hash-count rev-positions_0))((inc_6) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_18 end_12 inc_6)))" -"((letrec-values(((for-loop_110)" -"(lambda(vec_13 i_96 pos_17)" +"((letrec-values(((for-loop_111)" +"(lambda(vec_13 i_100 pos_17)" "(begin" " 'for-loop" "(if(< pos_17 end_12)" -"(let-values(((i_97) pos_17))" -"(let-values(((vec_26 i_98)" +"(let-values(((i_27) pos_17))" +"(let-values(((vec_26 i_101)" "(let-values(((vec_27) vec_13)" -"((i_99) i_96))" -"(let-values(((vec_28 i_100)" +"((i_28) i_100))" +"(let-values(((vec_28 i_102)" "(let-values()" "(let-values(((new-vec_2)" "(if(eq?" -" i_99" +" i_28" "(unsafe-vector*-length" " vec_27))" "(grow-vector" @@ -17476,28 +17156,28 @@ static const char *startup_source = "(begin" "(unsafe-vector*-set!" " new-vec_2" -" i_99" +" i_28" "(let-values()" "(hash-ref" " gen-order_0" "(hash-ref" " rev-positions_0" -" i_97))))" +" i_27))))" "(values" " new-vec_2" "(unsafe-fx+" -" i_99" +" i_28" " 1)))))))" -"(values vec_28 i_100)))))" +"(values vec_28 i_102)))))" "(if(not #f)" -"(for-loop_110 vec_26 i_98(+ pos_17 inc_6))" -"(values vec_26 i_98))))" -"(values vec_13 i_96))))))" -" for-loop_110)" +"(for-loop_111 vec_26 i_101(+ pos_17 inc_6))" +"(values vec_26 i_101))))" +"(values vec_13 i_100))))))" +" for-loop_111)" "(make-vector 16)" " 0" " start_18)))))" -"(shrink-vector vec_25 i_27))))))))))))))" +"(shrink-vector vec_25 i_26))))))))))))))" "(define-values" "(deserialize-module-path-indexes)" "(lambda(gen-vec_0 order-vec_0)" @@ -17513,12 +17193,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_19)))" -"((letrec-values(((for-loop_111)" +"((letrec-values(((for-loop_112)" "(lambda(pos_18 pos_19)" "(begin" " 'for-loop" "(if(if(unsafe-fx< pos_18 len_12) #t #f)" -"(let-values(((d_21)(unsafe-vector-ref vec_29 pos_18))((i_101) pos_19))" +"(let-values(((d_21)(unsafe-vector-ref vec_29 pos_18))((i_103) pos_19))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17527,7 +17207,7 @@ static const char *startup_source = "(let-values()" "(vector-set!" " gen_0" -" i_101" +" i_103" "(if(eq? d_21 'top)" "(let-values()" "(deserialize-module-path-index))" @@ -17545,9 +17225,9 @@ static const char *startup_source = " #f)))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_111(unsafe-fx+ 1 pos_18)(+ pos_19 1))(values))))" +"(if(not #f)(for-loop_112(unsafe-fx+ 1 pos_18)(+ pos_19 1))(values))))" "(values))))))" -" for-loop_111)" +" for-loop_112)" " 0" " start_19)))" "(void)" @@ -17556,7 +17236,7 @@ static const char *startup_source = "(if(exact-nonnegative-integer? len_13)" "(void)" " (let-values () (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_13)))" -"(let-values(((v_137)(make-vector len_13 0)))" +"(let-values(((v_134)(make-vector len_13 0)))" "(begin" "(if(zero? len_13)" "(void)" @@ -17566,34 +17246,34 @@ static const char *startup_source = "(begin(check-vector vec_32)(values vec_32(unsafe-vector-length vec_32))))))" "(begin" " #f" -"((letrec-values(((for-loop_112)" -"(lambda(i_102 pos_20)" +"((letrec-values(((for-loop_113)" +"(lambda(i_104 pos_20)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_20 len_14)" -"(let-values(((p_30)(unsafe-vector-ref vec_31 pos_20)))" -"(let-values(((i_103)" -"(let-values(((i_104) i_102))" +"(let-values(((p_26)(unsafe-vector-ref vec_31 pos_20)))" +"(let-values(((i_105)" +"(let-values(((i_106) i_104))" "(let-values(((i_23)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_137" -" i_104" +" v_134" +" i_106" "(let-values()" -"(vector*-ref gen_0 p_30)))" -"(unsafe-fx+ 1 i_104)))))" +"(vector*-ref gen_0 p_26)))" +"(unsafe-fx+ 1 i_106)))))" "(values i_23)))))" -"(if(if(not((lambda x_43(unsafe-fx= i_103 len_13)) p_30))" +"(if(if(not((lambda x_43(unsafe-fx= i_105 len_13)) p_26))" "(not #f)" " #f)" -"(for-loop_112 i_103(unsafe-fx+ 1 pos_20))" -" i_103)))" -" i_102)))))" -" for-loop_112)" +"(for-loop_113 i_105(unsafe-fx+ 1 pos_20))" +" i_105)))" +" i_104)))))" +" for-loop_113)" " 0" " 0)))))" -" v_137)))))))))" +" v_134)))))))))" "(define-values" "(mpis-as-vector)" "(lambda(mpis_3)" @@ -17601,17 +17281,17 @@ static const char *startup_source = "(let-values(((positions_2)(module-path-index-table-positions mpis_3)))" "(let-values(((vec_33)(make-vector(hash-count positions_2) #f)))" "(begin" -"(let-values(((ht_83) positions_2))" +"(let-values(((ht_84) positions_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_83)))" -"((letrec-values(((for-loop_113)" -"(lambda(i_46)" +"(let-values()(check-in-hash ht_84)))" +"((letrec-values(((for-loop_114)" +"(lambda(i_47)" "(begin" " 'for-loop" -"(if i_46" -"(let-values(((mpi_2 pos_21)(hash-iterate-key+value ht_83 i_46)))" +"(if i_47" +"(let-values(((mpi_2 pos_21)(hash-iterate-key+value ht_84 i_47)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17621,10 +17301,10 @@ static const char *startup_source = "(vector-set! vec_33 pos_21 mpi_2))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_113(hash-iterate-next ht_83 i_46))(values))))" +"(if(not #f)(for-loop_114(hash-iterate-next ht_84 i_47))(values))))" "(values))))))" -" for-loop_113)" -"(hash-iterate-first ht_83))))" +" for-loop_114)" +"(hash-iterate-first ht_84))))" "(void)" " vec_33))))))" "(define-values" @@ -17632,18 +17312,18 @@ static const char *startup_source = "(lambda(mus_0 mpis_4)" "(begin" "(reverse$1" -"(let-values(((lst_97) mus_0))" +"(let-values(((lst_100) mus_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_97)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_100)))" "((letrec-values(((for-loop_6)" -"(lambda(fold-var_0 lst_98)" +"(lambda(fold-var_0 lst_101)" "(begin" " 'for-loop" -"(if(pair? lst_98)" -"(let-values(((mu_1)(unsafe-car lst_98))((rest_47)(unsafe-cdr lst_98)))" +"(if(pair? lst_101)" +"(let-values(((mu_1)(unsafe-car lst_101))((rest_48)(unsafe-cdr lst_101)))" "(let-values(((fold-var_2)" "(let-values(((fold-var_3) fold-var_0))" -"(let-values(((fold-var_88)" +"(let-values(((fold-var_89)" "(let-values()" "(cons" "(let-values()" @@ -17654,31 +17334,31 @@ static const char *startup_source = "(module-use-module mu_1))" "(module-use-phase mu_1)))" " fold-var_3))))" -"(values fold-var_88)))))" -"(if(not #f)(for-loop_6 fold-var_2 rest_47) fold-var_2)))" +"(values fold-var_89)))))" +"(if(not #f)(for-loop_6 fold-var_2 rest_48) fold-var_2)))" " fold-var_0)))))" " for-loop_6)" " null" -" lst_97)))))))" +" lst_100)))))))" "(define-values" "(interned-literal?)" -"(lambda(v_41)" +"(lambda(v_135)" "(begin" -"(let-values(((or-part_179)(null? v_41)))" -"(if or-part_179" -" or-part_179" -"(let-values(((or-part_180)(boolean? v_41)))" -"(if or-part_180" -" or-part_180" -"(let-values(((or-part_145)" -"(if(fixnum? v_41)(if(< v_41(sub1(expt 2 30)))(> v_41(-(expt 2 30))) #f) #f)))" -"(if or-part_145" -" or-part_145" -"(let-values(((or-part_181)(symbol? v_41)))" -"(if or-part_181" -" or-part_181" -"(let-values(((or-part_182)(char? v_41)))" -"(if or-part_182 or-part_182(keyword? v_41))))))))))))))" +"(let-values(((or-part_174)(null? v_135)))" +"(if or-part_174" +" or-part_174" +"(let-values(((or-part_175)(boolean? v_135)))" +"(if or-part_175" +" or-part_175" +"(let-values(((or-part_176)" +"(if(fixnum? v_135)(if(< v_135(sub1(expt 2 30)))(> v_135(-(expt 2 30))) #f) #f)))" +"(if or-part_176" +" or-part_176" +"(let-values(((or-part_138)(symbol? v_135)))" +"(if or-part_138" +" or-part_138" +"(let-values(((or-part_177)(char? v_135)))" +"(if or-part_177 or-part_177(keyword? v_135))))))))))))))" "(define-values" "(serialize-phase-to-link-module-uses)" "(lambda(phase-to-link-module-uses_0 mpis_5)" @@ -17691,47 +17371,47 @@ static const char *startup_source = "(apply" " append" "(reverse$1" -"(let-values(((lst_99) phases-in-order_0))" +"(let-values(((lst_102) phases-in-order_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_99)))" -"((letrec-values(((for-loop_114)" -"(lambda(fold-var_38 lst_100)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_102)))" +"((letrec-values(((for-loop_115)" +"(lambda(fold-var_90 lst_103)" "(begin" " 'for-loop" -"(if(pair? lst_100)" -"(let-values(((phase_44)(unsafe-car lst_100))((rest_48)(unsafe-cdr lst_100)))" -"(let-values(((fold-var_89)" -"(let-values(((fold-var_90) fold-var_38))" +"(if(pair? lst_103)" +"(let-values(((phase_46)(unsafe-car lst_103))((rest_49)(unsafe-cdr lst_103)))" "(let-values(((fold-var_91)" +"(let-values(((fold-var_92) fold-var_90))" +"(let-values(((fold-var_93)" "(let-values()" "(cons" "(let-values()" "(list" -" phase_44" +" phase_46" "(list*" " 'list" "(serialize-module-uses" "(hash-ref" " phase-to-link-module-uses_0" -" phase_44)" +" phase_46)" " mpis_5))))" -" fold-var_90))))" -"(values fold-var_91)))))" -"(if(not #f)(for-loop_114 fold-var_89 rest_48) fold-var_89)))" -" fold-var_38)))))" -" for-loop_114)" +" fold-var_92))))" +"(values fold-var_93)))))" +"(if(not #f)(for-loop_115 fold-var_91 rest_49) fold-var_91)))" +" fold-var_90)))))" +" for-loop_115)" " null" -" lst_99))))))))))" +" lst_102))))))))))" "(define-values" "(generate-deserialize6.1)" "(lambda(syntax-support?2_0 syntax-support?3_0 v4_0 mpis5_0)" "(begin" " 'generate-deserialize6" -"(let-values(((v_138) v4_0))" +"(let-values(((v_136) v4_0))" "(let-values(((mpis_6) mpis5_0))" "(let-values(((syntax-support?_0)(if syntax-support?3_0 syntax-support?2_0 #t)))" "(let-values()" -"(let-values(((reachable-scopes_6)(find-reachable-scopes v_138)))" +"(let-values(((reachable-scopes_6)(find-reachable-scopes v_136)))" "(let-values(((state_22)(make-serialize-state reachable-scopes_6)))" "(let-values(((mutables_0)(make-hasheq)))" "(let-values(((objs_0)(make-hasheq)))" @@ -17740,98 +17420,98 @@ static const char *startup_source = "(let-values(((frontier_0) null))" "(letrec-values(((add-frontier!_0)" "(case-lambda" -"((v_139)(begin 'add-frontier!(set! frontier_0(cons v_139 frontier_0))))" -"((kind_3 v_76)(add-frontier!_0 v_76)))))" +"((v_137)(begin 'add-frontier!(set! frontier_0(cons v_137 frontier_0))))" +"((kind_3 v_72)(add-frontier!_0 v_72)))))" "(let-values((()" "(begin" "((letrec-values(((frontier-loop_0)" -"(lambda(v_140)" +"(lambda(v_138)" "(begin" " 'frontier-loop" "(begin" -"((letrec-values(((loop_83)" -"(lambda(v_97)" +"((letrec-values(((loop_81)" +"(lambda(v_94)" "(begin" " 'loop" -"(if(let-values(((or-part_183)" +"(if(let-values(((or-part_178)" "(interned-literal?" -" v_97)))" -"(if or-part_183" -" or-part_183" +" v_94)))" +"(if or-part_178" +" or-part_178" "(1/module-path-index?" -" v_97)))" +" v_94)))" "(let-values()(void))" "(if(hash-ref" " objs_0" -" v_97" +" v_94" " #f)" "(let-values()" "(if(hash-ref" " mutables_0" -" v_97" +" v_94" " #f)" "(void)" "(let-values()" "(hash-set!" " shares_0" -" v_97" +" v_94" " #t))))" "(let-values()" "(begin" "(if(serialize-fill!?" -" v_97)" +" v_94)" "(let-values()" "(begin" "(hash-set!" " mutables_0" -" v_97" +" v_94" "(hash-count" " mutables_0))" "((serialize-fill!-ref" -" v_97)" -" v_97" +" v_94)" +" v_94" " add-frontier!_0" " state_22)))" "(if(serialize?" -" v_97)" +" v_94)" "(let-values()" "((serialize-ref" -" v_97)" -" v_97" +" v_94)" +" v_94" "(case-lambda" "((sub-v_0)" -"(loop_83" +"(loop_81" " sub-v_0))" "((kind_4" " sub-v_1)" -"(loop_83" +"(loop_81" " sub-v_1)))" " state_22))" -"(if(pair? v_97)" +"(if(pair? v_94)" "(let-values()" "(begin" -"(loop_83" +"(loop_81" "(car" -" v_97))" -"(loop_83" +" v_94))" +"(loop_81" "(cdr" -" v_97))))" +" v_94))))" "(if(vector?" -" v_97)" +" v_94)" "(let-values()" -"(if(let-values(((or-part_98)" +"(if(let-values(((or-part_88)" "(immutable?" -" v_97)))" -"(if or-part_98" -" or-part_98" +" v_94)))" +"(if or-part_88" +" or-part_88" "(zero?" "(vector-length" -" v_97))))" +" v_94))))" "(begin" "(let-values(((vec_34" " len_15)" "(let-values(((vec_35)" -" v_97))" +" v_94))" "(begin" "(check-vector" " vec_35)" @@ -17841,7 +17521,7 @@ static const char *startup_source = " vec_35))))))" "(begin" " #f" -"((letrec-values(((for-loop_115)" +"((letrec-values(((for-loop_116)" "(lambda(pos_22)" "(begin" " 'for-loop" @@ -17858,32 +17538,32 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_83" +"(loop_81" " e_18))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_115" +"(for-loop_116" "(unsafe-fx+" " 1" " pos_22))" "(values))))" "(values))))))" -" for-loop_115)" +" for-loop_116)" " 0)))" "(void))" "(begin" "(hash-set!" " mutables_0" -" v_97" +" v_94" "(hash-count" " mutables_0))" "(begin" "(let-values(((vec_36" " len_16)" "(let-values(((vec_37)" -" v_97))" +" v_94))" "(begin" "(check-vector" " vec_37)" @@ -17893,7 +17573,7 @@ static const char *startup_source = " vec_37))))))" "(begin" " #f" -"((letrec-values(((for-loop_116)" +"((letrec-values(((for-loop_117)" "(lambda(pos_23)" "(begin" " 'for-loop" @@ -17916,108 +17596,55 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_116" +"(for-loop_117" "(unsafe-fx+" " 1" " pos_23))" "(values))))" "(values))))))" -" for-loop_116)" +" for-loop_117)" " 0)))" "(void)))))" "(if(box?" -" v_97)" +" v_94)" "(let-values()" "(if(immutable?" -" v_97)" -"(loop_83" +" v_94)" +"(loop_81" "(unbox" -" v_97))" +" v_94))" "(begin" "(hash-set!" " mutables_0" -" v_97" +" v_94" "(hash-count" " mutables_0))" "(add-frontier!_0" "(unbox" -" v_97)))))" +" v_94)))))" "(if(hash?" -" v_97)" +" v_94)" "(let-values()" "(if(immutable?" -" v_97)" +" v_94)" "(begin" -"(let-values(((lst_101)" +"(let-values(((lst_33)" "(sorted-hash-keys" -" v_97)))" +" v_94)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_101)))" -"((letrec-values(((for-loop_117)" -"(lambda(lst_102)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_102)" -"(let-values(((k_20)" -"(unsafe-car" -" lst_102))" -"((rest_49)" -"(unsafe-cdr" -" lst_102)))" -"(let-values((()" -"(let-values()" -"(let-values((()" -"(let-values()" -"(begin" -"(let-values()" -"(begin" -"(loop_83" -" k_20)" -"(loop_83" -"(hash-ref" -" v_97" -" k_20))))" -"(values)))))" -"(values)))))" -"(if(not" -" #f)" -"(for-loop_117" -" rest_49)" -"(values))))" -"(values))))))" -" for-loop_117)" -" lst_101)))" -"(void))" -"(begin" -"(hash-set!" -" mutables_0" -" v_97" -"(hash-count" -" mutables_0))" -"(begin" -"(let-values(((lst_103)" -"(sorted-hash-keys" -" v_97)))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_103)))" -"((letrec-values(((for-loop_118)" +" lst_33)))" +"((letrec-values(((for-loop_25)" "(lambda(lst_104)" "(begin" " 'for-loop" "(if(pair?" " lst_104)" -"(let-values(((k_21)" +"(let-values(((k_20)" "(unsafe-car" " lst_104))" "((rest_50)" @@ -18030,25 +17657,78 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" +"(loop_81" +" k_20)" +"(loop_81" +"(hash-ref" +" v_94" +" k_20))))" +"(values)))))" +"(values)))))" +"(if(not" +" #f)" +"(for-loop_25" +" rest_50)" +"(values))))" +"(values))))))" +" for-loop_25)" +" lst_33)))" +"(void))" +"(begin" +"(hash-set!" +" mutables_0" +" v_94" +"(hash-count" +" mutables_0))" +"(begin" +"(let-values(((lst_105)" +"(sorted-hash-keys" +" v_94)))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_105)))" +"((letrec-values(((for-loop_118)" +"(lambda(lst_106)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_106)" +"(let-values(((k_21)" +"(unsafe-car" +" lst_106))" +"((rest_51)" +"(unsafe-cdr" +" lst_106)))" +"(let-values((()" +"(let-values()" +"(let-values((()" +"(let-values()" +"(begin" +"(let-values()" +"(begin" "(add-frontier!_0" " k_21)" "(add-frontier!_0" "(hash-ref" -" v_97" +" v_94" " k_21))))" "(values)))))" "(values)))))" "(if(not" " #f)" "(for-loop_118" -" rest_50)" +" rest_51)" "(values))))" "(values))))))" " for-loop_118)" -" lst_103)))" +" lst_105)))" "(void)))))" "(if(prefab-struct-key" -" v_97)" +" v_94)" "(let-values()" "(begin" "(let-values(((v*_2" @@ -18065,13 +17745,13 @@ static const char *startup_source = "(unsafe-vector-length" " x_45))" "(struct->vector" -" v_97)" +" v_94)" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_72)" +"((letrec-values(((for-loop_119)" "(lambda(idx_1)" "(begin" " 'for-loop" @@ -18088,23 +17768,23 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_83" +"(loop_81" " e_20))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_72" +"(for-loop_119" "(unsafe-fx+" " idx_1" " 1))" "(values))))" "(values))))))" -" for-loop_72)" +" for-loop_119)" " start*_1)))" "(void)))" "(if(srcloc?" -" v_97)" +" v_94)" "(let-values()" "(begin" "(let-values(((v*_3" @@ -18121,13 +17801,13 @@ static const char *startup_source = "(unsafe-vector-length" " x_47))" "(struct->vector" -" v_97)" +" v_94)" " 1" " #f" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_119)" +"((letrec-values(((for-loop_120)" "(lambda(idx_2)" "(begin" " 'for-loop" @@ -18144,57 +17824,57 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_83" +"(loop_81" " e_21))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_119" +"(for-loop_120" "(unsafe-fx+" " idx_2" " 1))" "(values))))" "(values))))))" -" for-loop_119)" +" for-loop_120)" " start*_2)))" "(void)))" "(let-values()" "(void))))))))))" "(hash-set!" " objs_0" -" v_97" +" v_94" " obj-step_0)" "(set! obj-step_0" "(add1" " obj-step_0))))))))))" -" loop_83)" -" v_140)" +" loop_81)" +" v_138)" "(if(null? frontier_0)" "(void)" "(let-values()" "(let-values(((l_49) frontier_0))" "(begin" "(set! frontier_0 null)" -"(let-values(((lst_105) l_49))" +"(let-values(((lst_107) l_49))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_105)))" -"((letrec-values(((for-loop_120)" -"(lambda(lst_106)" +"(check-list lst_107)))" +"((letrec-values(((for-loop_121)" +"(lambda(lst_108)" "(begin" " 'for-loop" "(if(pair?" -" lst_106)" -"(let-values(((v_141)" +" lst_108)" +"(let-values(((v_139)" "(unsafe-car" -" lst_106))" -"((rest_51)" +" lst_108))" +"((rest_52)" "(unsafe-cdr" -" lst_106)))" +" lst_108)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -18202,65 +17882,65 @@ static const char *startup_source = "(begin" "(let-values()" "(frontier-loop_0" -" v_141))" +" v_139))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_120" -" rest_51)" +"(for-loop_121" +" rest_52)" "(values))))" "(values))))))" -" for-loop_120)" -" lst_105)))" +" for-loop_121)" +" lst_107)))" "(void))))))))))" " frontier-loop_0)" -" v_138)" +" v_136)" "(values))))" "(let-values(((num-mutables_0)(hash-count mutables_0)))" "(let-values(((share-step-positions_0)" "(let-values(((share-steps_0)" "(reverse$1" -"(let-values(((ht_84) shares_0))" +"(let-values(((ht_85) shares_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_84)))" -"((letrec-values(((for-loop_121)" -"(lambda(fold-var_92 i_105)" +"(let-values()(check-in-hash-keys ht_85)))" +"((letrec-values(((for-loop_122)" +"(lambda(fold-var_94 i_107)" "(begin" " 'for-loop" -"(if i_105" +"(if i_107" "(let-values(((obj_0)" "(hash-iterate-key" -" ht_84" -" i_105)))" -"(let-values(((fold-var_93)" -"(let-values(((fold-var_94)" -" fold-var_92))" +" ht_85" +" i_107)))" "(let-values(((fold-var_95)" +"(let-values(((fold-var_96)" +" fold-var_94))" +"(let-values(((fold-var_97)" "(let-values()" "(cons" "(let-values()" "(hash-ref" " objs_0" " obj_0))" -" fold-var_94))))" +" fold-var_96))))" "(values" -" fold-var_95)))))" +" fold-var_97)))))" "(if(not #f)" -"(for-loop_121" -" fold-var_93" +"(for-loop_122" +" fold-var_95" "(hash-iterate-next" -" ht_84" -" i_105))" -" fold-var_93)))" -" fold-var_92)))))" -" for-loop_121)" +" ht_85" +" i_107))" +" fold-var_95)))" +" fold-var_94)))))" +" for-loop_122)" " null" -"(hash-iterate-first ht_84)))))))" -"(let-values(((lst_107)" +"(hash-iterate-first ht_85)))))))" +"(let-values(((lst_109)" "(let-values(((share-steps12_0) share-steps_0)" "((<13_0) <))" "(sort7.1 #f #f #f #f share-steps12_0 <13_0)))" @@ -18268,19 +17948,19 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_107)))" +"(let-values()(check-list lst_109)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_20)))" -"((letrec-values(((for-loop_122)" -"(lambda(table_110 lst_108 pos_24)" +"((letrec-values(((for-loop_123)" +"(lambda(table_110 lst_110 pos_24)" "(begin" " 'for-loop" -"(if(if(pair? lst_108) #t #f)" +"(if(if(pair? lst_110) #t #f)" "(let-values(((step_3)" -"(unsafe-car lst_108))" -"((rest_52)" -"(unsafe-cdr lst_108))" +"(unsafe-car lst_110))" +"((rest_53)" +"(unsafe-cdr lst_110))" "((pos_25) pos_24))" "(let-values(((table_111)" "(let-values(((table_112)" @@ -18288,7 +17968,7 @@ static const char *startup_source = "(let-values(((table_113)" "(let-values()" "(let-values(((key_44" -" val_38)" +" val_37)" "(let-values()" "(values" " step_3" @@ -18296,18 +17976,18 @@ static const char *startup_source = "(hash-set" " table_112" " key_44" -" val_38)))))" +" val_37)))))" "(values table_113)))))" "(if(not #f)" -"(for-loop_122" +"(for-loop_123" " table_111" -" rest_52" +" rest_53" "(+ pos_24 1))" " table_111)))" " table_110)))))" -" for-loop_122)" +" for-loop_123)" " '#hasheqv()" -" lst_107" +" lst_109" " start_20))))))" "(let-values(((stream_0) null))" "(let-values(((stream-size_0) 0))" @@ -18317,12 +17997,12 @@ static const char *startup_source = "(lambda(pos_26)" "(begin" " 'quoted?" -"(let-values(((v_142)" +"(let-values(((v_140)" "(list-ref" " stream_0" "(- stream-size_0(add1 pos_26)))))" -"(let-values(((or-part_184)(not(keyword? v_142))))" -"(if or-part_184 or-part_184(eq? '#:quote v_142))))))))" +"(let-values(((or-part_179)(not(keyword? v_140))))" +"(if or-part_179 or-part_179(eq? '#:quote v_140))))))))" "(let-values(((ser-reset!_0)" "(lambda(pos_27)" "(begin" @@ -18341,70 +18021,70 @@ static const char *startup_source = "(set! stream-size_0 0))))))" "(letrec-values(((ser-push!_15)" "(case-lambda" -"((v_143)" +"((v_141)" "(begin" " 'ser-push!" -"(if(hash-ref shares_0 v_143 #f)" +"(if(hash-ref shares_0 v_141 #f)" +"(let-values()" +"(let-values(((n_21)" +"(hash-ref" +" share-step-positions_0" +"(hash-ref objs_0 v_141))))" +"(begin" +"(ser-push!_15 'tag '#:ref)" +"(ser-push!_15 'exact n_21))))" +"(let-values(((c1_23)" +"(hash-ref mutables_0 v_141 #f)))" +"(if c1_23" +"((lambda(n_22)" +"(begin" +"(ser-push!_15 'tag '#:ref)" +"(ser-push!_15 'exact n_22)))" +" c1_23)" +"(let-values()" +"(ser-push-encoded!_0 v_141)))))))" +"((kind_5 v_142)" +"(let-values(((tmp_18) kind_5))" +"(if(equal? tmp_18 'exact)" +"(let-values()" +"(begin" +"(set! stream_0(cons v_142 stream_0))" +"(set! stream-size_0(add1 stream-size_0))))" +"(if(equal? tmp_18 'tag)" +"(let-values()(ser-push!_15 'exact v_142))" +"(if(equal? tmp_18 'reference)" +"(let-values()" +"(if(hash-ref shares_0 v_142 #f)" "(let-values()" "(let-values(((n_23)" "(hash-ref" " share-step-positions_0" -"(hash-ref objs_0 v_143))))" -"(begin" -"(ser-push!_15 'tag '#:ref)" -"(ser-push!_15 'exact n_23))))" -"(let-values(((c1_23)" -"(hash-ref mutables_0 v_143 #f)))" -"(if c1_23" -"((lambda(n_24)" -"(begin" -"(ser-push!_15 'tag '#:ref)" -"(ser-push!_15 'exact n_24)))" -" c1_23)" -"(let-values()" -"(ser-push-encoded!_0 v_143)))))))" -"((kind_5 v_144)" -"(let-values(((tmp_19) kind_5))" -"(if(equal? tmp_19 'exact)" -"(let-values()" -"(begin" -"(set! stream_0(cons v_144 stream_0))" -"(set! stream-size_0(add1 stream-size_0))))" -"(if(equal? tmp_19 'tag)" -"(let-values()(ser-push!_15 'exact v_144))" -"(if(equal? tmp_19 'reference)" -"(let-values()" -"(if(hash-ref shares_0 v_144 #f)" -"(let-values()" -"(let-values(((n_25)" -"(hash-ref" -" share-step-positions_0" "(hash-ref" " objs_0" -" v_144))))" -"(ser-push!_15 'exact n_25)))" +" v_142))))" +"(ser-push!_15 'exact n_23)))" "(let-values(((c2_1)" "(hash-ref" " mutables_0" -" v_144" +" v_142" " #f)))" "(if c2_1" -"((lambda(n_26)" -"(ser-push!_15 'exact n_26))" +"((lambda(n_24)" +"(ser-push!_15 'exact n_24))" " c2_1)" "(let-values()" -"(ser-push!_15 v_144))))))" -"(let-values()(ser-push!_15 v_144)))))))))" +"(ser-push!_15 v_142))))))" +"(let-values()(ser-push!_15 v_142)))))))))" "((ser-push-encoded!_0)" -"(lambda(v_145)" +"(lambda(v_143)" "(begin" " 'ser-push-encoded!" -"(if(keyword? v_145)" +"(if(keyword? v_143)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:quote)" -"(ser-push!_15 'exact v_145)))" -"(if(1/module-path-index? v_145)" +"(ser-push!_15 'exact v_143)))" +"(if(1/module-path-index? v_143)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:mpi)" @@ -18412,16 +18092,16 @@ static const char *startup_source = " 'exact" "(add-module-path-index!/pos" " mpis_6" -" v_145))))" -"(if(serialize? v_145)" +" v_143))))" +"(if(serialize? v_143)" "(let-values()" -"((serialize-ref v_145)" -" v_145" +"((serialize-ref v_143)" +" v_143" " ser-push!_15" " state_22))" -"(if(if(list? v_145)" -"(if(pair? v_145)" -"(pair?(cdr v_145))" +"(if(if(list? v_143)" +"(if(pair? v_143)" +"(pair?(cdr v_143))" " #f)" " #f)" "(let-values()" @@ -18437,31 +18117,31 @@ static const char *startup_source = "(begin" "(ser-push!_15" " 'exact" -"(length v_145))" +"(length v_143))" "(values))))" "(let-values(((all-quoted?_0)" -"(let-values(((lst_109)" -" v_145))" +"(let-values(((lst_111)" +" v_143))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_109)))" -"((letrec-values(((for-loop_123)" +" lst_111)))" +"((letrec-values(((for-loop_124)" "(lambda(all-quoted?_1" -" lst_42)" +" lst_43)" "(begin" " 'for-loop" "(if(pair?" -" lst_42)" -"(let-values(((i_106)" +" lst_43)" +"(let-values(((i_108)" "(unsafe-car" -" lst_42))" -"((rest_53)" +" lst_43))" +"((rest_54)" "(unsafe-cdr" -" lst_42)))" +" lst_43)))" "(let-values(((all-quoted?_2)" "(let-values(((all-quoted?_3)" " all-quoted?_1))" @@ -18471,7 +18151,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_15" -" i_106)" +" i_108)" "(if all-quoted?_3" "(quoted?_0" " i-pos_0)" @@ -18480,14 +18160,14 @@ static const char *startup_source = " all-quoted?_4)))))" "(if(not" " #f)" -"(for-loop_123" +"(for-loop_124" " all-quoted?_2" -" rest_53)" +" rest_54)" " all-quoted?_2)))" " all-quoted?_1)))))" -" for-loop_123)" +" for-loop_124)" " #t" -" lst_109)))))" +" lst_111)))))" "(if all-quoted?_0" "(let-values()" "(begin" @@ -18495,9 +18175,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_145)))" +" v_143)))" "(void)))))))" -"(if(pair? v_145)" +"(if(pair? v_143)" "(let-values()" "(let-values(((start-pos_1)" "(next-push-position_0)))" @@ -18512,12 +18192,12 @@ static const char *startup_source = "(let-values((()" "(begin" "(ser-push!_15" -"(car v_145))" +"(car v_143))" "(values))))" "(let-values(((d-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_15(cdr v_145))" +"(ser-push!_15(cdr v_143))" "(if(if(quoted?_0 a-pos_0)" "(quoted?_0 d-pos_0)" " #f)" @@ -18528,9 +18208,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_145)))" +" v_143)))" "(void)))))))))" -"(if(box? v_145)" +"(if(box? v_143)" "(let-values()" "(let-values(((start-pos_2)" "(next-push-position_0)))" @@ -18543,7 +18223,7 @@ static const char *startup_source = "(let-values(((v-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_15(unbox v_145))" +"(ser-push!_15(unbox v_143))" "(if(quoted?_0 v-pos_0)" "(let-values()" "(begin" @@ -18552,9 +18232,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_145)))" +" v_143)))" "(void)))))))" -"(if(vector? v_145)" +"(if(vector? v_143)" "(let-values()" "(let-values(((start-pos_3)" "(next-push-position_0)))" @@ -18569,13 +18249,13 @@ static const char *startup_source = "(ser-push!_15" " 'exact" "(vector-length" -" v_145))" +" v_143))" "(values))))" "(let-values(((all-quoted?_5)" "(let-values(((vec_38" " len_17)" "(let-values(((vec_39)" -" v_145))" +" v_143))" "(begin" "(check-vector" " vec_39)" @@ -18585,7 +18265,7 @@ static const char *startup_source = " vec_39))))))" "(begin" " #f" -"((letrec-values(((for-loop_124)" +"((letrec-values(((for-loop_73)" "(lambda(all-quoted?_6" " pos_28)" "(begin" @@ -18593,7 +18273,7 @@ static const char *startup_source = "(if(unsafe-fx<" " pos_28" " len_17)" -"(let-values(((i_107)" +"(let-values(((i_109)" "(unsafe-vector-ref" " vec_38" " pos_28)))" @@ -18606,7 +18286,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_15" -" i_107)" +" i_109)" "(if all-quoted?_8" "(quoted?_0" " i-pos_1)" @@ -18615,14 +18295,14 @@ static const char *startup_source = " all-quoted?_9)))))" "(if(not" " #f)" -"(for-loop_124" +"(for-loop_73" " all-quoted?_7" "(unsafe-fx+" " 1" " pos_28))" " all-quoted?_7)))" " all-quoted?_6)))))" -" for-loop_124)" +" for-loop_73)" " #t" " 0)))))" "(if all-quoted?_5" @@ -18633,82 +18313,82 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_145)))" +" v_143)))" "(void)))))))" -"(if(hash? v_145)" +"(if(hash? v_143)" "(let-values()" "(let-values(((start-pos_4)" "(next-push-position_0)))" "(let-values(((as-set?_0)" -"(let-values(((ht_85)" -" v_145))" +"(let-values(((ht_86)" +" v_143))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-in-hash-values" -" ht_85)))" +" ht_86)))" "((letrec-values(((for-loop_125)" -"(lambda(result_64" -" i_108)" +"(lambda(result_66" +" i_110)" "(begin" " 'for-loop" -"(if i_108" -"(let-values(((val_39)" +"(if i_110" +"(let-values(((val_38)" "(hash-iterate-value" -" ht_85" -" i_108)))" -"(let-values(((result_65)" +" ht_86" +" i_110)))" +"(let-values(((result_67)" "(let-values()" -"(let-values(((result_66)" +"(let-values(((result_68)" "(let-values()" "(let-values()" "(eq?" -" val_39" +" val_38" " #t)))))" "(values" -" result_66)))))" +" result_68)))))" "(if(if(not" "((lambda x_48" "(not" -" result_65))" -" val_39))" +" result_67))" +" val_38))" "(not" " #f)" " #f)" "(for-loop_125" -" result_65" +" result_67" "(hash-iterate-next" -" ht_85" -" i_108))" -" result_65)))" -" result_64)))))" +" ht_86" +" i_110))" +" result_67)))" +" result_66)))))" " for-loop_125)" " #t" "(hash-iterate-first" -" ht_85))))))" +" ht_86))))))" "(let-values((()" "(begin" "(ser-push!_15" " 'tag" "(if as-set?_0" "(if(hash-eq?" -" v_145)" +" v_143)" "(let-values()" " '#:seteq)" "(if(hash-eqv?" -" v_145)" +" v_143)" "(let-values()" " '#:seteqv)" "(let-values()" " '#:set)))" "(if(hash-eq?" -" v_145)" +" v_143)" "(let-values()" " '#:hasheq)" "(if(hash-eqv?" -" v_145)" +" v_143)" "(let-values()" " '#:hasheqv)" "(let-values()" @@ -18719,13 +18399,13 @@ static const char *startup_source = "(ser-push!_15" " 'exact" "(hash-count" -" v_145))" +" v_143))" "(values))))" "(let-values(((ks_0)" "(sorted-hash-keys" -" v_145)))" +" v_143)))" "(let-values(((all-quoted?_10)" -"(let-values(((lst_110)" +"(let-values(((lst_112)" " ks_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -18733,20 +18413,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_110)))" +" lst_112)))" "((letrec-values(((for-loop_126)" "(lambda(all-quoted?_11" -" lst_111)" +" lst_113)" "(begin" " 'for-loop" "(if(pair?" -" lst_111)" +" lst_113)" "(let-values(((k_22)" "(unsafe-car" -" lst_111))" -"((rest_54)" +" lst_113))" +"((rest_55)" "(unsafe-cdr" -" lst_111)))" +" lst_113)))" "(let-values(((all-quoted?_12)" "(let-values(((all-quoted?_13)" " all-quoted?_11))" @@ -18767,15 +18447,15 @@ static const char *startup_source = "(let-values()" "(ser-push!_15" "(hash-ref" -" v_145" +" v_143" " k_22))))" "(if all-quoted?_13" "(if(quoted?_0" " k-pos_0)" -"(let-values(((or-part_185)" +"(let-values(((or-part_180)" " as-set?_0))" -"(if or-part_185" -" or-part_185" +"(if or-part_180" +" or-part_180" "(quoted?_0" " v-pos_1)))" " #f)" @@ -18786,12 +18466,12 @@ static const char *startup_source = " #f)" "(for-loop_126" " all-quoted?_12" -" rest_54)" +" rest_55)" " all-quoted?_12)))" " all-quoted?_11)))))" " for-loop_126)" " #t" -" lst_110)))))" +" lst_112)))))" "(if all-quoted?_10" "(let-values()" "(begin" @@ -18800,16 +18480,16 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_145)))" +" v_143)))" "(void)))))))))" "(let-values(((c3_0)" "(prefab-struct-key" -" v_145)))" +" v_143)))" "(if c3_0" "((lambda(k_23)" "(let-values(((vec_40)" "(struct->vector" -" v_145)))" +" v_143)))" "(let-values(((start-pos_5)" "(next-push-position_0)))" "(let-values((()" @@ -18860,7 +18540,7 @@ static const char *startup_source = "(if(unsafe-fx<" " idx_3" " stop*_4)" -"(let-values(((i_109)" +"(let-values(((i_111)" "(unsafe-vector-ref" " v*_4" " idx_3)))" @@ -18873,7 +18553,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_15" -" i_109)" +" i_111)" "(if all-quoted?_18" "(quoted?_0" " i-pos_2)" @@ -18900,91 +18580,91 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_145)))" +" v_143)))" "(void)))))))))" " c3_0)" -"(if(srcloc? v_145)" +"(if(srcloc? v_143)" "(let-values()" "(begin" "(ser-push!_15" " 'tag" " '#:srcloc)" "(ser-push!_15" -"(srcloc-source v_145))" +"(srcloc-source v_143))" "(ser-push!_15" -"(srcloc-line v_145))" +"(srcloc-line v_143))" "(ser-push!_15" -"(srcloc-column v_145))" +"(srcloc-column v_143))" "(ser-push!_15" -"(srcloc-position v_145))" +"(srcloc-position v_143))" "(ser-push!_15" -"(srcloc-span v_145))))" +"(srcloc-span v_143))))" "(let-values()" "(begin" "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_145)))))))))))))))))" +" v_143)))))))))))))))))" "((ser-push-optional-quote!_0)" "(lambda()(begin 'ser-push-optional-quote!(void)))))" "(let-values(((ser-shell!_0)" -"(lambda(v_146)" +"(lambda(v_144)" "(begin" " 'ser-shell!" -"(if(serialize-fill!? v_146)" +"(if(serialize-fill!? v_144)" "(let-values()" -"((serialize-ref v_146)" -" v_146" +"((serialize-ref v_144)" +" v_144" " ser-push!_15" " state_22))" -"(if(box? v_146)" +"(if(box? v_144)" "(let-values()(ser-push!_15 'tag '#:box))" -"(if(vector? v_146)" +"(if(vector? v_144)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:vector)" "(ser-push!_15" " 'exact" -"(vector-length v_146))))" -"(if(hash? v_146)" +"(vector-length v_144))))" +"(if(hash? v_144)" "(let-values()" "(ser-push!_15" " 'tag" -"(if(hash-eq? v_146)" +"(if(hash-eq? v_144)" "(let-values() '#:hasheq)" -"(if(hash-eqv? v_146)" +"(if(hash-eqv? v_144)" "(let-values() '#:hasheqv)" "(let-values() '#:hash)))))" "(let-values()" "(error" " 'ser-shell" " \"unknown mutable: ~e\"" -" v_146))))))))))" +" v_144))))))))))" "(let-values(((ser-shell-fill!_0)" -"(lambda(v_147)" +"(lambda(v_145)" "(begin" " 'ser-shell-fill!" -"(if(serialize-fill!? v_147)" +"(if(serialize-fill!? v_145)" "(let-values()" -"((serialize-fill!-ref v_147)" -" v_147" +"((serialize-fill!-ref v_145)" +" v_145" " ser-push!_15" " state_22))" -"(if(box? v_147)" +"(if(box? v_145)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:set-box!)" -"(ser-push!_15(unbox v_147))))" -"(if(vector? v_147)" +"(ser-push!_15(unbox v_145))))" +"(if(vector? v_145)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:set-vector!)" "(ser-push!_15" " 'exact" -"(vector-length v_147))" +"(vector-length v_145))" "(let-values(((vec_41 len_18)" "(let-values(((vec_42)" -" v_147))" +" v_145))" "(begin" "(check-vector vec_42)" "(values" @@ -19000,7 +18680,7 @@ static const char *startup_source = "(if(unsafe-fx<" " pos_29" " len_18)" -"(let-values(((v_148)" +"(let-values(((v_146)" "(unsafe-vector-ref" " vec_41" " pos_29)))" @@ -19011,7 +18691,7 @@ static const char *startup_source = "(begin" "(let-values()" "(ser-push!_15" -" v_148))" +" v_146))" "(values)))))" "(values)))))" "(if(not" @@ -19025,7 +18705,7 @@ static const char *startup_source = " for-loop_128)" " 0)))" "(void)))" -"(if(hash? v_147)" +"(if(hash? v_145)" "(let-values()" "(let-values((()" "(begin" @@ -19037,31 +18717,31 @@ static const char *startup_source = "(begin" "(ser-push!_15" " 'exact" -"(hash-count v_147))" +"(hash-count v_145))" "(values))))" "(let-values(((ks_1)" "(sorted-hash-keys" -" v_147)))" +" v_145)))" "(begin" -"(let-values(((lst_112) ks_1))" +"(let-values(((lst_114) ks_1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_112)))" +"(check-list lst_114)))" "((letrec-values(((for-loop_129)" -"(lambda(lst_113)" +"(lambda(lst_115)" "(begin" " 'for-loop" "(if(pair?" -" lst_113)" +" lst_115)" "(let-values(((k_24)" "(unsafe-car" -" lst_113))" -"((rest_55)" +" lst_115))" +"((rest_56)" "(unsafe-cdr" -" lst_113)))" +" lst_115)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -19073,69 +18753,69 @@ static const char *startup_source = " k_24)" "(ser-push!_15" "(hash-ref" -" v_147" +" v_145" " k_24))))" "(values)))))" "(values)))))" "(if(not" " #f)" "(for-loop_129" -" rest_55)" +" rest_56)" "(values))))" "(values))))))" " for-loop_129)" -" lst_112)))" +" lst_114)))" "(void))))))" "(let-values()" "(error" " 'ser-shell-fill" " \"unknown mutable: ~e\"" -" v_147))))))))))" +" v_145))))))))))" "(let-values(((rev-mutables_0)" -"(let-values(((ht_86) mutables_0))" +"(let-values(((ht_87) mutables_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_86)))" +"(let-values()(check-in-hash ht_87)))" "((letrec-values(((for-loop_130)" -"(lambda(table_114 i_110)" +"(lambda(table_114 i_112)" "(begin" " 'for-loop" -"(if i_110" +"(if i_112" "(let-values(((k_25" -" v_149)" +" v_147)" "(hash-iterate-key+value" -" ht_86" -" i_110)))" +" ht_87" +" i_112)))" "(let-values(((table_115)" "(let-values(((table_116)" " table_114))" "(let-values(((table_117)" "(let-values()" "(let-values(((key_45" -" val_40)" +" val_39)" "(let-values()" "(values" -" v_149" +" v_147" " k_25))))" "(hash-set" " table_116" " key_45" -" val_40)))))" +" val_39)))))" "(values" " table_117)))))" "(if(not #f)" "(for-loop_130" " table_115" "(hash-iterate-next" -" ht_86" -" i_110))" +" ht_87" +" i_112))" " table_115)))" " table_114)))))" " for-loop_130)" " '#hasheqv()" -"(hash-iterate-first ht_86))))))" +"(hash-iterate-first ht_87))))))" "(let-values(((mutable-shell-bindings_0)" "(begin" "(begin" @@ -19182,29 +18862,29 @@ static const char *startup_source = "(void))" "(reap-stream!_0))))" "(let-values(((rev-shares_0)" -"(let-values(((ht_87) shares_0))" +"(let-values(((ht_88) shares_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash-keys ht_87)))" +"(check-in-hash-keys ht_88)))" "((letrec-values(((for-loop_132)" -"(lambda(table_118 i_111)" +"(lambda(table_118 i_113)" "(begin" " 'for-loop" -"(if i_111" +"(if i_113" "(let-values(((obj_1)" "(hash-iterate-key" -" ht_87" -" i_111)))" +" ht_88" +" i_113)))" "(let-values(((table_119)" "(let-values(((table_120)" " table_118))" "(let-values(((table_121)" "(let-values()" "(let-values(((key_46" -" val_41)" +" val_40)" "(let-values()" "(values" "(hash-ref" @@ -19216,20 +18896,20 @@ static const char *startup_source = "(hash-set" " table_120" " key_46" -" val_41)))))" +" val_40)))))" "(values" " table_121)))))" "(if(not #f)" "(for-loop_132" " table_119" "(hash-iterate-next" -" ht_87" -" i_111))" +" ht_88" +" i_113))" " table_119)))" " table_118)))))" " for-loop_132)" " '#hasheqv()" -"(hash-iterate-first ht_87))))))" +"(hash-iterate-first ht_88))))))" "(let-values(((shared-bindings_0)" "(begin" "(begin" @@ -19255,7 +18935,7 @@ static const char *startup_source = "(if(<" " pos_31" " end_14)" -"(let-values(((i_112)" +"(let-values(((i_114)" " pos_31))" "(let-values((()" "(let-values()" @@ -19266,7 +18946,7 @@ static const char *startup_source = "(ser-push-encoded!_0" "(hash-ref" " rev-shares_0" -" i_112)))" +" i_114)))" "(values)))))" "(values)))))" "(if(not" @@ -19304,7 +18984,7 @@ static const char *startup_source = "(if(<" " pos_32" " end_15)" -"(let-values(((i_113)" +"(let-values(((i_115)" " pos_32))" "(let-values((()" "(let-values()" @@ -19315,7 +18995,7 @@ static const char *startup_source = "(ser-shell-fill!_0" "(hash-ref" " rev-mutables_0" -" i_113)))" +" i_115)))" "(values)))))" "(values)))))" "(if(not" @@ -19343,13 +19023,13 @@ static const char *startup_source = "(list" " 'quote" "(begin" -"(ser-push!_15 v_138)" +"(ser-push!_15 v_136)" "(reap-stream!_0))))))))))))))))))))))))))))))))))))" "(define-values" "(sorted-hash-keys)" -"(lambda(ht_88)" +"(lambda(ht_89)" "(begin" -"(let-values(((ks_2)(hash-keys ht_88)))" +"(let-values(((ks_2)(hash-keys ht_89)))" "(if(null? ks_2)" "(let-values() ks_2)" "(if(null?(cdr ks_2))" @@ -19392,7 +19072,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_34 end_16)" -"(let-values(((i_114) pos_34))" +"(let-values(((i_116) pos_34))" "(let-values(((pos_35)" "(let-values(((pos_36) pos_33))" "(let-values(((pos_37)" @@ -19408,7 +19088,7 @@ static const char *startup_source = "(begin" "(vector-set!" " shared_0" -" i_114" +" i_116" " d_22)" " next-pos_0)))))" "(values pos_37)))))" @@ -19432,7 +19112,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_39 end_17)" -"(let-values(((i_115) pos_39))" +"(let-values(((i_117) pos_39))" "(let-values(((pos_40)" "(let-values(((pos_41) pos_38))" "(let-values(((pos_42)" @@ -19448,7 +19128,7 @@ static const char *startup_source = "(begin" "(vector-set!" " shared_0" -" i_115" +" i_117" " d_23)" " next-pos_1)))))" "(values pos_42)))))" @@ -19478,13 +19158,13 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(if(< pos_44 end_18)(unsafe-fx< pos_45 len_19) #f)" -"(let-values(((v_150)(unsafe-vector-ref vec_43 pos_45)))" +"(let-values(((v_148)(unsafe-vector-ref vec_43 pos_45)))" "(let-values(((pos_46)" "(let-values(((pos_47) pos_43))" "(let-values(((pos_48)" "(let-values()" "(decode-fill!" -" v_150" +" v_148" " mutable-fill-vec_0" " pos_47" " mpis_7" @@ -19504,23 +19184,23 @@ static const char *startup_source = " start_26" " 0)))" "(values))))" -"(let-values(((result_67 done-pos_0)" +"(let-values(((result_69 done-pos_0)" "(decode result-vec_0 0 mpis_7 inspector_5 bulk-binding-registry_5 shared_0)))" -" result_67))))))))" +" result_69))))))))" "(define-values" "(decode-shell)" "(lambda(vec_4 pos_49 mpis_8 inspector_6 bulk-binding-registry_6 shared_1)" "(begin" -"(let-values(((tmp_20)(vector*-ref vec_4 pos_49)))" -"(if(equal? tmp_20 '#:box)" +"(let-values(((tmp_19)(vector*-ref vec_4 pos_49)))" +"(if(equal? tmp_19 '#:box)" "(let-values()(values(box #f)(add1 pos_49)))" -"(if(equal? tmp_20 '#:vector)" +"(if(equal? tmp_19 '#:vector)" "(let-values()(values(make-vector(vector*-ref vec_4(add1 pos_49)))(+ pos_49 2)))" -"(if(equal? tmp_20 '#:hash)" +"(if(equal? tmp_19 '#:hash)" "(let-values()(values(make-hasheq)(add1 pos_49)))" -"(if(equal? tmp_20 '#:hasheq)" +"(if(equal? tmp_19 '#:hasheq)" "(let-values()(values(make-hasheq)(add1 pos_49)))" -"(if(equal? tmp_20 '#:hasheqv)" +"(if(equal? tmp_19 '#:hasheqv)" "(let-values()(values(make-hasheqv)(add1 pos_49)))" "(let-values()(decode vec_4 pos_49 mpis_8 inspector_6 bulk-binding-registry_6 shared_1)))))))))))" "(define-values" @@ -19528,9 +19208,9 @@ static const char *startup_source = "(lambda(vec_45 pos_50 mpis_9 inspector_7 bulk-binding-registry_7 shared_2)" "(begin" "(let-values()" -"(let-values(((tmp_21)(vector*-ref vec_45 pos_50)))" +"(let-values(((tmp_20)(vector*-ref vec_45 pos_50)))" "(let-values(((index_0)" -"(if(keyword? tmp_21)" +"(if(keyword? tmp_20)" "(hash-ref" " '#hasheq((#:scope+kind . 17)" "(#:seteqv . 14)" @@ -19564,7 +19244,7 @@ static const char *startup_source = "(#:datum->syntax . 5)" "(#:syntax+props . 6)" "(#:representative-scope . 22))" -" tmp_21" +" tmp_20" "(lambda() 0))" " 0)))" "(if(unsafe-fx< index_0 13)" @@ -19588,9 +19268,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(let-values(((context_2 next-pos_3)" -"(let-values(((i_116)(vector*-ref vec_45 next-pos_2)))" -"(if(exact-integer? i_116)" -"(values(vector*-ref shared_2 i_116)(add1 next-pos_2))" +"(let-values(((i_118)(vector*-ref vec_45 next-pos_2)))" +"(if(exact-integer? i_118)" +"(values(vector*-ref shared_2 i_118)(add1 next-pos_2))" "(decode" " vec_45" " next-pos_2" @@ -19599,9 +19279,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_3 next-pos_4)" -"(let-values(((i_117)(vector*-ref vec_45 next-pos_3)))" -"(if(exact-integer? i_117)" -"(values(vector*-ref shared_2 i_117)(add1 next-pos_3))" +"(let-values(((i_119)(vector*-ref vec_45 next-pos_3)))" +"(if(exact-integer? i_119)" +"(values(vector*-ref shared_2 i_119)(add1 next-pos_3))" "(decode" " vec_45" " next-pos_3" @@ -19622,9 +19302,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(let-values(((context_3 next-pos_6)" -"(let-values(((i_118)(vector*-ref vec_45 next-pos_5)))" -"(if(exact-integer? i_118)" -"(values(vector*-ref shared_2 i_118)(add1 next-pos_5))" +"(let-values(((i_120)(vector*-ref vec_45 next-pos_5)))" +"(if(exact-integer? i_120)" +"(values(vector*-ref shared_2 i_120)(add1 next-pos_5))" "(decode" " vec_45" " next-pos_5" @@ -19633,9 +19313,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_4 next-pos_7)" -"(let-values(((i_119)(vector*-ref vec_45 next-pos_6)))" -"(if(exact-integer? i_119)" -"(values(vector*-ref shared_2 i_119)(add1 next-pos_6))" +"(let-values(((i_121)(vector*-ref vec_45 next-pos_6)))" +"(if(exact-integer? i_121)" +"(values(vector*-ref shared_2 i_121)(add1 next-pos_6))" "(decode" " vec_45" " next-pos_6" @@ -19652,9 +19332,9 @@ static const char *startup_source = "(let-values(((content_9 next-pos_8)" "(decode vec_45(add1 pos_50) mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))" "(let-values(((context_4 next-pos_9)" -"(let-values(((i_120)(vector*-ref vec_45 next-pos_8)))" -"(if(exact-integer? i_120)" -"(values(vector*-ref shared_2 i_120)(add1 next-pos_8))" +"(let-values(((i_122)(vector*-ref vec_45 next-pos_8)))" +"(if(exact-integer? i_122)" +"(values(vector*-ref shared_2 i_122)(add1 next-pos_8))" "(decode" " vec_45" " next-pos_8" @@ -19663,9 +19343,9 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_5 next-pos_10)" -"(let-values(((i_121)(vector*-ref vec_45 next-pos_9)))" -"(if(exact-integer? i_121)" -"(values(vector*-ref shared_2 i_121)(add1 next-pos_9))" +"(let-values(((i_123)(vector*-ref vec_45 next-pos_9)))" +"(if(exact-integer? i_123)" +"(values(vector*-ref shared_2 i_123)(add1 next-pos_9))" "(decode" " vec_45" " next-pos_9" @@ -19740,7 +19420,7 @@ static const char *startup_source = "(let-values()(values(vector*-ref mpis_9(vector*-ref vec_45(add1 pos_50)))(+ pos_50 2)))" "(if(unsafe-fx< index_0 11)" "(let-values()" -"(let-values(((v_151 next-pos_18)" +"(let-values(((v_149 next-pos_18)" "(decode" " vec_45" "(add1 pos_50)" @@ -19748,10 +19428,10 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(box-immutable v_151) next-pos_18)))" +"(values(box-immutable v_149) next-pos_18)))" "(if(unsafe-fx< index_0 12)" "(let-values()" -"(let-values(((a_44 next-pos_19)" +"(let-values(((a_38 next-pos_19)" "(decode" " vec_45" "(add1 pos_50)" @@ -19767,10 +19447,10 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(cons a_44 d_24) next-pos_20))))" +"(values(cons a_38 d_24) next-pos_20))))" "(let-values()" "(let-values(((len_20)(vector*-ref vec_45(add1 pos_50))))" -"(let-values(((r_29)(make-vector len_20)))" +"(let-values(((r_28)(make-vector len_20)))" "(let-values(((next-pos_21)" "(let-values(((start_27) 0)((end_19) len_20)((inc_13) 1))" "(begin" @@ -19782,14 +19462,14 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_52 end_19)" -"(let-values(((i_122) pos_52))" +"(let-values(((i_124) pos_52))" "(let-values(((pos_53)" "(let-values(((pos_54) pos_51))" "(let-values(((pos_55)" "(let-values()" -"(let-values(((v_152" +"(let-values(((v_150" " next-pos_22)" -"(let-values(((v_153" +"(let-values(((v_151" " next-pos_23)" "(decode" " vec_45" @@ -19799,13 +19479,13 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -" v_153" +" v_151" " next-pos_23))))" "(begin" "(vector-set!" -" r_29" -" i_122" -" v_152)" +" r_28" +" i_124" +" v_150)" " next-pos_22)))))" "(values pos_55)))))" "(if(not #f)" @@ -19817,20 +19497,20 @@ static const char *startup_source = " start_27)))))" "(values" "(if(eq?(vector*-ref vec_45 pos_50) '#:list)" -"(vector->list r_29)" -"(vector->immutable-vector r_29))" +"(vector->list r_28)" +"(vector->immutable-vector r_28))" " next-pos_21))))))))))" "(if(unsafe-fx< index_0 20)" "(if(unsafe-fx< index_0 16)" "(if(unsafe-fx< index_0 14)" "(let-values()" -"(let-values(((ht_89)" -"(let-values(((tmp_22)(vector*-ref vec_45 pos_50)))" -"(if(equal? tmp_22 '#:hash)" +"(let-values(((ht_90)" +"(let-values(((tmp_21)(vector*-ref vec_45 pos_50)))" +"(if(equal? tmp_21 '#:hash)" "(let-values()(hash))" -"(if(equal? tmp_22 '#:hasheq)" +"(if(equal? tmp_21 '#:hasheq)" "(let-values()(hasheq))" -"(if(equal? tmp_22 '#:hasheqv)" +"(if(equal? tmp_21 '#:hasheqv)" "(let-values()(hasheqv))" "(let-values()(void))))))))" "(let-values(((len_21)(vector*-ref vec_45(add1 pos_50))))" @@ -19840,14 +19520,14 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_28 end_20 inc_14)))" "((letrec-values(((for-loop_139)" -"(lambda(ht_90 pos_56 pos_57)" +"(lambda(ht_91 pos_56 pos_57)" "(begin" " 'for-loop" "(if(< pos_57 end_20)" "(let-values()" -"(let-values(((ht_91 pos_58)" -"(let-values(((ht_92) ht_90)((pos_59) pos_56))" -"(let-values(((ht_93 pos_60)" +"(let-values(((ht_92 pos_58)" +"(let-values(((ht_93) ht_91)((pos_59) pos_56))" +"(let-values(((ht_94 pos_60)" "(let-values()" "(let-values(((k_26 next-pos_24)" "(decode" @@ -19857,7 +19537,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((v_154" +"(let-values(((v_152" " next-pos_25)" "(decode" " vec_45" @@ -19867,26 +19547,26 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(hash-set ht_92 k_26 v_154)" +"(hash-set ht_93 k_26 v_152)" " next-pos_25))))))" -"(values ht_93 pos_60)))))" +"(values ht_94 pos_60)))))" "(if(not #f)" -"(for-loop_139 ht_91 pos_58(+ pos_57 inc_14))" -"(values ht_91 pos_58))))" -"(values ht_90 pos_56))))))" +"(for-loop_139 ht_92 pos_58(+ pos_57 inc_14))" +"(values ht_92 pos_58))))" +"(values ht_91 pos_56))))))" " for-loop_139)" -" ht_89" +" ht_90" "(+ pos_50 2)" " start_28))))))" "(if(unsafe-fx< index_0 15)" "(let-values()" -"(let-values(((s_137)" -"(let-values(((tmp_23)(vector*-ref vec_45 pos_50)))" -"(if(equal? tmp_23 '#:set)" +"(let-values(((s_135)" +"(let-values(((tmp_22)(vector*-ref vec_45 pos_50)))" +"(if(equal? tmp_22 '#:set)" "(let-values()(set))" -"(if(equal? tmp_23 '#:seteq)" +"(if(equal? tmp_22 '#:seteq)" "(let-values()(seteq))" -"(if(equal? tmp_23 '#:seteqv)" +"(if(equal? tmp_22 '#:seteqv)" "(let-values()(seteqv))" "(let-values()(void))))))))" "(let-values(((len_22)(vector*-ref vec_45(add1 pos_50))))" @@ -19896,14 +19576,14 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_29 end_21 inc_15)))" "((letrec-values(((for-loop_140)" -"(lambda(s_187 pos_61 pos_62)" +"(lambda(s_185 pos_61 pos_62)" "(begin" " 'for-loop" "(if(< pos_62 end_21)" "(let-values()" -"(let-values(((s_139 pos_63)" -"(let-values(((s_188) s_187)((pos_64) pos_61))" -"(let-values(((s_189 pos_65)" +"(let-values(((s_137 pos_63)" +"(let-values(((s_186) s_185)((pos_64) pos_61))" +"(let-values(((s_187 pos_65)" "(let-values()" "(let-values(((k_27" " next-pos_26)" @@ -19915,15 +19595,15 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(set-add s_188 k_27)" +"(set-add s_186 k_27)" " next-pos_26)))))" -"(values s_189 pos_65)))))" +"(values s_187 pos_65)))))" "(if(not #f)" -"(for-loop_140 s_139 pos_63(+ pos_62 inc_15))" -"(values s_139 pos_63))))" -"(values s_187 pos_61))))))" +"(for-loop_140 s_137 pos_63(+ pos_62 inc_15))" +"(values s_137 pos_63))))" +"(values s_185 pos_61))))))" " for-loop_140)" -" s_137" +" s_135" "(+ pos_50 2)" " start_29))))))" "(let-values()" @@ -19938,24 +19618,24 @@ static const char *startup_source = " shared_2)))" "(values k_28 next-pos_28))))" "(let-values(((len_23)(vector*-ref vec_45 next-pos_27)))" -"(let-values(((r_30 done-pos_1)" +"(let-values(((r_29 done-pos_1)" "(let-values(((start_30) 0)((end_22) len_23)((inc_16) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_30 end_22 inc_16)))" "((letrec-values(((for-loop_141)" -"(lambda(r_31 pos_66 pos_67)" +"(lambda(r_30 pos_66 pos_67)" "(begin" " 'for-loop" "(if(< pos_67 end_22)" "(let-values()" -"(let-values(((r_32 pos_68)" -"(let-values(((r_33) r_31)" +"(let-values(((r_31 pos_68)" +"(let-values(((r_32) r_30)" "((pos_69) pos_66))" -"(let-values(((r_34 pos_70)" +"(let-values(((r_33 pos_70)" "(let-values()" -"(let-values(((v_155" +"(let-values(((v_153" " next-pos_29)" "(decode" " vec_45" @@ -19966,19 +19646,19 @@ static const char *startup_source = " shared_2)))" "(values" "(cons" -" v_155" -" r_33)" +" v_153" +" r_32)" " next-pos_29)))))" -"(values r_34 pos_70)))))" +"(values r_33 pos_70)))))" "(if(not #f)" -"(for-loop_141 r_32 pos_68(+ pos_67 inc_16))" -"(values r_32 pos_68))))" -"(values r_31 pos_66))))))" +"(for-loop_141 r_31 pos_68(+ pos_67 inc_16))" +"(values r_31 pos_68))))" +"(values r_30 pos_66))))))" " for-loop_141)" " null" "(add1 next-pos_27)" " start_30)))))" -"(values(apply make-prefab-struct key_47(reverse$1 r_30)) done-pos_1)))))))" +"(values(apply make-prefab-struct key_47(reverse$1 r_29)) done-pos_1)))))))" "(if(unsafe-fx< index_0 17)" "(let-values()(values(deserialize-scope)(add1 pos_50)))" "(if(unsafe-fx< index_0 18)" @@ -19994,7 +19674,7 @@ static const char *startup_source = "(values(deserialize-scope kind_6) next-pos_30)))" "(if(unsafe-fx< index_0 19)" "(let-values()" -"(let-values(((name_37 next-pos_31)" +"(let-values(((name_38 next-pos_31)" "(decode" " vec_45" "(add1 pos_50)" @@ -20010,9 +19690,9 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-multi-scope name_37 scopes_21) next-pos_32))))" +"(values(deserialize-multi-scope name_38 scopes_21) next-pos_32))))" "(let-values()" -"(let-values(((phase_45 next-pos_33)" +"(let-values(((phase_47 next-pos_33)" "(decode" " vec_45" "(add1 pos_50)" @@ -20028,7 +19708,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-shifted-multi-scope phase_45 multi-scope_2) next-pos_34))))))))" +"(values(deserialize-shifted-multi-scope phase_47 multi-scope_2) next-pos_34))))))))" "(if(unsafe-fx< index_0 23)" "(if(unsafe-fx< index_0 21)" "(let-values()" @@ -20065,7 +19745,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((phase_46 next-pos_40)" +"(let-values(((phase_48 next-pos_40)" "(decode" " vec_45" " next-pos_39" @@ -20073,7 +19753,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(values(deserialize-representative-scope kind_7 phase_46) next-pos_40))))))" +"(values(deserialize-representative-scope kind_7 phase_48) next-pos_40))))))" "(if(unsafe-fx< index_0 25)" "(if(unsafe-fx< index_0 24)" "(let-values()" @@ -20085,7 +19765,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((sym_28 next-pos_42)" +"(let-values(((sym_29 next-pos_42)" "(decode" " vec_45" " next-pos_41" @@ -20093,7 +19773,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((phase_47 next-pos_43)" +"(let-values(((phase_49 next-pos_43)" "(decode" " vec_45" " next-pos_42" @@ -20160,8 +19840,8 @@ static const char *startup_source = "(values" "(deserialize-full-module-binding" " module_4" -" sym_28" -" phase_47" +" sym_29" +" phase_49" " nominal-module_4" " nominal-phase_3" " nominal-sym_3" @@ -20179,7 +19859,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((sym_29 next-pos_52)" +"(let-values(((sym_30 next-pos_52)" "(decode" " vec_45" " next-pos_51" @@ -20187,7 +19867,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((phase_48 next-pos_53)" +"(let-values(((phase_50 next-pos_53)" "(decode" " vec_45" " next-pos_52" @@ -20204,7 +19884,7 @@ static const char *startup_source = " bulk-binding-registry_7" " shared_2)))" "(values" -"(deserialize-simple-module-binding module_5 sym_29 phase_48 nominal-module_5)" +"(deserialize-simple-module-binding module_5 sym_30 phase_50 nominal-module_5)" " next-pos_54)))))))" "(if(unsafe-fx< index_0 26)" "(let-values()" @@ -20243,7 +19923,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((mpi_27 next-pos_59)" +"(let-values(((mpi_26 next-pos_59)" "(decode" " vec_45" " next-pos_58" @@ -20259,7 +19939,7 @@ static const char *startup_source = " inspector_7" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((phase-shift_3 next-pos_61)" +"(let-values(((phase-shift_5 next-pos_61)" "(decode" " vec_45" " next-pos_60" @@ -20279,9 +19959,9 @@ static const char *startup_source = "(deserialize-bulk-binding" " prefix_3" " excepts_3" -" mpi_27" +" mpi_26" " provide-phase-level_2" -" phase-shift_3" +" phase-shift_5" " bulk-binding-registry_8)" " next-pos_62))))))))" "(let-values()" @@ -20314,17 +19994,17 @@ static const char *startup_source = " next-pos_65)))))))))))))))))" "(define-values" "(decode-fill!)" -"(lambda(v_156 vec_46 pos_71 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)" +"(lambda(v_154 vec_46 pos_71 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)" "(begin" -"(let-values(((tmp_24)(vector*-ref vec_46 pos_71)))" -"(if(equal? tmp_24 #f)" +"(let-values(((tmp_23)(vector*-ref vec_46 pos_71)))" +"(if(equal? tmp_23 #f)" "(let-values()(add1 pos_71))" -"(if(equal? tmp_24 '#:set-box!)" +"(if(equal? tmp_23 '#:set-box!)" "(let-values()" "(let-values(((c_21 next-pos_66)" "(decode vec_46(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(set-box! v_156 c_21) next-pos_66)))" -"(if(equal? tmp_24 '#:set-vector!)" +"(begin(set-box! v_154 c_21) next-pos_66)))" +"(if(equal? tmp_23 '#:set-vector!)" "(let-values()" "(let-values(((len_24)(vector*-ref vec_46(add1 pos_71))))" "(let-values(((start_31) 0)((end_23) len_24)((inc_17) 1))" @@ -20337,7 +20017,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_73 end_23)" -"(let-values(((i_123) pos_73))" +"(let-values(((i_125) pos_73))" "(let-values(((pos_74)" "(let-values(((pos_75) pos_72))" "(let-values(((pos_76)" @@ -20351,7 +20031,7 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(vector-set! v_156 i_123 c_22)" +"(vector-set! v_154 i_125 c_22)" " next-pos_67)))))" "(values pos_76)))))" "(if(not #f)(for-loop_142 pos_74(+ pos_73 inc_17)) pos_74)))" @@ -20359,7 +20039,7 @@ static const char *startup_source = " for-loop_142)" "(+ pos_71 2)" " start_31)))))" -"(if(equal? tmp_24 '#:set-hash!)" +"(if(equal? tmp_23 '#:set-hash!)" "(let-values()" "(let-values(((len_25)(vector*-ref vec_46(add1 pos_71))))" "(let-values(((start_32) 0)((end_24) len_25)((inc_18) 1))" @@ -20385,7 +20065,7 @@ static const char *startup_source = " inspector_8" " bulk-binding-registry_9" " shared_3)))" -"(let-values(((val_42 done-pos_2)" +"(let-values(((val_41 done-pos_2)" "(decode" " vec_46" " next-pos_68" @@ -20394,7 +20074,7 @@ static const char *startup_source = " bulk-binding-registry_9" " shared_3)))" "(begin" -"(hash-set! v_156 key_49 val_42)" +"(hash-set! v_154 key_49 val_41)" " done-pos_2))))))" "(values pos_81)))))" "(if(not #f)(for-loop_143 pos_79(+ pos_78 inc_18)) pos_79)))" @@ -20402,101 +20082,101 @@ static const char *startup_source = " for-loop_143)" "(+ pos_71 2)" " start_32)))))" -"(if(equal? tmp_24 '#:scope-fill!)" +"(if(equal? tmp_23 '#:scope-fill!)" "(let-values()" "(let-values(((c_23 next-pos_69)" "(decode vec_46(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-scope-fill! v_156 c_23) next-pos_69)))" -"(if(equal? tmp_24 '#:representative-scope-fill!)" +"(begin(deserialize-scope-fill! v_154 c_23) next-pos_69)))" +"(if(equal? tmp_23 '#:representative-scope-fill!)" "(let-values()" -"(let-values(((a_45 next-pos_70)" +"(let-values(((a_39 next-pos_70)" "(decode vec_46(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" "(let-values(((d_25 done-pos_3)" "(decode vec_46 next-pos_70 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-representative-scope-fill! v_156 a_45 d_25) done-pos_3))))" +"(begin(deserialize-representative-scope-fill! v_154 a_39 d_25) done-pos_3))))" " (let-values () (error 'deserialize \"bad fill encoding: ~v\" (vector*-ref vec_46 pos_71)))))))))))))" "(define-values" "(find-reachable-scopes)" -"(lambda(v_157)" +"(lambda(v_155)" "(begin" "(let-values(((seen_23)(make-hasheq)))" "(let-values(((reachable-scopes_7)(seteq)))" "(let-values(((scope-triggers_0)(make-hasheq)))" "(begin" -"((letrec-values(((loop_84)" -"(lambda(v_158)" +"((letrec-values(((loop_82)" +"(lambda(v_156)" "(begin" " 'loop" -"(if(interned-literal? v_158)" +"(if(interned-literal? v_156)" "(let-values()(void))" -"(if(hash-ref seen_23 v_158 #f)" +"(if(hash-ref seen_23 v_156 #f)" "(let-values()(void))" "(let-values()" "(begin" -"(hash-set! seen_23 v_158 #t)" -"(if(scope-with-bindings? v_158)" +"(hash-set! seen_23 v_156 #t)" +"(if(scope-with-bindings? v_156)" "(let-values()" "(let-values((()" "(begin" "(set! reachable-scopes_7" -"(set-add reachable-scopes_7 v_158))" +"(set-add reachable-scopes_7 v_156))" "(values))))" "(let-values((()" "(begin" -"((reach-scopes-ref v_158) v_158 loop_84)" +"((reach-scopes-ref v_156) v_156 loop_82)" "(values))))" -"(let-values(((l_50)(hash-ref scope-triggers_0 v_158 null)))" +"(let-values(((l_50)(hash-ref scope-triggers_0 v_156 null)))" "(begin" -"(let-values(((lst_114) l_50))" +"(let-values(((lst_116) l_50))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_114)))" +"(let-values()(check-list lst_116)))" "((letrec-values(((for-loop_144)" -"(lambda(lst_115)" +"(lambda(lst_117)" "(begin" " 'for-loop" -"(if(pair? lst_115)" -"(let-values(((v_159)" -"(unsafe-car lst_115))" -"((rest_56)" -"(unsafe-cdr lst_115)))" +"(if(pair? lst_117)" +"(let-values(((v_157)" +"(unsafe-car lst_117))" +"((rest_57)" +"(unsafe-cdr lst_117)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(loop_84" -" v_159))" +"(loop_82" +" v_157))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_144 rest_56)" +"(for-loop_144 rest_57)" "(values))))" "(values))))))" " for-loop_144)" -" lst_114)))" +" lst_116)))" "(void)" -"((scope-with-bindings-ref v_158)" -" v_158" +"((scope-with-bindings-ref v_156)" +" v_156" " reachable-scopes_7" -" loop_84" +" loop_82" "(lambda(sc-unreachable_0 b_65)" "(hash-update!" " scope-triggers_0" " sc-unreachable_0" -"(lambda(l_51)(cons b_65 l_51))" +"(lambda(l_47)(cons b_65 l_47))" " null))))))))" -"(if(reach-scopes? v_158)" -"(let-values()((reach-scopes-ref v_158) v_158 loop_84))" -"(if(pair? v_158)" -"(let-values()(begin(loop_84(car v_158))(loop_84(cdr v_158))))" -"(if(vector? v_158)" +"(if(reach-scopes? v_156)" +"(let-values()((reach-scopes-ref v_156) v_156 loop_82))" +"(if(pair? v_156)" +"(let-values()(begin(loop_82(car v_156))(loop_82(cdr v_156))))" +"(if(vector? v_156)" "(let-values()" "(begin" "(let-values(((vec_47 len_26)" -"(let-values(((vec_48) v_158))" +"(let-values(((vec_48) v_156))" "(begin" "(check-vector vec_48)" "(values" @@ -20519,7 +20199,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_84" +"(loop_82" " e_22))" "(values)))))" "(values)))))" @@ -20531,26 +20211,26 @@ static const char *startup_source = " for-loop_145)" " 0)))" "(void)))" -"(if(box? v_158)" -"(let-values()(loop_84(unbox v_158)))" -"(if(hash? v_158)" +"(if(box? v_156)" +"(let-values()(loop_82(unbox v_156)))" +"(if(hash? v_156)" "(let-values()" "(begin" -"(let-values(((ht_94) v_158))" +"(let-values(((ht_95) v_156))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_94)))" +"(let-values()(check-in-hash ht_95)))" "((letrec-values(((for-loop_146)" -"(lambda(i_124)" +"(lambda(i_126)" "(begin" " 'for-loop" -"(if i_124" -"(let-values(((k_29 v_160)" +"(if i_126" +"(let-values(((k_29 v_158)" "(hash-iterate-key+value" -" ht_94" -" i_124)))" +" ht_95" +" i_126)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -20558,23 +20238,23 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(loop_84" +"(loop_82" " k_29)" -"(loop_84" -" v_160)))" +"(loop_82" +" v_158)))" "(values)))))" "(values)))))" "(if(not #f)" "(for-loop_146" "(hash-iterate-next" -" ht_94" -" i_124))" +" ht_95" +" i_126))" "(values))))" "(values))))))" " for-loop_146)" -"(hash-iterate-first ht_94))))" +"(hash-iterate-first ht_95))))" "(void)))" -"(if(prefab-struct-key v_158)" +"(if(prefab-struct-key v_156)" "(let-values()" "(begin" "(let-values(((v*_5 start*_4 stop*_5 step*_4)" @@ -20583,7 +20263,7 @@ static const char *startup_source = " \"vector\"" "(lambda(x_51)(vector? x_51))" "(lambda(x_52)(unsafe-vector-length x_52))" -"(struct->vector v_158)" +"(struct->vector v_156)" " 1" " #f" " 1)))" @@ -20604,7 +20284,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_84" +"(loop_82" " e_23))" "(values)))))" "(values)))))" @@ -20616,11 +20296,11 @@ static const char *startup_source = " for-loop_147)" " start*_4)))" "(void)))" -"(if(srcloc? v_158)" -"(let-values()(loop_84(srcloc-source v_158)))" +"(if(srcloc? v_156)" +"(let-values()(loop_82(srcloc-source v_156)))" "(let-values()(void))))))))))))))))))" -" loop_84)" -" v_157)" +" loop_82)" +" v_155)" " reachable-scopes_7)))))))" "(define-values" "(deserialize-imports)" @@ -20632,12 +20312,12 @@ static const char *startup_source = "(lambda(s24_0 from-mpi25_0 to-mpi26_0 inspector22_0 inspector23_0)" "(begin" " 'core27" -"(let-values(((s_190) s24_0))" +"(let-values(((s_188) s24_0))" "(let-values(((from-mpi_4) from-mpi25_0))" "(let-values(((to-mpi_3) to-mpi26_0))" "(let-values(((inspector_9)(if inspector23_0 inspector22_0 #f)))" "(let-values()" -"(let-values(((s29_0) s_190)" +"(let-values(((s29_0) s_188)" "((from-mpi30_0) from-mpi_4)" "((to-mpi31_0) to-mpi_3)" "((inspector32_0) inspector_9))" @@ -20650,9 +20330,9 @@ static const char *startup_source = " inspector32_0" " #t)))))))))))" "(case-lambda" -"((s_191 from-mpi_5 to-mpi_4)" -"(begin 'syntax-module-path-index-shift(core27_0 s_191 from-mpi_5 to-mpi_4 #f #f)))" -"((s_192 from-mpi_6 to-mpi_5 inspector22_1)(core27_0 s_192 from-mpi_6 to-mpi_5 inspector22_1 #t))))))" +"((s_189 from-mpi_5 to-mpi_4)" +"(begin 'syntax-module-path-index-shift(core27_0 s_189 from-mpi_5 to-mpi_4 #f #f)))" +"((s_190 from-mpi_6 to-mpi_5 inspector22_1)(core27_0 s_190 from-mpi_6 to-mpi_5 inspector22_1 #t))))))" " syntax-module-path-index-shift_0))" "(define-values" "(deserialize-instance)" @@ -21213,7 +20893,7 @@ static const char *startup_source = "(begin" " 'module-path->mpi5" "(let-values(((mod-path_4) mod-path3_0))" -"(let-values(((self_9) self4_2))" +"(let-values(((self_7) self4_2))" "(let-values(((declared-submodule-names_1)" "(if declared-submodule-names2_0 declared-submodule-names1_0 '#hasheq())))" "(let-values()" @@ -21224,7 +20904,7 @@ static const char *startup_source = " #f)" " #f)" " #f)" -" (let-values () (1/module-path-index-join (list 'submod \".\" (cadr mod-path_4)) self_9))" +" (let-values () (1/module-path-index-join (list 'submod \".\" (cadr mod-path_4)) self_7))" "(if(if(list? mod-path_4)" "(if(eq? 'submod(car mod-path_4))" "(let-values(((mod-path_5)(cadr mod-path_4)))" @@ -21240,31 +20920,32 @@ 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_9))" -"(let-values()(1/module-path-index-join mod-path_4 self_9)))))))))))" +" (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)))))))))))" "(define-values" "(module-path->mpi/context)" "(lambda(mod-path_6 ctx_9)" "(begin" -"(let-values(((temp9_0)(namespace-mpi(expand-context-namespace ctx_9)))" +"(let-values(((mod-path8_0) 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 #t mod-path_6 temp9_0)))))" +"(module-path->mpi5.1 temp10_2 #t mod-path8_0 temp9_0)))))" "(define-values" "(syntax-mapped-names)" -"(lambda(s_0 phase_40)" +"(lambda(s_0 phase_42)" "(begin" -"(let-values(((s-scs_1)(syntax-scope-set s_0 phase_40)))" -"(let-values(((ht_95) s-scs_1))" +"(let-values(((s-scs_1)(syntax-scope-set s_0 phase_42)))" +"(let-values(((ht_96) s-scs_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_95)))" -"((letrec-values(((for-loop_107)" -"(lambda(syms_14 i_125)" +"(let-values()(check-in-immutable-hash-keys ht_96)))" +"((letrec-values(((for-loop_108)" +"(lambda(syms_14 i_127)" "(begin" " 'for-loop" -"(if i_125" -"(let-values(((sc_25)(unsafe-immutable-hash-iterate-key ht_95 i_125)))" +"(if i_127" +"(let-values(((sc_25)(unsafe-immutable-hash-iterate-key ht_96 i_127)))" "(let-values(((syms_15)" "(let-values(((syms_16) syms_14))" "(let-values(((syms_17)" @@ -21278,12 +20959,12 @@ static const char *startup_source = " null)))))" "(values syms_17)))))" "(if(not #f)" -"(for-loop_107 syms_15(unsafe-immutable-hash-iterate-next ht_95 i_125))" +"(for-loop_108 syms_15(unsafe-immutable-hash-iterate-next ht_96 i_127))" " syms_15)))" " syms_14)))))" -" for-loop_107)" +" for-loop_108)" "(seteq)" -"(unsafe-immutable-hash-iterate-first ht_95))))))))" +"(unsafe-immutable-hash-iterate-first ht_96))))))))" "(define-values" "(struct:requires+provides" " requires+provides1.1" @@ -21404,11 +21085,11 @@ static const char *startup_source = "(lambda(copy-requires5_0 copy-requires6_0 self7_0)" "(begin" " 'make-requires+provides8" -"(let-values(((self_10) self7_0))" +"(let-values(((self_8) self7_0))" "(let-values(((copy-r+p_0)(if copy-requires6_0 copy-requires5_0 #f)))" "(let-values()" "(requires+provides1.1" -" self_10" +" self_8" "(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))" "(make-hasheq)" @@ -21426,51 +21107,54 @@ static const char *startup_source = "(hash-clear!(requires+provides-phase-to-defined-syms r+p_0))))))" "(define-values" "(intern-mpi)" -"(lambda(r+p_1 mpi_28)(begin(intern-module-path-index!(requires+provides-require-mpis r+p_1) mpi_28))))" +"(lambda(r+p_1 mpi_27)(begin(intern-module-path-index!(requires+provides-require-mpis r+p_1) mpi_27))))" "(define-values" "(add-required-module!)" -"(lambda(r+p_2 mod-name_8 phase-shift_5 is-cross-phase-persistent?_0)" +"(lambda(r+p_2 mod-name_8 phase-shift_6 is-cross-phase-persistent?_0)" "(begin" -"(let-values(((mpi_29)(intern-mpi r+p_2 mod-name_8)))" +"(let-values(((mpi_28)(intern-mpi r+p_2 mod-name_8)))" "(begin" -"(if(hash-ref(hash-ref(requires+provides-requires r+p_2) mpi_29 '#hasheqv()) phase-shift_5 #f)" +"(if(hash-ref(hash-ref(requires+provides-requires r+p_2) mpi_28 '#hasheqv()) phase-shift_6 #f)" "(void)" "(let-values()" "(begin" "(hash-update!" "(requires+provides-require-mpis-in-order r+p_2)" -" phase-shift_5" -"(lambda(l_52)(cons mpi_29 l_52))" +" phase-shift_6" +"(lambda(l_51)(cons mpi_28 l_51))" " null)" "(hash-set!" -"(hash-ref!(requires+provides-requires r+p_2) mpi_29 make-hasheqv)" -" phase-shift_5" +"(hash-ref!(requires+provides-requires r+p_2) mpi_28 make-hasheqv)" +" phase-shift_6" "(make-hasheq)))))" "(if is-cross-phase-persistent?_0" "(void)" "(let-values()(set-requires+provides-can-cross-phase-persistent?! r+p_2 #f)))" -" mpi_29)))))" +" mpi_28)))))" "(define-values" "(add-defined-or-required-id!19.1)" "(lambda(as-transformer?12_0 can-be-shadowed?11_0 can-be-shadowed?13_0 r+p15_0 id16_0 phase17_0 binding18_0)" "(begin" " 'add-defined-or-required-id!19" "(let-values(((r+p_3) r+p15_0))" -"(let-values(((id_23) id16_0))" -"(let-values(((phase_49) phase17_0))" +"(let-values(((id_22) id16_0))" +"(let-values(((phase_51) phase17_0))" "(let-values(((binding_12) binding18_0))" "(let-values(((can-be-shadowed?_0)(if can-be-shadowed?13_0 can-be-shadowed?11_0 #f)))" "(let-values(((as-transformer?_0) as-transformer?12_0))" "(let-values()" "(begin" "(if(equal?" -" phase_49" +" phase_51" "(phase+" "(module-binding-nominal-phase binding_12)" "(module-binding-nominal-require-phase binding_12)))" "(void)" " (let-values () (error \"internal error: binding phase does not match nominal info\")))" -"(let-values(((temp117_0)(module-binding-nominal-module binding_12))" +"(let-values(((r+p114_0) r+p_3)" +"((id115_0) id_22)" +"((phase116_0) phase_51)" +"((temp117_0)(module-binding-nominal-module binding_12))" "((temp118_0)(module-binding-nominal-require-phase binding_12))" "((can-be-shadowed?119_0) can-be-shadowed?_0)" "((as-transformer?120_0) as-transformer?_0))" @@ -21479,9 +21163,9 @@ static const char *startup_source = " can-be-shadowed?119_0" " temp117_0" " temp118_0" -" r+p_3" -" id_23" -" phase_49)))))))))))))" +" r+p114_0" +" id115_0" +" phase116_0)))))))))))))" "(define-values" "(add-defined-or-required-id-at-nominal!33.1)" "(lambda(as-transformer?25_0" @@ -21494,8 +21178,8 @@ static const char *startup_source = "(begin" " 'add-defined-or-required-id-at-nominal!33" "(let-values(((r+p_4) r+p30_0))" -"(let-values(((id_24) id31_0))" -"(let-values(((phase_50) phase32_1))" +"(let-values(((id_23) id31_0))" +"(let-values(((phase_52) phase32_1))" "(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))" @@ -21507,13 +21191,13 @@ static const char *startup_source = "(intern-mpi r+p_4 nominal-module_6)" " make-hasheqv)))" "(let-values(((sym-to-reqds_0)(hash-ref! at-mod_0 nominal-require-phase_4 make-hasheq)))" -"(let-values(((sym_30)(syntax-e$1 id_24)))" +"(let-values(((sym_31)(syntax-e$1 id_23)))" "(hash-set!" " sym-to-reqds_0" -" sym_30" +" sym_31" "(cons-ish" -"(required2.1 id_24 phase_50 can-be-shadowed?_1 as-transformer?_1)" -"(hash-ref sym-to-reqds_0 sym_30 null)))))))))))))))))" +"(required2.1 id_23 phase_52 can-be-shadowed?_1 as-transformer?_1)" +"(hash-ref sym-to-reqds_0 sym_31 null)))))))))))))))))" "(define-values" "(add-bulk-required-ids!59.1)" "(lambda(accum-update-nominals42_0" @@ -21534,10 +21218,10 @@ static const char *startup_source = "(begin" " 'add-bulk-required-ids!59" "(let-values(((r+p_5) r+p52_0))" -"(let-values(((s_193) s53_0))" -"(let-values(((self_11) self54_0))" +"(let-values(((s_191) s53_0))" +"(let-values(((self_9) self54_0))" "(let-values(((nominal-module_7) nominal-module55_0))" -"(let-values(((phase-shift_6) phase-shift56_0))" +"(let-values(((phase-shift_7) 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))" @@ -21549,21 +21233,21 @@ static const char *startup_source = "(let-values(((accum-update-nominals_0) accum-update-nominals42_0))" "(let-values(((who_10) who43_0))" "(let-values()" -"(let-values(((phase_51)(phase+ provide-phase-level_3 phase-shift_6)))" +"(let-values(((phase_53)(phase+ provide-phase-level_3 phase-shift_7)))" "(let-values(((shortcut-table_0)" "(if check-and-remove?_0" "(if(>(hash-count provides_4) 64)" -"(syntax-mapped-names s_193 phase_51)" +"(syntax-mapped-names s_191 phase_53)" " #f)" " #f)))" -"(let-values(((mpi_30)(intern-mpi r+p_5 nominal-module_7)))" +"(let-values(((mpi_29)(intern-mpi r+p_5 nominal-module_7)))" "(let-values(((at-mod_1)" "(hash-ref!" "(requires+provides-requires r+p_5)" -" mpi_30" +" mpi_29" " make-hasheqv)))" "(let-values(((sym-to-reqds_1)" -"(hash-ref! at-mod_1 phase-shift_6 make-hasheq)))" +"(hash-ref! at-mod_1 phase-shift_7 make-hasheq)))" "(let-values(((prefix-len_0)" "(if bulk-prefix_0" "(string-length(symbol->string bulk-prefix_0))" @@ -21572,24 +21256,24 @@ static const char *startup_source = "(bulk-required4.1" " provides_4" " prefix-len_0" -" s_193" +" s_191" " provide-phase-level_3" " can-be-shadowed?_2)))" "(begin" -"(let-values(((ht_96) provides_4))" +"(let-values(((ht_97) provides_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_96)))" +"(let-values()(check-in-hash ht_97)))" "((letrec-values(((for-loop_148)" -"(lambda(i_126)" +"(lambda(i_128)" "(begin" " 'for-loop" -"(if i_126" +"(if i_128" "(let-values(((out-sym_0 binding/p_2)" "(hash-iterate-key+value" -" ht_96" -" i_126)))" +" ht_97" +" i_128)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -21610,7 +21294,7 @@ static const char *startup_source = " #f)" "(void)" "(let-values()" -"(let-values(((sym_31)" +"(let-values(((sym_32)" "(if(not" " bulk-prefix_0)" "(let-values()" @@ -21623,14 +21307,14 @@ static const char *startup_source = " out-sym_0))))))" "(begin" "(if(if check-and-remove?_0" -"(let-values(((or-part_186)" +"(let-values(((or-part_109)" "(not" " shortcut-table_0)))" -"(if or-part_186" -" or-part_186" +"(if or-part_109" +" or-part_109" "(hash-ref" " shortcut-table_0" -" sym_31" +" sym_32" " #f)))" " #f)" "(let-values()" @@ -21640,30 +21324,34 @@ static const char *startup_source = " r+p_5)" "((temp123_0)" "(datum->syntax$1" -" s_193" -" sym_31" -" s_193))" +" s_191" +" sym_32" +" s_191))" "((phase124_0)" -" phase_51)" +" phase_53)" "((orig-s125_0)" " orig-s_0)" "((temp126_0)" "(lambda()" -"(let-values(((self132_0)" -" self_11)" +"(let-values(((binding/p130_0)" +" binding/p_2)" +"((sym131_0)" +" sym_32)" +"((self132_0)" +" self_9)" "((mpi133_0)" -" mpi_30)" +" mpi_29)" "((provide-phase-level134_0)" " provide-phase-level_3)" "((phase-shift135_0)" -" phase-shift_6))" +" phase-shift_7))" "(provide-binding-to-require-binding11.1" " mpi133_0" " phase-shift135_0" " provide-phase-level134_0" " self132_0" -" binding/p_2" -" sym_31))))" +" binding/p130_0" +" sym131_0))))" "((temp127_0)" " #t)" "((accum-update-nominals128_0)" @@ -21687,44 +21375,44 @@ static const char *startup_source = "(void))" "(hash-set!" " sym-to-reqds_1" -" sym_31" +" sym_32" "(cons-ish" " br_0" "(hash-ref" " sym-to-reqds_1" -" sym_31" +" sym_32" " null)))))))))" "(values)))))" "(values)))))" "(if(not #f)" "(for-loop_148" "(hash-iterate-next" -" ht_96" -" i_126))" +" ht_97" +" i_128))" "(values))))" "(values))))))" " for-loop_148)" -"(hash-iterate-first ht_96))))" +"(hash-iterate-first ht_97))))" "(void))))))))))))))))))))))))))))" "(define-values" "(bulk-required->required)" -"(lambda(br_1 nominal-module_8 phase_52 sym_32)" +"(lambda(br_1 nominal-module_8 phase_54 sym_33)" "(begin" "(let-values(((prefix-len_1)(bulk-required-prefix-len br_1)))" "(let-values(((out-sym_1)" "(if(zero? prefix-len_1)" -" sym_32" -"(string->symbol(substring(symbol->string sym_32) prefix-len_1)))))" +" sym_33" +"(string->symbol(substring(symbol->string sym_33) prefix-len_1)))))" "(let-values(((binding/p_3)(hash-ref(bulk-required-provides br_1) out-sym_1)))" "(required2.1" -"(datum->syntax$1(bulk-required-s br_1) sym_32)" -"(phase+ phase_52(bulk-required-provide-phase-level br_1))" +"(datum->syntax$1(bulk-required-s br_1) sym_33)" +"(phase+ phase_54(bulk-required-provide-phase-level br_1))" "(bulk-required-can-be-shadowed? br_1)" "(provided-as-transformer? binding/p_3))))))))" "(define-values" "(normalize-required)" -"(lambda(r_35 mod-name_9 phase_53 sym_33)" -"(begin(if(bulk-required? r_35)(bulk-required->required r_35 mod-name_9 phase_53 sym_33) r_35))))" +"(lambda(r_34 mod-name_9 phase_55 sym_34)" +"(begin(if(bulk-required? r_34)(bulk-required->required r_34 mod-name_9 phase_55 sym_34) r_34))))" "(define-values" "(add-enclosing-module-defined-and-required!67.1)" "(lambda(enclosing-requires+provides62_0 r+p64_0 enclosing-mod65_0 phase-shift66_0)" @@ -21733,22 +21421,21 @@ static const char *startup_source = "(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(((phase-shift_8) phase-shift66_0))" "(let-values()" "(begin" "(set-requires+provides-all-bindings-simple?! r+p_6 #f)" -"(let-values(((ht_97)(requires+provides-requires enclosing-r+p_0)))" +"(let-values(((ht_5)(requires+provides-requires enclosing-r+p_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_97)))" +"(let-values()(check-in-hash ht_5)))" "((letrec-values(((for-loop_149)" -"(lambda(i_127)" +"(lambda(i_129)" "(begin" " 'for-loop" -"(if i_127" -"(let-values(((mod-name_10 at-mod_2)" -"(hash-iterate-key+value ht_97 i_127)))" +"(if i_129" +"(let-values(((mod-name_10 at-mod_2)(hash-iterate-key+value ht_5 i_129)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -21756,25 +21443,25 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((ht_4) at-mod_2))" +"(let-values(((ht_98) at-mod_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_4)))" -"((letrec-values(((for-loop_135)" -"(lambda(i_128)" +"(check-in-hash ht_98)))" +"((letrec-values(((for-loop_150)" +"(lambda(i_63)" "(begin" " 'for-loop" -"(if i_128" -"(let-values(((phase_54" +"(if i_63" +"(let-values(((phase_56" " at-phase_8)" "(hash-iterate-key+value" -" ht_4" -" i_128)))" +" ht_98" +" i_63)))" "(let-values((()" -"(let-values(((ht_6)" +"(let-values(((ht_99)" " at-phase_8))" "(begin" "(if(variable-reference-from-unsafe?" @@ -21782,40 +21469,40 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_6)))" -"((letrec-values(((for-loop_150)" -"(lambda(i_129)" +" ht_99)))" +"((letrec-values(((for-loop_151)" +"(lambda(i_130)" "(begin" " 'for-loop" -"(if i_129" -"(let-values(((sym_34" +"(if i_130" +"(let-values(((sym_35" " reqds_0)" "(hash-iterate-key+value" -" ht_6" -" i_129)))" +" ht_99" +" i_130)))" "(let-values((()" -"(let-values(((lst_116)" +"(let-values(((lst_118)" " reqds_0))" "(begin" "(void)" -"((letrec-values(((for-loop_151)" -"(lambda(lst_117)" +"((letrec-values(((for-loop_152)" +"(lambda(lst_119)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_117))" +" lst_119))" "(let-values(((reqd/maybe-bulk_0)" "(if(pair?" -" lst_117)" +" lst_119)" "(car" -" lst_117)" -" lst_117))" -"((rest_57)" +" lst_119)" +" lst_119))" +"((rest_58)" "(if(pair?" -" lst_117)" +" lst_119)" "(cdr" -" lst_117)" +" lst_119)" " null)))" "(let-values((()" "(let-values()" @@ -21827,9 +21514,11 @@ static const char *startup_source = "(normalize-required" " reqd/maybe-bulk_0" " mod-name_10" -" phase_54" -" sym_34)))" -"(let-values(((temp137_0)" +" phase_56" +" sym_35)))" +"(let-values(((r+p136_0)" +" r+p_6)" +"((temp137_0)" "(syntax-shift-phase-level$1" "(let-values(((temp143_0)" "(required-id" @@ -21847,16 +21536,16 @@ static const char *startup_source = " enclosing-mod145_0" " #f" " #f))" -" phase-shift_7))" +" phase-shift_8))" "((temp138_0)" "(phase+" "(required-phase" " reqd_0)" -" phase-shift_7))" +" phase-shift_8))" "((enclosing-mod139_0)" " enclosing-mod_0)" "((phase-shift140_1)" -" phase-shift_7)" +" phase-shift_8)" "((temp141_0)" " #t)" "((temp142_0)" @@ -21867,76 +21556,74 @@ static const char *startup_source = " temp141_0" " enclosing-mod139_0" " phase-shift140_1" -" r+p_6" +" r+p136_0" " temp137_0" " temp138_0))))" "(values)))))" "(values)))))" "(if(not" " #f)" +"(for-loop_152" +" rest_58)" +"(values))))" +"(values))))))" +" for-loop_152)" +" lst_118)))))" +"(if(not" +" #f)" "(for-loop_151" -" rest_57)" +"(hash-iterate-next" +" ht_99" +" i_130))" "(values))))" "(values))))))" " for-loop_151)" -" lst_116)))))" +"(hash-iterate-first" +" ht_99))))))" "(if(not" " #f)" "(for-loop_150" "(hash-iterate-next" -" ht_6" -" i_129))" +" ht_98" +" i_63))" "(values))))" "(values))))))" " for-loop_150)" -"(hash-iterate-first" -" ht_6))))))" -"(if(not" -" #f)" -"(for-loop_135" -"(hash-iterate-next" -" ht_4" -" i_128))" -"(values))))" -"(values))))))" -" for-loop_135)" -"(hash-iterate-first ht_4))))" +"(hash-iterate-first ht_98))))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)" -"(for-loop_149(hash-iterate-next ht_97 i_127))" -"(values))))" +"(if(not #f)(for-loop_149(hash-iterate-next ht_5 i_129))(values))))" "(values))))))" " for-loop_149)" -"(hash-iterate-first ht_97))))" +"(hash-iterate-first ht_5))))" "(void))))))))))" "(define-values" "(remove-required-id!75.1)" -"(lambda(unless-matches70_0 r+p72_0 id73_0 phase74_0)" +"(lambda(unless-matches70_0 r+p72_0 id73_0 phase74_1)" "(begin" " 'remove-required-id!75" "(let-values(((r+p_7) r+p72_0))" -"(let-values(((id_25) id73_0))" -"(let-values(((phase_55) phase74_0))" +"(let-values(((id_24) id73_0))" +"(let-values(((phase_57) phase74_1))" "(let-values(((binding_13) unless-matches70_0))" "(let-values()" "(let-values(((b_66)" -"(let-values(((temp148_0) #t))" -"(resolve+shift30.1 #f #f temp148_0 #t #f #f #f #f #f #f id_25 phase_55))))" +"(let-values(((id146_0) id_24)((phase147_0) phase_57)((temp148_0) #t))" +"(resolve+shift30.1 #f #f temp148_0 #t #f #f #f #f #f #f id146_0 phase147_0))))" "(if b_66" "(let-values()" -"(let-values(((mpi_31)(intern-mpi r+p_7(module-binding-nominal-module b_66))))" -"(let-values(((at-mod_3)(hash-ref(requires+provides-requires r+p_7) mpi_31 #f)))" +"(let-values(((mpi_30)(intern-mpi r+p_7(module-binding-nominal-module b_66))))" +"(let-values(((at-mod_3)(hash-ref(requires+provides-requires r+p_7) mpi_30 #f)))" "(if at-mod_3" "(let-values()" "(let-values(((nominal-phase_4)(module-binding-nominal-require-phase b_66)))" "(let-values(((sym-to-reqds_2)(hash-ref at-mod_3 nominal-phase_4 #f)))" "(if sym-to-reqds_2" "(let-values()" -"(let-values(((sym_35)(syntax-e$1 id_25)))" -"(let-values(((l_53)(hash-ref sym-to-reqds_2 sym_35 null)))" -"(if(null? l_53)" +"(let-values(((sym_36)(syntax-e$1 id_24)))" +"(let-values(((l_52)(hash-ref sym-to-reqds_2 sym_36 null)))" +"(if(null? l_52)" "(void)" "(let-values()" "(if(same-binding? b_66 binding_13)" @@ -21944,78 +21631,78 @@ static const char *startup_source = "(let-values()" "(hash-set!" " sym-to-reqds_2" -" sym_35" +" sym_36" "(remove-non-matching-requireds" -" l_53" -" id_25" -" phase_55" -" mpi_31" +" l_52" +" id_24" +" phase_57" +" mpi_30" " nominal-phase_4" -" sym_35)))))))))" +" sym_36)))))))))" "(void)))))" "(void)))))" "(void)))))))))))" "(define-values" "(remove-non-matching-requireds)" -"(lambda(reqds_1 id_26 phase_56 mpi_32 nominal-phase_5 sym_36)" +"(lambda(reqds_1 id_25 phase_58 mpi_31 nominal-phase_5 sym_37)" "(begin" "(reverse$1" -"(let-values(((lst_118) reqds_1))" +"(let-values(((lst_120) reqds_1))" "(begin" "(void)" -"((letrec-values(((for-loop_152)" -"(lambda(fold-var_96 lst_119)" +"((letrec-values(((for-loop_153)" +"(lambda(fold-var_98 lst_121)" "(begin" " 'for-loop" -"(if(not(null? lst_119))" -"(let-values(((r_36)(if(pair? lst_119)(car lst_119) lst_119))" -"((rest_58)(if(pair? lst_119)(cdr lst_119) null)))" -"(let-values(((fold-var_97)" -"(let-values(((r_37)" +"(if(not(null? lst_121))" +"(let-values(((r_35)(if(pair? lst_121)(car lst_121) lst_121))" +"((rest_59)(if(pair? lst_121)(cdr lst_121) null)))" +"(let-values(((fold-var_99)" +"(let-values(((r_36)" "(normalize-required" -" r_36" -" mpi_32" +" r_35" +" mpi_31" " nominal-phase_5" -" sym_36)))" +" sym_37)))" "(begin" " #t" -"((letrec-values(((for-loop_153)" -"(lambda(fold-var_98)" +"((letrec-values(((for-loop_154)" +"(lambda(fold-var_100)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_99)" -"(let-values(((fold-var_100)" -" fold-var_98))" -"(if(if(eqv?" -" phase_56" -"(required-phase" -" r_37))" -"(free-identifier=?$1" -"(required-id r_37)" -" id_26" -" phase_56" -" phase_56)" -" #f)" -" fold-var_100" "(let-values(((fold-var_101)" -" fold-var_100))" "(let-values(((fold-var_102)" +" fold-var_100))" +"(if(if(eqv?" +" phase_58" +"(required-phase" +" r_36))" +"(free-identifier=?$1" +"(required-id r_36)" +" id_25" +" phase_58" +" phase_58)" +" #f)" +" fold-var_102" +"(let-values(((fold-var_103)" +" fold-var_102))" +"(let-values(((fold-var_104)" "(let-values()" "(cons" "(let-values()" -" r_37)" -" fold-var_101))))" +" r_36)" +" fold-var_103))))" "(values" -" fold-var_102)))))))" -" fold-var_99))))))" +" fold-var_104)))))))" +" fold-var_101))))))" +" for-loop_154)" +" fold-var_98)))))" +"(if(not #f)(for-loop_153 fold-var_99 rest_59) fold-var_99)))" +" fold-var_98)))))" " for-loop_153)" -" fold-var_96)))))" -"(if(not #f)(for-loop_152 fold-var_97 rest_58) fold-var_97)))" -" fold-var_96)))))" -" for-loop_152)" " null" -" lst_118)))))))" +" lst_120)))))))" "(define-values" "(check-not-defined93.1)" "(lambda(accum-update-nominals82_0" @@ -22035,8 +21722,8 @@ static const char *startup_source = " 'check-not-defined93" "(let-values(((check-not-required?_0)(if check-not-required?84_0 check-not-required?78_0 #f)))" "(let-values(((r+p_8) r+p90_0))" -"(let-values(((id_27) id91_0))" -"(let-values(((phase_57) phase92_0))" +"(let-values(((id_26) id91_0))" +"(let-values(((phase_59) phase92_0))" "(let-values(((orig-s_1) in79_0))" "(let-values(((ok-binding/delayed_0)(if unless-matches86_0 unless-matches80_0 #f)))" "(let-values(((remove-shadowed!?_0)(if remove-shadowed!?87_0 remove-shadowed!?81_0 #f)))" @@ -22045,12 +21732,12 @@ static const char *startup_source = "(let-values(((who_11) who83_0))" "(let-values()" "(let-values(((b_67)" -"(let-values(((temp151_0) #t))" -"(resolve+shift30.1 #f #f temp151_0 #t #f #f #f #f #f #f id_27 phase_57))))" +"(let-values(((id149_0) id_26)((phase150_0) phase_59)((temp151_0) #t))" +"(resolve+shift30.1 #f #f temp151_0 #t #f #f #f #f #f #f id149_0 phase150_0))))" "(if(not b_67)" "(let-values()(void))" "(if(not(module-binding? b_67))" -" (let-values () (raise-syntax-error$1 #f \"identifier out of context\" id_27))" +" (let-values () (raise-syntax-error$1 #f \"identifier out of context\" id_26))" "(let-values()" "(let-values(((defined?_0)" "(if b_67" @@ -22063,17 +21750,17 @@ static const char *startup_source = "(hash-ref" "(hash-ref" "(requires+provides-phase-to-defined-syms r+p_8)" -" phase_57" +" phase_59" " '#hasheq())" "(module-binding-sym b_67)" " #f))" " #f)" "(let-values()(void))" "(let-values()" -"(let-values(((mpi_33)" +"(let-values(((mpi_32)" "(intern-mpi r+p_8(module-binding-nominal-module b_67))))" "(let-values(((at-mod_4)" -"(hash-ref(requires+provides-requires r+p_8) mpi_33 #f)))" +"(hash-ref(requires+provides-requires r+p_8) mpi_32 #f)))" "(let-values(((ok-binding_0)" "(if(procedure? ok-binding/delayed_0)" "(ok-binding/delayed_0)" @@ -22090,9 +21777,10 @@ static const char *startup_source = "(begin" " 'update!" "(let-values(((temp152_0) #t)" -"((id153_0) id_27)" +"((id153_0) id_26)" "((temp154_0)" -"(let-values(((temp157_0)" +"(let-values(((b156_0) b_67)" +"((temp157_0)" "(cons" " ok-binding_0" "(module-binding-extra-nominal-bindings" @@ -22120,8 +21808,8 @@ static const char *startup_source = " #f" " #f" " #f" -" b_67)))" -"((phase155_0) phase_57))" +" b156_0)))" +"((phase155_0) phase_59))" "(add-binding!17.1" " #f" " #f" @@ -22144,26 +21832,26 @@ static const char *startup_source = "(let-values(((reqds_2)" "(hash-ref" " sym-to-reqds_3" -"(syntax-e$1 id_27)" +"(syntax-e$1 id_26)" " null)))" "(begin" -"(let-values(((lst_120) reqds_2))" +"(let-values(((lst_122) reqds_2))" "(begin" "(void)" -"((letrec-values(((for-loop_62)" -"(lambda(lst_121)" +"((letrec-values(((for-loop_155)" +"(lambda(lst_123)" "(begin" " 'for-loop" -"(if(not(null? lst_121))" -"(let-values(((r_38)" +"(if(not(null? lst_123))" +"(let-values(((r_37)" "(if(pair?" -" lst_121)" -"(car lst_121)" -" lst_121))" -"((rest_59)" +" lst_123)" +"(car lst_123)" +" lst_123))" +"((rest_60)" "(if(pair?" -" lst_121)" -"(cdr lst_121)" +" lst_123)" +"(cdr lst_123)" " null)))" "(let-values((()" "(let-values()" @@ -22172,11 +21860,11 @@ static const char *startup_source = "(begin" "(let-values()" "(if(if(bulk-required?" -" r_38)" +" r_37)" "(bulk-required-can-be-shadowed?" -" r_38)" +" r_37)" "(required-can-be-shadowed?" -" r_38))" +" r_37))" "(let-values()" "(set-requires+provides-all-bindings-simple?!" " r+p_8" @@ -22190,181 +21878,181 @@ static const char *startup_source = " \"defined\"" " \"required\")" "(if(zero-phase?" -" phase_57)" +" phase_59)" "(let-values()" " \"\")" "(if(label-phase?" -" phase_57)" +" phase_59)" "(let-values()" " \" for label\")" "(if(=" " 1" -" phase_57)" +" phase_59)" "(let-values()" " \" for syntax\")" "(let-values()" "(format" " \" for phase ~a\"" -" phase_57))))))" +" phase_59))))))" " orig-s_1" -" id_27))))" +" id_26))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_62 rest_59)" +"(for-loop_155 rest_60)" "(values))))" "(values))))))" -" for-loop_62)" -" lst_120)))" +" for-loop_155)" +" lst_122)))" "(void)" "(if(if remove-shadowed!?_0(not(null? reqds_2)) #f)" "(let-values()" "(hash-set!" " sym-to-reqds_3" -"(syntax-e$1 id_27)" +"(syntax-e$1 id_26)" "(remove-non-matching-requireds" " reqds_2" -" id_27" -" phase_57" -" mpi_33" +" id_26" +" phase_59" +" mpi_32" " nominal-phase_6" -"(syntax-e$1 id_27))))" +"(syntax-e$1 id_26))))" "(void)))))))))))))))))))))))))))))))))" "(define-values" "(add-defined-syms!)" -"(lambda(r+p_9 syms_18 phase_58)" +"(lambda(r+p_9 syms_18 phase_60)" "(begin" "(let-values(((phase-to-defined-syms_0)(requires+provides-phase-to-defined-syms r+p_9)))" -"(let-values(((defined-syms_2)(hash-ref phase-to-defined-syms_0 phase_58 '#hasheq())))" +"(let-values(((defined-syms_2)(hash-ref phase-to-defined-syms_0 phase_60 '#hasheq())))" "(let-values(((new-defined-syms_0)" -"(let-values(((lst_122) syms_18))" +"(let-values(((lst_124) syms_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_122)))" -"((letrec-values(((for-loop_154)" -"(lambda(defined-syms_3 lst_123)" +"(let-values()(check-list lst_124)))" +"((letrec-values(((for-loop_156)" +"(lambda(defined-syms_3 lst_125)" "(begin" " 'for-loop" -"(if(pair? lst_123)" -"(let-values(((sym_37)(unsafe-car lst_123))" -"((rest_60)(unsafe-cdr lst_123)))" +"(if(pair? lst_125)" +"(let-values(((sym_38)(unsafe-car lst_125))" +"((rest_61)(unsafe-cdr lst_125)))" "(let-values(((defined-syms_4)" "(let-values(((defined-syms_5) defined-syms_3))" "(let-values(((defined-syms_6)" "(let-values()" "(hash-set" " defined-syms_5" -" sym_37" +" sym_38" " #t))))" "(values defined-syms_6)))))" "(if(not #f)" -"(for-loop_154 defined-syms_4 rest_60)" +"(for-loop_156 defined-syms_4 rest_61)" " defined-syms_4)))" " defined-syms_3)))))" -" for-loop_154)" +" for-loop_156)" " defined-syms_2" -" lst_122)))))" -"(hash-set! phase-to-defined-syms_0 phase_58 new-defined-syms_0)))))))" +" lst_124)))))" +"(hash-set! phase-to-defined-syms_0 phase_60 new-defined-syms_0)))))))" "(define-values" "(extract-module-requires)" -"(lambda(r+p_10 mod-name_11 phase_59)" +"(lambda(r+p_10 mod-name_11 phase_61)" "(begin" -"(let-values(((mpi_34)(intern-mpi r+p_10 mod-name_11)))" -"(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_10) mpi_34 #f)))" +"(let-values(((mpi_33)(intern-mpi r+p_10 mod-name_11)))" +"(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_10) mpi_33 #f)))" "(if at-mod_5" "(reverse$1" -"(let-values(((ht_98)(hash-ref at-mod_5 phase_59 '#hasheq())))" +"(let-values(((ht_100)(hash-ref at-mod_5 phase_61 '#hasheq())))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_98)))" -"((letrec-values(((for-loop_155)" -"(lambda(fold-var_103 i_130)" +"(let-values()(check-in-hash ht_100)))" +"((letrec-values(((for-loop_157)" +"(lambda(fold-var_105 i_131)" "(begin" " 'for-loop" -"(if i_130" -"(let-values(((sym_38 reqds_3)(hash-iterate-key+value ht_98 i_130)))" -"(let-values(((fold-var_104)" -"(let-values(((lst_124) reqds_3))" +"(if i_131" +"(let-values(((sym_39 reqds_3)(hash-iterate-key+value ht_100 i_131)))" +"(let-values(((fold-var_106)" +"(let-values(((lst_126) reqds_3))" "(begin" "(void)" -"((letrec-values(((for-loop_156)" -"(lambda(fold-var_105 lst_125)" +"((letrec-values(((for-loop_158)" +"(lambda(fold-var_107 lst_127)" "(begin" " 'for-loop" -"(if(not(null? lst_125))" +"(if(not(null? lst_127))" "(let-values(((reqd_1)" -"(if(pair? lst_125)" -"(car lst_125)" -" lst_125))" -"((rest_61)" -"(if(pair? lst_125)" -"(cdr lst_125)" +"(if(pair? lst_127)" +"(car lst_127)" +" lst_127))" +"((rest_62)" +"(if(pair? lst_127)" +"(cdr lst_127)" " null)))" -"(let-values(((fold-var_106)" -"(let-values(((fold-var_107)" -" fold-var_105))" "(let-values(((fold-var_108)" +"(let-values(((fold-var_109)" +" fold-var_107))" +"(let-values(((fold-var_110)" "(let-values()" "(cons" "(let-values()" "(normalize-required" " reqd_1" -" mpi_34" -" phase_59" -" sym_38))" -" fold-var_107))))" +" mpi_33" +" phase_61" +" sym_39))" +" fold-var_109))))" "(values" -" fold-var_108)))))" +" fold-var_110)))))" "(if(not #f)" -"(for-loop_156" -" fold-var_106" -" rest_61)" +"(for-loop_158" +" fold-var_108" +" rest_62)" +" fold-var_108)))" +" fold-var_107)))))" +" for-loop_158)" +" fold-var_105" +" lst_126)))))" +"(if(not #f)" +"(for-loop_157 fold-var_106(hash-iterate-next ht_100 i_131))" " fold-var_106)))" " fold-var_105)))))" -" for-loop_156)" -" fold-var_103" -" lst_124)))))" -"(if(not #f)" -"(for-loop_155 fold-var_104(hash-iterate-next ht_98 i_130))" -" fold-var_104)))" -" fold-var_103)))))" -" for-loop_155)" +" for-loop_157)" " null" -"(hash-iterate-first ht_98)))))" +"(hash-iterate-first ht_100)))))" " #f))))))" "(define-values" "(extract-module-definitions)" "(lambda(r+p_11)" "(begin" -"(let-values(((or-part_187)(extract-module-requires r+p_11(requires+provides-self r+p_11) 0)))" -"(if or-part_187 or-part_187 null)))))" +"(let-values(((or-part_181)(extract-module-requires r+p_11(requires+provides-self r+p_11) 0)))" +"(if or-part_181 or-part_181 null)))))" "(define-values" "(extract-all-module-requires)" -"(lambda(r+p_12 mod-name_12 phase_60)" +"(lambda(r+p_12 mod-name_12 phase_62)" "(begin" -"(let-values(((self_12)(requires+provides-self r+p_12)))" +"(let-values(((self_10)(requires+provides-self r+p_12)))" "(let-values(((requires_2)(requires+provides-requires r+p_12)))" "(call/ec" "(lambda(esc_0)" "(reverse$1" -"(let-values(((lst_126)(if mod-name_12(list(intern-mpi r+p_12 mod-name_12))(hash-keys requires_2))))" +"(let-values(((lst_128)(if mod-name_12(list(intern-mpi r+p_12 mod-name_12))(hash-keys requires_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_126)))" -"((letrec-values(((for-loop_141)" -"(lambda(fold-var_109 lst_127)" +"(let-values()(check-list lst_128)))" +"((letrec-values(((for-loop_159)" +"(lambda(fold-var_111 lst_129)" "(begin" " 'for-loop" -"(if(pair? lst_127)" -"(let-values(((mod-name_13)(unsafe-car lst_127))" -"((rest_62)(unsafe-cdr lst_127)))" -"(let-values(((fold-var_110)" -"(let-values(((fold-var_111) fold-var_109))" -"(if(eq? mod-name_13 self_12)" -" fold-var_111" +"(if(pair? lst_129)" +"(let-values(((mod-name_13)(unsafe-car lst_129))" +"((rest_63)(unsafe-cdr lst_129)))" +"(let-values(((fold-var_112)" +"(let-values(((fold-var_113) fold-var_111))" +"(if(eq? mod-name_13 self_10)" +" fold-var_113" "(let-values(((phase-to-requireds_0)" "(hash-ref" " requires_2" @@ -22372,45 +22060,45 @@ static const char *startup_source = " '#hasheqv())))" "(begin" " #t" -"((letrec-values(((for-loop_157)" -"(lambda(fold-var_112)" +"((letrec-values(((for-loop_160)" +"(lambda(fold-var_114)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_113)" -"(let-values(((lst_128)" +"(let-values(((fold-var_115)" +"(let-values(((lst_130)" "(if(eq?" -" phase_60" +" phase_62" " 'all)" "(hash-keys" " phase-to-requireds_0)" "(list" -" phase_60))))" +" phase_62))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_128)))" -"((letrec-values(((for-loop_158)" -"(lambda(fold-var_114" -" lst_129)" +" lst_130)))" +"((letrec-values(((for-loop_161)" +"(lambda(fold-var_116" +" lst_131)" "(begin" " 'for-loop" "(if(pair?" -" lst_129)" -"(let-values(((phase_61)" +" lst_131)" +"(let-values(((phase_63)" "(unsafe-car" -" lst_129))" -"((rest_63)" +" lst_131))" +"((rest_64)" "(unsafe-cdr" -" lst_129)))" -"(let-values(((fold-var_115)" -"(let-values(((ht_99)" +" lst_131)))" +"(let-values(((fold-var_117)" +"(let-values(((ht_101)" "(hash-ref" " phase-to-requireds_0" -" phase_61" +" phase_63" "(lambda()" "(esc_0" " #f)))))" @@ -22420,99 +22108,99 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_99)))" -"((letrec-values(((for-loop_159)" -"(lambda(fold-var_116" -" i_131)" +" ht_101)))" +"((letrec-values(((for-loop_162)" +"(lambda(fold-var_118" +" i_132)" "(begin" " 'for-loop" -"(if i_131" -"(let-values(((sym_39" +"(if i_132" +"(let-values(((sym_40" " reqds_4)" "(hash-iterate-key+value" -" ht_99" -" i_131)))" -"(let-values(((fold-var_117)" -"(let-values(((lst_130)" +" ht_101" +" i_132)))" +"(let-values(((fold-var_119)" +"(let-values(((lst_132)" " reqds_4))" "(begin" "(void)" -"((letrec-values(((for-loop_160)" -"(lambda(fold-var_118" -" lst_131)" +"((letrec-values(((for-loop_163)" +"(lambda(fold-var_120" +" lst_133)" "(begin" " 'for-loop" "(if(not" "(null?" -" lst_131))" +" lst_133))" "(let-values(((reqd_2)" "(if(pair?" -" lst_131)" +" lst_133)" "(car" -" lst_131)" -" lst_131))" -"((rest_64)" +" lst_133)" +" lst_133))" +"((rest_65)" "(if(pair?" -" lst_131)" +" lst_133)" "(cdr" -" lst_131)" +" lst_133)" " null)))" -"(let-values(((fold-var_119)" -"(let-values(((fold-var_120)" -" fold-var_118))" "(let-values(((fold-var_121)" +"(let-values(((fold-var_122)" +" fold-var_120))" +"(let-values(((fold-var_123)" "(let-values()" "(cons" "(let-values()" "(normalize-required" " reqd_2" " mod-name_13" -" phase_61" -" sym_39))" -" fold-var_120))))" +" phase_63" +" sym_40))" +" fold-var_122))))" "(values" -" fold-var_121)))))" +" fold-var_123)))))" "(if(not" " #f)" -"(for-loop_160" +"(for-loop_163" +" fold-var_121" +" rest_65)" +" fold-var_121)))" +" fold-var_120)))))" +" for-loop_163)" +" fold-var_118" +" lst_132)))))" +"(if(not" +" #f)" +"(for-loop_162" " fold-var_119" -" rest_64)" +"(hash-iterate-next" +" ht_101" +" i_132))" " fold-var_119)))" " fold-var_118)))))" -" for-loop_160)" +" for-loop_162)" " fold-var_116" -" lst_130)))))" +"(hash-iterate-first" +" ht_101))))))" "(if(not" " #f)" -"(for-loop_159" +"(for-loop_161" " fold-var_117" -"(hash-iterate-next" -" ht_99" -" i_131))" +" rest_64)" " fold-var_117)))" " fold-var_116)))))" -" for-loop_159)" +" for-loop_161)" " fold-var_114" -"(hash-iterate-first" -" ht_99))))))" -"(if(not" -" #f)" -"(for-loop_158" -" fold-var_115" -" rest_63)" -" fold-var_115)))" -" fold-var_114)))))" -" for-loop_158)" -" fold-var_112" -" lst_128)))))" -" fold-var_113))))))" -" for-loop_157)" -" fold-var_111)))))))" -"(if(not #f)(for-loop_141 fold-var_110 rest_62) fold-var_110)))" -" fold-var_109)))))" -" for-loop_141)" +" lst_130)))))" +" fold-var_115))))))" +" for-loop_160)" +" fold-var_113)))))))" +"(if(not #f)(for-loop_159 fold-var_112 rest_63) fold-var_112)))" +" fold-var_111)))))" +" for-loop_159)" " null" -" lst_126)))))))))))" +" lst_128)))))))))))" "(define-values" "(add-provide!107.1)" "(lambda(as-protected?96_0" @@ -22527,11 +22215,11 @@ static const char *startup_source = "(begin" " 'add-provide!107" "(let-values(((r+p_13) r+p100_0))" -"(let-values(((sym_40) sym101_0))" -"(let-values(((phase_62) phase102_0))" +"(let-values(((sym_41) sym101_0))" +"(let-values(((phase_64) phase102_0))" "(let-values(((binding_14) binding103_0))" "(let-values(((immed-binding_0) immed-binding104_0))" -"(let-values(((id_28) id105_0))" +"(let-values(((id_27) id105_0))" "(let-values(((orig-s_2) orig-s106_0))" "(let-values(((as-protected?_0) as-protected?96_0))" "(let-values(((as-transformer?_2) as-transformer?97_0))" @@ -22541,19 +22229,19 @@ static const char *startup_source = "(not(eq?(module-binding-module immed-binding_0)(requires+provides-self r+p_13)))" " #f)" "(let-values()" -" (raise-syntax-error$1 #f \"cannot protect required identifier in re-provide\" sym_40))" +" (raise-syntax-error$1 #f \"cannot protect required identifier in re-provide\" sym_41))" "(void))" "(hash-update!" "(requires+provides-provides r+p_13)" -" phase_62" +" phase_64" "(lambda(at-phase_9)" -"(let-values(((b/p_0)(hash-ref at-phase_9 sym_40 #f)))" +"(let-values(((b/p_0)(hash-ref at-phase_9 sym_41 #f)))" "(let-values(((b_68)(provided-as-binding b/p_0)))" "(if(not b_68)" "(let-values()" "(let-values(((plain-binding_0)" "(if(binding-free=id binding_14)" -"(let-values(((temp159_0) #f))" +"(let-values(((binding158_0) binding_14)((temp159_0) #f))" "(module-binding-update48.1" " #f" " #f" @@ -22577,13 +22265,13 @@ static const char *startup_source = " #f" " #f" " #f" -" binding_14))" +" binding158_0))" " binding_14)))" "(hash-set" " at-phase_9" -" sym_40" -"(if(let-values(((or-part_188) as-protected?_0))" -"(if or-part_188 or-part_188 as-transformer?_2))" +" sym_41" +"(if(let-values(((or-part_182) as-protected?_0))" +"(if or-part_182 or-part_182 as-transformer?_2))" "(provided1.1 plain-binding_0 as-protected?_0 as-transformer?_2)" " plain-binding_0))))" "(if(same-binding? b_68 binding_14)" @@ -22593,7 +22281,7 @@ static const char *startup_source = " #f" " \"identifier already provided (as a different binding)\"" " orig-s_2" -" id_28)))))))" +" id_27)))))))" " '#hasheq())))))))))))))))" "(define-values" "(extract-requires-and-provides)" @@ -22609,91 +22297,91 @@ static const char *startup_source = "((phasesym-set" @@ -23658,7 +23346,7 @@ static const char *startup_source = " #f" " 'path))))" "(if(equal?" -" tmp_25" +" tmp_24" " 'prefix)" "(let-values()" "(let-values((()" @@ -23670,89 +23358,89 @@ static const char *startup_source = " prefix154_0" " id:prefix155_0" " spec156_0)" -"(let-values(((s_224)" -" req_4))" +"(let-values(((s_222)" +" req_0))" "(let-values(((orig-s_10)" -" s_224))" +" s_222))" "(let-values(((prefix154_1" " id:prefix155_1" " spec156_1)" -"(let-values(((s_225)" +"(let-values(((s_223)" "(if(syntax?$1" -" s_224)" +" s_222)" "(syntax-e$1" -" s_224)" -" s_224)))" +" s_222)" +" s_222)))" "(if(pair?" -" s_225)" +" s_223)" "(let-values(((prefix157_0)" -"(let-values(((s_226)" +"(let-values(((s_224)" "(car" -" s_225)))" -" s_226))" +" s_223)))" +" s_224))" "((id:prefix158_0" " spec159_0)" -"(let-values(((s_227)" +"(let-values(((s_225)" "(cdr" +" s_223)))" +"(let-values(((s_226)" +"(if(syntax?$1" +" s_225)" +"(syntax-e$1" +" s_225)" " s_225)))" -"(let-values(((s_228)" -"(if(syntax?$1" -" s_227)" -"(syntax-e$1" -" s_227)" -" s_227)))" "(if(pair?" -" s_228)" +" s_226)" "(let-values(((id:prefix160_0)" -"(let-values(((s_229)" +"(let-values(((s_227)" "(car" -" s_228)))" -"(if(let-values(((or-part_194)" +" s_226)))" +"(if(let-values(((or-part_189)" "(if(syntax?$1" -" s_229)" +" s_227)" "(symbol?" "(syntax-e$1" -" s_229))" +" s_227))" " #f)))" -"(if or-part_194" -" or-part_194" +"(if or-part_189" +" or-part_189" "(symbol?" -" s_229)))" -" s_229" +" s_227)))" +" s_227" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_10" -" s_229))))" +" s_227))))" "((spec161_0)" -"(let-values(((s_230)" +"(let-values(((s_228)" "(cdr" +" s_226)))" +"(let-values(((s_229)" +"(if(syntax?$1" +" s_228)" +"(syntax-e$1" +" s_228)" " s_228)))" -"(let-values(((s_231)" -"(if(syntax?$1" -" s_230)" -"(syntax-e$1" -" s_230)" -" s_230)))" "(if(pair?" -" s_231)" +" s_229)" "(let-values(((spec162_0)" -"(let-values(((s_232)" +"(let-values(((s_230)" "(car" -" s_231)))" -" s_232))" +" s_229)))" +" s_230))" "(()" -"(let-values(((s_233)" +"(let-values(((s_231)" "(cdr" -" s_231)))" -"(let-values(((s_234)" +" s_229)))" +"(let-values(((s_232)" "(if(syntax?$1" -" s_233)" +" s_231)" "(syntax-e$1" -" s_233)" -" s_233)))" +" s_231)" +" s_231)))" "(if(null?" -" s_234)" +" s_232)" "(values)" "(raise-syntax-error$1" " #f" @@ -23784,15 +23472,15 @@ static const char *startup_source = " prefix154_1" " id:prefix155_1" " spec156_1))))))" -"(loop_86" +"(loop_84" "(list" " spec156_0)" -"(let-values(((or-part_195)" +"(let-values(((or-part_190)" " top-req_0))" -"(if or-part_195" -" or-part_195" -" req_4))" -" phase-shift_9" +"(if or-part_190" +" or-part_190" +" req_0))" +" phase-shift_10" " just-meta_0" "(adjust-prefix2.1" "(syntax-e$1" @@ -23801,7 +23489,7 @@ static const char *startup_source = " #f" " 'path))))" "(if(equal?" -" tmp_25" +" tmp_24" " 'all-except)" "(let-values()" "(let-values((()" @@ -23813,57 +23501,57 @@ static const char *startup_source = " all-except163_0" " spec164_0" " id165_0)" -"(let-values(((s_235)" -" req_4))" +"(let-values(((s_233)" +" req_0))" "(let-values(((orig-s_11)" -" s_235))" +" s_233))" "(let-values(((all-except163_1" " spec164_1" " id165_1)" -"(let-values(((s_236)" +"(let-values(((s_234)" "(if(syntax?$1" -" s_235)" +" s_233)" "(syntax-e$1" -" s_235)" -" s_235)))" +" s_233)" +" s_233)))" "(if(pair?" -" s_236)" +" s_234)" "(let-values(((all-except166_0)" -"(let-values(((s_237)" +"(let-values(((s_235)" "(car" -" s_236)))" -" s_237))" +" s_234)))" +" s_235))" "((spec167_0" " id168_0)" -"(let-values(((s_238)" +"(let-values(((s_236)" "(cdr" +" s_234)))" +"(let-values(((s_237)" +"(if(syntax?$1" +" s_236)" +"(syntax-e$1" +" s_236)" " s_236)))" -"(let-values(((s_239)" -"(if(syntax?$1" -" s_238)" -"(syntax-e$1" -" s_238)" -" s_238)))" "(if(pair?" -" s_239)" +" s_237)" "(let-values(((spec169_0)" -"(let-values(((s_240)" +"(let-values(((s_238)" "(car" -" s_239)))" -" s_240))" +" s_237)))" +" s_238))" "((id170_0)" -"(let-values(((s_241)" +"(let-values(((s_239)" "(cdr" -" s_239)))" -"(let-values(((s_242)" +" s_237)))" +"(let-values(((s_240)" "(if(syntax?$1" -" s_241)" +" s_239)" "(syntax-e$1" -" s_241)" -" s_241)))" +" s_239)" +" s_239)))" "(let-values(((flat-s_6)" "(to-syntax-list.1" -" s_242)))" +" s_240)))" "(if(not" " flat-s_6)" "(let-values()" @@ -23872,8 +23560,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_11))" "(let-values()" -"(let-values(((id_34)" -"(let-values(((lst_138)" +"(let-values(((id_33)" +"(let-values(((lst_140)" " flat-s_6))" "(begin" "(if(variable-reference-from-unsafe?" @@ -23881,61 +23569,61 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_138)))" -"((letrec-values(((for-loop_166)" -"(lambda(id_35" -" lst_139)" +" lst_140)))" +"((letrec-values(((for-loop_169)" +"(lambda(id_34" +" lst_141)" "(begin" " 'for-loop" "(if(pair?" -" lst_139)" -"(let-values(((s_243)" +" lst_141)" +"(let-values(((s_241)" "(unsafe-car" -" lst_139))" -"((rest_69)" +" lst_141))" +"((rest_70)" "(unsafe-cdr" -" lst_139)))" +" lst_141)))" +"(let-values(((id_35)" "(let-values(((id_36)" +" id_34))" "(let-values(((id_37)" -" id_35))" -"(let-values(((id_38)" "(let-values()" "(let-values(((id171_0)" "(let-values()" -"(if(let-values(((or-part_196)" +"(if(let-values(((or-part_191)" "(if(syntax?$1" -" s_243)" +" s_241)" "(symbol?" "(syntax-e$1" -" s_243))" +" s_241))" " #f)))" -"(if or-part_196" -" or-part_196" +"(if or-part_191" +" or-part_191" "(symbol?" -" s_243)))" -" s_243" +" s_241)))" +" s_241" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_11" -" s_243)))))" +" s_241)))))" "(cons" " id171_0" -" id_37)))))" +" id_36)))))" "(values" -" id_38)))))" +" id_37)))))" "(if(not" " #f)" -"(for-loop_166" -" id_36" -" rest_69)" -" id_36)))" -" id_35)))))" -" for-loop_166)" +"(for-loop_169" +" id_35" +" rest_70)" +" id_35)))" +" id_34)))))" +" for-loop_169)" " null" -" lst_138)))))" +" lst_140)))))" "(reverse$1" -" id_34)))))))))" +" id_33)))))))))" "(values" " spec169_0" " id170_0))" @@ -23956,15 +23644,15 @@ static const char *startup_source = " all-except163_1" " spec164_1" " id165_1))))))" -"(loop_86" +"(loop_84" "(list" " spec164_0)" -"(let-values(((or-part_197)" +"(let-values(((or-part_192)" " top-req_0))" -"(if or-part_197" -" or-part_197" -" req_4))" -" phase-shift_9" +"(if or-part_192" +" or-part_192" +" req_0))" +" phase-shift_10" " just-meta_0" "(adjust-all-except3.1" " '||" @@ -23974,7 +23662,7 @@ static const char *startup_source = " #f" " 'path))))" "(if(equal?" -" tmp_25" +" tmp_24" " 'prefix-all-except)" "(let-values()" "(let-values((()" @@ -23987,93 +23675,93 @@ static const char *startup_source = " id:prefix173_0" " spec174_0" " id175_0)" -"(let-values(((s_244)" -" req_4))" +"(let-values(((s_242)" +" req_0))" "(let-values(((orig-s_12)" -" s_244))" +" s_242))" "(let-values(((prefix-all-except172_1" " id:prefix173_1" " spec174_1" " id175_1)" -"(let-values(((s_245)" +"(let-values(((s_243)" "(if(syntax?$1" -" s_244)" +" s_242)" "(syntax-e$1" -" s_244)" -" s_244)))" +" s_242)" +" s_242)))" "(if(pair?" -" s_245)" +" s_243)" "(let-values(((prefix-all-except176_0)" -"(let-values(((s_246)" +"(let-values(((s_244)" "(car" -" s_245)))" -" s_246))" +" s_243)))" +" s_244))" "((id:prefix177_0" " spec178_0" " id179_0)" -"(let-values(((s_247)" +"(let-values(((s_245)" "(cdr" +" s_243)))" +"(let-values(((s_246)" +"(if(syntax?$1" +" s_245)" +"(syntax-e$1" +" s_245)" " s_245)))" -"(let-values(((s_248)" -"(if(syntax?$1" -" s_247)" -"(syntax-e$1" -" s_247)" -" s_247)))" "(if(pair?" -" s_248)" +" s_246)" "(let-values(((id:prefix180_0)" -"(let-values(((s_249)" +"(let-values(((s_247)" "(car" -" s_248)))" -"(if(let-values(((or-part_198)" +" s_246)))" +"(if(let-values(((or-part_193)" "(if(syntax?$1" -" s_249)" +" s_247)" "(symbol?" "(syntax-e$1" -" s_249))" +" s_247))" " #f)))" -"(if or-part_198" -" or-part_198" +"(if or-part_193" +" or-part_193" "(symbol?" -" s_249)))" -" s_249" +" s_247)))" +" s_247" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_12" -" s_249))))" +" s_247))))" "((spec181_0" " id182_0)" -"(let-values(((s_250)" +"(let-values(((s_248)" "(cdr" +" s_246)))" +"(let-values(((s_249)" +"(if(syntax?$1" +" s_248)" +"(syntax-e$1" +" s_248)" " s_248)))" -"(let-values(((s_251)" -"(if(syntax?$1" -" s_250)" -"(syntax-e$1" -" s_250)" -" s_250)))" "(if(pair?" -" s_251)" +" s_249)" "(let-values(((spec183_0)" -"(let-values(((s_252)" +"(let-values(((s_250)" "(car" -" s_251)))" -" s_252))" +" s_249)))" +" s_250))" "((id184_0)" -"(let-values(((s_253)" +"(let-values(((s_251)" "(cdr" -" s_251)))" -"(let-values(((s_254)" +" s_249)))" +"(let-values(((s_252)" "(if(syntax?$1" -" s_253)" +" s_251)" "(syntax-e$1" -" s_253)" -" s_253)))" +" s_251)" +" s_251)))" "(let-values(((flat-s_7)" "(to-syntax-list.1" -" s_254)))" +" s_252)))" "(if(not" " flat-s_7)" "(let-values()" @@ -24082,8 +23770,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_12))" "(let-values()" -"(let-values(((id_39)" -"(let-values(((lst_140)" +"(let-values(((id_38)" +"(let-values(((lst_142)" " flat-s_7))" "(begin" "(if(variable-reference-from-unsafe?" @@ -24091,61 +23779,61 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_140)))" -"((letrec-values(((for-loop_167)" -"(lambda(id_40" -" lst_141)" +" lst_142)))" +"((letrec-values(((for-loop_170)" +"(lambda(id_39" +" lst_143)" "(begin" " 'for-loop" "(if(pair?" -" lst_141)" -"(let-values(((s_255)" +" lst_143)" +"(let-values(((s_253)" "(unsafe-car" -" lst_141))" -"((rest_70)" +" lst_143))" +"((rest_71)" "(unsafe-cdr" -" lst_141)))" +" lst_143)))" +"(let-values(((id_40)" "(let-values(((id_41)" +" id_39))" "(let-values(((id_42)" -" id_40))" -"(let-values(((id_43)" "(let-values()" "(let-values(((id185_0)" "(let-values()" -"(if(let-values(((or-part_199)" +"(if(let-values(((or-part_194)" "(if(syntax?$1" -" s_255)" +" s_253)" "(symbol?" "(syntax-e$1" -" s_255))" +" s_253))" " #f)))" -"(if or-part_199" -" or-part_199" +"(if or-part_194" +" or-part_194" "(symbol?" -" s_255)))" -" s_255" +" s_253)))" +" s_253" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_12" -" s_255)))))" +" s_253)))))" "(cons" " id185_0" -" id_42)))))" +" id_41)))))" "(values" -" id_43)))))" +" id_42)))))" "(if(not" " #f)" -"(for-loop_167" -" id_41" -" rest_70)" -" id_41)))" -" id_40)))))" -" for-loop_167)" +"(for-loop_170" +" id_40" +" rest_71)" +" id_40)))" +" id_39)))))" +" for-loop_170)" " null" -" lst_140)))))" +" lst_142)))))" "(reverse$1" -" id_39)))))))))" +" id_38)))))))))" "(values" " spec183_0" " id184_0))" @@ -24176,15 +23864,15 @@ static const char *startup_source = " id:prefix173_1" " spec174_1" " id175_1))))))" -"(loop_86" +"(loop_84" "(list" " spec174_0)" -"(let-values(((or-part_200)" +"(let-values(((or-part_195)" " top-req_0))" -"(if or-part_200" -" or-part_200" -" req_4))" -" phase-shift_9" +"(if or-part_195" +" or-part_195" +" req_0))" +" phase-shift_10" " just-meta_0" "(adjust-all-except3.1" "(syntax-e$1" @@ -24195,7 +23883,7 @@ static const char *startup_source = " #f" " 'path))))" "(if(equal?" -" tmp_25" +" tmp_24" " 'rename)" "(let-values()" "(let-values((()" @@ -24208,125 +23896,125 @@ static const char *startup_source = " spec187_0" " id:to188_0" " id:from189_0)" -"(let-values(((s_256)" -" req_4))" +"(let-values(((s_254)" +" req_0))" "(let-values(((orig-s_13)" -" s_256))" +" s_254))" "(let-values(((rename186_1" " spec187_1" " id:to188_1" " id:from189_1)" -"(let-values(((s_257)" +"(let-values(((s_255)" "(if(syntax?$1" -" s_256)" +" s_254)" "(syntax-e$1" -" s_256)" -" s_256)))" +" s_254)" +" s_254)))" "(if(pair?" -" s_257)" +" s_255)" "(let-values(((rename190_0)" -"(let-values(((s_258)" +"(let-values(((s_256)" "(car" -" s_257)))" -" s_258))" +" s_255)))" +" s_256))" "((spec191_0" " id:to192_0" " id:from193_0)" -"(let-values(((s_259)" +"(let-values(((s_257)" "(cdr" -" s_257)))" -"(let-values(((s_260)" +" s_255)))" +"(let-values(((s_258)" "(if(syntax?$1" -" s_259)" +" s_257)" "(syntax-e$1" -" s_259)" -" s_259)))" +" s_257)" +" s_257)))" "(if(pair?" -" s_260)" +" s_258)" "(let-values(((spec194_0)" -"(let-values(((s_261)" +"(let-values(((s_259)" "(car" -" s_260)))" -" s_261))" +" s_258)))" +" s_259))" "((id:to195_0" " id:from196_0)" -"(let-values(((s_262)" +"(let-values(((s_260)" "(cdr" +" s_258)))" +"(let-values(((s_261)" +"(if(syntax?$1" +" s_260)" +"(syntax-e$1" +" s_260)" " s_260)))" -"(let-values(((s_263)" -"(if(syntax?$1" -" s_262)" -"(syntax-e$1" -" s_262)" -" s_262)))" "(if(pair?" -" s_263)" +" s_261)" "(let-values(((id:to197_0)" -"(let-values(((s_264)" +"(let-values(((s_262)" "(car" -" s_263)))" -"(if(let-values(((or-part_201)" +" s_261)))" +"(if(let-values(((or-part_196)" "(if(syntax?$1" -" s_264)" +" s_262)" "(symbol?" "(syntax-e$1" -" s_264))" +" s_262))" " #f)))" -"(if or-part_201" -" or-part_201" +"(if or-part_196" +" or-part_196" "(symbol?" -" s_264)))" -" s_264" +" s_262)))" +" s_262" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_13" -" s_264))))" +" s_262))))" "((id:from198_0)" -"(let-values(((s_265)" +"(let-values(((s_263)" "(cdr" +" s_261)))" +"(let-values(((s_264)" +"(if(syntax?$1" +" s_263)" +"(syntax-e$1" +" s_263)" " s_263)))" -"(let-values(((s_266)" -"(if(syntax?$1" -" s_265)" -"(syntax-e$1" -" s_265)" -" s_265)))" "(if(pair?" -" s_266)" +" s_264)" "(let-values(((id:from199_0)" -"(let-values(((s_267)" +"(let-values(((s_265)" "(car" -" s_266)))" -"(if(let-values(((or-part_202)" +" s_264)))" +"(if(let-values(((or-part_197)" "(if(syntax?$1" -" s_267)" +" s_265)" "(symbol?" "(syntax-e$1" -" s_267))" +" s_265))" " #f)))" -"(if or-part_202" -" or-part_202" +"(if or-part_197" +" or-part_197" "(symbol?" -" s_267)))" -" s_267" +" s_265)))" +" s_265" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_13" -" s_267))))" +" s_265))))" "(()" -"(let-values(((s_268)" +"(let-values(((s_266)" "(cdr" -" s_266)))" -"(let-values(((s_269)" +" s_264)))" +"(let-values(((s_267)" "(if(syntax?$1" -" s_268)" +" s_266)" "(syntax-e$1" -" s_268)" -" s_268)))" +" s_266)" +" s_266)))" "(if(null?" -" s_269)" +" s_267)" "(values)" "(raise-syntax-error$1" " #f" @@ -24368,15 +24056,15 @@ static const char *startup_source = " spec187_1" " id:to188_1" " id:from189_1))))))" -"(loop_86" +"(loop_84" "(list" " spec187_0)" -"(let-values(((or-part_203)" +"(let-values(((or-part_198)" " top-req_0))" -"(if or-part_203" -" or-part_203" -" req_4))" -" phase-shift_9" +"(if or-part_198" +" or-part_198" +" req_0))" +" phase-shift_10" " just-meta_0" "(adjust-rename4.1" " id:to188_0" @@ -24388,14 +24076,14 @@ static const char *startup_source = "(let-values()" "(let-values(((maybe-mp_0)" "(syntax->datum$1" -" req_4)))" +" req_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_204)" +"(if(let-values(((or-part_199)" "(1/module-path?" " maybe-mp_0)))" -"(if or-part_204" -" or-part_204" +"(if or-part_199" +" or-part_199" "(1/resolved-module-path?" " maybe-mp_0)))" "(void)" @@ -24404,14 +24092,14 @@ static const char *startup_source = " #f" " \"bad require spec\"" " orig-s_3" -" req_4)))" +" req_0)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_205)" +"(if(let-values(((or-part_200)" " adjust_0))" -"(if or-part_205" -" or-part_205" +"(if or-part_200" +" or-part_200" "(not" "(eq?" " just-meta_0" @@ -24428,25 +24116,35 @@ static const char *startup_source = "(resolved-module-path->module-path" " maybe-mp_0)" " maybe-mp_0)))" -"(let-values(((mpi_36)" -"(let-values(((declared-submodule-names219_0)" +"(let-values(((mpi_35)" +"(let-values(((mp217_0)" +" mp_0)" +"((self218_0)" +" self_11)" +"((declared-submodule-names219_0)" " declared-submodule-names_2))" "(module-path->mpi5.1" " declared-submodule-names219_0" " #t" -" mp_0" -" self_13))))" +" mp217_0" +" self218_0))))" "(begin" -"(let-values(((temp203_0)" -"(let-values(((or-part_206)" -" req_4))" -"(if or-part_206" -" or-part_206" +"(let-values(((mpi200_0)" +" mpi_35)" +"((req201_0)" +" req_0)" +"((self202_0)" +" self_11)" +"((temp203_0)" +"(let-values(((or-part_118)" +" req_0))" +"(if or-part_118" +" or-part_118" " top-req_0)))" "((m-ns204_0)" " m-ns_8)" "((phase-shift205_0)" -" phase-shift_9)" +" phase-shift_10)" "((run-phase206_0)" " run-phase_5)" "((just-meta207_0)" @@ -24495,33 +24193,33 @@ static const char *startup_source = " visit?211_0" " #t" " who216_0" -" mpi_36" -" req_4" -" self_13" +" mpi200_0" +" req201_0" +" self202_0" " temp203_0" " m-ns204_0))" "(set! initial-require?_0" " #f)))))))))))))))))))))))))" "(values" -" result_69)))))" +" result_71)))))" "(if(if(not" "((lambda x_53" -"(not result_68))" -" req_4))" +"(not result_70))" +" req_0))" "(not #f)" " #f)" -"(for-loop_37" -" result_68" -" rest_67)" -" result_68)))" +"(for-loop_36" +" result_70" +" rest_68)" +" result_70)))" " result_29)))))" -" for-loop_37)" +" for-loop_36)" " #t" -" lst_136)))))))" -" loop_86)" +" lst_138)))))))" +" loop_84)" " reqs_0" " #f" -" phase-shift_8" +" phase-shift_9" " 'all" " #f" " #t" @@ -24531,38 +24229,38 @@ static const char *startup_source = "(ids->sym-set)" "(lambda(ids_3)" "(begin" -"(let-values(((lst_142) ids_3))" +"(let-values(((lst_144) ids_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_142)))" -"((letrec-values(((for-loop_168)" -"(lambda(table_131 lst_143)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_144)))" +"((letrec-values(((for-loop_171)" +"(lambda(table_131 lst_145)" "(begin" " 'for-loop" -"(if(pair? lst_143)" -"(let-values(((id_44)(unsafe-car lst_143))((rest_71)(unsafe-cdr lst_143)))" +"(if(pair? lst_145)" +"(let-values(((id_43)(unsafe-car lst_145))((rest_72)(unsafe-cdr lst_145)))" "(let-values(((table_132)" "(let-values(((table_133) table_131))" "(let-values(((table_134)" "(let-values()" -"(let-values(((key_52 val_45)" +"(let-values(((key_52 val_44)" "(let-values()" "(values" -"(let-values()(syntax-e$1 id_44))" +"(let-values()(syntax-e$1 id_43))" " #t))))" -"(hash-set table_133 key_52 val_45)))))" +"(hash-set table_133 key_52 val_44)))))" "(values table_134)))))" -"(if(not #f)(for-loop_168 table_132 rest_71) table_132)))" +"(if(not #f)(for-loop_171 table_132 rest_72) table_132)))" " table_131)))))" -" for-loop_168)" +" for-loop_171)" " '#hash()" -" lst_142))))))" +" lst_144))))))" "(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_14) self38_0))" +"(let-values(((self_12) 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))" @@ -24570,10 +24268,10 @@ static const char *startup_source = "(let-values(((who_13) who34_0))" "(let-values()" "(let-values(((temp220_0)" -"(let-values(((mod-path232_0) mod-path_7)((self233_0) self_14))" +"(let-values(((mod-path232_0) mod-path_7)((self233_0) self_12))" "(module-path->mpi5.1 #f #f mod-path232_0 self233_0)))" "((temp221_0) #f)" -"((self222_0) self_14)" +"((self222_0) self_12)" "((in-stx223_0) in-stx_0)" "((m-ns224_0) m-ns_9)" "((temp225_0) 0)" @@ -24648,12 +24346,12 @@ static const char *startup_source = " m-ns77_0)" "(begin" " 'perform-require!78" -"(let-values(((mpi_37) mpi73_0))" +"(let-values(((mpi_36) mpi73_0))" "(let-values(((orig-s_14) 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(((phase-shift_11) phase-shift45_0))" "(let-values(((run-phase_6) run-phase46_0))" "(let-values(((just-meta_1)(if just-meta61_0 just-meta47_0 'all)))" "(let-values(((adjust_1)(if adjust62_0 adjust48_0 #f)))" @@ -24676,7 +24374,7 @@ static const char *startup_source = "(let-values(((who_14) who58_0))" "(let-values()" "(let-values()" -"(let-values(((module-name_0)(1/module-path-index-resolve mpi_37 #t)))" +"(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)" @@ -24696,29 +24394,39 @@ static const char *startup_source = "(if requires+provides_3" "(add-required-module!" " requires+provides_3" -" mpi_37" -" phase-shift_10" +" mpi_36" +" phase-shift_11" "(module-cross-phase-persistent? m_13))" -" mpi_37)))" +" mpi_36)))" "(let-values((()" "(begin" "(if visit?_2" "(let-values()" -"(let-values(((run-phase252_0)" +"(let-values(((m-ns249_0) m-ns_10)" +"((interned-mpi250_0)" +" interned-mpi_0)" +"((phase-shift251_0)" +" phase-shift_11)" +"((run-phase252_0)" " run-phase_6))" "(namespace-module-visit!104.1" " run-phase252_0" " #t" -" m-ns_10" -" interned-mpi_0" -" phase-shift_10)))" +" m-ns249_0" +" interned-mpi250_0" +" phase-shift251_0)))" "(void))" "(values))))" "(let-values((()" "(begin" "(if run?_2" "(let-values()" -"(let-values(((run-phase256_0)" +"(let-values(((m-ns253_0) m-ns_10)" +"((interned-mpi254_0)" +" interned-mpi_0)" +"((phase-shift255_0)" +" phase-shift_11)" +"((run-phase256_0)" " run-phase_6))" "(namespace-module-instantiate!96.1" " #f" @@ -24729,40 +24437,45 @@ static const char *startup_source = " #f" " #f" " #f" -" m-ns_10" -" interned-mpi_0" -" phase-shift_10)))" +" m-ns253_0" +" interned-mpi254_0" +" phase-shift255_0)))" "(void))" "(values))))" "(let-values((()" "(begin" "(if(not" -"(let-values(((or-part_207)" +"(let-values(((or-part_201)" " visit?_2))" -"(if or-part_207" -" or-part_207" +"(if or-part_201" +" or-part_201" " run?_2)))" "(let-values()" -"(let-values(((run-phase260_0)" +"(let-values(((m-ns257_0) m-ns_10)" +"((interned-mpi258_0)" +" interned-mpi_0)" +"((phase-shift259_0)" +" phase-shift_11)" +"((run-phase260_0)" " run-phase_6))" "(namespace-module-make-available!112.1" " run-phase260_0" " #t" -" m-ns_10" -" interned-mpi_0" -" phase-shift_10)))" +" m-ns257_0" +" interned-mpi258_0" +" phase-shift259_0)))" "(void))" "(values))))" "(let-values(((can-bulk-bind?_0)" -"(if(let-values(((or-part_208)" +"(if(let-values(((or-part_202)" "(not adjust_1)))" -"(if or-part_208" -" or-part_208" -"(let-values(((or-part_209)" +"(if or-part_202" +" or-part_202" +"(let-values(((or-part_203)" "(adjust-prefix?" " adjust_1)))" -"(if or-part_209" -" or-part_209" +"(if or-part_203" +" or-part_203" "(adjust-all-except?" " adjust_1)))))" "(not skip-variable-phase-level_1)" @@ -24788,7 +24501,18 @@ static const char *startup_source = " #f)))" "(let-values((()" "(begin" -"(let-values(((orig-s240_0)" +"(let-values(((m234_0) m_13)" +"((bind-in-stx235_0)" +" bind-in-stx_0)" +"((phase-shift236_1)" +" phase-shift_11)" +"((m-ns237_0)" +" m-ns_10)" +"((interned-mpi238_0)" +" interned-mpi_0)" +"((module-name239_0)" +" module-name_0)" +"((orig-s240_0)" " orig-s_14)" "((temp241_0)" "(if(adjust-only?" @@ -24822,13 +24546,17 @@ static const char *startup_source = " provide-phase-level_4)" "(begin" " 'temp247" -"(let-values(((temp263_0)" +"(let-values(((requires+provides261_0)" +" requires+provides_3)" +"((bind-in-stx262_0)" +" bind-in-stx_0)" +"((temp263_0)" "(module-self" " m_13))" "((mpi264_0)" -" mpi_37)" +" mpi_36)" "((phase-shift265_0)" -" phase-shift_10)" +" phase-shift_11)" "((provides266_0)" " provides_6)" "((provide-phase-level267_0)" @@ -24863,8 +24591,8 @@ static const char *startup_source = " bulk-prefix268_0" " temp270_0" " who275_0" -" requires+provides_3" -" bind-in-stx_0" +" requires+provides261_0" +" bind-in-stx262_0" " temp263_0" " mpi264_0" " phase-shift265_0" @@ -24873,17 +24601,17 @@ static const char *startup_source = " #f)" " #f))" "((temp248_0)" -"(if(let-values(((or-part_210)" +"(if(let-values(((or-part_204)" "(not" " can-bulk-bind?_0)))" -"(if or-part_210" -" or-part_210" +"(if or-part_204" +" or-part_204" " copy-variable-phase-level_1))" "(lambda(binding_17" " as-transformer?_3)" "(begin" " 'temp248" -"(let-values(((sym_42)" +"(let-values(((sym_43)" "(module-binding-nominal-sym" " binding_17)))" "(let-values(((provide-phase_0)" @@ -24903,19 +24631,19 @@ static const char *startup_source = "(if(not" " adjust_1)" "(let-values()" -" sym_42)" +" sym_43)" "(if(adjust-only?" " adjust_1)" "(let-values()" "(if(set-member?" "(adjust-only-syms" " adjust_1)" -" sym_42)" +" sym_43)" "(if(hash-set!" " done-syms_0" -" sym_42" +" sym_43" " #t)" -" sym_42" +" sym_43" " #f)" " #f))" "(if(adjust-prefix?" @@ -24926,7 +24654,7 @@ static const char *startup_source = " \"~a~a\"" "(adjust-prefix-sym" " adjust_1)" -" sym_42)))" +" sym_43)))" "(if(adjust-all-except?" " adjust_1)" "(let-values()" @@ -24934,10 +24662,10 @@ static const char *startup_source = "(if(set-member?" "(adjust-all-except-syms" " adjust_1)" -" sym_42)" +" sym_43)" "(hash-set!" " done-syms_0" -" sym_42" +" sym_43" " #t)" " #f))" "(string->symbol" @@ -24945,18 +24673,18 @@ static const char *startup_source = " \"~a~a\"" "(adjust-all-except-prefix-sym" " adjust_1)" -" sym_42))" +" sym_43))" " #f))" "(if(adjust-rename?" " adjust_1)" "(let-values()" "(if(eq?" -" sym_42" +" sym_43" "(adjust-rename-from-sym" " adjust_1))" "(if(hash-set!" " done-syms_0" -" sym_42" +" sym_43" " #t)" "(adjust-rename-to-id" " adjust_1)" @@ -24968,13 +24696,13 @@ static const char *startup_source = " requires+provides_3" " #f)" "(let-values()" -"(let-values(((s_270)" +"(let-values(((s_268)" "(datum->syntax$1" " bind-in-stx_0" " adjusted-sym_0)))" "(let-values(((bind-phase_0)" "(phase+" -" phase-shift_10" +" phase-shift_11" " provide-phase_0)))" "(begin" "(if initial-require?_1" @@ -24985,7 +24713,7 @@ static const char *startup_source = "((requires+provides283_0)" " requires+provides_3)" "((s284_0)" -" s_270)" +" s_268)" "((bind-phase285_0)" " bind-phase_0)" "((binding286_0)" @@ -25010,7 +24738,15 @@ static const char *startup_source = " requires+provides283_0" " s284_0" " bind-phase285_0))))" -"(let-values(((can-be-shadowed?280_0)" +"(let-values(((requires+provides276_0)" +" requires+provides_3)" +"((s277_0)" +" s_268)" +"((bind-phase278_0)" +" bind-phase_0)" +"((binding279_0)" +" binding_17)" +"((can-be-shadowed?280_0)" " can-be-shadowed?_3)" "((as-transformer?281_0)" " as-transformer?_3))" @@ -25018,10 +24754,10 @@ static const char *startup_source = " as-transformer?281_0" " can-be-shadowed?280_0" " #t" -" requires+provides_3" -" s_270" -" bind-phase_0" -" binding_17))))))" +" requires+provides276_0" +" s277_0" +" bind-phase278_0" +" binding279_0))))))" "(void))" "(if(if adjusted-sym_0" "(if copy-variable-phase-level_1" @@ -25039,7 +24775,7 @@ static const char *startup_source = " adjusted-sym_0" " binding_17" " copy-variable-phase-level_1" -" phase-shift_10" +" phase-shift_11" " copy-variable-as-constant?_1))" "(void))" " adjusted-sym_0))))))" @@ -25054,19 +24790,19 @@ static const char *startup_source = " orig-s240_0" " just-meta242_0" " temp241_0" -" m_13" -" bind-in-stx_0" -" phase-shift_10" -" m-ns_10" -" interned-mpi_0" -" module-name_0))" +" m234_0" +" bind-in-stx235_0" +" phase-shift236_1" +" m-ns237_0" +" interned-mpi238_0" +" module-name239_0))" "(values))))" "(let-values((()" "(begin" "(if update-nominals-box_0" "(let-values()" "(begin" -"(let-values(((lst_144)" +"(let-values(((lst_146)" "(unbox" " update-nominals-box_0)))" "(begin" @@ -25075,19 +24811,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_144)))" -"((letrec-values(((for-loop_169)" -"(lambda(lst_145)" +" lst_146)))" +"((letrec-values(((for-loop_172)" +"(lambda(lst_147)" "(begin" " 'for-loop" "(if(pair?" -" lst_145)" +" lst_147)" "(let-values(((update!_1)" "(unsafe-car" -" lst_145))" -"((rest_72)" +" lst_147))" +"((rest_73)" "(unsafe-cdr" -" lst_145)))" +" lst_147)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25099,12 +24835,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_169" -" rest_72)" +"(for-loop_172" +" rest_73)" "(values))))" "(values))))))" -" for-loop_169)" -" lst_144)))" +" for-loop_172)" +" lst_146)))" "(void)))" "(void))" "(values))))" @@ -25134,7 +24870,7 @@ static const char *startup_source = " #f)" "(let-values()" "(begin" -"(let-values(((ht_94)" +"(let-values(((ht_103)" " need-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -25142,16 +24878,16 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash-keys" -" ht_94)))" -"((letrec-values(((for-loop_146)" -"(lambda(i_124)" +" ht_103)))" +"((letrec-values(((for-loop_167)" +"(lambda(i_135)" "(begin" " 'for-loop" -"(if i_124" -"(let-values(((sym_43)" +"(if i_135" +"(let-values(((sym_44)" "(unsafe-immutable-hash-iterate-key" -" ht_94" -" i_124)))" +" ht_103" +" i_135)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25160,7 +24896,7 @@ static const char *startup_source = "(let-values()" "(if(hash-ref" " done-syms_0" -" sym_43" +" sym_44" " #f)" "(void)" "(let-values()" @@ -25168,20 +24904,20 @@ static const char *startup_source = " who_14" " \"not in nested spec\"" " orig-s_14" -" sym_43))))" +" sym_44))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_146" +"(for-loop_167" "(unsafe-immutable-hash-iterate-next" -" ht_94" -" i_124))" +" ht_103" +" i_135))" "(values))))" "(values))))))" -" for-loop_146)" +" for-loop_167)" "(unsafe-immutable-hash-iterate-first" -" ht_94))))" +" ht_103))))" "(void)))" "(void))))))))))))))))))))))))))))))))))))))))))" "(define-values" @@ -25205,9 +24941,9 @@ static const char *startup_source = " 'bind-all-provides!105" "(let-values(((m_14) m99_0))" "(let-values(((in-stx_2) in-stx100_0))" -"(let-values(((phase-shift_11) phase-shift101_0))" +"(let-values(((phase-shift_12) phase-shift101_0))" "(let-values(((ns_49) ns102_0))" -"(let-values(((mpi_38) mpi103_0))" +"(let-values(((mpi_37) mpi103_0))" "(let-values(((module-name_1) module-name104_0))" "(let-values(((orig-s_15) in81_0))" "(let-values(((only-syms_0) only82_0))" @@ -25219,30 +24955,30 @@ static const char *startup_source = "(let-values(((filter_0) filter88_0))" "(let-values(((bulk-callback_0) bulk-callback89_0))" "(let-values()" -"(let-values(((self_15)(module-self m_14)))" +"(let-values(((self_13)(module-self m_14)))" "(begin" -"(let-values(((ht_102)(module-provides m_14)))" +"(let-values(((ht_104)(module-provides m_14)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_102)))" -"((letrec-values(((for-loop_170)" -"(lambda(i_134)" +"(let-values()(check-in-hash ht_104)))" +"((letrec-values(((for-loop_173)" +"(lambda(i_136)" "(begin" " 'for-loop" -"(if i_134" +"(if i_136" "(let-values(((provide-phase-level_5 provides_7)" "(hash-iterate-key+value" -" ht_102" -" i_134)))" +" ht_104" +" i_136)))" "(let-values((()" "(let-values()" -"(if(let-values(((or-part_211)" +"(if(let-values(((or-part_205)" "(eq?" " just-meta_2" " 'all)))" -"(if or-part_211" -" or-part_211" +"(if or-part_205" +" or-part_205" "(eqv?" " just-meta_2" " provide-phase-level_5)))" @@ -25251,9 +24987,9 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((phase_65)" +"(let-values(((phase_67)" "(phase+" -" phase-shift_11" +" phase-shift_12" " provide-phase-level_5)))" "(begin" "(if bulk-callback_0" @@ -25268,11 +25004,11 @@ static const char *startup_source = "(if filter_0" "(let-values()" "(begin" -"(let-values(((lst_146)" -"(let-values(((or-part_212)" +"(let-values(((lst_148)" +"(let-values(((or-part_206)" " only-syms_0))" -"(if or-part_212" -" or-part_212" +"(if or-part_206" +" or-part_206" "(hash-keys" " provides_7)))))" "(begin" @@ -25281,19 +25017,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_146)))" -"((letrec-values(((for-loop_171)" -"(lambda(lst_147)" +" lst_148)))" +"((letrec-values(((for-loop_174)" +"(lambda(lst_149)" "(begin" " 'for-loop" "(if(pair?" -" lst_147)" -"(let-values(((sym_44)" +" lst_149)" +"(let-values(((sym_45)" "(unsafe-car" -" lst_147))" -"((rest_73)" +" lst_149))" +"((rest_74)" "(unsafe-cdr" -" lst_147)))" +" lst_149)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25303,32 +25039,36 @@ static const char *startup_source = "(let-values(((binding/p_4)" "(hash-ref" " provides_7" -" sym_44" +" sym_45" " #f)))" "(if binding/p_4" "(let-values()" "(let-values(((b_69)" -"(let-values(((self292_0)" -" self_15)" +"(let-values(((binding/p290_0)" +" binding/p_4)" +"((sym291_0)" +" sym_45)" +"((self292_0)" +" self_13)" "((mpi293_0)" -" mpi_38)" +" mpi_37)" "((provide-phase-level294_0)" " provide-phase-level_5)" "((phase-shift295_0)" -" phase-shift_11))" +" phase-shift_12))" "(provide-binding-to-require-binding11.1" " mpi293_0" " phase-shift295_0" " provide-phase-level294_0" " self292_0" -" binding/p_4" -" sym_44))))" -"(let-values(((sym_45)" +" binding/p290_0" +" sym291_0))))" +"(let-values(((sym_46)" "(filter_0" " b_69" "(provided-as-transformer?" " binding/p_4))))" -"(if(if sym_45" +"(if(if sym_46" "(not" " can-bulk?_0)" " #f)" @@ -25336,11 +25076,11 @@ static const char *startup_source = "(let-values(((temp296_0)" "(datum->syntax$1" " in-stx_2" -" sym_45))" +" sym_46))" "((b297_0)" " b_69)" "((phase298_0)" -" phase_65))" +" phase_67))" "(add-binding!17.1" " #f" " #f" @@ -25355,12 +25095,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_171" -" rest_73)" +"(for-loop_174" +" rest_74)" "(values))))" "(values))))))" -" for-loop_171)" -" lst_146)))" +" for-loop_174)" +" lst_148)))" "(void)))" "(void))" "(if can-bulk?_0" @@ -25368,9 +25108,11 @@ static const char *startup_source = "(let-values(((bulk-binding-registry_10)" "(namespace-bulk-binding-registry" " ns_49)))" -"(let-values(((temp300_0)" +"(let-values(((in-stx299_0)" +" in-stx_2)" +"((temp300_0)" "(bulk-binding14.1" -"(let-values(((or-part_213)" +"(let-values(((or-part_207)" "(if(not" " bulk-prefix_2)" "(if(zero?" @@ -25379,8 +25121,8 @@ static const char *startup_source = " provides_7" " #f)" " #f)))" -"(if or-part_213" -" or-part_213" +"(if or-part_207" +" or-part_207" "(if(not" "(registered-bulk-provide?" " bulk-binding-registry_10" @@ -25392,19 +25134,19 @@ static const char *startup_source = " #f)))" " bulk-prefix_2" " bulk-excepts_2" -" self_15" -" mpi_38" +" self_13" +" mpi_37" " provide-phase-level_5" -" phase-shift_11" +" phase-shift_12" " bulk-binding-registry_10))" "((phase301_0)" -" phase_65)" +" phase_67)" "((orig-s302_0)" " orig-s_15))" "(add-bulk-binding!25.1" " orig-s302_0" " #t" -" in-stx_2" +" in-stx299_0" " temp300_0" " phase301_0))))" "(void))))" @@ -25413,74 +25155,74 @@ static const char *startup_source = "(values)))" "(values)))))" "(if(not #f)" -"(for-loop_170" -"(hash-iterate-next ht_102 i_134))" +"(for-loop_173" +"(hash-iterate-next ht_104 i_136))" "(values))))" "(values))))))" -" for-loop_170)" -"(hash-iterate-first ht_102))))" +" for-loop_173)" +"(hash-iterate-first ht_104))))" "(void))))))))))))))))))))))" "(define-values" "(require-spec-shift-for-syntax)" -"(lambda(req_5)" +"(lambda(req_1)" "(begin" "(let-values(((rebuild-req_0)" -"(lambda(req_6 new-req_0)(begin 'rebuild-req(datum->syntax$1 req_6 new-req_0 req_6 req_6)))))" -"(letrec-values(((loop_87)" +"(lambda(req_2 new-req_0)(begin 'rebuild-req(datum->syntax$1 req_2 new-req_0 req_2 req_2)))))" +"(letrec-values(((loop_85)" "(lambda(shifted?_0)" "(begin" " 'loop" -"(lambda(req_7)" +"(lambda(req_3)" "(let-values(((fm_1)" -"(if(pair?(syntax-e$1 req_7))" -"(if(identifier?(car(syntax-e$1 req_7)))" -"(syntax-e$1(car(syntax-e$1 req_7)))" +"(if(pair?(syntax-e$1 req_3))" +"(if(identifier?(car(syntax-e$1 req_3)))" +"(syntax-e$1(car(syntax-e$1 req_3)))" " #f)" " #f)))" -"(let-values(((tmp_26) fm_1))" -"(if(equal? tmp_26 'for-meta)" +"(let-values(((tmp_25) fm_1))" +"(if(equal? tmp_25 'for-meta)" "(let-values()" "(let-values(((ok?_12 for-meta303_0 phase-level304_0 spec305_0)" -"(let-values(((s_271) req_7))" -"(let-values(((orig-s_16) s_271))" +"(let-values(((s_269) req_3))" +"(let-values(((orig-s_16) s_269))" "(let-values(((for-meta303_1 phase-level304_1 spec305_1)" -"(let-values(((s_272)" -"(if(syntax?$1 s_271)" -"(syntax-e$1 s_271)" -" s_271)))" -"(if(pair? s_272)" +"(let-values(((s_270)" +"(if(syntax?$1 s_269)" +"(syntax-e$1 s_269)" +" s_269)))" +"(if(pair? s_270)" "(let-values(((for-meta306_0)" -"(let-values(((s_273)" -"(car s_272)))" -" s_273))" +"(let-values(((s_271)" +"(car s_270)))" +" s_271))" "((phase-level307_0 spec308_0)" -"(let-values(((s_274)" -"(cdr s_272)))" -"(let-values(((s_275)" +"(let-values(((s_272)" +"(cdr s_270)))" +"(let-values(((s_273)" "(if(syntax?$1" -" s_274)" +" s_272)" "(syntax-e$1" -" s_274)" -" s_274)))" -"(if(pair? s_275)" +" s_272)" +" s_272)))" +"(if(pair? s_273)" "(let-values(((phase-level309_0)" -"(let-values(((s_276)" +"(let-values(((s_274)" "(car" -" s_275)))" -" s_276))" +" s_273)))" +" s_274))" "((spec310_0)" -"(let-values(((s_277)" +"(let-values(((s_275)" "(cdr" -" s_275)))" -"(let-values(((s_278)" +" s_273)))" +"(let-values(((s_276)" "(if(syntax?$1" -" s_277)" +" s_275)" "(syntax-e$1" -" s_277)" -" s_277)))" +" s_275)" +" s_275)))" "(let-values(((flat-s_8)" "(to-syntax-list.1" -" s_278)))" +" s_276)))" "(if(not" " flat-s_8)" "(let-values()" @@ -25506,41 +25248,41 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_16)))))" "(values #t for-meta303_1 phase-level304_1 spec305_1))))))" -"(let-values(((p_37)(syntax-e$1 phase-level304_0)))" +"(let-values(((p_33)(syntax-e$1 phase-level304_0)))" "(begin" -"(if(phase? p_37)" +"(if(phase? p_33)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"bad phase\" req_7)))" +" (let-values () (raise-syntax-error$1 #f \"bad phase\" req_3)))" "(rebuild-req_0" -" req_7" -"(list* for-meta303_0(phase+ p_37 1)(map2(loop_87 #t) spec305_0)))))))" -"(if(equal? tmp_26 'for-syntax)" +" req_3" +"(list* for-meta303_0(phase+ p_33 1)(map2(loop_85 #t) spec305_0)))))))" +"(if(equal? tmp_25 'for-syntax)" "(let-values()" "(let-values(((ok?_13 for-syntax311_0 spec312_0)" -"(let-values(((s_279) req_7))" -"(let-values(((orig-s_17) s_279))" +"(let-values(((s_277) req_3))" +"(let-values(((orig-s_17) s_277))" "(let-values(((for-syntax311_1 spec312_1)" -"(let-values(((s_280)" -"(if(syntax?$1 s_279)" -"(syntax-e$1 s_279)" -" s_279)))" -"(if(pair? s_280)" +"(let-values(((s_278)" +"(if(syntax?$1 s_277)" +"(syntax-e$1 s_277)" +" s_277)))" +"(if(pair? s_278)" "(let-values(((for-syntax313_0)" -"(let-values(((s_281)" -"(car s_280)))" -" s_281))" +"(let-values(((s_279)" +"(car s_278)))" +" s_279))" "((spec314_0)" -"(let-values(((s_282)" -"(cdr s_280)))" -"(let-values(((s_283)" +"(let-values(((s_280)" +"(cdr s_278)))" +"(let-values(((s_281)" "(if(syntax?$1" -" s_282)" +" s_280)" "(syntax-e$1" -" s_282)" -" s_282)))" +" s_280)" +" s_280)))" "(let-values(((flat-s_9)" "(to-syntax-list.1" -" s_283)))" +" s_281)))" "(if(not flat-s_9)" "(let-values()" "(raise-syntax-error$1" @@ -25555,34 +25297,34 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_17)))))" "(values #t for-syntax311_1 spec312_1))))))" -"(rebuild-req_0 req_7(list* 'for-meta 2(map2(loop_87 #t) spec312_0)))))" -"(if(equal? tmp_26 'for-template)" +"(rebuild-req_0 req_3(list* 'for-meta 2(map2(loop_85 #t) spec312_0)))))" +"(if(equal? tmp_25 'for-template)" "(let-values()" "(let-values(((ok?_14 for-template315_0 spec316_0)" -"(let-values(((s_284) req_7))" -"(let-values(((orig-s_18) s_284))" +"(let-values(((s_282) req_3))" +"(let-values(((orig-s_18) s_282))" "(let-values(((for-template315_1 spec316_1)" -"(let-values(((s_285)" -"(if(syntax?$1 s_284)" -"(syntax-e$1 s_284)" -" s_284)))" -"(if(pair? s_285)" +"(let-values(((s_283)" +"(if(syntax?$1 s_282)" +"(syntax-e$1 s_282)" +" s_282)))" +"(if(pair? s_283)" "(let-values(((for-template317_0)" -"(let-values(((s_286)" -"(car s_285)))" -" s_286))" +"(let-values(((s_284)" +"(car s_283)))" +" s_284))" "((spec318_0)" -"(let-values(((s_287)" -"(cdr s_285)))" -"(let-values(((s_288)" +"(let-values(((s_285)" +"(cdr s_283)))" +"(let-values(((s_286)" "(if(syntax?$1" -" s_287)" +" s_285)" "(syntax-e$1" -" s_287)" -" s_287)))" +" s_285)" +" s_285)))" "(let-values(((flat-s_10)" "(to-syntax-list.1" -" s_288)))" +" s_286)))" "(if(not flat-s_10)" "(let-values()" "(raise-syntax-error$1" @@ -25597,36 +25339,36 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_18)))))" "(values #t for-template315_1 spec316_1))))))" -"(rebuild-req_0 req_7(list* 'for-meta 0(map2(loop_87 #t) spec316_0)))))" -"(if(equal? tmp_26 'for-label)" +"(rebuild-req_0 req_3(list* 'for-meta 0(map2(loop_85 #t) spec316_0)))))" +"(if(equal? tmp_25 'for-label)" "(let-values()" "(let-values(((ok?_15 for-label319_0 spec320_0)" -"(let-values(((s_289) req_7))" -"(let-values(((orig-s_19) s_289))" +"(let-values(((s_287) req_3))" +"(let-values(((orig-s_19) s_287))" "(let-values(((for-label319_1 spec320_1)" -"(let-values(((s_290)" -"(if(syntax?$1 s_289)" -"(syntax-e$1 s_289)" -" s_289)))" -"(if(pair? s_290)" +"(let-values(((s_288)" +"(if(syntax?$1 s_287)" +"(syntax-e$1 s_287)" +" s_287)))" +"(if(pair? s_288)" "(let-values(((for-label321_0)" -"(let-values(((s_291)" +"(let-values(((s_289)" "(car" -" s_290)))" -" s_291))" +" s_288)))" +" s_289))" "((spec322_0)" -"(let-values(((s_292)" +"(let-values(((s_290)" "(cdr" -" s_290)))" -"(let-values(((s_293)" +" s_288)))" +"(let-values(((s_291)" "(if(syntax?$1" -" s_292)" +" s_290)" "(syntax-e$1" -" s_292)" -" s_292)))" +" s_290)" +" s_290)))" "(let-values(((flat-s_11)" "(to-syntax-list.1" -" s_293)))" +" s_291)))" "(if(not flat-s_11)" "(let-values()" "(raise-syntax-error$1" @@ -25642,56 +25384,56 @@ static const char *startup_source = " orig-s_19)))))" "(values #t for-label319_1 spec320_1))))))" "(rebuild-req_0" -" req_7" -"(list* for-label319_0(map2(loop_87 #t) spec320_0)))))" -"(if(equal? tmp_26 'just-meta)" +" req_3" +"(list* for-label319_0(map2(loop_85 #t) spec320_0)))))" +"(if(equal? tmp_25 'just-meta)" "(let-values()" "(let-values(((ok?_16 just-meta323_0 phase-level324_0 spec325_0)" -"(let-values(((s_294) req_7))" -"(let-values(((orig-s_20) s_294))" +"(let-values(((s_292) req_3))" +"(let-values(((orig-s_20) s_292))" "(let-values(((just-meta323_1" " phase-level324_1" " spec325_1)" -"(let-values(((s_295)" -"(if(syntax?$1 s_294)" -"(syntax-e$1 s_294)" -" s_294)))" -"(if(pair? s_295)" +"(let-values(((s_293)" +"(if(syntax?$1 s_292)" +"(syntax-e$1 s_292)" +" s_292)))" +"(if(pair? s_293)" "(let-values(((just-meta326_0)" -"(let-values(((s_296)" +"(let-values(((s_294)" "(car" -" s_295)))" -" s_296))" +" s_293)))" +" s_294))" "((phase-level327_0" " spec328_0)" -"(let-values(((s_297)" +"(let-values(((s_295)" "(cdr" +" s_293)))" +"(let-values(((s_296)" +"(if(syntax?$1" +" s_295)" +"(syntax-e$1" +" s_295)" " s_295)))" -"(let-values(((s_298)" -"(if(syntax?$1" -" s_297)" -"(syntax-e$1" -" s_297)" -" s_297)))" -"(if(pair? s_298)" +"(if(pair? s_296)" "(let-values(((phase-level329_0)" -"(let-values(((s_299)" +"(let-values(((s_297)" "(car" -" s_298)))" -" s_299))" +" s_296)))" +" s_297))" "((spec330_0)" -"(let-values(((s_300)" +"(let-values(((s_298)" "(cdr" -" s_298)))" -"(let-values(((s_301)" +" s_296)))" +"(let-values(((s_299)" "(if(syntax?$1" -" s_300)" +" s_298)" "(syntax-e$1" -" s_300)" -" s_300)))" +" s_298)" +" s_298)))" "(let-values(((flat-s_12)" "(to-syntax-list.1" -" s_301)))" +" s_299)))" "(if(not" " flat-s_12)" "(let-values()" @@ -25722,26 +25464,27 @@ static const char *startup_source = " phase-level324_1" " spec325_1))))))" "(rebuild-req_0" -" req_7" +" req_3" "(list*" " just-meta323_0" " phase-level324_0" -"(map2(loop_87 #f) spec325_0)))))" +"(map2(loop_85 #f) spec325_0)))))" "(let-values()" "(if shifted?_0" -" req_7" -"(datum->syntax$1 #f(list 'for-syntax req_7))))))))))))))))" -"((loop_87 #f) req_5))))))" +" req_3" +"(datum->syntax$1 #f(list 'for-syntax req_3))))))))))))))))" +"((loop_85 #f) req_1))))))" "(define-values" "(copy-namespace-value)" -"(lambda(m-ns_11 adjusted-sym_1 binding_18 phase-level_16 phase-shift_12 as-constant?_1)" +"(lambda(m-ns_11 adjusted-sym_1 binding_18 phase-level_16 phase-shift_13 as-constant?_1)" "(begin" "(let-values(((i-ns_0)" -"(let-values(((temp332_0)(1/module-path-index-resolve(module-binding-module binding_18)))" +"(let-values(((m-ns331_0) m-ns_11)" +"((temp332_0)(1/module-path-index-resolve(module-binding-module binding_18)))" "((temp333_0)(phase-(module-binding-phase binding_18) phase-level_16))" "((temp334_0) #t))" -"(namespace->module-namespace82.1 #f #f temp334_0 #t #f #f m-ns_11 temp332_0 temp333_0))))" -"(let-values(((val_46)" +"(namespace->module-namespace82.1 #f #f temp334_0 #t #f #f m-ns331_0 temp332_0 temp333_0))))" +"(let-values(((val_45)" "(namespace-get-variable" " i-ns_0" "(module-binding-phase binding_18)" @@ -25761,9 +25504,9 @@ static const char *startup_source = "(module-binding-phase binding_18)))))))" "(namespace-set-variable!" " m-ns_11" -"(phase+ phase-shift_12 phase-level_16)" +"(phase+ phase-shift_13 phase-level_16)" " adjusted-sym_1" -" val_46" +" val_45" " as-constant?_1))))))" "(define-values" "(top-level-instance)" @@ -25772,10 +25515,13 @@ static const char *startup_source = " #f" " 'constant" " top-level-bind!-id" -"(lambda(id_22 mpi_39 orig-phase_0 phase-shift_13 ns_50 sym_46 trans?_0 trans-val_0)" -"(let-values(((phase_42)(phase+ orig-phase_0 phase-shift_13)))" +"(lambda(id_21 mpi_38 orig-phase_0 phase-shift_14 ns_50 sym_47 trans?_0 trans-val_0)" +"(let-values(((phase_44)(phase+ orig-phase_0 phase-shift_14)))" "(let-values(((b_70)" -"(let-values(((temp7_0)(root-expand-context-frame-id(namespace-get-root-expand-ctx ns_50))))" +"(let-values(((mpi4_0) mpi_38)" +"((phase5_0) phase_44)" +"((sym6_1) sym_47)" +"((temp7_0)(root-expand-context-frame-id(namespace-get-root-expand-ctx ns_50))))" "(make-module-binding22.1" " #f" " #f" @@ -25795,15 +25541,15 @@ static const char *startup_source = " #f" " #f" " #f" -" mpi_39" -" phase_42" -" sym_46))))" +" mpi4_0" +" phase5_0" +" sym6_1))))" "(begin" -"(let-values(((id1_2) id_22)((b2_4) b_70)((phase3_1) phase_42))" -"(add-binding!17.1 #f #f #f #f id1_2 b2_4 phase3_1))" +"(let-values(((id1_3) id_21)((b2_4) b_70)((phase3_1) phase_44))" +"(add-binding!17.1 #f #f #f #f id1_3 b2_4 phase3_1))" "(if trans?_0" -"(let-values()(if trans-val_0(let-values()(maybe-install-free=id! trans-val_0 id_22 phase_42))(void)))" -"(let-values()(namespace-unset-transformer! ns_50 phase_42 sym_46)))))))" +"(let-values()(if trans-val_0(let-values()(maybe-install-free=id! trans-val_0 id_21 phase_44))(void)))" +"(let-values()(namespace-unset-transformer! ns_50 phase_44 sym_47)))))))" " top-level-require!-id" "(lambda(stx_11 ns_51)" "(let-values(((reqs_2)(cdr(syntax->list$1 stx_11))))" @@ -25813,7 +25559,7 @@ static const char *startup_source = "((temp11_1) #f)" "((ns12_0) ns_51)" "((temp13_0)(namespace-phase ns_51))" -"((temp14_2)(let-values(((temp17_0) #f))(make-requires+provides8.1 #f #f temp17_0)))" +"((temp14_2)(let-values(((temp17_1) #f))(make-requires+provides8.1 #f #f temp17_1)))" "((temp15_2) 'require)" "((temp16_2) #t))" "(parse-and-perform-requires!30.1" @@ -25907,7 +25653,7 @@ static const char *startup_source = "(make-struct-field-accessor -ref_0 1 'other))))" "(define-values" "(swap-top-level-scopes)" -"(lambda(s_302 original-scopes-s_0 new-ns_0)" +"(lambda(s_300 original-scopes-s_0 new-ns_0)" "(begin" "(let-values(((old-scs-post_0 old-scs-other_0)" "(if(namespace-scopes? original-scopes-s_0)" @@ -25915,7 +25661,7 @@ static const char *startup_source = "(decode-namespace-scopes original-scopes-s_0))))" "(let-values(((new-scs-post_0 new-scs-other_0)(extract-namespace-scopes/values new-ns_0)))" "(syntax-swap-scopes" -"(syntax-swap-scopes s_302 old-scs-post_0 new-scs-post_0)" +"(syntax-swap-scopes s_300 old-scs-post_0 new-scs-post_0)" " old-scs-other_0" " new-scs-other_0))))))" "(define-values" @@ -26059,7 +25805,7 @@ static const char *startup_source = "(begin(check-vector vec_52)(values vec_52(unsafe-vector-length vec_52))))))" "(begin" " #f" -"((letrec-values(((for-loop_172)" +"((letrec-values(((for-loop_175)" "(lambda(pos_85)" "(begin" " 'for-loop" @@ -26074,9 +25820,9 @@ static const char *startup_source = "(add-syntax-literal! sl_1 e_12))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_172(unsafe-fx+ 1 pos_85))(values))))" +"(if(not #f)(for-loop_175(unsafe-fx+ 1 pos_85))(values))))" "(values))))))" -" for-loop_172)" +" for-loop_175)" " 0)))" "(void)" "(cons pos_84(vector-length vec_50)))))))" @@ -26088,7 +25834,7 @@ static const char *startup_source = " 'generate-lazy-syntax-literals!9" "(let-values(((sl_3) sl6_0))" "(let-values(((mpis_12) mpis7_0))" -"(let-values(((self_16) self8_0))" +"(let-values(((self_14) self8_0))" "(let-values(((skip-deserialize?_0)(if skip-deserialize?5_0 skip-deserialize?4_0 #f)))" "(let-values()" "(list" @@ -26129,7 +25875,7 @@ static const char *startup_source = " 'syntax-shift-phase-level" "(list* unsafe-vector-ref-id deserialized-syntax-vector-id '(pos))" " phase-shift-id)" -"(add-module-path-index! mpis_12 self_16)" +"(add-module-path-index! mpis_12 self_14)" " self-id" " inspector-id)))" "(list" @@ -26167,7 +25913,7 @@ static const char *startup_source = "(define-values(generate-lazy-syntax-literal-lookup)(lambda(pos_86)(begin(list get-syntax-literal!-id pos_86))))" "(define-values" "(generate-eager-syntax-literals!)" -"(lambda(sl_5 mpis_13 base-phase_0 self_17 ns_3)" +"(lambda(sl_5 mpis_13 base-phase_0 self_15 ns_2)" "(begin" "(if(syntax-literals-empty? sl_5)" "(let-values() #f)" @@ -26177,7 +25923,7 @@ static const char *startup_source = "(list" "(list" " '(ns+stxss)" -"(let-values(((temp27_2)(cons(encode-namespace-scopes ns_3)(reverse$1(syntax-literals-stxes sl_5))))" +"(let-values(((temp27_2)(cons(encode-namespace-scopes ns_2)(reverse$1(syntax-literals-stxes sl_5))))" "((mpis28_0) mpis_13))" "(generate-deserialize6.1 #f #f temp27_2 mpis28_0))))" "(list" @@ -26195,7 +25941,7 @@ 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_13 self_17)" +"(add-module-path-index! mpis_13 self_15)" " self-id)" " 'ns-scope-s" " ns-id))" @@ -26211,51 +25957,51 @@ static const char *startup_source = "(lambda(sym_4 header_0)" "(begin" "(if(symbol-conflicts? sym_4 header_0)" -"((letrec-values(((loop_88)" +"((letrec-values(((loop_86)" "(lambda(pos_88)" "(begin" " 'loop" " (let-values (((new-sym_0) (string->symbol (format \"~a/~a\" pos_88 sym_4))))" -"(if(symbol-conflicts? new-sym_0 header_0)(loop_88(add1 pos_88)) new-sym_0))))))" -" loop_88)" +"(if(symbol-conflicts? new-sym_0 header_0)(loop_86(add1 pos_88)) new-sym_0))))))" +" loop_86)" " 1)" " sym_4))))" "(define-values" "(symbol-conflicts?)" -"(lambda(sym_47 header_1)" +"(lambda(sym_48 header_1)" "(begin" -"(let-values(((or-part_52)(built-in-symbol? sym_47)))" -"(if or-part_52 or-part_52(hash-ref(header-define-and-import-syms header_1) sym_47 #f))))))" +"(let-values(((or-part_208)(built-in-symbol? sym_48)))" +"(if or-part_208 or-part_208(hash-ref(header-define-and-import-syms header_1) sym_48 #f))))))" "(define-values" "(register-required-variable-use!19.1)" "(lambda(defined?12_0 defined?13_0 header14_0 mpi15_0 phase16_1 sym17_0 extra-inspector18_0)" "(begin" " 'register-required-variable-use!19" "(let-values(((header_2) header14_0))" -"(let-values(((mpi_40) mpi15_0))" +"(let-values(((mpi_39) mpi15_0))" "(let-values(((phase_3) phase16_1))" -"(let-values(((sym_48) sym17_0))" +"(let-values(((sym_49) sym17_0))" "(let-values(((extra-inspector_4) extra-inspector18_0))" "(let-values(((defined?_1)(if defined?13_0 defined?12_0 #f)))" "(let-values()" -"(let-values(((key_53)(variable-use3.1(module-use1.1 mpi_40 phase_3) sym_48)))" +"(let-values(((key_53)(variable-use3.1(module-use1.1 mpi_39 phase_3) sym_49)))" "(let-values(((variable-uses_0)(header-require-var-to-import-sym header_2)))" "(let-values(((prev-var-sym_0)(hash-ref variable-uses_0 key_53 #f)))" "(let-values(((var-sym_0)" -"(let-values(((or-part_66) prev-var-sym_0))" -"(if or-part_66" -" or-part_66" -"(let-values(((sym_49)(select-fresh(variable-use-sym key_53) header_2)))" +"(let-values(((or-part_58) prev-var-sym_0))" +"(if or-part_58" +" or-part_58" +"(let-values(((sym_50)(select-fresh(variable-use-sym key_53) header_2)))" "(begin" -"(hash-set! variable-uses_0 key_53 sym_49)" +"(hash-set! variable-uses_0 key_53 sym_50)" "(set-header-require-vars-in-order!" " header_2" "(cons key_53(header-require-vars-in-order header_2)))" "(hash-set!" "(header-define-and-import-syms header_2)" -" sym_49" +" sym_50" "(if defined?_1 'defined 'required))" -" sym_49))))))" +" sym_50))))))" "(begin" "(if(if extra-inspector_4(not prev-var-sym_0) #f)" "(let-values()" @@ -26263,7 +26009,7 @@ static const char *startup_source = "(hash-update!" " extra-inspectors_0" " var-sym_0" -"(lambda(s_303)(set-add s_303 extra-inspector_4))" +"(lambda(s_301)(set-add s_301 extra-inspector_4))" " '#hasheq())))" "(void))" " var-sym_0)))))))))))))))" @@ -26276,107 +26022,108 @@ static const char *startup_source = "(begin(eq? 'required(hash-ref(header-define-and-import-syms header_4) var-sym_1 #f)))))" "(define-values" "(generate-links+imports)" -"(lambda(header_5 phase_66 cctx_0 cross-linklet-inlining?_0)" +"(lambda(header_5 phase_68 cctx_0 cross-linklet-inlining?_0)" "(begin" "(let-values(((mod-use-ht_0)" -"(let-values(((lst_148)(header-require-vars-in-order header_5)))" +"(let-values(((lst_150)(header-require-vars-in-order header_5)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_148)))" -"((letrec-values(((for-loop_173)" -"(lambda(ht_103 lst_149)" +"(let-values()(check-list lst_150)))" +"((letrec-values(((for-loop_176)" +"(lambda(ht_105 lst_151)" "(begin" " 'for-loop" -"(if(pair? lst_149)" -"(let-values(((vu_0)(unsafe-car lst_149))" -"((rest_74)(unsafe-cdr lst_149)))" -"(let-values(((ht_104)" -"(let-values(((ht_105) ht_103))" +"(if(pair? lst_151)" +"(let-values(((vu_0)(unsafe-car lst_151))" +"((rest_75)(unsafe-cdr lst_151)))" "(let-values(((ht_106)" +"(let-values(((ht_107) ht_105))" +"(let-values(((ht_108)" "(let-values()" "(let-values(((mu_2)" "(variable-use-module-use" " vu_0)))" -"(if(let-values(((or-part_214)" +"(if(let-values(((or-part_209)" "(hash-ref" -" ht_105" +" ht_107" " mu_2" " #f)))" -"(if or-part_214" -" or-part_214" -"(let-values(((or-part_215)" +"(if or-part_209" +" or-part_209" +"(let-values(((or-part_210)" "(eq?" "(module-use-module" " mu_2)" "(compile-context-self" " cctx_0))))" -"(if or-part_215" -" or-part_215" +"(if or-part_210" +" or-part_210" "(top-level-module-path-index?" "(module-use-module" " mu_2))))))" -" ht_105" -"(hash-set ht_105 mu_2 #t))))))" -"(values ht_106)))))" -"(if(not #f)(for-loop_173 ht_104 rest_74) ht_104)))" -" ht_103)))))" -" for-loop_173)" +" ht_107" +"(hash-set ht_107 mu_2 #t))))))" +"(values ht_108)))))" +"(if(not #f)(for-loop_176 ht_106 rest_75) ht_106)))" +" ht_105)))))" +" for-loop_176)" " '#hash()" -" lst_148)))))" +" lst_150)))))" "(let-values(((link-mod-uses_0)(hash-keys mod-use-ht_0)))" "(values" " link-mod-uses_0" "(reverse$1" -"(let-values(((lst_103) link-mod-uses_0))" +"(let-values(((lst_105) link-mod-uses_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_103)))" +"(let-values()(check-list lst_105)))" "((letrec-values(((for-loop_118)" -"(lambda(fold-var_25 lst_150)" +"(lambda(fold-var_25 lst_152)" "(begin" " 'for-loop" -"(if(pair? lst_150)" -"(let-values(((mu_3)(unsafe-car lst_150))((rest_75)(unsafe-cdr lst_150)))" -"(let-values(((fold-var_131)" -"(let-values(((fold-var_132) fold-var_25))" +"(if(pair? lst_152)" +"(let-values(((mu_3)(unsafe-car lst_152))((rest_76)(unsafe-cdr lst_152)))" "(let-values(((fold-var_133)" +"(let-values(((fold-var_134) fold-var_25))" +"(let-values(((fold-var_135)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_50)" +"(let-values(((lst_153)" "(header-require-vars-in-order" " header_5)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_50)))" -"((letrec-values(((for-loop_44)" -"(lambda(fold-var_134" -" lst_151)" +"(let-values()" +"(check-list lst_153)))" +"((letrec-values(((for-loop_43)" +"(lambda(fold-var_136" +" lst_154)" "(begin" " 'for-loop" "(if(pair?" -" lst_151)" +" lst_154)" "(let-values(((vu_1)" "(unsafe-car" -" lst_151))" -"((rest_76)" +" lst_154))" +"((rest_77)" "(unsafe-cdr" -" lst_151)))" -"(let-values(((fold-var_135)" -"(let-values(((fold-var_136)" -" fold-var_134))" +" lst_154)))" +"(let-values(((fold-var_39)" +"(let-values(((fold-var_137)" +" fold-var_136))" "(if(equal?" " mu_3" "(variable-use-module-use" " vu_1))" -"(let-values(((fold-var_137)" -" fold-var_136))" "(let-values(((fold-var_138)" +" fold-var_137))" +"(let-values(((fold-var_139)" "(let-values()" "(cons" "(let-values()" @@ -26395,47 +26142,47 @@ static const char *startup_source = "(list" " ex-sym_0" " var-sym_2)))))" -" fold-var_137))))" +" fold-var_138))))" "(values" -" fold-var_138)))" -" fold-var_136))))" +" fold-var_139)))" +" fold-var_137))))" "(if(not" " #f)" -"(for-loop_44" -" fold-var_135" -" rest_76)" -" fold-var_135)))" -" fold-var_134)))))" -" for-loop_44)" +"(for-loop_43" +" fold-var_39" +" rest_77)" +" fold-var_39)))" +" fold-var_136)))))" +" for-loop_43)" " null" -" lst_50)))))" -" fold-var_132))))" -"(values fold-var_133)))))" -"(if(not #f)(for-loop_118 fold-var_131 rest_75) fold-var_131)))" +" lst_153)))))" +" fold-var_134))))" +"(values fold-var_135)))))" +"(if(not #f)(for-loop_118 fold-var_133 rest_76) fold-var_133)))" " fold-var_25)))))" " for-loop_118)" " null" -" lst_103))))" +" lst_105))))" "(reverse$1" -"(let-values(((lst_152) link-mod-uses_0))" +"(let-values(((lst_155) link-mod-uses_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_152)))" -"((letrec-values(((for-loop_174)" -"(lambda(fold-var_139 lst_105)" +"(let-values()(check-list lst_155)))" +"((letrec-values(((for-loop_177)" +"(lambda(fold-var_140 lst_107)" "(begin" " 'for-loop" -"(if(pair? lst_105)" -"(let-values(((mu_4)(unsafe-car lst_105))((rest_77)(unsafe-cdr lst_105)))" -"(let-values(((fold-var_140)" -"(let-values(((fold-var_141) fold-var_139))" -"(let-values(((fold-var_142)" +"(if(pair? lst_107)" +"(let-values(((mu_4)(unsafe-car lst_107))((rest_78)(unsafe-cdr lst_107)))" +"(let-values(((fold-var_141)" +"(let-values(((fold-var_142) fold-var_140))" +"(let-values(((fold-var_143)" "(let-values()" "(cons" "(let-values()" "(let-values(((extra-inspectorss_0)" -"(let-values(((lst_153)" +"(let-values(((lst_156)" "(header-require-vars-in-order" " header_5)))" "(begin" @@ -26444,20 +26191,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_153)))" -"((letrec-values(((for-loop_175)" +" lst_156)))" +"((letrec-values(((for-loop_178)" "(lambda(table_135" -" lst_154)" +" lst_157)" "(begin" " 'for-loop" "(if(pair?" -" lst_154)" +" lst_157)" "(let-values(((vu_2)" "(unsafe-car" -" lst_154))" -"((rest_78)" +" lst_157))" +"((rest_79)" "(unsafe-cdr" -" lst_154)))" +" lst_157)))" "(let-values(((table_136)" "(let-values(((table_137)" " table_135))" @@ -26472,7 +26219,7 @@ static const char *startup_source = " vu_2)))" "(begin" " #t" -"((letrec-values(((for-loop_33)" +"((letrec-values(((for-loop_32)" "(lambda(table_29)" "(begin" " 'for-loop" @@ -26486,7 +26233,7 @@ static const char *startup_source = " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_176)" +"((letrec-values(((for-loop_179)" "(lambda(table_30)" "(begin" " 'for-loop" @@ -26494,17 +26241,17 @@ static const char *startup_source = "(let-values(((table_31)" "(let-values(((table_32)" " table_30))" -"(if(let-values(((or-part_216)" +"(if(let-values(((or-part_211)" " extra-inspectors_1))" -"(if or-part_216" -" or-part_216" +"(if or-part_211" +" or-part_211" " cross-linklet-inlining?_0))" "(let-values(((table_111)" " table_32))" "(let-values(((table_112)" "(let-values()" "(let-values(((key_54" -" val_47)" +" val_46)" "(let-values()" "(values" " var-sym_3" @@ -26512,61 +26259,61 @@ static const char *startup_source = "(hash-set" " table_111" " key_54" -" val_47)))))" +" val_46)))))" "(values" " table_112)))" " table_32))))" " table_31))))))" -" for-loop_176)" +" for-loop_179)" " table_29)))))" " table_138))))))" -" for-loop_33)" +" for-loop_32)" " table_137)))" " table_137))))" "(if(not" " #f)" -"(for-loop_175" +"(for-loop_178" " table_136" -" rest_78)" +" rest_79)" " table_136)))" " table_135)))))" -" for-loop_175)" +" for-loop_178)" " '#hash()" -" lst_153)))))" +" lst_156)))))" "(if(hash-count extra-inspectorss_0)" " extra-inspectorss_0" " #f)))" -" fold-var_141))))" -"(values fold-var_142)))))" -"(if(not #f)(for-loop_174 fold-var_140 rest_77) fold-var_140)))" -" fold-var_139)))))" -" for-loop_174)" +" fold-var_142))))" +"(values fold-var_143)))))" +"(if(not #f)(for-loop_177 fold-var_141 rest_78) fold-var_141)))" +" fold-var_140)))))" +" for-loop_177)" " null" -" lst_152))))" +" lst_155))))" "(reverse$1" -"(let-values(((lst_41)(header-require-vars-in-order header_5)))" +"(let-values(((lst_42)(header-require-vars-in-order header_5)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_41)))" -"((letrec-values(((for-loop_177)" -"(lambda(fold-var_143 lst_155)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_42)))" +"((letrec-values(((for-loop_180)" +"(lambda(fold-var_144 lst_158)" "(begin" " 'for-loop" -"(if(pair? lst_155)" -"(let-values(((vu_3)(unsafe-car lst_155))((rest_79)(unsafe-cdr lst_155)))" -"(let-values(((fold-var_144)" -"(let-values(((fold-var_145) fold-var_143))" +"(if(pair? lst_158)" +"(let-values(((vu_3)(unsafe-car lst_158))((rest_80)(unsafe-cdr lst_158)))" +"(let-values(((fold-var_145)" +"(let-values(((fold-var_146) fold-var_144))" "(if(let-values(((mod_2)" "(module-use-module" "(variable-use-module-use vu_3))))" -"(let-values(((or-part_217)" +"(let-values(((or-part_212)" "(eq?" " mod_2" "(compile-context-self cctx_0))))" -"(if or-part_217" -" or-part_217" +"(if or-part_212" +" or-part_212" "(top-level-module-path-index? mod_2))))" -"(let-values(((fold-var_146) fold-var_145))" -"(let-values(((fold-var_147)" +"(let-values(((fold-var_147) fold-var_146))" +"(let-values(((fold-var_148)" "(let-values()" "(cons" "(let-values()" @@ -26581,14 +26328,14 @@ static const char *startup_source = "(if(eq? var-sym_4 ex-sym_1)" " var-sym_4" "(list var-sym_4 ex-sym_1)))))" +" fold-var_147))))" +"(values fold-var_148)))" " fold-var_146))))" -"(values fold-var_147)))" -" fold-var_145))))" -"(if(not #f)(for-loop_177 fold-var_144 rest_79) fold-var_144)))" -" fold-var_143)))))" -" for-loop_177)" +"(if(not #f)(for-loop_180 fold-var_145 rest_80) fold-var_145)))" +" fold-var_144)))))" +" for-loop_180)" " null" -" lst_41))))))))))" +" lst_42))))))))))" "(define-values" "(instance-imports)" "(list ns-id phase-shift-id self-id inspector-id bulk-binding-registry-id set-transformer!-id))" @@ -26598,8 +26345,8 @@ static const char *startup_source = "(begin" " 'make-instance-instance13" "(let-values(((ns_54) namespace1_0))" -"(let-values(((phase-shift_14) phase-shift2_0))" -"(let-values(((self_18) self3_0))" +"(let-values(((phase-shift_15) phase-shift2_0))" +"(let-values(((self_16) self3_0))" "(let-values(((inspector_10) inspector4_0))" "(let-values(((bulk-binding-registry_11) bulk-binding-registry5_0))" "(let-values(((set-transformer!_0) set-transformer!6_0))" @@ -26611,9 +26358,9 @@ static const char *startup_source = " ns-id" " ns_54" " phase-shift-id" -" phase-shift_14" +" phase-shift_15" " self-id" -" self_18" +" self_16" " inspector-id" " inspector_10" " bulk-binding-registry-id" @@ -26632,7 +26379,7 @@ static const char *startup_source = "(1/make-instance 'empty-stx #f 'constant get-syntax-literal!-id(lambda(pos_89) #f) 'get-encoded-root-expand-ctx #f))" "(define-values" "(empty-module-body-instance)" -"(let-values(((temp21_0)(lambda(name_38 val_48)(void))))(make-module-body-instance-instance18.1 temp21_0)))" +"(let-values(((temp21_0)(lambda(name_39 val_47)(void))))(make-module-body-instance-instance18.1 temp21_0)))" "(define-values" "(empty-top-syntax-literal-instance)" "(1/make-instance 'top-syntax-literal #f 'constant mpi-vector-id #f syntax-literals-id #f))" @@ -26653,7 +26400,7 @@ static const char *startup_source = " 'make-eager-instance-instance11" "(let-values(((ns_55) namespace1_1))" "(let-values(((dest-phase_0) dest-phase2_0))" -"(let-values(((self_19) self3_1))" +"(let-values(((self_17) self3_1))" "(let-values(((bulk-binding-registry_12) bulk-binding-registry4_0))" "(let-values(((inspector_11) inspector5_0))" "(let-values()" @@ -26666,7 +26413,7 @@ static const char *startup_source = " dest-phase-id" " dest-phase_0" " self-id" -" self_19" +" self_17" " bulk-binding-registry-id" " bulk-binding-registry_12" " inspector-id" @@ -26675,8 +26422,8 @@ static const char *startup_source = " swap-top-level-scopes))))))))))" "(define-values" "(empty-eager-instance-instance)" -"(let-values(((temp14_3) #f)((temp15_3) #f)((temp16_3) #f)((temp17_1) #f)((temp18_4) #f))" -"(make-eager-instance-instance11.1 temp17_1 temp15_3 temp18_4 temp14_3 temp16_3)))" +"(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)))" "(define-values" "(self-quoting-in-linklet?)" "(lambda(datum_0)" @@ -26709,41 +26456,41 @@ static const char *startup_source = "(define-values(correlated-cadr)(lambda(e_26)(begin(car(correlated-e(cdr(correlated-e e_26)))))))" "(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_27)(begin(let-values(((l_53)(correlated-e e_27)))(if(list? l_53)(length l_53) #f)))))" "(define-values" "(correlated->list)" "(lambda(e_28)" "(begin" -"((letrec-values(((loop_89)" +"((letrec-values(((loop_87)" "(lambda(e_29)" "(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))))" +"(let-values()(cons(car e_29)(loop_87(cdr e_29))))" "(if(null? e_29)" "(let-values() null)" "(if(1/syntax? e_29)" -"(let-values()(loop_89(syntax-e$2 e_29)))" +"(let-values()(loop_87(syntax-e$2 e_29)))" " (let-values () (error 'correlated->list \"not a list\"))))))))))" -" loop_89)" +" loop_87)" " e_28))))" "(define-values" "(correlated-property)" "(case-lambda" "((e_30 k_30)(begin(syntax-property$2 e_30 k_30)))" -"((e_31 k_31 v_130)(syntax-property$2 e_31 k_31 v_130))))" +"((e_31 k_31 v_127)(syntax-property$2 e_31 k_31 v_127))))" "(define-values" "(to-syntax-list.1$1)" -"(lambda(s_115)" +"(lambda(s_113)" "(begin" " 'to-syntax-list" -"(if(list? s_115)" -"(let-values() s_115)" -"(if(pair? s_115)" -"(let-values()(let-values(((r_39)(to-syntax-list.1$1(cdr s_115))))(if r_39(cons(car s_115) r_39) #f)))" -"(if(1/syntax? s_115)(let-values()(to-syntax-list.1$1(syntax-e$2 s_115)))(let-values() #f)))))))" +"(if(list? s_113)" +"(let-values() s_113)" +"(if(pair? s_113)" +"(let-values()(let-values(((r_38)(to-syntax-list.1$1(cdr s_113))))(if r_38(cons(car s_113) r_38) #f)))" +"(if(1/syntax? s_113)(let-values()(to-syntax-list.1$1(syntax-e$2 s_113)))(let-values() #f)))))))" "(define-values" "(srcloc->vector)" "(lambda(s_6)" @@ -26767,20 +26514,20 @@ static const char *startup_source = "(lambda(p5_0 cctx6_0 name1_0 result-used?2_0 name3_0 result-used?4_0)" "(begin" " 'compile7" -"(let-values(((p_38) p5_0))" +"(let-values(((p_34) p5_0))" "(let-values(((cctx_1) cctx6_0))" -"(let-values(((name_39)(if name3_0 name1_0 #f)))" +"(let-values(((name_40)(if name3_0 name1_0 #f)))" "(let-values(((result-used?_0)(if result-used?4_0 result-used?2_0 #t)))" "(let-values()" "(let-values(((compile_0)" -"(lambda(p_39 name_40 result-used?_1)" -"(begin 'compile(compile$2 p_39 cctx_1 name_40 result-used?_1)))))" -"(let-values(((s_10)(parsed-s p_38)))" -"(if(parsed-id? p_38)" +"(lambda(p_35 name_41 result-used?_1)" +"(begin 'compile(compile$2 p_35 cctx_1 name_41 result-used?_1)))))" +"(let-values(((s_10)(parsed-s p_34)))" +"(if(parsed-id? p_34)" "(let-values()" -"(let-values(((p27_1) p_38)((cctx28_0) cctx_1))" +"(let-values(((p27_1) p_34)((cctx28_0) cctx_1))" "(compile-identifier24.1 #f #f #f #f p27_1 cctx28_0)))" -"(if(parsed-lambda? p_38)" +"(if(parsed-lambda? p_34)" "(let-values()" "(if result-used?_0" "(let-values()" @@ -26790,13 +26537,13 @@ static const char *startup_source = "(list*" " 'lambda" "(compile-lambda" -"(parsed-lambda-keys p_38)" -"(parsed-lambda-body p_38)" +"(parsed-lambda-keys p_34)" +"(parsed-lambda-body p_34)" " cctx_1)))" -" name_39" +" name_40" " s_10))" "(let-values()(correlate~ s_10 ''unused-lambda))))" -"(if(parsed-case-lambda? p_38)" +"(if(parsed-case-lambda? p_34)" "(let-values()" "(if result-used?_0" "(let-values()" @@ -26806,24 +26553,24 @@ static const char *startup_source = "(list*" " 'case-lambda" "(reverse$1" -"(let-values(((lst_156)(parsed-case-lambda-clauses p_38)))" +"(let-values(((lst_159)(parsed-case-lambda-clauses p_34)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_156)))" -"((letrec-values(((for-loop_178)" -"(lambda(fold-var_31 lst_157)" +"(let-values()(check-list lst_159)))" +"((letrec-values(((for-loop_181)" +"(lambda(fold-var_31 lst_160)" "(begin" " 'for-loop" -"(if(pair? lst_157)" +"(if(pair? lst_160)" "(let-values(((clause_0)" -"(unsafe-car lst_157))" -"((rest_80)" -"(unsafe-cdr lst_157)))" -"(let-values(((fold-var_63)" -"(let-values(((fold-var_148)" -" fold-var_31))" +"(unsafe-car lst_160))" +"((rest_81)" +"(unsafe-cdr lst_160)))" +"(let-values(((fold-var_66)" "(let-values(((fold-var_149)" +" fold-var_31))" +"(let-values(((fold-var_150)" "(let-values()" "(cons" "(let-values()" @@ -26833,116 +26580,116 @@ static const char *startup_source = "(cadr" " clause_0)" " cctx_1))" -" fold-var_148))))" +" fold-var_149))))" "(values" -" fold-var_149)))))" +" fold-var_150)))))" "(if(not #f)" -"(for-loop_178 fold-var_63 rest_80)" -" fold-var_63)))" +"(for-loop_181 fold-var_66 rest_81)" +" fold-var_66)))" " fold-var_31)))))" -" for-loop_178)" +" for-loop_181)" " null" -" lst_156))))))" -" name_39" +" lst_159))))))" +" name_40" " s_10))" "(let-values()(correlate~ s_10 ''unused-case-lambda))))" -"(if(parsed-app? p_38)" +"(if(parsed-app? p_34)" "(let-values()" -"(let-values(((rands_0)(parsed-app-rands p_38)))" +"(let-values(((rands_0)(parsed-app-rands p_34)))" "(correlate/app" " s_10" "(cons" -"(compile_0(parsed-app-rator p_38) #f #t)" +"(compile_0(parsed-app-rator p_34) #f #t)" "(reverse$1" -"(let-values(((lst_39) rands_0))" +"(let-values(((lst_40) rands_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_39)))" -"((letrec-values(((for-loop_179)" -"(lambda(fold-var_150 lst_158)" +"(let-values()(check-list lst_40)))" +"((letrec-values(((for-loop_182)" +"(lambda(fold-var_151 lst_161)" "(begin" " 'for-loop" -"(if(pair? lst_158)" -"(let-values(((r_40)(unsafe-car lst_158))" -"((rest_40)" -"(unsafe-cdr lst_158)))" -"(let-values(((fold-var_151)" +"(if(pair? lst_161)" +"(let-values(((r_39)(unsafe-car lst_161))" +"((rest_41)" +"(unsafe-cdr lst_161)))" +"(let-values(((fold-var_152)" "(let-values(((fold-var_9)" -" fold-var_150))" -"(let-values(((fold-var_65)" +" fold-var_151))" +"(let-values(((fold-var_68)" "(let-values()" "(cons" "(let-values()" "(compile_0" -" r_40" +" r_39" " #f" " #t))" " fold-var_9))))" "(values" -" fold-var_65)))))" +" fold-var_68)))))" "(if(not #f)" -"(for-loop_179 fold-var_151 rest_40)" -" fold-var_151)))" -" fold-var_150)))))" -" for-loop_179)" +"(for-loop_182 fold-var_152 rest_41)" +" fold-var_152)))" +" fold-var_151)))))" +" for-loop_182)" " null" -" lst_39))))))))" -"(if(parsed-if? p_38)" +" lst_40))))))))" +"(if(parsed-if? p_34)" "(let-values()" -"(let-values(((tst-e_0)(compile_0(parsed-if-tst p_38) #f #f)))" +"(let-values(((tst-e_0)(compile_0(parsed-if-tst p_34) #f #f)))" "(if(eq?(correlated-e tst-e_0) #t)" "(let-values()" -"(compile_0(parsed-if-thn p_38) name_39 result-used?_0))" +"(compile_0(parsed-if-thn p_34) name_40 result-used?_0))" "(if(eq?(correlated-e tst-e_0) #f)" "(let-values()" -"(compile_0(parsed-if-els p_38) name_39 result-used?_0))" +"(compile_0(parsed-if-els p_34) name_40 result-used?_0))" "(let-values()" "(correlate~" " s_10" "(list" " 'if" " tst-e_0" -"(compile_0(parsed-if-thn p_38) name_39 result-used?_0)" -"(compile_0(parsed-if-els p_38) name_39 result-used?_0))))))))" -"(if(parsed-with-continuation-mark? p_38)" +"(compile_0(parsed-if-thn p_34) name_40 result-used?_0)" +"(compile_0(parsed-if-els p_34) name_40 result-used?_0))))))))" +"(if(parsed-with-continuation-mark? p_34)" "(let-values()" "(correlate~" " s_10" "(list" " 'with-continuation-mark" -"(compile_0(parsed-with-continuation-mark-key p_38) #f #t)" -"(compile_0(parsed-with-continuation-mark-val p_38) #f #t)" +"(compile_0(parsed-with-continuation-mark-key p_34) #f #t)" +"(compile_0(parsed-with-continuation-mark-val p_34) #f #t)" "(compile_0" -"(parsed-with-continuation-mark-body p_38)" -" name_39" +"(parsed-with-continuation-mark-body p_34)" +" name_40" " result-used?_0))))" -"(if(parsed-begin0? p_38)" +"(if(parsed-begin0? p_34)" "(let-values()" "(correlate~" " s_10" "(list*" " 'begin0" -"(compile_0(car(parsed-begin0-body p_38)) name_39 result-used?_0)" +"(compile_0(car(parsed-begin0-body p_34)) name_40 result-used?_0)" "(reverse$1" -"(let-values(((lst_76)(cdr(parsed-begin0-body p_38))))" +"(let-values(((lst_88)(cdr(parsed-begin0-body p_34))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_76)))" -"((letrec-values(((for-loop_102)" -"(lambda(fold-var_11 lst_86)" +"(let-values()(check-list lst_88)))" +"((letrec-values(((for-loop_104)" +"(lambda(fold-var_11 lst_89)" "(begin" " 'for-loop" -"(if(pair? lst_86)" +"(if(pair? lst_89)" "(let-values(((e_32)" -"(unsafe-car lst_86))" -"((rest_41)" -"(unsafe-cdr lst_86)))" -"(let-values(((fold-var_152)" +"(unsafe-car lst_89))" +"((rest_42)" +"(unsafe-cdr lst_89)))" "(let-values(((fold-var_153)" -" fold-var_11))" "(let-values(((fold-var_154)" +" fold-var_11))" +"(let-values(((fold-var_155)" "(let-values()" "(cons" "(let-values()" @@ -26950,38 +26697,38 @@ static const char *startup_source = " e_32" " #f" " #f))" -" fold-var_153))))" +" fold-var_154))))" "(values" -" fold-var_154)))))" +" fold-var_155)))))" "(if(not #f)" -"(for-loop_102" -" fold-var_152" -" rest_41)" -" fold-var_152)))" +"(for-loop_104" +" fold-var_153" +" rest_42)" +" fold-var_153)))" " fold-var_11)))))" -" for-loop_102)" +" for-loop_104)" " null" -" lst_76)))))))" -"(if(parsed-begin? p_38)" +" lst_88)))))))" +"(if(parsed-begin? p_34)" "(let-values()" "(correlate~" " s_10" "(compile-begin" -"(parsed-begin-body p_38)" +"(parsed-begin-body p_34)" " cctx_1" -" name_39" +" name_40" " result-used?_0)))" -"(if(parsed-set!? p_38)" +"(if(parsed-set!? p_34)" "(let-values()" "(correlate~" " s_10" -"(let-values(((temp29_1)(parsed-set!-id p_38))" +"(let-values(((temp29_1)(parsed-set!-id p_34))" "((cctx30_0) cctx_1)" "((temp31_1) #t)" "((temp32_1)" "(compile_0" -"(parsed-set!-rhs p_38)" -"(parsed-s(parsed-set!-id p_38))" +"(parsed-set!-rhs p_34)" +"(parsed-s(parsed-set!-id p_34))" " #t)))" "(compile-identifier24.1" " temp32_1" @@ -26990,50 +26737,56 @@ static const char *startup_source = " #t" " temp29_1" " cctx30_0))))" -"(if(parsed-let-values? p_38)" +"(if(parsed-let-values? p_34)" "(let-values()" -"(let-values(((temp36_0) #f)" +"(let-values(((p33_1) p_34)" +"((cctx34_0) cctx_1)" +"((name35_0) name_40)" +"((temp36_0) #f)" "((result-used?37_0) result-used?_0))" "(compile-let15.1" " temp36_0" -" p_38" -" cctx_1" -" name_39" +" p33_1" +" cctx34_0" +" name35_0" " result-used?37_0)))" -"(if(parsed-letrec-values? p_38)" +"(if(parsed-letrec-values? p_34)" "(let-values()" -"(let-values(((temp41_0) #t)" +"(let-values(((p38_0) p_34)" +"((cctx39_0) cctx_1)" +"((name40_0) name_40)" +"((temp41_0) #t)" "((result-used?42_0) result-used?_0))" "(compile-let15.1" " temp41_0" -" p_38" -" cctx_1" -" name_39" +" p38_0" +" cctx39_0" +" name40_0" " result-used?42_0)))" -"(if(parsed-quote? p_38)" +"(if(parsed-quote? p_34)" "(let-values()" -"(let-values(((datum_1)(parsed-quote-datum p_38)))" +"(let-values(((datum_1)(parsed-quote-datum p_34)))" "(if(self-quoting-in-linklet? datum_1)" "(let-values()(correlate~ s_10 datum_1))" "(let-values()" "(correlate~ s_10(list 'quote datum_1))))))" -"(if(parsed-quote-syntax? p_38)" +"(if(parsed-quote-syntax? p_34)" "(let-values()" "(if result-used?_0" "(compile-quote-syntax" -"(parsed-quote-syntax-datum p_38)" +"(parsed-quote-syntax-datum p_34)" " cctx_1)" "(correlate~ s_10(list 'quote(syntax->datum$1 s_10)))))" -"(if(parsed-#%variable-reference? p_38)" +"(if(parsed-#%variable-reference? p_34)" "(let-values()" -"(let-values(((id_45)" -"(parsed-#%variable-reference-id p_38)))" +"(let-values(((id_44)" +"(parsed-#%variable-reference-id p_34)))" "(correlate~" " s_10" -"(if id_45" +"(if id_44" "(list" " '#%variable-reference" -"(let-values(((id43_0) id_45)((cctx44_0) cctx_1))" +"(let-values(((id43_0) id_44)((cctx44_0) cctx_1))" "(compile-identifier24.1" " #f" " #f" @@ -27045,96 +26798,96 @@ static const char *startup_source = "(let-values()" "(error" " \"unrecognized parsed form:\"" -" p_38)))))))))))))))))))))))))))" +" p_34)))))))))))))))))))))))))))" "(case-lambda" -"((p_40 cctx_2)(begin 'compile(compile7_0 p_40 cctx_2 #f #f #f #f)))" -"((p_41 cctx_3 name_41 result-used?2_1)(compile7_0 p_41 cctx_3 name_41 result-used?2_1 #t #t))" -"((p_42 cctx_4 name1_1)(compile7_0 p_42 cctx_4 name1_1 #f #t #f)))))" +"((p_36 cctx_2)(begin 'compile(compile7_0 p_36 cctx_2 #f #f #f #f)))" +"((p_37 cctx_3 name_42 result-used?2_1)(compile7_0 p_37 cctx_3 name_42 result-used?2_1 #t #t))" +"((p_38 cctx_4 name1_1)(compile7_0 p_38 cctx_4 name1_1 #f #t #f)))))" "(define-values" "(compile-lambda)" "(lambda(formals_0 bodys_0 cctx_5)(begin(list formals_0(compile-sequence bodys_0 cctx_5 #f #t)))))" "(define-values" "(compile-sequence)" -"(lambda(bodys_1 cctx_6 name_42 result-used?_2)" +"(lambda(bodys_1 cctx_6 name_43 result-used?_2)" "(begin" "(if(null?(cdr bodys_1))" -"(compile$2(car bodys_1) cctx_6 name_42 result-used?_2)" -"(compile-begin bodys_1 cctx_6 name_42 result-used?_2)))))" +"(compile$2(car bodys_1) cctx_6 name_43 result-used?_2)" +"(compile-begin bodys_1 cctx_6 name_43 result-used?_2)))))" "(define-values" "(compile-begin)" -"(lambda(es_0 cctx_7 name_43 result-used?_3)" +"(lambda(es_0 cctx_7 name_44 result-used?_3)" "(begin" "(let-values(((used-pos_0)(sub1(length es_0))))" "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_159) es_0)((start_33) 0))" +"(let-values(((lst_162) es_0)((start_33) 0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_159)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_162)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_33)))" -"((letrec-values(((for-loop_180)" -"(lambda(fold-var_76 lst_160 pos_90)" +"((letrec-values(((for-loop_183)" +"(lambda(fold-var_156 lst_94 pos_90)" "(begin" " 'for-loop" -"(if(if(pair? lst_160) #t #f)" -"(let-values(((e_33)(unsafe-car lst_160))" -"((rest_81)(unsafe-cdr lst_160))" -"((i_135) pos_90))" -"(let-values(((fold-var_155)" -"(let-values(((fold-var_156) fold-var_76))" +"(if(if(pair? lst_94) #t #f)" +"(let-values(((e_33)(unsafe-car lst_94))" +"((rest_82)(unsafe-cdr lst_94))" +"((i_137) pos_90))" "(let-values(((fold-var_157)" +"(let-values(((fold-var_79) fold-var_156))" +"(let-values(((fold-var_80)" "(let-values()" "(cons" "(let-values()" "(let-values(((used?_0)" -"(= i_135 used-pos_0)))" +"(= i_137 used-pos_0)))" "(compile$2" " e_33" " cctx_7" -"(if used?_0 name_43 #f)" +"(if used?_0 name_44 #f)" "(if used?_0 result-used?_3 #f))))" -" fold-var_156))))" -"(values fold-var_157)))))" -"(if(not #f)(for-loop_180 fold-var_155 rest_81(+ pos_90 1)) fold-var_155)))" -" fold-var_76)))))" -" for-loop_180)" +" fold-var_79))))" +"(values fold-var_80)))))" +"(if(not #f)(for-loop_183 fold-var_157 rest_82(+ pos_90 1)) fold-var_157)))" +" fold-var_156)))))" +" for-loop_183)" " null" -" lst_159" +" lst_162" " start_33)))))))))" "(define-values" "(add-lambda-properties)" -"(lambda(s_304 inferred-name_0 orig-s_21)" +"(lambda(s_302 inferred-name_0 orig-s_21)" "(begin" "(letrec-values(((simplify-name_0)" -"(lambda(v_50)" +"(lambda(v_159)" "(begin" " 'simplify-name" -"(if(pair? v_50)" +"(if(pair? v_159)" "(let-values()" -"(let-values(((n1_0)(simplify-name_0(car v_50))))" -"(let-values(((n2_0)(simplify-name_0(cdr v_50))))(if(eq? n1_0 n2_0) n1_0 v_50))))" -"(let-values() v_50))))))" -"(let-values(((name_44)" -"(let-values(((or-part_218)" -"(let-values(((v_43)" +"(let-values(((n1_0)(simplify-name_0(car v_159))))" +"(let-values(((n2_0)(simplify-name_0(cdr v_159))))(if(eq? n1_0 n2_0) n1_0 v_159))))" +"(let-values() v_159))))))" +"(let-values(((name_45)" +"(let-values(((or-part_213)" +"(let-values(((v_160)" "(simplify-name_0(syntax-property$1 orig-s_21 'inferred-name))))" -"(if(let-values(((or-part_219)(symbol? v_43)))" -"(if or-part_219" -" or-part_219" -"(let-values(((or-part_220)(syntax?$1 v_43)))" -"(if or-part_220 or-part_220(void? v_43)))))" -" v_43" +"(if(let-values(((or-part_134)(symbol? v_160)))" +"(if or-part_134" +" or-part_134" +"(let-values(((or-part_214)(syntax?$1 v_160)))" +"(if or-part_214 or-part_214(void? v_160)))))" +" v_160" " #f))))" -"(if or-part_218 or-part_218 inferred-name_0))))" +"(if or-part_213 or-part_213 inferred-name_0))))" "(let-values(((named-s_0)" -"(if name_44" +"(if name_45" "(correlated-property" -"(->correlated s_304)" +"(->correlated s_302)" " 'inferred-name" -"(if(syntax?$1 name_44)(syntax-e$1 name_44) name_44))" -" s_304)))" +"(if(syntax?$1 name_45)(syntax-e$1 name_45) name_45))" +" s_302)))" "(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)" @@ -27144,49 +26897,49 @@ static const char *startup_source = "(lambda(rec?9_0 p11_0 cctx12_0 name13_0 result-used?14_0)" "(begin" " 'compile-let15" -"(let-values(((p_30) p11_0))" +"(let-values(((p_39) p11_0))" "(let-values(((cctx_8) cctx12_0))" -"(let-values(((name_45) name13_0))" +"(let-values(((name_46) name13_0))" "(let-values(((rec?_0) rec?9_0))" "(let-values(((result-used?_4) result-used?14_0))" "(let-values()" -"(let-values(((body_0)(parsed-let_-values-body p_30)))" +"(let-values(((body_0)(parsed-let_-values-body p_39)))" "(correlate~" -"(parsed-s p_30)" +"(parsed-s p_39)" "(list" "(if rec?_0 'letrec-values 'let-values)" "(reverse$1" -"(let-values(((lst_161)(parsed-let_-values-clauses p_30))" -"((lst_162)(parsed-let_-values-idss p_30)))" +"(let-values(((lst_163)(parsed-let_-values-clauses p_39))" +"((lst_164)(parsed-let_-values-idss p_39)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_161)))" +"(let-values()(check-list lst_163)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_162)))" +"(let-values()(check-list lst_164)))" "((letrec-values(((for-loop_34)" -"(lambda(fold-var_158 lst_163 lst_164)" +"(lambda(fold-var_158 lst_165 lst_166)" "(begin" " 'for-loop" -"(if(if(pair? lst_163)(pair? lst_164) #f)" -"(let-values(((clause_1)(unsafe-car lst_163))" -"((rest_82)(unsafe-cdr lst_163))" -"((ids_4)(unsafe-car lst_164))" -"((rest_83)(unsafe-cdr lst_164)))" +"(if(if(pair? lst_165)(pair? lst_166) #f)" +"(let-values(((clause_1)(unsafe-car lst_165))" +"((rest_83)(unsafe-cdr lst_165))" +"((ids_4)(unsafe-car lst_166))" +"((rest_84)(unsafe-cdr lst_166)))" "(let-values(((fold-var_159)" "(let-values(((fold-var_160) fold-var_158))" -"(let-values(((fold-var_161)" +"(let-values(((fold-var_0)" "(let-values()" "(cons" "(let-values()" "(list" "(if rec?_0" "(reverse$1" -"(let-values(((lst_165)" +"(let-values(((lst_101)" "(car" " clause_1))" -"((lst_166)" +"((lst_167)" " ids_4))" "(begin" "(if(variable-reference-from-unsafe?" @@ -27194,61 +26947,61 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_165)))" +" lst_101)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_166)))" -"((letrec-values(((for-loop_181)" -"(lambda(fold-var_162" -" lst_167" -" lst_168)" +" lst_167)))" +"((letrec-values(((for-loop_184)" +"(lambda(fold-var_2" +" lst_168" +" lst_169)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_167)" -"(pair?" " lst_168)" +"(pair?" +" lst_169)" " #f)" -"(let-values(((sym_50)" -"(unsafe-car" -" lst_167))" -"((rest_84)" -"(unsafe-cdr" -" lst_167))" -"((id_46)" +"(let-values(((sym_51)" "(unsafe-car" " lst_168))" "((rest_85)" "(unsafe-cdr" -" lst_168)))" +" lst_168))" +"((id_45)" +"(unsafe-car" +" lst_169))" +"((rest_86)" +"(unsafe-cdr" +" lst_169)))" +"(let-values(((fold-var_161)" +"(let-values(((fold-var_162)" +" fold-var_2))" "(let-values(((fold-var_163)" -"(let-values(((fold-var_1)" -" fold-var_162))" -"(let-values(((fold-var_2)" "(let-values()" "(cons" "(let-values()" "(add-undefined-error-name-property" -" sym_50" -" id_46))" -" fold-var_1))))" +" sym_51" +" id_45))" +" fold-var_162))))" "(values" -" fold-var_2)))))" +" fold-var_163)))))" "(if(not" " #f)" -"(for-loop_181" -" fold-var_163" -" rest_84" -" rest_85)" -" fold-var_163)))" -" fold-var_162)))))" -" for-loop_181)" +"(for-loop_184" +" fold-var_161" +" rest_85" +" rest_86)" +" fold-var_161)))" +" fold-var_2)))))" +" for-loop_184)" " null" -" lst_165" -" lst_166))))" +" lst_101" +" lst_167))))" "(car clause_1))" "(compile$2" "(cadr clause_1)" @@ -27257,44 +27010,44 @@ static const char *startup_source = "(car ids_4)" " #f))))" " fold-var_160))))" -"(values fold-var_161)))))" +"(values fold-var_0)))))" "(if(not #f)" -"(for-loop_34 fold-var_159 rest_82 rest_83)" +"(for-loop_34 fold-var_159 rest_83 rest_84)" " fold-var_159)))" " fold-var_158)))))" " for-loop_34)" " null" -" lst_161" -" lst_162))))" -"(compile-sequence body_0 cctx_8 name_45 result-used?_4)))))))))))))" +" lst_163" +" lst_164))))" +"(compile-sequence body_0 cctx_8 name_46 result-used?_4)))))))))))))" "(define-values" "(add-undefined-error-name-property)" -"(lambda(sym_51 orig-id_0)" +"(lambda(sym_49 orig-id_0)" "(begin" -"(let-values(((id_47)(correlate~ orig-id_0 sym_51)))" +"(let-values(((id_46)(correlate~ orig-id_0 sym_49)))" "(correlated-property" -"(->correlated id_47)" +"(->correlated id_46)" " 'undefined-error-name" -"(let-values(((or-part_147)(syntax-property$1 orig-id_0 'undefined-error-name)))" -"(if or-part_147 or-part_147(syntax-e$1 orig-id_0))))))))" +"(let-values(((or-part_49)(syntax-property$1 orig-id_0 'undefined-error-name)))" +"(if or-part_49 or-part_49(syntax-e$1 orig-id_0))))))))" "(define-values" "(compile-identifier24.1)" "(lambda(set-to19_0 set-to21_0 set-to?18_0 set-to?20_0 p22_0 cctx23_0)" "(begin" " 'compile-identifier24" -"(let-values(((p_43) p22_0))" +"(let-values(((p_40) p22_0))" "(let-values(((cctx_9) cctx23_0))" "(let-values(((set-to?_0)(if set-to?20_0 set-to?18_0 #f)))" "(let-values(((rhs_0)(if set-to21_0 set-to19_0 #f)))" "(let-values()" -"(let-values(((normal-b_0)(parsed-id-binding p_43)))" +"(let-values(((normal-b_0)(parsed-id-binding p_40)))" "(let-values(((b_71)" -"(let-values(((or-part_221) normal-b_0))" -"(if or-part_221" -" or-part_221" +"(let-values(((or-part_215) normal-b_0))" +"(if or-part_215" +" or-part_215" "(let-values(((temp45_0)(compile-context-self cctx_9))" "((temp46_0)(compile-context-phase cctx_9))" -"((temp47_0)(syntax-e$1(parsed-s p_43))))" +"((temp47_0)(syntax-e$1(parsed-s p_40))))" "(make-module-binding22.1" " #f" " #f" @@ -27322,11 +27075,11 @@ static const char *startup_source = "(let-values()(local-binding-key b_71))" "(if(module-binding? b_71)" "(let-values()" -"(let-values(((mpi_41)" -"(if(parsed-top-id? p_43)" +"(let-values(((mpi_40)" +"(if(parsed-top-id? p_40)" "(compile-context-self cctx_9)" "(module-binding-module b_71))))" -"(if(parsed-primitive-id? p_43)" +"(if(parsed-primitive-id? p_40)" "(let-values()" "(begin" "(if(zero?(module-binding-phase b_71))" @@ -27340,7 +27093,7 @@ static const char *startup_source = "(module-binding-sym b_71)))" "(void))" "(module-binding-sym b_71)))" -"(if(eq? mpi_41(compile-context-module-self cctx_9))" +"(if(eq? mpi_40(compile-context-module-self cctx_9))" "(let-values()" "(let-values(((header_6)(compile-context-header cctx_9)))" "(hash-ref" @@ -27348,20 +27101,20 @@ static const char *startup_source = "(module-binding-sym b_71))))" "(let-values()" "(let-values(((temp48_0)(compile-context-header cctx_9))" -"((mpi49_0) mpi_41)" +"((mpi49_0) mpi_40)" "((temp50_0)(module-binding-phase b_71))" "((temp51_0)(module-binding-sym b_71))" "((temp52_1)" -"(let-values(((or-part_102)" +"(let-values(((or-part_216)" "(module-binding-extra-inspector b_71)))" -"(if or-part_102" -" or-part_102" -"(let-values(((or-part_222)" -"(parsed-id-inspector p_43)))" -"(if or-part_222" -" or-part_222" -"(if(parsed-s p_43)" -"(syntax-inspector(parsed-s p_43))" +"(if or-part_216" +" or-part_216" +"(let-values(((or-part_217)" +"(parsed-id-inspector p_40)))" +"(if or-part_217" +" or-part_217" +"(if(parsed-s p_40)" +"(syntax-inspector(parsed-s p_40))" " #f)))))))" "(register-required-variable-use!19.1" " #f" @@ -27375,16 +27128,16 @@ static const char *startup_source = "(error" " \"not a reference to a module or local binding:\"" " b_71" -"(parsed-s p_43)))))))" -"(correlate~(parsed-s p_43)(if set-to?_0(list 'set! sym_52 rhs_0) sym_52)))))))))))))" +"(parsed-s p_40)))))))" +"(correlate~(parsed-s p_40)(if set-to?_0(list 'set! sym_52 rhs_0) sym_52)))))))))))))" "(define-values" "(compile-quote-syntax)" "(lambda(q_1 cctx_10)" "(begin" -"(let-values(((pos_22)(add-syntax-literal!(compile-context-header cctx_10) q_1)))" +"(let-values(((pos_91)(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_22))" -"(let-values()(generate-eager-syntax-literal-lookup pos_22)))))))" +"(let-values()(generate-lazy-syntax-literal-lookup pos_91))" +"(let-values()(generate-eager-syntax-literal-lookup pos_91)))))))" "(define-values" "(extra-inspectors-allow?)" "(lambda(extra-inspectors_2 guard-insp_0)" @@ -27393,33 +27146,33 @@ static const char *startup_source = "(let-values() #f)" "(if(set? extra-inspectors_2)" "(let-values()" -"(let-values(((ht_107) extra-inspectors_2))" +"(let-values(((ht_109) extra-inspectors_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_107)))" +"(let-values()(check-in-immutable-hash-keys ht_109)))" "((letrec-values(((for-loop_91)" -"(lambda(result_70 i_136)" +"(lambda(result_72 i_138)" "(begin" " 'for-loop" -"(if i_136" -"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_107 i_136)))" -"(let-values(((result_71)" +"(if i_138" +"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_109 i_138)))" +"(let-values(((result_73)" "(let-values()" -"(let-values(((result_72)" +"(let-values(((result_74)" "(let-values()" "(let-values()" "(inspector-superior?" " extra-insp_0" " guard-insp_0)))))" -"(values result_72)))))" -"(if(if(not((lambda x_54(not result_71)) extra-insp_0))(not #f) #f)" -"(for-loop_91 result_71(unsafe-immutable-hash-iterate-next ht_107 i_136))" -" result_71)))" -" result_70)))))" +"(values result_74)))))" +"(if(if(not((lambda x_54(not result_73)) extra-insp_0))(not #f) #f)" +"(for-loop_91 result_73(unsafe-immutable-hash-iterate-next ht_109 i_138))" +" result_73)))" +" result_72)))))" " for-loop_91)" " #t" -"(unsafe-immutable-hash-iterate-first ht_107)))))" +"(unsafe-immutable-hash-iterate-first ht_109)))))" "(if(procedure? extra-inspectors_2)" "(let-values()(extra-inspectors_2 guard-insp_0))" "(let-values()" @@ -27431,8 +27184,8 @@ static const char *startup_source = "(extra-inspectors-merge)" "(lambda(extra-inspectors-1_0 extra-inspectors-2_0)" "(begin" -"(if(let-values(((or-part_223)(not extra-inspectors-1_0)))" -"(if or-part_223 or-part_223(not extra-inspectors-2_0)))" +"(if(let-values(((or-part_218)(not extra-inspectors-1_0)))" +"(if or-part_218 or-part_218(not extra-inspectors-2_0)))" "(let-values() #f)" "(if(if(set? extra-inspectors-1_0)(set? extra-inspectors-2_0) #f)" "(let-values()(set-union extra-inspectors-1_0 extra-inspectors-2_0))" @@ -27479,19 +27232,19 @@ static const char *startup_source = "(if extra-inspectorsss_0" "(let-values()" "(reverse$1" -"(let-values(((lst_169) mus_1)((lst_76) extra-inspectorsss_0))" +"(let-values(((lst_170) mus_1)((lst_88) extra-inspectorsss_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_169)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_76)))" -"((letrec-values(((for-loop_102)" -"(lambda(fold-var_11 lst_86 lst_78)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_170)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_88)))" +"((letrec-values(((for-loop_104)" +"(lambda(fold-var_11 lst_89 lst_171)" "(begin" " 'for-loop" -"(if(if(pair? lst_86)(pair? lst_78) #f)" -"(let-values(((mu_5)(unsafe-car lst_86))" -"((rest_86)(unsafe-cdr lst_86))" -"((extra-inspectorss_1)(unsafe-car lst_78))" -"((rest_87)(unsafe-cdr lst_78)))" +"(if(if(pair? lst_89)(pair? lst_171) #f)" +"(let-values(((mu_5)(unsafe-car lst_89))" +"((rest_87)(unsafe-cdr lst_89))" +"((extra-inspectorss_1)(unsafe-car lst_171))" +"((rest_36)(unsafe-cdr lst_171)))" "(let-values(((fold-var_164)" "(let-values(((fold-var_165) fold-var_11))" "(let-values(((fold-var_166)" @@ -27505,24 +27258,24 @@ static const char *startup_source = " #f))" " fold-var_165))))" "(values fold-var_166)))))" -"(if(not #f)(for-loop_102 fold-var_164 rest_86 rest_87) fold-var_164)))" +"(if(not #f)(for-loop_104 fold-var_164 rest_87 rest_36) fold-var_164)))" " fold-var_11)))))" -" for-loop_102)" +" for-loop_104)" " null" -" lst_169" -" lst_76)))))" +" lst_170" +" lst_88)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_87) mus_1))" +"(let-values(((lst_90) mus_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_87)))" -"((letrec-values(((for-loop_94)" -"(lambda(fold-var_167 lst_170)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_90)))" +"((letrec-values(((for-loop_185)" +"(lambda(fold-var_167 lst_17)" "(begin" " 'for-loop" -"(if(pair? lst_170)" -"(let-values(((mu_6)(unsafe-car lst_170))((rest_88)(unsafe-cdr lst_170)))" -"(let-values(((fold-var_67)" +"(if(pair? lst_17)" +"(let-values(((mu_6)(unsafe-car lst_17))((rest_88)(unsafe-cdr lst_17)))" +"(let-values(((fold-var_63)" "(let-values(((fold-var_168) fold-var_167))" "(let-values(((fold-var_18)" "(let-values()" @@ -27535,27 +27288,27 @@ static const char *startup_source = " #f))" " fold-var_168))))" "(values fold-var_18)))))" -"(if(not #f)(for-loop_94 fold-var_67 rest_88) fold-var_67)))" +"(if(not #f)(for-loop_185 fold-var_63 rest_88) fold-var_63)))" " fold-var_167)))))" -" for-loop_94)" +" for-loop_185)" " null" -" lst_87)))))))))" +" lst_90)))))))))" "(define-values" "(module-uses-strip-extra-inspectorsss)" "(lambda(mu*s_0)" "(begin" "(reverse$1" -"(let-values(((lst_171) mu*s_0))" +"(let-values(((lst_172) mu*s_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_171)))" -"((letrec-values(((for-loop_182)" -"(lambda(fold-var_69 lst_172)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_172)))" +"((letrec-values(((for-loop_186)" +"(lambda(fold-var_70 lst_173)" "(begin" " 'for-loop" -"(if(pair? lst_172)" -"(let-values(((mu*_0)(unsafe-car lst_172))((rest_89)(unsafe-cdr lst_172)))" +"(if(pair? lst_173)" +"(let-values(((mu*_0)(unsafe-car lst_173))((rest_89)(unsafe-cdr lst_173)))" "(let-values(((fold-var_169)" -"(let-values(((fold-var_70) fold-var_69))" +"(let-values(((fold-var_71) fold-var_70))" "(let-values(((fold-var_170)" "(let-values()" "(cons" @@ -27563,13 +27316,13 @@ static const char *startup_source = "(module-use1.1" "(module-use-module mu*_0)" "(module-use-phase mu*_0)))" -" fold-var_70))))" +" fold-var_71))))" "(values fold-var_170)))))" -"(if(not #f)(for-loop_182 fold-var_169 rest_89) fold-var_169)))" -" fold-var_69)))))" -" for-loop_182)" +"(if(not #f)(for-loop_186 fold-var_169 rest_89) fold-var_169)))" +" fold-var_70)))))" +" for-loop_186)" " null" -" lst_171)))))))" +" lst_172)))))))" "(define-values" "(module-uses-extract-extra-inspectorsss)" "(lambda(mu*s_1 linklet_0 check-inlined-reference?_0 skip-n_0)" @@ -27577,17 +27330,17 @@ static const char *startup_source = "(if(not check-inlined-reference?_0)" "(let-values()" "(reverse$1" -"(let-values(((lst_173) mu*s_1))" +"(let-values(((lst_174) mu*s_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_173)))" -"((letrec-values(((for-loop_183)" -"(lambda(fold-var_73 lst_9)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_174)))" +"((letrec-values(((for-loop_187)" +"(lambda(fold-var_74 lst_9)" "(begin" " 'for-loop" "(if(pair? lst_9)" "(let-values(((mu*_1)(unsafe-car lst_9))((rest_90)(unsafe-cdr lst_9)))" "(let-values(((fold-var_171)" -"(let-values(((fold-var_4) fold-var_73))" +"(let-values(((fold-var_4) fold-var_74))" "(let-values(((fold-var_172)" "(let-values()" "(cons" @@ -27595,54 +27348,54 @@ static const char *startup_source = "(module-use*-extra-inspectorss mu*_1))" " fold-var_4))))" "(values fold-var_172)))))" -"(if(not #f)(for-loop_183 fold-var_171 rest_90) fold-var_171)))" -" fold-var_73)))))" -" for-loop_183)" +"(if(not #f)(for-loop_187 fold-var_171 rest_90) fold-var_171)))" +" fold-var_74)))))" +" for-loop_187)" " null" -" lst_173)))))" +" lst_174)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_174) mu*s_1)((lst_175)(list-tail(1/linklet-import-variables linklet_0) skip-n_0)))" +"(let-values(((lst_175) mu*s_1)((lst_176)(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_174)))" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_175)))" -"((letrec-values(((for-loop_30)" -"(lambda(fold-var_6 lst_176 lst_177)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_176)))" +"((letrec-values(((for-loop_29)" +"(lambda(fold-var_6 lst_177 lst_178)" "(begin" " 'for-loop" -"(if(if(pair? lst_176)(pair? lst_177) #f)" -"(let-values(((mu*_2)(unsafe-car lst_176))" -"((rest_91)(unsafe-cdr lst_176))" -"((imports_0)(unsafe-car lst_177))" -"((rest_92)(unsafe-cdr lst_177)))" -"(let-values(((fold-var_173)" -"(let-values(((fold-var_174) fold-var_6))" -"(let-values(((fold-var_175)" +"(if(if(pair? lst_177)(pair? lst_178) #f)" +"(let-values(((mu*_2)(unsafe-car lst_177))" +"((rest_91)(unsafe-cdr lst_177))" +"((imports_0)(unsafe-car lst_178))" +"((rest_92)(unsafe-cdr lst_178)))" +"(let-values(((fold-var_156)" +"(let-values(((fold-var_173) fold-var_6))" +"(let-values(((fold-var_174)" "(let-values()" "(cons" "(let-values()" "(let-values(((extra-inspectorss_2)" "(module-use*-extra-inspectorss" " mu*_2)))" -"(let-values(((lst_92) imports_0))" +"(let-values(((lst_95) imports_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_92)))" +"(let-values()(check-list lst_95)))" "((letrec-values(((for-loop_19)" "(lambda(extra-inspectorss_3" -" lst_178)" +" lst_179)" "(begin" " 'for-loop" "(if(pair?" -" lst_178)" +" lst_179)" "(let-values(((import_0)" "(unsafe-car" -" lst_178))" +" lst_179))" "((rest_93)" "(unsafe-cdr" -" lst_178)))" +" lst_179)))" "(let-values(((extra-inspectorss_4)" "(let-values(((extra-inspectorss_5)" " extra-inspectorss_3))" @@ -27674,47 +27427,47 @@ static const char *startup_source = " extra-inspectorss_3)))))" " for-loop_19)" " extra-inspectorss_2" -" lst_92)))))" -" fold-var_174))))" -"(values fold-var_175)))))" -"(if(not #f)(for-loop_30 fold-var_173 rest_91 rest_92) fold-var_173)))" +" lst_95)))))" +" fold-var_173))))" +"(values fold-var_174)))))" +"(if(not #f)(for-loop_29 fold-var_156 rest_91 rest_92) fold-var_156)))" " fold-var_6)))))" -" for-loop_30)" +" for-loop_29)" " null" -" lst_174" -" lst_175)))))))))" +" lst_175" +" lst_176)))))))))" "(define-values" "(module-use*-declaration-inspector!)" -"(lambda(mu*_3 insp_8)(begin(set-module-use*-self-inspector! mu*_3 insp_8))))" +"(lambda(mu*_3 insp_9)(begin(set-module-use*-self-inspector! mu*_3 insp_9))))" "(define-values" "(module-use+extra-inspectors)" -"(lambda(mpi_42 phase_67 imports_1 inspector_12 extra-inspector_5 extra-inspectorss_7)" +"(lambda(mpi_41 phase_69 imports_1 inspector_12 extra-inspector_5 extra-inspectorss_7)" "(begin" "(let-values(((now-inspector_0)(current-code-inspector)))" "(let-values(((add-insp?_0)(if inspector_12(inspector-superior? inspector_12 now-inspector_0) #f)))" "(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_224) add-insp?_0))(if or-part_224 or-part_224 add-extra-insp?_0))" +"(if(let-values(((or-part_219) add-insp?_0))(if or-part_219 or-part_219 add-extra-insp?_0))" "(let-values()" -"(let-values(((lst_179) imports_1))" +"(let-values(((lst_180) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_179)))" -"((letrec-values(((for-loop_112)" -"(lambda(table_139 lst_180)" +"(let-values()(check-list lst_180)))" +"((letrec-values(((for-loop_113)" +"(lambda(table_139 lst_181)" "(begin" " 'for-loop" -"(if(pair? lst_180)" -"(let-values(((import_1)(unsafe-car lst_180))" -"((rest_94)(unsafe-cdr lst_180)))" +"(if(pair? lst_181)" +"(let-values(((import_1)(unsafe-car lst_181))" +"((rest_94)(unsafe-cdr lst_181)))" "(let-values(((table_140)" "(let-values(((table_141) table_139))" "(let-values(((table_142)" "(let-values()" "(let-values(((key_55" -" val_49)" +" val_48)" "(let-values()" "(values" " import_1" @@ -27726,48 +27479,48 @@ static const char *startup_source = " #f)" " #f)))" "(lambda(guard-insp_2)" -"(let-values(((or-part_225)" +"(let-values(((or-part_220)" "(if add-insp?_0" "(inspector-superior?" " inspector_12" " guard-insp_2)" " #f)))" -"(if or-part_225" -" or-part_225" -"(let-values(((or-part_226)" +"(if or-part_220" +" or-part_220" +"(let-values(((or-part_221)" "(if add-extra-insp?_0" "(inspector-superior?" " extra-inspector_5" " guard-insp_2)" " #f)))" -"(if or-part_226" -" or-part_226" +"(if or-part_221" +" or-part_221" "(extra-inspectors-allow?" " extra-inspectors_3" " guard-insp_2)))))))))))" "(hash-set" " table_141" " key_55" -" val_49)))))" +" val_48)))))" "(values table_142)))))" -"(if(not #f)(for-loop_112 table_140 rest_94) table_140)))" +"(if(not #f)(for-loop_113 table_140 rest_94) table_140)))" " table_139)))))" -" for-loop_112)" +" for-loop_113)" " '#hash()" -" lst_179))))" +" lst_180))))" "(let-values()" -"(let-values(((lst_164) imports_1))" +"(let-values(((lst_182) imports_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_164)))" -"((letrec-values(((for-loop_184)" -"(lambda(extra-inspectorss_8 lst_181)" +"(let-values()(check-list lst_182)))" +"((letrec-values(((for-loop_188)" +"(lambda(extra-inspectorss_8 lst_183)" "(begin" " 'for-loop" -"(if(pair? lst_181)" -"(let-values(((import_2)(unsafe-car lst_181))" -"((rest_95)(unsafe-cdr lst_181)))" +"(if(pair? lst_183)" +"(let-values(((import_2)(unsafe-car lst_183))" +"((rest_95)(unsafe-cdr lst_183)))" "(let-values(((extra-inspectorss_9)" "(let-values(((extra-inspectorss_10)" " extra-inspectorss_8))" @@ -27784,14 +27537,14 @@ static const char *startup_source = " #f)))))" "(values extra-inspectorss_11)))))" "(if(not #f)" -"(for-loop_184 extra-inspectorss_9 rest_95)" +"(for-loop_188 extra-inspectorss_9 rest_95)" " extra-inspectorss_9)))" " extra-inspectorss_8)))))" -" for-loop_184)" -"(let-values(((or-part_227) extra-inspectorss_7))" -"(if or-part_227 or-part_227(seteq)))" -" lst_164)))))))" -"(module-use*1.1 mpi_42 phase_67 new-extra-inspectorss_0 #f))))))))" +" for-loop_188)" +"(let-values(((or-part_222) extra-inspectorss_7))" +"(if or-part_222 or-part_222(seteq)))" +" lst_182)))))))" +"(module-use*1.1 mpi_41 phase_69 new-extra-inspectorss_0 #f))))))))" "(define-values" "(module-use-merge-extra-inspectorss!)" "(lambda(existing-mu*_0 mu*_4)" @@ -27799,18 +27552,18 @@ static const char *startup_source = "(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_108) extra-inspectorss_12))" +"(let-values(((ht_110) extra-inspectorss_12))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_108)))" -"((letrec-values(((for-loop_185)" -"(lambda(new-extra-inspectorss_2 i_137)" +"(let-values()(check-in-hash ht_110)))" +"((letrec-values(((for-loop_189)" +"(lambda(new-extra-inspectorss_2 i_139)" "(begin" " 'for-loop" -"(if i_137" +"(if i_139" "(let-values(((sym_53 extra-inspectors_4)" -"(hash-iterate-key+value ht_108 i_137)))" +"(hash-iterate-key+value ht_110 i_139)))" "(let-values(((new-extra-inspectorss_3)" "(let-values(((new-extra-inspectorss_4)" " new-extra-inspectorss_2))" @@ -27827,14 +27580,14 @@ static const char *startup_source = "(seteq)))))))" "(values new-extra-inspectorss_5)))))" "(if(not #f)" -"(for-loop_185" +"(for-loop_189" " new-extra-inspectorss_3" -"(hash-iterate-next ht_108 i_137))" +"(hash-iterate-next ht_110 i_139))" " new-extra-inspectorss_3)))" " new-extra-inspectorss_2)))))" -" for-loop_185)" +" for-loop_189)" " existing-extra-inspectorss_0" -"(hash-iterate-first ht_108))))))" +"(hash-iterate-first ht_110))))))" "(set-module-use*-extra-inspectorss! existing-mu*_0 new-extra-inspectorss_1)))))))" "(define-values" "(struct:link-info" @@ -27888,7 +27641,7 @@ static const char *startup_source = "(begin" " 'compile-forms31" "(let-values(((bodys_2) bodys28_0))" -"(let-values(((cctx_11) cctx29_0))" +"(let-values(((cctx_3) cctx29_0))" "(let-values(((mpis_14) mpis30_0))" "(let-values(((body-imports_0) body-imports2_0))" "(let-values(((body-import-instances_0) body-import-instances3_0))" @@ -27907,37 +27660,37 @@ static const char *startup_source = "(let-values(((get-module-linklet-info_0)" "(if get-module-linklet-info24_0" " get-module-linklet-info11_0" -"(lambda(mod-name_14 p_44)(begin 'get-module-linklet-info #f)))))" +"(lambda(mod-name_14 p_41)(begin 'get-module-linklet-info #f)))))" "(let-values(((to-source?_0)(if to-source?25_0 to-source?12_0 #f)))" "(let-values(((serializable?_0)(if serializable?26_0 serializable?13_0 #t)))" "(let-values(((cross-linklet-inlining?_1)" "(if cross-linklet-inlining?27_0 cross-linklet-inlining?14_0 #t)))" "(let-values()" -"(let-values(((phase_68)(compile-context-phase cctx_11)))" -"(let-values(((self_20)(compile-context-self cctx_11)))" +"(let-values(((phase_70)(compile-context-phase cctx_3)))" +"(let-values(((self_18)(compile-context-self cctx_3)))" "(let-values(((syntax-literals_1)(make-syntax-literals)))" "(let-values(((phase-to-body_0)(make-hasheqv)))" "(let-values(((add-body!_0)" -"(lambda(phase_67 body_1)" +"(lambda(phase_69 body_1)" "(begin" " 'add-body!" "(hash-update!" " phase-to-body_0" -" phase_67" -"(lambda(l_55)(cons body_1 l_55))" +" phase_69" +"(lambda(l_54)(cons body_1 l_54))" " null)))))" "(let-values(((phase-to-header_0)(make-hasheqv)))" "(let-values(((find-or-create-header!_0)" -"(lambda(phase_69)" +"(lambda(phase_71)" "(begin" " 'find-or-create-header!" -"(let-values(((or-part_141)" +"(let-values(((or-part_213)" "(hash-ref" " phase-to-header_0" -" phase_69" +" phase_71" " #f)))" -"(if or-part_141" -" or-part_141" +"(if or-part_213" +" or-part_213" "(let-values(((header_7)" "(make-header" " mpis_14" @@ -27945,28 +27698,28 @@ static const char *startup_source = "(begin" "(hash-set!" " phase-to-header_0" -" phase_69" +" phase_71" " header_7)" " header_7))))))))" "(let-values((()" "(begin" -"(let-values(((lst_182) force-phases_0))" +"(let-values(((lst_184) force-phases_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_182)))" -"((letrec-values(((for-loop_186)" -"(lambda(lst_183)" +"(let-values()(check-list lst_184)))" +"((letrec-values(((for-loop_190)" +"(lambda(lst_185)" "(begin" " 'for-loop" -"(if(pair? lst_183)" -"(let-values(((phase_70)" +"(if(pair? lst_185)" +"(let-values(((phase_72)" "(unsafe-car" -" lst_183))" +" lst_185))" "((rest_96)" "(unsafe-cdr" -" lst_183)))" +" lst_185)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -27975,34 +27728,34 @@ static const char *startup_source = "(let-values()" "(begin" "(find-or-create-header!_0" -" phase_70)" +" phase_72)" "(add-body!_0" -" phase_70" +" phase_72" " '(void))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_186" +"(for-loop_190" " rest_96)" "(values))))" "(values))))))" -" for-loop_186)" -" lst_182)))" +" for-loop_190)" +" lst_184)))" "(values))))" "(let-values()" "(let-values(((saw-define-syntaxes?_0) #f))" "(let-values((()" "(begin" -"(if(compile-context-module-self cctx_11)" +"(if(compile-context-module-self cctx_3)" "(let-values()" "((letrec-values(((loop!_0)" "(lambda(bodys_3" -" phase_71" +" phase_73" " header_8)" "(begin" " 'loop!" "(begin" -"(let-values(((lst_184)" +"(let-values(((lst_186)" " bodys_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28010,19 +27763,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_184)))" -"((letrec-values(((for-loop_187)" -"(lambda(lst_185)" +" lst_186)))" +"((letrec-values(((for-loop_191)" +"(lambda(lst_187)" "(begin" " 'for-loop" "(if(pair?" -" lst_185)" +" lst_187)" "(let-values(((body_2)" "(unsafe-car" -" lst_185))" +" lst_187))" "((rest_97)" "(unsafe-cdr" -" lst_185)))" +" lst_187)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28033,7 +27786,7 @@ static const char *startup_source = " body_2)" "(let-values()" "(begin" -"(let-values(((lst_161)" +"(let-values(((lst_188)" "(parsed-define-values-syms" " body_2)))" "(begin" @@ -28042,19 +27795,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_161)))" -"((letrec-values(((for-loop_11)" -"(lambda(lst_186)" +" lst_188)))" +"((letrec-values(((for-loop_192)" +"(lambda(lst_189)" "(begin" " 'for-loop" "(if(pair?" -" lst_186)" +" lst_189)" "(let-values(((sym_54)" "(unsafe-car" -" lst_186))" +" lst_189))" "((rest_98)" "(unsafe-cdr" -" lst_186)))" +" lst_189)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28084,12 +27837,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_11" +"(for-loop_192" " rest_98)" "(values))))" "(values))))))" -" for-loop_11)" -" lst_161)))" +" for-loop_192)" +" lst_188)))" "(void)))" "(if(parsed-begin-for-syntax?" " body_2)" @@ -28098,26 +27851,26 @@ static const char *startup_source = "(parsed-begin-for-syntax-body" " body_2)" "(add1" -" phase_71)" +" phase_73)" "(find-or-create-header!_0" "(add1" -" phase_71))))" +" phase_73))))" "(void))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_187" +"(for-loop_191" " rest_97)" "(values))))" "(values))))))" -" for-loop_187)" -" lst_184)))" +" for-loop_191)" +" lst_186)))" "(void))))))" " loop!_0)" " bodys_2" -" phase_68" -"(find-or-create-header!_0 phase_68)))" +" phase_70" +"(find-or-create-header!_0 phase_70)))" "(void))" "(values))))" "(let-values(((as-required?_0)" @@ -28133,12 +27886,12 @@ static const char *startup_source = "(begin" "((letrec-values(((loop!_1)" "(lambda(bodys_4" -" phase_72" +" phase_74" " header_10)" "(begin" " 'loop!" "(begin" -"(let-values(((lst_187)" +"(let-values(((lst_190)" " bodys_4)" "((start_34)" " 0))" @@ -28148,30 +27901,30 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_187)))" +" lst_190)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals" " start_34)))" -"((letrec-values(((for-loop_188)" -"(lambda(lst_188" -" pos_91)" +"((letrec-values(((for-loop_193)" +"(lambda(lst_191" +" pos_92)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_188)" +" lst_191)" " #t" " #f)" "(let-values(((body_3)" "(unsafe-car" -" lst_188))" -"((rest_99)" +" lst_191))" +"((rest_84)" "(unsafe-cdr" -" lst_188))" -"((i_138)" -" pos_91))" +" lst_191))" +"((i_140)" +" pos_92))" "(let-values((()" "(let-values()" "(let-values((()" @@ -28189,10 +27942,10 @@ static const char *startup_source = " body_3)))" "(let-values(((def-syms_0)" "(if(compile-context-module-self" -" cctx_11)" +" cctx_3)" "(let-values()" "(reverse$1" -"(let-values(((lst_189)" +"(let-values(((lst_192)" " binding-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28200,24 +27953,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_189)))" -"((letrec-values(((for-loop_189)" +" lst_192)))" +"((letrec-values(((for-loop_194)" "(lambda(fold-var_3" -" lst_190)" +" lst_169)" "(begin" " 'for-loop" "(if(pair?" -" lst_190)" +" lst_169)" "(let-values(((binding-sym_0)" "(unsafe-car" -" lst_190))" -"((rest_100)" +" lst_169))" +"((rest_85)" "(unsafe-cdr" -" lst_190)))" +" lst_169)))" +"(let-values(((fold-var_175)" "(let-values(((fold-var_176)" -"(let-values(((fold-var_177)" " fold-var_3))" -"(let-values(((fold-var_178)" +"(let-values(((fold-var_161)" "(let-values()" "(cons" "(let-values()" @@ -28225,22 +27978,22 @@ static const char *startup_source = "(header-binding-sym-to-define-sym" " header_10)" " binding-sym_0))" -" fold-var_177))))" +" fold-var_176))))" "(values" -" fold-var_178)))))" +" fold-var_161)))))" "(if(not" " #f)" -"(for-loop_189" -" fold-var_176" -" rest_100)" -" fold-var_176)))" +"(for-loop_194" +" fold-var_175" +" rest_85)" +" fold-var_175)))" " fold-var_3)))))" -" for-loop_189)" +" for-loop_194)" " null" -" lst_189)))))" +" lst_192)))))" "(let-values()" "(reverse$1" -"(let-values(((lst_48)" +"(let-values(((lst_193)" " binding-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28248,32 +28001,34 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_48)))" -"((letrec-values(((for-loop_71)" -"(lambda(fold-var_35" -" lst_49)" +" lst_193)))" +"((letrec-values(((for-loop_195)" +"(lambda(fold-var_177" +" lst_194)" "(begin" " 'for-loop" "(if(pair?" -" lst_49)" +" lst_194)" "(let-values(((binding-sym_1)" "(unsafe-car" -" lst_49))" -"((rest_21)" +" lst_194))" +"((rest_99)" "(unsafe-cdr" -" lst_49)))" -"(let-values(((fold-var_36)" -"(let-values(((fold-var_37)" -" fold-var_35))" -"(let-values(((fold-var_38)" +" lst_194)))" +"(let-values(((fold-var_178)" +"(let-values(((fold-var_179)" +" fold-var_177))" +"(let-values(((fold-var_90)" "(let-values()" "(cons" "(let-values()" -"(let-values(((temp36_1)" +"(let-values(((header35_0)" +" header_10)" +"((temp36_1)" "(compile-context-self" -" cctx_11))" +" cctx_3))" "((phase37_1)" -" phase_72)" +" phase_74)" "((binding-sym38_0)" " binding-sym_1)" "((temp39_0)" @@ -28283,34 +28038,34 @@ static const char *startup_source = "(register-required-variable-use!19.1" " temp40_0" " #t" -" header_10" +" header35_0" " temp36_1" " phase37_1" " binding-sym38_0" " temp39_0)))" -" fold-var_37))))" +" fold-var_179))))" "(values" -" fold-var_38)))))" +" fold-var_90)))))" "(if(not" " #f)" -"(for-loop_71" -" fold-var_36" -" rest_21)" -" fold-var_36)))" -" fold-var_35)))))" -" for-loop_71)" +"(for-loop_195" +" fold-var_178" +" rest_99)" +" fold-var_178)))" +" fold-var_177)))))" +" for-loop_195)" " null" -" lst_48))))))))" +" lst_193))))))))" "(let-values(((rhs_1)" "(compile$2" "(parsed-define-values-rhs" " body_3)" "(let-values(((the-struct_50)" -" cctx_11))" +" cctx_3))" "(if(compile-context?" " the-struct_50)" "(let-values(((phase41_0)" -" phase_72)" +" phase_74)" "((header42_0)" " header_10))" "(compile-context1.1" @@ -28343,11 +28098,11 @@ static const char *startup_source = " rhs_1" "(length" " def-syms_0)" -" phase_72" +" phase_74" "(as-required?_0" " header_10))" "(add-body!_0" -" phase_72" +" phase_74" "(propagate-inline-property" "(correlate*" "(parsed-s" @@ -28358,25 +28113,25 @@ static const char *startup_source = " rhs_1))" "(parsed-s" " body_3)))" -"(if(let-values(((or-part_228)" +"(if(let-values(((or-part_48)" "(compile-context-module-self" -" cctx_11)))" -"(if or-part_228" -" or-part_228" +" cctx_3)))" +"(if or-part_48" +" or-part_48" "(null?" " ids_5)))" "(void)" "(let-values()" "(begin" "(add-body!_0" -" phase_72" +" phase_74" "(list*" " 'if" " #f" "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_191)" +"(let-values(((lst_36)" " def-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28384,24 +28139,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_191)))" -"((letrec-values(((for-loop_190)" -"(lambda(fold-var_179" -" lst_192)" +" lst_36)))" +"((letrec-values(((for-loop_196)" +"(lambda(fold-var_180" +" lst_195)" "(begin" " 'for-loop" "(if(pair?" -" lst_192)" +" lst_195)" "(let-values(((def-sym_2)" "(unsafe-car" -" lst_192))" -"((rest_101)" +" lst_195))" +"((rest_100)" "(unsafe-cdr" -" lst_192)))" -"(let-values(((fold-var_180)" +" lst_195)))" "(let-values(((fold-var_181)" -" fold-var_179))" "(let-values(((fold-var_182)" +" fold-var_180))" +"(let-values(((fold-var_36)" "(let-values()" "(cons" "(let-values()" @@ -28409,31 +28164,31 @@ static const char *startup_source = " 'set!" " def-sym_2" " '(#f)))" -" fold-var_181))))" +" fold-var_182))))" "(values" -" fold-var_182)))))" +" fold-var_36)))))" "(if(not" " #f)" -"(for-loop_190" -" fold-var_180" -" rest_101)" -" fold-var_180)))" -" fold-var_179)))))" -" for-loop_190)" +"(for-loop_196" +" fold-var_181" +" rest_100)" +" fold-var_181)))" +" fold-var_180)))))" +" for-loop_196)" " null" -" lst_191)))))" +" lst_36)))))" " '((void))))" "(add-body!_0" -" phase_72" +" phase_74" "(compile-top-level-bind" " ids_5" " binding-syms_0" "(let-values(((the-struct_51)" -" cctx_11))" +" cctx_3))" "(if(compile-context?" " the-struct_51)" "(let-values(((phase43_0)" -" phase_72)" +" phase_74)" "((header44_0)" " header_10))" "(compile-context1.1" @@ -28466,10 +28221,10 @@ static const char *startup_source = "(let-values(((next-header_0)" "(find-or-create-header!_0" "(add1" -" phase_72))))" +" phase_74))))" "(let-values(((gen-syms_0)" "(reverse$1" -"(let-values(((lst_193)" +"(let-values(((lst_196)" " binding-syms_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28477,20 +28232,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_193)))" -"((letrec-values(((for-loop_191)" +" lst_196)))" +"((letrec-values(((for-loop_197)" "(lambda(fold-var_183" -" lst_194)" +" lst_197)" "(begin" " 'for-loop" "(if(pair?" -" lst_194)" +" lst_197)" "(let-values(((binding-sym_2)" "(unsafe-car" -" lst_194))" -"((rest_102)" +" lst_197))" +"((rest_101)" "(unsafe-cdr" -" lst_194)))" +" lst_197)))" "(let-values(((fold-var_184)" "(let-values(((fold-var_185)" " fold-var_183))" @@ -28512,25 +28267,25 @@ static const char *startup_source = " fold-var_186)))))" "(if(not" " #f)" -"(for-loop_191" +"(for-loop_197" " fold-var_184" -" rest_102)" +" rest_101)" " fold-var_184)))" " fold-var_183)))))" -" for-loop_191)" +" for-loop_197)" " null" -" lst_193))))))" +" lst_196))))))" "(let-values(((rhs_2)" "(compile$2" "(parsed-define-syntaxes-rhs" " body_3)" "(let-values(((the-struct_52)" -" cctx_11))" +" cctx_3))" "(if(compile-context?" " the-struct_52)" "(let-values(((phase45_0)" "(add1" -" phase_72))" +" phase_74))" "((header46_0)" " next-header_0))" "(compile-context1.1" @@ -28561,15 +28316,15 @@ static const char *startup_source = "(length" " gen-syms_0)" "(add1" -" phase_72)" +" phase_74)" "(as-required?_0" " header_10))" "(values))))" "(let-values(((transformer-set!s_0)" "(reverse$1" -"(let-values(((lst_195)" +"(let-values(((lst_198)" " binding-syms_1)" -"((lst_196)" +"((lst_199)" " gen-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28577,36 +28332,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_195)))" +" lst_198)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_196)))" -"((letrec-values(((for-loop_41)" +" lst_199)))" +"((letrec-values(((for-loop_198)" "(lambda(fold-var_187" -" lst_197" -" lst_198)" +" lst_200" +" lst_201)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_197)" +" lst_200)" "(pair?" -" lst_198)" +" lst_201)" " #f)" "(let-values(((binding-sym_3)" "(unsafe-car" -" lst_197))" -"((rest_103)" +" lst_200))" +"((rest_102)" "(unsafe-cdr" -" lst_197))" +" lst_200))" "((gen-sym_1)" "(unsafe-car" -" lst_198))" -"((rest_104)" +" lst_201))" +"((rest_103)" "(unsafe-cdr" -" lst_198)))" +" lst_201)))" "(let-values(((fold-var_188)" "(let-values(((fold-var_189)" " fold-var_187))" @@ -28625,23 +28380,23 @@ static const char *startup_source = " fold-var_190)))))" "(if(not" " #f)" -"(for-loop_41" +"(for-loop_198" " fold-var_188" -" rest_103" -" rest_104)" +" rest_102" +" rest_103)" " fold-var_188)))" " fold-var_187)))))" -" for-loop_41)" +" for-loop_198)" " null" -" lst_195" -" lst_196))))))" +" lst_198" +" lst_199))))))" "(begin" "(if(compile-context-module-self" -" cctx_11)" +" cctx_3)" "(let-values()" "(add-body!_0" "(add1" -" phase_72)" +" phase_74)" "(list" " 'let-values" "(list" @@ -28656,7 +28411,7 @@ static const char *startup_source = "(let-values()" "(add-body!_0" "(add1" -" phase_72)" +" phase_74)" "(generate-top-level-define-syntaxes" " gen-syms_0" " rhs_2" @@ -28665,11 +28420,11 @@ static const char *startup_source = " ids_6" " binding-syms_1" "(let-values(((the-struct_53)" -" cctx_11))" +" cctx_3))" "(if(compile-context?" " the-struct_53)" "(let-values(((phase47_0)" -" phase_72)" +" phase_74)" "((header48_0)" " header_10))" "(compile-context1.1" @@ -28699,20 +28454,20 @@ static const char *startup_source = "(parsed-begin-for-syntax-body" " body_3)" "(add1" -" phase_72)" +" phase_74)" "(find-or-create-header!_0" "(add1" -" phase_72))))" -"(if(let-values(((or-part_229)" +" phase_74))))" +"(if(let-values(((or-part_223)" "(parsed-#%declare?" " body_3)))" -"(if or-part_229" -" or-part_229" -"(let-values(((or-part_230)" +"(if or-part_223" +" or-part_223" +"(let-values(((or-part_224)" "(parsed-module?" " body_3)))" -"(if or-part_230" -" or-part_230" +"(if or-part_224" +" or-part_224" "(parsed-require?" " body_3)))))" "(let-values()" @@ -28720,11 +28475,11 @@ static const char *startup_source = "(other-form-callback_0" " body_3" "(let-values(((the-struct_54)" -" cctx_11))" +" cctx_3))" "(if(compile-context?" " the-struct_54)" "(let-values(((phase49_0)" -" phase_72)" +" phase_74)" "((header50_0)" " header_10))" "(compile-context1.1" @@ -28750,23 +28505,23 @@ static const char *startup_source = "(compiled-expression-callback_0" " e_34" " #f" -" phase_72" +" phase_74" "(as-required?_0" " header_10))" "(add-body!_0" -" phase_72" +" phase_74" " e_34)))" "(void))))" "(let-values()" -"(let-values(((e_19)" +"(let-values(((e_35)" "(compile$2" " body_3" "(let-values(((the-struct_55)" -" cctx_11))" +" cctx_3))" "(if(compile-context?" " the-struct_55)" "(let-values(((phase51_0)" -" phase_72)" +" phase_74)" "((header52_0)" " header_10))" "(compile-context1.1" @@ -28788,37 +28543,37 @@ static const char *startup_source = " the-struct_55)))" " #f" "(=" -" i_138" +" i_140" " last-i_0))))" "(begin" "(compiled-expression-callback_0" -" e_19" +" e_35" " #f" -" phase_72" +" phase_74" "(as-required?_0" " header_10))" "(add-body!_0" -" phase_72" -" e_19)))))))))" +" phase_74" +" e_35)))))))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_188" -" rest_99" +"(for-loop_193" +" rest_84" "(+" -" pos_91" +" pos_92" " 1))" "(values))))" "(values))))))" -" for-loop_188)" -" lst_187" +" for-loop_193)" +" lst_190" " start_34)))" "(void))))))" " loop!_1)" " bodys_2" -" phase_68" -"(find-or-create-header!_0 phase_68))" +" phase_70" +"(find-or-create-header!_0 phase_70))" "(values))))" "(let-values(((encoded-root-expand-pos_0)" "(if encoded-root-expand-ctx-box_0" @@ -28854,47 +28609,47 @@ static const char *startup_source = "(let-values(((min-phase_0)" "(if(pair? phases-in-order_2)" "(car phases-in-order_2)" -" phase_68)))" +" phase_70)))" "(let-values(((max-phase_0)" "(if(pair? phases-in-order_2)" "(car" "(reverse$1" " phases-in-order_2))" -" phase_68)))" +" phase_70)))" "(let-values(((phase-to-link-info_0)" -"(let-values(((lst_103)" +"(let-values(((lst_106)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_103)))" -"((letrec-values(((for-loop_118)" +"(check-list lst_106)))" +"((letrec-values(((for-loop_199)" "(lambda(table_143" -" lst_150)" +" lst_202)" "(begin" " 'for-loop" "(if(pair?" -" lst_150)" -"(let-values(((phase_49)" +" lst_202)" +"(let-values(((phase_75)" "(unsafe-car" -" lst_150))" -"((rest_75)" +" lst_202))" +"((rest_104)" "(unsafe-cdr" -" lst_150)))" +" lst_202)))" "(let-values(((table_144)" "(let-values(((table_145)" " table_143))" "(let-values(((table_146)" "(let-values()" "(let-values(((key_56" -" val_50)" +" val_49)" "(let-values()" "(let-values(((header_11)" "(hash-ref" " phase-to-header_0" -" phase_49" +" phase_75" " #f)))" "(let-values(((link-module-uses_0" " imports_2" @@ -28902,11 +28657,11 @@ static const char *startup_source = " def-decls_0)" "(generate-links+imports" " header_11" -" phase_49" -" cctx_11" +" phase_75" +" cctx_3" " cross-linklet-inlining?_1)))" "(values" -" phase_49" +" phase_75" "(link-info1.1" " link-module-uses_0" " imports_2" @@ -28915,21 +28670,21 @@ static const char *startup_source = "(hash-set" " table_145" " key_56" -" val_50)))))" +" val_49)))))" "(values" " table_146)))))" "(if(not" " #f)" -"(for-loop_118" +"(for-loop_199" " table_144" -" rest_75)" +" rest_104)" " table_144)))" " table_143)))))" -" for-loop_118)" +" for-loop_199)" " '#hash()" -" lst_103)))))" +" lst_106)))))" "(let-values(((body-linklets+module-use*s_0)" -"(let-values(((lst_199)" +"(let-values(((lst_203)" " phases-in-order_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -28937,41 +28692,41 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_199)))" -"((letrec-values(((for-loop_192)" +" lst_203)))" +"((letrec-values(((for-loop_200)" "(lambda(table_147" -" lst_200)" +" lst_155)" "(begin" " 'for-loop" "(if(pair?" -" lst_200)" -"(let-values(((phase_73)" +" lst_155)" +"(let-values(((phase_76)" "(unsafe-car" -" lst_200))" +" lst_155))" "((rest_105)" "(unsafe-cdr" -" lst_200)))" +" lst_155)))" "(let-values(((table_148)" "(let-values(((table_149)" " table_147))" "(let-values(((table_150)" "(let-values()" "(let-values(((key_57" -" val_51)" +" val_50)" "(let-values()" "(let-values(((bodys_5)" "(hash-ref" " phase-to-body_0" -" phase_73)))" +" phase_76)))" "(let-values(((li_0)" "(hash-ref" " phase-to-link-info_0" -" phase_73)))" +" phase_76)))" "(let-values(((binding-sym-to-define-sym_0)" "(header-binding-sym-to-define-sym" "(hash-ref" " phase-to-header_0" -" phase_73))))" +" phase_76))))" "(let-values(((module-use*s_0)" "(module-uses-add-extra-inspectorsss" "(link-info-link-module-uses" @@ -28982,20 +28737,20 @@ static const char *startup_source = " new-module-use*s_0)" "(let-values()" "((if to-source?_0" -"(lambda(l_56" -" name_46" +"(lambda(l_55" +" name_47" " keys_0" " getter_0)" "(values" -" l_56" +" l_55" " keys_0))" -"(lambda(l_57" -" name_47" +"(lambda(l_56" +" name_48" " keys_1" " getter_1)" "(1/compile-linklet" -" l_57" -" name_47" +" l_56" +" name_48" " keys_1" " getter_1" " serializable?_0)))" @@ -29009,31 +28764,31 @@ static const char *startup_source = "(link-info-def-decls" " li_0)" "(reverse$1" -"(let-values(((lst_201)" +"(let-values(((lst_204)" "(header-binding-syms-in-order" "(hash-ref" " phase-to-header_0" -" phase_73))))" +" phase_76))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_201)))" -"((letrec-values(((for-loop_122)" +" lst_204)))" +"((letrec-values(((for-loop_179)" "(lambda(fold-var_191" -" lst_108)" +" lst_205)" "(begin" " 'for-loop" "(if(pair?" -" lst_108)" +" lst_205)" "(let-values(((binding-sym_4)" "(unsafe-car" -" lst_108))" +" lst_205))" "((rest_106)" "(unsafe-cdr" -" lst_108)))" +" lst_205)))" "(let-values(((fold-var_192)" "(let-values(((fold-var_193)" " fold-var_191))" @@ -29057,14 +28812,14 @@ static const char *startup_source = " fold-var_194)))))" "(if(not" " #f)" -"(for-loop_122" +"(for-loop_179" " fold-var_192" " rest_106)" " fold-var_192)))" " fold-var_191)))))" -" for-loop_122)" +" for-loop_179)" " null" -" lst_201)))))" +" lst_204)))))" "(qq-append" "(reverse$1" " bodys_5)" @@ -29077,11 +28832,11 @@ static const char *startup_source = "(make-module-use-to-linklet" " cross-linklet-inlining?_1" "(compile-context-namespace" -" cctx_11)" +" cctx_3)" " get-module-linklet-info_0" " module-use*s_0)))))" "(values" -" phase_73" +" phase_76" "(cons" " linklet_1" "(list-tail" @@ -29092,129 +28847,20 @@ static const char *startup_source = "(hash-set" " table_149" " key_57" -" val_51)))))" +" val_50)))))" "(values" " table_150)))))" "(if(not" " #f)" -"(for-loop_192" +"(for-loop_200" " table_148" " rest_105)" " table_148)))" " table_147)))))" -" for-loop_192)" +" for-loop_200)" " '#hasheq()" -" lst_199)))))" +" lst_203)))))" "(let-values(((body-linklets_0)" -"(let-values(((ht_109)" -" body-linklets+module-use*s_0))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-in-hash" -" ht_109)))" -"((letrec-values(((for-loop_193)" -"(lambda(table_151" -" i_139)" -"(begin" -" 'for-loop" -"(if i_139" -"(let-values(((phase_74" -" l+mu*s_0)" -"(hash-iterate-key+value" -" ht_109" -" i_139)))" -"(let-values(((table_152)" -"(let-values(((table_153)" -" table_151))" -"(let-values(((table_154)" -"(let-values()" -"(let-values(((key_58" -" val_52)" -"(let-values()" -"(values" -" phase_74" -"(car" -" l+mu*s_0)))))" -"(hash-set" -" table_153" -" key_58" -" val_52)))))" -"(values" -" table_154)))))" -"(if(not" -" #f)" -"(for-loop_193" -" table_152" -"(hash-iterate-next" -" ht_109" -" i_139))" -" table_152)))" -" table_151)))))" -" for-loop_193)" -" '#hasheq()" -"(hash-iterate-first" -" ht_109))))))" -"(let-values(((phase-to-link-module-uses_1)" -"(let-values(((ht_110)" -" body-linklets+module-use*s_0))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-in-hash" -" ht_110)))" -"((letrec-values(((for-loop_194)" -"(lambda(table_155" -" i_140)" -"(begin" -" 'for-loop" -"(if i_140" -"(let-values(((phase_75" -" l+mu*s_1)" -"(hash-iterate-key+value" -" ht_110" -" i_140)))" -"(let-values(((table_156)" -"(let-values(((table_157)" -" table_155))" -"(let-values(((table_158)" -"(let-values()" -"(let-values(((key_59" -" val_53)" -"(let-values()" -"(values" -" phase_75" -"(module-uses-strip-extra-inspectorsss" -"(cdr" -" l+mu*s_1))))))" -"(hash-set" -" table_157" -" key_59" -" val_53)))))" -"(values" -" table_158)))))" -"(if(not" -" #f)" -"(for-loop_194" -" table_156" -"(hash-iterate-next" -" ht_110" -" i_140))" -" table_156)))" -" table_155)))))" -" for-loop_194)" -" '#hasheq()" -"(hash-iterate-first" -" ht_110))))))" -"(let-values(((phase-to-link-module-uses-expr_0)" -"(serialize-phase-to-link-module-uses" -" phase-to-link-module-uses_1" -" mpis_14)))" -"(let-values(((phase-to-link-extra-inspectorsss_0)" "(let-values(((ht_111)" " body-linklets+module-use*s_0))" "(begin" @@ -29224,17 +28870,126 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_111)))" -"((letrec-values(((for-loop_195)" -"(lambda(table_159" +"((letrec-values(((for-loop_180)" +"(lambda(table_151" " i_141)" "(begin" " 'for-loop" "(if i_141" -"(let-values(((phase_76" -" l+mu*s_2)" +"(let-values(((phase_77" +" l+mu*s_0)" "(hash-iterate-key+value" " ht_111" " i_141)))" +"(let-values(((table_152)" +"(let-values(((table_153)" +" table_151))" +"(let-values(((table_154)" +"(let-values()" +"(let-values(((key_58" +" val_51)" +"(let-values()" +"(values" +" phase_77" +"(car" +" l+mu*s_0)))))" +"(hash-set" +" table_153" +" key_58" +" val_51)))))" +"(values" +" table_154)))))" +"(if(not" +" #f)" +"(for-loop_180" +" table_152" +"(hash-iterate-next" +" ht_111" +" i_141))" +" table_152)))" +" table_151)))))" +" for-loop_180)" +" '#hasheq()" +"(hash-iterate-first" +" ht_111))))))" +"(let-values(((phase-to-link-module-uses_1)" +"(let-values(((ht_112)" +" body-linklets+module-use*s_0))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-in-hash" +" ht_112)))" +"((letrec-values(((for-loop_201)" +"(lambda(table_155" +" i_142)" +"(begin" +" 'for-loop" +"(if i_142" +"(let-values(((phase_78" +" l+mu*s_1)" +"(hash-iterate-key+value" +" ht_112" +" i_142)))" +"(let-values(((table_156)" +"(let-values(((table_157)" +" table_155))" +"(let-values(((table_158)" +"(let-values()" +"(let-values(((key_59" +" val_52)" +"(let-values()" +"(values" +" phase_78" +"(module-uses-strip-extra-inspectorsss" +"(cdr" +" l+mu*s_1))))))" +"(hash-set" +" table_157" +" key_59" +" val_52)))))" +"(values" +" table_158)))))" +"(if(not" +" #f)" +"(for-loop_201" +" table_156" +"(hash-iterate-next" +" ht_112" +" i_142))" +" table_156)))" +" table_155)))))" +" for-loop_201)" +" '#hasheq()" +"(hash-iterate-first" +" ht_112))))))" +"(let-values(((phase-to-link-module-uses-expr_0)" +"(serialize-phase-to-link-module-uses" +" phase-to-link-module-uses_1" +" mpis_14)))" +"(let-values(((phase-to-link-extra-inspectorsss_0)" +"(let-values(((ht_113)" +" body-linklets+module-use*s_0))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-in-hash" +" ht_113)))" +"((letrec-values(((for-loop_202)" +"(lambda(table_159" +" i_143)" +"(begin" +" 'for-loop" +"(if i_143" +"(let-values(((phase_79" +" l+mu*s_2)" +"(hash-iterate-key+value" +" ht_113" +" i_143)))" "(let-values(((table_160)" "(let-values(((extra-inspectorsss_2)" "(module-uses-extract-extra-inspectorsss" @@ -29247,7 +29002,7 @@ static const char *startup_source = " body-imports_0))))" "(begin" " #t" -"((letrec-values(((for-loop_196)" +"((letrec-values(((for-loop_203)" "(lambda(table_161)" "(begin" " 'for-loop" @@ -29261,34 +29016,34 @@ static const char *startup_source = "(let-values(((table_165)" "(let-values()" "(let-values(((key_60" -" val_54)" +" val_53)" "(let-values()" "(values" -" phase_76" +" phase_79" " extra-inspectorsss_2))))" "(hash-set" " table_164" " key_60" -" val_54)))))" +" val_53)))))" "(values" " table_165)))" " table_163))))" " table_162))))))" -" for-loop_196)" +" for-loop_203)" " table_159)))))" "(if(not" " #f)" -"(for-loop_195" +"(for-loop_202" " table_160" "(hash-iterate-next" -" ht_111" -" i_141))" +" ht_113" +" i_143))" " table_160)))" " table_159)))))" -" for-loop_195)" +" for-loop_202)" " '#hash()" "(hash-iterate-first" -" ht_111))))))" +" ht_113))))))" "(values" " body-linklets_0" " min-phase_0" @@ -29300,38 +29055,38 @@ static const char *startup_source = " encoded-root-expand-pos_0)))))))))))))))))))))))))))))))))))))))))))))" "(define-values" "(compile-top-level-bind)" -"(lambda(ids_7 binding-syms_2 cctx_12 trans-exprs_0)" +"(lambda(ids_7 binding-syms_2 cctx_11 trans-exprs_0)" "(begin" -"(let-values(((phase_77)(compile-context-phase cctx_12)))" -"(let-values(((self_21)(compile-context-self cctx_12)))" -"(let-values(((header_12)(compile-context-header cctx_12)))" +"(let-values(((phase_80)(compile-context-phase cctx_11)))" +"(let-values(((self_19)(compile-context-self cctx_11)))" +"(let-values(((header_12)(compile-context-header cctx_11)))" "(let-values(((mpis_15)(header-module-path-indexes header_12)))" "(let-values(((top-level-bind-scope_2)" "(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_15 self_21)))" +"(namespace-get-root-expand-ctx(compile-context-namespace cctx_11)))))" +"(let-values(((self-expr_0)(add-module-path-index! mpis_15 self_19)))" "(list*" " 'begin" "(reverse$1" -"(let-values(((lst_202) ids_7)" -"((lst_203) binding-syms_2)" -"((lst_204)" -"(let-values(((or-part_20) trans-exprs_0))" -"(if or-part_20" -" or-part_20" +"(let-values(((lst_206) ids_7)" +"((lst_207) binding-syms_2)" +"((lst_208)" +"(let-values(((or-part_225) trans-exprs_0))" +"(if or-part_225" +" or-part_225" "(reverse$1" -"(let-values(((lst_205) ids_7))" +"(let-values(((lst_209) ids_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_205)))" -"((letrec-values(((for-loop_197)" -"(lambda(fold-var_195 lst_206)" +"(let-values()(check-list lst_209)))" +"((letrec-values(((for-loop_204)" +"(lambda(fold-var_195 lst_210)" "(begin" " 'for-loop" -"(if(pair? lst_206)" -"(let-values(((id_48)(unsafe-car lst_206))" -"((rest_107)(unsafe-cdr lst_206)))" +"(if(pair? lst_210)" +"(let-values(((id_47)(unsafe-car lst_210))" +"((rest_107)(unsafe-cdr lst_210)))" "(let-values(((fold-var_196)" "(let-values(((fold-var_197)" " fold-var_195))" @@ -29343,33 +29098,33 @@ static const char *startup_source = " fold-var_197))))" "(values fold-var_198)))))" "(if(not #f)" -"(for-loop_197 fold-var_196 rest_107)" +"(for-loop_204 fold-var_196 rest_107)" " fold-var_196)))" " fold-var_195)))))" -" for-loop_197)" +" for-loop_204)" " null" -" lst_205))))))))" +" lst_209))))))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_202)))" +"(let-values()(check-list lst_206)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_203)))" +"(let-values()(check-list lst_207)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_204)))" -"((letrec-values(((for-loop_198)" -"(lambda(fold-var_199 lst_2 lst_207 lst_208)" +"(let-values()(check-list lst_208)))" +"((letrec-values(((for-loop_205)" +"(lambda(fold-var_199 lst_211 lst_3 lst_212)" "(begin" " 'for-loop" -"(if(if(pair? lst_2)(if(pair? lst_207)(pair? lst_208) #f) #f)" -"(let-values(((id_49)(unsafe-car lst_2))" -"((rest_108)(unsafe-cdr lst_2))" -"((binding-sym_5)(unsafe-car lst_207))" -"((rest_109)(unsafe-cdr lst_207))" -"((trans-expr_0)(unsafe-car lst_208))" -"((rest_110)(unsafe-cdr lst_208)))" +"(if(if(pair? lst_211)(if(pair? lst_3)(pair? lst_212) #f) #f)" +"(let-values(((id_48)(unsafe-car lst_211))" +"((rest_108)(unsafe-cdr lst_211))" +"((binding-sym_5)(unsafe-car lst_3))" +"((rest_109)(unsafe-cdr lst_3))" +"((trans-expr_0)(unsafe-car lst_212))" +"((rest_110)(unsafe-cdr lst_212)))" "(let-values(((fold-var_200)" "(let-values(((fold-var_201) fold-var_199))" "(let-values(((fold-var_202)" @@ -29379,14 +29134,14 @@ static const char *startup_source = "(let-values(((id-stx_0)" "(compile-quote-syntax" "(remove-scope" -" id_49" +" id_48" " top-level-bind-scope_2)" -" cctx_12)))" +" cctx_11)))" "(list" " top-level-bind!-id" " id-stx_0" " self-expr_0" -" phase_77" +" phase_80" " phase-shift-id" " ns-id" "(list 'quote binding-sym_5)" @@ -29395,14 +29150,14 @@ static const char *startup_source = " fold-var_201))))" "(values fold-var_202)))))" "(if(not #f)" -"(for-loop_198 fold-var_200 rest_108 rest_109 rest_110)" +"(for-loop_205 fold-var_200 rest_108 rest_109 rest_110)" " fold-var_200)))" " fold-var_199)))))" -" for-loop_198)" +" for-loop_205)" " null" -" lst_202" -" lst_203" -" lst_204))))))))))))))" +" lst_206" +" lst_207" +" lst_208))))))))))))))" "(define-values" "(generate-top-level-define-syntaxes)" "(lambda(gen-syms_1 rhs_3 transformer-set!s_1 finish_1)" @@ -29423,36 +29178,36 @@ static const char *startup_source = "(list*" " 'values" "(reverse$1" -"(let-values(((lst_209) gen-syms_1))" +"(let-values(((lst_213) gen-syms_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_209)))" -"((letrec-values(((for-loop_199)" -"(lambda(fold-var_203 lst_210)" +"(let-values()(check-list lst_213)))" +"((letrec-values(((for-loop_206)" +"(lambda(fold-var_203 lst_214)" "(begin" " 'for-loop" -"(if(pair? lst_210)" -"(let-values(((s_235)(unsafe-car lst_210))((rest_111)(unsafe-cdr lst_210)))" +"(if(pair? lst_214)" +"(let-values(((s_303)(unsafe-car lst_214))((rest_111)(unsafe-cdr lst_214)))" "(let-values(((fold-var_204)" "(let-values(((fold-var_205) fold-var_203))" "(let-values(((fold-var_206)" "(let-values()" "(cons(let-values() ''#f) fold-var_205))))" "(values fold-var_206)))))" -"(if(not #f)(for-loop_199 fold-var_204 rest_111) fold-var_204)))" +"(if(not #f)(for-loop_206 fold-var_204 rest_111) fold-var_204)))" " fold-var_203)))))" -" for-loop_199)" +" for-loop_206)" " null" -" lst_209)))))))" +" lst_213)))))))" "(list* 'begin finish_1 '((void)))))" "(list 'args(list* 'let-values(list(list* gen-syms_1 '((apply values args)))) '((void)))))))))" "(define-values" "(propagate-inline-property)" -"(lambda(e_35 orig-s_22)" +"(lambda(e_36 orig-s_22)" "(begin" "(let-values(((v_161)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" -"(if v_161(correlated-property e_35 'compiler-hint:cross-module-inline v_161) e_35)))))" +"(if v_161(correlated-property e_36 'compiler-hint:cross-module-inline v_161) e_36)))))" "(define-values" "(make-module-use-to-linklet)" "(lambda(cross-linklet-inlining?_2 ns_56 get-module-linklet-info_1 init-mu*s_0)" @@ -29473,17 +29228,17 @@ static const char *startup_source = "(hash-set! mu*-intern-table_0(cons mod-name_15(module-use-phase mu*_5)) mu*_5)" " mu*_5)))))))))" "(begin" -"(let-values(((lst_211) init-mu*s_0))" +"(let-values(((lst_140) init-mu*s_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_211)))" -"((letrec-values(((for-loop_200)" -"(lambda(lst_138)" +"(let-values()(check-list lst_140)))" +"((letrec-values(((for-loop_169)" +"(lambda(lst_215)" "(begin" " 'for-loop" -"(if(pair? lst_138)" -"(let-values(((mu*_6)(unsafe-car lst_138))((rest_112)(unsafe-cdr lst_138)))" +"(if(pair? lst_215)" +"(let-values(((mu*_6)(unsafe-car lst_215))((rest_112)(unsafe-cdr lst_215)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -29492,10 +29247,10 @@ static const char *startup_source = "(let-values()(intern-module-use*_0 mu*_6))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_200 rest_112)(values))))" +"(if(not #f)(for-loop_169 rest_112)(values))))" "(values))))))" -" for-loop_200)" -" lst_211)))" +" for-loop_169)" +" lst_140)))" "(void)" "(lambda(mu*-or-instance_0)" "(if(1/instance? mu*-or-instance_0)" @@ -29507,10 +29262,10 @@ static const char *startup_source = "(let-values(((mu*_7) mu*-or-instance_0))" "(let-values(((mod-name_16)(1/module-path-index-resolve(module-use-module mu*_7))))" "(let-values(((mli_0)" -"(let-values(((or-part_231)" +"(let-values(((or-part_226)" "(get-module-linklet-info_1 mod-name_16(module-use-phase mu*_7))))" -"(if or-part_231" -" or-part_231" +"(if or-part_226" +" or-part_226" "(namespace->module-linklet-info" " ns_56" " mod-name_16" @@ -29531,37 +29286,37 @@ static const char *startup_source = "((extra-inspectorsss_3)" "(module-linklet-info-extra-inspectorsss mli_0)))" "(reverse$1" -"(let-values(((lst_212) mus_2)" -"((lst_213)" +"(let-values(((lst_216) mus_2)" +"((lst_217)" "(1/linklet-import-variables" "(module-linklet-info-linklet-or-instance mli_0)))" -"((lst_214)" -"(let-values(((or-part_232) extra-inspectorsss_3))" -"(if or-part_232 or-part_232 mus_2))))" +"((lst_218)" +"(let-values(((or-part_227) extra-inspectorsss_3))" +"(if or-part_227 or-part_227 mus_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_212)))" +"(let-values()(check-list lst_216)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_213)))" +"(let-values()(check-list lst_217)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_214)))" -"((letrec-values(((for-loop_201)" -"(lambda(fold-var_207 lst_215 lst_216 lst_217)" +"(let-values()(check-list lst_218)))" +"((letrec-values(((for-loop_207)" +"(lambda(fold-var_207 lst_219 lst_220 lst_221)" "(begin" " 'for-loop" -"(if(if(pair? lst_215)" -"(if(pair? lst_216)(pair? lst_217) #f)" +"(if(if(pair? lst_219)" +"(if(pair? lst_220)(pair? lst_221) #f)" " #f)" -"(let-values(((sub-mu_0)(unsafe-car lst_215))" -"((rest_113)(unsafe-cdr lst_215))" -"((imports_3)(unsafe-car lst_216))" -"((rest_114)(unsafe-cdr lst_216))" +"(let-values(((sub-mu_0)(unsafe-car lst_219))" +"((rest_113)(unsafe-cdr lst_219))" +"((imports_3)(unsafe-car lst_220))" +"((rest_114)(unsafe-cdr lst_220))" "((extra-inspectorss_13)" -"(unsafe-car lst_217))" -"((rest_115)(unsafe-cdr lst_217)))" +"(unsafe-car lst_221))" +"((rest_115)(unsafe-cdr lst_221)))" "(let-values(((fold-var_208)" "(let-values(((fold-var_209)" " fold-var_207))" @@ -29591,31 +29346,31 @@ static const char *startup_source = " fold-var_209))))" "(values fold-var_210)))))" "(if(not #f)" -"(for-loop_201" +"(for-loop_207" " fold-var_208" " rest_113" " rest_114" " rest_115)" " fold-var_208)))" " fold-var_207)))))" -" for-loop_201)" +" for-loop_207)" " null" -" lst_212" -" lst_213" -" lst_214)))))))" +" lst_216" +" lst_217" +" lst_218)))))))" " #f))" "(values #f #f)))))))" "(let-values()(values #f #f))))))))))))" "(define-values" "(build-shared-data-linklet)" -"(lambda(cims_0 ns_41)" +"(lambda(cims_0 ns_42)" "(begin" "(let-values(((mpis_16)(make-module-path-index-table)))" "(let-values(((mpi-trees_0)" "(map-cim-tree" " cims_0" "(lambda(cim_1)" -"(let-values(((vec_53 i_142)" +"(let-values(((vec_53 i_144)" "(let-values(((vec_54 len_28)" "(let-values(((vec_55)(compiled-in-memory-mpis cim_1)))" "(begin" @@ -29624,20 +29379,20 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_92)" -"(lambda(vec_56 i_143 pos_92)" +"(lambda(vec_56 i_145 pos_93)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_92 len_28)" -"(let-values(((mpi_43)" -"(unsafe-vector-ref vec_54 pos_92)))" -"(let-values(((vec_57 i_144)" +"(if(unsafe-fx< pos_93 len_28)" +"(let-values(((mpi_42)" +"(unsafe-vector-ref vec_54 pos_93)))" +"(let-values(((vec_57 i_146)" "(let-values(((vec_58) vec_56)" -"((i_145) i_143))" -"(let-values(((vec_59 i_146)" +"((i_147) i_145))" +"(let-values(((vec_59 i_148)" "(let-values()" "(let-values(((new-vec_3)" "(if(eq?" -" i_145" +" i_147" "(unsafe-vector*-length" " vec_58))" "(grow-vector" @@ -29646,29 +29401,29 @@ static const char *startup_source = "(begin" "(unsafe-vector*-set!" " new-vec_3" -" i_145" +" i_147" "(let-values()" "(add-module-path-index!/pos" " mpis_16" -" mpi_43)))" +" mpi_42)))" "(values" " new-vec_3" "(unsafe-fx+" -" i_145" +" i_147" " 1)))))))" -"(values vec_59 i_146)))))" +"(values vec_59 i_148)))))" "(if(not #f)" "(for-loop_92" " vec_57" -" i_144" -"(unsafe-fx+ 1 pos_92))" -"(values vec_57 i_144))))" -"(values vec_56 i_143))))))" +" i_146" +"(unsafe-fx+ 1 pos_93))" +"(values vec_57 i_146))))" +"(values vec_56 i_145))))))" " for-loop_92)" "(make-vector 16)" " 0" " 0)))))" -"(shrink-vector vec_53 i_142))))))" +"(shrink-vector vec_53 i_144))))))" "(let-values(((syntax-literals_2)(make-syntax-literals)))" "(let-values(((syntax-literals-trees_0)" "(map-cim-tree" @@ -29681,36 +29436,36 @@ static const char *startup_source = "(map-cim-tree" " cims_0" "(lambda(cim_3)" -"(let-values(((pos_93) module-uses-tables-count_0))" +"(let-values(((pos_94) module-uses-tables-count_0))" "(begin" "(set! module-uses-tables_0" "(cons" "(compiled-in-memory-phase-to-link-module-uses cim_3)" " module-uses-tables_0))" -"(set! module-uses-tables-count_0(add1 pos_93))" -" pos_93))))))" +"(set! module-uses-tables-count_0(add1 pos_94))" +" pos_94))))))" "(let-values(((syntax-literals-expr_0)" -"(generate-eager-syntax-literals! syntax-literals_2 mpis_16 0 #f ns_41)))" +"(generate-eager-syntax-literals! syntax-literals_2 mpis_16 0 #f ns_42)))" "(let-values(((phase-to-link-module-uses-expr_1)" "(list*" " 'vector" "(reverse$1" -"(let-values(((lst_218)(reverse$1 module-uses-tables_0)))" +"(let-values(((lst_222)(reverse$1 module-uses-tables_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_218)))" -"((letrec-values(((for-loop_101)" -"(lambda(fold-var_64 lst_85)" +"(let-values()(check-list lst_222)))" +"((letrec-values(((for-loop_103)" +"(lambda(fold-var_67 lst_87)" "(begin" " 'for-loop" -"(if(pair? lst_85)" +"(if(pair? lst_87)" "(let-values(((phase-to-link-module-uses_2)" -"(unsafe-car lst_85))" -"((rest_116)(unsafe-cdr lst_85)))" +"(unsafe-car lst_87))" +"((rest_116)(unsafe-cdr lst_87)))" "(let-values(((fold-var_29)" -"(let-values(((fold-var_151)" -" fold-var_64))" +"(let-values(((fold-var_152)" +" fold-var_67))" "(let-values(((fold-var_9)" "(let-values()" "(cons" @@ -29718,15 +29473,15 @@ static const char *startup_source = "(serialize-phase-to-link-module-uses" " phase-to-link-module-uses_2" " mpis_16))" -" fold-var_151))))" +" fold-var_152))))" "(values fold-var_9)))))" "(if(not #f)" -"(for-loop_101 fold-var_29 rest_116)" +"(for-loop_103 fold-var_29 rest_116)" " fold-var_29)))" -" fold-var_64)))))" -" for-loop_101)" +" fold-var_67)))))" +" for-loop_103)" " null" -" lst_218)))))))" +" lst_222)))))))" "(1/compile-linklet" "(list" " 'linklet" @@ -29752,49 +29507,49 @@ static const char *startup_source = "(list 'quote syntax-literals-trees_0))))))))))))))))" "(define-values" "(map-cim-tree)" -"(lambda(cims_1 proc_9)" +"(lambda(cims_1 proc_7)" "(begin" -"((letrec-values(((loop_41)" +"((letrec-values(((loop_38)" "(lambda(cims_2)" "(begin" " 'loop" "(reverse$1" -"(let-values(((lst_219) cims_2))" +"(let-values(((lst_79) cims_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_219)))" -"((letrec-values(((for-loop_202)" -"(lambda(fold-var_211 lst_79)" +"(let-values()(check-list lst_79)))" +"((letrec-values(((for-loop_93)" +"(lambda(fold-var_211 lst_80)" "(begin" " 'for-loop" -"(if(pair? lst_79)" -"(let-values(((cim_4)(unsafe-car lst_79))" -"((rest_35)(unsafe-cdr lst_79)))" -"(let-values(((fold-var_154)" +"(if(pair? lst_80)" +"(let-values(((cim_4)(unsafe-car lst_80))" +"((rest_117)(unsafe-cdr lst_80)))" +"(let-values(((fold-var_155)" "(let-values(((fold-var_164) fold-var_211))" "(let-values(((fold-var_165)" "(let-values()" "(cons" "(let-values()" "(vector" -"(proc_9 cim_4)" -"(loop_41" +"(proc_7 cim_4)" +"(loop_38" "(compiled-in-memory-pre-compiled-in-memorys" " cim_4))" -"(loop_41" +"(loop_38" "(compiled-in-memory-post-compiled-in-memorys" " cim_4))))" " fold-var_164))))" "(values fold-var_165)))))" "(if(not #f)" -"(for-loop_202 fold-var_154 rest_35)" -" fold-var_154)))" +"(for-loop_93 fold-var_155 rest_117)" +" fold-var_155)))" " fold-var_211)))))" -" for-loop_202)" +" for-loop_93)" " null" -" lst_219))))))))" -" loop_41)" +" lst_79))))))))" +" loop_38)" " cims_1))))" "(define-values" "(compiled-tops->compiled-top8.1)" @@ -29817,33 +29572,33 @@ static const char *startup_source = "(let-values()(car cims_3))" "(let-values()" "(let-values(((sequence-ht_0)" -"(let-values(((lst_220) cims_3)((start_35) 0))" +"(let-values(((lst_223) cims_3)((start_35) 0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_220)))" +"(let-values()(check-list lst_223)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_35)))" -"((letrec-values(((for-loop_203)" -"(lambda(table_166 lst_95 pos_94)" +"((letrec-values(((for-loop_208)" +"(lambda(table_166 lst_98 pos_95)" "(begin" " 'for-loop" -"(if(if(pair? lst_95) #t #f)" -"(let-values(((cim_5)(unsafe-car lst_95))" -"((rest_34)(unsafe-cdr lst_95))" -"((i_74) pos_94))" +"(if(if(pair? lst_98) #t #f)" +"(let-values(((cim_5)(unsafe-car lst_98))" +"((rest_35)(unsafe-cdr lst_98))" +"((i_75) pos_95))" "(let-values(((table_167)" "(let-values(((table_168) table_166))" "(let-values(((table_169)" "(let-values()" "(let-values(((key_61" -" val_55)" +" val_54)" "(let-values()" "(values" "(string->symbol" "(number->string" -" i_74))" +" i_75))" "((if to-source?_1" " values" " compiled-in-memory-linklet-directory)" @@ -29851,17 +29606,17 @@ static const char *startup_source = "(hash-set" " table_168" " key_61" -" val_55)))))" +" val_54)))))" "(values table_169)))))" "(if(not #f)" -"(for-loop_203 table_167 rest_34(+ pos_94 1))" +"(for-loop_208 table_167 rest_35(+ pos_95 1))" " table_167)))" " table_166)))))" -" for-loop_203)" +" for-loop_208)" " '#hasheq()" -" lst_220" +" lst_223" " start_35)))))" -"(let-values(((ht_112)" +"(let-values(((ht_114)" "(if merge-serialization?_0" "(hash-set" " sequence-ht_0" @@ -29873,10 +29628,10 @@ static const char *startup_source = "(hasheq 0(build-shared-data-linklet cims_3 ns_57))))))" " sequence-ht_0)))" "(if to-source?_1" -"(let-values() ht_112)" +"(let-values() ht_114)" "(let-values()" "(compiled-in-memory1.1" -"(1/hash->linklet-directory ht_112)" +"(1/hash->linklet-directory ht_114)" " #f" " #f" " #f" @@ -29893,35 +29648,35 @@ static const char *startup_source = "(compiled-top->compiled-tops)" "(lambda(ld_0)" "(begin" -"(let-values(((ht_74)(1/linklet-directory->hash ld_0)))" +"(let-values(((ht_115)(1/linklet-directory->hash ld_0)))" "(reverse$1" -"(let-values(((start_36) 0)((end_25)(hash-count ht_74))((inc_19) 1))" +"(let-values(((start_36) 0)((end_25)(hash-count ht_115))((inc_19) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_36 end_25 inc_19)))" -"((letrec-values(((for-loop_27)" -"(lambda(fold-var_17 pos_95)" +"((letrec-values(((for-loop_10)" +"(lambda(fold-var_17 pos_96)" "(begin" " 'for-loop" -"(if(< pos_95 end_25)" -"(let-values(((i_147) pos_95))" +"(if(< pos_96 end_25)" +"(let-values(((i_91) pos_96))" "(let-values(((fold-var_18)" "(let-values(((top_0)" "(hash-ref" -" ht_74" -"(string->symbol(number->string i_147))" +" ht_115" +"(string->symbol(number->string i_91))" " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_204)" -"(lambda(fold-var_68)" +"((letrec-values(((for-loop_209)" +"(lambda(fold-var_64)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_69)" +"(let-values(((fold-var_70)" "(let-values(((fold-var_212)" -" fold-var_68))" +" fold-var_64))" "(if top_0" "(let-values(((fold-var_213)" " fold-var_212))" @@ -29934,19 +29689,19 @@ static const char *startup_source = "(values" " fold-var_214)))" " fold-var_212))))" -" fold-var_69))))))" -" for-loop_204)" +" fold-var_70))))))" +" for-loop_209)" " fold-var_17)))))" -"(if(not #f)(for-loop_27 fold-var_18(+ pos_95 inc_19)) fold-var_18)))" +"(if(not #f)(for-loop_10 fold-var_18(+ pos_96 inc_19)) fold-var_18)))" " fold-var_17)))))" -" for-loop_27)" +" for-loop_10)" " null" " start_36))))))))" "(define-values" "(remove-nontail-purely-functional)" "(lambda(cims_4)" "(begin" -"((letrec-values(((loop_90)" +"((letrec-values(((loop_88)" "(lambda(cims_5)" "(begin" " 'loop" @@ -29957,9 +29712,9 @@ static const char *startup_source = "(if(if(compiled-in-memory?(car cims_5))" "(compiled-in-memory-purely-functional?(car cims_5))" " #f)" -"(let-values()(loop_90(cdr cims_5)))" +"(let-values()(loop_88(cdr cims_5)))" "(let-values()(cons(car cims_5)(cdr cims_5))))))))))" -" loop_90)" +" loop_88)" " cims_4))))" "(define-values" "(struct:known-defined/delay known-defined/delay2.1 known-defined/delay? known-defined/delay-thunk)" @@ -30035,11 +29790,11 @@ static const char *startup_source = "(make-struct-field-accessor -ref_36 1 'field-count))))" "(define-values" "(lookup-defn)" -"(lambda(defns_0 sym_56)" +"(lambda(defns_0 sym_51)" "(begin" -"(let-values(((d_29)(hash-ref defns_0 sym_56 #f)))" +"(let-values(((d_29)(hash-ref defns_0 sym_51 #f)))" "(if(known-defined/delay? d_29)" -"(let-values()(begin((known-defined/delay-thunk d_29))(lookup-defn defns_0 sym_56)))" +"(let-values()(begin((known-defined/delay-thunk d_29))(lookup-defn defns_0 sym_51)))" "(let-values() d_29))))))" "(define-values" "(any-side-effects?9.1)" @@ -30053,18 +29808,20 @@ static const char *startup_source = " expected-results8_0)" "(begin" " 'any-side-effects?9" -"(let-values(((e_36) e7_0))" +"(let-values(((e_37) e7_0))" "(let-values(((expected-results_0) expected-results8_0))" "(let-values(((locals_0)(if known-locals4_0 known-locals1_0 '#hasheq())))" "(let-values(((defns_1)(if known-defns5_0 known-defns2_0 '#hasheq())))" "(let-values(((ready-variable?_0)" -"(if ready-variable?6_0 ready-variable?3_0(lambda(id_2)(begin 'ready-variable? #f)))))" +"(if ready-variable?6_0 ready-variable?3_0(lambda(id_49)(begin 'ready-variable? #f)))))" "(let-values()" "(let-values(((effects?_0)" -"(lambda(e_37 expected-results_1 locals_1)" +"(lambda(e_38 expected-results_1 locals_1)" "(begin" " 'effects?" -"(let-values(((locals14_0) locals_1)" +"(let-values(((e12_0) e_38)" +"((expected-results13_0) expected-results_1)" +"((locals14_0) locals_1)" "((defns15_0) defns_1)" "((ready-variable?16_0) ready-variable?_0))" "(any-side-effects?9.1" @@ -30074,19 +29831,19 @@ static const char *startup_source = " #t" " ready-variable?16_0" " #t" -" e_37" -" expected-results_1))))))" +" e12_0" +" expected-results13_0))))))" "(let-values(((actual-results_0)" -"((letrec-values(((loop_91)" -"(lambda(e_38 locals_2)" +"((letrec-values(((loop_2)" +"(lambda(e_39 locals_2)" "(begin" " 'loop" -"(let-values(((tmp_27)" -"(if(pair?(correlated-e e_38))" -"(correlated-e(car(correlated-e e_38)))" +"(let-values(((tmp_26)" +"(if(pair?(correlated-e e_39))" +"(correlated-e(car(correlated-e e_39)))" " #f)))" "(let-values(((index_1)" -"(if(symbol? tmp_27)" +"(if(symbol? tmp_26)" "(hash-ref" " '#hasheq((#%variable-reference . 1)" "(begin . 5)" @@ -30103,39 +29860,38 @@ static const char *startup_source = "(quote . 1)" "(values . 3)" "(void . 4))" -" tmp_27" +" tmp_26" "(lambda() 0))" " 0)))" "(if(unsafe-fx< index_1 5)" "(if(unsafe-fx< index_1 2)" "(if(unsafe-fx< index_1 1)" "(let-values()" -"(let-values(((v_34)(correlated-e e_38)))" -"(if(let-values(((or-part_172)(string? v_34)))" -"(if or-part_172" -" or-part_172" -"(let-values(((or-part_82)" -"(number? v_34)))" -"(if or-part_82" -" or-part_82" -"(let-values(((or-part_83)" -"(boolean? v_34)))" -"(if or-part_83" -" or-part_83" -"(char? v_34)))))))" +"(let-values(((v_4)(correlated-e e_39)))" +"(if(let-values(((or-part_76)(string? v_4)))" +"(if or-part_76" +" or-part_76" +"(let-values(((or-part_77)(number? v_4)))" +"(if or-part_77" +" or-part_77" +"(let-values(((or-part_29)" +"(boolean? v_4)))" +"(if or-part_29" +" or-part_29" +"(char? v_4)))))))" "(let-values() 1)" "(let-values(((c1_24)" -"(if(pair? v_34)" +"(if(pair? v_4)" "(let-values(((rator_0)" "(correlated-e" -"(car v_34))))" -"(let-values(((or-part_85)" +"(car v_4))))" +"(let-values(((or-part_70)" "(hash-ref" " locals_2" " rator_0" " #f)))" -"(if or-part_85" -" or-part_85" +"(if or-part_70" +" or-part_70" "(lookup-defn" " defns_1" " rator_0))))" @@ -30143,43 +29899,43 @@ static const char *startup_source = "(if c1_24" "((lambda(d_30)" "(let-values(((ok?_17 _17_0 e18_0)" -"(let-values(((s_81) e_38))" +"(let-values(((s_80) e_39))" "(let-values(((orig-s_23)" -" s_81))" +" s_80))" "(let-values(((_17_1" " e18_1)" +"(let-values(((s_304)" +"(if(1/syntax?" +" s_80)" +"(syntax-e$2" +" s_80)" +" s_80)))" +"(if(pair?" +" s_304)" +"(let-values(((_19_0)" +"(let-values(((s_81)" +"(car" +" s_304)))" +" s_81))" +"((e20_0)" +"(let-values(((s_160)" +"(cdr" +" s_304)))" "(let-values(((s_305)" "(if(1/syntax?" -" s_81)" +" s_160)" "(syntax-e$2" -" s_81)" -" s_81)))" -"(if(pair?" -" s_305)" -"(let-values(((_19_0)" -"(let-values(((s_306)" -"(car" -" s_305)))" -" s_306))" -"((e20_0)" -"(let-values(((s_35)" -"(cdr" -" s_305)))" -"(let-values(((s_177)" -"(if(1/syntax?" -" s_35)" -"(syntax-e$2" -" s_35)" -" s_35)))" +" s_160)" +" s_160)))" "(let-values(((flat-s_13)" "(to-syntax-list.1$1" -" s_177)))" +" s_305)))" "(if(not" " flat-s_13)" "(let-values()" "((lambda(false_0" " str_5" -" e_14)" +" e_40)" "(error" " str_5))" " #f" @@ -30192,7 +29948,7 @@ static const char *startup_source = " e20_0))" "((lambda(false_1" " str_6" -" e_39)" +" e_41)" "(error" " str_6))" " #f" @@ -30204,8 +29960,8 @@ static const char *startup_source = " e18_1))))))" "(let-values(((n-args_0)" "(length e18_0)))" -"(if(let-values(((or-part_178)" -"(if(let-values(((or-part_106)" +"(if(let-values(((or-part_228)" +"(if(let-values(((or-part_63)" "(if(known-struct-op?" " d_30)" "(if(eq?" @@ -30218,8 +29974,8 @@ static const char *startup_source = " n-args_0)" " #f)" " #f)))" -"(if or-part_106" -" or-part_106" +"(if or-part_63" +" or-part_63" "(if(known-function?" " d_30)" "(if(known-function-pure?" @@ -30230,7 +29986,7 @@ static const char *startup_source = " n-args_0)" " #f)" " #f)))" -"(let-values(((lst_7)" +"(let-values(((lst_8)" " e18_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -30238,51 +29994,51 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_7)))" -"((letrec-values(((for-loop_0)" -"(lambda(result_73" -" lst_8)" +" lst_8)))" +"((letrec-values(((for-loop_210)" +"(lambda(result_75" +" lst_224)" "(begin" " 'for-loop" "(if(pair?" -" lst_8)" -"(let-values(((e_2)" +" lst_224)" +"(let-values(((e_42)" "(unsafe-car" -" lst_8))" -"((rest_0)" +" lst_224))" +"((rest_118)" "(unsafe-cdr" -" lst_8)))" -"(let-values(((result_74)" +" lst_224)))" +"(let-values(((result_40)" "(let-values()" -"(let-values(((result_75)" +"(let-values(((result_76)" "(let-values()" "(let-values()" "(not" "(effects?_0" -" e_2" +" e_42" " 1" " locals_2))))))" "(values" -" result_75)))))" +" result_76)))))" "(if(if(not" "((lambda x_55" "(not" -" result_74))" -" e_2))" +" result_40))" +" e_42))" "(not" " #f)" " #f)" -"(for-loop_0" -" result_74" -" rest_0)" -" result_74)))" -" result_73)))))" -" for-loop_0)" +"(for-loop_210" +" result_40" +" rest_118)" +" result_40)))" +" result_75)))))" +" for-loop_210)" " #t" -" lst_7)))" +" lst_8)))" " #f)))" -"(if or-part_178" -" or-part_178" +"(if or-part_228" +" or-part_228" "(if(known-function-of-satisfying?" " d_30)" "(if(=" @@ -30290,9 +30046,9 @@ static const char *startup_source = "(length" "(known-function-of-satisfying-arg-predicate-keys" " d_30)))" -"(let-values(((lst_9)" +"(let-values(((lst_10)" " e18_0)" -"((lst_221)" +"((lst_225)" "(known-function-of-satisfying-arg-predicate-keys" " d_30)))" "(begin" @@ -30301,110 +30057,110 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_9)))" +" lst_10)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_221)))" -"((letrec-values(((for-loop_205)" -"(lambda(result_76" -" lst_159" -" lst_22)" +" lst_225)))" +"((letrec-values(((for-loop_95)" +"(lambda(result_77" +" lst_176" +" lst_226)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_159)" +" lst_176)" "(pair?" -" lst_22)" +" lst_226)" " #f)" -"(let-values(((e_40)" +"(let-values(((e_43)" "(unsafe-car" -" lst_159))" -"((rest_7)" +" lst_176))" +"((rest_119)" "(unsafe-cdr" -" lst_159))" +" lst_176))" "((key_62)" "(unsafe-car" -" lst_22))" -"((rest_117)" +" lst_226))" +"((rest_120)" "(unsafe-cdr" -" lst_22)))" -"(let-values(((result_39)" +" lst_226)))" +"(let-values(((result_42)" "(let-values()" -"(let-values(((result_77)" +"(let-values(((result_43)" "(let-values()" "(let-values()" "(if(not" "(effects?_0" -" e_40" +" e_43" " 1" " locals_2))" "(satisfies?" -" e_40" +" e_43" " key_62" " defns_1" " locals_2)" " #f)))))" "(values" -" result_77)))))" +" result_43)))))" "(if(if(not" +"((lambda x_32" +"(not" +" result_42))" +" e_43))" +"(if(not" "((lambda x_56" "(not" -" result_39))" -" e_40))" -"(if(not" -"((lambda x_57" -"(not" -" result_39))" +" result_42))" " key_62))" "(not" " #f)" " #f)" " #f)" -"(for-loop_205" -" result_39" -" rest_7" -" rest_117)" -" result_39)))" -" result_76)))))" -" for-loop_205)" +"(for-loop_95" +" result_42" +" rest_119" +" rest_120)" +" result_42)))" +" result_77)))))" +" for-loop_95)" " #t" -" lst_9" -" lst_221)))" +" lst_10" +" lst_225)))" " #f)" " #f)))" " 1" " #f))))" " c1_24)" "(let-values()" -"(if(let-values(((or-part_233)" +"(if(let-values(((or-part_229)" "(self-quoting-in-linklet?" -" v_34)))" -"(if or-part_233" -" or-part_233" -"(if(symbol? v_34)" -"(let-values(((or-part_234)" +" v_4)))" +"(if or-part_229" +" or-part_229" +"(if(symbol? v_4)" +"(let-values(((or-part_35)" "(hash-ref" " locals_2" -" v_34" +" v_4" " #f)))" -"(if or-part_234" -" or-part_234" -"(let-values(((or-part_235)" +"(if or-part_35" +" or-part_35" +"(let-values(((or-part_36)" "(lookup-defn" " defns_1" -" v_34)))" -"(if or-part_235" -" or-part_235" -"(let-values(((or-part_236)" +" v_4)))" +"(if or-part_36" +" or-part_36" +"(let-values(((or-part_72)" "(built-in-symbol?" -" v_34)))" -"(if or-part_236" -" or-part_236" +" v_4)))" +"(if or-part_72" +" or-part_72" "(ready-variable?_0" -" v_34)))))))" +" v_4)))))))" " #f)))" " 1" " #f)))))))" @@ -30416,58 +30172,58 @@ static const char *startup_source = " ids22_0" " rhs23_0" " body24_0)" -"(let-values(((s_44) e_38))" -"(let-values(((orig-s_24) s_44))" +"(let-values(((s_75) e_39))" +"(let-values(((orig-s_24) s_75))" "(let-values(((_21_1" " ids22_1" " rhs23_1" " body24_1)" -"(let-values(((s_307)" +"(let-values(((s_306)" "(if(1/syntax?" -" s_44)" +" s_75)" "(syntax-e$2" -" s_44)" -" s_44)))" -"(if(pair? s_307)" +" s_75)" +" s_75)))" +"(if(pair? s_306)" "(let-values(((_25_0)" -"(let-values(((s_308)" +"(let-values(((s_28)" "(car" -" s_307)))" -" s_308))" +" s_306)))" +" s_28))" "((ids26_0" " rhs27_0" " body28_0)" -"(let-values(((s_309)" +"(let-values(((s_29)" "(cdr" -" s_307)))" -"(let-values(((s_27)" +" s_306)))" +"(let-values(((s_30)" "(if(1/syntax?" -" s_309)" +" s_29)" "(syntax-e$2" -" s_309)" -" s_309)))" +" s_29)" +" s_29)))" "(if(pair?" -" s_27)" +" s_30)" "(let-values(((ids29_0" " rhs30_0)" -"(let-values(((s_159)" +"(let-values(((s_307)" "(car" -" s_27)))" -"(let-values(((s_150)" +" s_30)))" +"(let-values(((s_308)" "(if(1/syntax?" -" s_159)" +" s_307)" "(syntax-e$2" -" s_159)" -" s_159)))" +" s_307)" +" s_307)))" "(let-values(((flat-s_14)" "(to-syntax-list.1$1" -" s_150)))" +" s_308)))" "(if(not" " flat-s_14)" "(let-values()" "((lambda(false_2" " str_7" -" e_41)" +" e_44)" "(error" " str_7))" " #f" @@ -30476,7 +30232,7 @@ static const char *startup_source = "(let-values()" "(let-values(((ids_8" " rhs_4)" -"(let-values(((lst_166)" +"(let-values(((lst_227)" " flat-s_14))" "(begin" "(if(variable-reference-from-unsafe?" @@ -30484,21 +30240,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_166)))" -"((letrec-values(((for-loop_181)" +" lst_227)))" +"((letrec-values(((for-loop_211)" "(lambda(ids_9" " rhs_5" -" lst_168)" +" lst_228)" "(begin" " 'for-loop" "(if(pair?" -" lst_168)" -"(let-values(((s_46)" +" lst_228)" +"(let-values(((s_309)" "(unsafe-car" -" lst_168))" -"((rest_84)" +" lst_228))" +"((rest_121)" "(unsafe-cdr" -" lst_168)))" +" lst_228)))" "(let-values(((ids_10" " rhs_6)" "(let-values(((ids_11)" @@ -30513,50 +30269,50 @@ static const char *startup_source = "(let-values()" "(let-values(((s_310)" "(if(1/syntax?" -" s_46)" +" s_309)" "(syntax-e$2" -" s_46)" -" s_46)))" +" s_309)" +" s_309)))" "(if(pair?" " s_310)" "(let-values(((ids32_0)" -"(let-values(((s_311)" +"(let-values(((s_50)" "(car" " s_310)))" -" s_311))" +" s_50))" "((rhs33_0)" -"(let-values(((s_312)" +"(let-values(((s_311)" "(cdr" " s_310)))" -"(let-values(((s_313)" +"(let-values(((s_312)" "(if(1/syntax?" -" s_312)" +" s_311)" "(syntax-e$2" -" s_312)" -" s_312)))" +" s_311)" +" s_311)))" "(if(pair?" -" s_313)" +" s_312)" "(let-values(((rhs34_0)" -"(let-values(((s_314)" -"(car" -" s_313)))" -" s_314))" -"(()" -"(let-values(((s_315)" -"(cdr" -" s_313)))" "(let-values(((s_52)" +"(car" +" s_312)))" +" s_52))" +"(()" +"(let-values(((s_313)" +"(cdr" +" s_312)))" +"(let-values(((s_157)" "(if(1/syntax?" -" s_315)" +" s_313)" "(syntax-e$2" -" s_315)" -" s_315)))" +" s_313)" +" s_313)))" "(if(null?" -" s_52)" +" s_157)" "(values)" "((lambda(false_3" " str_8" -" e_42)" +" e_9)" "(error" " str_8))" " #f" @@ -30566,7 +30322,7 @@ static const char *startup_source = " rhs34_0))" "((lambda(false_4" " str_9" -" e_9)" +" e_45)" "(error" " str_9))" " #f" @@ -30577,7 +30333,7 @@ static const char *startup_source = " rhs33_0))" "((lambda(false_5" " str_10" -" e_43)" +" e_46)" "(error" " str_10))" " #f" @@ -30595,58 +30351,58 @@ static const char *startup_source = " rhs_8)))))" "(if(not" " #f)" -"(for-loop_181" +"(for-loop_211" " ids_10" " rhs_6" -" rest_84)" +" rest_121)" "(values" " ids_10" " rhs_6))))" "(values" " ids_9" " rhs_5))))))" -" for-loop_181)" +" for-loop_211)" " null" " null" -" lst_166)))))" +" lst_227)))))" "(values" "(reverse$1" " ids_8)" "(reverse$1" " rhs_4)))))))))" "((body31_0)" -"(let-values(((s_316)" +"(let-values(((s_314)" "(cdr" -" s_27)))" -"(let-values(((s_33)" +" s_30)))" +"(let-values(((s_315)" "(if(1/syntax?" -" s_316)" +" s_314)" "(syntax-e$2" -" s_316)" -" s_316)))" +" s_314)" +" s_314)))" "(if(pair?" -" s_33)" +" s_315)" "(let-values(((body35_0)" -"(let-values(((s_317)" +"(let-values(((s_316)" "(car" -" s_33)))" -" s_317))" +" s_315)))" +" s_316))" "(()" -"(let-values(((s_318)" +"(let-values(((s_317)" "(cdr" -" s_33)))" -"(let-values(((s_319)" +" s_315)))" +"(let-values(((s_318)" "(if(1/syntax?" -" s_318)" +" s_317)" "(syntax-e$2" -" s_318)" -" s_318)))" +" s_317)" +" s_317)))" "(if(null?" -" s_319)" +" s_318)" "(values)" "((lambda(false_6" " str_11" -" e_44)" +" e_47)" "(error" " str_11))" " #f" @@ -30656,7 +30412,7 @@ static const char *startup_source = " body35_0))" "((lambda(false_7" " str_12" -" e_45)" +" e_48)" "(error" " str_12))" " #f" @@ -30668,7 +30424,7 @@ static const char *startup_source = " body31_0))" "((lambda(false_8" " str_13" -" e_46)" +" e_49)" "(error" " str_13))" " #f" @@ -30681,7 +30437,7 @@ static const char *startup_source = " body28_0))" "((lambda(false_9" " str_14" -" e_47)" +" e_50)" "(error" " str_14))" " #f" @@ -30694,43 +30450,43 @@ static const char *startup_source = " rhs23_1" " body24_1))))))" "(if(not" -"(let-values(((lst_222) ids22_0)" -"((lst_223) rhs23_0))" +"(let-values(((lst_229) ids22_0)" +"((lst_230) rhs23_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_222)))" +"(let-values()(check-list lst_229)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_223)))" -"((letrec-values(((for-loop_206)" +"(let-values()(check-list lst_230)))" +"((letrec-values(((for-loop_212)" "(lambda(result_78" -" lst_224" -" lst_225)" +" lst_231" +" lst_197)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_224)" +" lst_231)" "(pair?" -" lst_225)" +" lst_197)" " #f)" "(let-values(((ids_13)" "(unsafe-car" -" lst_224))" -"((rest_118)" +" lst_231))" +"((rest_101)" "(unsafe-cdr" -" lst_224))" +" lst_231))" "((rhs_9)" "(unsafe-car" -" lst_225))" -"((rest_119)" +" lst_197))" +"((rest_122)" "(unsafe-cdr" -" lst_225)))" +" lst_197)))" "(let-values(((result_79)" "(let-values()" -"(let-values(((result_80)" +"(let-values(((result_14)" "(let-values()" "(let-values()" "(effects?_0" @@ -30739,71 +30495,70 @@ static const char *startup_source = " ids_13)" " locals_2)))))" "(values" -" result_80)))))" +" result_14)))))" "(if(if(not" -"((lambda x_58" +"((lambda x_57" " result_79)" " ids_13))" "(if(not" -"((lambda x_59" +"((lambda x_58" " result_79)" " rhs_9))" "(not" " #f)" " #f)" " #f)" -"(for-loop_206" +"(for-loop_212" " result_79" -" rest_118" -" rest_119)" +" rest_101" +" rest_122)" " result_79)))" " result_78)))))" -" for-loop_206)" +" for-loop_212)" " #f" -" lst_222" -" lst_223))))" -"(loop_91" +" lst_229" +" lst_230))))" +"(loop_2" " body24_0" "(add-binding-info locals_2 ids22_0 rhs23_0))" " #f)))" "(if(unsafe-fx< index_1 4)" "(let-values()" "(let-values(((ok?_19 _38_0 e39_0)" -"(let-values(((s_320) e_38))" -"(let-values(((orig-s_25) s_320))" +"(let-values(((s_61) e_39))" +"(let-values(((orig-s_25) s_61))" "(let-values(((_38_1 e39_1)" -"(let-values(((s_321)" +"(let-values(((s_62)" "(if(1/syntax?" -" s_320)" +" s_61)" "(syntax-e$2" -" s_320)" -" s_320)))" -"(if(pair?" -" s_321)" +" s_61)" +" s_61)))" +"(if(pair? s_62)" "(let-values(((_40_0)" -"(let-values(((s_64)" +"(let-values(((s_85)" "(car" -" s_321)))" -" s_64))" +" s_62)))" +" s_85))" "((e41_0)" -"(let-values(((s_322)" +"(let-values(((s_319)" "(cdr" -" s_321)))" -"(let-values(((s_38)" +" s_62)))" +"(let-values(((s_320)" "(if(1/syntax?" -" s_322)" +" s_319)" "(syntax-e$2" -" s_322)" -" s_322)))" +" s_319)" +" s_319)))" "(let-values(((flat-s_15)" "(to-syntax-list.1$1" -" s_38)))" +" s_320)))" "(if(not" " flat-s_15)" "(let-values()" "((lambda(false_10" " str_15" -" e_48)" +" e_51)" "(error" " str_15))" " #f" @@ -30816,98 +30571,99 @@ static const char *startup_source = " e41_0))" "((lambda(false_11" " str_16" -" e_49)" +" e_52)" "(error" " str_16))" " #f" " \"bad syntax\"" " orig-s_25)))))" "(values #t _38_1 e39_1))))))" -"(if(let-values(((lst_226) e39_0))" +"(if(let-values(((lst_232) e39_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_226)))" -"((letrec-values(((for-loop_207)" -"(lambda(result_81" -" lst_227)" +"(let-values()(check-list lst_232)))" +"((letrec-values(((for-loop_213)" +"(lambda(result_80" +" lst_233)" "(begin" " 'for-loop" "(if(pair?" -" lst_227)" -"(let-values(((e_50)" +" lst_233)" +"(let-values(((e_53)" "(unsafe-car" -" lst_227))" -"((rest_120)" +" lst_233))" +"((rest_123)" "(unsafe-cdr" -" lst_227)))" -"(let-values(((result_82)" +" lst_233)))" +"(let-values(((result_81)" "(let-values()" -"(let-values(((result_83)" +"(let-values(((result_82)" "(let-values()" "(let-values()" "(not" "(effects?_0" -" e_50" +" e_53" " 1" " locals_2))))))" "(values" -" result_83)))))" +" result_82)))))" "(if(if(not" -"((lambda x_60" +"((lambda x_59" "(not" -" result_82))" -" e_50))" +" result_81))" +" e_53))" "(not" " #f)" " #f)" -"(for-loop_207" -" result_82" -" rest_120)" -" result_82)))" -" result_81)))))" -" for-loop_207)" +"(for-loop_213" +" result_81" +" rest_123)" +" result_81)))" +" result_80)))))" +" for-loop_213)" " #t" -" lst_226)))" +" lst_232)))" "(length e39_0)" " #f)))" "(let-values()" "(let-values(((ok?_20 _42_0 e43_0)" -"(let-values(((s_39) e_38))" -"(let-values(((orig-s_26) s_39))" +"(let-values(((s_205) e_39))" +"(let-values(((orig-s_26) s_205))" "(let-values(((_42_1 e43_1)" -"(let-values(((s_92)" +"(let-values(((s_321)" "(if(1/syntax?" -" s_39)" +" s_205)" "(syntax-e$2" -" s_39)" -" s_39)))" -"(if(pair? s_92)" +" s_205)" +" s_205)))" +"(if(pair?" +" s_321)" "(let-values(((_44_0)" -"(let-values(((s_323)" +"(let-values(((s_93)" "(car" -" s_92)))" -" s_323))" +" s_321)))" +" s_93))" "((e45_0)" -"(let-values(((s_94)" +"(let-values(((s_322)" "(cdr" -" s_92)))" -"(let-values(((s_324)" +" s_321)))" +"(let-values(((s_323)" "(if(1/syntax?" -" s_94)" +" s_322)" "(syntax-e$2" -" s_94)" -" s_94)))" +" s_322)" +" s_322)))" "(let-values(((flat-s_16)" "(to-syntax-list.1$1" -" s_324)))" +" s_323)))" "(if(not" " flat-s_16)" "(let-values()" "((lambda(false_12" " str_17" -" e_51)" +" e_54)" "(error" " str_17))" " #f" @@ -30920,99 +30676,99 @@ static const char *startup_source = " e45_0))" "((lambda(false_13" " str_18" -" e_52)" +" e_55)" "(error" " str_18))" " #f" " \"bad syntax\"" " orig-s_26)))))" "(values #t _42_1 e43_1))))))" -"(if(let-values(((lst_228) e43_0))" +"(if(let-values(((lst_41) e43_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_228)))" -"((letrec-values(((for-loop_208)" -"(lambda(result_84" -" lst_40)" +"(let-values()(check-list lst_41)))" +"((letrec-values(((for-loop_53)" +"(lambda(result_83" +" lst_42)" "(begin" " 'for-loop" -"(if(pair? lst_40)" -"(let-values(((e_53)" +"(if(pair? lst_42)" +"(let-values(((e_56)" "(unsafe-car" -" lst_40))" -"((rest_121)" +" lst_42))" +"((rest_17)" "(unsafe-cdr" -" lst_40)))" -"(let-values(((result_85)" +" lst_42)))" +"(let-values(((result_84)" "(let-values()" -"(let-values(((result_86)" +"(let-values(((result_85)" "(let-values()" "(let-values()" "(not" "(effects?_0" -" e_53" +" e_56" " 1" " locals_2))))))" "(values" -" result_86)))))" +" result_85)))))" "(if(if(not" -"((lambda x_61" +"((lambda x_60" "(not" -" result_85))" -" e_53))" +" result_84))" +" e_56))" "(not" " #f)" " #f)" -"(for-loop_208" -" result_85" -" rest_121)" -" result_85)))" -" result_84)))))" -" for-loop_208)" +"(for-loop_53" +" result_84" +" rest_17)" +" result_84)))" +" result_83)))))" +" for-loop_53)" " #t" -" lst_228)))" +" lst_41)))" " 1" " #f))))))" "(if(unsafe-fx< index_1 8)" "(if(unsafe-fx< index_1 6)" "(let-values()" "(let-values(((ok?_21 _46_0 e47_0)" -"(let-values(((s_325) e_38))" -"(let-values(((orig-s_27) s_325))" +"(let-values(((s_324) e_39))" +"(let-values(((orig-s_27) s_324))" "(let-values(((_46_1 e47_1)" -"(let-values(((s_326)" +"(let-values(((s_325)" "(if(1/syntax?" -" s_325)" +" s_324)" "(syntax-e$2" -" s_325)" -" s_325)))" -"(if(pair? s_326)" +" s_324)" +" s_324)))" +"(if(pair? s_325)" "(let-values(((_48_0)" -"(let-values(((s_327)" +"(let-values(((s_103)" "(car" -" s_326)))" -" s_327))" +" s_325)))" +" s_103))" "((e49_0)" -"(let-values(((s_328)" +"(let-values(((s_104)" "(cdr" -" s_326)))" -"(let-values(((s_155)" +" s_325)))" +"(let-values(((s_105)" "(if(1/syntax?" -" s_328)" +" s_104)" "(syntax-e$2" -" s_328)" -" s_328)))" +" s_104)" +" s_104)))" "(let-values(((flat-s_17)" "(to-syntax-list.1$1" -" s_155)))" +" s_105)))" "(if(not" " flat-s_17)" "(let-values()" "((lambda(false_14" " str_19" -" e_54)" +" e_57)" "(error" " str_19))" " #f" @@ -31025,7 +30781,7 @@ static const char *startup_source = " e49_0))" "((lambda(false_15" " str_20" -" e_55)" +" e_58)" "(error" " str_20))" " #f" @@ -31040,7 +30796,7 @@ static const char *startup_source = "(let-values() #f)" "(if(null?(cdr es_1))" "(let-values()" -"(loop_91" +"(loop_2" "(car es_1)" " locals_2))" "(let-values()" @@ -31055,149 +30811,149 @@ static const char *startup_source = " e47_0)))" "(if(unsafe-fx< index_1 7)" "(let-values()" -"(let-values(((ok?_22 _50_0 e051_0 e52_0)" -"(let-values(((s_115) e_38))" -"(let-values(((orig-s_28) s_115))" +"(let-values(((ok?_7 _50_0 e051_0 e52_0)" +"(let-values(((s_213) e_39))" +"(let-values(((orig-s_9) s_213))" "(let-values(((_50_1" " e051_1" " e52_1)" -"(let-values(((s_329)" +"(let-values(((s_214)" "(if(1/syntax?" -" s_115)" +" s_213)" "(syntax-e$2" -" s_115)" -" s_115)))" +" s_213)" +" s_213)))" "(if(pair?" -" s_329)" +" s_214)" "(let-values(((_53_0)" -"(let-values(((s_117)" +"(let-values(((s_215)" "(car" -" s_329)))" -" s_117))" +" s_214)))" +" s_215))" "((e054_0" " e55_0)" -"(let-values(((s_330)" +"(let-values(((s_216)" "(cdr" -" s_329)))" -"(let-values(((s_331)" +" s_214)))" +"(let-values(((s_217)" "(if(1/syntax?" -" s_330)" +" s_216)" "(syntax-e$2" -" s_330)" -" s_330)))" +" s_216)" +" s_216)))" "(if(pair?" -" s_331)" +" s_217)" "(let-values(((e056_0)" -"(let-values(((s_219)" +"(let-values(((s_218)" "(car" -" s_331)))" -" s_219))" +" s_217)))" +" s_218))" "((e57_0)" -"(let-values(((s_332)" +"(let-values(((s_219)" "(cdr" -" s_331)))" -"(let-values(((s_118)" +" s_217)))" +"(let-values(((s_220)" "(if(1/syntax?" -" s_332)" +" s_219)" "(syntax-e$2" -" s_332)" -" s_332)))" -"(let-values(((flat-s_18)" +" s_219)" +" s_219)))" +"(let-values(((flat-s_5)" "(to-syntax-list.1$1" -" s_118)))" +" s_220)))" "(if(not" -" flat-s_18)" +" flat-s_5)" "(let-values()" "((lambda(false_16" " str_21" -" e_56)" +" e_59)" "(error" " str_21))" " #f" " \"bad syntax\"" -" orig-s_28))" +" orig-s_9))" "(let-values()" -" flat-s_18)))))))" +" flat-s_5)))))))" "(values" " e056_0" " e57_0))" "((lambda(false_17" " str_22" -" e_57)" +" e_60)" "(error" " str_22))" " #f" " \"bad syntax\"" -" orig-s_28))))))" +" orig-s_9))))))" "(values" " _53_0" " e054_0" " e55_0))" "((lambda(false_18" " str_23" -" e_58)" +" e_61)" "(error" " str_23))" " #f" " \"bad syntax\"" -" orig-s_28)))))" +" orig-s_9)))))" "(values" " #t" " _50_1" " e051_1" " e52_1))))))" -"(if(let-values(((lst_229) e52_0))" +"(if(let-values(((lst_234) e52_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_229)))" -"((letrec-values(((for-loop_209)" -"(lambda(result_87" -" lst_230)" +"(let-values()(check-list lst_234)))" +"((letrec-values(((for-loop_214)" +"(lambda(result_86" +" lst_235)" "(begin" " 'for-loop" "(if(pair?" -" lst_230)" -"(let-values(((e_59)" +" lst_235)" +"(let-values(((e_62)" "(unsafe-car" -" lst_230))" -"((rest_122)" +" lst_235))" +"((rest_124)" "(unsafe-cdr" -" lst_230)))" -"(let-values(((result_88)" +" lst_235)))" +"(let-values(((result_87)" "(let-values()" -"(let-values(((result_89)" +"(let-values(((result_88)" "(let-values()" "(let-values()" "(not" "(effects?_0" -" e_59" +" e_62" " #f" " locals_2))))))" "(values" -" result_89)))))" +" result_88)))))" "(if(if(not" -"((lambda x_62" +"((lambda x_61" "(not" -" result_88))" -" e_59))" +" result_87))" +" e_62))" "(not" " #f)" " #f)" -"(for-loop_209" -" result_88" -" rest_122)" -" result_88)))" -" result_87)))))" -" for-loop_209)" +"(for-loop_214" +" result_87" +" rest_124)" +" result_87)))" +" result_86)))))" +" for-loop_214)" " #t" -" lst_229)))" -"(loop_91 e051_0 locals_2)" +" lst_234)))" +"(loop_2 e051_0 locals_2)" " #f)))" "(let-values()" "(if(ok-make-struct-type?" -" e_38" +" e_39" " ready-variable?_0" " defns_1)" " 5" @@ -31205,7 +30961,7 @@ static const char *startup_source = "(if(unsafe-fx< index_1 9)" "(let-values()" "(if(ok-make-struct-field-accessor/mutator?" -" e_38" +" e_39" " locals_2" " 'general-accessor" " defns_1)" @@ -31214,7 +30970,7 @@ static const char *startup_source = "(if(unsafe-fx< index_1 10)" "(let-values()" "(if(ok-make-struct-field-accessor/mutator?" -" e_38" +" e_39" " locals_2" " 'general-mutator" " defns_1)" @@ -31222,144 +30978,144 @@ static const char *startup_source = " #f))" "(if(unsafe-fx< index_1 11)" "(let-values()" -"(if(ok-make-struct-type-property? e_38 defns_1)" +"(if(ok-make-struct-type-property? e_39 defns_1)" " 3" " #f))" "(let-values()" -"(let-values(((ok?_23" +"(let-values(((ok?_22" " _58_0" " id:rator59_0" " id:arg60_0" " thn61_0" " els62_0)" -"(let-values(((s_333) e_38))" -"(if(let-values(((s_334)" +"(let-values(((s_326) e_39))" +"(if(let-values(((s_228)" "(if(1/syntax?" -" s_333)" +" s_326)" "(syntax-e$2" -" s_333)" -" s_333)))" -"(if(pair? s_334)" +" s_326)" +" s_326)))" +"(if(pair? s_228)" "(if(let-values(((s_229)" "(car" -" s_334)))" +" s_228)))" " #t)" -"(let-values(((s_335)" +"(let-values(((s_327)" "(cdr" -" s_334)))" +" s_228)))" "(let-values(((s_230)" "(if(1/syntax?" -" s_335)" +" s_327)" "(syntax-e$2" -" s_335)" -" s_335)))" +" s_327)" +" s_327)))" "(if(pair? s_230)" "(if(let-values(((s_231)" "(car" " s_230)))" -"(let-values(((s_336)" +"(let-values(((s_232)" "(if(1/syntax?" " s_231)" "(syntax-e$2" " s_231)" " s_231)))" "(if(pair?" -" s_336)" -"(if(let-values(((s_232)" -"(car" -" s_336)))" -"(let-values(((or-part_237)" -"(if(1/syntax?" " s_232)" -"(symbol?" -"(syntax-e$2" -" s_232))" -" #f)))" -"(if or-part_237" -" or-part_237" -"(symbol?" -" s_232))))" -"(let-values(((s_234)" -"(cdr" -" s_336)))" -"(let-values(((s_337)" -"(if(1/syntax?" -" s_234)" -"(syntax-e$2" -" s_234)" -" s_234)))" -"(if(pair?" -" s_337)" -"(if(let-values(((s_338)" +"(if(let-values(((s_328)" "(car" -" s_337)))" -"(let-values(((or-part_238)" +" s_232)))" +"(let-values(((or-part_230)" "(if(1/syntax?" -" s_338)" +" s_328)" "(symbol?" "(syntax-e$2" -" s_338))" +" s_328))" " #f)))" -"(if or-part_238" -" or-part_238" +"(if or-part_230" +" or-part_230" "(symbol?" -" s_338))))" -"(let-values(((s_339)" +" s_328))))" +"(let-values(((s_329)" "(cdr" -" s_337)))" -"(let-values(((s_340)" +" s_232)))" +"(let-values(((s_330)" "(if(1/syntax?" -" s_339)" +" s_329)" "(syntax-e$2" -" s_339)" -" s_339)))" +" s_329)" +" s_329)))" +"(if(pair?" +" s_330)" +"(if(let-values(((s_331)" +"(car" +" s_330)))" +"(let-values(((or-part_231)" +"(if(1/syntax?" +" s_331)" +"(symbol?" +"(syntax-e$2" +" s_331))" +" #f)))" +"(if or-part_231" +" or-part_231" +"(symbol?" +" s_331))))" +"(let-values(((s_332)" +"(cdr" +" s_330)))" +"(let-values(((s_333)" +"(if(1/syntax?" +" s_332)" +"(syntax-e$2" +" s_332)" +" s_332)))" "(null?" -" s_340)))" +" s_333)))" " #f)" " #f)))" " #f)" " #f)))" -"(let-values(((s_341)" +"(let-values(((s_334)" "(cdr" " s_230)))" -"(let-values(((s_342)" +"(let-values(((s_335)" "(if(1/syntax?" -" s_341)" +" s_334)" "(syntax-e$2" -" s_341)" -" s_341)))" +" s_334)" +" s_334)))" "(if(pair?" -" s_342)" -"(if(let-values(((s_343)" +" s_335)" +"(if(let-values(((s_336)" "(car" -" s_342)))" +" s_335)))" " #t)" -"(let-values(((s_344)" +"(let-values(((s_337)" "(cdr" -" s_342)))" -"(let-values(((s_345)" +" s_335)))" +"(let-values(((s_338)" "(if(1/syntax?" -" s_344)" +" s_337)" "(syntax-e$2" -" s_344)" -" s_344)))" +" s_337)" +" s_337)))" "(if(pair?" -" s_345)" -"(if(let-values(((s_346)" +" s_338)" +"(if(let-values(((s_339)" "(car" -" s_345)))" +" s_338)))" " #t)" -"(let-values(((s_347)" +"(let-values(((s_340)" "(cdr" -" s_345)))" -"(let-values(((s_348)" +" s_338)))" +"(let-values(((s_341)" "(if(1/syntax?" -" s_347)" +" s_340)" "(syntax-e$2" -" s_347)" -" s_347)))" +" s_340)" +" s_340)))" "(null?" -" s_348)))" +" s_341)))" " #f)" " #f)))" " #f)" @@ -31374,71 +31130,71 @@ static const char *startup_source = " id:arg60_1" " thn61_1" " els62_1)" -"(let-values(((s_349)" +"(let-values(((s_234)" "(if(1/syntax?" -" s_333)" +" s_326)" "(syntax-e$2" -" s_333)" -" s_333)))" +" s_326)" +" s_326)))" "(let-values(((_63_0)" -"(let-values(((s_350)" +"(let-values(((s_237)" "(car" -" s_349)))" -" s_350))" +" s_234)))" +" s_237))" "((id:rator64_0" " id:arg65_0" " thn66_0" " els67_0)" -"(let-values(((s_237)" +"(let-values(((s_342)" "(cdr" -" s_349)))" -"(let-values(((s_238)" +" s_234)))" +"(let-values(((s_343)" "(if(1/syntax?" -" s_237)" +" s_342)" "(syntax-e$2" -" s_237)" -" s_237)))" +" s_342)" +" s_342)))" "(let-values(((id:rator68_0" " id:arg69_0)" -"(let-values(((s_241)" +"(let-values(((s_344)" "(car" -" s_238)))" -"(let-values(((s_242)" +" s_343)))" +"(let-values(((s_345)" +"(if(1/syntax?" +" s_344)" +"(syntax-e$2" +" s_344)" +" s_344)))" +"(let-values(((id:rator72_0)" +"(let-values(((s_346)" +"(car" +" s_345)))" +" s_346))" +"((id:arg73_0)" +"(let-values(((s_241)" +"(cdr" +" s_345)))" +"(let-values(((s_347)" "(if(1/syntax?" " s_241)" "(syntax-e$2" " s_241)" " s_241)))" -"(let-values(((id:rator72_0)" -"(let-values(((s_351)" -"(car" -" s_242)))" -" s_351))" -"((id:arg73_0)" -"(let-values(((s_352)" -"(cdr" -" s_242)))" -"(let-values(((s_353)" -"(if(1/syntax?" -" s_352)" -"(syntax-e$2" -" s_352)" -" s_352)))" "(let-values(((id:arg74_0)" -"(let-values(((s_243)" +"(let-values(((s_348)" "(car" -" s_353)))" -" s_243))" +" s_347)))" +" s_348))" "(()" -"(let-values(((s_354)" +"(let-values(((s_349)" "(cdr" -" s_353)))" -"(let-values(((s_355)" +" s_347)))" +"(let-values(((s_350)" "(if(1/syntax?" -" s_354)" +" s_349)" "(syntax-e$2" -" s_354)" -" s_354)))" +" s_349)" +" s_349)))" "(values)))))" "(values" " id:arg74_0))))))" @@ -31447,45 +31203,45 @@ static const char *startup_source = " id:arg73_0)))))" "((thn70_0" " els71_0)" -"(let-values(((s_356)" +"(let-values(((s_351)" "(cdr" -" s_238)))" -"(let-values(((s_357)" +" s_343)))" +"(let-values(((s_352)" "(if(1/syntax?" -" s_356)" +" s_351)" "(syntax-e$2" -" s_356)" -" s_356)))" +" s_351)" +" s_351)))" "(let-values(((thn75_0)" -"(let-values(((s_358)" +"(let-values(((s_353)" "(car" -" s_357)))" -" s_358))" +" s_352)))" +" s_353))" "((els76_0)" -"(let-values(((s_359)" +"(let-values(((s_354)" "(cdr" -" s_357)))" -"(let-values(((s_360)" +" s_352)))" +"(let-values(((s_355)" "(if(1/syntax?" -" s_359)" +" s_354)" "(syntax-e$2" -" s_359)" -" s_359)))" +" s_354)" +" s_354)))" "(let-values(((els77_0)" -"(let-values(((s_361)" +"(let-values(((s_356)" "(car" -" s_360)))" -" s_361))" +" s_355)))" +" s_356))" "(()" -"(let-values(((s_362)" +"(let-values(((s_357)" "(cdr" -" s_360)))" -"(let-values(((s_363)" +" s_355)))" +"(let-values(((s_358)" "(if(1/syntax?" -" s_362)" +" s_357)" "(syntax-e$2" -" s_362)" -" s_362)))" +" s_357)" +" s_357)))" "(values)))))" "(values" " els77_0))))))" @@ -31511,22 +31267,22 @@ static const char *startup_source = " thn61_1" " els62_1)))" "(values #f #f #f #f #f #f)))))" -"(if ok?_23" +"(if ok?_22" "(let-values()" "(let-values(((c2_2)" -"(let-values(((or-part_239)" +"(let-values(((or-part_232)" "(hash-ref" " locals_2" " id:rator59_0" " #f)))" -"(if or-part_239" -" or-part_239" +"(if or-part_232" +" or-part_232" "(lookup-defn" " defns_1" " id:rator59_0)))))" "(if c2_2" -"((lambda(d_31)" -"(if(known-predicate? d_31)" +"((lambda(d_23)" +"(if(known-predicate? d_23)" "(if(not" "(effects?_0" " thn61_0" @@ -31536,26 +31292,56 @@ static const char *startup_source = " id:arg60_0" "(known-satisfies7.1" "(known-predicate-key" -" d_31)))))" -"(loop_91 els62_0 locals_2)" +" d_23)))))" +"(loop_2 els62_0 locals_2)" " #f)" " #f))" " c2_2)" "(let-values() #f))))" "(let-values()" -"(let-values(((ok?_24" +"(let-values(((ok?_23" " _78_0" " tst79_0" " thn80_0" " els81_0)" -"(let-values(((s_364) e_38))" -"(if(let-values(((s_365)" +"(let-values(((s_359) e_39))" +"(if(let-values(((s_360)" +"(if(1/syntax?" +" s_359)" +"(syntax-e$2" +" s_359)" +" s_359)))" +"(if(pair? s_360)" +"(if(let-values(((s_253)" +"(car" +" s_360)))" +" #t)" +"(let-values(((s_361)" +"(cdr" +" s_360)))" +"(let-values(((s_362)" +"(if(1/syntax?" +" s_361)" +"(syntax-e$2" +" s_361)" +" s_361)))" +"(if(pair?" +" s_362)" +"(if(let-values(((s_363)" +"(car" +" s_362)))" +" #t)" +"(let-values(((s_364)" +"(cdr" +" s_362)))" +"(let-values(((s_365)" "(if(1/syntax?" " s_364)" "(syntax-e$2" " s_364)" " s_364)))" -"(if(pair? s_365)" +"(if(pair?" +" s_365)" "(if(let-values(((s_366)" "(car" " s_365)))" @@ -31571,51 +31357,21 @@ static const char *startup_source = " s_367)))" "(if(pair?" " s_368)" -"(if(let-values(((s_255)" +"(if(let-values(((s_369)" "(car" " s_368)))" " #t)" -"(let-values(((s_369)" -"(cdr" -" s_368)))" "(let-values(((s_370)" +"(cdr" +" s_368)))" +"(let-values(((s_371)" "(if(1/syntax?" -" s_369)" -"(syntax-e$2" -" s_369)" -" s_369)))" -"(if(pair?" " s_370)" -"(if(let-values(((s_371)" -"(car" -" s_370)))" -" #t)" -"(let-values(((s_372)" -"(cdr" -" s_370)))" -"(let-values(((s_373)" -"(if(1/syntax?" -" s_372)" "(syntax-e$2" -" s_372)" -" s_372)))" -"(if(pair?" -" s_373)" -"(if(let-values(((s_374)" -"(car" -" s_373)))" -" #t)" -"(let-values(((s_375)" -"(cdr" -" s_373)))" -"(let-values(((s_376)" -"(if(1/syntax?" -" s_375)" -"(syntax-e$2" -" s_375)" -" s_375)))" +" s_370)" +" s_370)))" "(null?" -" s_376)))" +" s_371)))" " #f)" " #f)))" " #f)" @@ -31629,75 +31385,75 @@ static const char *startup_source = " tst79_1" " thn80_1" " els81_1)" -"(let-values(((s_377)" +"(let-values(((s_372)" "(if(1/syntax?" -" s_364)" +" s_359)" "(syntax-e$2" -" s_364)" -" s_364)))" +" s_359)" +" s_359)))" "(let-values(((_82_0)" -"(let-values(((s_378)" +"(let-values(((s_373)" "(car" -" s_377)))" -" s_378))" +" s_372)))" +" s_373))" "((tst83_0" " thn84_0" " els85_0)" +"(let-values(((s_374)" +"(cdr" +" s_372)))" +"(let-values(((s_375)" +"(if(1/syntax?" +" s_374)" +"(syntax-e$2" +" s_374)" +" s_374)))" +"(let-values(((tst86_0)" +"(let-values(((s_376)" +"(car" +" s_375)))" +" s_376))" +"((thn87_0" +" els88_0)" +"(let-values(((s_377)" +"(cdr" +" s_375)))" +"(let-values(((s_378)" +"(if(1/syntax?" +" s_377)" +"(syntax-e$2" +" s_377)" +" s_377)))" +"(let-values(((thn89_0)" +"(let-values(((s_255)" +"(car" +" s_378)))" +" s_255))" +"((els90_0)" "(let-values(((s_379)" "(cdr" -" s_377)))" +" s_378)))" "(let-values(((s_380)" "(if(1/syntax?" " s_379)" "(syntax-e$2" " s_379)" " s_379)))" -"(let-values(((tst86_0)" -"(let-values(((s_381)" -"(car" -" s_380)))" -" s_381))" -"((thn87_0" -" els88_0)" -"(let-values(((s_382)" -"(cdr" -" s_380)))" -"(let-values(((s_256)" -"(if(1/syntax?" -" s_382)" -"(syntax-e$2" -" s_382)" -" s_382)))" -"(let-values(((thn89_0)" -"(let-values(((s_383)" -"(car" -" s_256)))" -" s_383))" -"((els90_0)" -"(let-values(((s_384)" -"(cdr" -" s_256)))" -"(let-values(((s_385)" -"(if(1/syntax?" -" s_384)" -"(syntax-e$2" -" s_384)" -" s_384)))" "(let-values(((els91_0)" -"(let-values(((s_386)" +"(let-values(((s_122)" "(car" -" s_385)))" -" s_386))" +" s_380)))" +" s_122))" "(()" -"(let-values(((s_387)" +"(let-values(((s_256)" "(cdr" -" s_385)))" -"(let-values(((s_388)" +" s_380)))" +"(let-values(((s_257)" "(if(1/syntax?" -" s_387)" +" s_256)" "(syntax-e$2" -" s_387)" -" s_387)))" +" s_256)" +" s_256)))" "(values)))))" "(values" " els91_0))))))" @@ -31725,7 +31481,7 @@ static const char *startup_source = " #f" " #f" " #f)))))" -"(if ok?_24" +"(if ok?_23" "(if(not" "(effects?_0 tst79_0 1 locals_2))" "(if(not" @@ -31733,52 +31489,52 @@ static const char *startup_source = " thn80_0" " expected-results_0" " locals_2))" -"(loop_91 els81_0 locals_2)" +"(loop_2 els81_0 locals_2)" " #f)" " #f)" " #f)))))))))))))))))" -" loop_91)" -" e_36" +" loop_2)" +" e_37" " locals_0)))" "(not" "(if actual-results_0" -"(let-values(((or-part_240)(not expected-results_0)))" -"(if or-part_240 or-part_240(= actual-results_0 expected-results_0)))" +"(let-values(((or-part_233)(not expected-results_0)))" +"(if or-part_233 or-part_233(= actual-results_0 expected-results_0)))" " #f)))))))))))))" "(define-values" "(satisfies?)" -"(lambda(e_60 key_63 defns_2 locals_3)" +"(lambda(e_63 key_63 defns_2 locals_3)" "(begin" -"(let-values(((d_32)" -"(let-values(((or-part_241)(hash-ref locals_3 e_60 #f)))" -"(if or-part_241 or-part_241(lookup-defn defns_2 e_60)))))" -"(if d_32(if(known-satisfies? d_32)(eq? key_63(known-satisfies-predicate-key d_32)) #f) #f)))))" +"(let-values(((d_31)" +"(let-values(((or-part_119)(hash-ref locals_3 e_63 #f)))" +"(if or-part_119 or-part_119(lookup-defn defns_2 e_63)))))" +"(if d_31(if(known-satisfies? d_31)(eq? key_63(known-satisfies-predicate-key d_31)) #f) #f)))))" "(define-values" "(add-binding-info)" "(lambda(locals_4 idss_0 rhss_0)" "(begin" -"(let-values(((lst_231) idss_0)((lst_232) rhss_0))" +"(let-values(((lst_236) idss_0)((lst_237) rhss_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_231)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_232)))" -"((letrec-values(((for-loop_210)" -"(lambda(locals_5 lst_233 lst_234)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_236)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_237)))" +"((letrec-values(((for-loop_215)" +"(lambda(locals_5 lst_238 lst_239)" "(begin" " 'for-loop" -"(if(if(pair? lst_233)(pair? lst_234) #f)" -"(let-values(((ids_14)(unsafe-car lst_233))" -"((rest_123)(unsafe-cdr lst_233))" -"((rhs_10)(unsafe-car lst_234))" -"((rest_124)(unsafe-cdr lst_234)))" +"(if(if(pair? lst_238)(pair? lst_239) #f)" +"(let-values(((ids_14)(unsafe-car lst_238))" +"((rest_125)(unsafe-cdr lst_238))" +"((rhs_10)(unsafe-car lst_239))" +"((rest_126)(unsafe-cdr lst_239)))" "(let-values(((locals_6)" "(let-values(((locals_7) locals_5))" "(let-values(((locals_8)" "(let-values()" -"((letrec-values(((loop_92)" +"((letrec-values(((loop_89)" "(lambda(rhs_11)" "(begin" " 'loop" -"(let-values(((tmp_28)" +"(let-values(((tmp_27)" "(if(pair?" "(correlated-e" " rhs_11))" @@ -31788,16 +31544,16 @@ static const char *startup_source = " rhs_11)))" " #f)))" "(if(equal?" -" tmp_28" +" tmp_27" " 'make-struct-type)" "(let-values()" "(let-values(((field-count_0)" "(extract-struct-field-count-lower-bound" " rhs_11)))" -"(let-values(((lst_235)" +"(let-values(((lst_240)" "(correlated->list" " ids_14))" -"((lst_236)" +"((lst_241)" " '(struct-type" " constructor" " predicate" @@ -31809,36 +31565,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_235)))" +" lst_240)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_236)))" -"((letrec-values(((for-loop_211)" +" lst_241)))" +"((letrec-values(((for-loop_216)" "(lambda(locals_9" -" lst_237" -" lst_238)" +" lst_242" +" lst_243)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_237)" +" lst_242)" "(pair?" -" lst_238)" +" lst_243)" " #f)" "(let-values(((id_50)" "(unsafe-car" -" lst_237))" -"((rest_125)" +" lst_242))" +"((rest_127)" "(unsafe-cdr" -" lst_237))" +" lst_242))" "((type_0)" "(unsafe-car" -" lst_238))" -"((rest_126)" +" lst_243))" +"((rest_128)" "(unsafe-cdr" -" lst_238)))" +" lst_243)))" "(let-values(((locals_10)" "(let-values(((locals_11)" " locals_9))" @@ -31855,31 +31611,31 @@ static const char *startup_source = " locals_12)))))" "(if(not" " #f)" -"(for-loop_211" +"(for-loop_216" " locals_10" -" rest_125" -" rest_126)" +" rest_127" +" rest_128)" " locals_10)))" " locals_9)))))" -" for-loop_211)" +" for-loop_216)" " locals_7" -" lst_235" -" lst_236)))))" +" lst_240" +" lst_241)))))" "(if(equal?" -" tmp_28" +" tmp_27" " 'let-values)" "(let-values()" "(if(null?" "(correlated-e" "(correlated-cadr" " rhs_11)))" -"(loop_92" +"(loop_89" "(caddr" "(correlated->list" " rhs_11)))" -"(loop_92 #f)))" +"(loop_89 #f)))" "(let-values()" -"(let-values(((lst_239)" +"(let-values(((lst_123)" "(correlated->list" " ids_14)))" "(begin" @@ -31888,20 +31644,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_239)))" -"((letrec-values(((for-loop_212)" +" lst_123)))" +"((letrec-values(((for-loop_217)" "(lambda(locals_13" -" lst_240)" +" lst_244)" "(begin" " 'for-loop" "(if(pair?" -" lst_240)" +" lst_244)" "(let-values(((id_51)" "(unsafe-car" -" lst_240))" -"((rest_127)" +" lst_244))" +"((rest_129)" "(unsafe-cdr" -" lst_240)))" +" lst_244)))" "(let-values(((locals_14)" "(let-values(((locals_15)" " locals_13))" @@ -31916,93 +31672,93 @@ static const char *startup_source = " locals_16)))))" "(if(not" " #f)" -"(for-loop_212" +"(for-loop_217" " locals_14" -" rest_127)" +" rest_129)" " locals_14)))" " locals_13)))))" -" for-loop_212)" +" for-loop_217)" " locals_7" -" lst_239)))))))))))" -" loop_92)" +" lst_123)))))))))))" +" loop_89)" " rhs_10))))" "(values locals_8)))))" -"(if(not #f)(for-loop_210 locals_6 rest_123 rest_124) locals_6)))" +"(if(not #f)(for-loop_215 locals_6 rest_125 rest_126) locals_6)))" " locals_5)))))" -" for-loop_210)" +" for-loop_215)" " locals_4" -" lst_231" -" lst_232))))))" +" lst_236" +" lst_237))))))" "(define-values" "(ok-make-struct-type-property?)" -"(lambda(e_61 defns_3)" +"(lambda(e_64 defns_3)" "(begin" -"(let-values(((l_58)(correlated->list e_61)))" -"(if(<= 2(length l_58) 5)" -"(let-values(((lst_241)(cdr l_58))" -"((lst_242)" +"(let-values(((l_57)(correlated->list e_64)))" +"(if(<= 2(length l_57) 5)" +"(let-values(((lst_245)(cdr l_57))" +"((lst_246)" "(list" "(lambda(v_162)(quoted? symbol? v_162))" "(lambda(v_163)(is-lambda? v_163 2 defns_3))" "(lambda(v_164)(ok-make-struct-type-property-super? v_164 defns_3))" "(lambda(v_165)" -"(let-values(((temp93_1) 1)((defns94_0) defns_3))" -"(any-side-effects?9.1 defns94_0 #t #f #f #f #f v_165 temp93_1))))))" +"(let-values(((v92_0) v_165)((temp93_1) 1)((defns94_0) defns_3))" +"(any-side-effects?9.1 defns94_0 #t #f #f #f #f v92_0 temp93_1))))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_241)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_242)))" -"((letrec-values(((for-loop_139)" -"(lambda(result_90 lst_243 lst_244)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_245)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_246)))" +"((letrec-values(((for-loop_171)" +"(lambda(result_89 lst_145 lst_247)" "(begin" " 'for-loop" -"(if(if(pair? lst_243)(pair? lst_244) #f)" -"(let-values(((arg_0)(unsafe-car lst_243))" -"((rest_128)(unsafe-cdr lst_243))" -"((pred_1)(unsafe-car lst_244))" -"((rest_129)(unsafe-cdr lst_244)))" -"(let-values(((result_91)" +"(if(if(pair? lst_145)(pair? lst_247) #f)" +"(let-values(((arg_0)(unsafe-car lst_145))" +"((rest_130)(unsafe-cdr lst_145))" +"((pred_1)(unsafe-car lst_247))" +"((rest_131)(unsafe-cdr lst_247)))" +"(let-values(((result_90)" "(let-values()" -"(let-values(((result_92)" +"(let-values(((result_91)" "(let-values()(let-values()(pred_1 arg_0)))))" -"(values result_92)))))" -"(if(if(not((lambda x_63(not result_91)) arg_0))" -"(if(not((lambda x_64(not result_91)) pred_1))(not #f) #f)" +"(values result_91)))))" +"(if(if(not((lambda x_62(not result_90)) arg_0))" +"(if(not((lambda x_63(not result_90)) pred_1))(not #f) #f)" " #f)" -"(for-loop_139 result_91 rest_128 rest_129)" -" result_91)))" -" result_90)))))" -" for-loop_139)" +"(for-loop_171 result_90 rest_130 rest_131)" +" result_90)))" +" result_89)))))" +" for-loop_171)" " #t" -" lst_241" -" lst_242)))" +" lst_245" +" lst_246)))" " #f)))))" "(define-values" "(ok-make-struct-type-property-super?)" -"(lambda(v_154 defns_4)" +"(lambda(v_166 defns_4)" "(begin" -"(let-values(((or-part_242)(quoted? null? v_154)))" -"(if or-part_242" -" or-part_242" -"(let-values(((or-part_25)(eq? 'null(correlated-e v_154))))" -"(if or-part_25" -" or-part_25" -"(if(pair?(correlated-e v_154))" -"(if(eq?(correlated-e(car(correlated-e v_154))) 'list)" -"(if(let-values(((lst_245)(cdr(correlated->list v_154))))" +"(let-values(((or-part_123)(quoted? null? v_166)))" +"(if or-part_123" +" or-part_123" +"(let-values(((or-part_124)(eq? 'null(correlated-e v_166))))" +"(if or-part_124" +" or-part_124" +"(if(pair?(correlated-e v_166))" +"(if(eq?(correlated-e(car(correlated-e v_166))) 'list)" +"(if(let-values(((lst_248)(cdr(correlated->list v_166))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_245)))" -"((letrec-values(((for-loop_213)" -"(lambda(result_93 lst_246)" +"(let-values()(check-list lst_248)))" +"((letrec-values(((for-loop_218)" +"(lambda(result_92 lst_249)" "(begin" " 'for-loop" -"(if(pair? lst_246)" -"(let-values(((prop+val_0)(unsafe-car lst_246))" -"((rest_130)(unsafe-cdr lst_246)))" -"(let-values(((result_94)" +"(if(pair? lst_249)" +"(let-values(((prop+val_0)(unsafe-car lst_249))" +"((rest_132)(unsafe-cdr lst_249)))" +"(let-values(((result_93)" "(let-values()" -"(let-values(((result_95)" +"(let-values(((result_94)" "(let-values()" "(let-values()" "(if(=" @@ -32016,7 +31772,7 @@ static const char *startup_source = " 'cons" "(correlated-e" "(car prop+val_1)))" -"(if(let-values(((or-part_243)" +"(if(let-values(((or-part_234)" "(memq" "(correlated-e" "(list-ref" @@ -32025,8 +31781,8 @@ static const char *startup_source = " '(prop:procedure" " prop:equal+hash" " prop:custom-write))))" -"(if or-part_243" -" or-part_243" +"(if or-part_234" +" or-part_234" "(known-property?" "(lookup-defn" " defns_4" @@ -32055,36 +31811,36 @@ static const char *startup_source = " #f)" " #f))" " #f)))))" -"(values result_95)))))" -"(if(if(not((lambda x_65(not result_94)) prop+val_0))" +"(values result_94)))))" +"(if(if(not((lambda x_64(not result_93)) prop+val_0))" "(not #f)" " #f)" -"(for-loop_213 result_94 rest_130)" -" result_94)))" -" result_93)))))" -" for-loop_213)" +"(for-loop_218 result_93 rest_132)" +" result_93)))" +" result_92)))))" +" for-loop_218)" " #t" -" lst_245)))" +" lst_248)))" "(=" -"(sub1(correlated-length v_154))" +"(sub1(correlated-length v_166))" "(set-count" -"(let-values(((lst_247)(cdr(correlated->list v_154))))" +"(let-values(((lst_250)(cdr(correlated->list v_166))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_247)))" -"((letrec-values(((for-loop_64)" -"(lambda(table_170 lst_248)" +"(let-values()(check-list lst_250)))" +"((letrec-values(((for-loop_157)" +"(lambda(table_170 lst_251)" "(begin" " 'for-loop" -"(if(pair? lst_248)" -"(let-values(((prop+val_2)(unsafe-car lst_248))" -"((rest_131)(unsafe-cdr lst_248)))" +"(if(pair? lst_251)" +"(let-values(((prop+val_2)(unsafe-car lst_251))" +"((rest_133)(unsafe-cdr lst_251)))" "(let-values(((table_171)" "(let-values(((table_172) table_170))" "(let-values(((table_173)" "(let-values()" -"(let-values(((key_64 val_56)" +"(let-values(((key_64 val_55)" "(let-values()" "(values" "(let-values()" @@ -32097,43 +31853,44 @@ static const char *startup_source = "(hash-set" " table_172" " key_64" -" val_56)))))" +" val_55)))))" "(values table_173)))))" -"(if(not #f)(for-loop_64 table_171 rest_131) table_171)))" +"(if(not #f)(for-loop_157 table_171 rest_133) table_171)))" " table_170)))))" -" for-loop_64)" +" for-loop_157)" " '#hash()" -" lst_247)))))" +" lst_250)))))" " #f)" " #f)" " #f))))))))" "(define-values" "(ok-make-struct-type?)" -"(lambda(e_62 ready-variable?_1 defns_5)" +"(lambda(e_65 ready-variable?_1 defns_5)" "(begin" -"(let-values(((l_59)(correlated->list e_62)))" -"(let-values(((init-field-count-expr_0)(if(>(length l_59) 3)(list-ref l_59 3) #f)))" -"(let-values(((auto-field-count-expr_0)(if(>(length l_59) 4)(list-ref l_59 4) #f)))" +"(let-values(((l_58)(correlated->list e_65)))" +"(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)" "(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_244)(if(>(length l_59) 9)(list-ref l_59 9) #f)))" -"(if or-part_244 or-part_244 'null))))" -"(let-values(((super-expr_0)(if(>(length l_59) 2)(list-ref l_59 2) #f)))" -"(if(>=(length l_59) 5)" -"(if(<=(length l_59) 12)" -"(let-values(((lst_249)(cdr l_59))" -"((lst_250)" +"(let-values(((or-part_235)(if(>(length l_58) 9)(list-ref l_58 9) #f)))" +"(if or-part_235 or-part_235 '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_252)(cdr l_58))" +"((lst_253)" "(list" -"(lambda(v_155)(quoted? symbol? v_155))" -"(lambda(v_166)(super-ok? v_166 defns_5))" -"(lambda(v_167)(field-count-expr-to-field-count v_167))" -"(lambda(v_168)(field-count-expr-to-field-count v_168))" -"(lambda(v_169)" +"(lambda(v_167)(quoted? symbol? v_167))" +"(lambda(v_168)(super-ok? v_168 defns_5))" +"(lambda(v_169)(field-count-expr-to-field-count v_169))" +"(lambda(v_170)(field-count-expr-to-field-count v_170))" +"(lambda(v_171)" "(not" -"(let-values(((temp99_0) 1)" +"(let-values(((v98_0) v_171)" +"((temp99_0) 1)" "((ready-variable?100_0) ready-variable?_1)" "((defns101_0) defns_5))" "(any-side-effects?9.1" @@ -32143,123 +31900,123 @@ static const char *startup_source = " #f" " ready-variable?100_0" " #t" -" v_169" +" v98_0" " temp99_0))))" -"(lambda(v_170)" -"(known-good-struct-properties? v_170 immutables-expr_0 super-expr_0 defns_5))" -"(lambda(v_171)(inspector-or-false? v_171))" -"(lambda(v_172)(procedure-spec? v_172 num-fields_0))" -"(lambda(v_173)(immutables-ok? v_173 init-field-count-expr_0)))))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_249)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_250)))" -"((letrec-values(((for-loop_214)" -"(lambda(result_96 lst_130 lst_251)" -"(begin" -" 'for-loop" -"(if(if(pair? lst_130)(pair? lst_251) #f)" -"(let-values(((arg_1)(unsafe-car lst_130))" -"((rest_132)(unsafe-cdr lst_130))" -"((pred_2)(unsafe-car lst_251))" -"((rest_64)(unsafe-cdr lst_251)))" -"(let-values(((result_97)" -"(let-values()" -"(let-values(((result_98)" -"(let-values()" -"(let-values()(pred_2 arg_1)))))" -"(values result_98)))))" -"(if(if(not((lambda x_66(not result_97)) arg_1))" -"(if(not((lambda x_67(not result_97)) pred_2))" -"(not #f)" -" #f)" -" #f)" -"(for-loop_214 result_97 rest_132 rest_64)" -" result_97)))" -" result_96)))))" -" for-loop_214)" -" #t" -" lst_249" -" lst_250)))" -" #f)" -" #f))))))))))" -"(define-values" -"(super-ok?)" -"(lambda(e_63 defns_6)" -"(begin" -"(let-values(((or-part_245)(quoted? false? e_63)))" -"(if or-part_245" -" or-part_245" -"(let-values(((o_0)(lookup-defn defns_6(correlated-e e_63))))" -"(if o_0(if(known-struct-op? o_0)(eq? 'struct-type(known-struct-op-type o_0)) #f) #f)))))))" -"(define-values" -"(extract-struct-field-count-lower-bound)" -"(lambda(e_64)" -"(begin" -"(let-values(((l_60)(correlated->list e_64)))" -"(+(field-count-expr-to-field-count(list-ref l_60 3))(field-count-expr-to-field-count(list-ref l_60 4)))))))" -"(define-values" -"(quoted?)" -"(lambda(val?_0 v_174)" -"(begin" -"(let-values(((or-part_246)" -"(if(pair?(correlated-e v_174))" -"(if(eq?(correlated-e(car(correlated-e v_174))) 'quote)" -"(val?_0(correlated-e(correlated-cadr v_174)))" -" #f)" -" #f)))" -"(if or-part_246 or-part_246(val?_0(correlated-e v_174)))))))" -"(define-values" -"(quoted-value)" -"(lambda(v_175)" -"(begin(if(pair?(correlated-e v_175))(correlated-e(correlated-cadr v_175))(correlated-e v_175)))))" -"(define-values(false?)(lambda(v_176)(begin(eq?(correlated-e v_176) #f))))" -"(define-values" -"(field-count-expr-to-field-count)" -"(lambda(v_177)(begin(if(quoted? exact-nonnegative-integer? v_177)(quoted-value v_177) #f))))" -"(define-values" -"(inspector-or-false?)" -"(lambda(v_178)" -"(begin" -"(let-values(((or-part_247)(quoted? false? v_178)))" -"(if or-part_247" -" or-part_247" -"(let-values(((or-part_248)(if(quoted? symbol? v_178)(eq? 'prefab(quoted-value v_178)) #f)))" -"(if or-part_248" -" or-part_248" -"(if(= 1(correlated-length v_178))" -"(eq? 'current-inspector(correlated-e(car(correlated-e v_178))))" -" #f))))))))" -"(define-values" -"(known-good-struct-properties?)" -"(lambda(v_179 immutables-expr_1 super-expr_1 defns_7)" -"(begin" -"(let-values(((or-part_249)(quoted? null? v_179)))" -"(if or-part_249" -" or-part_249" -"(let-values(((or-part_250)(eq? 'null(correlated-e v_179))))" -"(if or-part_250" -" or-part_250" -"(if(pair?(correlated-e v_179))" -"(if(eq?(correlated-e(car(correlated-e v_179))) 'list)" -"(if(let-values(((lst_252)(cdr(correlated->list v_179))))" +"(lambda(v_172)" +"(known-good-struct-properties? v_172 immutables-expr_0 super-expr_0 defns_5))" +"(lambda(v_173)(inspector-or-false? v_173))" +"(lambda(v_174)(procedure-spec? v_174 num-fields_0))" +"(lambda(v_175)(immutables-ok? v_175 init-field-count-expr_0)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_252)))" -"((letrec-values(((for-loop_215)" -"(lambda(result_99 lst_253)" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_253)))" +"((letrec-values(((for-loop_161)" +"(lambda(result_95 lst_131 lst_254)" "(begin" " 'for-loop" -"(if(pair? lst_253)" -"(let-values(((prop+val_3)(unsafe-car lst_253))" -"((rest_133)(unsafe-cdr lst_253)))" -"(let-values(((result_100)" +"(if(if(pair? lst_131)(pair? lst_254) #f)" +"(let-values(((arg_1)(unsafe-car lst_131))" +"((rest_134)(unsafe-cdr lst_131))" +"((pred_2)(unsafe-car lst_254))" +"((rest_135)(unsafe-cdr lst_254)))" +"(let-values(((result_96)" "(let-values()" -"(let-values(((result_101)" +"(let-values(((result_97)" +"(let-values()" +"(let-values()(pred_2 arg_1)))))" +"(values result_97)))))" +"(if(if(not((lambda x_65(not result_96)) arg_1))" +"(if(not((lambda x_66(not result_96)) pred_2))" +"(not #f)" +" #f)" +" #f)" +"(for-loop_161 result_96 rest_134 rest_135)" +" result_96)))" +" result_95)))))" +" for-loop_161)" +" #t" +" lst_252" +" lst_253)))" +" #f)" +" #f))))))))))" +"(define-values" +"(super-ok?)" +"(lambda(e_66 defns_6)" +"(begin" +"(let-values(((or-part_236)(quoted? false? e_66)))" +"(if or-part_236" +" or-part_236" +"(let-values(((o_0)(lookup-defn defns_6(correlated-e e_66))))" +"(if o_0(if(known-struct-op? o_0)(eq? 'struct-type(known-struct-op-type o_0)) #f) #f)))))))" +"(define-values" +"(extract-struct-field-count-lower-bound)" +"(lambda(e_67)" +"(begin" +"(let-values(((l_59)(correlated->list e_67)))" +"(+(field-count-expr-to-field-count(list-ref l_59 3))(field-count-expr-to-field-count(list-ref l_59 4)))))))" +"(define-values" +"(quoted?)" +"(lambda(val?_0 v_176)" +"(begin" +"(let-values(((or-part_237)" +"(if(pair?(correlated-e v_176))" +"(if(eq?(correlated-e(car(correlated-e v_176))) 'quote)" +"(val?_0(correlated-e(correlated-cadr v_176)))" +" #f)" +" #f)))" +"(if or-part_237 or-part_237(val?_0(correlated-e v_176)))))))" +"(define-values" +"(quoted-value)" +"(lambda(v_177)" +"(begin(if(pair?(correlated-e v_177))(correlated-e(correlated-cadr v_177))(correlated-e v_177)))))" +"(define-values(false?)(lambda(v_178)(begin(eq?(correlated-e v_178) #f))))" +"(define-values" +"(field-count-expr-to-field-count)" +"(lambda(v_179)(begin(if(quoted? exact-nonnegative-integer? v_179)(quoted-value v_179) #f))))" +"(define-values" +"(inspector-or-false?)" +"(lambda(v_180)" +"(begin" +"(let-values(((or-part_238)(quoted? false? v_180)))" +"(if or-part_238" +" or-part_238" +"(let-values(((or-part_239)(if(quoted? symbol? v_180)(eq? 'prefab(quoted-value v_180)) #f)))" +"(if or-part_239" +" or-part_239" +"(if(= 1(correlated-length v_180))" +"(eq? 'current-inspector(correlated-e(car(correlated-e v_180))))" +" #f))))))))" +"(define-values" +"(known-good-struct-properties?)" +"(lambda(v_181 immutables-expr_1 super-expr_1 defns_7)" +"(begin" +"(let-values(((or-part_240)(quoted? null? v_181)))" +"(if or-part_240" +" or-part_240" +"(let-values(((or-part_241)(eq? 'null(correlated-e v_181))))" +"(if or-part_241" +" or-part_241" +"(if(pair?(correlated-e v_181))" +"(if(eq?(correlated-e(car(correlated-e v_181))) 'list)" +"(if(let-values(((lst_255)(cdr(correlated->list v_181))))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_255)))" +"((letrec-values(((for-loop_219)" +"(lambda(result_98 lst_256)" +"(begin" +" 'for-loop" +"(if(pair? lst_256)" +"(let-values(((prop+val_3)(unsafe-car lst_256))" +"((rest_136)(unsafe-cdr lst_256)))" +"(let-values(((result_99)" +"(let-values()" +"(let-values(((result_100)" "(let-values()" "(let-values()" "(if(=" @@ -32281,36 +32038,36 @@ static const char *startup_source = " defns_7)" " #f))" " #f)))))" -"(values result_101)))))" -"(if(if(not((lambda x_68(not result_100)) prop+val_3))" +"(values result_100)))))" +"(if(if(not((lambda x_67(not result_99)) prop+val_3))" "(not #f)" " #f)" -"(for-loop_215 result_100 rest_133)" -" result_100)))" -" result_99)))))" -" for-loop_215)" +"(for-loop_219 result_99 rest_136)" +" result_99)))" +" result_98)))))" +" for-loop_219)" " #t" -" lst_252)))" +" lst_255)))" "(=" -"(sub1(correlated-length v_179))" +"(sub1(correlated-length v_181))" "(set-count" -"(let-values(((lst_254)(cdr(correlated->list v_179))))" +"(let-values(((lst_257)(cdr(correlated->list v_181))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_254)))" -"((letrec-values(((for-loop_216)" -"(lambda(table_174 lst_255)" +"(let-values()(check-list lst_257)))" +"((letrec-values(((for-loop_220)" +"(lambda(table_174 lst_258)" "(begin" " 'for-loop" -"(if(pair? lst_255)" -"(let-values(((prop+val_5)(unsafe-car lst_255))" -"((rest_134)(unsafe-cdr lst_255)))" +"(if(pair? lst_258)" +"(let-values(((prop+val_5)(unsafe-car lst_258))" +"((rest_137)(unsafe-cdr lst_258)))" "(let-values(((table_175)" "(let-values(((table_176) table_174))" "(let-values(((table_177)" "(let-values()" -"(let-values(((key_65 val_57)" +"(let-values(((key_65 val_56)" "(let-values()" "(values" "(let-values()" @@ -32323,13 +32080,13 @@ static const char *startup_source = "(hash-set" " table_176" " key_65" -" val_57)))))" +" val_56)))))" "(values table_177)))))" -"(if(not #f)(for-loop_216 table_175 rest_134) table_175)))" +"(if(not #f)(for-loop_220 table_175 rest_137) table_175)))" " table_174)))))" -" for-loop_216)" +" for-loop_220)" " '#hash()" -" lst_254)))))" +" lst_257)))))" " #f)" " #f)" " #f))))))))" @@ -32338,43 +32095,43 @@ static const char *startup_source = "(lambda(prop-expr_0 val-expr_0 immutables-expr_2 super-expr_2 defns_8)" "(begin" "(let-values(((prop-name_0)(correlated-e prop-expr_0)))" -"(let-values(((tmp_29) prop-name_0))" -"(if(equal? tmp_29 'prop:evt)" +"(let-values(((tmp_28) prop-name_0))" +"(if(equal? tmp_28 'prop:evt)" "(let-values()" -"(let-values(((or-part_251)(is-lambda? val-expr_0 1 defns_8)))" -"(if or-part_251 or-part_251(immutable-field? val-expr_0 immutables-expr_2))))" -"(if(equal? tmp_29 'prop:procedure)" +"(let-values(((or-part_182)(is-lambda? val-expr_0 1 defns_8)))" +"(if or-part_182 or-part_182(immutable-field? val-expr_0 immutables-expr_2))))" +"(if(equal? tmp_28 'prop:procedure)" "(let-values()" -"(let-values(((or-part_252)(is-lambda? val-expr_0 1 defns_8)))" -"(if or-part_252 or-part_252(immutable-field? val-expr_0 immutables-expr_2))))" -"(if(equal? tmp_29 'prop:custom-write)" +"(let-values(((or-part_242)(is-lambda? val-expr_0 1 defns_8)))" +"(if or-part_242 or-part_242(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_29 'prop:equal+hash)" +"(if(equal? tmp_28 'prop:equal+hash)" "(let-values()" -"(let-values(((l_61)(correlated->list val-expr_0)))" -"(if(eq? 'list(car l_61))" -"(if(is-lambda?(list-ref l_61 1) 3 defns_8)" -"(if(is-lambda?(list-ref l_61 2) 2 defns_8)(is-lambda?(list-ref l_61 3) 2 defns_8) #f)" +"(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)" " #f)" " #f)))" -"(if(if(equal? tmp_29 'prop:method-arity-error) #t(equal? tmp_29 'prop:incomplete-arity))" +"(if(if(equal? tmp_28 'prop:method-arity-error) #t(equal? tmp_28 'prop:incomplete-arity))" "(let-values()" "(not" -"(let-values(((temp103_0) 1)((defns104_0) defns_8))" -"(any-side-effects?9.1 defns104_0 #t #f #f #f #f val-expr_0 temp103_0))))" -"(if(equal? tmp_29 'prop:impersonator-of)" +"(let-values(((val-expr102_0) val-expr_0)((temp103_0) 1)((defns104_0) defns_8))" +"(any-side-effects?9.1 defns104_0 #t #f #f #f #f val-expr102_0 temp103_0))))" +"(if(equal? tmp_28 'prop:impersonator-of)" "(let-values()(is-lambda? val-expr_0 1 defns_8))" -"(if(equal? tmp_29 'prop:arity-string)" +"(if(equal? tmp_28 'prop:arity-string)" "(let-values()(is-lambda? val-expr_0 1 defns_8))" -"(if(equal? tmp_29 'prop:checked-procedure)" +"(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(((temp106_0) 1)((defns107_0) defns_8))" -"(any-side-effects?9.1 defns107_0 #t #f #f #f #f val-expr_0 temp106_0)))" +"(let-values(((val-expr105_0) val-expr_0)((temp106_0) 1)((defns107_0) defns_8))" +"(any-side-effects?9.1 defns107_0 #t #f #f #f #f val-expr105_0 temp106_0)))" " #f)" " #f))))))))))))))))" "(define-values" @@ -32382,74 +32139,72 @@ static const char *startup_source = "(lambda(expr_9 arity_0 defns_9)" "(begin" "(let-values(((lookup_0)(lookup-defn defns_9 expr_9)))" -"(let-values(((or-part_253)" +"(let-values(((or-part_243)" "(if lookup_0" "(if(known-function? lookup_0)" -"(let-values(((or-part_207)(not arity_0)))" -"(if or-part_207 or-part_207(arity-includes?(known-function-arity lookup_0) arity_0)))" +"(let-values(((or-part_244)(not arity_0)))" +"(if or-part_244 or-part_244(arity-includes?(known-function-arity lookup_0) arity_0)))" " #f)" " #f)))" -"(if or-part_253" -" or-part_253" -"(let-values(((or-part_254)" +"(if or-part_243" +" or-part_243" +"(let-values(((or-part_245)" "(if(pair?(correlated-e expr_9))" "(if(eq? 'case-lambda(car(correlated-e expr_9)))(not arity_0) #f)" " #f)))" -"(if or-part_254" -" or-part_254" +"(if or-part_245" +" or-part_245" "(if(pair?(correlated-e expr_9))" "(if(eq? 'lambda(car(correlated-e expr_9)))" -"(let-values(((or-part_208)(not arity_0)))" -"(if or-part_208" -" or-part_208" -"((letrec-values(((loop_93)" -"(lambda(args_7 arity_1)" +"(let-values(((or-part_246)(not arity_0)))" +"(if or-part_246" +" or-part_246" +"((letrec-values(((loop_90)" +"(lambda(args_4 arity_1)" "(begin" " 'loop" -"(if(correlated? args_7)" -"(let-values()(loop_93(correlated-e args_7) arity_1))" -"(if(null? args_7)" +"(if(correlated? args_4)" +"(let-values()(loop_90(correlated-e args_4) arity_1))" +"(if(null? args_4)" "(let-values()(zero? arity_1))" -"(if(pair? args_7)" -"(let-values()(loop_93(cdr args_7)(sub1 arity_1)))" +"(if(pair? args_4)" +"(let-values()(loop_90(cdr args_4)(sub1 arity_1)))" "(let-values()(not(negative? arity_1))))))))))" -" loop_93)" +" loop_90)" "(cadr(correlated->list expr_9))" " arity_0)))" " #f)" " #f)))))))))" "(define-values" "(arity-includes?)" -"(lambda(a_46 n_27)" +"(lambda(a_40 n_25)" "(begin" -"(let-values(((or-part_255)(equal? a_46 n_27)))" -"(if or-part_255" -" or-part_255" -"(if(list? a_46)" -"(let-values(((lst_256) a_46))" +"(let-values(((or-part_131)(equal? a_40 n_25)))" +"(if or-part_131" +" or-part_131" +"(if(list? a_40)" +"(let-values(((lst_66) a_40))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_256)))" -"((letrec-values(((for-loop_217)" -"(lambda(result_102 lst_257)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_66)))" +"((letrec-values(((for-loop_221)" +"(lambda(result_101 lst_259)" "(begin" " 'for-loop" -"(if(pair? lst_257)" -"(let-values(((a_47)(unsafe-car lst_257))((rest_135)(unsafe-cdr lst_257)))" +"(if(pair? lst_259)" +"(let-values(((a_41)(unsafe-car lst_259))((rest_138)(unsafe-cdr lst_259)))" +"(let-values(((result_102)" +"(let-values()" "(let-values(((result_103)" "(let-values()" -"(let-values(((result_104)" -"(let-values()" -"(let-values()(equal? a_47 n_27)))))" -"(values result_104)))))" -"(if(if(not((lambda x_69 result_103) a_47))(not #f) #f)" -"(for-loop_217 result_103 rest_135)" -" result_103)))" -" result_102)))))" -" for-loop_217)" +"(let-values()(equal? a_41 n_25)))))" +"(values result_103)))))" +"(if(if(not((lambda x_68 result_102) a_41))(not #f) #f)" +"(for-loop_221 result_102 rest_138)" +" result_102)))" +" result_101)))))" +" for-loop_221)" " #f" -" lst_256)))" +" lst_66)))" " #f))))))" "(define-values" "(immutable-field?)" @@ -32460,88 +32215,90 @@ static const char *startup_source = " #f))))" "(define-values" "(immutables-expr-to-immutables)" -"(lambda(e_65 fail-v_0)" +"(lambda(e_68 fail-v_0)" "(begin" -"(let-values(((tmp_30)(if(pair?(correlated-e e_65))(correlated-e(car(correlated-e e_65))) #f)))" -"(if(equal? tmp_30 'quote)" +"(let-values(((tmp_29)(if(pair?(correlated-e e_68))(correlated-e(car(correlated-e e_68))) #f)))" +"(if(equal? tmp_29 'quote)" "(let-values()" -"(let-values(((v_180)(correlated-cadr e_65)))" -"(let-values(((or-part_256)" -"(if(correlated-length v_180)" -"(let-values(((l_62)(map2 correlated-e(correlated->list v_180))))" -"(if(andmap2 exact-nonnegative-integer? l_62)" -"(if(=(length l_62)(set-count(list->set l_62))) l_62 #f)" +"(let-values(((v_182)(correlated-cadr e_68)))" +"(let-values(((or-part_247)" +"(if(correlated-length v_182)" +"(let-values(((l_61)(map2 correlated-e(correlated->list v_182))))" +"(if(andmap2 exact-nonnegative-integer? l_61)" +"(if(=(length l_61)(set-count(list->set l_61))) l_61 #f)" " #f))" " #f)))" -"(if or-part_256 or-part_256 fail-v_0))))" +"(if or-part_247 or-part_247 fail-v_0))))" "(let-values() fail-v_0))))))" "(define-values" "(procedure-spec?)" -"(lambda(e_66 field-count_1)" +"(lambda(e_69 field-count_1)" "(begin" -"(let-values(((or-part_257)(quoted? false? e_66)))" -"(if or-part_257" -" or-part_257" -"(let-values(((or-part_258)" -"(if(quoted? exact-nonnegative-integer? e_66)" -"(if field-count_1(<(quoted-value e_66) field-count_1) #f)" +"(let-values(((or-part_248)(quoted? false? e_69)))" +"(if or-part_248" +" or-part_248" +"(let-values(((or-part_249)" +"(if(quoted? exact-nonnegative-integer? e_69)" +"(if field-count_1(<(quoted-value e_69) field-count_1) #f)" " #f)))" -"(if or-part_258 or-part_258(is-lambda? e_66 #f '#hasheq()))))))))" +"(if or-part_249 or-part_249(is-lambda? e_69 #f '#hasheq()))))))))" "(define-values" "(immutables-ok?)" -"(lambda(e_67 init-field-count-expr_1)" +"(lambda(e_70 init-field-count-expr_1)" "(begin" -"(let-values(((l_63)(immutables-expr-to-immutables e_67 #f)))" +"(let-values(((l_62)(immutables-expr-to-immutables e_70 #f)))" "(let-values(((c_24)(field-count-expr-to-field-count init-field-count-expr_1)))" -"(if l_63" -"(let-values(((lst_258) l_63))" +"(if l_62" +"(let-values(((lst_260) l_62))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_258)))" -"((letrec-values(((for-loop_218)" -"(lambda(result_105 lst_259)" +"(let-values()(check-list lst_260)))" +"((letrec-values(((for-loop_145)" +"(lambda(result_104 lst_261)" "(begin" " 'for-loop" -"(if(pair? lst_259)" -"(let-values(((n_28)(unsafe-car lst_259))((rest_136)(unsafe-cdr lst_259)))" -"(let-values(((result_106)" +"(if(pair? lst_261)" +"(let-values(((n_26)(unsafe-car lst_261))((rest_139)(unsafe-cdr lst_261)))" +"(let-values(((result_105)" "(let-values()" -"(let-values(((result_107)" -"(let-values()(let-values()(< n_28 c_24)))))" -"(values result_107)))))" -"(if(if(not((lambda x_70(not result_106)) n_28))(not #f) #f)" -"(for-loop_218 result_106 rest_136)" -" result_106)))" -" result_105)))))" -" for-loop_218)" +"(let-values(((result_106)" +"(let-values()(let-values()(< n_26 c_24)))))" +"(values result_106)))))" +"(if(if(not((lambda x_69(not result_105)) n_26))(not #f) #f)" +"(for-loop_145 result_105 rest_139)" +" result_105)))" +" result_104)))))" +" for-loop_145)" " #t" -" lst_258)))" +" lst_260)))" " #f))))))" "(define-values" "(ok-make-struct-field-accessor/mutator?)" -"(lambda(e_68 locals_17 type_1 defns_10)" +"(lambda(e_71 locals_17 type_1 defns_10)" "(begin" -"(let-values(((l_64)(correlated->list e_68)))" -"(let-values(((a_48)" -"(if(let-values(((or-part_259)(=(length l_64) 3)))" -"(if or-part_259 or-part_259(=(length l_64) 4)))" -"(let-values(((or-part_260)(hash-ref locals_17(correlated-e(list-ref l_64 1)) #f)))" -"(if or-part_260 or-part_260(lookup-defn defns_10(correlated-e(list-ref l_64 1)))))" +"(let-values(((l_63)(correlated->list e_71)))" +"(let-values(((a_42)" +"(if(let-values(((or-part_250)(=(length l_63) 3)))" +"(if or-part_250 or-part_250(=(length l_63) 4)))" +"(let-values(((or-part_251)(hash-ref locals_17(correlated-e(list-ref l_63 1)) #f)))" +"(if or-part_251 or-part_251(lookup-defn defns_10(correlated-e(list-ref l_63 1)))))" " #f)))" -"(if(known-struct-op? a_48)" -"(if(eq?(known-struct-op-type a_48) type_1)" -"(if(<(field-count-expr-to-field-count(list-ref l_64 2))(known-struct-op-field-count a_48))" -"(let-values(((or-part_261)(=(length l_64) 3)))" -"(if or-part_261 or-part_261(quoted? symbol?(list-ref l_64 3))))" +"(if(known-struct-op? a_42)" +"(if(eq?(known-struct-op-type a_42) type_1)" +"(if(<(field-count-expr-to-field-count(list-ref l_63 2))(known-struct-op-field-count a_42))" +"(let-values(((or-part_252)(=(length l_63) 3)))" +"(if or-part_252 or-part_252(quoted? symbol?(list-ref l_63 3))))" " #f)" " #f)" " #f))))))" -"(define-values(maybe+)(lambda(x_71 y_10)(begin(if x_71(if y_10(+ x_71 y_10) #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" "(compile-single)" -"(lambda(p_45 cctx_13)" -"(begin(let-values(((temp14_4) #f)((temp15_4) #t))(compile-top9.1 temp14_4 #t temp15_4 #t #f #f p_45 cctx_13)))))" +"(lambda(p_42 cctx_12)" +"(begin" +"(let-values(((p12_0) p_42)((cctx13_0) cctx_12)((temp14_4) #f)((temp15_4) #t))" +"(compile-top9.1 temp14_4 #t temp15_4 #t #f #f p12_0 cctx13_0)))))" "(define-values" "(compile-top9.1)" "(lambda(serializable?1_0" @@ -32554,14 +32311,14 @@ static const char *startup_source = " cctx8_0)" "(begin" " 'compile-top9" -"(let-values(((p_38) p7_0))" -"(let-values(((cctx_1) cctx8_0))" +"(let-values(((p_43) p7_0))" +"(let-values(((cctx_13) cctx8_0))" "(let-values(((serializable?_1)(if serializable?4_0 serializable?1_0 #t)))" "(let-values(((single-expression?_0)(if single-expression?5_0 single-expression?2_0 #f)))" "(let-values(((to-source?_2)(if to-source?6_0 to-source?3_0 #f)))" "(let-values()" "(let-values()" -"(let-values(((phase_78)(compile-context-phase cctx_1)))" +"(let-values(((phase_15)(compile-context-phase cctx_13)))" "(let-values(((mpis_17)(make-module-path-index-table)))" "(let-values(((purely-functional?_0) #t))" "(let-values(((body-linklets_1" @@ -32572,8 +32329,8 @@ static const char *startup_source = " phase-to-link-extra-inspectorss_0" " syntax-literals_3" " no-root-context-pos_0)" -"(let-values(((temp16_4)(list p_38))" -"((cctx17_0) cctx_1)" +"(let-values(((temp16_4)(list p_43))" +"((cctx17_0) cctx_13)" "((mpis18_0) mpis_17)" "((temp19_0)" "(if single-expression?_0" @@ -32591,9 +32348,11 @@ static const char *startup_source = "((serializable?22_0) serializable?_1)" "((temp23_3)(lambda()(set! purely-functional?_0 #f)))" "((temp24_4)" -"(lambda(e_69 expected-results_2 phase_79 required-reference?_0)" +"(lambda(e_72 expected-results_2 phase_81 required-reference?_0)" "(if(if purely-functional?_0" -"(let-values(((required-reference?29_0)" +"(let-values(((e27_0) e_72)" +"((expected-results28_0) expected-results_2)" +"((required-reference?29_0)" " required-reference?_0))" "(any-side-effects?9.1" " #f" @@ -32602,16 +32361,16 @@ static const char *startup_source = " #f" " required-reference?29_0" " #t" -" e_69" -" expected-results_2))" +" e27_0" +" expected-results28_0))" " #f)" "(let-values()(set! purely-functional?_0 #f))" "(void))))" "((temp25_3)" -"(lambda(s_175 cctx_14)" +"(lambda(s_381 cctx_14)" "(begin" "(set! purely-functional?_0 #f)" -"(compile-top-level-require s_175 cctx_14))))" +"(compile-top-level-require s_381 cctx_14))))" "((temp26_1)(not single-expression?_0)))" "(compile-forms31.1" " temp20_0" @@ -32642,12 +32401,12 @@ static const char *startup_source = " cctx17_0" " mpis18_0))))" "(let-values(((add-metadata_0)" -"(lambda(ht_113)" +"(lambda(ht_115)" "(begin" " 'add-metadata" -"(let-values(((ht_114)(hash-set ht_113 'original-phase phase_78)))" -"(let-values(((ht_115)(hash-set ht_114 'max-phase max-phase_1)))" -" ht_115))))))" +"(let-values(((ht_75)(hash-set ht_115 'original-phase phase_15)))" +"(let-values(((ht_116)(hash-set ht_75 'max-phase max-phase_1)))" +" ht_116))))))" "(let-values(((bundle_0)" "((if to-source?_2 values 1/hash->linklet-bundle)" "(add-metadata_0" @@ -32658,17 +32417,17 @@ static const char *startup_source = "(generate-eager-syntax-literals!" " syntax-literals_3" " mpis_17" -" phase_78" -"(compile-context-self cctx_1)" -"(compile-context-namespace cctx_1)))))" +" phase_15" +"(compile-context-self cctx_13)" +"(compile-context-namespace cctx_13)))))" "(let-values(((link-linklet_0)" "((if to-source?_2" " values" -"(lambda(s_305)" +"(lambda(s_160)" "(let-values()" "(let-values(((linklet_2 new-keys_0)" "(1/compile-linklet" -" s_305" +" s_160" " #f" "(vector" " deserialize-instance" @@ -32691,7 +32450,7 @@ static const char *startup_source = "(list" " 'define-values" "(list deserialized-syntax-vector-id)" -"(list* 'make-vector(add1 phase_78) '(#f)))" +"(list* 'make-vector(add1 phase_15) '(#f)))" "(list" " 'define-values" " '(phase-to-link-modules)" @@ -32717,16 +32476,16 @@ static const char *startup_source = "(syntax-literals-as-vector syntax-literals_3)" " null" " null" -"(extract-namespace-scopes(compile-context-namespace cctx_1))" +"(extract-namespace-scopes(compile-context-namespace cctx_13))" " purely-functional?_0)))))))))))))))))))" "(define-values" "(compile-top-level-require)" -"(lambda(p_46 cctx_15)" +"(lambda(p_44 cctx_15)" "(begin" -"(let-values(((phase_80)(compile-context-phase cctx_15)))" -"(if(parsed-require? p_46)" +"(let-values(((phase_33)(compile-context-phase cctx_15)))" +"(if(parsed-require? p_44)" "(let-values()" -"(let-values(((form-stx_0)(compile-quote-syntax(syntax-disarm$1(parsed-s p_46)) cctx_15)))" +"(let-values(((form-stx_0)(compile-quote-syntax(syntax-disarm$1(parsed-s p_44)) cctx_15)))" "(list top-level-require!-id form-stx_0 ns-id)))" "(let-values() #f))))))" "(define-values" @@ -32749,36 +32508,36 @@ static const char *startup_source = " 'select-defined-syms-and-bind!16" "(let-values(((ids_15) ids11_0))" "(let-values(((defined-syms_7) defined-syms12_0))" -"(let-values(((self_22) self13_0))" -"(let-values(((phase_81) phase14_0))" +"(let-values(((self_20) self13_0))" +"(let-values(((phase_82) 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)(if top-level-bind-scope7_0 top-level-bind-scope2_0 #f)))" "(let-values(((requires+provides_4)(if requires+provides8_0 requires+provides3_0 #f)))" -"(let-values(((orig-s_29)(if in9_0 in4_0 #f)))" +"(let-values(((orig-s_28)(if in9_0 in4_0 #f)))" "(let-values(((as-transformer?_4)(if as-transformer?10_0 as-transformer?5_0 #f)))" "(let-values()" "(let-values(((defined-syms-at-phase_0)" -"(let-values(((or-part_262)(hash-ref defined-syms_7 phase_81 #f)))" -"(if or-part_262" -" or-part_262" -"(let-values(((ht_116)(make-hasheq)))" -"(begin(hash-set! defined-syms_7 phase_81 ht_116) ht_116))))))" +"(let-values(((or-part_253)(hash-ref defined-syms_7 phase_82 #f)))" +"(if or-part_253" +" or-part_253" +"(let-values(((ht_117)(make-hasheq)))" +"(begin(hash-set! defined-syms_7 phase_82 ht_117) ht_117))))))" "(reverse$1" -"(let-values(((lst_77) ids_15))" +"(let-values(((lst_78) ids_15))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_77)))" -"((letrec-values(((for-loop_93)" -"(lambda(fold-var_12 lst_78)" +"(let-values()(check-list lst_78)))" +"((letrec-values(((for-loop_222)" +"(lambda(fold-var_12 lst_171)" "(begin" " 'for-loop" -"(if(pair? lst_78)" -"(let-values(((id_52)(unsafe-car lst_78))" -"((rest_86)(unsafe-cdr lst_78)))" -"(let-values(((fold-var_153)" -"(let-values(((fold-var_154) fold-var_12))" +"(if(pair? lst_171)" +"(let-values(((id_52)(unsafe-car lst_171))" +"((rest_87)(unsafe-cdr lst_171)))" +"(let-values(((fold-var_154)" +"(let-values(((fold-var_155) fold-var_12))" "(let-values(((fold-var_164)" "(let-values()" "(cons" @@ -32794,41 +32553,41 @@ static const char *startup_source = " sym_9" " #f)" " id_52" -" phase_81" +" phase_82" " top-level-bind-scope_3))" "(if(no-extra-scopes?" " id_52" " all-scopes-stx_3" " top-level-bind-scope_3" -" phase_81)" +" phase_82)" "(symbol-interned?" " sym_9)" " #f)" " #f)" " sym_9" -"((letrec-values(((loop_94)" -"(lambda(pos_96)" +"((letrec-values(((loop_91)" +"(lambda(pos_97)" "(begin" " 'loop" -"(let-values(((s_177)" +"(let-values(((s_175)" "(string->unreadable-symbol" "(format" " \"~a.~a\"" " sym_9" -" pos_96))))" +" pos_97))))" "(if(defined-as-other?" "(hash-ref" " defined-syms-at-phase_0" -" s_177" +" s_175" " #f)" " id_52" -" phase_81" +" phase_82" " top-level-bind-scope_3)" -"(loop_94" +"(loop_91" "(add1" -" pos_96))" -" s_177))))))" -" loop_94)" +" pos_97))" +" s_175))))))" +" loop_91)" " 1))))" "(let-values((()" "(begin" @@ -32837,8 +32596,14 @@ static const char *startup_source = " defined-sym_0" " id_52)" "(values))))" -"(let-values(((b_72)" -"(let-values(((frame-id26_0)" +"(let-values(((b_49)" +"(let-values(((self23_0)" +" self_20)" +"((phase24_1)" +" phase_82)" +"((defined-sym25_0)" +" defined-sym_0)" +"((frame-id26_0)" " frame-id_7)" "((sym27_1)" " sym_9))" @@ -32861,85 +32626,106 @@ static const char *startup_source = " #t" " #f" " #f" -" self_22" -" phase_81" -" defined-sym_0))))" +" self23_0" +" phase24_1" +" defined-sym25_0))))" "(begin" "(if requires+provides_4" "(let-values()" -"(let-values(((b31_0)" -" b_72))" +"(let-values(((requires+provides28_0)" +" requires+provides_4)" +"((id29_0)" +" id_52)" +"((phase30_0)" +" phase_82)" +"((b31_0)" +" b_49))" "(remove-required-id!75.1" " b31_0" -" requires+provides_4" -" id_52" -" phase_81)))" +" requires+provides28_0" +" id29_0" +" phase30_0)))" "(void))" -"(let-values(((orig-s22_0)" -" orig-s_29))" +"(let-values(((id19_0)" +" id_52)" +"((b20_0)" +" b_49)" +"((phase21_0)" +" phase_82)" +"((orig-s22_0)" +" orig-s_28))" "(add-binding!17.1" " orig-s22_0" " #t" " #f" " #f" -" id_52" -" b_72" -" phase_81))" +" id19_0" +" b20_0" +" phase21_0))" "(if requires+provides_4" "(let-values()" -"(let-values(((as-transformer?36_0)" +"(let-values(((requires+provides32_0)" +" requires+provides_4)" +"((id33_0)" +" id_52)" +"((phase34_0)" +" phase_82)" +"((b35_0)" +" b_49)" +"((as-transformer?36_0)" " as-transformer?_4))" "(add-defined-or-required-id!19.1" " as-transformer?36_0" " #f" " #f" -" requires+provides_4" -" id_52" -" phase_81" -" b_72)))" +" requires+provides32_0" +" id33_0" +" phase34_0" +" b35_0)))" "(void))" " defined-sym_0))))))" -" fold-var_154))))" +" fold-var_155))))" "(values fold-var_164)))))" "(if(not #f)" -"(for-loop_93 fold-var_153 rest_86)" -" fold-var_153)))" +"(for-loop_222 fold-var_154 rest_87)" +" fold-var_154)))" " fold-var_12)))))" -" for-loop_93)" +" for-loop_222)" " null" -" lst_77)))))))))))))))))))" +" lst_78)))))))))))))))))))" "(define-values" "(no-extra-scopes?)" -"(lambda(id_53 all-scopes-stx_4 top-level-bind-scope_4 phase_82)" +"(lambda(id_53 all-scopes-stx_4 top-level-bind-scope_4 phase_83)" "(begin" "(let-values(((m-id_0)(datum->syntax$1 all-scopes-stx_4(syntax-e$1 id_53))))" -"(let-values(((or-part_80)(bound-identifier=?$1 id_53 m-id_0 phase_82)))" -"(if or-part_80" -" or-part_80" +"(let-values(((or-part_134)(bound-identifier=?$1 id_53 m-id_0 phase_83)))" +"(if or-part_134" +" or-part_134" "(if top-level-bind-scope_4" -"(bound-identifier=?$1 id_53(add-scope m-id_0 top-level-bind-scope_4) phase_82)" +"(bound-identifier=?$1 id_53(add-scope m-id_0 top-level-bind-scope_4) phase_83)" " #f)))))))" "(define-values" "(defined-as-other?)" -"(lambda(prev-id_0 id_54 phase_83 top-level-bind-scope_5)" +"(lambda(prev-id_0 id_54 phase_72 top-level-bind-scope_5)" "(begin" "(if prev-id_0" -"(if(not(bound-identifier=?$1 prev-id_0 id_54 phase_83))" -"(let-values(((or-part_263)(not top-level-bind-scope_5)))" -"(if or-part_263" -" or-part_263" +"(if(not(bound-identifier=?$1 prev-id_0 id_54 phase_72))" +"(let-values(((or-part_254)(not top-level-bind-scope_5)))" +"(if or-part_254" +" or-part_254" "(not" "(bound-identifier=?$1" "(remove-scope prev-id_0 top-level-bind-scope_5)" "(remove-scope id_54 top-level-bind-scope_5)" -" phase_83))))" +" phase_72))))" " #f)" " #f))))" "(define-values" "(select-defined-syms-and-bind!/ctx)" "(lambda(tl-ids_0 ctx_10)" "(begin" -"(let-values(((temp38_0)(root-expand-context-defined-syms ctx_10))" +"(let-values(((tl-ids37_0) tl-ids_0)" +"((temp38_0)(root-expand-context-defined-syms ctx_10))" "((temp39_1)(root-expand-context-self-mpi ctx_10))" "((temp40_1)(expand-context-phase ctx_10))" "((temp41_1)(root-expand-context-all-scopes-stx ctx_10))" @@ -32955,56 +32741,56 @@ static const char *startup_source = " #f" " temp43_0" " #t" -" tl-ids_0" +" tl-ids37_0" " temp38_0" " temp39_1" " temp40_1" " temp41_1)))))" "(define-values" "(add-defined-sym!)" -"(lambda(defined-syms_8 phase_84 sym_57 id_55)" +"(lambda(defined-syms_8 phase_34 sym_56 id_55)" "(begin" "(let-values(((defined-syms-at-phase_1)" -"(let-values(((or-part_264)(hash-ref defined-syms_8 phase_84 #f)))" -"(if or-part_264" -" or-part_264" -"(let-values(((ht_31)(make-hasheq)))" -"(begin(hash-set! defined-syms_8 phase_84 ht_31) ht_31))))))" -"(hash-set! defined-syms-at-phase_1 sym_57 id_55)))))" +"(let-values(((or-part_255)(hash-ref defined-syms_8 phase_34 #f)))" +"(if or-part_255" +" or-part_255" +"(let-values(((ht_118)(make-hasheq)))" +"(begin(hash-set! defined-syms_8 phase_34 ht_118) ht_118))))))" +"(hash-set! defined-syms-at-phase_1 sym_56 id_55)))))" "(define-values" "(make-create-root-expand-context-from-module)" "(lambda(requires_3 evaled-ld-h_0)" "(begin" -"(lambda(ns_58 phase-shift_13 original-self_0 self_9)" +"(lambda(ns_58 phase-shift_14 original-self_0 self_7)" "(let-values(((root-ctx_4)" -"(let-values(((temp1_3)(namespace-mpi ns_58)))" -"(make-root-expand-context13.1 #f #f #f #f #f #f #f #f temp1_3))))" +"(let-values(((temp1_2)(namespace-mpi ns_58)))" +"(make-root-expand-context13.1 #f #f #f #f #f #f #f #f temp1_2))))" "(let-values(((s_3)(add-scopes empty-syntax(root-expand-context-module-scopes root-ctx_4))))" "(let-values((()" "(begin" -"(let-values(((lst_15) requires_3))" +"(let-values(((lst_262) requires_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_15)))" -"((letrec-values(((for-loop_9)" -"(lambda(lst_260)" +"(let-values()(check-list lst_262)))" +"((letrec-values(((for-loop_223)" +"(lambda(lst_16)" "(begin" " 'for-loop" -"(if(pair? lst_260)" -"(let-values(((phase+reqs_0)(unsafe-car lst_260))" -"((rest_137)(unsafe-cdr lst_260)))" +"(if(pair? lst_16)" +"(let-values(((phase+reqs_0)(unsafe-car lst_16))" +"((rest_4)(unsafe-cdr lst_16)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((phase_85)" +"(let-values(((phase_32)" "(car" " phase+reqs_0)))" "(begin" -"(let-values(((lst_74)" +"(let-values(((lst_263)" "(cdr" " phase+reqs_0)))" "(begin" @@ -33013,19 +32799,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_74)))" -"((letrec-values(((for-loop_92)" -"(lambda(lst_95)" +" lst_263)))" +"((letrec-values(((for-loop_224)" +"(lambda(lst_77)" "(begin" " 'for-loop" "(if(pair?" -" lst_95)" -"(let-values(((req_8)" +" lst_77)" +"(let-values(((req_4)" "(unsafe-car" -" lst_95))" -"((rest_45)" +" lst_77))" +"((rest_35)" "(unsafe-cdr" -" lst_95)))" +" lst_77)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33034,15 +32820,25 @@ static const char *startup_source = "(let-values()" "(let-values(((mpi_43)" "(module-path-index-shift" -" req_8" +" req_4" " original-self_0" -" self_9)))" -"(let-values(((temp7_1)" +" self_7)))" +"(let-values(((mpi2_1)" +" mpi_43)" +"((s3_1)" +" s_3)" +"((self4_3)" +" self_7)" +"((s5_0)" +" s_3)" +"((ns6_0)" +" ns_58)" +"((temp7_1)" "(phase+" -" phase_85" -" phase-shift_13))" +" phase_32" +" phase-shift_14))" "((phase-shift8_0)" -" phase-shift_13)" +" phase-shift_14)" "((temp9_2)" " 'module))" "(perform-require!78.1" @@ -33071,44 +32867,44 @@ static const char *startup_source = " #f" " #f" " temp9_2" -" mpi_43" -" s_3" -" self_9" -" s_3" -" ns_58))))" +" mpi2_1" +" s3_1" +" self4_3" +" s5_0" +" ns6_0))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_92" -" rest_45)" +"(for-loop_224" +" rest_35)" "(values))))" "(values))))))" -" for-loop_92)" -" lst_74)))" +" for-loop_224)" +" lst_263)))" "(void))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_9 rest_137)(values))))" +"(if(not #f)(for-loop_223 rest_4)(values))))" "(values))))))" -" for-loop_9)" -" lst_15)))" +" for-loop_223)" +" lst_262)))" "(values))))" "(let-values()" "(let-values(((defined-syms_9)(root-expand-context-defined-syms root-ctx_4)))" "(begin" -"(let-values(((ht_117) evaled-ld-h_0))" +"(let-values(((ht_119) evaled-ld-h_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_117)))" -"((letrec-values(((for-loop_219)" -"(lambda(i_146)" +"(let-values()(check-in-hash ht_119)))" +"((letrec-values(((for-loop_103)" +"(lambda(i_149)" "(begin" " 'for-loop" -"(if i_146" -"(let-values(((phase_86 linklet_3)" -"(hash-iterate-key+value ht_117 i_146)))" +"(if i_149" +"(let-values(((phase_84 linklet_3)" +"(hash-iterate-key+value ht_119 i_149)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33116,7 +32912,7 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_38)" +"(let-values(((lst_264)" "(1/linklet-export-variables" " linklet_3)))" "(begin" @@ -33124,19 +32920,19 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_38)))" -"((letrec-values(((for-loop_51)" -"(lambda(lst_218)" +"(check-list lst_264)))" +"((letrec-values(((for-loop_225)" +"(lambda(lst_265)" "(begin" " 'for-loop" "(if(pair?" -" lst_218)" -"(let-values(((sym_58)" +" lst_265)" +"(let-values(((sym_57)" "(unsafe-car" -" lst_218))" -"((rest_138)" +" lst_265))" +"((rest_140)" "(unsafe-cdr" -" lst_218)))" +" lst_265)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33146,17 +32942,17 @@ static const char *startup_source = "(let-values(((id_56)" "(datum->syntax$1" " s_3" -" sym_58)))" +" sym_57)))" "(begin" "(let-values(((id10_0)" " id_56)" -"((temp11_0)" +"((temp11_2)" "(let-values(((self13_1)" -" self_9)" +" self_7)" "((phase14_1)" -" phase_86)" +" phase_84)" "((sym15_0)" -" sym_58))" +" sym_57))" "(make-module-binding22.1" " #f" " #f" @@ -33180,39 +32976,39 @@ static const char *startup_source = " phase14_1" " sym15_0)))" "((phase12_0)" -" phase_86))" +" phase_84))" "(add-binding!17.1" " #f" " #f" " #f" " #f" " id10_0" -" temp11_0" +" temp11_2" " phase12_0))" "(add-defined-sym!" " defined-syms_9" -" phase_86" -" sym_58" +" phase_84" +" sym_57" " id_56))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_51" -" rest_138)" +"(for-loop_225" +" rest_140)" "(values))))" "(values))))))" -" for-loop_51)" -" lst_38)))" +" for-loop_225)" +" lst_264)))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_219(hash-iterate-next ht_117 i_146))" +"(for-loop_103(hash-iterate-next ht_119 i_149))" "(values))))" "(values))))))" -" for-loop_219)" -"(hash-iterate-first ht_117))))" +" for-loop_103)" +"(hash-iterate-first ht_119))))" "(void)" " root-ctx_4))))))))))" "(define-values" @@ -33221,11 +33017,11 @@ static const char *startup_source = "(begin" "(let-values(((outside-mpi_0)(root-expand-context-self-mpi root-context_0)))" "(let-values(((inside-mpi_0)(make-self-module-path-index(module-path-index-resolved outside-mpi_0))))" -"(let-values(((v_135) root-context_0))" -"(let-values(((the-struct_56) v_135))" +"(let-values(((v_183) root-context_0))" +"(let-values(((the-struct_56) v_183))" "(if(root-expand-context/outer? the-struct_56)" "(let-values(((inner16_0)" -"(let-values(((the-struct_57)(root-expand-context/outer-inner v_135)))" +"(let-values(((the-struct_57)(root-expand-context/outer-inner v_183)))" "(if(root-expand-context/inner? the-struct_57)" "(let-values(((self-mpi17_0) inside-mpi_0)" "((all-scopes-stx18_0)" @@ -33271,45 +33067,45 @@ static const char *startup_source = "(let-values(((skip-num-imports_0) skip-imports1_0))" "(let-values(((import-module-uses_0) import-module-uses4_0))" "(let-values(((import-module-instances_0) import-module-instances5_0))" -"(let-values(((insp_9) insp6_0))" +"(let-values(((insp_10) insp6_0))" "(let-values(((extra-inspector_0) extra-inspector7_0))" "(let-values(((extra-inspectorsss_4) extra-inspectorsss8_0))" "(let-values()" "(begin" -"(let-values(((lst_39)(list-tail(1/linklet-import-variables linklet_4) skip-num-imports_0))" -"((lst_261) import-module-uses_0)" -"((lst_85) import-module-instances_0)" -"((lst_158)" -"(let-values(((or-part_77) extra-inspectorsss_4))" -"(if or-part_77 or-part_77 import-module-uses_0))))" +"(let-values(((lst_40)(list-tail(1/linklet-import-variables linklet_4) skip-num-imports_0))" +"((lst_266) import-module-uses_0)" +"((lst_87) import-module-instances_0)" +"((lst_161)" +"(let-values(((or-part_71) extra-inspectorsss_4))" +"(if or-part_71 or-part_71 import-module-uses_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_39)))" +"(let-values()(check-list lst_40)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_261)))" +"(let-values()(check-list lst_266)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_85)))" +"(let-values()(check-list lst_87)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_158)))" -"((letrec-values(((for-loop_220)" -"(lambda(lst_262 lst_263 lst_24 lst_169)" +"(let-values()(check-list lst_161)))" +"((letrec-values(((for-loop_225)" +"(lambda(lst_265 lst_267 lst_24 lst_170)" "(begin" " 'for-loop" -"(if(if(pair? lst_262)" -"(if(pair? lst_263)(if(pair? lst_24)(pair? lst_169) #f) #f)" +"(if(if(pair? lst_265)" +"(if(pair? lst_267)(if(pair? lst_24)(pair? lst_170) #f) #f)" " #f)" -"(let-values(((import-syms_0)(unsafe-car lst_262))" -"((rest_139)(unsafe-cdr lst_262))" -"((mu_7)(unsafe-car lst_263))" -"((rest_140)(unsafe-cdr lst_263))" +"(let-values(((import-syms_0)(unsafe-car lst_265))" +"((rest_141)(unsafe-cdr lst_265))" +"((mu_7)(unsafe-car lst_267))" +"((rest_142)(unsafe-cdr lst_267))" "((mi_16)(unsafe-car lst_24))" -"((rest_41)(unsafe-cdr lst_24))" -"((extra-inspectorss_14)(unsafe-car lst_169))" -"((rest_35)(unsafe-cdr lst_169)))" +"((rest_42)(unsafe-cdr lst_24))" +"((extra-inspectorss_14)(unsafe-car lst_170))" +"((rest_117)(unsafe-cdr lst_170)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33332,7 +33128,7 @@ static const char *startup_source = "(module-compute-access!" " m_15)))))" "(begin" -"(let-values(((lst_55)" +"(let-values(((lst_58)" " import-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -33340,26 +33136,26 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_55)))" -"((letrec-values(((for-loop_221)" -"(lambda(lst_25)" +" lst_58)))" +"((letrec-values(((for-loop_226)" +"(lambda(lst_26)" "(begin" " 'for-loop" "(if(pair?" -" lst_25)" +" lst_26)" "(let-values(((import-sym_0)" "(unsafe-car" -" lst_25))" +" lst_26))" "((rest_9)" "(unsafe-cdr" -" lst_25)))" +" lst_26)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((a_49)" +"(let-values(((a_43)" "(hash-ref" "(hash-ref" " access_2" @@ -33368,34 +33164,34 @@ static const char *startup_source = " '#hasheq())" " import-sym_0" " 'unexported)))" -"(if(let-values(((or-part_175)" +"(if(let-values(((or-part_166)" "(eq?" -" a_49" +" a_43" " 'unexported)))" -"(if or-part_175" -" or-part_175" +"(if or-part_166" +" or-part_166" "(eq?" -" a_49" +" a_43" " 'protected)))" "(let-values()" "(let-values(((guard-insp_3)" "(namespace-inspector" "(module-instance-namespace" " mi_16))))" -"(if(let-values(((or-part_177)" +"(if(let-values(((or-part_168)" "(inspector-superior?" -" insp_9" +" insp_10" " guard-insp_3)))" -"(if or-part_177" -" or-part_177" -"(let-values(((or-part_39)" +"(if or-part_168" +" or-part_168" +"(let-values(((or-part_169)" "(if extra-inspector_0" "(inspector-superior?" " extra-inspector_0" " guard-insp_3)" " #f)))" -"(if or-part_39" -" or-part_39" +"(if or-part_169" +" or-part_169" "(if extra-inspectorsss_4" "(if extra-inspectorss_14" "(extra-inspectors-allow?" @@ -33414,7 +33210,7 @@ static const char *startup_source = " \"access disallowed by code inspector to ~a variable\\n\"" " \" variable: ~s\\n\"" " \" from module: ~a\")" -" a_49" +" a_43" " import-sym_0" "(1/module-path-index-resolve" "(namespace-mpi" @@ -33425,43 +33221,43 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_221" +"(for-loop_226" " rest_9)" "(values))))" "(values))))))" -" for-loop_221)" -" lst_55)))" +" for-loop_226)" +" lst_58)))" "(void)))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_220 rest_139 rest_140 rest_41 rest_35)" +"(for-loop_225 rest_141 rest_142 rest_42 rest_117)" "(values))))" "(values))))))" -" for-loop_220)" -" lst_39" -" lst_261" -" lst_85" -" lst_158)))" +" for-loop_225)" +" lst_40" +" lst_266" +" lst_87" +" lst_161)))" "(void)))))))))))))" "(define-values" "(check-single-require-access)" -"(lambda(mi_17 phase_87 sym_59 insp_10)" +"(lambda(mi_17 phase_85 sym_58 insp_11)" "(begin" "(let-values(((m_16)(module-instance-module mi_17)))" "(if(module-no-protected? m_16)" "(let-values() #t)" "(let-values()" "(let-values(((access_3)" -"(let-values(((or-part_74)(module-access m_16)))" -"(if or-part_74 or-part_74(module-compute-access! m_16)))))" -"(let-values(((a_50)(hash-ref(hash-ref access_3 phase_87 '#hasheq()) sym_59 'unexported)))" -"(if(let-values(((or-part_42)(eq? a_50 'unexported)))" -"(if or-part_42 or-part_42(eq? a_50 'protected)))" +"(let-values(((or-part_67)(module-access m_16)))" +"(if or-part_67 or-part_67(module-compute-access! m_16)))))" +"(let-values(((a_44)(hash-ref(hash-ref access_3 phase_85 '#hasheq()) sym_58 'unexported)))" +"(if(let-values(((or-part_256)(eq? a_44 'unexported)))" +"(if or-part_256 or-part_256(eq? a_44 'protected)))" "(let-values()" "(let-values(((guard-insp_4)(namespace-inspector(module-instance-namespace mi_17))))" -"(let-values(((or-part_265)(if insp_10(inspector-superior? insp_10 guard-insp_4) #f)))" -"(if or-part_265 or-part_265(inspector-superior?(current-code-inspector) guard-insp_4)))))" +"(let-values(((or-part_257)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))" +"(if or-part_257 or-part_257(inspector-superior?(current-code-inspector) guard-insp_4)))))" "(let-values() #t))))))))))" "(define-values(module-cache)(make-weak-hash))" "(define-values" @@ -33469,11 +33265,11 @@ static const char *startup_source = "(lambda(hash-code_4)(begin(if hash-code_4(list hash-code_4(current-load-relative-directory)) #f))))" "(define-values" "(module-cache-set!)" -"(lambda(key_11 proc_10)(begin(hash-set! module-cache key_11(make-ephemeron key_11 proc_10)))))" +"(lambda(key_11 proc_8)(begin(hash-set! module-cache key_11(make-ephemeron key_11 proc_8)))))" "(define-values" "(module-cache-ref)" "(lambda(key_66)" -"(begin(let-values(((e_70)(hash-ref module-cache key_66 #f)))(if e_70(ephemeron-value e_70) #f)))))" +"(begin(let-values(((e_73)(hash-ref module-cache key_66 #f)))(if e_73(ephemeron-value e_73) #f)))))" "(define-values(current-module-declare-as-predefined)(make-parameter #f))" "(define-values" "(eval-module8.1)" @@ -33529,22 +33325,22 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-range start_37 end_26 inc_20)))" -"((letrec-values(((for-loop_108)" -"(lambda(table_106 pos_97)" +"((letrec-values(((for-loop_109)" +"(lambda(table_106 pos_98)" "(begin" " 'for-loop" -"(if(< pos_97 end_26)" +"(if(< pos_98 end_26)" "(let-values(((phase-level_17)" -" pos_97))" +" pos_98))" "(let-values(((table_178)" -"(let-values(((v_181)" +"(let-values(((v_184)" "(hash-ref" " h_1" " phase-level_17" " #f)))" "(begin" " #t" -"((letrec-values(((for-loop_222)" +"((letrec-values(((for-loop_227)" "(lambda(table_108)" "(begin" " 'for-loop" @@ -33552,35 +33348,35 @@ static const char *startup_source = "(let-values(((table_179)" "(let-values(((table_180)" " table_108))" -"(if v_181" +"(if v_184" "(let-values(((table_181)" " table_180))" "(let-values(((table_182)" "(let-values()" "(let-values(((key_68" -" val_58)" +" val_57)" "(let-values()" "(values" " phase-level_17" "(1/eval-linklet" -" v_181)))))" +" v_184)))))" "(hash-set" " table_181" " key_68" -" val_58)))))" +" val_57)))))" "(values" " table_182)))" " table_180))))" " table_179))))))" -" for-loop_222)" +" for-loop_227)" " table_106)))))" "(if(not #f)" -"(for-loop_108" +"(for-loop_109" " table_178" -"(+ pos_97 inc_20))" +"(+ pos_98 inc_20))" " table_178)))" " table_106)))))" -" for-loop_108)" +" for-loop_109)" " '#hash()" " start_37)))))" "(let-values(((syntax-literals-linklet_0)" @@ -33622,25 +33418,27 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_20)))" -"((letrec-values(((for-loop_223)" -"(lambda(lst_88)" +"((letrec-values(((for-loop_228)" +"(lambda(lst_91)" "(begin" " 'for-loop" "(if(pair?" -" lst_88)" +" lst_91)" "(let-values(((c_25)" "(unsafe-car" -" lst_88))" -"((rest_42)" +" lst_91))" +"((rest_43)" "(unsafe-cdr" -" lst_88)))" +" lst_91)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((ns13_0)" +"(let-values(((c12_0)" +" c_25)" +"((ns13_0)" " ns_60)" "((declare-name14_0)" " declare-name_0))" @@ -33651,38 +33449,38 @@ static const char *startup_source = " #t" " #f" " #f" -" c_25)))" +" c12_0)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_223" -" rest_42)" +"(for-loop_228" +" rest_43)" "(values))))" "(values))))))" -" for-loop_223)" +" for-loop_228)" " lst_20)))" "(void))" "(begin" -"(let-values(((lst_264) names_0))" +"(let-values(((lst_92) names_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_264)))" -"((letrec-values(((for-loop_224)" -"(lambda(lst_89)" +"(check-list lst_92)))" +"((letrec-values(((for-loop_229)" +"(lambda(lst_7)" "(begin" " 'for-loop" "(if(pair?" -" lst_89)" -"(let-values(((name_48)" +" lst_7)" +"(let-values(((name_49)" "(unsafe-car" -" lst_89))" -"((rest_141)" +" lst_7))" +"((rest_143)" "(unsafe-cdr" -" lst_89)))" +" lst_7)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33692,7 +33490,7 @@ static const char *startup_source = "(let-values(((sm-cd_0)" "(hash-ref" " dh_0" -" name_48" +" name_49" " #f)))" "(begin" "(if sm-cd_0" @@ -33700,8 +33498,10 @@ static const char *startup_source = "(let-values()" "(error" " \"missing submodule declaration:\"" -" name_48)))" -"(let-values(((ns16_0)" +" name_49)))" +"(let-values(((sm-cd15_0)" +" sm-cd_0)" +"((ns16_0)" " ns_60)" "((declare-name17_0)" " declare-name_0))" @@ -33712,17 +33512,17 @@ static const char *startup_source = " #t" " #f" " #f" -" sm-cd_0)))))" +" sm-cd15_0)))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_224" -" rest_141)" +"(for-loop_229" +" rest_143)" "(values))))" "(values))))))" -" for-loop_224)" -" lst_264)))" +" for-loop_229)" +" lst_92)))" "(void)))))" " void)))" "(let-values(((declare-this-module_0)" @@ -33761,7 +33561,7 @@ static const char *startup_source = "((temp34_0)" "(lambda(phase-level_18" " ns_62" -" insp_11)" +" insp_12)" "(module-linklet-info2.1" "(hash-ref" " phases-h_0" @@ -33772,7 +33572,7 @@ static const char *startup_source = " phase-level_18" " #f)" " original-self_1" -" insp_11" +" insp_12" " extra-inspector_6" "(hash-ref" " phase-to-link-extra-inspectorsss_1" @@ -33786,10 +33586,10 @@ static const char *startup_source = "((temp36_2)" "(lambda(data-box_2" " ns_63" -" phase-shift_15" -" self_23" +" phase-shift_16" +" self_21" " bulk-binding-registry_14" -" insp_12)" +" insp_13)" "(if(unbox" " data-box_2)" "(void)" @@ -33801,20 +33601,20 @@ static const char *startup_source = " syntax-literals-linklet_0" " data-instance_0" " syntax-literals-data-instance_0" -" phase-shift_15" +" phase-shift_16" " original-self_1" -" self_23" +" self_21" " bulk-binding-registry_14" -" insp_12" +" insp_13" " create-root-expand-context-from-module_0)))))" "((temp37_0)" "(lambda(data-box_3" " ns_64" -" phase-shift_16" +" phase-shift_17" " phase-level_19" -" self_24" +" self_22" " bulk-binding-registry_15" -" insp_13)" +" insp_14)" "(let-values()" "(let-values(((syntax-literals-instance_0)" "(instance-data-syntax-literals-instance" @@ -33835,7 +33635,7 @@ static const char *startup_source = " import-instances_0)" "(let-values(((mis_1" " is_0)" -"(let-values(((lst_265)" +"(let-values(((lst_268)" " module-uses_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -33843,21 +33643,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_265)))" -"((letrec-values(((for-loop_225)" +" lst_268)))" +"((letrec-values(((for-loop_230)" "(lambda(mis_2" " is_1" -" lst_266)" +" lst_269)" "(begin" " 'for-loop" "(if(pair?" -" lst_266)" +" lst_269)" "(let-values(((mu_8)" "(unsafe-car" -" lst_266))" -"((rest_142)" +" lst_269))" +"((rest_144)" "(unsafe-cdr" -" lst_266)))" +" lst_269)))" "(let-values(((mis_3" " is_2)" "(let-values(((mis_4)" @@ -33870,25 +33670,29 @@ static const char *startup_source = "(let-values(((mis45_0" " is46_0)" "(let-values()" -"(let-values(((original-self49_0)" +"(let-values(((ns47_0)" +" ns_64)" +"((mu48_0)" +" mu_8)" +"((original-self49_0)" " original-self_1)" "((self50_0)" -" self_24)" +" self_22)" "((temp51_1)" "(phase+" "(phase-" " phase-level_19" "(module-use-phase" " mu_8))" -" phase-shift_16)))" +" phase-shift_17)))" "(namespace-module-use->module+linklet-instances146.1" " temp51_1" " original-self49_0" " #t" " self50_0" " #t" -" ns_64" -" mu_8)))))" +" ns47_0" +" mu48_0)))))" "(values" "(cons" " mis45_0" @@ -33901,20 +33705,20 @@ static const char *startup_source = " is_4)))))" "(if(not" " #f)" -"(for-loop_225" +"(for-loop_230" " mis_3" " is_2" -" rest_142)" +" rest_144)" "(values" " mis_3" " is_2))))" "(values" " mis_2" " is_1))))))" -" for-loop_225)" +" for-loop_230)" " null" " null" -" lst_265)))))" +" lst_268)))))" "(values" "(reverse$1" " mis_1)" @@ -33922,14 +33726,16 @@ static const char *startup_source = " is_0)))))" "(let-values((()" "(begin" -"(let-values(((temp39_2)" +"(let-values(((phase-linklet38_0)" +" phase-linklet_0)" +"((temp39_2)" " 2)" "((module-uses40_0)" " module-uses_0)" "((import-module-instances41_0)" " import-module-instances_1)" "((insp42_0)" -" insp_13)" +" insp_14)" "((extra-inspector43_0)" " extra-inspector_6)" "((temp44_0)" @@ -33939,7 +33745,7 @@ static const char *startup_source = " #f)))" "(check-require-access9.1" " temp39_2" -" phase-linklet_0" +" phase-linklet38_0" " module-uses40_0" " import-module-instances41_0" " insp42_0" @@ -33948,14 +33754,14 @@ static const char *startup_source = "(values))))" "(let-values(((module-body-instance-instance_0)" "(let-values(((temp52_2)" -"(lambda(name_49" -" val_59)" +"(lambda(name_50" +" val_58)" "(namespace-set-transformer!" " ns_64" "(sub1" " phase-level_19)" -" name_49" -" val_59))))" +" name_50" +" val_58))))" "(make-module-body-instance-instance18.1" " temp52_2))))" "(let-values(((instantiate-body_0)" @@ -33975,7 +33781,7 @@ static const char *startup_source = " phase-level_19)" "(let-values()" "(if(zero-phase?" -" phase-shift_16)" +" phase-shift_17)" "(let-values()" "(instantiate-body_0))" "(let-values()" @@ -33994,7 +33800,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " ns_64" "(phase+" -" phase-shift_16" +" phase-shift_17" "(sub1" " phase-level_19)))))" "(with-continuation-mark" @@ -34021,7 +33827,7 @@ static const char *startup_source = " 1/current-namespace" " ns_64" " current-module-code-inspector" -" insp_13)" +" insp_14)" "(let-values()" "(instantiate-body_0))))))))))))" "(void))))))))" @@ -34071,14 +33877,18 @@ static const char *startup_source = " declare-name_1" " #t))" "(void))" -"(let-values(((with-submodules?21_0)" +"(let-values(((ns18_0) ns_61)" +"((m19_0) m_17)" +"((declare-name20_0)" +" declare-name_1)" +"((with-submodules?21_0)" " with-submodules?_1))" "(declare-module!58.1" " with-submodules?21_0" " #t" -" ns_61" -" m_17" -" declare-name_1))" +" ns18_0" +" m19_0" +" declare-name20_0))" "(if with-submodules?_1" "(let-values()" "(declare-submodules_0" @@ -34112,15 +33922,15 @@ static const char *startup_source = "(init-instance-data!)" "(lambda(data-box_4" " cache-key_1" -" ns_12" +" ns_15" " syntax-literals-linklet_1" " data-instance_1" " syntax-literals-data-instance_1" -" phase-shift_17" +" phase-shift_18" " original-self_2" -" self_25" +" self_23" " bulk-binding-registry_16" -" insp_14" +" insp_15" " create-root-expand-context-from-module_1)" "(begin" "(let-values((()" @@ -34135,13 +33945,13 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((inst_1)" -"(let-values(((ns55_1) ns_12)" -"((phase-shift56_1) phase-shift_17)" -"((self57_0) self_25)" -"((insp58_0) insp_14)" +"(let-values(((ns55_1) ns_15)" +"((phase-shift56_1) phase-shift_18)" +"((self57_0) self_23)" +"((insp58_0) insp_15)" "((bulk-binding-registry59_0) bulk-binding-registry_16)" "((temp60_1)" -" (lambda (name_50 val_60) (error \"shouldn't get here for the root-ctx linklet\"))))" +" (lambda (name_51 val_59) (error \"shouldn't get here for the root-ctx linklet\"))))" "(make-instance-instance13.1" " bulk-binding-registry59_0" " insp58_0" @@ -34164,35 +33974,37 @@ static const char *startup_source = "(if(eq? get-encoded-root-expand-ctx_0 'empty)" "(let-values()" "(namespace-set-root-expand-ctx!" -" ns_12" +" ns_15" "(delay" "(lambda()" "(begin" " '...nder/eval/module.rkt:281:39" -"(shift-to-inside-root-context(make-root-expand-context15.1 self_25)))))))" +"(shift-to-inside-root-context" +"(let-values(((self61_0) self_23))" +"(make-root-expand-context13.1 #f #f #f #f #f #f #f #f self61_0))))))))" "(if(procedure? get-encoded-root-expand-ctx_0)" "(let-values()" "(namespace-set-root-expand-ctx!" -" ns_12" +" ns_15" "(delay" "(lambda()" "(begin" " '...nder/eval/module.rkt:285:39" "(shift-to-inside-root-context" -"(root-expand-context-decode-for-module(get-encoded-root-expand-ctx_0) self_25)))))))" +"(root-expand-context-decode-for-module(get-encoded-root-expand-ctx_0) self_23)))))))" "(let-values()" "(namespace-set-root-expand-ctx!" -" ns_12" +" ns_15" "(delay" "(lambda()" "(begin" " '...nder/eval/module.rkt:292:39" "(shift-to-inside-root-context" "(create-root-expand-context-from-module_1" -" ns_12" -" phase-shift_17" +" ns_15" +" phase-shift_18" " original-self_2" -" self_25)))))))))))))))))" +" self_23)))))))))))))))))" "(define-values" "(force-syntax-deserialize)" "(lambda(syntax-literals-data-instance_2 bulk-binding-registry_17)" @@ -34281,67 +34093,67 @@ static const char *startup_source = " #f" " 'constant" " get-syntax-literal!-id" -"(lambda(pos_98) #f)" +"(lambda(pos_99) #f)" " 'get-encoded-root-expand-ctx" " 'empty))" "(define-values" "(get-all-variables)" "(lambda(phases-h_1)" "(begin" -"(let-values(((ht_118) phases-h_1))" +"(let-values(((ht_120) phases-h_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_118)))" -"((letrec-values(((for-loop_226)" -"(lambda(table_183 i_148)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_120)))" +"((letrec-values(((for-loop_231)" +"(lambda(table_183 i_150)" "(begin" " 'for-loop" -"(if i_148" -"(let-values(((phase_88 linklet_5)(hash-iterate-key+value ht_118 i_148)))" +"(if i_150" +"(let-values(((phase_86 linklet_5)(hash-iterate-key+value ht_120 i_150)))" "(let-values(((table_184)" -"(let-values(((table_147) table_183))" -"(let-values(((table_185)" +"(let-values(((table_185) table_183))" +"(let-values(((table_136)" "(let-values()" -"(let-values(((key_69 val_61)" +"(let-values(((key_69 val_60)" "(let-values()" "(values" -" phase_88" +" phase_86" "(1/linklet-export-variables" " linklet_5)))))" -"(hash-set table_147 key_69 val_61)))))" -"(values table_185)))))" +"(hash-set table_185 key_69 val_60)))))" +"(values table_136)))))" "(if(not #f)" -"(for-loop_226 table_184(hash-iterate-next ht_118 i_148))" +"(for-loop_231 table_184(hash-iterate-next ht_120 i_150))" " table_184)))" " table_183)))))" -" for-loop_226)" +" for-loop_231)" " '#hash()" -"(hash-iterate-first ht_118)))))))" +"(hash-iterate-first ht_120)))))))" "(define-values" "(provides->api-provides)" -"(lambda(provides_9 self_26)" +"(lambda(provides_9 self_24)" "(begin" "(let-values(((extract_0)" -"(lambda(ok?_25)" +"(lambda(ok?_24)" "(begin" " 'extract" "(let-values(((result-l_0)" "(reverse$1" -"(let-values(((ht_119) provides_9))" +"(let-values(((ht_121) provides_9))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_119)))" -"((letrec-values(((for-loop_96)" -"(lambda(fold-var_58 i_149)" +"(let-values()(check-in-hash ht_121)))" +"((letrec-values(((for-loop_97)" +"(lambda(fold-var_59 i_151)" "(begin" " 'for-loop" -"(if i_149" -"(let-values(((phase_89 at-phase_11)" -"(hash-iterate-key+value ht_119 i_149)))" -"(let-values(((fold-var_59)" -"(let-values(((l_65)" +"(if i_151" +"(let-values(((phase_87 at-phase_11)" +"(hash-iterate-key+value ht_121 i_151)))" +"(let-values(((fold-var_60)" +"(let-values(((l_64)" "(reverse$1" -"(let-values(((ht_112)" +"(let-values(((ht_114)" " at-phase_11))" "(begin" "(if(variable-reference-from-unsafe?" @@ -34349,22 +34161,22 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_112)))" -"((letrec-values(((for-loop_227)" +" ht_114)))" +"((letrec-values(((for-loop_232)" "(lambda(fold-var_215" -" i_150)" +" i_152)" "(begin" " 'for-loop" -"(if i_150" -"(let-values(((sym_60" +"(if i_152" +"(let-values(((sym_59" " b/p_1)" "(hash-iterate-key+value" -" ht_112" -" i_150)))" +" ht_114" +" i_152)))" "(let-values(((fold-var_216)" "(let-values(((fold-var_217)" " fold-var_215))" -"(if(ok?_25" +"(if(ok?_24" " b/p_1)" "(let-values(((fold-var_30)" " fold-var_217))" @@ -34372,46 +34184,46 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(let-values(((b_73)" +"(let-values(((b_72)" "(provided-as-binding" " b/p_1)))" "(list" -" sym_60" +" sym_59" "(if(eq?" -" self_26" +" self_24" "(module-binding-module" -" b_73))" +" b_72))" "(let-values()" " null)" "(let-values()" "(reverse$1" -"(let-values(((lst_83)" +"(let-values(((lst_85)" "(cons" -" b_73" +" b_72" "(module-binding-extra-nominal-bindings" -" b_73))))" +" b_72))))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_83)))" -"((letrec-values(((for-loop_228)" +" lst_85)))" +"((letrec-values(((for-loop_233)" "(lambda(fold-var_32" -" lst_267)" +" lst_270)" "(begin" " 'for-loop" "(if(pair?" -" lst_267)" -"(let-values(((b_74)" +" lst_270)" +"(let-values(((b_73)" "(unsafe-car" -" lst_267))" -"((rest_143)" +" lst_270))" +"((rest_145)" "(unsafe-cdr" -" lst_267)))" -"(let-values(((fold-var_148)" +" lst_270)))" "(let-values(((fold-var_149)" +"(let-values(((fold-var_150)" " fold-var_32))" "(let-values(((fold-var_26)" "(let-values()" @@ -34419,68 +34231,68 @@ static const char *startup_source = "(let-values()" "(if(if(eqv?" "(module-binding-nominal-phase" -" b_74)" -" phase_89)" +" b_73)" +" phase_87)" "(eq?" "(module-binding-nominal-sym" -" b_74)" -" sym_60)" +" b_73)" +" sym_59)" " #f)" "(let-values()" "(module-binding-nominal-module" -" b_74))" +" b_73))" "(let-values()" "(list" "(module-binding-nominal-module" -" b_74)" +" b_73)" "(module-binding-phase" -" b_74)" +" b_73)" "(module-binding-nominal-sym" -" b_74)" +" b_73)" "(module-binding-nominal-phase" -" b_74)))))" -" fold-var_149))))" +" b_73)))))" +" fold-var_150))))" "(values" " fold-var_26)))))" "(if(not" " #f)" -"(for-loop_228" -" fold-var_148" -" rest_143)" -" fold-var_148)))" +"(for-loop_233" +" fold-var_149" +" rest_145)" +" fold-var_149)))" " fold-var_32)))))" -" for-loop_228)" +" for-loop_233)" " null" -" lst_83)))))))))" +" lst_85)))))))))" " fold-var_30))))" "(values" " fold-var_218)))" " fold-var_217))))" "(if(not" " #f)" -"(for-loop_227" +"(for-loop_232" " fold-var_216" "(hash-iterate-next" -" ht_112" -" i_150))" +" ht_114" +" i_152))" " fold-var_216)))" " fold-var_215)))))" -" for-loop_227)" +" for-loop_232)" " null" "(hash-iterate-first" -" ht_112)))))))" +" ht_114)))))))" "(begin" " #t" -"((letrec-values(((for-loop_101)" -"(lambda(fold-var_64)" +"((letrec-values(((for-loop_103)" +"(lambda(fold-var_67)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((fold-var_150)" +"(let-values(((fold-var_151)" "(let-values(((fold-var_27)" -" fold-var_64))" +" fold-var_67))" "(if(null?" -" l_65)" +" l_64)" " fold-var_27" "(let-values(((fold-var_28)" " fold-var_27))" @@ -34489,32 +34301,37 @@ static const char *startup_source = "(cons" "(let-values()" "(cons" -" phase_89" -"(let-values(((car6_0)" +" phase_87" +"(let-values(((l4_0)" +" l_64)" +"((symbollinklet-directory-or-bundle)" "(lambda(c_31)(begin(if(compiled-in-memory? c_31)(compiled-in-memory-linklet-directory c_31) c_31))))" @@ -34651,7 +34469,7 @@ static const char *startup_source = "(define-values" "(module-compiled-immediate-name)" "(lambda(c_33)" -"(begin(let-values(((n_29)(module-compiled-current-name c_33)))(if(pair? n_29)(car(reverse$1 n_29)) n_29)))))" +"(begin(let-values(((n_27)(module-compiled-current-name c_33)))(if(pair? n_27)(car(reverse$1 n_27)) n_27)))))" "(define-values" "(change-module-name)" "(lambda(c_34 name_3 prefix_4)" @@ -34659,12 +34477,12 @@ static const char *startup_source = "(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_51)" +"(lambda(sub-c_0 name_52)" "(begin" " 'recur" -"(if(equal?(module-compiled-current-name sub-c_0)(append next-prefix_0(list name_51)))" +"(if(equal?(module-compiled-current-name sub-c_0)(append next-prefix_0(list name_52)))" " sub-c_0" -"(change-module-name sub-c_0 name_51 next-prefix_0))))))" +"(change-module-name sub-c_0 name_52 next-prefix_0))))))" "(if(compiled-in-memory? c_34)" "(let-values()" "(let-values(((change-submodule-name_0)" @@ -34681,7 +34499,7 @@ static const char *startup_source = "(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_2)" +"(let-values(((temp11_3)" "(update-one-name" "(let-values(((ld_2)" "(compiled->linklet-directory-or-bundle c_34)))" @@ -34692,7 +34510,7 @@ static const char *startup_source = "((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 #t temp11_2 temp13_1))))" +"(rebuild-linklet-directory5.1 temp12_1 #t temp11_3 temp13_1))))" "(compiled-in-memory1.1" " linklet-directory10_0" "(compiled-in-memory-original-self the-struct_3)" @@ -34711,48 +34529,48 @@ static const char *startup_source = "(if(1/linklet-directory? c_34)" "(let-values()" "(1/hash->linklet-directory" -"(let-values(((ht_121)(1/linklet-directory->hash c_34)))" +"(let-values(((ht_123)(1/linklet-directory->hash c_34)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_121)))" -"((letrec-values(((for-loop_229)" -"(lambda(table_186 i_151)" +"(let-values()(check-in-hash ht_123)))" +"((letrec-values(((for-loop_235)" +"(lambda(table_186 i_154)" "(begin" " 'for-loop" -"(if i_151" -"(let-values(((key_30 val_62)(hash-iterate-key+value ht_121 i_151)))" +"(if i_154" +"(let-values(((key_70 val_61)(hash-iterate-key+value ht_123 i_154)))" "(let-values(((table_187)" -"(let-values(((table_188) table_186))" -"(let-values(((table_105)" +"(let-values(((table_105) table_186))" +"(let-values(((table_188)" "(let-values()" -"(let-values(((key_70 val_63)" +"(let-values(((key_71 val_62)" "(let-values()" "(values" -" key_30" -"(if(not key_30)" +" key_70" +"(if(not key_70)" "(update-one-name" -" val_62" +" val_61" " full-name_0)" "(recur_0" -" val_62" -" key_30))))))" +" val_61" +" key_70))))))" "(hash-set" -" table_188" -" key_70" -" val_63)))))" -"(values table_105)))))" +" table_105" +" key_71" +" val_62)))))" +"(values table_188)))))" "(if(not #f)" -"(for-loop_229 table_187(hash-iterate-next ht_121 i_151))" +"(for-loop_235 table_187(hash-iterate-next ht_123 i_154))" " table_187)))" " table_186)))))" -" for-loop_229)" +" for-loop_235)" " '#hasheq()" -"(hash-iterate-first ht_121))))))" +"(hash-iterate-first ht_123))))))" "(let-values()(update-one-name c_34 full-name_0))))))))))" "(define-values" "(update-one-name)" -"(lambda(lb_0 name_52)(begin(1/hash->linklet-bundle(hash-set(1/linklet-bundle->hash lb_0) 'name name_52)))))" +"(lambda(lb_0 name_53)(begin(1/hash->linklet-bundle(hash-set(1/linklet-bundle->hash lb_0) 'name name_53)))))" "(define-values" "(rebuild-linklet-directory5.1)" "(lambda(bundle-ok?1_0 bundle-ok?2_0 main3_0 submods4_0)" @@ -34766,44 +34584,44 @@ static const char *startup_source = " main_0" "(1/hash->linklet-directory" "(hash-set" -"(let-values(((lst_86) submods_0))" +"(let-values(((lst_171) submods_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_86)))" -"((letrec-values(((for-loop_222)" -"(lambda(ht_113 lst_268)" +"(let-values()(check-list lst_171)))" +"((letrec-values(((for-loop_46)" +"(lambda(ht_124 lst_272)" "(begin" " 'for-loop" -"(if(pair? lst_268)" -"(let-values(((submod_1)(unsafe-car lst_268))" -"((rest_87)(unsafe-cdr lst_268)))" -"(let-values(((ht_122)" -"(let-values(((ht_123) ht_113))" -"(let-values(((ht_124)" +"(if(pair? lst_272)" +"(let-values(((submod_1)(unsafe-car lst_272))" +"((rest_147)(unsafe-cdr lst_272)))" +"(let-values(((ht_125)" +"(let-values(((ht_126) ht_124))" +"(let-values(((ht_115)" "(let-values()" -"(let-values(((name_53)" +"(let-values(((name_54)" "(module-compiled-immediate-name" " submod_1)))" -"(if(hash-ref ht_123 name_53 #f)" +"(if(hash-ref ht_126 name_54 #f)" "(let-values()" "(raise-arguments-error" " 'module-compiled-submodules" " \"change would result in duplicate submodule name\"" " \"name\"" -" name_53))" +" name_54))" "(let-values()" "(hash-set" -" ht_123" -" name_53" +" ht_126" +" name_54" "(compiled->linklet-directory-or-bundle" " submod_1))))))))" -"(values ht_124)))))" -"(if(not #f)(for-loop_222 ht_122 rest_87) ht_122)))" -" ht_113)))))" -" for-loop_222)" +"(values ht_115)))))" +"(if(not #f)(for-loop_46 ht_125 rest_147) ht_125)))" +" ht_124)))))" +" for-loop_46)" " '#hasheq()" -" lst_86)))" +" lst_171)))" " #f" " main_0))))))))))" "(define-values" @@ -34822,15 +34640,15 @@ static const char *startup_source = "(begin" " 'compiled-module-expression?" "(let-values(((ld_3)(compiled->linklet-directory-or-bundle c_35)))" -"(let-values(((or-part_32)" +"(let-values(((or-part_26)" "(if(1/linklet-directory? ld_3)" -"(if(let-values(((b_75)(hash-ref(1/linklet-directory->hash ld_3) #f #f)))" -"(if b_75(hash-ref(1/linklet-bundle->hash b_75) 'decl #f) #f))" +"(if(let-values(((b_74)(hash-ref(1/linklet-directory->hash ld_3) #f #f)))" +"(if b_74(hash-ref(1/linklet-bundle->hash b_74) 'decl #f) #f))" " #t" " #f)" " #f)))" -"(if or-part_32" -" or-part_32" +"(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)))))))" "(define-values" "(1/module-compiled-name)" @@ -34843,7 +34661,7 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'module-compiled-name \"compiled-module-expression?\" c_18)))" "(module-compiled-current-name c_18))))" -"((c_36 name_54)" +"((c_36 name_55)" "(let-values((()" "(begin" "(if(1/compiled-module-expression? c_36)" @@ -34852,21 +34670,21 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_13)(symbol? name_54)))" +"(if(let-values(((or-part_13)(symbol? name_55)))" "(if or-part_13" " or-part_13" -"(if(pair? name_54)(if(list? name_54)(andmap2 symbol? name_54) #f) #f)))" +"(if(pair? name_55)(if(list? name_55)(andmap2 symbol? name_55) #f) #f)))" "(void)" "(let-values()" "(raise-argument-error" " 'module-compiled-name" " \"(or/c symbol? (cons/c symbol? (non-empty-listof symbol?)))\"" -" name_54)))" +" name_55)))" "(values))))" "(let-values(((i-name_0 prefix_5)" -"(if(symbol? name_54)" -"(values name_54 null)" -"(let-values(((r_41)(reverse$1 name_54)))(values(car r_41)(reverse$1(cdr r_41)))))))" +"(if(symbol? name_55)" +"(values name_55 null)" +"(let-values(((r_40)(reverse$1 name_55)))(values(car r_40)(reverse$1(cdr r_40)))))))" "(change-module-name c_36 i-name_0 prefix_5)))))))" "(define-values" "(1/module-compiled-submodules)" @@ -34886,36 +34704,36 @@ static const char *startup_source = "(let-values()" "(if(1/linklet-directory? c_37)" "(let-values()" -"(let-values(((ht_125)(1/linklet-directory->hash c_37)))" -"(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_125 #f))))" +"(let-values(((ht_127)(1/linklet-directory->hash c_37)))" +"(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_127 #f))))" "(let-values(((names_1)(hash-ref bh_0(if non-star?_0 'pre 'post) null)))" "(reverse$1" -"(let-values(((lst_75) names_1))" +"(let-values(((lst_77) names_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_75)))" -"((letrec-values(((for-loop_70)" -"(lambda(fold-var_30 lst_269)" +"(let-values()(check-list lst_77)))" +"((letrec-values(((for-loop_69)" +"(lambda(fold-var_30 lst_273)" "(begin" " 'for-loop" -"(if(pair? lst_269)" -"(let-values(((name_55)(unsafe-car lst_269))" -"((rest_144)(unsafe-cdr lst_269)))" +"(if(pair? lst_273)" +"(let-values(((name_56)(unsafe-car lst_273))" +"((rest_148)(unsafe-cdr lst_273)))" "(let-values(((fold-var_31)" "(let-values(((fold-var_32) fold-var_30))" "(let-values(((fold-var_33)" "(let-values()" "(cons" "(let-values()" -"(hash-ref ht_125 name_55))" +"(hash-ref ht_127 name_56))" " fold-var_32))))" "(values fold-var_33)))))" -"(if(not #f)(for-loop_70 fold-var_31 rest_144) fold-var_31)))" +"(if(not #f)(for-loop_69 fold-var_31 rest_148) fold-var_31)))" " fold-var_30)))))" -" for-loop_70)" +" for-loop_69)" " null" -" lst_75))))))))" +" lst_77))))))))" "(let-values() null)))))))" "((c_38 non-star?_1 submods_1)" "(begin" @@ -34927,9 +34745,9 @@ static const char *startup_source = "(let-values()" " (raise-argument-error 'module-compiled-submodules \"(listof compiled-module-expression?)\" submods_1)))" "(if(if(null? submods_1)" -"(let-values(((or-part_35)(1/linklet-bundle?(compiled->linklet-directory-or-bundle c_38))))" -"(if or-part_35" -" or-part_35" +"(let-values(((or-part_76)(1/linklet-bundle?(compiled->linklet-directory-or-bundle c_38))))" +"(if or-part_76" +" or-part_76" "(if(compiled-in-memory? c_38)" "(null?" "(if non-star?_1" @@ -35053,22 +34871,22 @@ static const char *startup_source = "(let-values(((max-phase_3)(hash-ref h_8 'max-phase 0)))" "(variables->api-nonprovides" "(1/instance-variable-value inst_4 'provides)" -"(let-values(((start_36) min-phase_3)((end_25)(add1 max-phase_3))((inc_19) 1))" +"(let-values(((start_38) min-phase_3)((end_27)(add1 max-phase_3))((inc_21) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-range start_36 end_25 inc_19)))" -"((letrec-values(((for-loop_27)" -"(lambda(table_102 pos_95)" +"(let-values()(check-range start_38 end_27 inc_21)))" +"((letrec-values(((for-loop_100)" +"(lambda(table_102 pos_100)" "(begin" " 'for-loop" -"(if(< pos_95 end_25)" -"(let-values(((phase-level_20) pos_95))" +"(if(< pos_100 end_27)" +"(let-values(((phase-level_20) pos_100))" +"(let-values(((table_109)" +"(let-values(((table_54) table_102))" "(let-values(((table_189)" -"(let-values(((table_109) table_102))" -"(let-values(((table_54)" "(let-values()" -"(let-values(((key_71 val_48)" +"(let-values(((key_72 val_47)" "(let-values()" "(let-values(((linklet_6)" "(hash-ref" @@ -35081,13 +34899,13 @@ static const char *startup_source = "(1/linklet-export-variables" " linklet_6)" " null))))))" -"(hash-set table_109 key_71 val_48)))))" -"(values table_54)))))" -"(if(not #f)(for-loop_27 table_189(+ pos_95 inc_19)) table_189)))" +"(hash-set table_54 key_72 val_47)))))" +"(values table_189)))))" +"(if(not #f)(for-loop_100 table_109(+ pos_100 inc_21)) table_109)))" " table_102)))))" -" for-loop_27)" +" for-loop_100)" " '#hash()" -" start_36)))))))))))" +" start_38)))))))))))" "(define-values" "(1/module-compiled-cross-phase-persistent?)" "(lambda(c_43)" @@ -35137,11 +34955,11 @@ static const char *startup_source = "(lambda(c_45)(begin(1/module-compiled-name c_45(1/module-compiled-name c_45)))))" "(define-values" "(reset-submodule-names)" -"(lambda(b_76 pre?_1 submods_2)" +"(lambda(b_75 pre?_1 submods_2)" "(begin" "(1/hash->linklet-bundle" "(hash-set" -"(1/linklet-bundle->hash b_76)" +"(1/linklet-bundle->hash b_75)" "(if pre?_1 'pre 'post)" "(map2 module-compiled-immediate-name submods_2))))))" "(define-values" @@ -35160,7 +34978,7 @@ static const char *startup_source = " cctx12_1)" "(begin" " 'compile-module13" -"(let-values(((p_39) p11_1))" +"(let-values(((p_35) p11_1))" "(let-values(((cctx_16) cctx12_1))" "(let-values(((force-linklet-directory?_0)(if force-linklet-directory?6_0 force-linklet-directory?1_0 #f)))" "(let-values(((serializable?_2)(if serializable?7_0 serializable?2_0 #f)))" @@ -35172,88 +34990,90 @@ static const char *startup_source = "(let-values()" "(let-values(((full-module-name_1)" "(let-values(((parent-full-name_0)(compile-context-full-module-name cctx_16))" -"((name_56)(syntax-e$1(parsed-module-name-id p_39))))" +"((name_57)(syntax-e$1(parsed-module-name-id p_35))))" "(if parent-full-name_0" "(append" "(if(list? parent-full-name_0) parent-full-name_0(list parent-full-name_0))" -"(list name_56))" -" name_56))))" -"(let-values(((compiled-submodules_0)(parsed-module-compiled-submodules p_39)))" +"(list name_57))" +" name_57))))" +"(let-values(((compiled-submodules_0)(parsed-module-compiled-submodules p_35)))" "(let-values(((get-submodules_0)" "(lambda(star?_0)" "(begin" " 'get-submodules" "(reverse$1" -"(let-values(((ht_126) compiled-submodules_0))" +"(let-values(((ht_119) compiled-submodules_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_126)))" -"((letrec-values(((for-loop_101)" -"(lambda(fold-var_64 i_152)" +"(let-values()(check-in-hash ht_119)))" +"((letrec-values(((for-loop_103)" +"(lambda(fold-var_67 i_155)" "(begin" " 'for-loop" -"(if i_152" -"(let-values(((name_57 star?+compiled_0)" +"(if i_155" +"(let-values(((name_58 star?+compiled_0)" "(hash-iterate-key+value" -" ht_126" -" i_152)))" +" ht_119" +" i_155)))" "(let-values(((fold-var_29)" -"(let-values(((fold-var_151)" -" fold-var_64))" +"(let-values(((fold-var_152)" +" fold-var_67))" "(if(eq?" " star?_0" "(car star?+compiled_0))" "(let-values(((fold-var_9)" -" fold-var_151))" -"(let-values(((fold-var_65)" +" fold-var_152))" +"(let-values(((fold-var_68)" "(let-values()" "(cons" "(let-values()" "(cons" -" name_57" +" name_58" "(if(if need-compiled-submodule-rename?_0" "(not" "(parsed-module-compiled-module" -" p_39))" +" p_35))" " #f)" "(update-submodule-names" "(cdr" " star?+compiled_0)" -" name_57" +" name_58" " full-module-name_1)" "(cdr" " star?+compiled_0))))" " fold-var_9))))" -"(values fold-var_65)))" -" fold-var_151))))" +"(values fold-var_68)))" +" fold-var_152))))" "(if(not #f)" -"(for-loop_101" +"(for-loop_103" " fold-var_29" -"(hash-iterate-next ht_126 i_152))" +"(hash-iterate-next ht_119 i_155))" " fold-var_29)))" -" fold-var_64)))))" -" for-loop_101)" +" fold-var_67)))))" +" for-loop_103)" " null" -"(hash-iterate-first ht_126)))))))))" +"(hash-iterate-first ht_119)))))))))" "(let-values(((pre-submodules_0)(get-submodules_0 #f)))" "(let-values(((post-submodules_0)(get-submodules_0 #t)))" -"(let-values(((c1_25)(parsed-module-compiled-module p_39)))" +"(let-values(((c1_25)(parsed-module-compiled-module p_35)))" "(if c1_25" "((lambda(c_46)" -"(let-values(((name_58 prefix_6)" +"(let-values(((name_59 prefix_6)" "(if(symbol? full-module-name_1)" "(values full-module-name_1 null)" "(let-values(((r_10)(reverse$1 full-module-name_1)))" "(values(car r_10)(reverse$1(cdr r_10)))))))" -"(let-values(((m_18)(change-module-name c_46 name_58 prefix_6)))" +"(let-values(((m_18)(change-module-name c_46 name_59 prefix_6)))" "(1/module-compiled-submodules" "(1/module-compiled-submodules m_18 #t(map2 cdr pre-submodules_0))" " #f" "(map2 cdr post-submodules_0)))))" " c1_25)" "(let-values()" -"(let-values(((full-module-name39_0) full-module-name_1)" +"(let-values(((p37_0) p_35)" +"((cctx38_0) cctx_16)" +"((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?_3)" @@ -35271,8 +35091,8 @@ static const char *startup_source = " pre-submodules44_0" " serializable?41_0" " to-source?42_0" -" p_39" -" cctx_16)))))))))))))))))))))" +" p37_0" +" cctx38_0)))))))))))))))))))))" "(define-values" "(compile-module-from-parsed34.1)" "(lambda(force-linklet-directory?17_0" @@ -35287,7 +35107,7 @@ static const char *startup_source = " cctx33_0)" "(begin" " 'compile-module-from-parsed34" -"(let-values(((p_29) p32_0))" +"(let-values(((p_45) p32_0))" "(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))" @@ -35300,24 +35120,24 @@ static const char *startup_source = "(let-values()" "(let-values()" "(let-values(((enclosing-self_0)(compile-context-module-self cctx_17)))" -"(let-values(((self_27)(parsed-module-self p_29)))" -"(let-values(((requires_5)(parsed-module-requires p_29)))" -"(let-values(((provides_11)(parsed-module-provides p_29)))" +"(let-values(((self_25)(parsed-module-self p_45)))" +"(let-values(((requires_5)(parsed-module-requires p_45)))" +"(let-values(((provides_11)(parsed-module-provides p_45)))" "(let-values(((encoded-root-expand-ctx-box_1)" -"(box(parsed-module-encoded-root-ctx p_29))))" -"(let-values(((body-context-simple?_0)(parsed-module-root-ctx-simple? p_29)))" +"(box(parsed-module-encoded-root-ctx p_45))))" +"(let-values(((body-context-simple?_0)(parsed-module-root-ctx-simple? p_45)))" "(let-values(((language-info_2)" "(filter-language-info" -"(syntax-property$1(parsed-s p_29) 'module-language))))" -"(let-values(((bodys_6)(parsed-module-body p_29)))" +"(syntax-property$1(parsed-s p_45) 'module-language))))" +"(let-values(((bodys_6)(parsed-module-body p_45)))" "(let-values(((empty-result-for-module->namespace?_0) #f))" -"(let-values(((mpis_3)(make-module-path-index-table)))" +"(let-values(((mpis_18)(make-module-path-index-table)))" "(let-values(((body-cctx_0)" "(let-values(((the-struct_60) cctx_17))" "(if(compile-context? the-struct_60)" "(let-values(((phase47_1) 0)" -"((self48_0) self_27)" -"((module-self49_0) self_27)" +"((self48_0) self_25)" +"((module-self49_0) self_25)" "((full-module-name50_0)" " full-module-name_2)" "((lazy-syntax-literals?51_0) #t))" @@ -35336,16 +35156,19 @@ static const char *startup_source = "(let-values(((cross-phase-persistent?_2) #f))" "(let-values(((side-effects_0)(make-hasheqv)))" "(let-values(((check-side-effects!_0)" -"(lambda(e_71" +"(lambda(e_74" " expected-results_3" -" phase_91" +" phase_21" " required-reference?_1)" "(begin" " 'check-side-effects!" -"(if(hash-ref side-effects_0 phase_91 #f)" +"(if(hash-ref side-effects_0 phase_21 #f)" "(void)" "(let-values()" -"(if(let-values(((required-reference?54_0)" +"(if(let-values(((e52_2) e_74)" +"((expected-results53_0)" +" expected-results_3)" +"((required-reference?54_0)" " required-reference?_1))" "(any-side-effects?9.1" " #f" @@ -35354,12 +35177,12 @@ static const char *startup_source = " #f" " required-reference?54_0" " #t" -" e_71" -" expected-results_3))" +" e52_2" +" expected-results53_0))" "(let-values()" "(hash-set!" " side-effects_0" -" phase_91" +" phase_21" " #t))" "(void))))))))" "(let-values((()" @@ -35377,7 +35200,7 @@ static const char *startup_source = "(register-compiled-submodules" " modules-being-compiled_1" " pre-submodules_1" -" self_27)))" +" self_25)))" "(void))" "(values))))" "(let-values(((body-linklets_2" @@ -35388,11 +35211,14 @@ static const char *startup_source = " phase-to-link-extra-inspectorsss_2" " syntax-literals_4" " root-ctx-pos_0)" -"(let-values(((temp58_2)" +"(let-values(((bodys55_0) bodys_6)" +"((body-cctx56_0) body-cctx_0)" +"((mpis57_0) mpis_18)" +"((temp58_1)" "(list" "(list get-syntax-literal!-id)" "(list set-transformer!-id)))" -"((temp59_2)" +"((temp59_1)" "(list" " empty-syntax-literals-instance" " empty-module-body-instance))" @@ -35408,64 +35234,64 @@ static const char *startup_source = "(lambda(body_4 cctx_18)" "(if(parsed-#%declare? body_4)" "(let-values()" -"(let-values(((ok?_26" +"(let-values(((ok?_25" " _69_0" " kw70_0)" -"(let-values(((s_389)" +"(let-values(((s_382)" "(parsed-s" " body_4)))" -"(let-values(((orig-s_30)" -" s_389))" +"(let-values(((orig-s_29)" +" s_382))" "(let-values(((_69_1" " kw70_1)" -"(let-values(((s_390)" +"(let-values(((s_383)" "(if(syntax?$1" -" s_389)" +" s_382)" "(syntax-e$1" -" s_389)" -" s_389)))" +" s_382)" +" s_382)))" "(if(pair?" -" s_390)" +" s_383)" "(let-values(((_71_0)" -"(let-values(((s_391)" +"(let-values(((s_56)" "(car" -" s_390)))" -" s_391))" +" s_383)))" +" s_56))" "((kw72_0)" -"(let-values(((s_34)" +"(let-values(((s_384)" "(cdr" -" s_390)))" -"(let-values(((s_392)" +" s_383)))" +"(let-values(((s_385)" "(if(syntax?$1" -" s_34)" +" s_384)" "(syntax-e$1" -" s_34)" -" s_34)))" -"(let-values(((flat-s_19)" +" s_384)" +" s_384)))" +"(let-values(((flat-s_18)" "(to-syntax-list.1" -" s_392)))" +" s_385)))" "(if(not" -" flat-s_19)" +" flat-s_18)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_30))" +" orig-s_29))" "(let-values()" -" flat-s_19)))))))" +" flat-s_18)))))))" "(values" " _71_0" " kw72_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_30)))))" +" orig-s_29)))))" "(values" " #t" " _69_1" " kw70_1))))))" "(begin" -"(let-values(((lst_222)" +"(let-values(((lst_274)" " kw70_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -35473,19 +35299,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_222)))" -"((letrec-values(((for-loop_230)" -"(lambda(lst_270)" +" lst_274)))" +"((letrec-values(((for-loop_13)" +"(lambda(lst_29)" "(begin" " 'for-loop" "(if(pair?" -" lst_270)" -"(let-values(((kw_1)" +" lst_29)" +"(let-values(((kw_0)" "(unsafe-car" -" lst_270))" -"((rest_145)" +" lst_29))" +"((rest_149)" "(unsafe-cdr" -" lst_270)))" +" lst_29)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -35495,7 +35321,7 @@ static const char *startup_source = "(begin" "(if(eq?" "(syntax-e$1" -" kw_1)" +" kw_0)" " '#:cross-phase-persistent)" "(let-values()" "(set! cross-phase-persistent?_2" @@ -35503,7 +35329,7 @@ static const char *startup_source = "(void))" "(if(eq?" "(syntax-e$1" -" kw_1)" +" kw_0)" " '#:empty-namespace)" "(let-values()" "(begin" @@ -35517,36 +35343,36 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_230" -" rest_145)" +"(for-loop_13" +" rest_149)" "(values))))" "(values))))))" -" for-loop_230)" -" lst_222)))" +" for-loop_13)" +" lst_274)))" "(void)" " #f)))" "(let-values() #f))))" "((temp66_1)" -"(lambda(mod-name_17 phase_92)" -"(let-values(((ht_127)" +"(lambda(mod-name_17 phase_89)" +"(let-values(((ht_41)" "(if modules-being-compiled_1" "(hash-ref" " modules-being-compiled_1" " mod-name_17" " #f)" " #f)))" -"(if ht_127" +"(if ht_41" "(hash-ref" -" ht_127" -" phase_92" +" ht_41" +" phase_89" " #f)" " #f))))" "((to-source?67_0) to-source?_4)" "((serializable?68_0)" " serializable?_3))" "(compile-forms31.1" -" temp59_2" -" temp58_2" +" temp59_1" +" temp58_1" " temp60_2" " #t" " check-side-effects!64_0" @@ -35569,16 +35395,16 @@ static const char *startup_source = " #t" " to-source?67_0" " #t" -" bodys_6" -" body-cctx_0" -" mpis_3))))" +" bodys55_0" +" body-cctx56_0" +" mpis57_0))))" "(let-values((()" "(begin" "(if modules-being-compiled_1" "(let-values()" "(hash-set!" " modules-being-compiled_1" -"(1/module-path-index-resolve self_27)" +"(1/module-path-index-resolve self_25)" "(let-values(((ht_128)" " body-linklets_2))" "(begin" @@ -35587,58 +35413,58 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash ht_128)))" -"((letrec-values(((for-loop_231)" +"((letrec-values(((for-loop_236)" "(lambda(table_190" -" i_153)" +" i_156)" "(begin" " 'for-loop" -"(if i_153" -"(let-values(((phase_93" +"(if i_156" +"(let-values(((phase_90" " linklet_7)" "(hash-iterate-key+value" " ht_128" -" i_153)))" -"(let-values(((table_191)" -"(let-values(((table_43)" +" i_156)))" +"(let-values(((table_46)" +"(let-values(((table_47)" " table_190))" -"(let-values(((table_87)" +"(let-values(((table_48)" "(let-values()" -"(let-values(((key_72" -" val_64)" +"(let-values(((key_21" +" val_11)" "(let-values()" "(values" -" phase_93" +" phase_90" "(module-linklet-info2.1" " linklet_7" "(hash-ref" " phase-to-link-module-uses_4" -" phase_93" +" phase_90" " #f)" -" self_27" +" self_25" " #f" " #f" "(if phase-to-link-extra-inspectorsss_2" "(hash-ref" " phase-to-link-extra-inspectorsss_2" -" phase_93" +" phase_90" " #f)" " #f))))))" "(hash-set" -" table_43" -" key_72" -" val_64)))))" +" table_47" +" key_21" +" val_11)))))" "(values" -" table_87)))))" +" table_48)))))" "(if(not" " #f)" -"(for-loop_231" -" table_191" +"(for-loop_236" +" table_46" "(hash-iterate-next" " ht_128" -" i_153))" -" table_191)))" +" i_156))" +" table_46)))" " table_190)))))" -" for-loop_231)" +" for-loop_236)" " '#hasheq()" "(hash-iterate-first ht_128))))))" "(void))" @@ -35647,11 +35473,9 @@ static const char *startup_source = "(if serializable?_3" "((if to-source?_4" " values" -"(lambda(s_197)" +"(lambda(s_37)" "(let-values()" -"(1/compile-linklet" -" s_197" -" 'decl))))" +"(1/compile-linklet s_37 'decl))))" "(list" " 'linklet" "(list" @@ -35665,26 +35489,32 @@ static const char *startup_source = " 'define-values" " '(self-mpi)" "(add-module-path-index!" -" mpis_3" -" self_27))" +" mpis_18" +" self_25))" "(list" " 'define-values" " '(requires)" -"(let-values(((temp75_0) #f))" +"(let-values(((requires73_0)" +" requires_5)" +"((mpis74_0) mpis_18)" +"((temp75_0) #f))" "(generate-deserialize6.1" " temp75_0" " #t" -" requires_5" -" mpis_3)))" +" requires73_0" +" mpis74_0)))" "(list" " 'define-values" " '(provides)" -"(let-values(((temp78_1) #f))" +"(let-values(((provides76_0)" +" provides_11)" +"((mpis77_0) mpis_18)" +"((temp78_1) #f))" "(generate-deserialize6.1" " temp78_1" " #t" -" provides_11" -" mpis_3)))" +" provides76_0" +" mpis77_0)))" "(list" " 'define-values" " '(phase-to-link-modules)" @@ -35696,12 +35526,12 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_4" " values" -"(lambda(s_393)" +"(lambda(s_85)" "(let-values()" "(let-values(((linklet_8" " new-keys_1)" "(1/compile-linklet" -" s_393" +" s_85" " 'syntax-literals" "(vector" " deserialize-instance" @@ -35729,15 +35559,19 @@ static const char *startup_source = " get-syntax-literal!-id" " '(get-encoded-root-expand-ctx))" "(qq-append" -"(let-values(((temp82_0)" +"(let-values(((syntax-literals79_0)" +" syntax-literals_4)" +"((mpis80_0) mpis_18)" +"((self81_0) self_25)" +"((temp82_0)" "(not" " serializable?_3)))" "(generate-lazy-syntax-literals!9.1" " temp82_0" " #t" -" syntax-literals_4" -" mpis_3" -" self_27))" +" syntax-literals79_0" +" mpis80_0" +" self81_0))" "(list" "(list" " 'define-values" @@ -35760,10 +35594,10 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_4" " values" -"(lambda(s_86)" +"(lambda(s_386)" "(let-values()" "(1/compile-linklet" -" s_86" +" s_386" " 'syntax-literals-data))))" "(list*" " 'linklet" @@ -35785,17 +35619,17 @@ static const char *startup_source = "(let-values()" "(generate-lazy-syntax-literals-data!" " syntax-literals_4" -" mpis_3))))" +" mpis_18))))" " #f)" " #f)))" "(let-values(((data-linklet_0)" "(if serializable?_3" "((if to-source?_4" " values" -"(lambda(s_320)" +"(lambda(s_199)" "(let-values()" "(1/compile-linklet" -" s_320" +" s_199" " 'data))))" "(list" " 'linklet" @@ -35809,7 +35643,7 @@ static const char *startup_source = " 'define-values" "(list mpi-vector-id)" "(generate-module-path-index-deserialize" -" mpis_3))))" +" mpis_18))))" " #f)))" "(let-values(((bundle_1)" "(let-values(((bundle_2)" @@ -35821,10 +35655,10 @@ static const char *startup_source = "(hash-set" " bundle_2" " 'decl" -"(let-values(((or-part_266)" +"(let-values(((or-part_258)" " declaration-linklet_0))" -"(if or-part_266" -" or-part_266" +"(if or-part_258" +" or-part_258" " 'in-memory)))))" "(let-values(((bundle_4)" "(if data-linklet_0" @@ -35938,7 +35772,7 @@ static const char *startup_source = "((if to-source?_4" " values" " 1/hash->linklet-directory)" -"(let-values(((lst_271)" +"(let-values(((lst_155)" "(append" " pre-submodules_1" " post-submodules_1)))" @@ -35948,24 +35782,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_271)))" -"((letrec-values(((for-loop_232)" +" lst_155)))" +"((letrec-values(((for-loop_177)" "(lambda(ht_129" -" lst_226)" +" lst_107)" "(begin" " 'for-loop" "(if(pair?" -" lst_226)" +" lst_107)" "(let-values(((sm_0)" "(unsafe-car" -" lst_226))" -"((rest_146)" +" lst_107))" +"((rest_78)" "(unsafe-cdr" -" lst_226)))" +" lst_107)))" "(let-values(((ht_130)" "(let-values(((ht_131)" " ht_129))" -"(let-values(((ht_42)" +"(let-values(((ht_120)" "(let-values()" "(hash-set" " ht_131" @@ -35977,29 +35811,29 @@ static const char *startup_source = "(cdr" " sm_0))))))" "(values" -" ht_42)))))" +" ht_120)))))" "(if(not" " #f)" -"(for-loop_232" +"(for-loop_177" " ht_130" -" rest_146)" +" rest_78)" " ht_130)))" " ht_129)))))" -" for-loop_232)" +" for-loop_177)" "(hasheq #f bundle_1)" -" lst_271))))))))" +" lst_155))))))))" "(if to-source?_4" "(let-values() ld_4)" "(let-values()" "(compiled-in-memory1.1" " ld_4" -" self_27" +" self_25" " requires_5" " provides_11" " phase-to-link-module-uses_4" "(current-code-inspector)" " phase-to-link-extra-inspectorsss_2" -"(mpis-as-vector mpis_3)" +"(mpis-as-vector mpis_18)" "(syntax-literals-as-vector" " syntax-literals_4)" "(map2 cdr pre-submodules_1)" @@ -36008,34 +35842,34 @@ static const char *startup_source = " #f)))))))))))))))))))))))))))))))))))))))))" "(define-values" "(update-submodule-names)" -"(lambda(cim_9 name_59 full-module-name_3)" +"(lambda(cim_9 name_60 full-module-name_3)" "(begin" "(change-module-name" " cim_9" -" name_59" +" name_60" "(if(symbol? full-module-name_3)(list full-module-name_3)(reverse$1(cdr(reverse$1 full-module-name_3))))))))" "(define-values" "(register-compiled-submodules)" -"(lambda(modules-being-compiled_2 pre-submodules_2 self_28)" +"(lambda(modules-being-compiled_2 pre-submodules_2 self_26)" "(begin" "(begin" -"(let-values(((lst_155) pre-submodules_2))" +"(let-values(((lst_275) pre-submodules_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_155)))" -"((letrec-values(((for-loop_233)" -"(lambda(lst_272)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_275)))" +"((letrec-values(((for-loop_237)" +"(lambda(lst_276)" "(begin" " 'for-loop" -"(if(pair? lst_272)" -"(let-values(((s_101)(unsafe-car lst_272))((rest_147)(unsafe-cdr lst_272)))" +"(if(pair? lst_276)" +"(let-values(((s_387)(unsafe-car lst_276))((rest_150)(unsafe-cdr lst_276)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((name_60)(car s_101)))" -"(let-values(((cim_10)(cdr s_101)))" +"(let-values(((name_61)(car s_387)))" +"(let-values(((cim_10)(cdr s_387)))" "(let-values(((phase-to-link-module-uses_5)" "(compiled-in-memory-phase-to-link-module-uses" " cim_10)))" @@ -36047,8 +35881,8 @@ static const char *startup_source = "(list" " 'submod" " \".\"" -" name_60)" -" self_28)))" +" name_61)" +" self_26)))" "(let-values(((phase-to-extra-inspectorsss_0)" "(compiled-in-memory-phase-to-link-extra-inspectorsss" " cim_10)))" @@ -36071,36 +35905,36 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash ht_132)))" -"((letrec-values(((for-loop_234)" -"(lambda(table_157" -" i_154)" +"((letrec-values(((for-loop_238)" +"(lambda(table_191" +" i_5)" "(begin" " 'for-loop" -"(if i_154" -"(let-values(((phase_94" +"(if i_5" +"(let-values(((phase_13" " linklet_9)" "(hash-iterate-key+value" " ht_132" -" i_154)))" +" i_5)))" "(let-values(((table_192)" "(let-values(((table_193)" -" table_157))" +" table_191))" "(if(number?" -" phase_94)" -"(let-values(((table_159)" -" table_193))" +" phase_13)" "(let-values(((table_194)" +" table_193))" +"(let-values(((table_195)" "(let-values()" "(let-values(((key_73" -" val_65)" +" val_63)" "(let-values()" "(values" -" phase_94" +" phase_13" "(module-linklet-info2.1" " linklet_9" "(hash-ref" " phase-to-link-module-uses_5" -" phase_94" +" phase_13" " #f)" "(compiled-in-memory-original-self" " cim_10)" @@ -36110,35 +35944,35 @@ static const char *startup_source = "(if phase-to-extra-inspectorsss_0" "(hash-ref" " phase-to-extra-inspectorsss_0" -" phase_94" +" phase_13" " #f)" " #f))))))" "(hash-set" -" table_159" +" table_194" " key_73" -" val_65)))))" +" val_63)))))" "(values" -" table_194)))" +" table_195)))" " table_193))))" "(if(not" " #f)" -"(for-loop_234" +"(for-loop_238" " table_192" "(hash-iterate-next" " ht_132" -" i_154))" +" i_5))" " table_192)))" -" table_157)))))" -" for-loop_234)" +" table_191)))))" +" for-loop_238)" " '#hasheq()" "(hash-iterate-first" " ht_132))))))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_233 rest_147)(values))))" +"(if(not #f)(for-loop_237 rest_150)(values))))" "(values))))))" -" for-loop_233)" -" lst_155)))" +" for-loop_237)" +" lst_275)))" "(void)))))" "(define-values" "(filter-language-info)" @@ -36166,33 +36000,33 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_133)))" -"((letrec-values(((for-loop_235)" -"(lambda(table_195 i_155)" +"((letrec-values(((for-loop_239)" +"(lambda(table_196 i_157)" "(begin" " 'for-loop" -"(if i_155" -"(let-values(((k_32 v_71)(hash-iterate-key+value ht_133 i_155)))" -"(let-values(((table_196)" -"(let-values(((table_197) table_195))" -"(let-values(((table_198)" +"(if i_157" +"(let-values(((k_32 v_67)(hash-iterate-key+value ht_133 i_157)))" +"(let-values(((table_197)" +"(let-values(((table_198) table_196))" +"(let-values(((table_199)" "(let-values()" "(let-values(((key_28 val_18)" "(let-values()" -"(if(1/linklet? v_71)" +"(if(1/linklet? v_67)" "(let-values()" "(values" " k_32" "(1/recompile-linklet" -" v_71)))" +" v_67)))" "(let-values()" -"(values k_32 v_71))))))" -"(hash-set table_197 key_28 val_18)))))" -"(values table_198)))))" +"(values k_32 v_67))))))" +"(hash-set table_198 key_28 val_18)))))" +"(values table_199)))))" "(if(not #f)" -"(for-loop_235 table_196(hash-iterate-next ht_133 i_155))" -" table_196)))" -" table_195)))))" -" for-loop_235)" +"(for-loop_239 table_197(hash-iterate-next ht_133 i_157))" +" table_197)))" +" table_196)))))" +" for-loop_239)" " '#hasheq()" "(hash-iterate-first ht_133))))))" "(if(1/linklet-directory? c_31)" @@ -36203,17 +36037,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_134)))" -"((letrec-values(((for-loop_236)" -"(lambda(table_199 i_156)" +"((letrec-values(((for-loop_240)" +"(lambda(table_200 i_158)" "(begin" " 'for-loop" -"(if i_156" -"(let-values(((k_33 v_1)(hash-iterate-key+value ht_134 i_156)))" -"(let-values(((table_200)" -"(let-values(((table_201) table_199))" -"(let-values(((table_202)" +"(if i_158" +"(let-values(((k_33 v_1)(hash-iterate-key+value ht_134 i_158)))" +"(let-values(((table_201)" +"(let-values(((table_202) table_200))" +"(let-values(((table_203)" "(let-values()" -"(let-values(((key_74 val_66)" +"(let-values(((key_74 val_64)" "(let-values()" "(if(1/compiled-expression?" " v_1)" @@ -36224,13 +36058,13 @@ static const char *startup_source = " v_1)))" "(let-values()" "(values k_33 v_1))))))" -"(hash-set table_201 key_74 val_66)))))" -"(values table_202)))))" +"(hash-set table_202 key_74 val_64)))))" +"(values table_203)))))" "(if(not #f)" -"(for-loop_236 table_200(hash-iterate-next ht_134 i_156))" -" table_200)))" -" table_199)))))" -" for-loop_236)" +"(for-loop_240 table_201(hash-iterate-next ht_134 i_158))" +" table_201)))" +" table_200)))))" +" for-loop_240)" " '#hasheq()" "(hash-iterate-first ht_134))))))" "(let-values() c_31)))))))" @@ -36243,12 +36077,12 @@ static const char *startup_source = " data-linklet_1" "(list" " deserialize-instance" -"(let-values(((ns1_0) ns_58)" +"(let-values(((ns1_1) ns_58)" "((temp2_3)(namespace-phase ns_58))" "((temp3_3)(namespace-mpi ns_58))" "((temp4_2)(namespace-bulk-binding-registry ns_58))" "((temp5_4)(current-code-inspector)))" -"(make-eager-instance-instance11.1 temp4_2 temp2_3 temp5_4 ns1_0 temp3_3))))))" +"(make-eager-instance-instance11.1 temp4_2 temp2_3 temp5_4 ns1_1 temp3_3))))))" "(let-values(((data_0)(lambda(key_75)(begin 'data(1/instance-variable-value data-instance_5 key_75)))))" "(let-values(((mpi-vector_0)(data_0 mpi-vector-id)))" "(let-values(((mpi-vector-trees_0)(data_0 'mpi-vector-trees)))" @@ -36265,16 +36099,16 @@ static const char *startup_source = "(begin" " 'construct-compiled-in-memory" "(let-values(((is-module?_0)" -"(let-values(((or-part_82)(1/linklet-bundle? ld_6)))" -"(if or-part_82" -" or-part_82" -"(let-values(((b_77)" +"(let-values(((or-part_75)(1/linklet-bundle? ld_6)))" +"(if or-part_75" +" or-part_75" +"(let-values(((b_76)" "(hash-ref" "(1/linklet-directory->hash ld_6)" " #f" " #f)))" -"(if b_77" -"(hash-ref(1/linklet-bundle->hash b_77) 'decl #f)" +"(if b_76" +"(hash-ref(1/linklet-bundle->hash b_76) 'decl #f)" " #f))))))" "(let-values(((mpi-pos-vec_0)(vector-ref mpi-vector-tree_0 0)))" "(let-values(((syntax-literals-spec_0)" @@ -36288,20 +36122,20 @@ static const char *startup_source = "(extract-submodules ld_6 'post)" " null)))" "(let-values(((map-construct-compiled-in-memory_0)" -"(lambda(l_66 vec-pos_0)" +"(lambda(l_10 vec-pos_0)" "(begin" " 'map-construct-compiled-in-memory" "(reverse$1" -"(let-values(((lst_39) l_66)" -"((lst_261)" +"(let-values(((lst_266) l_10)" +"((lst_87)" "(vector-ref" " mpi-vector-tree_0" " vec-pos_0))" -"((lst_85)" +"((lst_161)" "(vector-ref" " phase-to-link-modules-tree_0" " vec-pos_0))" -"((lst_158)" +"((lst_264)" "(vector-ref" " syntax-literals-tree_0" " vec-pos_0)))" @@ -36309,66 +36143,66 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_39)))" +"(let-values()(check-list lst_266)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_261)))" +"(let-values()(check-list lst_87)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_85)))" +"(let-values()(check-list lst_161)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_158)))" -"((letrec-values(((for-loop_237)" -"(lambda(fold-var_29" -" lst_262" -" lst_263" +"(let-values()(check-list lst_264)))" +"((letrec-values(((for-loop_225)" +"(lambda(fold-var_152" +" lst_267" " lst_24" -" lst_169)" +" lst_170" +" lst_88)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_262)" -"(if(pair?" -" lst_263)" +" lst_267)" "(if(pair?" " lst_24)" +"(if(pair?" +" lst_170)" "(pair?" -" lst_169)" +" lst_88)" " #f)" " #f)" " #f)" "(let-values(((sub-ld_0)" "(unsafe-car" -" lst_262))" -"((rest_139)" +" lst_267))" +"((rest_151)" "(unsafe-cdr" -" lst_262))" +" lst_267))" "((mpi-vector-tree_1)" "(unsafe-car" -" lst_263))" -"((rest_140)" +" lst_24))" +"((rest_152)" "(unsafe-cdr" -" lst_263))" +" lst_24))" "((phase-to-link-modules-tree_1)" "(unsafe-car" -" lst_24))" -"((rest_41)" +" lst_170))" +"((rest_87)" "(unsafe-cdr" -" lst_24))" +" lst_170))" "((syntax-literals-tree_1)" "(unsafe-car" -" lst_169))" -"((rest_35)" +" lst_88))" +"((rest_36)" "(unsafe-cdr" -" lst_169)))" -"(let-values(((fold-var_154)" +" lst_88)))" "(let-values(((fold-var_164)" -" fold-var_29))" "(let-values(((fold-var_165)" +" fold-var_152))" +"(let-values(((fold-var_166)" "(let-values()" "(cons" "(let-values()" @@ -36377,24 +36211,24 @@ static const char *startup_source = " mpi-vector-tree_1" " phase-to-link-modules-tree_1" " syntax-literals-tree_1))" -" fold-var_164))))" +" fold-var_165))))" "(values" -" fold-var_165)))))" +" fold-var_166)))))" "(if(not #f)" -"(for-loop_237" -" fold-var_154" -" rest_139" -" rest_140" -" rest_41" -" rest_35)" -" fold-var_154)))" -" fold-var_29)))))" -" for-loop_237)" +"(for-loop_225" +" fold-var_164" +" rest_151" +" rest_152" +" rest_87" +" rest_36)" +" fold-var_164)))" +" fold-var_152)))))" +" for-loop_225)" " null" -" lst_39" -" lst_261" -" lst_85" -" lst_158))))))))" +" lst_266" +" lst_87" +" lst_161" +" lst_264))))))))" "(compiled-in-memory1.1" " ld_6" " #f" @@ -36414,7 +36248,7 @@ static const char *startup_source = " 'for/vector" " \"exact-nonnegative-integer?\"" " len_29)))" -"(let-values(((v_182)(make-vector len_29 0)))" +"(let-values(((v_63)(make-vector len_29 0)))" "(begin" "(if(zero? len_29)" "(void)" @@ -36430,54 +36264,54 @@ static const char *startup_source = " vec_61))))))" "(begin" " #f" -"((letrec-values(((for-loop_27)" -"(lambda(i_157 pos_95)" +"((letrec-values(((for-loop_100)" +"(lambda(i_159 pos_100)" "(begin" " 'for-loop" "(if(unsafe-fx<" -" pos_95" +" pos_100" " len_30)" -"(let-values(((pos_99)" +"(let-values(((pos_101)" "(unsafe-vector-ref" " vec_60" -" pos_95)))" -"(let-values(((i_158)" -"(let-values(((i_159)" -" i_157))" -"(let-values(((i_91)" +" pos_100)))" +"(let-values(((i_160)" +"(let-values(((i_94)" +" i_159))" +"(let-values(((i_58)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_182" -" i_159" +" v_63" +" i_94" "(let-values()" "(vector-ref" " mpi-vector_0" -" pos_99)))" +" pos_101)))" "(unsafe-fx+" " 1" -" i_159)))))" +" i_94)))))" "(values" -" i_91)))))" +" i_58)))))" "(if(if(not" -"((lambda x_72" +"((lambda x_19" "(unsafe-fx=" -" i_158" +" i_160" " len_29))" -" pos_99))" +" pos_101))" "(not #f)" " #f)" -"(for-loop_27" -" i_158" +"(for-loop_100" +" i_160" "(unsafe-fx+" " 1" -" pos_95))" -" i_158)))" -" i_157)))))" -" for-loop_27)" +" pos_100))" +" i_160)))" +" i_159)))))" +" for-loop_100)" " 0" " 0)))))" -" v_182))))" +" v_63))))" "(let-values(((len_31)(cdr syntax-literals-spec_0)))" "(begin" "(if(exact-nonnegative-integer? len_31)" @@ -36487,37 +36321,37 @@ static const char *startup_source = " 'for/vector" " \"exact-nonnegative-integer?\"" " len_31)))" -"(let-values(((v_183)(make-vector len_31 0)))" +"(let-values(((v_34)(make-vector len_31 0)))" "(begin" "(if(zero? len_31)" "(void)" "(let-values()" -"(let-values(((start_38) 0)" -"((end_27)" +"(let-values(((start_15) 0)" +"((end_28)" "(cdr syntax-literals-spec_0))" -"((inc_21) 1))" +"((inc_22) 1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-range start_38 end_27 inc_21)))" -"((letrec-values(((for-loop_0)" -"(lambda(i_160 pos_12)" +"(check-range start_15 end_28 inc_22)))" +"((letrec-values(((for-loop_241)" +"(lambda(i_161 pos_102)" "(begin" " 'for-loop" -"(if(< pos_12 end_27)" -"(let-values(((i_161)" -" pos_12))" +"(if(< pos_102 end_28)" "(let-values(((i_20)" +" pos_102))" "(let-values(((i_162)" -" i_160))" "(let-values(((i_34)" +" i_161))" +"(let-values(((i_95)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_183" -" i_162" +" v_34" +" i_34" "(let-values()" "(if syntax-literals_5" "(vector-ref" @@ -36525,32 +36359,32 @@ static const char *startup_source = "(+" "(car" " syntax-literals-spec_0)" -" i_161))" +" i_20))" " #f)))" "(unsafe-fx+" " 1" -" i_162)))))" -"(values" " i_34)))))" +"(values" +" i_95)))))" "(if(if(not" -"((lambda x_73" +"((lambda x_71" "(unsafe-fx=" -" i_20" +" i_162" " len_31))" -" i_161))" +" i_20))" "(not #f)" " #f)" -"(for-loop_0" -" i_20" +"(for-loop_241" +" i_162" "(+" -" pos_12" -" inc_21))" -" i_20)))" -" i_160)))))" -" for-loop_0)" +" pos_102" +" inc_22))" +" i_162)))" +" i_161)))))" +" for-loop_241)" " 0" -" start_38)))))" -" v_183))))" +" start_15)))))" +" v_34))))" "(map-construct-compiled-in-memory_0 pres_0 1)" "(map-construct-compiled-in-memory_0 posts_0 2)" " namespace-scopes_0" @@ -36574,55 +36408,58 @@ static const char *startup_source = "(let-values(((mh_0)(1/linklet-bundle->hash mod_3)))" "(let-values(((names_2)(hash-ref mh_0 names-key_0 null)))" "(reverse$1" -"(let-values(((lst_22) names_2))" +"(let-values(((lst_175) names_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_22)))" -"((letrec-values(((for-loop_180)" -"(lambda(fold-var_76 lst_160)" +"(let-values()(check-list lst_175)))" +"((letrec-values(((for-loop_242)" +"(lambda(fold-var_5 lst_277)" "(begin" " 'for-loop" -"(if(pair? lst_160)" -"(let-values(((name_61)(unsafe-car lst_160))" -"((rest_148)(unsafe-cdr lst_160)))" -"(let-values(((fold-var_8)" -"(let-values(((fold-var_219) fold-var_76))" -"(let-values(((fold-var_155)" +"(if(pair? lst_277)" +"(let-values(((name_44)(unsafe-car lst_277))" +"((rest_153)(unsafe-cdr lst_277)))" +"(let-values(((fold-var_223)" +"(let-values(((fold-var_224) fold-var_5))" +"(let-values(((fold-var_225)" "(let-values()" "(cons" "(let-values()" "(hash-ref" " h_10" -" name_61" +" name_44" "(lambda()" "(error" " \"missing submodule declaration:\"" -" name_61))))" -" fold-var_219))))" -"(values fold-var_155)))))" -"(if(not #f)(for-loop_180 fold-var_8 rest_148) fold-var_8)))" -" fold-var_76)))))" -" for-loop_180)" +" name_44))))" +" fold-var_224))))" +"(values fold-var_225)))))" +"(if(not #f)(for-loop_242 fold-var_223 rest_153) fold-var_223)))" +" fold-var_5)))))" +" for-loop_242)" " null" -" lst_22))))))))))))))" +" lst_175))))))))))))))" "(define-values" "(eval-single-top)" -"(lambda(c_31 ns_41)(begin(let-values(((temp20_1) #t))(eval-one-top15.1 temp20_1 #t c_31 ns_41 #f #f)))))" +"(lambda(c_31 ns_42)" +"(begin" +"(let-values(((c18_0) c_31)((ns19_0) ns_42)((temp20_1) #t))" +"(eval-one-top15.1 temp20_1 #t c18_0 ns19_0 #f #f)))))" "(define-values" "(compiled-multiple-top?)" -"(lambda(c_35)" +"(lambda(c_34)" "(begin" -"(let-values(((ld_3)(if(compiled-in-memory? c_35)(compiled-in-memory-linklet-directory c_35) c_35)))" -"(if(1/linklet-directory? ld_3)(not(hash-ref(1/linklet-directory->hash ld_3) #f #f)) #f)))))" +"(let-values(((ld_8)(if(compiled-in-memory? c_34)(compiled-in-memory-linklet-directory c_34) c_34)))" +"(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-top7_0)" -"(lambda(c5_0 ns6_0 eval-compiled1_0 as-tail?2_0 eval-compiled3_0 as-tail?4_0)" +"(lambda(c5_0 ns6_1 eval-compiled1_0 as-tail?2_0 eval-compiled3_0 as-tail?4_0)" "(begin" " 'eval-top7" "(let-values(((c_47) c5_0))" -"(let-values(((ns_65) ns6_0))" +"(let-values(((ns_65) ns6_1))" "(let-values(((eval-compiled_0)(if eval-compiled3_0 eval-compiled1_0 eval-top)))" "(let-values(((as-tail?_0)(if as-tail?4_0 as-tail?2_0 #t)))" "(let-values()" @@ -36633,68 +36470,68 @@ static const char *startup_source = "(case-lambda" "((c_48 ns_66)(begin(eval-top7_0 c_48 ns_66 #f #f #f #f)))" "((c_49 ns_67 eval-compiled_1 as-tail?2_1)(eval-top7_0 c_49 ns_67 eval-compiled_1 as-tail?2_1 #t #t))" -"((c_50 ns_68 eval-compiled1_1)(eval-top7_0 c_50 ns_68 eval-compiled1_1 #f #t #f)))))" +"((c_38 ns_68 eval-compiled1_1)(eval-top7_0 c_38 ns_68 eval-compiled1_1 #f #t #f)))))" "(define-values" "(eval-multiple-tops)" -"(lambda(c_38 ns_69 eval-compiled_2 as-tail?_1)" +"(lambda(c_50 ns_45 eval-compiled_2 as-tail?_1)" "(begin" "(let-values(((eval-compiled-parts_0)" -"(lambda(l_67)" +"(lambda(l_11)" "(begin" " 'eval-compiled-parts" -"((letrec-values(((loop_95)" -"(lambda(l_68)" +"((letrec-values(((loop_37)" +"(lambda(l_12)" "(begin" " 'loop" -"(if(null? l_68)" +"(if(null? l_12)" "(let-values() void)" -"(if(null?(cdr l_68))" -"(let-values()(eval-compiled_2(car l_68) ns_69 as-tail?_1))" +"(if(null?(cdr l_12))" +"(let-values()(eval-compiled_2(car l_12) ns_45 as-tail?_1))" "(let-values()" "(begin" -"(eval-compiled_2(car l_68) ns_69 #f)" -"(loop_95(cdr l_68))))))))))" -" loop_95)" -" l_67)))))" -"(if(compiled-in-memory? c_38)" -"(let-values()(eval-compiled-parts_0(compiled-in-memory-pre-compiled-in-memorys c_38)))" -"(let-values(((c1_26)(hash-ref(1/linklet-directory->hash c_38) 'data #f)))" +"(eval-compiled_2(car l_12) ns_45 #f)" +"(loop_37(cdr l_12))))))))))" +" loop_37)" +" l_11)))))" +"(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" "((lambda(data-ld_0)" "(eval-compiled-parts_0" "(create-compiled-in-memorys-using-shared-data" -"(compiled-top->compiled-tops c_38)" +"(compiled-top->compiled-tops c_50)" "(hash-ref(1/linklet-bundle->hash(hash-ref(1/linklet-directory->hash data-ld_0) #f)) 0)" -" ns_69)))" +" ns_45)))" " c1_26)" -"(let-values()(eval-compiled-parts_0(compiled-top->compiled-tops c_38))))))))))" +"(let-values()(eval-compiled-parts_0(compiled-top->compiled-tops c_50))))))))))" "(define-values" "(eval-one-top15.1)" "(lambda(single-expression?9_0 single-expression?10_0 c13_0 ns14_1 as-tail?11_0 as-tail?12_0)" "(begin" " 'eval-one-top15" "(let-values(((c_51) c13_0))" -"(let-values(((ns_70) ns14_1))" +"(let-values(((ns_69) ns14_1))" "(let-values(((as-tail?_2)(if as-tail?12_0 as-tail?11_0 #t)))" "(let-values(((single-expression?_1)(if single-expression?10_0 single-expression?9_0 #f)))" "(let-values()" "(let-values()" -"(let-values(((ld_8)" +"(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_8) #f))))" +"(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)" "(link-instance-from-compiled-in-memory" " c_51" -"(if(not single-expression?_1) ns_70 #f))" +"(if(not single-expression?_1) ns_69 #f))" "(1/instantiate-linklet" "(hash-ref h_11 'link)" "(list" " deserialize-instance" -"(let-values(((ns24_0) ns_70)" -"((temp25_4)(namespace-phase ns_70))" -"((temp26_2)(namespace-mpi ns_70))" -"((temp27_4)(namespace-bulk-binding-registry ns_70))" +"(let-values(((ns24_0) ns_69)" +"((temp25_4)(namespace-phase ns_69))" +"((temp26_2)(namespace-mpi ns_69))" +"((temp27_4)(namespace-bulk-binding-registry ns_69))" "((temp28_2)(current-code-inspector)))" "(make-eager-instance-instance11.1" " temp27_4" @@ -36704,7 +36541,7 @@ static const char *startup_source = " temp26_2)))))))" "(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_70) orig-phase_1)))" +"(let-values(((phase-shift_19)(phase-(namespace-phase ns_69) orig-phase_1)))" "(let-values(((extra-inspector_7)" "(if(compiled-in-memory? c_51)" "(compiled-in-memory-compile-time-inspector c_51)" @@ -36719,18 +36556,18 @@ static const char *startup_source = "(1/instance-variable-value link-instance_0 'phase-to-link-modules))))" "(let-values(((thunk_3)" "(let-values(((start_39) max-phase_5)" -"((end_28)(sub1 orig-phase_1))" -"((inc_22) -1))" +"((end_29)(sub1 orig-phase_1))" +"((inc_23) -1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-range start_39 end_28 inc_22)))" -"((letrec-values(((for-loop_182)" -"(lambda(prev-thunk_0 pos_100)" +"(let-values()(check-range start_39 end_29 inc_23)))" +"((letrec-values(((for-loop_229)" +"(lambda(prev-thunk_0 pos_103)" "(begin" " 'for-loop" -"(if(> pos_100 end_28)" -"(let-values(((phase_95) pos_100))" +"(if(> pos_103 end_29)" +"(let-values(((phase_91) pos_103))" "(let-values(((prev-thunk_1)" "(let-values(((prev-thunk_2)" " prev-thunk_0))" @@ -36744,13 +36581,13 @@ static const char *startup_source = "(let-values(((module-uses_1)" "(hash-ref" " phase-to-link-modules_1" -" phase_95" +" phase_91" " null)))" "(let-values(((import-module-instances_2" " import-instances_1)" "(let-values(((mis_6" " is_5)" -"(let-values(((lst_9)" +"(let-values(((lst_225)" " module-uses_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -36758,21 +36595,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_9)))" -"((letrec-values(((for-loop_1)" +" lst_225)))" +"((letrec-values(((for-loop_95)" "(lambda(mis_7" " is_6" -" lst_159)" +" lst_226)" "(begin" " 'for-loop" "(if(pair?" -" lst_159)" +" lst_226)" "(let-values(((mu_9)" "(unsafe-car" -" lst_159))" -"((rest_149)" +" lst_226))" +"((rest_119)" "(unsafe-cdr" -" lst_159)))" +" lst_226)))" "(let-values(((mis_8" " is_7)" "(let-values(((mis_9)" @@ -36785,11 +36622,15 @@ static const char *startup_source = "(let-values(((mis29_0" " is30_0)" "(let-values()" -"(let-values(((temp33_1)" +"(let-values(((ns31_0)" +" ns_69)" +"((mu32_0)" +" mu_9)" +"((temp33_1)" "(phase-" "(phase+" -" phase_95" -" phase-shift_18)" +" phase_91" +" phase-shift_19)" "(module-use-phase" " mu_9))))" "(namespace-module-use->module+linklet-instances146.1" @@ -36798,8 +36639,8 @@ static const char *startup_source = " #f" " #f" " #f" -" ns_70" -" mu_9)))))" +" ns31_0" +" mu32_0)))))" "(values" "(cons" " mis29_0" @@ -36812,20 +36653,20 @@ static const char *startup_source = " is_9)))))" "(if(not" " #f)" -"(for-loop_1" +"(for-loop_95" " mis_8" " is_7" -" rest_149)" +" rest_119)" "(values" " mis_8" " is_7))))" "(values" " mis_7" " is_6))))))" -" for-loop_1)" +" for-loop_95)" " null" " null" -" lst_9)))))" +" lst_225)))))" "(values" "(reverse$1" " mis_6)" @@ -36833,37 +36674,37 @@ static const char *startup_source = " is_5)))))" "(let-values(((phase-ns_0)" "(namespace->namespace-at-phase" -" ns_70" +" ns_69" "(phase+" -" phase_95" -" phase-shift_18))))" +" phase_91" +" phase-shift_19))))" "(let-values(((inst_6)" "(if single-expression?_1" " link-instance_0" "(let-values(((phase-ns34_0)" " phase-ns_0)" "((phase-shift35_0)" -" phase-shift_18)" +" phase-shift_19)" "((temp36_3)" "(namespace-mpi" -" ns_70))" +" ns_69))" "((temp37_1)" "(namespace-inspector" -" ns_70))" +" ns_69))" "((temp38_1)" "(namespace-bulk-binding-registry" -" ns_70))" +" ns_69))" "((temp39_3)" -"(lambda(name_62" -" val_67)" +"(lambda(name_45" +" val_65)" "(namespace-set-transformer!" -" ns_70" +" ns_69" "(phase+" "(sub1" -" phase_95)" -" phase-shift_18)" -" name_62" -" val_67))))" +" phase_91)" +" phase-shift_19)" +" name_45" +" val_65))))" "(make-instance-instance13.1" " temp38_1" " temp37_1" @@ -36874,13 +36715,15 @@ static const char *startup_source = "(let-values(((linklet_10)" "(hash-ref" " h_11" -" phase_95" +" phase_91" " #f)))" "(if linklet_10" "(let-values()" "(let-values((()" "(begin" -"(let-values(((temp41_2)" +"(let-values(((linklet40_0)" +" linklet_10)" +"((temp41_2)" " 3)" "((module-uses42_0)" " module-uses_1)" @@ -36893,11 +36736,11 @@ static const char *startup_source = "((temp46_1)" "(hash-ref" " phase-to-link-extra-inspectorsss_3" -" phase_95" +" phase_91" " #f)))" "(check-require-access9.1" " temp41_2" -" linklet_10" +" linklet40_0" " module-uses42_0" " import-module-instances43_0" " temp44_1" @@ -36916,17 +36759,17 @@ static const char *startup_source = " inst_6" " import-instances_1)" "(namespace->instance" -" ns_70" +" ns_69" "(phase-" "(phase+" -" phase_95" -" phase-shift_18)" +" phase_91" +" phase-shift_19)" "(namespace-0-phase" -" ns_70)))" +" ns_69)))" "(not" " tail?_49))))))" "(if(zero-phase?" -" phase_95)" +" phase_91)" "(let-values()" " instantiate_0)" "(if single-expression?_1" @@ -36950,7 +36793,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " phase-ns_0" "(sub1" -" phase_95))))" +" phase_91))))" "(lambda(tail?_51)" "(begin" " 'prev-thunk" @@ -36981,12 +36824,12 @@ static const char *startup_source = "(values" " prev-thunk_3)))))" "(if(not #f)" -"(for-loop_182" +"(for-loop_229" " prev-thunk_1" -"(+ pos_100 inc_22))" +"(+ pos_103 inc_23))" " prev-thunk_1)))" " prev-thunk_0)))))" -" for-loop_182)" +" for-loop_229)" " void" " start_39)))))" "(thunk_3 as-tail?_2))))))))))))))))))))" @@ -37009,7 +36852,7 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_32)))" -"(let-values(((v_184)(make-vector len_32 0)))" +"(let-values(((v_185)(make-vector len_32 0)))" "(begin" "(if(zero? len_32)" "(void)" @@ -37021,44 +36864,44 @@ static const char *startup_source = "(values vec_63(unsafe-vector-length vec_63))))))" "(begin" " #f" -"((letrec-values(((for-loop_6)" -"(lambda(i_30 pos_101)" +"((letrec-values(((for-loop_35)" +"(lambda(i_163 pos_104)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_101 len_33)" -"(let-values(((s_394)" -"(unsafe-vector-ref vec_62 pos_101)))" -"(let-values(((i_163)" -"(let-values(((i_164) i_30))" -"(let-values(((i_165)" +"(if(unsafe-fx< pos_104 len_33)" +"(let-values(((s_388)" +"(unsafe-vector-ref vec_62 pos_104)))" +"(let-values(((i_164)" +"(let-values(((i_165) i_163))" +"(let-values(((i_166)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_184" -" i_164" +" v_185" +" i_165" "(let-values()" "(swap-top-level-scopes" -" s_394" +" s_388" "(compiled-in-memory-namespace-scopes" " cim_11)" " to-ns_0)))" "(unsafe-fx+" " 1" -" i_164)))))" -"(values i_165)))))" +" i_165)))))" +"(values i_166)))))" "(if(if(not" -"((lambda x_74" -"(unsafe-fx= i_163 len_32))" -" s_394))" +"((lambda x_72" +"(unsafe-fx= i_164 len_32))" +" s_388))" "(not #f)" " #f)" -"(for-loop_6 i_163(unsafe-fx+ 1 pos_101))" -" i_163)))" -" i_30)))))" -" for-loop_6)" +"(for-loop_35 i_164(unsafe-fx+ 1 pos_104))" +" i_164)))" +" i_163)))))" +" for-loop_35)" " 0" " 0)))))" -" v_184)))))))))" +" v_185)))))))))" "(1/make-instance" " 'link" " #f" @@ -37071,113 +36914,113 @@ static const char *startup_source = "(define-values(get-not-available)(lambda()(begin not-available)))" "(define-values" "(can-direct-eval?)" -"(lambda(p_45 ns_41 self-mpi_3)" +"(lambda(p_42 ns_42 self-mpi_3)" "(begin" -"(if(parsed-app? p_45)" +"(if(parsed-app? p_42)" "(let-values()" -"(if(can-direct-eval?(parsed-app-rator p_45) ns_41 self-mpi_3)" -"(let-values(((lst_96)(parsed-app-rands p_45)))" +"(if(can-direct-eval?(parsed-app-rator p_42) ns_42 self-mpi_3)" +"(let-values(((lst_99)(parsed-app-rands p_42)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_96)))" -"((letrec-values(((for-loop_107)" -"(lambda(result_108 lst_6)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_99)))" +"((letrec-values(((for-loop_108)" +"(lambda(result_107 lst_6)" "(begin" " 'for-loop" "(if(pair? lst_6)" -"(let-values(((r_42)(unsafe-car lst_6))((rest_46)(unsafe-cdr lst_6)))" -"(let-values(((result_72)" +"(let-values(((r_41)(unsafe-car lst_6))((rest_47)(unsafe-cdr lst_6)))" +"(let-values(((result_74)" "(let-values()" -"(let-values(((result_109)" +"(let-values(((result_108)" "(let-values()" "(let-values()" -"(can-direct-eval? r_42 ns_41 self-mpi_3)))))" -"(values result_109)))))" -"(if(if(not((lambda x_75(not result_72)) r_42))(not #f) #f)" -"(for-loop_107 result_72 rest_46)" -" result_72)))" -" result_108)))))" -" for-loop_107)" +"(can-direct-eval? r_41 ns_42 self-mpi_3)))))" +"(values result_108)))))" +"(if(if(not((lambda x_73(not result_74)) r_41))(not #f) #f)" +"(for-loop_108 result_74 rest_47)" +" result_74)))" +" result_107)))))" +" for-loop_108)" " #t" -" lst_96)))" +" lst_99)))" " #f))" -"(if(parsed-id? p_45)" -"(let-values()(not(eq?(get-id-value p_45 ns_41 self-mpi_3) not-available)))" -"(if(parsed-quote? p_45)" +"(if(parsed-id? p_42)" +"(let-values()(not(eq?(get-id-value p_42 ns_42 self-mpi_3) not-available)))" +"(if(parsed-quote? p_42)" "(let-values() #t)" -"(if(parsed-quote-syntax? p_45)(let-values() #t)(let-values() #f))))))))" +"(if(parsed-quote-syntax? p_42)(let-values() #t)(let-values() #f))))))))" "(define-values" "(direct-eval)" -"(lambda(p_47 ns_71 self-mpi_4)" +"(lambda(p_46 ns_70 self-mpi_4)" "(begin" -"(if(parsed-app? p_47)" +"(if(parsed-app? p_46)" "(let-values()" "(apply" -"(direct-eval(parsed-app-rator p_47) ns_71 self-mpi_4)" +"(direct-eval(parsed-app-rator p_46) ns_70 self-mpi_4)" "(reverse$1" -"(let-values(((lst_74)(parsed-app-rands p_47)))" +"(let-values(((lst_76)(parsed-app-rands p_46)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_74)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_76)))" "((letrec-values(((for-loop_92)" -"(lambda(fold-var_220 lst_75)" +"(lambda(fold-var_226 lst_77)" "(begin" " 'for-loop" -"(if(pair? lst_75)" -"(let-values(((r_8)(unsafe-car lst_75))((rest_34)(unsafe-cdr lst_75)))" +"(if(pair? lst_77)" +"(let-values(((r_8)(unsafe-car lst_77))((rest_35)(unsafe-cdr lst_77)))" "(let-values(((fold-var_218)" -"(let-values(((fold-var_62) fold-var_220))" -"(let-values(((fold-var_221)" +"(let-values(((fold-var_65) fold-var_226))" +"(let-values(((fold-var_227)" "(let-values()" "(cons" "(let-values()" -"(direct-eval r_8 ns_71 self-mpi_4))" -" fold-var_62))))" -"(values fold-var_221)))))" -"(if(not #f)(for-loop_92 fold-var_218 rest_34) fold-var_218)))" -" fold-var_220)))))" +"(direct-eval r_8 ns_70 self-mpi_4))" +" fold-var_65))))" +"(values fold-var_227)))))" +"(if(not #f)(for-loop_92 fold-var_218 rest_35) fold-var_218)))" +" fold-var_226)))))" " for-loop_92)" " null" -" lst_74))))))" -"(if(parsed-id? p_47)" -"(let-values()(get-id-value p_47 ns_71 self-mpi_4))" -"(if(parsed-quote? p_47)" -"(let-values()(parsed-quote-datum p_47))" -"(if(parsed-quote-syntax? p_47)(let-values()(parsed-quote-syntax-datum p_47))(let-values() #f))))))))" +" lst_76))))))" +"(if(parsed-id? p_46)" +"(let-values()(get-id-value p_46 ns_70 self-mpi_4))" +"(if(parsed-quote? p_46)" +"(let-values()(parsed-quote-datum p_46))" +"(if(parsed-quote-syntax? p_46)(let-values()(parsed-quote-syntax-datum p_46))(let-values() #f))))))))" "(define-values" "(get-id-value)" -"(lambda(p_1 ns_68 self-mpi_5)" +"(lambda(p_1 ns_71 self-mpi_5)" "(begin" -"(let-values(((b_74)(parsed-id-binding p_1)))" +"(let-values(((b_73)(parsed-id-binding p_1)))" "(if(parsed-primitive-id? p_1)" -"(let-values()(hash-ref(1/primitive-table '#%kernel)(module-binding-sym b_74) get-not-available))" -"(if(let-values(((or-part_82)(parsed-top-id? p_1)))" -"(if or-part_82" -" or-part_82" -"(let-values(((or-part_83)(not b_74)))" -"(if or-part_83 or-part_83(eq? self-mpi_5(module-binding-module b_74))))))" +"(let-values()(hash-ref(1/primitive-table '#%kernel)(module-binding-sym b_73) 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_73)))" +"(if or-part_75 or-part_75(eq? self-mpi_5(module-binding-module b_73))))))" "(let-values()" "(namespace-get-variable" -" ns_68" -"(if b_74(module-binding-phase b_74)(namespace-phase ns_68))" -"(if b_74(module-binding-sym b_74)(syntax-e$1(parsed-s p_1)))" +" ns_71" +"(if b_73(module-binding-phase b_73)(namespace-phase ns_71))" +"(if b_73(module-binding-sym b_73)(syntax-e$1(parsed-s p_1)))" " get-not-available))" "(let-values()" "(let-values(((mi_18)" -"(let-values(((ns1_1) ns_68)" -"((temp2_4)(1/module-path-index-resolve(module-binding-module b_74)))" -"((temp3_4)(phase-(namespace-phase ns_68)(module-binding-phase b_74))))" -"(namespace->module-instance70.1 #f #f #f #f #f #f ns1_1 temp2_4 temp3_4))))" +"(let-values(((ns1_2) ns_71)" +"((temp2_4)(1/module-path-index-resolve(module-binding-module b_73)))" +"((temp3_4)(phase-(namespace-phase ns_71)(module-binding-phase b_73))))" +"(namespace->module-instance70.1 #f #f #f #f #f #f ns1_2 temp2_4 temp3_4))))" "(if(not mi_18)" "(let-values() not-available)" "(if(check-single-require-access" " mi_18" -"(module-binding-phase b_74)" -"(module-binding-sym b_74)" -"(module-binding-extra-inspector b_74))" +"(module-binding-phase b_73)" +"(module-binding-sym b_73)" +"(module-binding-extra-inspector b_73))" "(let-values()" "(namespace-get-variable" "(module-instance-namespace mi_18)" -"(module-binding-phase b_74)" -"(module-binding-sym b_74)" +"(module-binding-phase b_73)" +"(module-binding-sym b_73)" " get-not-available))" "(let-values() not-available)))))))))))" "(define-values(runtime-scope)(new-multi-scope))" @@ -37186,12 +37029,12 @@ static const char *startup_source = "(define-values(runtime-mpi)(1/module-path-index-join ''#%runtime #f))" "(define-values" "(add-runtime-primitive!)" -"(lambda(sym_61)" +"(lambda(sym_60)" "(begin" -"(let-values(((temp1_4)(syntax-scope-set runtime-stx 0))" -"((sym2_0) sym_61)" +"(let-values(((temp1_3)(syntax-scope-set runtime-stx 0))" +"((sym2_0) sym_60)" "((temp3_5)" -"(let-values(((runtime-mpi4_0) runtime-mpi)((temp5_5) 0)((sym6_1) sym_61))" +"(let-values(((runtime-mpi4_0) runtime-mpi)((temp5_5) 0)((sym6_2) sym_60))" "(make-module-binding22.1" " #f" " #f" @@ -37213,8 +37056,8 @@ static const char *startup_source = " #f" " runtime-mpi4_0" " temp5_5" -" sym6_1))))" -"(add-binding-in-scopes!20.1 #f #f temp1_4 sym2_0 temp3_5)))))" +" sym6_2))))" +"(add-binding-in-scopes!20.1 #f #f temp1_3 sym2_0 temp3_5)))))" "(void" "(begin" "(add-runtime-primitive! 'values)" @@ -37227,7 +37070,7 @@ 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_71)(begin(set-box! b_16(cons v_71(unbox b_16))))))" +"(define-values(box-cons!)(lambda(b_16 v_67)(begin(set-box! b_16(cons v_67(unbox b_16))))))" "(define-values(box-clear!)(lambda(b_17)(begin(begin0(reverse$1(unbox b_17))(set-box! b_17 null)))))" "(define-values" "(struct:lift-context lift-context1.1 lift-context? lift-context-convert lift-context-lifts lift-context-module*-ok?)" @@ -37265,41 +37108,41 @@ static const char *startup_source = "(let-values()(lift-context1.1 convert_0(box null) module*-ok?_0)))))))" "(define-values" "(add-lifted!)" -"(lambda(lifts_1 ids_16 rhs_12 phase_96)" +"(lambda(lifts_1 ids_16 rhs_12 phase_92)" "(begin" -"(let-values(((lifted-ids_0 lifted_0)((lift-context-convert lifts_1) ids_16 rhs_12 phase_96)))" +"(let-values(((lifted-ids_0 lifted_0)((lift-context-convert lifts_1) ids_16 rhs_12 phase_92)))" "(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)))))" "(define-values" "(make-local-lift)" "(lambda(lift-env_1 counter_3)" "(begin" -"(lambda(ids_17 rhs_13 phase_97)" +"(lambda(ids_17 rhs_13 phase_93)" "(let-values(((keys_2)" "(reverse$1" -"(let-values(((lst_273) ids_17))" +"(let-values(((lst_278) ids_17))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_273)))" -"((letrec-values(((for-loop_238)" -"(lambda(fold-var_222 lst_274)" +"(let-values()(check-list lst_278)))" +"((letrec-values(((for-loop_243)" +"(lambda(fold-var_228 lst_279)" "(begin" " 'for-loop" -"(if(pair? lst_274)" -"(let-values(((id_54)(unsafe-car lst_274))" -"((rest_150)(unsafe-cdr lst_274)))" -"(let-values(((fold-var_80)" -"(let-values(((fold-var_81) fold-var_222))" -"(let-values(((fold-var_223)" +"(if(pair? lst_279)" +"(let-values(((id_57)(unsafe-car lst_279))" +"((rest_154)(unsafe-cdr lst_279)))" +"(let-values(((fold-var_81)" +"(let-values(((fold-var_82) fold-var_228))" +"(let-values(((fold-var_229)" "(let-values()" "(cons" "(let-values()" "(let-values(((key_76)" "(let-values(((id32_1)" -" id_54)" +" id_57)" "((phase33_1)" -" phase_97)" +" phase_93)" "((counter34_1)" " counter_3))" "(add-local-binding!35.1" @@ -37318,71 +37161,71 @@ static const char *startup_source = " key_76" " variable))" " key_76)))" -" fold-var_81))))" -"(values fold-var_223)))))" -"(if(not #f)(for-loop_238 fold-var_80 rest_150) fold-var_80)))" -" fold-var_222)))))" -" for-loop_238)" +" fold-var_82))))" +"(values fold-var_229)))))" +"(if(not #f)(for-loop_243 fold-var_81 rest_154) fold-var_81)))" +" fold-var_228)))))" +" for-loop_243)" " null" -" lst_273))))))" +" lst_278))))))" "(values ids_17(lifted-bind2.1 ids_17 keys_2 rhs_13)))))))" "(define-values" "(make-top-level-lift)" "(lambda(ctx_11)" "(begin" -"(lambda(ids_18 rhs_14 phase_69)" +"(lambda(ids_18 rhs_14 phase_71)" "(let-values(((post-scope_0)" "(root-expand-context-post-expansion-scope" "(namespace-get-root-expand-ctx(expand-context-namespace ctx_11)))))" "(let-values(((tl-ids_1)" "(reverse$1" -"(let-values(((lst_265) ids_18))" +"(let-values(((lst_280) ids_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_265)))" -"((letrec-values(((for-loop_225)" -"(lambda(fold-var_224 lst_179)" +"(let-values()(check-list lst_280)))" +"((letrec-values(((for-loop_244)" +"(lambda(fold-var_230 lst_180)" "(begin" " 'for-loop" -"(if(pair? lst_179)" -"(let-values(((id_57)(unsafe-car lst_179))" -"((rest_151)(unsafe-cdr lst_179)))" -"(let-values(((fold-var_225)" -"(let-values(((fold-var_226) fold-var_224))" -"(let-values(((fold-var_227)" +"(if(pair? lst_180)" +"(let-values(((id_58)(unsafe-car lst_180))" +"((rest_155)(unsafe-cdr lst_180)))" +"(let-values(((fold-var_231)" +"(let-values(((fold-var_232) fold-var_230))" +"(let-values(((fold-var_233)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_57" +" id_58" " post-scope_0))" -" fold-var_226))))" -"(values fold-var_227)))))" +" fold-var_232))))" +"(values fold-var_233)))))" "(if(not #f)" -"(for-loop_225 fold-var_225 rest_151)" -" fold-var_225)))" -" fold-var_224)))))" -" for-loop_225)" +"(for-loop_244 fold-var_231 rest_155)" +" fold-var_231)))" +" fold-var_230)))))" +" for-loop_244)" " null" -" lst_265))))))" +" lst_280))))))" "(let-values(((syms_20)(select-defined-syms-and-bind!/ctx tl-ids_1 ctx_11)))" "(values tl-ids_1(lifted-bind2.1 tl-ids_1 syms_20 rhs_14)))))))))" "(define-values" "(wrap-lifts-as-let)" -"(lambda(lifts_3 body_5 phase_24)" +"(lambda(lifts_3 body_5 phase_94)" "(begin" "(datum->syntax$1" " #f" -"(let-values(((lst_275)(reverse$1 lifts_3)))" +"(let-values(((lst_281)(reverse$1 lifts_3)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_275)))" -"((letrec-values(((for-loop_239)" -"(lambda(body_6 lst_186)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_281)))" +"((letrec-values(((for-loop_245)" +"(lambda(body_6 lst_189)" "(begin" " 'for-loop" -"(if(pair? lst_186)" -"(let-values(((lift_0)(unsafe-car lst_186))((rest_98)(unsafe-cdr lst_186)))" +"(if(pair? lst_189)" +"(let-values(((lift_0)(unsafe-car lst_189))((rest_98)(unsafe-cdr lst_189)))" "(let-values(((body_7)" "(let-values(((body_8) body_6))" "(let-values(((body_9)" @@ -37394,7 +37237,7 @@ static const char *startup_source = " (error \"non-bindings in `lift-context`\")))" "(list" "(datum->syntax$1" -"(syntax-shift-phase-level$1 core-stx phase_24)" +"(syntax-shift-phase-level$1 core-stx phase_94)" " 'let-values)" "(list" "(list" @@ -37402,11 +37245,11 @@ static const char *startup_source = "(lifted-bind-rhs lift_0)))" " body_8)))))" "(values body_9)))))" -"(if(not #f)(for-loop_239 body_7 rest_98) body_7)))" +"(if(not #f)(for-loop_245 body_7 rest_98) body_7)))" " body_6)))))" -" for-loop_239)" +" for-loop_245)" " body_5" -" lst_275)))))))" +" lst_281)))))))" "(define-values" "(wrap-lifts-as-begin16.1)" "(lambda(adjust-body10_0 adjust-body12_0 adjust-form9_0 adjust-form11_0 lifts13_0 body14_0 phase15_0)" @@ -37414,31 +37257,31 @@ static const char *startup_source = " 'wrap-lifts-as-begin16" "(let-values(((lifts_4) lifts13_0))" "(let-values(((body_10) body14_0))" -"(let-values(((phase_98) phase15_0))" +"(let-values(((phase_95) phase15_0))" "(let-values(((adjust-form_0)(if adjust-form11_0 adjust-form9_0 values)))" "(let-values(((adjust-body_0)(if adjust-body12_0 adjust-body10_0 values)))" "(let-values()" "(datum->syntax$1" " #f" "(cons" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_98) 'begin)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_95) 'begin)" "(append" "(reverse$1" -"(let-values(((lst_276) lifts_4))" +"(let-values(((lst_282) lifts_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_276)))" -"((letrec-values(((for-loop_185)" -"(lambda(fold-var_228 lst_277)" +"(let-values()(check-list lst_282)))" +"((letrec-values(((for-loop_189)" +"(lambda(fold-var_234 lst_167)" "(begin" " 'for-loop" -"(if(pair? lst_277)" -"(let-values(((lift_1)(unsafe-car lst_277))" -"((rest_152)(unsafe-cdr lst_277)))" +"(if(pair? lst_167)" +"(let-values(((lift_1)(unsafe-car lst_167))" +"((rest_156)(unsafe-cdr lst_167)))" "(let-values(((fold-var_3)" -"(let-values(((fold-var_88) fold-var_228))" -"(let-values(((fold-var_229)" +"(let-values(((fold-var_89) fold-var_234))" +"(let-values(((fold-var_235)" "(let-values()" "(cons" "(let-values()" @@ -37451,37 +37294,37 @@ static const char *startup_source = "(datum->syntax$1" "(syntax-shift-phase-level$1" " core-stx" -" phase_98)" +" phase_95)" " 'define-values)" "(lifted-bind-ids lift_1)" "(lifted-bind-rhs" " lift_1))))" "(let-values() lift_1))))" -" fold-var_88))))" -"(values fold-var_229)))))" -"(if(not #f)(for-loop_185 fold-var_3 rest_152) fold-var_3)))" -" fold-var_228)))))" -" for-loop_185)" +" fold-var_89))))" +"(values fold-var_235)))))" +"(if(not #f)(for-loop_189 fold-var_3 rest_156) fold-var_3)))" +" fold-var_234)))))" +" for-loop_189)" " null" -" lst_276))))" +" lst_282))))" "(list(adjust-body_0 body_10))))))))))))))" "(define-values" "(get-lifts-as-lists)" "(lambda(lifts_5)" "(begin" "(reverse$1" -"(let-values(((lst_278) lifts_5))" +"(let-values(((lst_195) lifts_5))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_278)))" -"((letrec-values(((for-loop_240)" -"(lambda(fold-var_181 lst_279)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_195)))" +"((letrec-values(((for-loop_246)" +"(lambda(fold-var_236 lst_283)" "(begin" " 'for-loop" -"(if(pair? lst_279)" -"(let-values(((lift_2)(unsafe-car lst_279))((rest_153)(unsafe-cdr lst_279)))" -"(let-values(((fold-var_230)" -"(let-values(((fold-var_231) fold-var_181))" -"(let-values(((fold-var_232)" +"(if(pair? lst_283)" +"(let-values(((lift_2)(unsafe-car lst_283))((rest_157)(unsafe-cdr lst_283)))" +"(let-values(((fold-var_37)" +"(let-values(((fold-var_38) fold-var_236))" +"(let-values(((fold-var_237)" "(let-values()" "(cons" "(let-values()" @@ -37489,13 +37332,13 @@ static const char *startup_source = "(lifted-bind-ids lift_2)" "(lifted-bind-keys lift_2)" "(lifted-bind-rhs lift_2)))" -" fold-var_231))))" -"(values fold-var_232)))))" -"(if(not #f)(for-loop_240 fold-var_230 rest_153) fold-var_230)))" -" fold-var_181)))))" -" for-loop_240)" +" fold-var_38))))" +"(values fold-var_237)))))" +"(if(not #f)(for-loop_246 fold-var_37 rest_157) fold-var_37)))" +" fold-var_236)))))" +" for-loop_246)" " null" -" lst_278)))))))" +" lst_195)))))))" "(define-values" "(struct:module-lift-context" " module-lift-context19.1" @@ -37527,40 +37370,40 @@ static const char *startup_source = "(make-struct-field-accessor -ref_70 2 'module*-ok?))))" "(define-values" "(make-module-lift-context)" -"(lambda(phase_99 module*-ok?_1)(begin(module-lift-context19.1 phase_99(box null) module*-ok?_1))))" +"(lambda(phase_96 module*-ok?_1)(begin(module-lift-context19.1 phase_96(box null) module*-ok?_1))))" "(define-values" "(get-and-clear-module-lifts!)" "(lambda(module-lifts_1)(begin(box-clear!(module-lift-context-lifts module-lifts_1)))))" "(define-values" "(add-lifted-module!)" -"(lambda(module-lifts_2 s_395 phase_100)" +"(lambda(module-lifts_2 s_389 phase_97)" "(begin" "(begin" -"(if(let-values(((or-part_267)" +"(if(let-values(((or-part_224)" "(if(module-lift-context? module-lifts_2)" "(module-lift-context-module*-ok? module-lifts_2)" " #f)))" -"(if or-part_267" -" or-part_267" +"(if or-part_224" +" or-part_224" "(if(lift-context? module-lifts_2)(lift-context-module*-ok? module-lifts_2) #f)))" "(void)" "(let-values()" -"(let-values(((tmp_31)(core-form-sym s_395 phase_100)))" -"(if(equal? tmp_31 'module)" +"(let-values(((tmp_30)(core-form-sym s_389 phase_97)))" +"(if(equal? tmp_30 'module)" "(let-values()(void))" -"(if(equal? tmp_31 'module*)" +"(if(equal? tmp_30 'module*)" "(let-values()" "(raise-arguments-error" " 'syntax-local-lift-module" " \"cannot lift `module*' to a top-level context\"" " \"syntax\"" -" s_395))" +" s_389))" "(let-values()" -" (raise-arguments-error 'syntax-local-lift-module \"not a `module' declaration\" \"syntax\" s_395)))))))" +" (raise-arguments-error 'syntax-local-lift-module \"not a `module' declaration\" \"syntax\" s_389)))))))" "(if(module-lift-context? module-lifts_2)" -"(let-values()(box-cons!(module-lift-context-lifts module-lifts_2) s_395))" +"(let-values()(box-cons!(module-lift-context-lifts module-lifts_2) s_389))" "(if(lift-context? module-lifts_2)" -"(let-values()(box-cons!(lift-context-lifts module-lifts_2) s_395))" +"(let-values()(box-cons!(lift-context-lifts module-lifts_2) s_389))" " (let-values () (error \"internal error: unrecognized lift-context type for module lift\"))))))))" "(define-values" "(struct:require-lift-context" @@ -37599,11 +37442,11 @@ static const char *startup_source = "(lambda(require-lifts_1)(begin(box-clear!(require-lift-context-requires require-lifts_1)))))" "(define-values" "(add-lifted-require!)" -"(lambda(require-lifts_2 s_39 phase_101)" +"(lambda(require-lifts_2 s_390 phase_98)" "(begin" "(begin" -"((require-lift-context-do-require require-lifts_2) s_39 phase_101)" -"(box-cons!(require-lift-context-requires require-lifts_2) s_39)))))" +"((require-lift-context-do-require require-lifts_2) s_390 phase_98)" +"(box-cons!(require-lift-context-requires require-lifts_2) s_390)))))" "(define-values" "(struct:to-module-lift-context" " to-module-lift-context21.1" @@ -37640,10 +37483,10 @@ static const char *startup_source = "(lambda(end-as-expressions?23_0 shared-module-ends22_0 phase26_1)" "(begin" " 'make-to-module-lift-context27" -"(let-values(((phase_94) phase26_1))" +"(let-values(((phase_99) phase26_1))" "(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_94(box null) end-as-expressions?_0 ends_0))))))))" +"(let-values()(to-module-lift-context21.1 phase_99(box null) end-as-expressions?_0 ends_0))))))))" "(define-values(make-shared-module-ends)(lambda()(begin(box null))))" "(define-values" "(get-and-clear-end-lifts!)" @@ -37653,12 +37496,12 @@ static const char *startup_source = "(lambda(to-module-lifts_2)(begin(box-clear!(to-module-lift-context-provides to-module-lifts_2)))))" "(define-values" "(add-lifted-to-module-provide!)" -"(lambda(to-module-lifts_3 s_213 phase_102)" -"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_213))))" +"(lambda(to-module-lifts_3 s_211 phase_100)" +"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_211))))" "(define-values" "(add-lifted-to-module-end!)" -"(lambda(to-module-lifts_4 s_396 phase_103)" -"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_396))))" +"(lambda(to-module-lifts_4 s_391 phase_101)" +"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_391))))" "(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)" @@ -37707,23 +37550,23 @@ static const char *startup_source = "(1/prop:expansion-contexts expansion-contexts? expansion-contexts-ref)" "(make-struct-type-property" " 'expansion-contexts" -"(lambda(v_29 info_1)" +"(lambda(v_26 info_1)" "(begin" -"(if(if(list? v_29)" -"(let-values(((lst_72) v_29))" +"(if(if(list? v_26)" +"(let-values(((lst_74) v_26))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_72)))" +"(let-values()(check-list lst_74)))" "((letrec-values(((for-loop_91)" -"(lambda(result_70 lst_73)" +"(lambda(result_72 lst_75)" "(begin" " 'for-loop" -"(if(pair? lst_73)" -"(let-values(((s_2)(unsafe-car lst_73))((rest_33)(unsafe-cdr lst_73)))" -"(let-values(((result_62)" +"(if(pair? lst_75)" +"(let-values(((s_2)(unsafe-car lst_75))((rest_34)(unsafe-cdr lst_75)))" +"(let-values(((result_64)" "(let-values()" -"(let-values(((result_110)" +"(let-values(((result_109)" "(let-values()" "(let-values()" "(memq" @@ -37733,22 +37576,22 @@ static const char *startup_source = " module" " module-begin" " definition-context))))))" -"(values result_110)))))" -"(if(if(not((lambda x_76(not result_62)) s_2))(not #f) #f)" -"(for-loop_91 result_62 rest_33)" -" result_62)))" -" result_70)))))" +"(values result_109)))))" +"(if(if(not((lambda x_74(not result_64)) s_2))(not #f) #f)" +"(for-loop_91 result_64 rest_34)" +" result_64)))" +" result_72)))))" " for-loop_91)" " #t" -" lst_72)))" +" lst_74)))" " #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_26)))" +" v_26))))" "(define-values" "(not-in-this-expand-context?)" "(lambda(t_42 ctx_12)" @@ -37759,17 +37602,17 @@ static const char *startup_source = "(define-values(context->symbol)(lambda(context_5)(begin(if(symbol? context_5) context_5 'definition-context))))" "(define-values" "(avoid-current-expand-context)" -"(lambda(s_170 t_43 ctx_13)" +"(lambda(s_168 t_43 ctx_13)" "(begin" "(let-values(((wrap_1)" -"(lambda(sym_62)" +"(lambda(sym_61)" "(begin" " 'wrap" "(datum->syntax$1" " #f" "(list" -"(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_62)(expand-context-phase ctx_13))" -" s_170))))))" +"(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_61)(expand-context-phase ctx_13))" +" s_168))))))" "(let-values(((fail_0)" "(lambda()" "(begin" @@ -37779,11 +37622,11 @@ static const char *startup_source = "(format" " \"not allowed in context\\n expansion context: ~a\"" "(context->symbol(expand-context-context ctx_13)))" -" s_170)))))" -"(let-values(((tmp_32)(context->symbol(expand-context-context ctx_13))))" -"(if(equal? tmp_32 'module-begin)" +" s_168)))))" +"(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_32 'module) #t(if(equal? tmp_32 'top-level) #t(equal? tmp_32 'definition-context)))" +"(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_43))(wrap_1 '#%expression)(fail_0)))" "(let-values()(fail_0))))))))))" "(define-values" @@ -37812,28 +37655,28 @@ static const char *startup_source = "(define-values(make-reference-record)(lambda()(begin(reference-record1.1(seteq)(seteq) #f))))" "(define-values" "(reference-record-used!)" -"(lambda(rr_0 key_77)" +"(lambda(rr_0 key_70)" "(begin" -"(if(set-member?(reference-record-already-bound rr_0) key_77)" +"(if(set-member?(reference-record-already-bound rr_0) key_70)" "(void)" "(let-values()" "(set-reference-record-reference-before-bound!" " rr_0" -"(set-add(reference-record-reference-before-bound rr_0) key_77)))))))" +"(set-add(reference-record-reference-before-bound rr_0) key_70)))))))" "(define-values" "(reference-records-all-used!)" "(lambda(rrs_0)" "(begin" "(begin" -"(let-values(((lst_39) rrs_0))" +"(let-values(((lst_40) rrs_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_39)))" -"((letrec-values(((for-loop_179)" -"(lambda(lst_85)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_40)))" +"((letrec-values(((for-loop_182)" +"(lambda(lst_87)" "(begin" " 'for-loop" -"(if(pair? lst_85)" -"(let-values(((rr_1)(unsafe-car lst_85))((rest_116)(unsafe-cdr lst_85)))" +"(if(pair? lst_87)" +"(let-values(((rr_1)(unsafe-car lst_87))((rest_116)(unsafe-cdr lst_87)))" "(let-values(((post-guard-var_0)(lambda()(begin 'post-guard-var #t))))" "(let-values()" "(if(reference-record-all-referenced? rr_1)" @@ -37845,10 +37688,10 @@ static const char *startup_source = "(let-values()" "(set-reference-record-all-referenced?! rr_1 #t))" "(values)))))" -"(if(post-guard-var_0)(for-loop_179 rest_116)(values))))))))" +"(if(post-guard-var_0)(for-loop_182 rest_116)(values))))))))" "(values))))))" -" for-loop_179)" -" lst_39)))" +" for-loop_182)" +" lst_40)))" "(void)))))" "(define-values" "(reference-record-bound!)" @@ -37860,47 +37703,47 @@ static const char *startup_source = "(let-values(((lst_24) keys_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_241)" -"(lambda(ab_3 lst_77)" +"((letrec-values(((for-loop_247)" +"(lambda(ab_3 lst_78)" "(begin" " 'for-loop" -"(if(pair? lst_77)" -"(let-values(((key_78)(unsafe-car lst_77))((rest_140)(unsafe-cdr lst_77)))" +"(if(pair? lst_78)" +"(let-values(((key_77)(unsafe-car lst_78))((rest_142)(unsafe-cdr lst_78)))" "(let-values(((ab_4)" "(let-values(((ab_5) ab_3))" -"(let-values(((ab_6)(let-values()(set-add ab_5 key_78))))" +"(let-values(((ab_6)(let-values()(set-add ab_5 key_77))))" "(values ab_6)))))" -"(if(not #f)(for-loop_241 ab_4 rest_140) ab_4)))" +"(if(not #f)(for-loop_247 ab_4 rest_142) ab_4)))" " ab_3)))))" -" for-loop_241)" +" for-loop_247)" "(reference-record-already-bound rr_2)" " lst_24))))" "(set-reference-record-reference-before-bound!" " rr_2" -"(let-values(((lst_17) keys_3))" +"(let-values(((lst_272) keys_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_17)))" -"((letrec-values(((for-loop_10)" -"(lambda(rbb_0 lst_18)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_272)))" +"((letrec-values(((for-loop_248)" +"(lambda(rbb_0 lst_25)" "(begin" " 'for-loop" -"(if(pair? lst_18)" -"(let-values(((key_79)(unsafe-car lst_18))((rest_5)(unsafe-cdr lst_18)))" +"(if(pair? lst_25)" +"(let-values(((key_78)(unsafe-car lst_25))((rest_158)(unsafe-cdr lst_25)))" "(let-values(((rbb_1)" "(let-values(((rbb_2) rbb_0))" -"(let-values(((rbb_3)(let-values()(set-remove rbb_2 key_79))))" +"(let-values(((rbb_3)(let-values()(set-remove rbb_2 key_78))))" "(values rbb_3)))))" -"(if(not #f)(for-loop_10 rbb_1 rest_5) rbb_1)))" +"(if(not #f)(for-loop_248 rbb_1 rest_158) rbb_1)))" " rbb_0)))))" -" for-loop_10)" +" for-loop_248)" "(reference-record-reference-before-bound rr_2)" -" lst_17))))))))" +" lst_272))))))))" "(define-values" "(reference-record-forward-references?)" "(lambda(rr_3)" "(begin" -"(let-values(((or-part_175)(reference-record-all-referenced? rr_3)))" -"(if or-part_175 or-part_175(positive?(set-count(reference-record-reference-before-bound rr_3))))))))" +"(let-values(((or-part_166)(reference-record-all-referenced? rr_3)))" +"(if or-part_166 or-part_166(positive?(set-count(reference-record-reference-before-bound rr_3))))))))" "(define-values" "(reference-record-clear!)" "(lambda(rr_4)" @@ -37908,19 +37751,19 @@ static const char *startup_source = "(begin(set-reference-record-already-bound! rr_4 #f)(set-reference-record-reference-before-bound! rr_4 #f)))))" "(define-values" "(call-expand-observe)" -"(lambda(obs_0 key_80 . args_8)" +"(lambda(obs_0 key_79 . args_5)" "(begin" "(begin" -"(let-values(((c1_27)(hash-ref key->arity key_80 #f)))" +"(let-values(((c1_27)(hash-ref key->arity key_79 #f)))" "(if c1_27" "((lambda(arity_2)" -"(if(let-values(((or-part_40)(eq? arity_2 'any)))" -"(if or-part_40 or-part_40(eqv?(length args_8) arity_2)))" +"(if(let-values(((or-part_173)(eq? arity_2 'any)))" +"(if or-part_173 or-part_173(eqv?(length args_5) arity_2)))" "(void)" -" (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_80 args_8))))" +" (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_79 args_5))))" " c1_27)" -" (let-values () (error 'call-expand-observe \"bad key: ~s\" key_80))))" -"(obs_0 key_80(if(null? args_8)(let-values() #f)(let-values()(apply list* args_8))))))))" +" (let-values () (error 'call-expand-observe \"bad key: ~s\" key_79))))" +"(obs_0 key_79(if(null? args_5)(let-values() #f)(let-values()(apply list* args_5))))))))" "(define-values" "(key->arity)" " '#hash((block->letrec . 1)" @@ -38008,13 +37851,13 @@ static const char *startup_source = "(lambda(track?1_0 track?2_0 orig-s3_0 new4_0)" "(begin" " 'rebuild5" -"(let-values(((orig-s_31) orig-s3_0))" +"(let-values(((orig-s_30) orig-s3_0))" "(let-values(((new_1) new4_0))" "(let-values(((track?_0)(if track?2_0 track?1_0 #t)))" "(let-values()" "(syntax-rearm$1" -"(datum->syntax$1(syntax-disarm$1 orig-s_31) new_1 orig-s_31(if track?_0 orig-s_31 #f))" -" orig-s_31))))))))" +"(datum->syntax$1(syntax-disarm$1 orig-s_30) new_1 orig-s_30(if track?_0 orig-s_30 #f))" +" orig-s_30))))))))" "(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)" @@ -38096,79 +37939,79 @@ static const char *startup_source = " ?_10" "(make-struct-field-accessor -ref_10 0 's)" "(make-struct-field-accessor -ref_10 1 'body))))" -"(define-values(extract-syntax)(lambda(s_185)(begin(if(expanded+parsed? s_185)(expanded+parsed-s s_185) s_185))))" +"(define-values(extract-syntax)(lambda(s_183)(begin(if(expanded+parsed? s_183)(expanded+parsed-s s_183) s_183))))" "(define-values" "(parsed-only)" -"(lambda(l_69)" +"(lambda(l_66)" "(begin" "(reverse$1" -"(let-values(((lst_174) l_69))" +"(let-values(((lst_175) l_66))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_174)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_175)))" "((letrec-values(((for-loop_242)" -"(lambda(fold-var_5 lst_280)" +"(lambda(fold-var_5 lst_277)" "(begin" " 'for-loop" -"(if(pair? lst_280)" -"(let-values(((i_27)(unsafe-car lst_280))((rest_81)(unsafe-cdr lst_280)))" -"(let-values(((fold-var_219)" -"(let-values(((fold-var_155) fold-var_5))" -"(if(let-values(((or-part_75)(parsed? i_27)))" -"(if or-part_75" -" or-part_75" -"(let-values(((or-part_233)(expanded+parsed? i_27)))" -"(if or-part_233" -" or-part_233" -"(semi-parsed-begin-for-syntax? i_27)))))" -"(let-values(((fold-var_173) fold-var_155))" -"(let-values(((fold-var_174)" +"(if(pair? lst_277)" +"(let-values(((i_26)(unsafe-car lst_277))((rest_153)(unsafe-cdr lst_277)))" +"(let-values(((fold-var_223)" +"(let-values(((fold-var_224) fold-var_5))" +"(if(let-values(((or-part_69)(parsed? i_26)))" +"(if or-part_69" +" or-part_69" +"(let-values(((or-part_33)(expanded+parsed? i_26)))" +"(if or-part_33" +" or-part_33" +"(semi-parsed-begin-for-syntax? i_26)))))" +"(let-values(((fold-var_156) fold-var_224))" +"(let-values(((fold-var_173)" "(let-values()" "(cons" "(let-values()" -"(if(expanded+parsed? i_27)" +"(if(expanded+parsed? i_26)" "(let-values()" -"(expanded+parsed-parsed i_27))" -"(if(semi-parsed-begin-for-syntax? i_27)" +"(expanded+parsed-parsed i_26))" +"(if(semi-parsed-begin-for-syntax? i_26)" "(let-values()" "(parsed-begin-for-syntax21.1" -"(semi-parsed-begin-for-syntax-s i_27)" +"(semi-parsed-begin-for-syntax-s i_26)" "(parsed-only" "(semi-parsed-begin-for-syntax-body" -" i_27))))" -"(let-values() i_27))))" -" fold-var_173))))" -"(values fold-var_174)))" -" fold-var_155))))" -"(if(not #f)(for-loop_242 fold-var_219 rest_81) fold-var_219)))" +" i_26))))" +"(let-values() i_26))))" +" fold-var_156))))" +"(values fold-var_173)))" +" fold-var_224))))" +"(if(not #f)(for-loop_242 fold-var_223 rest_153) fold-var_223)))" " fold-var_5)))))" " for-loop_242)" " null" -" lst_174)))))))" +" lst_175)))))))" "(define-values" "(syntax-only)" -"(lambda(l_70)" +"(lambda(l_67)" "(begin" "(reverse$1" -"(let-values(((lst_273) l_70))" +"(let-values(((lst_278) l_67))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_273)))" -"((letrec-values(((for-loop_238)" -"(lambda(fold-var_222 lst_274)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_278)))" +"((letrec-values(((for-loop_243)" +"(lambda(fold-var_228 lst_279)" "(begin" " 'for-loop" -"(if(pair? lst_274)" -"(let-values(((i_35)(unsafe-car lst_274))((rest_150)(unsafe-cdr lst_274)))" -"(let-values(((fold-var_80)" -"(let-values(((fold-var_81) fold-var_222))" -"(if(let-values(((or-part_218)(syntax?$1 i_35)))" -"(if or-part_218" -" or-part_218" -"(let-values(((or-part_268)(expanded+parsed? i_35)))" -"(if or-part_268" -" or-part_268" +"(if(pair? lst_279)" +"(let-values(((i_35)(unsafe-car lst_279))((rest_154)(unsafe-cdr lst_279)))" +"(let-values(((fold-var_81)" +"(let-values(((fold-var_82) fold-var_228))" +"(if(let-values(((or-part_259)(syntax?$1 i_35)))" +"(if or-part_259" +" or-part_259" +"(let-values(((or-part_260)(expanded+parsed? i_35)))" +"(if or-part_260" +" or-part_260" "(semi-parsed-begin-for-syntax? i_35)))))" -"(let-values(((fold-var_82) fold-var_81))" -"(let-values(((fold-var_233)" +"(let-values(((fold-var_83) fold-var_82))" +"(let-values(((fold-var_238)" "(let-values()" "(cons" "(let-values()" @@ -38176,7 +38019,7 @@ static const char *startup_source = "(let-values()(expanded+parsed-s i_35))" "(if(semi-parsed-begin-for-syntax? i_35)" "(let-values()" -"(let-values(((s_397)" +"(let-values(((s_162)" "(semi-parsed-begin-for-syntax-s" " i_35)))" "(let-values(((nested-bodys_0)" @@ -38184,22 +38027,22 @@ static const char *startup_source = " i_35)))" "(let-values(((disarmed-s_0)" "(syntax-disarm$1" -" s_397)))" -"(let-values(((ok?_27" +" s_162)))" +"(let-values(((ok?_26" " begin-for-syntax7_0" " _8_0)" -"(let-values(((s_398)" +"(let-values(((s_306)" " disarmed-s_0))" -"(let-values(((orig-s_32)" -" s_398))" +"(let-values(((orig-s_31)" +" s_306))" "(let-values(((begin-for-syntax7_1" " _8_1)" "(let-values(((s_27)" "(if(syntax?$1" -" s_398)" +" s_306)" "(syntax-e$1" -" s_398)" -" s_398)))" +" s_306)" +" s_306)))" "(if(pair?" " s_27)" "(let-values(((begin-for-syntax9_0)" @@ -38208,39 +38051,39 @@ static const char *startup_source = " s_27)))" " s_30))" "((_10_0)" -"(let-values(((s_159)" +"(let-values(((s_158)" "(cdr" " s_27)))" -"(let-values(((s_150)" +"(let-values(((s_392)" "(if(syntax?$1" -" s_159)" +" s_158)" "(syntax-e$1" -" s_159)" -" s_159)))" -"(let-values(((flat-s_14)" +" s_158)" +" s_158)))" +"(let-values(((flat-s_19)" "(to-syntax-list.1" -" s_150)))" +" s_392)))" "(if(not" -" flat-s_14)" +" flat-s_19)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_32))" +" orig-s_31))" "(let-values()" -" flat-s_14)))))))" +" flat-s_19)))))))" "(values" " begin-for-syntax9_0" " _10_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_32)))))" +" orig-s_31)))))" "(values" " #t" " begin-for-syntax7_1" " _8_1))))))" -"(let-values(((s11_0) s_397)" +"(let-values(((s11_0) s_162)" "((temp12_2)" "(list*" " begin-for-syntax7_0" @@ -38252,20 +38095,20 @@ static const char *startup_source = " s11_0" " temp12_2)))))))" "(let-values() i_35))))" +" fold-var_83))))" +"(values fold-var_238)))" " fold-var_82))))" -"(values fold-var_233)))" -" fold-var_81))))" -"(if(not #f)(for-loop_238 fold-var_80 rest_150) fold-var_80)))" -" fold-var_222)))))" -" for-loop_238)" +"(if(not #f)(for-loop_243 fold-var_81 rest_154) fold-var_81)))" +" fold-var_228)))))" +" for-loop_243)" " null" -" lst_273)))))))" +" lst_278)))))))" "(define-values" "(expand7.1)" -"(lambda(alternate-id1_0 alternate-id3_0 skip-log?2_0 skip-log?4_0 s5_0 ctx6_0)" +"(lambda(alternate-id1_0 alternate-id3_0 skip-log?2_0 skip-log?4_0 s5_1 ctx6_0)" "(begin" " 'expand7" -"(let-values(((s_399) s5_0))" +"(let-values(((s_393) s5_1))" "(let-values(((ctx_14) ctx6_0))" "(let-values(((alternate-id_0)(if alternate-id3_0 alternate-id1_0 #f)))" "(let-values(((skip-log?_0)(if skip-log?4_0 skip-log?2_0 #f)))" @@ -38279,25 +38122,25 @@ static const char *startup_source = "(call-expand-observe" " obs_1" "(if(expand-context-only-immediate? ctx_14) 'enter-check 'visit)" -" s_399))" +" s_393))" "(void)))" "(void)))" -"(if(identifier? s_399)" -"(let-values()(expand-identifier s_399 ctx_14 alternate-id_0))" -"(if(if(pair?(syntax-content s_399))(identifier?(car(syntax-content s_399))) #f)" -"(let-values()(expand-id-application-form s_399 ctx_14 alternate-id_0))" -"(if(let-values(((or-part_35)(pair?(syntax-content s_399))))" -"(if or-part_35 or-part_35(null?(syntax-content s_399))))" -"(let-values()(expand-implicit '#%app s_399 ctx_14 #f))" -"(if(already-expanded?(syntax-content s_399))" -"(let-values()(expand-already-expanded s_399 ctx_14))" -"(let-values()(expand-implicit '#%datum s_399 ctx_14 #f)))))))))))))))" +"(if(identifier? s_393)" +"(let-values()(expand-identifier s_393 ctx_14 alternate-id_0))" +"(if(if(pair?(syntax-content s_393))(identifier?(car(syntax-content s_393))) #f)" +"(let-values()(expand-id-application-form s_393 ctx_14 alternate-id_0))" +"(if(let-values(((or-part_76)(pair?(syntax-content s_393))))" +"(if or-part_76 or-part_76(null?(syntax-content s_393))))" +"(let-values()(expand-implicit '#%app s_393 ctx_14 #f))" +"(if(already-expanded?(syntax-content s_393))" +"(let-values()(expand-already-expanded s_393 ctx_14))" +"(let-values()(expand-implicit '#%datum s_393 ctx_14 #f)))))))))))))))" "(define-values" "(expand-identifier)" "(lambda(s_43 ctx_15 alternate-id_1)" "(begin" -"(let-values(((id_58)(let-values(((or-part_174) alternate-id_1))(if or-part_174 or-part_174 s_43))))" -"(if(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_58)" +"(let-values(((id_59)(let-values(((or-part_165) alternate-id_1))(if or-part_165 or-part_165 s_43))))" +"(if(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_59)" "(let-values()" "(begin" "(let-values(((obs_2)(expand-context-observer ctx_15)))" @@ -38306,7 +38149,7 @@ static const char *startup_source = "(if(not(expand-context-only-immediate? ctx_15))" "(let-values()" "(begin" -"(call-expand-observe obs_2 'resolve id_58)" +"(call-expand-observe obs_2 'resolve id_59)" "(call-expand-observe obs_2 'enter-prim s_43)" "(call-expand-observe obs_2 'prim-stop)" "(call-expand-observe obs_2 'exit-prim s_43)" @@ -38316,166 +38159,175 @@ static const char *startup_source = " s_43))" "(let-values()" "(let-values(((binding_19)" -"(let-values(((temp78_2)(expand-context-phase ctx_15))" +"(let-values(((id77_0) id_59)" +"((temp78_2)(expand-context-phase ctx_15))" "((temp79_0) 'ambiguous)" "((temp80_1) #t))" -"(resolve+shift30.1 temp79_0 #t #f #f #f #f temp80_1 #t #f #f id_58 temp78_2))))" +"(resolve+shift30.1 temp79_0 #t #f #f #f #f temp80_1 #t #f #f id77_0 temp78_2))))" "(begin" "(let-values(((obs_3)(expand-context-observer ctx_15)))" "(if obs_3" "(let-values()" "(if(not(expand-context-only-immediate? ctx_15))" -"(let-values()(call-expand-observe obs_3 'resolve id_58))" +"(let-values()(call-expand-observe obs_3 'resolve id_59))" "(void)))" "(void)))" "(if(eq? binding_19 'ambiguous)" -"(let-values()(raise-ambiguous-error id_58 ctx_15))" +"(let-values()(raise-ambiguous-error id_59 ctx_15))" "(if(not binding_19)" "(let-values()(expand-implicit '#%top(substitute-alternate-id s_43 alternate-id_1) ctx_15 s_43))" "(let-values()" "(let-values(((t_44 primitive?_2 insp-of-t_0 protected?_3)" -"(let-values(((temp84_0)(if alternate-id_1 s_43 #f))" +"(let-values(((binding81_0) binding_19)" +"((ctx82_0) ctx_15)" +"((id83_0) id_59)" +"((temp84_0)(if alternate-id_1 s_43 #f))" "((temp85_0)(expand-context-in-local-expand? ctx_15)))" -"(lookup17.1 temp84_0 #t temp85_0 #t binding_19 ctx_15 id_58))))" -"(dispatch t_44 insp-of-t_0 s_43 id_58 ctx_15 binding_19 primitive?_2 protected?_3)))))))))))))" +"(lookup17.1 temp84_0 #t temp85_0 #t binding81_0 ctx82_0 id83_0))))" +"(dispatch t_44 insp-of-t_0 s_43 id_59 ctx_15 binding_19 primitive?_2 protected?_3)))))))))))))" "(define-values" "(expand-id-application-form)" -"(lambda(s_148 ctx_16 alternate-id_2)" +"(lambda(s_13 ctx_16 alternate-id_2)" "(begin" -"(let-values(((id_59)" -"(let-values(((or-part_71) alternate-id_2))" -"(if or-part_71 or-part_71(car(syntax-e/no-taint s_148))))))" -"(if(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_59)" +"(let-values(((id_60)" +"(let-values(((or-part_261) alternate-id_2))" +"(if or-part_261 or-part_261(car(syntax-e/no-taint s_13))))))" +"(if(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_60)" "(let-values()" "(begin" +"(let-values(((obs_0)(expand-context-observer ctx_16)))" +"(if obs_0" +"(let-values()" +"(if(not(expand-context-only-immediate? ctx_16))" +"(let-values()" +"(begin" +"(call-expand-observe obs_0 'resolve id_60)" +"(call-expand-observe obs_0 'enter-prim s_13)" +"(call-expand-observe obs_0 'prim-stop)" +"(call-expand-observe obs_0 'exit-prim s_13)" +"(call-expand-observe obs_0 'return s_13)))" +"(void)))" +"(void)))" +" s_13))" +"(let-values()" +"(let-values(((binding_20)" +"(let-values(((id86_0) id_60)" +"((temp87_1)(expand-context-phase ctx_16))" +"((temp88_1) 'ambiguous)" +"((temp89_1) #t))" +"(resolve+shift30.1 temp88_1 #t #f #f #f #f temp89_1 #t #f #f id86_0 temp87_1))))" +"(begin" "(let-values(((obs_4)(expand-context-observer ctx_16)))" "(if obs_4" "(let-values()" "(if(not(expand-context-only-immediate? ctx_16))" -"(let-values()" -"(begin" -"(call-expand-observe obs_4 'resolve id_59)" -"(call-expand-observe obs_4 'enter-prim s_148)" -"(call-expand-observe obs_4 'prim-stop)" -"(call-expand-observe obs_4 'exit-prim s_148)" -"(call-expand-observe obs_4 'return s_148)))" -"(void)))" -"(void)))" -" s_148))" -"(let-values()" -"(let-values(((binding_20)" -"(let-values(((temp87_1)(expand-context-phase ctx_16))" -"((temp88_1) 'ambiguous)" -"((temp89_1) #t))" -"(resolve+shift30.1 temp88_1 #t #f #f #f #f temp89_1 #t #f #f id_59 temp87_1))))" -"(begin" -"(let-values(((obs_5)(expand-context-observer ctx_16)))" -"(if obs_5" -"(let-values()" -"(if(not(expand-context-only-immediate? ctx_16))" -"(let-values()(call-expand-observe obs_5 'resolve id_59))" +"(let-values()(call-expand-observe obs_4 'resolve id_60))" "(void)))" "(void)))" "(if(eq? binding_20 'ambiguous)" -"(let-values()(raise-ambiguous-error id_59 ctx_16))" +"(let-values()(raise-ambiguous-error id_60 ctx_16))" "(if(not binding_20)" -"(let-values()(expand-implicit '#%app(substitute-alternate-id s_148 alternate-id_2) ctx_16 id_59))" +"(let-values()(expand-implicit '#%app(substitute-alternate-id s_13 alternate-id_2) ctx_16 id_60))" "(let-values()" "(let-values(((t_45 primitive?_3 insp-of-t_1 protected?_4)" -"(let-values(((temp93_2)(if alternate-id_2(car(syntax-e/no-taint s_148)) #f))" +"(let-values(((binding90_0) binding_20)" +"((ctx91_0) ctx_16)" +"((id92_0) id_60)" +"((temp93_2)(if alternate-id_2(car(syntax-e/no-taint s_13)) #f))" "((temp94_1)(expand-context-in-local-expand? ctx_16)))" -"(lookup17.1 temp93_2 #t temp94_1 #t binding_20 ctx_16 id_59))))" +"(lookup17.1 temp93_2 #t temp94_1 #t binding90_0 ctx91_0 id92_0))))" "(if(variable? t_45)" "(let-values()" -"(expand-implicit '#%app(substitute-alternate-id s_148 alternate-id_2) ctx_16 id_59))" +"(expand-implicit '#%app(substitute-alternate-id s_13 alternate-id_2) ctx_16 id_60))" "(let-values()" "(dispatch" " t_45" " insp-of-t_1" -" s_148" -" id_59" +" s_13" +" id_60" " ctx_16" " binding_20" " primitive?_3" " protected?_4)))))))))))))))" "(define-values" "(expand-implicit)" -"(lambda(sym_63 s_19 ctx_17 trigger-id_1)" +"(lambda(sym_62 s_184 ctx_17 trigger-id_1)" "(begin" "(if(expand-context-only-immediate? ctx_17)" "(let-values()" "(begin" -"(let-values(((obs_6)(expand-context-observer ctx_17)))" -"(if obs_6(let-values()(let-values()(call-expand-observe obs_6 'exit-check s_19)))(void)))" -" s_19))" +"(let-values(((obs_5)(expand-context-observer ctx_17)))" +"(if obs_5(let-values()(let-values()(call-expand-observe obs_5 'exit-check s_184)))(void)))" +" s_184))" "(let-values()" -"(let-values(((disarmed-s_1)(syntax-disarm$1 s_19)))" -"(let-values(((id_60)(datum->syntax$1 disarmed-s_1 sym_63)))" -"(if(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_60)" +"(let-values(((disarmed-s_1)(syntax-disarm$1 s_184)))" +"(let-values(((id_61)(datum->syntax$1 disarmed-s_1 sym_62)))" +"(if(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_61)" "(let-values()" "(begin" -"(let-values(((obs_7)(expand-context-observer ctx_17)))" -"(if obs_7" +"(let-values(((obs_6)(expand-context-observer ctx_17)))" +"(if obs_6" "(let-values()" "(if(not(expand-context-only-immediate? ctx_17))" "(let-values()" "(begin" -"(call-expand-observe obs_7 'resolve id_60)" -"(call-expand-observe obs_7 'enter-prim s_19)" -"(call-expand-observe obs_7 'prim-stop)" -"(call-expand-observe obs_7 'exit-prim s_19)" -"(call-expand-observe obs_7 'return s_19)))" +"(call-expand-observe obs_6 'resolve id_61)" +"(call-expand-observe obs_6 'enter-prim s_184)" +"(call-expand-observe obs_6 'prim-stop)" +"(call-expand-observe obs_6 'exit-prim s_184)" +"(call-expand-observe obs_6 'return s_184)))" "(void)))" "(void)))" -" s_19))" +" s_184))" "(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_60)))" +"(let-values(((obs_7)(expand-context-observer ctx_17)))" +"(if obs_7" +"(let-values()(let-values()(call-expand-observe obs_7 'resolve id_61)))" "(void)))" "(values))))" -"(let-values(((b_78)" -"(let-values(((temp96_2)(expand-context-phase ctx_17))" +"(let-values(((b_19)" +"(let-values(((id95_0) id_61)" +"((temp96_2)(expand-context-phase ctx_17))" "((temp97_1) 'ambiguous)" "((temp98_1) #t))" -"(resolve+shift30.1 temp97_1 #t #f #f #f #f temp98_1 #t #f #f id_60 temp96_2))))" -"(if(eq? b_78 'ambiguous)" -"(let-values()(raise-ambiguous-error id_60 ctx_17))" +"(resolve+shift30.1 temp97_1 #t #f #f #f #f temp98_1 #t #f #f id95_0 temp96_2))))" +"(if(eq? b_19 'ambiguous)" +"(let-values()(raise-ambiguous-error id_61 ctx_17))" "(let-values()" -"(let-values(((t_24 primitive?_4 insp-of-t_2 protected?_5)" -"(if b_78" -"(let-values(((b99_0) b_78)((ctx100_0) ctx_17)((id101_0) id_60))" +"(let-values(((t_27 primitive?_4 insp-of-t_2 protected?_5)" +"(if b_19" +"(let-values(((b99_0) b_19)((ctx100_0) ctx_17)((id101_0) id_61))" "(lookup17.1 #f #f #f #f b99_0 ctx100_0 id101_0))" "(values #f #f #f #f))))" -"(if(transformer? t_24)" +"(if(transformer? t_27)" "(let-values()" "(dispatch-transformer" -" t_24" +" t_27" " insp-of-t_2" -"(make-explicit ctx_17 sym_63 s_19 disarmed-s_1)" -" id_60" +"(make-explicit ctx_17 sym_62 s_184 disarmed-s_1)" +" id_61" " ctx_17" -" b_78))" -"(if(core-form? t_24)" +" b_19))" +"(if(core-form? t_27)" "(let-values()" -"(if(if(eq? sym_63 '#%top)" -"(if(eq?(core-form-name t_24) '#%top)" +"(if(if(eq? sym_62 '#%top)" +"(if(eq?(core-form-name t_27) '#%top)" "(expand-context-in-local-expand? ctx_17)" " #f)" " #f)" -"(let-values()(dispatch-implicit-#%top-core-form t_24 s_19 ctx_17))" +"(let-values()(dispatch-implicit-#%top-core-form t_27 s_184 ctx_17))" "(let-values()" "(dispatch-core-form" -" t_24" -"(make-explicit ctx_17 sym_63 s_19 disarmed-s_1)" +" t_27" +"(make-explicit ctx_17 sym_62 s_184 disarmed-s_1)" " ctx_17))))" "(let-values()" "(let-values(((tl-id_0)" -"(if(eq? sym_63 '#%top)" +"(if(eq? sym_62 '#%top)" "(if(root-expand-context-top-level-bind-scope ctx_17)" -"(add-scope s_19(root-expand-context-top-level-bind-scope ctx_17))" +"(add-scope s_184(root-expand-context-top-level-bind-scope ctx_17))" " #f)" " #f)))" "(let-values(((tl-b_0)" @@ -38493,25 +38345,25 @@ static const char *startup_source = " tl-id_0))" "(let-values()" "(raise-syntax-implicit-error" -" s_19" -" sym_63" +" s_184" +" sym_62" " trigger-id_1" " ctx_17))))))))))))))))))))))" "(define-values" "(expand-already-expanded)" -"(lambda(s_164 ctx_18)" +"(lambda(s_45 ctx_18)" "(begin" -"(let-values(((ae_0)(syntax-e$1 s_164)))" +"(let-values(((ae_0)(syntax-e$1 s_45)))" "(let-values(((exp-s_0)(already-expanded-s ae_0)))" "(begin" -"(if(let-values(((or-part_141)(syntax-any-macro-scopes? s_164)))" -"(if or-part_141" -" or-part_141" -"(let-values(((or-part_269)" +"(if(let-values(((or-part_144)(syntax-any-macro-scopes? s_45)))" +"(if or-part_144" +" or-part_144" +"(let-values(((or-part_145)" "(not" "(eq?(expand-context-binding-layer ctx_18)(already-expanded-binding-layer ae_0)))))" -"(if or-part_269" -" or-part_269" +"(if or-part_145" +" or-part_145" "(if(parsed? exp-s_0)" "(not" "(if(expand-context-to-parsed? ctx_18)" @@ -38529,11 +38381,11 @@ static const char *startup_source = "(if(parsed? exp-s_0)" "(let-values() exp-s_0)" "(let-values()" -"(let-values(((result-s_1)(syntax-track-origin$1 exp-s_0 s_164)))" +"(let-values(((result-s_1)(syntax-track-origin$1 exp-s_0 s_45)))" "(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_8)(expand-context-observer ctx_18)))" +"(if obs_8" +"(let-values()(let-values()(call-expand-observe obs_8 'opaque-expr result-s_1)))" "(void)))" "(if(if(expand-context-to-parsed? ctx_18)(free-id-set-empty?(expand-context-stops ctx_18)) #f)" "(let-values(((result-s104_0) result-s_1)((ctx105_0) ctx_18))" @@ -38541,195 +38393,199 @@ static const char *startup_source = " result-s_1)))))))))))" "(define-values" "(make-explicit)" -"(lambda(ctx_19 sym_64 s_307 disarmed-s_2)" +"(lambda(ctx_19 sym_1 s_307 disarmed-s_2)" "(begin" "(let-values(((new-s_0)" -"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_64 disarmed-s_2) s_307 s_307) s_307)))" +"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_1 disarmed-s_2) s_307 s_307) s_307)))" "(begin" -"(let-values(((obs_10)(expand-context-observer ctx_19)))" -"(if obs_10(let-values()(let-values()(call-expand-observe obs_10 'tag new-s_0)))(void)))" +"(let-values(((obs_9)(expand-context-observer ctx_19)))" +"(if obs_9(let-values()(let-values()(call-expand-observe obs_9 'tag new-s_0)))(void)))" " new-s_0)))))" "(define-values" "(dispatch)" -"(lambda(t_46 insp-of-t_3 s_309 id_61 ctx_20 binding_10 primitive?_5 protected?_6)" +"(lambda(t_46 insp-of-t_3 s_394 id_62 ctx_20 binding_21 primitive?_5 protected?_6)" "(begin" "(if(core-form? t_46)" -"(let-values()(dispatch-core-form t_46 s_309 ctx_20))" +"(let-values()(dispatch-core-form t_46 s_394 ctx_20))" "(if(transformer? t_46)" -"(let-values()(dispatch-transformer t_46 insp-of-t_3 s_309 id_61 ctx_20 binding_10))" +"(let-values()(dispatch-transformer t_46 insp-of-t_3 s_394 id_62 ctx_20 binding_21))" "(if(variable? t_46)" -"(let-values()(dispatch-variable t_46 s_309 id_61 ctx_20 binding_10 primitive?_5 protected?_6))" -" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_309))))))))" +"(let-values()(dispatch-variable t_46 s_394 id_62 ctx_20 binding_21 primitive?_5 protected?_6))" +" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_394))))))))" "(define-values" "(dispatch-core-form)" -"(lambda(t_47 s_84 ctx_21)" +"(lambda(t_47 s_46 ctx_21)" "(begin" "(if(expand-context-only-immediate? ctx_21)" "(let-values()" "(begin" -"(let-values(((obs_11)(expand-context-observer ctx_21)))" -"(if obs_11(let-values()(let-values()(call-expand-observe obs_11 'exit-check s_84)))(void)))" -" s_84))" +"(let-values(((obs_10)(expand-context-observer ctx_21)))" +"(if obs_10(let-values()(let-values()(call-expand-observe obs_10 'exit-check s_46)))(void)))" +" s_46))" "(if(expand-context-observer ctx_21)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_12)(expand-context-observer ctx_21)))" -"(if obs_12" -"(let-values()(let-values()(call-expand-observe obs_12 'enter-prim s_84)))" +"(let-values(((obs_11)(expand-context-observer ctx_21)))" +"(if obs_11" +"(let-values()(let-values()(call-expand-observe obs_11 'enter-prim s_46)))" "(void)))" "(values))))" -"(let-values(((result-s_2)((core-form-expander t_47) s_84 ctx_21)))" +"(let-values(((result-s_2)((core-form-expander t_47) s_46 ctx_21)))" "(begin" -"(let-values(((obs_13)(expand-context-observer ctx_21)))" -"(if obs_13" +"(let-values(((obs_12)(expand-context-observer ctx_21)))" +"(if obs_12" "(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_12 'exit-prim(extract-syntax result-s_2))" +"(call-expand-observe obs_12 'return(extract-syntax result-s_2)))))" "(void)))" " result-s_2))))" -"(let-values()((core-form-expander t_47) s_84 ctx_21)))))))" +"(let-values()((core-form-expander t_47) s_46 ctx_21)))))))" "(define-values" "(dispatch-implicit-#%top-core-form)" -"(lambda(t_48 s_400 ctx_22)" +"(lambda(t_48 s_48 ctx_22)" "(begin" "(let-values((()" "(begin" -"(let-values(((obs_14)(expand-context-observer ctx_22)))" -"(if obs_14" -"(let-values()(let-values()(call-expand-observe obs_14 'enter-prim s_400)))" +"(let-values(((obs_13)(expand-context-observer ctx_22)))" +"(if obs_13" +"(let-values()(let-values()(call-expand-observe obs_13 'enter-prim s_48)))" "(void)))" "(values))))" -"(let-values(((result-s_3)((core-form-expander t_48) s_400 ctx_22 #t)))" +"(let-values(((result-s_3)((core-form-expander t_48) s_48 ctx_22 #t)))" "(begin" -"(let-values(((obs_15)(expand-context-observer ctx_22)))" -"(if obs_15" +"(let-values(((obs_14)(expand-context-observer ctx_22)))" +"(if obs_14" "(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_14 'exit-prim result-s_3)" +"(call-expand-observe obs_14 'return result-s_3))))" "(void)))" " result-s_3))))))" "(define-values" "(dispatch-transformer)" -"(lambda(t_49 insp-of-t_4 s_46 id_62 ctx_23 binding_21)" +"(lambda(t_49 insp-of-t_4 s_388 id_63 ctx_23 binding_22)" "(begin" "(if(not-in-this-expand-context? t_49 ctx_23)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_16)(expand-context-observer ctx_23)))" -"(if obs_16" -"(let-values()(let-values()(call-expand-observe obs_16 'enter-macro s_46)))" +"(let-values(((obs_15)(expand-context-observer ctx_23)))" +"(if obs_15" +"(let-values()(let-values()(call-expand-observe obs_15 'enter-macro s_388)))" "(void)))" "(values))))" -"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_46 id_62) t_49 ctx_23)))" +"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_388 id_63) t_49 ctx_23)))" "(begin" -"(let-values(((obs_17)(expand-context-observer ctx_23)))" -"(if obs_17(let-values()(let-values()(call-expand-observe obs_17 'exit-macro s_46)))(void)))" +"(let-values(((obs_16)(expand-context-observer ctx_23)))" +"(if obs_16(let-values()(let-values()(call-expand-observe obs_16 'exit-macro s_388)))(void)))" "(let-values(((adj-s106_0) adj-s_0)((ctx107_0) ctx_23))" "(expand7.1 #f #f #f #f adj-s106_0 ctx107_0))))))" "(if(expand-context-should-not-encounter-macros? ctx_23)" "(let-values()" -" (raise-syntax-error$1 #f \"encountered a macro binding in form that should be fully expanded\" s_46))" +" (raise-syntax-error$1 #f \"encountered a macro binding in form that should be fully expanded\" s_388))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_18)(expand-context-observer ctx_23)))" -"(if obs_18" +"(let-values(((obs_17)(expand-context-observer ctx_23)))" +"(if obs_17" "(let-values()" "(if(if(expand-context-only-immediate? ctx_23)(not(1/rename-transformer? t_49)) #f)" "(let-values()" "(begin" -"(call-expand-observe obs_18 'visit s_46)" -"(call-expand-observe obs_18 'resolve id_62)))" +"(call-expand-observe obs_17 'visit s_388)" +"(call-expand-observe obs_17 'resolve id_63)))" "(void)))" "(void)))" "(values))))" "(let-values(((exp-s_1 re-ctx_0)" "(if(1/rename-transformer? t_49)" -"(values s_46 ctx_23)" -"(apply-transformer t_49 insp-of-t_4 s_46 id_62 ctx_23 binding_21))))" +"(values s_388 ctx_23)" +"(apply-transformer t_49 insp-of-t_4 s_388 id_63 ctx_23 binding_22))))" "(begin" -"(let-values(((obs_19)(expand-context-observer ctx_23)))" -"(if obs_19" +"(let-values(((obs_18)(expand-context-observer ctx_23)))" +"(if obs_18" "(let-values()" "(if(if(expand-context-only-immediate? ctx_23)(not(1/rename-transformer? t_49)) #f)" -"(let-values()(call-expand-observe obs_19 'return exp-s_1))" +"(let-values()(call-expand-observe obs_18 'return exp-s_1))" "(void)))" "(void)))" "(if(expand-context-just-once? ctx_23)" "(let-values() exp-s_1)" "(let-values()" -"(let-values(((temp110_0)" +"(let-values(((exp-s108_0) exp-s_1)" +"((re-ctx109_0) re-ctx_0)" +"((temp110_0)" "(if(1/rename-transformer? t_49)" "(syntax-track-origin$1" -"(transfer-srcloc(rename-transformer-target-in-context t_49 ctx_23) id_62)" -" id_62" -" id_62)" +"(transfer-srcloc(rename-transformer-target-in-context t_49 ctx_23) id_63)" +" id_63" +" id_63)" " #f))" "((temp111_0)" -"(let-values(((or-part_146)(expand-context-only-immediate? ctx_23)))" -"(if or-part_146 or-part_146(1/rename-transformer? t_49)))))" -"(expand7.1 temp110_0 #t temp111_0 #t exp-s_1 re-ctx_0)))))))))))))" +"(let-values(((or-part_47)(expand-context-only-immediate? ctx_23)))" +"(if or-part_47 or-part_47(1/rename-transformer? t_49)))))" +"(expand7.1 temp110_0 #t temp111_0 #t exp-s108_0 re-ctx109_0)))))))))))))" "(define-values" "(dispatch-variable)" -"(lambda(t_50 s_314 id_63 ctx_24 binding_22 primitive?_6 protected?_7)" +"(lambda(t_50 s_395 id_8 ctx_24 binding_23 primitive?_6 protected?_7)" "(begin" "(if(expand-context-only-immediate? ctx_24)" "(let-values()" "(begin" -"(let-values(((obs_20)(expand-context-observer ctx_24)))" -"(if obs_20(let-values()(let-values()(call-expand-observe obs_20 'exit-check s_314)))(void)))" -" id_63))" +"(let-values(((obs_19)(expand-context-observer ctx_24)))" +"(if obs_19(let-values()(let-values()(call-expand-observe obs_19 'exit-check s_395)))(void)))" +" id_8))" "(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_314 id_63)))" +"(let-values(((obs_20)(expand-context-observer ctx_24)))" +"(if obs_20" +"(let-values()(let-values()(call-expand-observe obs_20 'variable s_395 id_8)))" "(void)))" "(values))))" -"(let-values((()(begin(register-variable-referenced-if-local! binding_22)(values))))" +"(let-values((()(begin(register-variable-referenced-if-local! binding_23)(values))))" "(let-values(((result-s_4)" -"(let-values(((temp114_0)" +"(let-values(((id112_0) id_8)" +"((t113_0) t_50)" +"((temp114_0)" "(free-id-set-empty-or-just-module*?(expand-context-stops ctx_24))))" -"(substitute-variable6.1 temp114_0 id_63 t_50))))" +"(substitute-variable6.1 temp114_0 id112_0 t113_0))))" "(if(if(expand-context-to-parsed? ctx_24)(free-id-set-empty?(expand-context-stops ctx_24)) #f)" "(let-values()" "(let-values(((prop-s_0)(keep-properties-only~ result-s_4)))" -"(let-values(((insp_15)(syntax-inspector 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_15)" -"(parsed-id2.1 prop-s_0 binding_22 insp_15)))))" +"(parsed-primitive-id3.1 prop-s_0 binding_23 insp_16)" +"(parsed-id2.1 prop-s_0 binding_23 insp_16)))))" "(let-values()" "(let-values(((protected-result-s_0)" "(if protected?_7(syntax-property$1 result-s_4 'protected #t) result-s_4)))" "(begin" -"(let-values(((obs_22)(expand-context-observer ctx_24)))" -"(if obs_22" -"(let-values()(let-values()(call-expand-observe obs_22 'return protected-result-s_0)))" +"(let-values(((obs_21)(expand-context-observer ctx_24)))" +"(if obs_21" +"(let-values()(let-values()(call-expand-observe obs_21 'return protected-result-s_0)))" "(void)))" " protected-result-s_0))))))))))))" "(define-values" "(apply-transformer)" -"(lambda(t_51 insp-of-t_5 s_318 id_64 ctx_25 binding_23)" +"(lambda(t_51 insp-of-t_5 s_56 id_64 ctx_25 binding_24)" "(begin" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_23)(expand-context-observer ctx_25)))" -"(if obs_23" -"(let-values()(let-values()(call-expand-observe obs_23 'enter-macro s_318)))" +"(let-values(((obs_22)(expand-context-observer ctx_25)))" +"(if obs_22" +"(let-values()(let-values()(call-expand-observe obs_22 'enter-macro s_56)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_3)(syntax-disarm$1 s_318)))" +"(let-values(((disarmed-s_3)(syntax-disarm$1 s_56)))" "(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(((use-s_0 use-scopes_0)(maybe-add-use-site-scope intro-s_0 ctx_25 binding_24)))" "(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)" @@ -38748,13 +38604,13 @@ static const char *startup_source = "(let-values(((rearmed-s_0)" "(taint-dispatch" " tracked-s_0" -"(lambda(t-s_0)(syntax-rearm$1 t-s_0 s_318))" +"(lambda(t-s_0)(syntax-rearm$1 t-s_0 s_56))" "(expand-context-phase ctx_25))))" "(begin" -"(let-values(((obs_24)(expand-context-observer ctx_25)))" -"(if obs_24" +"(let-values(((obs_23)(expand-context-observer ctx_25)))" +"(if obs_23" "(let-values()" -"(let-values()(call-expand-observe obs_24 'exit-macro rearmed-s_0)))" +"(let-values()(call-expand-observe obs_23 'exit-macro rearmed-s_0)))" "(void)))" "(values" " rearmed-s_0" @@ -38765,16 +38621,16 @@ static const char *startup_source = "(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_24)(expand-context-observer ctx_26)))" +"(if obs_24" +"(let-values()(let-values()(call-expand-observe obs_24 'macro-pre-x cleaned-s_1)))" "(void)))" "(values))))" "(let-values(((confine-def-ctx-scopes?_0)" "(not" -"(let-values(((or-part_270)(expand-context-only-immediate? ctx_26)))" -"(if or-part_270" -" or-part_270" +"(let-values(((or-part_262)(expand-context-only-immediate? ctx_26)))" +"(if or-part_262" +" or-part_262" "(not(free-id-set-empty-or-just-module*?(expand-context-stops ctx_26))))))))" "(let-values(((accum-ctx_0)" "(if(if confine-def-ctx-scopes?_0" @@ -38785,15 +38641,15 @@ static const char *startup_source = "(accumulate-def-ctx-scopes ctx_26(expand-context-def-ctx-scopes ctx_26))" " ctx_26)))" "(let-values(((m-ctx_0)" -"(let-values(((v_140) accum-ctx_0))" -"(let-values(((the-struct_61) v_140))" +"(let-values(((v_112) accum-ctx_0))" +"(let-values(((the-struct_61) v_112))" "(if(expand-context/outer? the-struct_61)" "(let-values(((current-introduction-scopes115_0)(cons intro-scope_1 use-scopes_1))" "((def-ctx-scopes116_0)" "(if confine-def-ctx-scopes?_0" " def-ctx-scopes_2" "(expand-context-def-ctx-scopes ctx_26)))" -"((inner117_0)(root-expand-context/outer-inner v_140)))" +"((inner117_0)(root-expand-context/outer-inner v_112)))" "(expand-context/outer1.1" " inner117_0" "(root-expand-context/outer-post-expansion-scope the-struct_61)" @@ -38823,16 +38679,16 @@ static const char *startup_source = "(expand-context-namespace ctx_26)" "(add1(expand-context-phase ctx_26)))" " current-module-code-inspector" -"(let-values(((or-part_271) insp-of-t_6))" -"(if or-part_271 or-part_271(current-module-code-inspector))))" +"(let-values(((or-part_263) insp-of-t_6))" +"(if or-part_263 or-part_263(current-module-code-inspector))))" "(let-values()" "(call-with-continuation-barrier" "(lambda()((transformer->procedure t_52) cleaned-s_1)))))))" "(begin" -"(let-values(((obs_26)(expand-context-observer ctx_26)))" -"(if obs_26" +"(let-values(((obs_25)(expand-context-observer ctx_26)))" +"(if obs_25" "(let-values()" -"(let-values()(call-expand-observe obs_26 'macro-post-x transformed-s_1 cleaned-s_1)))" +"(let-values()(call-expand-observe obs_25 'macro-post-x transformed-s_1 cleaned-s_1)))" "(void)))" "(if(syntax?$1 transformed-s_1)" "(void)" @@ -38845,73 +38701,74 @@ static const char *startup_source = " transformed-s_1)))))))))" "(define-values" "(maybe-add-use-site-scope)" -"(lambda(s_37 ctx_27 binding_24)" +"(lambda(s_396 ctx_27 binding_25)" "(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))" +"(matching-frame?(root-expand-context-frame-id ctx_27)(binding-frame-id binding_25))" " #f)" "(let-values()" "(let-values(((sc_26)(new-scope 'use-site)))" -"(let-values(((b_79)(root-expand-context-use-site-scopes ctx_27)))" -"(begin(set-box! b_79(cons sc_26(unbox b_79)))(values(add-scope s_37 sc_26)(list sc_26))))))" -"(let-values()(values s_37 null))))))" +"(let-values(((b_77)(root-expand-context-use-site-scopes ctx_27)))" +"(begin(set-box! b_77(cons sc_26(unbox b_77)))(values(add-scope s_396 sc_26)(list sc_26))))))" +"(let-values()(values s_396 null))))))" "(define-values" "(matching-frame?)" "(lambda(current-frame-id_0 bind-frame-id_0)" "(begin" "(if current-frame-id_0" -"(let-values(((or-part_230)(eq? current-frame-id_0 bind-frame-id_0)))" -"(if or-part_230 or-part_230(eq? current-frame-id_0 'all)))" +"(let-values(((or-part_264)(eq? current-frame-id_0 bind-frame-id_0)))" +"(if or-part_264 or-part_264(eq? current-frame-id_0 'all)))" " #f))))" "(define-values" "(maybe-add-post-expansion-scope)" -"(lambda(s_401 ctx_28)" +"(lambda(s_397 ctx_28)" "(begin" "(if(root-expand-context-post-expansion-scope ctx_28)" "(let-values()" -"((expand-context-post-expansion-scope-action ctx_28) s_401(root-expand-context-post-expansion-scope ctx_28)))" -"(let-values() s_401)))))" +"((expand-context-post-expansion-scope-action ctx_28) s_397(root-expand-context-post-expansion-scope ctx_28)))" +"(let-values() s_397)))))" "(define-values" "(accumulate-def-ctx-scopes)" "(lambda(ctx_29 def-ctx-scopes_3)" "(begin" "(if(null?(unbox def-ctx-scopes_3))" " ctx_29" -"(let-values(((v_114) ctx_29))" -"(let-values(((the-struct_55) v_114))" -"(if(expand-context/outer? the-struct_55)" +"(let-values(((v_186) ctx_29))" +"(let-values(((the-struct_62) v_186))" +"(if(expand-context/outer? the-struct_62)" "(let-values(((scopes118_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))" -"((inner119_0)(root-expand-context/outer-inner v_114)))" +"((inner119_0)(root-expand-context/outer-inner v_186)))" "(expand-context/outer1.1" " inner119_0" -"(root-expand-context/outer-post-expansion-scope the-struct_55)" -"(root-expand-context/outer-use-site-scopes the-struct_55)" -"(root-expand-context/outer-frame-id the-struct_55)" -"(expand-context/outer-context the-struct_55)" -"(expand-context/outer-env the-struct_55)" -"(expand-context/outer-post-expansion-scope-action the-struct_55)" +"(root-expand-context/outer-post-expansion-scope the-struct_62)" +"(root-expand-context/outer-use-site-scopes the-struct_62)" +"(root-expand-context/outer-frame-id the-struct_62)" +"(expand-context/outer-context the-struct_62)" +"(expand-context/outer-env the-struct_62)" +"(expand-context/outer-post-expansion-scope-action the-struct_62)" " scopes118_0" -"(expand-context/outer-def-ctx-scopes the-struct_55)" -"(expand-context/outer-binding-layer the-struct_55)" -"(expand-context/outer-reference-records the-struct_55)" -"(expand-context/outer-only-immediate? the-struct_55)" -"(expand-context/outer-need-eventually-defined the-struct_55)" -"(expand-context/outer-current-introduction-scopes the-struct_55)" -"(expand-context/outer-name the-struct_55)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_55))))))))" +"(expand-context/outer-def-ctx-scopes the-struct_62)" +"(expand-context/outer-binding-layer the-struct_62)" +"(expand-context/outer-reference-records the-struct_62)" +"(expand-context/outer-only-immediate? the-struct_62)" +"(expand-context/outer-need-eventually-defined the-struct_62)" +"(expand-context/outer-current-introduction-scopes the-struct_62)" +"(expand-context/outer-name the-struct_62)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_62))))))))" "(define-values" "(lookup17.1)" "(lambda(in10_1 in12_1 out-of-context-as-variable?11_0 out-of-context-as-variable?13_0 b14_0 ctx15_0 id16_1)" "(begin" " 'lookup17" -"(let-values(((b_80) b14_0))" +"(let-values(((b_78) b14_0))" "(let-values(((ctx_30) ctx15_0))" "(let-values(((id_66) id16_1))" "(let-values(((in-s_7)(if in12_1 in10_1 #f)))" "(let-values(((out-of-context-as-variable?_1)" "(if out-of-context-as-variable?13_0 out-of-context-as-variable?11_0 #f)))" "(let-values()" -"(let-values(((temp121_1)(expand-context-env ctx_30))" +"(let-values(((b120_0) b_78)" +"((temp121_1)(expand-context-env ctx_30))" "((temp122_0)(expand-context-lift-envs ctx_30))" "((temp123_1)(expand-context-namespace ctx_30))" "((temp124_0)(expand-context-phase ctx_30))" @@ -38923,7 +38780,7 @@ static const char *startup_source = " #t" " out-of-context-as-variable?127_0" " #t" -" b_80" +" b120_0" " temp121_1" " temp122_0" " temp123_1" @@ -38931,25 +38788,25 @@ static const char *startup_source = " id125_0)))))))))))" "(define-values" "(substitute-alternate-id)" -"(lambda(s_402 alternate-id_3)" +"(lambda(s_398 alternate-id_3)" "(begin" "(if(not alternate-id_3)" -"(let-values() s_402)" -"(if(identifier? s_402)" -"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_402) s_402))" +"(let-values() s_398)" +"(if(identifier? s_398)" +"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_398) s_398))" "(let-values()" -"(let-values(((disarmed-s_4)(syntax-disarm$1 s_402)))" +"(let-values(((disarmed-s_4)(syntax-disarm$1 s_398)))" "(syntax-rearm$1" "(syntax-track-origin$1" -"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_402)" -" s_402)" -" s_402))))))))" +"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_398)" +" s_398)" +" s_398))))))))" "(define-values" "(register-variable-referenced-if-local!)" -"(lambda(binding_25)" +"(lambda(binding_26)" "(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_26)(reference-record?(binding-frame-id binding_26)) #f)" +"(let-values()(reference-record-used!(binding-frame-id binding_26)(local-binding-key binding_26)))" "(void)))))" "(define-values" "(expand/capture-lifts30.1)" @@ -38961,11 +38818,11 @@ static const char *startup_source = " expand-lifts?24_0" " lift-key22_0" " lift-key26_0" -" s28_1" +" s28_2" " ctx29_0)" "(begin" " 'expand/capture-lifts30" -"(let-values(((s_99) s28_1))" +"(let-values(((s_387) s28_2))" "(let-values(((ctx_31) ctx29_0))" "(let-values(((expand-lifts?_0)(if expand-lifts?24_0 expand-lifts?20_0 #f)))" "(let-values(((begin-form?_0)(if begin-form?25_0 begin-form?21_0 #f)))" @@ -38973,10 +38830,10 @@ static const char *startup_source = "(let-values(((always-wrap?_0)(if always-wrap?27_0 always-wrap?23_0 #f)))" "(let-values()" "(let-values(((context_6)(expand-context-context ctx_31)))" -"(let-values(((phase_104)(expand-context-phase ctx_31)))" +"(let-values(((phase_102)(expand-context-phase ctx_31)))" "(let-values(((local?_0)(not begin-form?_0)))" -"((letrec-values(((loop_96)" -"(lambda(s_403 always-wrap?_1 ctx_32)" +"((letrec-values(((loop_92)" +"(lambda(s_399 always-wrap?_1 ctx_32)" "(begin" " 'loop" "(let-values(((lift-env_2)(if local?_0(box empty-env) #f)))" @@ -38993,15 +38850,15 @@ static const char *startup_source = " #f)))" "(make-lift-context6.1 temp129_0 #t temp128_0))))" "(let-values(((capture-ctx_0)" -"(let-values(((v_185) ctx_32))" -"(let-values(((the-struct_62) v_185))" -"(if(expand-context/outer? the-struct_62)" +"(let-values(((v_187) ctx_32))" +"(let-values(((the-struct_63) v_187))" +"(if(expand-context/outer? the-struct_63)" "(let-values(((inner130_0)" -"(let-values(((the-struct_63)" +"(let-values(((the-struct_64)" "(root-expand-context/outer-inner" -" v_185)))" +" v_187)))" "(if(expand-context/inner?" -" the-struct_63)" +" the-struct_64)" "(let-values(((lift-key131_0)" " lift-key_2)" "((lifts132_0)" @@ -39015,10 +38872,10 @@ static const char *startup_source = "(expand-context-lift-envs" " ctx_32)))" "((module-lifts134_0)" -"(if(let-values(((or-part_272)" +"(if(let-values(((or-part_265)" " local?_0))" -"(if or-part_272" -" or-part_272" +"(if or-part_265" +" or-part_265" "(not" "(memq" " context_6" @@ -39029,88 +38886,88 @@ static const char *startup_source = " lift-ctx_0)))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_63)" +" the-struct_64)" "(root-expand-context/inner-module-scopes" -" the-struct_63)" +" the-struct_64)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_63)" +" the-struct_64)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_63)" +" the-struct_64)" "(root-expand-context/inner-defined-syms" -" the-struct_63)" +" the-struct_64)" "(root-expand-context/inner-counter" -" the-struct_63)" +" the-struct_64)" " lift-key131_0" "(expand-context/inner-to-parsed?" -" the-struct_63)" +" the-struct_64)" "(expand-context/inner-phase" -" the-struct_63)" +" the-struct_64)" "(expand-context/inner-namespace" -" the-struct_63)" +" the-struct_64)" "(expand-context/inner-just-once?" -" the-struct_63)" +" the-struct_64)" "(expand-context/inner-module-begin-k" -" the-struct_63)" +" the-struct_64)" "(expand-context/inner-allow-unbound?" -" the-struct_63)" +" the-struct_64)" "(expand-context/inner-in-local-expand?" -" the-struct_63)" +" the-struct_64)" "(expand-context/inner-stops" -" the-struct_63)" +" the-struct_64)" "(expand-context/inner-declared-submodule-names" -" the-struct_63)" +" the-struct_64)" " lifts132_0" " lift-envs133_0" " module-lifts134_0" "(expand-context/inner-require-lifts" -" the-struct_63)" +" the-struct_64)" "(expand-context/inner-to-module-lifts" -" the-struct_63)" +" the-struct_64)" "(expand-context/inner-requires+provides" -" the-struct_63)" +" the-struct_64)" "(expand-context/inner-observer" -" the-struct_63)" +" the-struct_64)" "(expand-context/inner-for-serializable?" -" the-struct_63)" +" the-struct_64)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_63)))" +" the-struct_64)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_63)))))" +" the-struct_64)))))" "(expand-context/outer1.1" " inner130_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_62)" +" the-struct_63)" "(root-expand-context/outer-use-site-scopes" -" the-struct_62)" +" the-struct_63)" "(root-expand-context/outer-frame-id" -" the-struct_62)" -"(expand-context/outer-context the-struct_62)" -"(expand-context/outer-env the-struct_62)" +" the-struct_63)" +"(expand-context/outer-context the-struct_63)" +"(expand-context/outer-env the-struct_63)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_62)" -"(expand-context/outer-scopes the-struct_62)" +" the-struct_63)" +"(expand-context/outer-scopes the-struct_63)" "(expand-context/outer-def-ctx-scopes" -" the-struct_62)" +" the-struct_63)" "(expand-context/outer-binding-layer" -" the-struct_62)" +" the-struct_63)" "(expand-context/outer-reference-records" -" the-struct_62)" +" the-struct_63)" "(expand-context/outer-only-immediate?" -" the-struct_62)" +" the-struct_63)" "(expand-context/outer-need-eventually-defined" -" the-struct_62)" +" the-struct_63)" "(expand-context/outer-current-introduction-scopes" -" the-struct_62)" -"(expand-context/outer-name the-struct_62)))" +" the-struct_63)" +"(expand-context/outer-name the-struct_63)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_62))))))" -"(let-values(((rebuild-s_0)(keep-properties-only s_403)))" +" the-struct_63))))))" +"(let-values(((rebuild-s_0)(keep-properties-only s_399)))" "(let-values(((exp-s_2)" -"(let-values(((s135_0) s_403)" +"(let-values(((s135_0) s_399)" "((capture-ctx136_0) capture-ctx_0))" "(expand7.1" " #f" @@ -39123,10 +38980,10 @@ static const char *startup_source = "(get-and-clear-lifts!" "(expand-context-lifts capture-ctx_0))))" "(let-values(((with-lifts-s_0)" -"(if(let-values(((or-part_273)" +"(if(let-values(((or-part_266)" "(pair? lifts_6)))" -"(if or-part_273" -" or-part_273" +"(if or-part_266" +" or-part_266" " always-wrap?_1))" "(let-values()" "(if(expand-context-to-parsed? ctx_32)" @@ -39143,13 +39000,13 @@ static const char *startup_source = " rebuild-s_0" " ctx_32" "(lambda(rhs_15 rhs-ctx_0)" -"(loop_96 rhs_15 #f rhs-ctx_0)))))" +"(loop_92 rhs_15 #f rhs-ctx_0)))))" "(let-values()" "(if begin-form?_0" "(let-values(((lifts137_0) lifts_6)" "((exp-s138_0) exp-s_2)" "((phase139_0)" -" phase_104))" +" phase_102))" "(wrap-lifts-as-begin16.1" " #f" " #f" @@ -39161,31 +39018,31 @@ static const char *startup_source = "(wrap-lifts-as-let" " lifts_6" " exp-s_2" -" phase_104)))))" +" phase_102)))))" "(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" +"(if(let-values(((or-part_267)(not expand-lifts?_0)))" +"(if or-part_267" +" or-part_267" +"(let-values(((or-part_268)(null? lifts_6)))" +"(if or-part_268" +" or-part_268" "(expand-context-to-parsed? ctx_32)))))" "(let-values() with-lifts-s_0)" "(let-values()" "(begin" -"(let-values(((obs_27)" +"(let-values(((obs_26)" "(expand-context-observer ctx_32)))" -"(if obs_27" +"(if obs_26" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_27" +" obs_26" " 'letlift-loop" " with-lifts-s_0)))" "(void)))" -"(loop_96 with-lifts-s_0 #f ctx_32)))))))))))))))" -" loop_96)" -" s_99" +"(loop_92 with-lifts-s_0 #f ctx_32)))))))))))))))" +" loop_92)" +" s_387" " always-wrap?_0" " ctx_31))))))))))))))" "(define-values" @@ -39206,7 +39063,7 @@ static const char *startup_source = " ctx46_0)" "(begin" " 'expand-transformer47" -"(let-values(((s_404) s45_0))" +"(let-values(((s_400) s45_0))" "(let-values(((ctx_33) ctx46_0))" "(let-values(((context_7)(if context39_0 context33_0 'expression)))" "(let-values(((begin-form?_1)(if begin-form?40_0 begin-form?34_0 #f)))" @@ -39217,9 +39074,18 @@ static const char *startup_source = "(let-values()" "(let-values()" "(let-values(((trans-ctx_0)" -"(let-values(((keep-stops?148_0) keep-stops?_0))" -"(context->transformer-context55.1 keep-stops?148_0 #t ctx_33 context_7 #t))))" -"(let-values(((expand-lifts?142_0) expand-lifts?_1)" +"(let-values(((ctx146_0) ctx_33)" +"((context147_0) context_7)" +"((keep-stops?148_0) keep-stops?_0))" +"(context->transformer-context55.1" +" keep-stops?148_0" +" #t" +" ctx146_0" +" context147_0" +" #t))))" +"(let-values(((s140_0) s_400)" +"((trans-ctx141_0) trans-ctx_0)" +"((expand-lifts?142_0) expand-lifts?_1)" "((begin-form?143_0) begin-form?_1)" "((lift-key144_0) lift-key_3)" "((always-wrap?145_0) always-wrap?_2))" @@ -39232,8 +39098,8 @@ static const char *startup_source = " #t" " lift-key144_0" " #t" -" s_404" -" trans-ctx_0))))))))))))))))" +" s140_0" +" trans-ctx141_0))))))))))))))))" "(define-values" "(context->transformer-context55.1)" "(lambda(keep-stops?50_0 keep-stops?51_0 ctx54_0 context52_0 context53_0)" @@ -39243,13 +39109,13 @@ static const char *startup_source = "(let-values(((context_8)(if context53_0 context52_0 'expression)))" "(let-values(((keep-stops?_1)(if keep-stops?51_0 keep-stops?50_0 #f)))" "(let-values()" -"(let-values(((phase_105)(add1(expand-context-phase ctx_34))))" -"(let-values(((ns_72)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_105)))" +"(let-values(((phase_103)(add1(expand-context-phase ctx_34))))" +"(let-values(((ns_72)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_103)))" "(begin" -"(namespace-visit-available-modules! ns_72 phase_105)" -"(let-values(((v_186) ctx_34))" -"(let-values(((the-struct_64) v_186))" -"(if(expand-context/outer? the-struct_64)" +"(namespace-visit-available-modules! ns_72 phase_103)" +"(let-values(((v_188) ctx_34))" +"(let-values(((the-struct_65) v_188))" +"(if(expand-context/outer? the-struct_65)" "(let-values(((context149_0) context_8)" "((scopes150_0) null)" "((env151_0) empty-env)" @@ -39258,61 +39124,61 @@ static const char *startup_source = "((def-ctx-scopes153_0) #f)" "((post-expansion-scope154_0) #f)" "((inner155_0)" -"(let-values(((the-struct_65)(root-expand-context/outer-inner v_186)))" -"(if(expand-context/inner? the-struct_65)" -"(let-values(((phase156_0) phase_105)" +"(let-values(((the-struct_66)(root-expand-context/outer-inner v_188)))" +"(if(expand-context/inner? the-struct_66)" +"(let-values(((phase156_0) phase_103)" "((namespace157_0) ns_72)" "((stops158_0)" "(if keep-stops?_1" "(expand-context-stops ctx_34)" " empty-free-id-set)))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_65)" -"(root-expand-context/inner-module-scopes the-struct_65)" -"(root-expand-context/inner-top-level-bind-scope the-struct_65)" -"(root-expand-context/inner-all-scopes-stx the-struct_65)" -"(root-expand-context/inner-defined-syms the-struct_65)" -"(root-expand-context/inner-counter the-struct_65)" -"(root-expand-context/inner-lift-key the-struct_65)" -"(expand-context/inner-to-parsed? the-struct_65)" +"(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)" " phase156_0" " namespace157_0" -"(expand-context/inner-just-once? the-struct_65)" -"(expand-context/inner-module-begin-k the-struct_65)" -"(expand-context/inner-allow-unbound? the-struct_65)" -"(expand-context/inner-in-local-expand? the-struct_65)" +"(expand-context/inner-just-once? the-struct_66)" +"(expand-context/inner-module-begin-k the-struct_66)" +"(expand-context/inner-allow-unbound? the-struct_66)" +"(expand-context/inner-in-local-expand? the-struct_66)" " stops158_0" -"(expand-context/inner-declared-submodule-names the-struct_65)" -"(expand-context/inner-lifts the-struct_65)" -"(expand-context/inner-lift-envs the-struct_65)" -"(expand-context/inner-module-lifts the-struct_65)" -"(expand-context/inner-require-lifts the-struct_65)" -"(expand-context/inner-to-module-lifts the-struct_65)" -"(expand-context/inner-requires+provides the-struct_65)" -"(expand-context/inner-observer the-struct_65)" -"(expand-context/inner-for-serializable? the-struct_65)" -"(expand-context/inner-should-not-encounter-macros? the-struct_65)))" +"(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_65)))))" +" the-struct_66)))))" "(expand-context/outer1.1" " inner155_0" " post-expansion-scope154_0" -"(root-expand-context/outer-use-site-scopes the-struct_64)" -"(root-expand-context/outer-frame-id the-struct_64)" +"(root-expand-context/outer-use-site-scopes the-struct_65)" +"(root-expand-context/outer-frame-id the-struct_65)" " context149_0" " env151_0" -"(expand-context/outer-post-expansion-scope-action the-struct_64)" +"(expand-context/outer-post-expansion-scope-action the-struct_65)" " scopes150_0" " def-ctx-scopes153_0" -"(expand-context/outer-binding-layer the-struct_64)" -"(expand-context/outer-reference-records the-struct_64)" +"(expand-context/outer-binding-layer the-struct_65)" +"(expand-context/outer-reference-records the-struct_65)" " only-immediate?152_0" -"(expand-context/outer-need-eventually-defined the-struct_64)" -"(expand-context/outer-current-introduction-scopes the-struct_64)" -"(expand-context/outer-name the-struct_64)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_64))))))))))))))" +"(expand-context/outer-need-eventually-defined the-struct_65)" +"(expand-context/outer-current-introduction-scopes the-struct_65)" +"(expand-context/outer-name the-struct_65)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_65))))))))))))))" "(define-values" "(expand+eval-for-syntaxes-binding63.1)" "(lambda(log-next?58_0 log-next?59_0 rhs60_0 ids61_0 ctx62_0)" @@ -39326,7 +39192,7 @@ static const char *startup_source = "(let-values(((exp-rhs_0)" "(let-values(((rhs159_0) rhs_16)((temp160_1)(as-named-context ctx_35 ids_19)))" "(expand-transformer47.1 #f #f #f #f #f #f #f #f #f #f #f #f rhs159_0 temp160_1))))" -"(let-values(((phase_106)(add1(expand-context-phase ctx_35))))" +"(let-values(((phase_104)(add1(expand-context-phase ctx_35))))" "(let-values(((parsed-rhs_0)" "(if(expand-context-to-parsed? ctx_35)" " exp-rhs_0" @@ -39338,8 +39204,8 @@ static const char *startup_source = "(begin" "(if log-next?_0" "(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_27)(expand-context-observer ctx_35)))" +"(if obs_27(let-values()(let-values()(call-expand-observe obs_27 'next)))(void))))" "(void))" "(values" " exp-rhs_0" @@ -39347,8 +39213,8 @@ static const char *startup_source = "(eval-for-bindings" " ids_19" " parsed-rhs_0" -" phase_106" -"(namespace->namespace-at-phase(expand-context-namespace ctx_35) phase_106)" +" phase_104" +"(namespace->namespace-at-phase(expand-context-namespace ctx_35) phase_104)" " ctx_35))))))))))))))" "(define-values" "(eval-for-syntaxes-binding)" @@ -39360,14 +39226,14 @@ static const char *startup_source = " vals_3))))" "(define-values" "(eval-for-bindings)" -"(lambda(ids_21 p_48 phase_107 ns_73 ctx_37)" +"(lambda(ids_21 p_47 phase_105 ns_73 ctx_37)" "(begin" "(let-values(((compiled_0)" -"(if(can-direct-eval? p_48 ns_73(root-expand-context-self-mpi ctx_37))" +"(if(can-direct-eval? p_47 ns_73(root-expand-context-self-mpi ctx_37))" " #f" "(compile-single" -" p_48" -"(let-values(((ns167_0) ns_73)((phase168_1) phase_107))" +" p_47" +"(let-values(((ns167_0) ns_73)((phase168_1) phase_105))" "(make-compile-context14.1 #f #f #f #f #f #f ns167_0 #t phase168_1 #t #f #f))))))" "(let-values(((vals_4)" "(call-with-values" @@ -39385,15 +39251,15 @@ static const char *startup_source = "(let-values()" "(if compiled_0" "(eval-single-top compiled_0 ns_73)" -"(direct-eval p_48 ns_73(root-expand-context-self-mpi ctx_37))))))" +"(direct-eval p_47 ns_73(root-expand-context-self-mpi ctx_37))))))" " list)))" "(begin" "(if(=(length vals_4)(length ids_21))" "(void)" -" (let-values () (error \"wrong number of results (\" (length vals_4) \"vs.\" (length ids_21) \")\" \"from\" p_48)))" +" (let-values () (error \"wrong number of results (\" (length vals_4) \"vs.\" (length ids_21) \")\" \"from\" p_47)))" " vals_4))))))" -"(define-values(keep-properties-only)(lambda(s_384)(begin(datum->syntax$1 #f 'props s_384 s_384))))" -"(define-values(keep-properties-only~)(lambda(s_385)(begin #f)))" +"(define-values(keep-properties-only)(lambda(s_401)(begin(datum->syntax$1 #f 'props s_401 s_401))))" +"(define-values(keep-properties-only~)(lambda(s_402)(begin #f)))" "(define-values" "(keep-as-needed74.1)" "(lambda(for-track?66_0" @@ -39403,62 +39269,62 @@ static const char *startup_source = " keep-for-parsed?67_0" " keep-for-parsed?70_0" " ctx72_0" -" s73_0)" +" s73_1)" "(begin" " 'keep-as-needed74" "(let-values(((ctx_38) ctx72_0))" -"(let-values(((s_405) s73_0))" +"(let-values(((s_403) s73_1))" "(let-values()" "(let-values(((keep-for-parsed?_0)(if keep-for-parsed?70_0 keep-for-parsed?67_0 #f)))" "(let-values(((keep-for-error?_0)(if keep-for-error?71_0 keep-for-error?68_0 #f)))" "(let-values()" -"(let-values(((d_33)(syntax-e$1 s_405)))" +"(let-values(((d_32)(syntax-e$1 s_403)))" "(let-values(((keep-e_0)" -"(if(symbol? d_33)" -"(let-values() d_33)" -"(if(if(pair? d_33)(identifier?(car d_33)) #f)" -"(let-values()(syntax-e$1(car d_33)))" +"(if(symbol? d_32)" +"(let-values() d_32)" +"(if(if(pair? d_32)(identifier?(car d_32)) #f)" +"(let-values()(syntax-e$1(car d_32)))" "(let-values() #f)))))" "(if(expand-context-to-parsed? ctx_38)" "(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_405 s_405)" +"(if(let-values(((or-part_269) keep-for-parsed?_0))" +"(if or-part_269 or-part_269 keep-for-error?_0))" +"(datum->syntax$1 #f keep-e_0 s_403 s_403)" " #f))" "(let-values()" "(syntax-rearm$1" -"(datum->syntax$1(syntax-disarm$1 s_405) keep-e_0 s_405 s_405)" -" s_405))))))))))))))" +"(datum->syntax$1(syntax-disarm$1 s_403) keep-e_0 s_403 s_403)" +" s_403))))))))))))))" "(define-values" "(attach-disappeared-transformer-bindings)" -"(lambda(s_406 trans-idss_0)" +"(lambda(s_404 trans-idss_0)" "(begin" "(if(null? trans-idss_0)" -"(let-values() s_406)" +"(let-values() s_404)" "(let-values()" "(syntax-property$1" -" s_406" +" s_404" " 'disappeared-binding" "(append" "(apply append trans-idss_0)" -"(let-values(((or-part_277)(syntax-property$1 s_406 'disappeared-binding)))" -"(if or-part_277 or-part_277 null)))))))))" +"(let-values(((or-part_270)(syntax-property$1 s_404 'disappeared-binding)))" +"(if or-part_270 or-part_270 null)))))))))" "(define-values" "(increment-binding-layer)" "(lambda(ids_22 ctx_39 layer-val_0)" "(begin" -"(if((letrec-values(((loop_97)" +"(if((letrec-values(((loop_93)" "(lambda(ids_23)" "(begin" " 'loop" -"(let-values(((or-part_125)(identifier? ids_23)))" -"(if or-part_125" -" or-part_125" +"(let-values(((or-part_271)(identifier? ids_23)))" +"(if or-part_271" +" or-part_271" "(if(pair? ids_23)" -"(let-values(((or-part_126)(loop_97(car ids_23))))" -"(if or-part_126 or-part_126(loop_97(cdr ids_23))))" +"(let-values(((or-part_272)(loop_93(car ids_23))))" +"(if or-part_272 or-part_272(loop_93(cdr ids_23))))" " #f)))))))" -" loop_97)" +" loop_93)" " ids_22)" " layer-val_0" "(expand-context-binding-layer ctx_39)))))" @@ -39485,39 +39351,39 @@ static const char *startup_source = "(list" "(lets-loop_0" "(cdr idss+keyss+rhss_1)" -"(let-values(((v_187) rhs-ctx_1))" -"(let-values(((the-struct_66) v_187))" -"(if(expand-context/outer? the-struct_66)" +"(let-values(((v_189) rhs-ctx_1))" +"(let-values(((the-struct_67) v_189))" +"(if(expand-context/outer? the-struct_67)" "(let-values(((env169_0)" -"(let-values(((lst_235) ids_24)((lst_236) keys_4))" +"(let-values(((lst_284) ids_24)((lst_285) keys_4))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_235)))" +"(let-values()(check-list lst_284)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_236)))" -"((letrec-values(((for-loop_211)" -"(lambda(env_3 lst_237 lst_238)" +"(let-values()(check-list lst_285)))" +"((letrec-values(((for-loop_249)" +"(lambda(env_3 lst_286 lst_287)" "(begin" " 'for-loop" -"(if(if(pair? lst_237)" -"(pair? lst_238)" +"(if(if(pair? lst_286)" +"(pair? lst_287)" " #f)" -"(let-values(((id_50)" +"(let-values(((id_67)" "(unsafe-car" -" lst_237))" -"((rest_125)" +" lst_286))" +"((rest_159)" "(unsafe-cdr" -" lst_237))" -"((key_81)" +" lst_286))" +"((key_80)" "(unsafe-car" -" lst_238))" -"((rest_126)" +" lst_287))" +"((rest_160)" "(unsafe-cdr" -" lst_238)))" +" lst_287)))" "(let-values(((env_4)" "(let-values(((env_5)" " env_3))" @@ -39525,43 +39391,43 @@ static const char *startup_source = "(let-values()" "(env-extend" " env_5" -" key_81" +" key_80" "(local-variable1.1" -" id_50)))))" +" id_67)))))" "(values" " env_6)))))" "(if(not #f)" -"(for-loop_211" +"(for-loop_249" " env_4" -" rest_125" -" rest_126)" +" rest_159" +" rest_160)" " env_4)))" " env_3)))))" -" for-loop_211)" +" for-loop_249)" "(expand-context-env rhs-ctx_1)" -" lst_235" -" lst_236))))" -"((inner170_0)(root-expand-context/outer-inner v_187)))" +" lst_284" +" lst_285))))" +"((inner170_0)(root-expand-context/outer-inner v_189)))" "(expand-context/outer1.1" " inner170_0" -"(root-expand-context/outer-post-expansion-scope the-struct_66)" -"(root-expand-context/outer-use-site-scopes the-struct_66)" -"(root-expand-context/outer-frame-id the-struct_66)" -"(expand-context/outer-context the-struct_66)" +"(root-expand-context/outer-post-expansion-scope the-struct_67)" +"(root-expand-context/outer-use-site-scopes the-struct_67)" +"(root-expand-context/outer-frame-id the-struct_67)" +"(expand-context/outer-context the-struct_67)" " env169_0" -"(expand-context/outer-post-expansion-scope-action the-struct_66)" -"(expand-context/outer-scopes the-struct_66)" -"(expand-context/outer-def-ctx-scopes the-struct_66)" -"(expand-context/outer-binding-layer the-struct_66)" -"(expand-context/outer-reference-records the-struct_66)" -"(expand-context/outer-only-immediate? the-struct_66)" -"(expand-context/outer-need-eventually-defined the-struct_66)" -"(expand-context/outer-current-introduction-scopes the-struct_66)" -"(expand-context/outer-name the-struct_66)))" +"(expand-context/outer-post-expansion-scope-action the-struct_67)" +"(expand-context/outer-scopes the-struct_67)" +"(expand-context/outer-def-ctx-scopes the-struct_67)" +"(expand-context/outer-binding-layer the-struct_67)" +"(expand-context/outer-reference-records the-struct_67)" +"(expand-context/outer-only-immediate? the-struct_67)" +"(expand-context/outer-need-eventually-defined the-struct_67)" +"(expand-context/outer-current-introduction-scopes the-struct_67)" +"(expand-context/outer-name the-struct_67)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_66)))))))))))))))))" +" the-struct_67)))))))))))))))))" " lets-loop_0)" " idss+keyss+rhss_0" " ctx_40)))))" @@ -39575,14 +39441,14 @@ static const char *startup_source = "(let-values()(1/rename-transformer-target t_53))))))" "(define-values" "(maybe-install-free=id-in-context!)" -"(lambda(val_68 id_67 phase_108 ctx_42)" +"(lambda(val_66 id_68 phase_106 ctx_42)" "(begin" -"(if(1/rename-transformer? val_68)" +"(if(1/rename-transformer? val_66)" "(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_68 id_67 phase_108))))" +"(let-values()(maybe-install-free=id! val_66 id_68 phase_106))))" "(void)))))" "(define-values" "(transfer-srcloc)" @@ -39590,63 +39456,63 @@ static const char *startup_source = "(begin" "(let-values(((srcloc_7)(syntax-srcloc old-s_0)))" "(if srcloc_7" -"(let-values(((the-struct_67) new-s_1))" -"(if(syntax?$1 the-struct_67)" +"(let-values(((the-struct_68) new-s_1))" +"(if(syntax?$1 the-struct_68)" "(let-values(((srcloc171_0) srcloc_7))" "(syntax1.1" -"(syntax-content the-struct_67)" -"(syntax-scopes the-struct_67)" -"(syntax-shifted-multi-scopes the-struct_67)" -"(syntax-scope-propagations+tamper the-struct_67)" -"(syntax-mpi-shifts the-struct_67)" +"(syntax-content the-struct_68)" +"(syntax-scopes the-struct_68)" +"(syntax-shifted-multi-scopes the-struct_68)" +"(syntax-scope-propagations+tamper the-struct_68)" +"(syntax-mpi-shifts the-struct_68)" " srcloc171_0" -"(syntax-props the-struct_67)" -"(syntax-inspector the-struct_67)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_67)))" +"(syntax-props the-struct_68)" +"(syntax-inspector the-struct_68)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_68)))" " new-s_1)))))" "(define-values" "(stop-ids->all-stop-ids)" -"(lambda(stop-ids_0 phase_40)" +"(lambda(stop-ids_0 phase_42)" "(begin" "(if(null? stop-ids_0)" "(let-values() stop-ids_0)" "(let-values()" -"(let-values(((p-core-stx_0)(syntax-shift-phase-level$1 core-stx phase_40)))" +"(let-values(((p-core-stx_0)(syntax-shift-phase-level$1 core-stx phase_42)))" "(if(if(= 1(length stop-ids_0))" -"(free-identifier=?$1(car stop-ids_0)(datum->syntax$1 p-core-stx_0 'module*) phase_40 phase_40)" +"(free-identifier=?$1(car stop-ids_0)(datum->syntax$1 p-core-stx_0 'module*) phase_42 phase_42)" " #f)" "(let-values() stop-ids_0)" "(let-values()" "(append" " stop-ids_0" "(reverse$1" -"(let-values(((lst_96) auto-stop-syms))" +"(let-values(((lst_99) auto-stop-syms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_96)))" -"((letrec-values(((for-loop_107)" -"(lambda(fold-var_85 lst_6)" +"(let-values()(check-list lst_99)))" +"((letrec-values(((for-loop_108)" +"(lambda(fold-var_86 lst_6)" "(begin" " 'for-loop" "(if(pair? lst_6)" -"(let-values(((sym_65)(unsafe-car lst_6))((rest_46)(unsafe-cdr lst_6)))" -"(let-values(((fold-var_86)" -"(let-values(((fold-var_87) fold-var_85))" -"(let-values(((fold-var_59)" +"(let-values(((sym_63)(unsafe-car lst_6))((rest_47)(unsafe-cdr lst_6)))" +"(let-values(((fold-var_87)" +"(let-values(((fold-var_88) fold-var_86))" +"(let-values(((fold-var_60)" "(let-values()" "(cons" "(let-values()" "(datum->syntax$1" " p-core-stx_0" -" sym_65))" -" fold-var_87))))" -"(values fold-var_59)))))" -"(if(not #f)(for-loop_107 fold-var_86 rest_46) fold-var_86)))" -" fold-var_85)))))" -" for-loop_107)" +" sym_63))" +" fold-var_88))))" +"(values fold-var_60)))))" +"(if(not #f)(for-loop_108 fold-var_87 rest_47) fold-var_87)))" +" fold-var_86)))))" +" for-loop_108)" " null" -" lst_96)))))))))))))" +" lst_99)))))))))))))" "(define-values" "(auto-stop-syms)" " '(begin" @@ -39666,21 +39532,21 @@ static const char *startup_source = " #%variable-reference))" "(define-values" "(module-expand-stop-ids)" -"(lambda(phase_109)" +"(lambda(phase_107)" "(begin" -"(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_109)))" +"(let-values(((p-core-stx_1)(syntax-shift-phase-level$1 core-stx phase_107)))" "(reverse$1" -"(let-values(((lst_220) module-stop-syms))" +"(let-values(((lst_223) module-stop-syms))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_220)))" -"((letrec-values(((for-loop_243)" -"(lambda(fold-var_234 lst_281)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_223)))" +"((letrec-values(((for-loop_250)" +"(lambda(fold-var_239 lst_263)" "(begin" " 'for-loop" -"(if(pair? lst_281)" -"(let-values(((sym_17)(unsafe-car lst_281))((rest_154)(unsafe-cdr lst_281)))" +"(if(pair? lst_263)" +"(let-values(((sym_17)(unsafe-car lst_263))((rest_161)(unsafe-cdr lst_263)))" "(let-values(((fold-var_217)" -"(let-values(((fold-var_30) fold-var_234))" +"(let-values(((fold-var_30) fold-var_239))" "(let-values(((fold-var_218)" "(let-values()" "(cons" @@ -39688,11 +39554,11 @@ static const char *startup_source = "(datum->syntax$1 p-core-stx_1 sym_17))" " fold-var_30))))" "(values fold-var_218)))))" -"(if(not #f)(for-loop_243 fold-var_217 rest_154) fold-var_217)))" -" fold-var_234)))))" -" for-loop_243)" +"(if(not #f)(for-loop_250 fold-var_217 rest_161) fold-var_217)))" +" fold-var_239)))))" +" for-loop_250)" " null" -" lst_220))))))))" +" lst_223))))))))" "(define-values" "(module-stop-syms)" "(append" @@ -39754,9 +39620,9 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_233)(not parent-ctx_0)))" -"(if or-part_233" -" or-part_233" +"(if(let-values(((or-part_33)(not parent-ctx_0)))" +"(if or-part_33" +" or-part_33" "(1/internal-definition-context? parent-ctx_0)))" "(void)" "(let-values()" @@ -39769,14 +39635,14 @@ static const char *startup_source = "(let-values(((temp42_1) 'syntax-local-make-definition-context))" "(get-current-expand-context17.1 #f #f temp42_1 #t))))" "(let-values(((frame-id_8)" -"(let-values(((or-part_235)(root-expand-context-frame-id ctx_43)))" -"(if or-part_235" -" or-part_235" -"(let-values(((or-part_236)" +"(let-values(((or-part_273)(root-expand-context-frame-id ctx_43)))" +"(if or-part_273" +" or-part_273" +"(let-values(((or-part_229)" "(if parent-ctx_0" "(internal-definition-context-frame-id parent-ctx_0)" " #f)))" -"(if or-part_236 or-part_236(gensym)))))))" +"(if or-part_229 or-part_229(gensym)))))))" "(let-values(((sc_27)(new-scope 'intdef)))" "(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_43)))" "(begin" @@ -39796,7 +39662,7 @@ static const char *startup_source = "((parent-ctx3_1)(syntax-local-make-definition-context7_0 parent-ctx3_1 #f #t #f)))))" "(define-values" "(1/syntax-local-bind-syntaxes)" -"(lambda(ids_25 s_407 intdef_0)" +"(lambda(ids_25 s_405 intdef_0)" "(begin" " 'syntax-local-bind-syntaxes" "(let-values((()" @@ -39808,9 +39674,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_278)(not s_407)))(if or-part_278 or-part_278(syntax?$1 s_407)))" +"(if(let-values(((or-part_162)(not s_405)))(if or-part_162 or-part_162(syntax?$1 s_405)))" "(void)" -" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_407)))" +" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_405)))" "(values))))" "(let-values((()" "(begin" @@ -39826,88 +39692,96 @@ static const char *startup_source = "(let-values(((temp43_1) 'local-expand))(get-current-expand-context17.1 #f #f temp43_1 #t))))" "(let-values((()" "(begin" -"(let-values(((obs_29)(expand-context-observer ctx_44)))" -"(if obs_29" -"(let-values()(let-values()(call-expand-observe obs_29 'local-bind ids_25)))" +"(let-values(((obs_28)(expand-context-observer ctx_44)))" +"(if obs_28" +"(let-values()(let-values()(call-expand-observe obs_28 'local-bind ids_25)))" "(void)))" "(values))))" -"(let-values(((phase_110)(expand-context-phase ctx_44)))" +"(let-values(((phase_108)(expand-context-phase ctx_44)))" "(let-values(((intdef-env_0)(add-intdef-bindings(expand-context-env ctx_44) intdef_0)))" "(let-values(((intdef-ids_0)" "(reverse$1" -"(let-values(((lst_282) ids_25))" +"(let-values(((lst_288) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_282)))" -"((letrec-values(((for-loop_172)" -"(lambda(fold-var_16 lst_182)" +"(let-values()(check-list lst_288)))" +"((letrec-values(((for-loop_175)" +"(lambda(fold-var_16 lst_184)" "(begin" " 'for-loop" -"(if(pair? lst_182)" -"(let-values(((id_68)(unsafe-car lst_182))" -"((rest_155)(unsafe-cdr lst_182)))" -"(let-values(((fold-var_224)" -"(let-values(((fold-var_235)" +"(if(pair? lst_184)" +"(let-values(((id_69)(unsafe-car lst_184))" +"((rest_162)(unsafe-cdr lst_184)))" +"(let-values(((fold-var_230)" +"(let-values(((fold-var_240)" " fold-var_16))" -"(let-values(((fold-var_236)" +"(let-values(((fold-var_241)" "(let-values()" "(cons" "(let-values()" "(let-values(((pre-id_0)" "(remove-use-site-scopes" "(flip-introduction-scopes" -" id_68" +" id_69" " ctx_44)" " ctx_44)))" -"(let-values(((temp46_2)" +"(let-values(((pre-id44_0)" +" pre-id_0)" +"((intdef45_0)" +" intdef_0)" +"((temp46_2)" " #t))" "(add-intdef-scopes21.1" " #f" " #f" " temp46_2" " #t" -" pre-id_0" -" intdef_0))))" -" fold-var_235))))" -"(values fold-var_236)))))" +" pre-id44_0" +" intdef45_0))))" +" fold-var_240))))" +"(values fold-var_241)))))" "(if(not #f)" -"(for-loop_172 fold-var_224 rest_155)" -" fold-var_224)))" +"(for-loop_175 fold-var_230 rest_162)" +" fold-var_230)))" " fold-var_16)))))" -" for-loop_172)" +" for-loop_175)" " null" -" lst_282))))))" +" lst_288))))))" "(let-values((()" "(begin" -"(let-values(((obs_30)(expand-context-observer ctx_44)))" -"(if obs_30" +"(let-values(((obs_29)(expand-context-observer ctx_44)))" +"(if obs_29" "(let-values()" -"(let-values()(call-expand-observe obs_30 'rename-list intdef-ids_0)))" +"(let-values()(call-expand-observe obs_29 'rename-list intdef-ids_0)))" "(void)))" "(values))))" "(let-values(((syms_21)" "(reverse$1" -"(let-values(((lst_184) intdef-ids_0))" +"(let-values(((lst_289) intdef-ids_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_184)))" -"((letrec-values(((for-loop_187)" -"(lambda(fold-var_237 lst_283)" +"(let-values()(check-list lst_289)))" +"((letrec-values(((for-loop_251)" +"(lambda(fold-var_242 lst_290)" "(begin" " 'for-loop" -"(if(pair? lst_283)" -"(let-values(((intdef-id_0)(unsafe-car lst_283))" -"((rest_156)(unsafe-cdr lst_283)))" -"(let-values(((fold-var_238)" -"(let-values(((fold-var_239)" -" fold-var_237))" -"(let-values(((fold-var_158)" +"(if(pair? lst_290)" +"(let-values(((intdef-id_0)(unsafe-car lst_290))" +"((rest_163)(unsafe-cdr lst_290)))" +"(let-values(((fold-var_243)" +"(let-values(((fold-var_244)" +" fold-var_242))" +"(let-values(((fold-var_245)" "(let-values()" "(cons" "(let-values()" -"(let-values(((temp49_1)" +"(let-values(((intdef-id47_0)" +" intdef-id_0)" +"((phase48_0)" +" phase_108)" +"((temp49_1)" "(root-expand-context-counter" " ctx_44))" "((temp50_1)" @@ -39918,44 +39792,46 @@ static const char *startup_source = " #t" " #f" " #f" -" intdef-id_0" -" phase_110" +" intdef-id47_0" +" phase48_0" " temp49_1)))" -" fold-var_239))))" -"(values fold-var_158)))))" +" fold-var_244))))" +"(values fold-var_245)))))" "(if(not #f)" -"(for-loop_187 fold-var_238 rest_156)" -" fold-var_238)))" -" fold-var_237)))))" -" for-loop_187)" +"(for-loop_251 fold-var_243 rest_163)" +" fold-var_243)))" +" fold-var_242)))))" +" for-loop_251)" " null" -" lst_184))))))" +" lst_289))))))" "(let-values(((vals_5)" -"(if s_407" +"(if s_405" "(let-values()" "(let-values(((input-s_0)" "(flip-introduction-scopes" -"(let-values(((temp53_2) #t))" -"(add-intdef-scopes21.1 #f #f temp53_2 #t s_407 intdef_0))" +"(let-values(((s51_0) s_405)" +"((intdef52_0) intdef_0)" +"((temp53_2) #t))" +"(add-intdef-scopes21.1 #f #f temp53_2 #t s51_0 intdef52_0))" " ctx_44)))" "(let-values(((tmp-env_0)" -"(let-values(((lst_284) syms_21))" +"(let-values(((lst_100) syms_21))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_284)))" -"((letrec-values(((for-loop_35)" -"(lambda(env_7 lst_165)" +"(let-values()(check-list lst_100)))" +"((letrec-values(((for-loop_6)" +"(lambda(env_7 lst_101)" "(begin" " 'for-loop" -"(if(pair? lst_165)" -"(let-values(((sym_2)" +"(if(pair? lst_101)" +"(let-values(((sym_64)" "(unsafe-car" -" lst_165))" -"((rest_157)" +" lst_101))" +"((rest_48)" "(unsafe-cdr" -" lst_165)))" +" lst_101)))" "(let-values(((env_8)" "(let-values(((env_9)" " env_7))" @@ -39963,27 +39839,25 @@ static const char *startup_source = "(let-values()" "(hash-set" " env_9" -" sym_2" +" sym_64" " variable))))" "(values" " env_10)))))" "(if(not #f)" -"(for-loop_35" -" env_8" -" rest_157)" +"(for-loop_6 env_8 rest_48)" " env_8)))" " env_7)))))" -" for-loop_35)" +" for-loop_6)" " intdef-env_0" -" lst_284)))))" +" lst_100)))))" "(let-values((()" "(begin" -"(let-values(((obs_31)" +"(let-values(((obs_30)" "(expand-context-observer ctx_44)))" -"(if obs_31" +"(if obs_30" "(let-values()" "(let-values()" -"(call-expand-observe obs_31 'enter-bind)))" +"(call-expand-observe obs_30 'enter-bind)))" "(void)))" "(values))))" "(let-values(((vals_6)" @@ -39991,47 +39865,47 @@ static const char *startup_source = " input-s_0" " ids_25" "(let-values(((temp54_1)" -"(let-values(((v_188) ctx_44))" -"(let-values(((the-struct_68) v_188))" +"(let-values(((v_190) ctx_44))" +"(let-values(((the-struct_69) v_190))" "(if(expand-context/outer?" -" the-struct_68)" +" the-struct_69)" "(let-values(((env57_0) tmp-env_0)" "((inner58_0)" "(root-expand-context/outer-inner" -" v_188)))" +" v_190)))" "(expand-context/outer1.1" " inner58_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_68)" +" the-struct_69)" "(root-expand-context/outer-use-site-scopes" -" the-struct_68)" +" the-struct_69)" "(root-expand-context/outer-frame-id" -" the-struct_68)" +" the-struct_69)" "(expand-context/outer-context" -" the-struct_68)" +" the-struct_69)" " env57_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_68)" +" the-struct_69)" "(expand-context/outer-scopes" -" the-struct_68)" +" the-struct_69)" "(expand-context/outer-def-ctx-scopes" -" the-struct_68)" +" the-struct_69)" "(expand-context/outer-binding-layer" -" the-struct_68)" +" the-struct_69)" "(expand-context/outer-reference-records" -" the-struct_68)" +" the-struct_69)" "(expand-context/outer-only-immediate?" -" the-struct_68)" +" the-struct_69)" "(expand-context/outer-need-eventually-defined" -" the-struct_68)" +" the-struct_69)" "(expand-context/outer-current-introduction-scopes" -" the-struct_68)" +" the-struct_69)" "(expand-context/outer-name" -" the-struct_68)))" +" the-struct_69)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_68)))))" +" the-struct_69)))))" "((temp55_1) 'expression)" "((intdef56_0) intdef_0))" "(make-local-expand-context37.1" @@ -40047,110 +39921,106 @@ static const char *startup_source = " #f" " temp54_1)))))" "(begin" -"(let-values(((obs_32)(expand-context-observer ctx_44)))" -"(if obs_32" +"(let-values(((obs_31)(expand-context-observer ctx_44)))" +"(if obs_31" "(let-values()" -"(let-values()(call-expand-observe obs_32 'exit-bind)))" +"(let-values()(call-expand-observe obs_31 'exit-bind)))" "(void)))" " vals_6))))))" "(let-values()" "(reverse$1" -"(let-values(((lst_11) ids_25))" +"(let-values(((lst_291) ids_25))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_11)))" -"((letrec-values(((for-loop_7)" -"(lambda(fold-var_176 lst_12)" +"(let-values()(check-list lst_291)))" +"((letrec-values(((for-loop_252)" +"(lambda(fold-var_179 lst_292)" "(begin" " 'for-loop" -"(if(pair? lst_12)" -"(let-values(((id_69)(unsafe-car lst_12))" -"((rest_2)(unsafe-cdr lst_12)))" -"(let-values(((fold-var_240)" -"(let-values(((fold-var_35)" -" fold-var_176))" -"(let-values(((fold-var_241)" +"(if(pair? lst_292)" +"(let-values(((id_70)(unsafe-car lst_292))" +"((rest_164)(unsafe-cdr lst_292)))" +"(let-values(((fold-var_246)" +"(let-values(((fold-var_91)" +" fold-var_179))" +"(let-values(((fold-var_92)" "(let-values()" "(cons" "(let-values()" " variable)" -" fold-var_35))))" -"(values fold-var_241)))))" +" fold-var_91))))" +"(values fold-var_92)))))" "(if(not #f)" -"(for-loop_7 fold-var_240 rest_2)" -" fold-var_240)))" -" fold-var_176)))))" -" for-loop_7)" +"(for-loop_252 fold-var_246 rest_164)" +" fold-var_246)))" +" fold-var_179)))))" +" for-loop_252)" " null" -" lst_11))))))))" +" lst_291))))))))" "(let-values(((env-mixins_0)(internal-definition-context-env-mixins intdef_0)))" "(begin" "(set-box!" " env-mixins_0" "(append" "(reverse$1" -"(let-values(((lst_136) intdef-ids_0)((lst_285) syms_21)((lst_99) vals_5))" +"(let-values(((lst_293) intdef-ids_0)((lst_294) syms_21)((lst_295) vals_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_136)))" +"(let-values()(check-list lst_293)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_285)))" +"(let-values()(check-list lst_294)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_99)))" -"((letrec-values(((for-loop_114)" -"(lambda(fold-var_38 lst_100 lst_14 lst_286)" +"(let-values()(check-list lst_295)))" +"((letrec-values(((for-loop_76)" +"(lambda(fold-var_247 lst_296 lst_36 lst_297)" "(begin" " 'for-loop" -"(if(if(pair? lst_100)" -"(if(pair? lst_14)(pair? lst_286) #f)" +"(if(if(pair? lst_296)" +"(if(pair? lst_36)(pair? lst_297) #f)" " #f)" -"(let-values(((intdef-id_1)(unsafe-car lst_100))" -"((rest_158)(unsafe-cdr lst_100))" -"((sym_66)(unsafe-car lst_14))" -"((rest_159)(unsafe-cdr lst_14))" -"((val_9)(unsafe-car lst_286))" -"((rest_160)(unsafe-cdr lst_286)))" -"(let-values(((fold-var_242)" -"(let-values(((fold-var_243)" -" fold-var_38))" -"(let-values(((fold-var_179)" +"(let-values(((intdef-id_1)(unsafe-car lst_296))" +"((rest_165)(unsafe-cdr lst_296))" +"((sym_65)(unsafe-car lst_36))" +"((rest_100)(unsafe-cdr lst_36))" +"((val_14)(unsafe-car lst_297))" +"((rest_21)(unsafe-cdr lst_297)))" +"(let-values(((fold-var_36)" +"(let-values(((fold-var_37)" +" fold-var_247))" +"(let-values(((fold-var_38)" "(let-values()" "(cons" "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_9" +" val_14" " intdef-id_1" -" phase_110" +" phase_108" " ctx_44)" "(env-mixin2.1" " intdef-id_1" -" sym_66" -" val_9" +" sym_65" +" val_14" "(make-weak-hasheq))))" -" fold-var_243))))" -"(values fold-var_179)))))" +" fold-var_37))))" +"(values fold-var_38)))))" "(if(not #f)" -"(for-loop_114" -" fold-var_242" -" rest_158" -" rest_159" -" rest_160)" -" fold-var_242)))" -" fold-var_38)))))" -" for-loop_114)" +"(for-loop_76 fold-var_36 rest_165 rest_100 rest_21)" +" fold-var_36)))" +" fold-var_247)))))" +" for-loop_76)" " null" -" lst_136" -" lst_285" -" lst_99))))" +" lst_293" +" lst_294" +" lst_295))))" "(unbox env-mixins_0)))" -"(let-values(((obs_33)(expand-context-observer ctx_44)))" -"(if obs_33" -"(let-values()(let-values()(call-expand-observe obs_33 'exit-local-bind)))" +"(let-values(((obs_32)(expand-context-observer ctx_44)))" +"(if obs_32" +"(let-values()(let-values()(call-expand-observe obs_32 'exit-local-bind)))" "(void)))))))))))))))))))" "(define-values" "(1/internal-definition-context-binding-identifiers)" @@ -40166,29 +40036,29 @@ static const char *startup_source = " \"internal-definition-context?\"" " intdef_1)))" "(reverse$1" -"(let-values(((lst_278)(unbox(internal-definition-context-env-mixins intdef_1))))" +"(let-values(((lst_298)(unbox(internal-definition-context-env-mixins intdef_1))))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_278)))" -"((letrec-values(((for-loop_240)" -"(lambda(fold-var_181 lst_279)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_298)))" +"((letrec-values(((for-loop_253)" +"(lambda(fold-var_248 lst_229)" "(begin" " 'for-loop" -"(if(pair? lst_279)" -"(let-values(((env-mixin_0)(unsafe-car lst_279))" -"((rest_153)(unsafe-cdr lst_279)))" -"(let-values(((fold-var_230)" -"(let-values(((fold-var_231) fold-var_181))" -"(let-values(((fold-var_232)" +"(if(pair? lst_229)" +"(let-values(((env-mixin_0)(unsafe-car lst_229))" +"((rest_166)(unsafe-cdr lst_229)))" +"(let-values(((fold-var_249)" +"(let-values(((fold-var_183) fold-var_248))" +"(let-values(((fold-var_250)" "(let-values()" "(cons" "(let-values()(env-mixin-id env-mixin_0))" -" fold-var_231))))" -"(values fold-var_232)))))" -"(if(not #f)(for-loop_240 fold-var_230 rest_153) fold-var_230)))" -" fold-var_181)))))" -" for-loop_240)" +" fold-var_183))))" +"(values fold-var_250)))))" +"(if(not #f)(for-loop_253 fold-var_249 rest_166) fold-var_249)))" +" fold-var_248)))))" +" for-loop_253)" " null" -" lst_278))))))))" +" lst_298))))))))" "(define-values" "(1/internal-definition-context-introduce)" "(let-values(((internal-definition-context-introduce13_0)" @@ -40196,7 +40066,7 @@ static const char *startup_source = "(begin" " 'internal-definition-context-introduce13" "(let-values(((intdef_2) intdef11_0))" -"(let-values(((s_408) s12_1))" +"(let-values(((s_406) s12_1))" "(let-values(((mode_12)(if mode10_0 mode9_0 'flip)))" "(let-values()" "(begin" @@ -40207,28 +40077,30 @@ static const char *startup_source = " 'internal-definition-context-introduce" " \"internal-definition-context?\"" " intdef_2)))" -"(if(syntax?$1 s_408)" +"(if(syntax?$1 s_406)" "(void)" "(let-values()" -" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_408)))" -"(let-values(((temp61_1)" -"(let-values(((tmp_33) mode_12))" -"(if(equal? tmp_33 'add)" +" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_406)))" +"(let-values(((s59_0) s_406)" +"((intdef60_0) intdef_2)" +"((temp61_1)" +"(let-values(((tmp_32) mode_12))" +"(if(equal? tmp_32 'add)" "(let-values() add-scope)" -"(if(equal? tmp_33 'remove)" +"(if(equal? tmp_32 'remove)" "(let-values() remove-scope)" -"(if(equal? tmp_33 'flip)" +"(if(equal? tmp_32 'flip)" "(let-values() flip-scope)" "(let-values()" "(raise-argument-error" " 1/internal-definition-context-introduce" " \"(or/c 'add 'remove 'flip)\"" " mode_12))))))))" -"(add-intdef-scopes21.1 temp61_1 #t #f #f s_408 intdef_2)))))))))))" +"(add-intdef-scopes21.1 temp61_1 #t #f #f s59_0 intdef60_0)))))))))))" "(case-lambda" -"((intdef_3 s_409)" -"(begin 'internal-definition-context-introduce(internal-definition-context-introduce13_0 intdef_3 s_409 #f #f)))" -"((intdef_4 s_59 mode9_1)(internal-definition-context-introduce13_0 intdef_4 s_59 mode9_1 #t)))))" +"((intdef_3 s_196)" +"(begin 'internal-definition-context-introduce(internal-definition-context-introduce13_0 intdef_3 s_196 #f #f)))" +"((intdef_4 s_197 mode9_1)(internal-definition-context-introduce13_0 intdef_4 s_197 mode9_1 #t)))))" "(define-values" "(1/internal-definition-context-seal)" "(lambda(intdef_5)" @@ -40242,65 +40114,65 @@ static const char *startup_source = "(void)))))" "(define-values" "(1/identifier-remove-from-definition-context)" -"(lambda(id_8 intdef_6)" +"(lambda(id_71 intdef_6)" "(begin" " 'identifier-remove-from-definition-context" "(begin" -"(if(identifier? id_8)" +"(if(identifier? id_71)" "(void)" -" (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_8)))" -"(if(let-values(((or-part_279)(1/internal-definition-context? intdef_6)))" -"(if or-part_279 or-part_279(if(list? intdef_6)(andmap2 1/internal-definition-context? intdef_6) #f)))" +" (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_71)))" +"(if(let-values(((or-part_274)(1/internal-definition-context? intdef_6)))" +"(if or-part_274 or-part_274(if(list? intdef_6)(andmap2 1/internal-definition-context? intdef_6) #f)))" "(void)" "(let-values()" "(raise-argument-error" " 'identifier-remove-from-definition-context" " \"(or/c internal-definition-context? (listof internal-definition-context?))\"" " intdef_6)))" -"(let-values(((x_77)" -"(let-values(((a_51) intdef_6))" -"(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_75)" +"(let-values(((a_45) intdef_6))" +"(if(list? a_45)" +"(let-values()(reverse$1 a_45))" +"(if(not a_45)(let-values() null)(let-values()(list a_45)))))))" "(begin" " #t" -"((letrec-values(((for-loop_244)" -"(lambda(id_70 a_52)" +"((letrec-values(((for-loop_176)" +"(lambda(id_72 a_46)" "(begin" " 'for-loop" -"(if(pair? a_52)" -"(let-values(((intdef_7)(car a_52)))" -"(let-values(((id_71)" -"(let-values(((id_72) id_70))" +"(if(pair? a_46)" +"(let-values(((intdef_7)(car a_46)))" "(let-values(((id_73)" +"(let-values(((id_74) id_72))" +"(let-values(((id_75)" "(let-values()" "(1/internal-definition-context-introduce" " intdef_7" -" id_72" +" id_74" " 'remove))))" -"(values id_73)))))" -"(if(not #f)(for-loop_244 id_71(cdr a_52)) id_71)))" -" id_70)))))" -" for-loop_244)" -" id_8" -" x_77)))))))" +"(values id_75)))))" +"(if(not #f)(for-loop_176 id_73(cdr a_46)) id_73)))" +" id_72)))))" +" for-loop_176)" +" id_71" +" x_75)))))))" "(define-values" "(add-intdef-bindings)" "(lambda(env_11 intdefs_0)" "(begin" -"(let-values(((x_78)" -"(let-values(((a_53) intdefs_0))" -"(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_76)" +"(let-values(((a_47) intdefs_0))" +"(if(list? a_47)" +"(let-values()(reverse$1 a_47))" +"(if(not a_47)(let-values() null)(let-values()(list a_47)))))))" "(begin" " #t" -"((letrec-values(((for-loop_245)" -"(lambda(env_12 a_54)" +"((letrec-values(((for-loop_254)" +"(lambda(env_12 a_48)" "(begin" " 'for-loop" -"(if(pair? a_54)" -"(let-values(((intdef_8)(car a_54)))" +"(if(pair? a_48)" +"(let-values(((intdef_8)(car a_48)))" "(let-values(((env_13)" "(let-values(((env_14) env_12))" "(let-values(((env_15)" @@ -40309,7 +40181,7 @@ static const char *startup_source = "(unbox" "(internal-definition-context-env-mixins" " intdef_8))))" -"((letrec-values(((loop_98)" +"((letrec-values(((loop_94)" "(lambda(env_16 env-mixins_2)" "(begin" " 'loop" @@ -40319,17 +40191,17 @@ static const char *startup_source = "(let-values(((env-mixin_1)" "(car" " env-mixins_2)))" -"(let-values(((or-part_215)" +"(let-values(((or-part_275)" "(hash-ref" "(env-mixin-cache" " env-mixin_1)" " env_16" " #f)))" -"(if or-part_215" -" or-part_215" +"(if or-part_275" +" or-part_275" "(let-values(((new-env_0)" "(env-extend" -"(loop_98" +"(loop_94" " env_16" "(cdr" " env-mixins_2))" @@ -40344,59 +40216,59 @@ static const char *startup_source = " env_16" " new-env_0)" " new-env_0)))))))))))" -" loop_98)" +" loop_94)" " env_14" " env-mixins_1)))))" "(values env_15)))))" -"(if(not #f)(for-loop_245 env_13(cdr a_54)) env_13)))" +"(if(not #f)(for-loop_254 env_13(cdr a_48)) env_13)))" " env_12)))))" -" for-loop_245)" +" for-loop_254)" " env_11" -" x_78))))))" +" x_76))))))" "(define-values" "(add-intdef-scopes21.1)" "(lambda(action16_0 action18_0 always?15_0 always?17_0 s19_0 intdefs20_0)" "(begin" " 'add-intdef-scopes21" -"(let-values(((s_410) s19_0))" +"(let-values(((s_88) s19_0))" "(let-values(((intdefs_1) intdefs20_0))" "(let-values(((always?_0)(if always?17_0 always?15_0 #f)))" "(let-values(((action_0)(if action18_0 action16_0 add-scope)))" "(let-values()" -"(let-values(((x_79)" -"(let-values(((a_55) intdefs_1))" -"(if(list? a_55)" -"(let-values()(reverse$1 a_55))" -"(if(not a_55)(let-values() null)(let-values()(list a_55)))))))" +"(let-values(((x_77)" +"(let-values(((a_49) intdefs_1))" +"(if(list? a_49)" +"(let-values()(reverse$1 a_49))" +"(if(not a_49)(let-values() null)(let-values()(list a_49)))))))" "(begin" " #t" -"((letrec-values(((for-loop_246)" -"(lambda(s_411 a_56)" +"((letrec-values(((for-loop_45)" +"(lambda(s_390 a_50)" "(begin" " 'for-loop" -"(if(pair? a_56)" -"(let-values(((intdef_9)(car a_56)))" -"(let-values(((s_412)" -"(let-values(((s_152) s_411))" -"(if(let-values(((or-part_280) always?_0))" -"(if or-part_280" -" or-part_280" +"(if(pair? a_50)" +"(let-values(((intdef_9)(car a_50)))" +"(let-values(((s_205)" +"(let-values(((s_90) s_390))" +"(if(let-values(((or-part_276) always?_0))" +"(if or-part_276" +" or-part_276" "(internal-definition-context-add-scope?" " intdef_9)))" -"(let-values(((s_90) s_152))" -"(let-values(((s_413)" +"(let-values(((s_407) s_90))" +"(let-values(((s_321)" "(let-values()" "(action_0" -" s_90" +" s_407" "(internal-definition-context-scope" " intdef_9)))))" -"(values s_413)))" -" s_152))))" -"(if(not #f)(for-loop_246 s_412(cdr a_56)) s_412)))" -" s_411)))))" -" for-loop_246)" -" s_410" -" x_79)))))))))))" +"(values s_321)))" +" s_90))))" +"(if(not #f)(for-loop_45 s_205(cdr a_50)) s_205)))" +" s_390)))))" +" for-loop_45)" +" s_88" +" x_77)))))))))))" "(define-values" "(make-local-expand-context37.1)" "(lambda(context24_0" @@ -40414,54 +40286,54 @@ static const char *startup_source = " 'make-local-expand-context37" "(let-values(((ctx_45) ctx36_0))" "(let-values(((context_9) context24_0))" -"(let-values(((phase_111)(if phase31_0 phase25_0(expand-context-phase ctx_45))))" +"(let-values(((phase_109)(if phase31_0 phase25_0(expand-context-phase ctx_45))))" "(let-values(((intdefs_2) intdefs26_0))" "(let-values(((stop-ids_1)(if stop-ids33_0 stop-ids27_0 #f)))" "(let-values(((to-parsed-ok?_0)(if to-parsed-ok?34_0 to-parsed-ok?28_0 #f)))" "(let-values(((track-to-be-defined?_0)(if track-to-be-defined?35_0 track-to-be-defined?29_0 #f)))" "(let-values()" "(let-values(((same-kind?_0)" -"(let-values(((or-part_281)(eq? context_9(expand-context-context ctx_45))))" -"(if or-part_281" -" or-part_281" +"(let-values(((or-part_133)(eq? context_9(expand-context-context ctx_45))))" +"(if or-part_133" +" or-part_133" "(if(list? context_9)(list?(expand-context-context ctx_45)) #f)))))" "(let-values(((all-stop-ids_0)" -"(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_111) #f)))" +"(if stop-ids_1(stop-ids->all-stop-ids stop-ids_1 phase_109) #f)))" "(let-values(((def-ctx-scopes_5)" "(if(expand-context-def-ctx-scopes ctx_45)" "(unbox(expand-context-def-ctx-scopes ctx_45))" " null)))" -"(let-values(((v_189) ctx_45))" -"(let-values(((the-struct_69) v_189))" -"(if(expand-context/outer? the-struct_69)" +"(let-values(((v_191) ctx_45))" +"(let-values(((the-struct_70) v_191))" +"(if(expand-context/outer? the-struct_70)" "(let-values(((context62_0) context_9)" "((env63_0)(add-intdef-bindings(expand-context-env ctx_45) intdefs_2))" "((use-site-scopes64_0)" -"(if(let-values(((or-part_282)(eq? context_9 'module)))" -"(if or-part_282" -" or-part_282" -"(let-values(((or-part_283)(eq? context_9 'module-begin)))" -"(if or-part_283 or-part_283(list? context_9)))))" -"(let-values(((or-part_170)" +"(if(let-values(((or-part_277)(eq? context_9 'module)))" +"(if or-part_277" +" or-part_277" +"(let-values(((or-part_278)(eq? context_9 'module-begin)))" +"(if or-part_278 or-part_278(list? context_9)))))" +"(let-values(((or-part_279)" "(root-expand-context-use-site-scopes ctx_45)))" -"(if or-part_170 or-part_170(box null)))" +"(if or-part_279 or-part_279(box null)))" " #f))" "((frame-id65_0)" -"(let-values(((x_3)" -"(let-values(((a_57) intdefs_2))" -"(if(list? a_57)" -"(let-values()(reverse$1 a_57))" -"(if(not a_57)" +"(let-values(((x_78)" +"(let-values(((a_51) intdefs_2))" +"(if(list? a_51)" +"(let-values()(reverse$1 a_51))" +"(if(not a_51)" "(let-values() null)" -"(let-values()(list a_57)))))))" +"(let-values()(list a_51)))))))" "(begin" " #t" -"((letrec-values(((for-loop_247)" -"(lambda(frame-id_9 a_58)" +"((letrec-values(((for-loop_255)" +"(lambda(frame-id_9 a_52)" "(begin" " 'for-loop" -"(if(pair? a_58)" -"(let-values(((intdef_10)(car a_58)))" +"(if(pair? a_52)" +"(let-values(((intdef_10)(car a_52)))" "(let-values(((frame-id_10)" "(let-values(((frame-id_11)" " frame-id_9))" @@ -40481,19 +40353,19 @@ static const char *startup_source = "(let-values()" " 'all)" "(let-values()" -"(let-values(((or-part_275)" +"(let-values(((or-part_265)" " frame-id_11))" -"(if or-part_275" -" or-part_275" +"(if or-part_265" +" or-part_265" " i-frame-id_0))))))))" "(values frame-id_12)))))" "(if(not #f)" -"(for-loop_247 frame-id_10(cdr a_58))" +"(for-loop_255 frame-id_10(cdr a_52))" " frame-id_10)))" " frame-id_9)))))" -" for-loop_247)" +" for-loop_255)" "(root-expand-context-frame-id ctx_45)" -" x_3))))" +" x_78))))" "((post-expansion-scope66_0)" "(if intdefs_2" "(new-scope 'macro)" @@ -40504,11 +40376,11 @@ static const char *startup_source = " #f)))" "((post-expansion-scope-action67_0)" "(if intdefs_2" -"(lambda(s_111 placeholder-sc_0)" +"(lambda(s_213 placeholder-sc_0)" "(begin" " 'post-expansion-scope-action67" -"(let-values(((s73_1) s_111)((intdefs74_0) intdefs_2))" -"(add-intdef-scopes21.1 #f #f #f #f s73_1 intdefs74_0))))" +"(let-values(((s73_2) s_213)((intdefs74_0) intdefs_2))" +"(add-intdef-scopes21.1 #f #f #f #f s73_2 intdefs74_0))))" "(expand-context-post-expansion-scope-action ctx_45)))" "((scopes68_0)(append def-ctx-scopes_5(expand-context-scopes ctx_45)))" "((only-immediate?69_0)(not stop-ids_1))" @@ -40519,8 +40391,8 @@ static const char *startup_source = "(let-values() ht_135)" "(if ht_135(let-values()(make-hasheqv))(let-values() #f)))))" "((inner72_0)" -"(let-values(((the-struct_70)(root-expand-context/outer-inner v_189)))" -"(if(expand-context/inner? the-struct_70)" +"(let-values(((the-struct_71)(root-expand-context/outer-inner v_191)))" +"(if(expand-context/inner? the-struct_71)" "(let-values(((to-parsed?75_0)" "(if to-parsed-ok?_0" "(expand-context-to-parsed? ctx_45)" @@ -40529,40 +40401,40 @@ static const char *startup_source = "((in-local-expand?77_0) #t)" "((stops78_0)" "(free-id-set" -" phase_111" -"(let-values(((or-part_284) all-stop-ids_0))" -"(if or-part_284 or-part_284 null)))))" +" phase_109" +"(let-values(((or-part_280) all-stop-ids_0))" +"(if or-part_280 or-part_280 null)))))" "(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)" +"(root-expand-context/inner-self-mpi the-struct_71)" +"(root-expand-context/inner-module-scopes the-struct_71)" +"(root-expand-context/inner-top-level-bind-scope the-struct_71)" +"(root-expand-context/inner-all-scopes-stx the-struct_71)" +"(root-expand-context/inner-defined-syms the-struct_71)" +"(root-expand-context/inner-counter the-struct_71)" +"(root-expand-context/inner-lift-key the-struct_71)" " to-parsed?75_0" -"(expand-context/inner-phase the-struct_70)" -"(expand-context/inner-namespace the-struct_70)" +"(expand-context/inner-phase the-struct_71)" +"(expand-context/inner-namespace the-struct_71)" " just-once?76_0" -"(expand-context/inner-module-begin-k the-struct_70)" -"(expand-context/inner-allow-unbound? the-struct_70)" +"(expand-context/inner-module-begin-k the-struct_71)" +"(expand-context/inner-allow-unbound? the-struct_71)" " in-local-expand?77_0" " stops78_0" -"(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-declared-submodule-names the-struct_71)" +"(expand-context/inner-lifts the-struct_71)" +"(expand-context/inner-lift-envs the-struct_71)" +"(expand-context/inner-module-lifts the-struct_71)" +"(expand-context/inner-require-lifts the-struct_71)" +"(expand-context/inner-to-module-lifts the-struct_71)" +"(expand-context/inner-requires+provides the-struct_71)" +"(expand-context/inner-observer the-struct_71)" +"(expand-context/inner-for-serializable? the-struct_71)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_70)))" +" the-struct_71)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_70)))))" +" the-struct_71)))))" "(expand-context/outer1.1" " inner72_0" " post-expansion-scope66_0" @@ -40572,20 +40444,20 @@ static const char *startup_source = " env63_0" " post-expansion-scope-action67_0" " scopes68_0" -"(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-def-ctx-scopes the-struct_70)" +"(expand-context/outer-binding-layer the-struct_70)" +"(expand-context/outer-reference-records the-struct_70)" " only-immediate?69_0" " need-eventually-defined71_0" " current-introduction-scopes70_0" -"(expand-context/outer-name the-struct_69)))" +"(expand-context/outer-name the-struct_70)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_69))))))))))))))))))" +" the-struct_70))))))))))))))))))" "(define-values" "(flip-introduction-scopes)" -"(lambda(s_414 ctx_46)(begin(flip-scopes s_414(expand-context-current-introduction-scopes ctx_46)))))" +"(lambda(s_408 ctx_46)(begin(flip-scopes s_408(expand-context-current-introduction-scopes ctx_46)))))" "(define-values" "(1/syntax-transforming?)" "(lambda()" @@ -40604,70 +40476,70 @@ static const char *startup_source = "(lambda()" "(begin" " 'syntax-transforming-module-expression?" -"(let-values(((ctx_12)(let-values(((temp64_1) #t))(get-current-expand-context17.1 temp64_1 #t #f #f))))" -"(if ctx_12(if(expand-context-to-module-lifts ctx_12) #t #f) #f)))))" +"(let-values(((ctx_48)(let-values(((temp64_1) #t))(get-current-expand-context17.1 temp64_1 #t #f #f))))" +"(if ctx_48(if(expand-context-to-module-lifts ctx_48) #t #f) #f)))))" "(define-values" "(1/syntax-local-transforming-module-provides?)" "(lambda()" "(begin" " 'syntax-local-transforming-module-provides?" -"(let-values(((ctx_48)(let-values(((temp65_1) #t))(get-current-expand-context17.1 temp65_1 #t #f #f))))" -"(if ctx_48(if(expand-context-requires+provides ctx_48) #t #f) #f)))))" +"(let-values(((ctx_49)(let-values(((temp65_1) #t))(get-current-expand-context17.1 temp65_1 #t #f #f))))" +"(if ctx_49(if(expand-context-requires+provides ctx_49) #t #f) #f)))))" "(define-values" "(1/syntax-local-context)" "(lambda()" "(begin" " 'syntax-local-context" -"(let-values(((ctx_13)" +"(let-values(((ctx_50)" "(let-values(((temp66_2) 'syntax-local-context))" "(get-current-expand-context17.1 #f #f temp66_2 #t))))" -"(expand-context-context ctx_13)))))" +"(expand-context-context ctx_50)))))" "(define-values" "(1/syntax-local-introduce)" -"(lambda(s_415)" +"(lambda(s_169)" "(begin" " 'syntax-local-introduce" "(let-values((()" "(begin" -"(if(syntax?$1 s_415)" +"(if(syntax?$1 s_169)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_415)))" +" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_169)))" "(values))))" -"(let-values(((ctx_49)" +"(let-values(((ctx_51)" "(let-values(((temp67_0) 'syntax-local-introduce))" "(get-current-expand-context17.1 #f #f temp67_0 #t))))" -"(flip-introduction-scopes s_415 ctx_49))))))" +"(flip-introduction-scopes s_169 ctx_51))))))" "(define-values" "(1/syntax-local-identifier-as-binding)" -"(lambda(id_3)" +"(lambda(id_76)" "(begin" " 'syntax-local-identifier-as-binding" "(let-values((()" "(begin" -"(if(identifier? id_3)" +"(if(identifier? id_76)" "(void)" -" (let-values () (raise-argument-error 1/syntax-local-identifier-as-binding \"identifier?\" id_3)))" +" (let-values () (raise-argument-error 1/syntax-local-identifier-as-binding \"identifier?\" id_76)))" "(values))))" -"(let-values(((ctx_50)" +"(let-values(((ctx_14)" "(let-values(((temp68_0) 'syntax-local-identifier-as-binding))" "(get-current-expand-context17.1 #f #f temp68_0 #t))))" -"(remove-use-site-scopes id_3 ctx_50))))))" +"(remove-use-site-scopes id_76 ctx_14))))))" "(define-values" "(1/syntax-local-phase-level)" "(lambda()" "(begin" " 'syntax-local-phase-level" -"(let-values(((ctx_51)(let-values(((temp69_0) #t))(get-current-expand-context17.1 temp69_0 #t #f #f))))" -"(if ctx_51(expand-context-phase ctx_51) 0)))))" +"(let-values(((ctx_52)(let-values(((temp69_0) #t))(get-current-expand-context17.1 temp69_0 #t #f #f))))" +"(if ctx_52(expand-context-phase ctx_52) 0)))))" "(define-values" "(1/syntax-local-name)" "(lambda()" "(begin" " 'syntax-local-name" -"(let-values(((ctx_14)" +"(let-values(((ctx_53)" "(let-values(((temp70_0) 'syntax-local-name))(get-current-expand-context17.1 #f #f temp70_0 #t))))" -"(let-values(((id_4)(expand-context-name ctx_14)))" -"(if id_4(datum->syntax$1 #f(syntax-e$1 id_4) id_4) #f))))))" +"(let-values(((id_77)(expand-context-name ctx_53)))" +"(if id_77(datum->syntax$1 #f(syntax-e$1 id_77) id_77) #f))))))" "(define-values" "(1/make-syntax-introducer)" "(let-values(((make-syntax-introducer3_0)" @@ -40678,44 +40550,44 @@ static const char *startup_source = "(let-values()" "(let-values(((sc_28)(new-scope(if as-use-site?_0 'use-site 'macro))))" "(let-values(((core74_0)" -"(lambda(s73_2 mode71_0 mode72_0)" +"(lambda(s73_3 mode71_0 mode72_0)" "(begin" " 'core74" -"(let-values(((s_174) s73_2))" +"(let-values(((s_7) s73_3))" "(let-values(((mode_13)(if mode72_0 mode71_0 'flip)))" "(let-values()" "(begin" -"(if(syntax?$1 s_174)" +"(if(syntax?$1 s_7)" "(void)" "(let-values()" -" (raise-argument-error 'syntax-introducer \"syntax?\" s_174)))" -"(let-values(((tmp_34) mode_13))" -"(if(equal? tmp_34 'add)" -"(let-values()(add-scope s_174 sc_28))" -"(if(equal? tmp_34 'remove)" -"(let-values()(remove-scope s_174 sc_28))" -"(if(equal? tmp_34 'flip)" -"(let-values()(flip-scope s_174 sc_28))" +" (raise-argument-error 'syntax-introducer \"syntax?\" s_7)))" +"(let-values(((tmp_33) mode_13))" +"(if(equal? tmp_33 'add)" +"(let-values()(add-scope s_7 sc_28))" +"(if(equal? tmp_33 'remove)" +"(let-values()(remove-scope s_7 sc_28))" +"(if(equal? tmp_33 'flip)" +"(let-values()(flip-scope s_7 sc_28))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" " \"(or/c 'add 'remove 'flip)\"" " mode_13))))))))))))))" "(case-lambda" -"((s_6)(core74_0 s_6 #f #f))" -"((s_75 mode71_1)(core74_0 s_75 mode71_1 #t)))))))))))" +"((s_78)(core74_0 s_78 #f #f))" +"((s_42 mode71_1)(core74_0 s_42 mode71_1 #t)))))))))))" "(case-lambda" "(()(begin 'make-syntax-introducer(make-syntax-introducer3_0 #f #f)))" "((as-use-site?1_1)(make-syntax-introducer3_0 as-use-site?1_1 #t)))))" "(define-values" "(1/make-syntax-delta-introducer)" "(let-values(((make-syntax-delta-introducer9_0)" -"(lambda(ext-s7_0 base-s8_0 phase5_0 phase6_1)" +"(lambda(ext-s7_0 base-s8_0 phase5_1 phase6_1)" "(begin" " 'make-syntax-delta-introducer9" "(let-values(((ext-s_0) ext-s7_0))" "(let-values(((base-s_0) base-s8_0))" -"(let-values(((phase_112)(if phase6_1 phase5_0(1/syntax-local-phase-level))))" +"(let-values(((phase_110)(if phase6_1 phase5_1(1/syntax-local-phase-level))))" "(let-values()" "(let-values((()" "(begin" @@ -40726,8 +40598,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_174)(syntax?$1 base-s_0)))" -"(if or-part_174 or-part_174(not base-s_0)))" +"(if(let-values(((or-part_281)(syntax?$1 base-s_0)))" +"(if or-part_281 or-part_281(not base-s_0)))" "(void)" "(let-values()" "(raise-argument-error" @@ -40737,26 +40609,28 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(phase? phase_112)" +"(if(phase? phase_110)" "(void)" "(let-values()" "(raise-argument-error" " 'make-syntax-delta-introducer" " phase?-string" -" phase_112)))" +" phase_110)))" "(values))))" -"(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_112)))" +"(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_110)))" "(let-values(((base-scs_0)" "(syntax-scope-set" -"(let-values(((or-part_175) base-s_0))" -"(if or-part_175 or-part_175 empty-syntax))" -" phase_112)))" +"(let-values(((or-part_282) base-s_0))" +"(if or-part_282 or-part_282 empty-syntax))" +" phase_110)))" "(let-values(((use-base-scs_0)" "(if(subset? base-scs_0 ext-scs_0)" " base-scs_0" -"(let-values(((or-part_176)" +"(let-values(((or-part_22)" "(if(identifier? base-s_0)" -"(let-values(((temp78_2) #t))" +"(let-values(((base-s76_0) base-s_0)" +"((phase77_0) phase_110)" +"((temp78_3) #t))" "(resolve33.1" " #f" " #f" @@ -40764,12 +40638,12 @@ static const char *startup_source = " #f" " #f" " #f" -" temp78_2" +" temp78_3" " #t" -" base-s_0" -" phase_112))" +" base-s76_0" +" phase77_0))" " #f)))" -"(if or-part_176 or-part_176(seteq))))))" +"(if or-part_22 or-part_22(seteq))))))" "(let-values(((delta-scs_0)" "(set->list(set-subtract ext-scs_0 use-base-scs_0))))" "(let-values(((maybe-taint_0)" @@ -40778,30 +40652,30 @@ static const char *startup_source = "(lambda(s81_0 mode79_0 mode80_0)" "(begin" " 'core82" -"(let-values(((s_416) s81_0))" +"(let-values(((s_409) s81_0))" "(let-values(((mode_14)(if mode80_0 mode79_0 'add)))" "(let-values()" "(maybe-taint_0" -"(let-values(((tmp_35) mode_14))" -"(if(equal? tmp_35 'add)" -"(let-values()(add-scopes s_416 delta-scs_0))" -"(if(equal? tmp_35 'remove)" +"(let-values(((tmp_34) mode_14))" +"(if(equal? tmp_34 'add)" +"(let-values()(add-scopes s_409 delta-scs_0))" +"(if(equal? tmp_34 'remove)" "(let-values()" -"(remove-scopes s_416 delta-scs_0))" -"(if(equal? tmp_35 'flip)" +"(remove-scopes s_409 delta-scs_0))" +"(if(equal? tmp_34 'flip)" "(let-values()" -"(flip-scopes s_416 delta-scs_0))" +"(flip-scopes s_409 delta-scs_0))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" " \"(or/c 'add 'remove 'flip)\"" " mode_14))))))))))))))" "(case-lambda" -"((s_180)(core82_0 s_180 #f #f))" -"((s_417 mode79_1)(core82_0 s_417 mode79_1 #t))))))))))))))))))))" +"((s_13)(core82_0 s_13 #f #f))" +"((s_14 mode79_1)(core82_0 s_14 mode79_1 #t))))))))))))))))))))" "(case-lambda" "((ext-s_1 base-s_1)(begin 'make-syntax-delta-introducer(make-syntax-delta-introducer9_0 ext-s_1 base-s_1 #f #f)))" -"((ext-s_2 base-s_2 phase5_1)(make-syntax-delta-introducer9_0 ext-s_2 base-s_2 phase5_1 #t)))))" +"((ext-s_2 base-s_2 phase5_2)(make-syntax-delta-introducer9_0 ext-s_2 base-s_2 phase5_2 #t)))))" "(define-values" "(1/syntax-local-make-delta-introducer)" "(lambda(id-stx_1)" @@ -40821,22 +40695,22 @@ static const char *startup_source = "(begin" " 'do-syntax-local-value17" "(let-values(((who_15) who13_0))" -"(let-values(((id_60) id14_1))" +"(let-values(((id_78) id14_1))" "(let-values(((intdef_11) intdef15_0))" "(let-values(((failure-thunk_0) failure-thunk16_0))" "(let-values(((immediate?_1) immediate?11_0))" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_60)" +"(if(identifier? id_78)" "(void)" -" (let-values () (raise-argument-error who_15 \"identifier?\" id_60)))" +" (let-values () (raise-argument-error who_15 \"identifier?\" id_78)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_80)(not failure-thunk_0)))" -"(if or-part_80" -" or-part_80" +"(if(let-values(((or-part_283)(not failure-thunk_0)))" +"(if or-part_283" +" or-part_283" "(if(procedure? failure-thunk_0)" "(procedure-arity-includes? failure-thunk_0 0)" " #f)))" @@ -40849,8 +40723,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_81)(not intdef_11)))" -"(if or-part_81 or-part_81(1/internal-definition-context? intdef_11)))" +"(if(let-values(((or-part_284)(not intdef_11)))" +"(if or-part_284 or-part_284(1/internal-definition-context? intdef_11)))" "(void)" "(let-values()" "(raise-argument-error" @@ -40861,53 +40735,55 @@ static const char *startup_source = "(let-values(((current-ctx_0)" "(let-values(((who84_0) who_15))" "(get-current-expand-context17.1 #f #f who84_0 #t))))" -"(let-values(((ctx_52)" +"(let-values(((ctx_54)" "(if intdef_11" -"(let-values(((v_50) current-ctx_0))" -"(let-values(((the-struct_71) v_50))" -"(if(expand-context/outer? the-struct_71)" +"(let-values(((v_48) current-ctx_0))" +"(let-values(((the-struct_72) v_48))" +"(if(expand-context/outer? the-struct_72)" "(let-values(((env85_0)" "(add-intdef-bindings" "(expand-context-env current-ctx_0)" " intdef_11))" -"((inner86_0)(root-expand-context/outer-inner v_50)))" +"((inner86_0)(root-expand-context/outer-inner v_48)))" "(expand-context/outer1.1" " inner86_0" -"(root-expand-context/outer-post-expansion-scope the-struct_71)" -"(root-expand-context/outer-use-site-scopes the-struct_71)" -"(root-expand-context/outer-frame-id the-struct_71)" -"(expand-context/outer-context the-struct_71)" +"(root-expand-context/outer-post-expansion-scope the-struct_72)" +"(root-expand-context/outer-use-site-scopes the-struct_72)" +"(root-expand-context/outer-frame-id the-struct_72)" +"(expand-context/outer-context the-struct_72)" " env85_0" -"(expand-context/outer-post-expansion-scope-action the-struct_71)" -"(expand-context/outer-scopes the-struct_71)" -"(expand-context/outer-def-ctx-scopes the-struct_71)" -"(expand-context/outer-binding-layer the-struct_71)" -"(expand-context/outer-reference-records the-struct_71)" -"(expand-context/outer-only-immediate? the-struct_71)" -"(expand-context/outer-need-eventually-defined the-struct_71)" -"(expand-context/outer-current-introduction-scopes the-struct_71)" -"(expand-context/outer-name the-struct_71)))" +"(expand-context/outer-post-expansion-scope-action the-struct_72)" +"(expand-context/outer-scopes the-struct_72)" +"(expand-context/outer-def-ctx-scopes the-struct_72)" +"(expand-context/outer-binding-layer the-struct_72)" +"(expand-context/outer-reference-records the-struct_72)" +"(expand-context/outer-only-immediate? the-struct_72)" +"(expand-context/outer-need-eventually-defined the-struct_72)" +"(expand-context/outer-current-introduction-scopes the-struct_72)" +"(expand-context/outer-name the-struct_72)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_71))))" +" the-struct_72))))" " current-ctx_0)))" "(let-values((()" "(begin" -"(let-values(((obs_34)(expand-context-observer ctx_52)))" -"(if obs_34" +"(let-values(((obs_33)(expand-context-observer ctx_54)))" +"(if obs_33" "(let-values()" -"(let-values()(call-expand-observe obs_34 'local-value id_60)))" +"(let-values()(call-expand-observe obs_33 'local-value id_78)))" "(void)))" "(values))))" -"(let-values(((phase_113)(expand-context-phase ctx_52)))" -"((letrec-values(((loop_99)" -"(lambda(id_74)" +"(let-values(((phase_111)(expand-context-phase ctx_54)))" +"((letrec-values(((loop_95)" +"(lambda(id_79)" "(begin" " 'loop" -"(let-values(((b_54)" +"(let-values(((b_12)" "(if immediate?_1" -"(let-values(((temp89_2) #t))" +"(let-values(((id87_0) id_79)" +"((phase88_0) phase_111)" +"((temp89_2) #t))" "(resolve+shift30.1" " #f" " #f" @@ -40919,29 +40795,29 @@ static const char *startup_source = " #t" " #f" " #f" -" id_74" -" phase_113))" +" id87_0" +" phase88_0))" "(resolve+shift/extra-inspector" -" id_74" -" phase_113" -"(expand-context-namespace ctx_52)))))" +" id_79" +" phase_111" +"(expand-context-namespace ctx_54)))))" "(begin" -"(let-values(((obs_35)(expand-context-observer ctx_52)))" +"(let-values(((obs_34)(expand-context-observer ctx_54)))" +"(if obs_34" +"(let-values()" +"(let-values()" +"(call-expand-observe obs_34 'resolve id_79)))" +"(void)))" +"(if(not b_12)" +"(let-values()" +"(begin" +"(let-values(((obs_35)" +"(expand-context-observer ctx_54)))" "(if obs_35" "(let-values()" "(let-values()" -"(call-expand-observe obs_35 'resolve id_74)))" -"(void)))" -"(if(not b_54)" -"(let-values()" -"(begin" -"(let-values(((obs_29)" -"(expand-context-observer ctx_52)))" -"(if obs_29" -"(let-values()" -"(let-values()" "(call-expand-observe" -" obs_29" +" obs_35" " 'local-value-result" " #f)))" "(void)))" @@ -40950,24 +40826,27 @@ static const char *startup_source = "(error" " 'syntax-local-value" " \"unbound identifier: ~v\"" -" id_74))))" +" id_79))))" "(let-values()" -"(let-values(((v_54 primitive?_7 insp_16 protected?_8)" -"(let-values(((temp93_3) #t))" +"(let-values(((v_192 primitive?_7 insp_17 protected?_8)" +"(let-values(((b90_0) b_12)" +"((ctx91_1) ctx_54)" +"((id92_1) id_79)" +"((temp93_3) #t))" "(lookup17.1" " #f" " #f" " temp93_3" " #t" -" b_54" -" ctx_52" -" id_74))))" -"(if(let-values(((or-part_264)(variable? v_54)))" -"(if or-part_264 or-part_264(core-form? v_54)))" +" b90_0" +" ctx91_1" +" id92_1))))" +"(if(let-values(((or-part_220)(variable? v_192)))" +"(if or-part_220 or-part_220(core-form? v_192)))" "(let-values()" "(begin" "(let-values(((obs_36)" -"(expand-context-observer ctx_52)))" +"(expand-context-observer ctx_54)))" "(if obs_36" "(let-values()" "(let-values()" @@ -40981,15 +40860,15 @@ static const char *startup_source = "(error" " 'syntax-local-value" " \"identifier is not bound to syntax: ~v\"" -" id_74))))" +" id_79))))" "(let-values()" "(begin" "(let-values(((obs_37)" -"(expand-context-observer ctx_52)))" +"(expand-context-observer ctx_54)))" "(if obs_37" "(let-values()" "(if(not" -"(if(1/rename-transformer? v_54)" +"(if(1/rename-transformer? v_192)" "(not immediate?_1)" " #f))" "(let-values()" @@ -40999,52 +40878,52 @@ static const char *startup_source = " #t))" "(void)))" "(void)))" -"(if(1/rename-transformer? v_54)" +"(if(1/rename-transformer? v_192)" "(let-values()" "(if immediate?_1" "(values" -" v_54" -"(1/rename-transformer-target v_54))" -"(loop_99" -"(1/rename-transformer-target v_54))))" +" v_192" +"(1/rename-transformer-target v_192))" +"(loop_95" +"(1/rename-transformer-target v_192))))" "(if immediate?_1" -"(let-values()(values v_54 #f))" -"(let-values() v_54)))))))))))))))" -" loop_99)" -"(flip-introduction-scopes id_60 ctx_52))))))))))))))))))" +"(let-values()(values v_192 #f))" +"(let-values() v_192)))))))))))))))" +" loop_95)" +"(flip-introduction-scopes id_78 ctx_54))))))))))))))))))" "(define-values" "(1/syntax-local-value)" "(let-values(((syntax-local-value25_0)" "(lambda(id24_0 failure-thunk20_0 intdef21_0 failure-thunk22_0 intdef23_0)" "(begin" " 'syntax-local-value25" -"(let-values(((id_75) id24_0))" +"(let-values(((id_80) id24_0))" "(let-values(((failure-thunk_1)(if failure-thunk22_0 failure-thunk20_0 #f)))" "(let-values(((intdef_12)(if intdef23_0 intdef21_0 #f)))" "(let-values()" "(let-values(((temp94_2) 'syntax-local-value)" "((temp95_1) #f)" -"((id96_0) id_75)" +"((id96_0) id_80)" "((intdef97_0) intdef_12)" "((failure-thunk98_0) failure-thunk_1))" "(do-syntax-local-value17.1 temp95_1 temp94_2 id96_0 intdef97_0 failure-thunk98_0))))))))))" "(case-lambda" -"((id_46)(begin 'syntax-local-value(syntax-local-value25_0 id_46 #f #f #f #f)))" -"((id_76 failure-thunk_2 intdef21_1)(syntax-local-value25_0 id_76 failure-thunk_2 intdef21_1 #t #t))" -"((id_77 failure-thunk20_1)(syntax-local-value25_0 id_77 failure-thunk20_1 #f #t #f)))))" +"((id_81)(begin 'syntax-local-value(syntax-local-value25_0 id_81 #f #f #f #f)))" +"((id_82 failure-thunk_2 intdef21_1)(syntax-local-value25_0 id_82 failure-thunk_2 intdef21_1 #t #t))" +"((id_83 failure-thunk20_1)(syntax-local-value25_0 id_83 failure-thunk20_1 #f #t #f)))))" "(define-values" "(1/syntax-local-value/immediate)" "(let-values(((syntax-local-value/immediate32_0)" "(lambda(id31_1 failure-thunk27_0 intdef28_0 failure-thunk29_0 intdef30_0)" "(begin" " 'syntax-local-value/immediate32" -"(let-values(((id_78) id31_1))" +"(let-values(((id_84) id31_1))" "(let-values(((failure-thunk_3)(if failure-thunk29_0 failure-thunk27_0 #f)))" "(let-values(((intdef_13)(if intdef30_0 intdef28_0 #f)))" "(let-values()" "(let-values(((temp99_1) 'syntax-local-value/immediate)" "((temp100_0) #t)" -"((id101_1) id_78)" +"((id101_1) id_84)" "((intdef102_0) intdef_13)" "((failure-thunk103_0) failure-thunk_3))" "(do-syntax-local-value17.1" @@ -41054,46 +40933,46 @@ static const char *startup_source = " intdef102_0" " failure-thunk103_0))))))))))" "(case-lambda" -"((id_79)(begin 'syntax-local-value/immediate(syntax-local-value/immediate32_0 id_79 #f #f #f #f)))" -"((id_80 failure-thunk_4 intdef28_1)(syntax-local-value/immediate32_0 id_80 failure-thunk_4 intdef28_1 #t #t))" -"((id_81 failure-thunk27_1)(syntax-local-value/immediate32_0 id_81 failure-thunk27_1 #f #t #f)))))" +"((id_85)(begin 'syntax-local-value/immediate(syntax-local-value/immediate32_0 id_85 #f #f #f #f)))" +"((id_86 failure-thunk_4 intdef28_1)(syntax-local-value/immediate32_0 id_86 failure-thunk_4 intdef28_1 #t #t))" +"((id_87 failure-thunk27_1)(syntax-local-value/immediate32_0 id_87 failure-thunk27_1 #f #t #f)))))" "(define-values" "(do-lift-values-expression)" -"(lambda(who_16 n_30 s_33)" +"(lambda(who_16 n_28 s_55)" "(begin" "(let-values((()" "(begin" -" (if (syntax?$1 s_33) (void) (let-values () (raise-argument-error who_16 \"syntax?\" s_33)))" +" (if (syntax?$1 s_55) (void) (let-values () (raise-argument-error who_16 \"syntax?\" s_55)))" "(values))))" "(let-values((()" "(begin" -"(if(exact-nonnegative-integer? n_30)" +"(if(exact-nonnegative-integer? n_28)" "(void)" -" (let-values () (raise-argument-error who_16 \"exact-nonnegative-integer?\" n_30)))" +" (let-values () (raise-argument-error who_16 \"exact-nonnegative-integer?\" n_28)))" "(values))))" -"(let-values(((ctx_53)(let-values(((who104_0) who_16))(get-current-expand-context17.1 #f #f who104_0 #t))))" -"(let-values(((lifts_8)(expand-context-lifts ctx_53)))" +"(let-values(((ctx_55)(let-values(((who104_0) who_16))(get-current-expand-context17.1 #f #f who104_0 #t))))" +"(let-values(((lifts_8)(expand-context-lifts ctx_55)))" "(let-values((()" "(begin" " (if lifts_8 (void) (let-values () (raise-arguments-error who_16 \"no lift target\")))" "(values))))" -"(let-values(((counter_4)(root-expand-context-counter ctx_53)))" +"(let-values(((counter_4)(root-expand-context-counter ctx_55)))" "(let-values(((ids_26)" "(reverse$1" -"(let-values(((start_40) 0)((end_29) n_30)((inc_23) 1))" +"(let-values(((start_9) 0)((end_6) n_28)((inc_24) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-range start_40 end_29 inc_23)))" -"((letrec-values(((for-loop_248)" -"(lambda(fold-var_182 pos_102)" +"(let-values()(check-range start_9 end_6 inc_24)))" +"((letrec-values(((for-loop_256)" +"(lambda(fold-var_251 pos_105)" "(begin" " 'for-loop" -"(if(< pos_102 end_29)" +"(if(< pos_105 end_6)" "(let-values()" -"(let-values(((fold-var_230)" -"(let-values(((fold-var_231) fold-var_182))" -"(let-values(((fold-var_232)" +"(let-values(((fold-var_186)" +"(let-values(((fold-var_252) fold-var_251))" +"(let-values(((fold-var_253)" "(let-values()" "(cons" "(let-values()" @@ -41105,7 +40984,7 @@ static const char *startup_source = "(unbox" " counter_4)))" "(values))))" -"(let-values(((name_63)" +"(let-values(((name_23)" "(string->unreadable-symbol" "(format" " \"lifted/~a\"" @@ -41114,69 +40993,69 @@ static const char *startup_source = "(add-scope" "(datum->syntax$1" " #f" -" name_63)" +" name_23)" "(new-scope" " 'macro)))))" -" fold-var_231))))" -"(values fold-var_232)))))" +" fold-var_252))))" +"(values fold-var_253)))))" "(if(not #f)" -"(for-loop_248 fold-var_230(+ pos_102 inc_23))" -" fold-var_230)))" -" fold-var_182)))))" -" for-loop_248)" +"(for-loop_256 fold-var_186(+ pos_105 inc_24))" +" fold-var_186)))" +" fold-var_251)))))" +" for-loop_256)" " null" -" start_40))))))" +" start_9))))))" "(begin" -"(let-values(((obs_38)(expand-context-observer ctx_53)))" +"(let-values(((obs_38)(expand-context-observer ctx_55)))" "(if obs_38" -"(let-values()(let-values()(call-expand-observe obs_38 'lift-expr ids_26 s_33)))" +"(let-values()(let-values()(call-expand-observe obs_38 'lift-expr ids_26 s_55)))" "(void)))" "(map2" -"(lambda(id_17)(flip-introduction-scopes id_17 ctx_53))" +"(lambda(id_88)(flip-introduction-scopes id_88 ctx_55))" "(add-lifted!" " lifts_8" " ids_26" -"(flip-introduction-scopes s_33 ctx_53)" -"(expand-context-phase ctx_53))))))))))))))" +"(flip-introduction-scopes s_55 ctx_55)" +"(expand-context-phase ctx_55))))))))))))))" "(define-values" "(1/syntax-local-lift-expression)" -"(lambda(s_418)" -"(begin 'syntax-local-lift-expression(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_418)))))" +"(lambda(s_195)" +"(begin 'syntax-local-lift-expression(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_195)))))" "(define-values" "(1/syntax-local-lift-values-expression)" -"(lambda(n_31 s_419)" +"(lambda(n_29 s_410)" "(begin" " 'syntax-local-lift-values-expression" -"(do-lift-values-expression 'syntax-local-lift-values-expression n_31 s_419))))" +"(do-lift-values-expression 'syntax-local-lift-values-expression n_29 s_410))))" "(define-values" "(1/syntax-local-lift-context)" "(lambda()" "(begin" " 'syntax-local-lift-context" -"(let-values(((ctx_54)" +"(let-values(((ctx_56)" "(let-values(((temp105_0) 'syntax-local-lift-context))" "(get-current-expand-context17.1 #f #f temp105_0 #t))))" -"(root-expand-context-lift-key ctx_54)))))" +"(root-expand-context-lift-key ctx_56)))))" "(define-values" "(1/syntax-local-lift-module)" -"(lambda(s_420)" +"(lambda(s_60)" "(begin" " 'syntax-local-lift-module" "(let-values((()" "(begin" -"(if(syntax?$1 s_420)" +"(if(syntax?$1 s_60)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_420)))" +" (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_60)))" "(values))))" -"(let-values(((ctx_55)" +"(let-values(((ctx_57)" "(let-values(((temp106_1) 'syntax-local-lift-module))" "(get-current-expand-context17.1 #f #f temp106_1 #t))))" -"(let-values(((phase_114)(expand-context-phase ctx_55)))" +"(let-values(((phase_112)(expand-context-phase ctx_57)))" "(begin" -"(let-values(((tmp_36)(core-form-sym s_420 phase_114)))" -"(if(if(equal? tmp_36 'module) #t(equal? tmp_36 'module*))" +"(let-values(((tmp_35)(core-form-sym s_60 phase_112)))" +"(if(if(equal? tmp_35 'module) #t(equal? tmp_35 'module*))" "(let-values()" -"(let-values(((lifts_9)(expand-context-module-lifts ctx_55)))" +"(let-values(((lifts_9)(expand-context-module-lifts ctx_57)))" "(begin" "(if lifts_9" "(void)" @@ -41185,13 +41064,13 @@ static const char *startup_source = " 'syntax-local-lift-module" " \"not currently transforming within a module declaration or top level\"" " \"form to lift\"" -" s_420)))" -"(add-lifted-module! lifts_9(flip-introduction-scopes s_420 ctx_55) phase_114))))" +" s_60)))" +"(add-lifted-module! lifts_9(flip-introduction-scopes s_60 ctx_57) phase_112))))" "(let-values()" -" (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_420))))" -"(let-values(((obs_39)(expand-context-observer ctx_55)))" +" (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_60))))" +"(let-values(((obs_39)(expand-context-observer ctx_57)))" "(if obs_39" -"(let-values()(let-values()(call-expand-observe obs_39 'lift-statement s_420)))" +"(let-values()(let-values()(call-expand-observe obs_39 'lift-statement s_60)))" "(void))))))))))" "(define-values" "(do-local-lift-to-module54.1)" @@ -41214,7 +41093,7 @@ static const char *startup_source = "(begin" " 'do-local-lift-to-module54" "(let-values(((who_17) who52_0))" -"(let-values(((s_38) s53_1))" +"(let-values(((s_397) s53_1))" "(let-values(((no-target-msg_0) no-target-msg34_0))" "(let-values(((intro?_0)(if intro?44_0 intro?35_0 #t)))" "(let-values(((more-checks_0)(if more-checks45_0 more-checks36_0 void)))" @@ -41224,27 +41103,27 @@ static const char *startup_source = "(let-values(((pre-wrap_0)" "(if pre-wrap49_0" " pre-wrap40_0" -"(lambda(s_200 phase_115 lift-ctx_1)(begin 'pre-wrap s_200)))))" +"(lambda(s_411 phase_113 lift-ctx_1)(begin 'pre-wrap s_411)))))" "(let-values(((shift-wrap_0)" "(if shift-wrap50_0" " shift-wrap41_0" -"(lambda(s_202 phase_116 lift-ctx_2)(begin 'shift-wrap s_202)))))" +"(lambda(s_202 phase_114 lift-ctx_2)(begin 'shift-wrap s_202)))))" "(let-values(((post-wrap_0)" "(if post-wrap51_0" " post-wrap42_0" -"(lambda(s_421 phase_117 lift-ctx_3)(begin 'post-wrap s_421)))))" +"(lambda(s_203 phase_115 lift-ctx_3)(begin 'post-wrap s_203)))))" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_38)" +"(if(syntax?$1 s_397)" "(void)" -" (let-values () (raise-argument-error who_17 \"syntax?\" s_38)))" +" (let-values () (raise-argument-error who_17 \"syntax?\" s_397)))" "(values))))" "(let-values((()(begin(more-checks_0)(values))))" -"(let-values(((ctx_56)" +"(let-values(((ctx_58)" "(let-values(((who107_0) who_17))" "(get-current-expand-context17.1 #f #f who107_0 #t))))" -"(let-values(((lift-ctx_4)(get-lift-ctx_0 ctx_56)))" +"(let-values(((lift-ctx_4)(get-lift-ctx_0 ctx_58)))" "(let-values((()" "(begin" "(if lift-ctx_4" @@ -41254,65 +41133,65 @@ static const char *startup_source = " who_17" " no-target-msg_0" " \"form to lift\"" -" s_38)))" +" s_397)))" "(values))))" -"(let-values(((phase_118)(expand-context-phase ctx_56)))" +"(let-values(((phase_116)(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_38 ctx_56) s_38)))" -"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_118 lift-ctx_4)))" +"(if intro?_0(flip-introduction-scopes s_397 ctx_58) s_397)))" +"(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_116 lift-ctx_4)))" "(let-values(((shift-s_0)" -"(let-values(((start_41) phase_118)" +"(let-values(((start_40) phase_116)" "((end_30) wrt-phase_1)" -"((inc_24) -1))" +"((inc_25) -1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-range start_41 end_30 inc_24)))" -"((letrec-values(((for-loop_249)" -"(lambda(s_422 pos_103)" +"(check-range start_40 end_30 inc_25)))" +"((letrec-values(((for-loop_257)" +"(lambda(s_148 pos_106)" "(begin" " 'for-loop" -"(if(> pos_103 end_30)" -"(let-values(((phase_119)" -" pos_103))" -"(let-values(((s_423)" +"(if(> pos_106 end_30)" +"(let-values(((phase_117)" +" pos_106))" +"(let-values(((s_412)" +"(let-values(((s_413)" +" s_148))" "(let-values(((s_206)" -" s_422))" -"(let-values(((s_207)" "(let-values()" "(shift-wrap_0" -" s_206" +" s_413" "(sub1" -" phase_119)" +" phase_117)" " lift-ctx_4))))" "(values" -" s_207)))))" +" s_206)))))" "(if(not #f)" -"(for-loop_249" -" s_423" -"(+ pos_103 inc_24))" -" s_423)))" -" s_422)))))" -" for-loop_249)" +"(for-loop_257" +" s_412" +"(+ pos_106 inc_25))" +" s_412)))" +" s_148)))))" +" for-loop_257)" " pre-s_0" -" start_41)))))" +" start_40)))))" "(let-values(((post-s_1)" "(post-wrap_0 shift-s_0 wrt-phase_1 lift-ctx_4)))" "(begin" "(add-lifted!_0 lift-ctx_4 post-s_1 wrt-phase_1)" -"(values ctx_56 post-s_1))))))))))))))))))))))))))))" +"(values ctx_58 post-s_1))))))))))))))))))))))))))))" "(define-values" "(1/syntax-local-lift-require)" -"(lambda(s_424 use-s_1)" +"(lambda(s_152 use-s_1)" "(begin" " 'syntax-local-lift-require" "(let-values(((sc_29)(new-scope 'macro)))" -"(let-values(((ctx_57 added-s_1)" +"(let-values(((ctx_32 added-s_1)" "(let-values(((temp108_0) 'syntax-local-lift-require)" -"((temp109_0)(datum->syntax$1 #f s_424))" +"((temp109_0)(datum->syntax$1 #f s_152))" " ((temp110_1) \"could not find target context\")" "((temp111_1) #f)" "((temp112_0)" @@ -41325,10 +41204,10 @@ static const char *startup_source = "((require-lift-context-wrt-phase114_0) require-lift-context-wrt-phase)" "((add-lifted-require!115_0) add-lifted-require!)" "((temp116_0)" -"(lambda(s_110 phase_120 require-lift-ctx_0)(require-spec-shift-for-syntax s_110)))" +"(lambda(s_153 phase_118 require-lift-ctx_0)(require-spec-shift-for-syntax s_153)))" "((temp117_1)" -"(lambda(s_212 phase_121 require-lift-ctx_1)" -"(wrap-form '#%require(add-scope s_212 sc_29) phase_121))))" +"(lambda(s_113 phase_119 require-lift-ctx_1)" +"(wrap-form '#%require(add-scope s_113 sc_29) phase_119))))" "(do-local-lift-to-module54.1" " add-lifted-require!115_0" " expand-context-require-lifts113_0" @@ -41349,12 +41228,12 @@ static const char *startup_source = "(let-values((()" "(begin" "(namespace-visit-available-modules!" -"(expand-context-namespace ctx_57)" -"(expand-context-phase ctx_57))" +"(expand-context-namespace ctx_32)" +"(expand-context-phase ctx_32))" "(values))))" "(let-values(((result-s_6)(add-scope use-s_1 sc_29)))" "(begin" -"(let-values(((obs_40)(expand-context-observer ctx_57)))" +"(let-values(((obs_40)(expand-context-observer ctx_32)))" "(if obs_40" "(let-values()" "(let-values()(call-expand-observe obs_40 'lift-require added-s_1 use-s_1 result-s_6)))" @@ -41362,21 +41241,21 @@ static const char *startup_source = " result-s_6))))))))" "(define-values" "(1/syntax-local-lift-provide)" -"(lambda(s_396)" +"(lambda(s_414)" "(begin" " 'syntax-local-lift-provide" -"(let-values(((ctx_58 result-s_7)" +"(let-values(((ctx_59 result-s_7)" "(let-values(((temp118_1) 'syntax-local-lift-provide)" -"((s119_0) s_396)" +"((s119_0) s_414)" " ((temp120_0) \"not expanding in a module run-time body\")" "((expand-context-to-module-lifts121_0) expand-context-to-module-lifts)" "((to-module-lift-context-wrt-phase122_0) to-module-lift-context-wrt-phase)" "((add-lifted-to-module-provide!123_0) add-lifted-to-module-provide!)" "((temp124_1)" -"(lambda(s_425 phase_122 to-module-lift-ctx_0)(wrap-form 'for-syntax s_425 #f)))" +"(lambda(s_116 phase_120 to-module-lift-ctx_0)(wrap-form 'for-syntax s_116 #f)))" "((temp125_0)" -"(lambda(s_115 phase_123 to-module-lift-ctx_1)" -"(wrap-form '#%provide s_115 phase_123))))" +"(lambda(s_220 phase_121 to-module-lift-ctx_1)" +"(wrap-form '#%provide s_220 phase_121))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-provide!123_0" " expand-context-to-module-lifts121_0" @@ -41394,28 +41273,28 @@ static const char *startup_source = " #t" " temp118_1" " s119_0))))" -"(let-values(((obs_41)(expand-context-observer ctx_58)))" +"(let-values(((obs_41)(expand-context-observer ctx_59)))" "(if obs_41(let-values()(let-values()(call-expand-observe obs_41 'lift-provide result-s_7)))(void)))))))" "(define-values" "(1/syntax-local-lift-module-end-declaration)" -"(lambda(s_426)" +"(lambda(s_118)" "(begin" " 'syntax-local-lift-module-end-declaration" -"(let-values(((ctx_59 also-s_0)" +"(let-values(((ctx_60 also-s_0)" "(let-values(((temp126_1) 'syntax-local-lift-module-end-declaration)" -"((s127_0) s_426)" +"((s127_0) s_118)" " ((temp128_1) \"not currently transforming an expression within a module declaration\")" "((expand-context-to-module-lifts129_0) expand-context-to-module-lifts)" "((temp130_0)(lambda(lift-ctx_5) 0))" "((add-lifted-to-module-end!131_0) add-lifted-to-module-end!)" "((temp132_0)" -"(lambda(orig-s_33 phase_124 to-module-lift-ctx_2)" +"(lambda(orig-s_32 phase_122 to-module-lift-ctx_2)" "(if(to-module-lift-context-end-as-expressions? to-module-lift-ctx_2)" -"(wrap-form '#%expression orig-s_33 phase_124)" -" orig-s_33)))" +"(wrap-form '#%expression orig-s_32 phase_122)" +" orig-s_32)))" "((temp133_0)" -"(lambda(s_222 phase_51 to-module-lift-ctx_3)" -"(wrap-form 'begin-for-syntax s_222 phase_51))))" +"(lambda(s_415 phase_123 to-module-lift-ctx_3)" +"(wrap-form 'begin-for-syntax s_415 phase_123))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-end!131_0" " expand-context-to-module-lifts129_0" @@ -41433,15 +41312,15 @@ static const char *startup_source = " #t" " temp126_1" " s127_0))))" -"(let-values(((obs_42)(expand-context-observer ctx_59)))" -"(if obs_42(let-values()(let-values()(call-expand-observe obs_42 'lift-statement s_426)))(void)))))))" +"(let-values(((obs_42)(expand-context-observer ctx_60)))" +"(if obs_42(let-values()(let-values()(call-expand-observe obs_42 'lift-statement s_118)))(void)))))))" "(define-values" "(wrap-form)" -"(lambda(sym_67 s_427 phase_125)" +"(lambda(sym_66 s_416 phase_124)" "(begin" "(datum->syntax$1" " #f" -"(list(datum->syntax$1(if phase_125(syntax-shift-phase-level$1 core-stx phase_125) #f) sym_67) s_427)))))" +"(list(datum->syntax$1(if phase_124(syntax-shift-phase-level$1 core-stx phase_124) #f) sym_66) s_416)))))" "(define-values" "(1/syntax-local-module-defined-identifiers)" "(lambda()" @@ -41456,10 +41335,10 @@ static const char *startup_source = " 'syntax-local-module-defined-identifiers" " \"not currently transforming module provides\")))" "(values))))" -"(let-values(((ctx_60)" +"(let-values(((ctx_61)" "(let-values(((temp134_0) 'syntax-local-module-defined-identifiers))" "(get-current-expand-context17.1 #f #f temp134_0 #t))))" -"(requireds->phase-ht(extract-module-definitions(expand-context-requires+provides ctx_60))))))))" +"(requireds->phase-ht(extract-module-definitions(expand-context-requires+provides ctx_61))))))))" "(define-values" "(1/syntax-local-module-required-identifiers)" "(lambda(mod-path_8 phase-level_21)" @@ -41467,8 +41346,8 @@ static const char *startup_source = " 'syntax-local-module-required-identifiers" "(let-values((()" "(begin" -"(if(let-values(((or-part_285)(not mod-path_8)))" -"(if or-part_285 or-part_285(1/module-path? mod-path_8)))" +"(if(let-values(((or-part_14)(not mod-path_8)))" +"(if or-part_14 or-part_14(1/module-path? mod-path_8)))" "(void)" "(let-values()" "(raise-argument-error" @@ -41478,8 +41357,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_114)(eq? phase-level_21 #t)))" -"(if or-part_114 or-part_114(phase? phase-level_21)))" +"(if(let-values(((or-part_285)(eq? phase-level_21 #t)))" +"(if or-part_285 or-part_285(phase? phase-level_21)))" "(void)" "(let-values()" "(raise-argument-error" @@ -41496,11 +41375,11 @@ static const char *startup_source = " 'syntax-local-module-required-identifiers" " \"not currently transforming module provides\")))" "(values))))" -"(let-values(((ctx_46)" +"(let-values(((ctx_62)" "(let-values(((temp135_0) 'syntax-local-module-required-identifiers))" "(get-current-expand-context17.1 #f #f temp135_0 #t))))" -"(let-values(((requires+provides_5)(expand-context-requires+provides ctx_46)))" -"(let-values(((mpi_44)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_46) #f)))" +"(let-values(((requires+provides_5)(expand-context-requires+provides ctx_62)))" +"(let-values(((mpi_44)(if mod-path_8(module-path->mpi/context mod-path_8 ctx_62) #f)))" "(let-values(((requireds_0)" "(extract-all-module-requires" " requires+provides_5" @@ -41513,27 +41392,27 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_136)))" -"((letrec-values(((for-loop_250)" -"(lambda(fold-var_244 i_166)" +"((letrec-values(((for-loop_204)" +"(lambda(fold-var_195 i_6)" "(begin" " 'for-loop" -"(if i_166" -"(let-values(((phase_126 ids_27)" -"(hash-iterate-key+value ht_136 i_166)))" -"(let-values(((fold-var_245)" -"(let-values(((fold-var_246) fold-var_244))" -"(let-values(((fold-var_247)" +"(if i_6" +"(let-values(((phase_125 ids_27)" +"(hash-iterate-key+value ht_136 i_6)))" +"(let-values(((fold-var_196)" +"(let-values(((fold-var_197) fold-var_195))" +"(let-values(((fold-var_198)" "(let-values()" "(cons" "(let-values()" -"(cons phase_126 ids_27))" -" fold-var_246))))" -"(values fold-var_247)))))" +"(cons phase_125 ids_27))" +" fold-var_197))))" +"(values fold-var_198)))))" "(if(not #f)" -"(for-loop_250 fold-var_245(hash-iterate-next ht_136 i_166))" -" fold-var_245)))" -" fold-var_244)))))" -" for-loop_250)" +"(for-loop_204 fold-var_196(hash-iterate-next ht_136 i_6))" +" fold-var_196)))" +" fold-var_195)))))" +" for-loop_204)" " null" "(hash-iterate-first ht_136)))))" " #f)))))))))))" @@ -41541,30 +41420,30 @@ static const char *startup_source = "(requireds->phase-ht)" "(lambda(requireds_1)" "(begin" -"(let-values(((lst_287) requireds_1))" +"(let-values(((lst_299) requireds_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_287)))" -"((letrec-values(((for-loop_251)" -"(lambda(ht_86 lst_288)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_299)))" +"((letrec-values(((for-loop_258)" +"(lambda(ht_137 lst_212)" "(begin" " 'for-loop" -"(if(pair? lst_288)" -"(let-values(((r_43)(unsafe-car lst_288))((rest_161)(unsafe-cdr lst_288)))" -"(let-values(((ht_137)" -"(let-values(((ht_138) ht_86))" -"(let-values(((ht_139)" +"(if(pair? lst_212)" +"(let-values(((r_42)(unsafe-car lst_212))((rest_108)(unsafe-cdr lst_212)))" +"(let-values(((ht_138)" +"(let-values(((ht_139) ht_137))" +"(let-values(((ht_140)" "(let-values()" "(hash-update" -" ht_138" -"(required-phase r_43)" -"(lambda(l_71)(cons(required-id r_43) l_71))" +" ht_139" +"(required-phase r_42)" +"(lambda(l_68)(cons(required-id r_42) l_68))" " null))))" -"(values ht_139)))))" -"(if(not #f)(for-loop_251 ht_137 rest_161) ht_137)))" -" ht_86)))))" -" for-loop_251)" +"(values ht_140)))))" +"(if(not #f)(for-loop_258 ht_138 rest_108) ht_138)))" +" ht_137)))))" +" for-loop_258)" "(hasheqv)" -" lst_287))))))" +" lst_299))))))" "(define-values" "(1/syntax-local-module-exports)" "(lambda(mod-path_9)" @@ -41587,164 +41466,164 @@ static const char *startup_source = " \" (module-path? (syntax->datum stx)))))\")" " mod-path_9)))" "(values))))" -"(let-values(((ctx_61)" +"(let-values(((ctx_63)" "(let-values(((temp136_0) 'syntax-local-module-exports))" "(get-current-expand-context17.1 #f #f temp136_0 #t))))" -"(let-values(((ns_74)(expand-context-namespace ctx_61)))" +"(let-values(((ns_74)(expand-context-namespace ctx_63)))" "(let-values(((mod-name_18)" "(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_61)" +" ctx_63)" " #t)))" -"(let-values(((m_2)(namespace->module ns_74 mod-name_18)))" +"(let-values(((m_19)(namespace->module ns_74 mod-name_18)))" "(begin" -"(if m_2(void)(let-values()(raise-unknown-module-error 'syntax-local-module-exports mod-name_18)))" +"(if m_19(void)(let-values()(raise-unknown-module-error 'syntax-local-module-exports mod-name_18)))" "(reverse$1" -"(let-values(((ht_140)(module-provides m_2)))" +"(let-values(((ht_141)(module-provides m_19)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_140)))" -"((letrec-values(((for-loop_252)" -"(lambda(fold-var_248 i_167)" +"(let-values()(check-in-hash ht_141)))" +"((letrec-values(((for-loop_134)" +"(lambda(fold-var_254 i_115)" "(begin" " 'for-loop" -"(if i_167" -"(let-values(((phase_127 syms_22)(hash-iterate-key+value ht_140 i_167)))" -"(let-values(((fold-var_249)" -"(let-values(((fold-var_250) fold-var_248))" -"(let-values(((fold-var_251)" +"(if i_115" +"(let-values(((phase_126 syms_22)(hash-iterate-key+value ht_141 i_115)))" +"(let-values(((fold-var_255)" +"(let-values(((fold-var_256) fold-var_254))" +"(let-values(((fold-var_257)" "(let-values()" "(cons" "(let-values()" "(cons" -" phase_127" +" phase_126" "(reverse$1" -"(let-values(((ht_141) syms_22))" +"(let-values(((ht_142) syms_22))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-in-hash-keys" -" ht_141)))" -"((letrec-values(((for-loop_253)" -"(lambda(fold-var_200" -" i_168)" +" ht_142)))" +"((letrec-values(((for-loop_259)" +"(lambda(fold-var_206" +" i_11)" "(begin" " 'for-loop" -"(if i_168" -"(let-values(((sym_68)" +"(if i_11" +"(let-values(((sym_67)" "(hash-iterate-key" -" ht_141" -" i_168)))" -"(let-values(((fold-var_252)" -"(let-values(((fold-var_253)" -" fold-var_200))" -"(let-values(((fold-var_254)" +" ht_142" +" i_11)))" +"(let-values(((fold-var_258)" +"(let-values(((fold-var_259)" +" fold-var_206))" +"(let-values(((fold-var_260)" "(let-values()" "(cons" "(let-values()" -" sym_68)" -" fold-var_253))))" +" sym_67)" +" fold-var_259))))" "(values" -" fold-var_254)))))" +" fold-var_260)))))" "(if(not" " #f)" -"(for-loop_253" -" fold-var_252" +"(for-loop_259" +" fold-var_258" "(hash-iterate-next" -" ht_141" -" i_168))" -" fold-var_252)))" -" fold-var_200)))))" -" for-loop_253)" +" ht_142" +" i_11))" +" fold-var_258)))" +" fold-var_206)))))" +" for-loop_259)" " null" "(hash-iterate-first" -" ht_141)))))))" -" fold-var_250))))" -"(values fold-var_251)))))" +" ht_142)))))))" +" fold-var_256))))" +"(values fold-var_257)))))" "(if(not #f)" -"(for-loop_252 fold-var_249(hash-iterate-next ht_140 i_167))" -" fold-var_249)))" -" fold-var_248)))))" -" for-loop_252)" +"(for-loop_134 fold-var_255(hash-iterate-next ht_141 i_115))" +" fold-var_255)))" +" fold-var_254)))))" +" for-loop_134)" " null" -"(hash-iterate-first ht_140))))))))))))))" +"(hash-iterate-first ht_141))))))))))))))" "(define-values" "(1/syntax-local-submodules)" "(lambda()" "(begin" " 'syntax-local-submodules" -"(let-values(((ctx_62)" +"(let-values(((ctx_64)" "(let-values(((temp137_1) 'syntax-local-submodules))" "(get-current-expand-context17.1 #f #f temp137_1 #t))))" -"(let-values(((submods_3)(expand-context-declared-submodule-names ctx_62)))" +"(let-values(((submods_3)(expand-context-declared-submodule-names ctx_64)))" "(reverse$1" -"(let-values(((ht_142) submods_3))" +"(let-values(((ht_143) submods_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_142)))" -"((letrec-values(((for-loop_134)" -"(lambda(fold-var_255 i_113)" +"(let-values()(check-in-hash ht_143)))" +"((letrec-values(((for-loop_260)" +"(lambda(fold-var_261 i_167)" "(begin" " 'for-loop" -"(if i_113" -"(let-values(((name_64 kind_8)(hash-iterate-key+value ht_142 i_113)))" -"(let-values(((fold-var_256)" -"(let-values(((fold-var_204) fold-var_255))" +"(if i_167" +"(let-values(((name_62 kind_8)(hash-iterate-key+value ht_143 i_167)))" +"(let-values(((fold-var_262)" +"(let-values(((fold-var_263) fold-var_261))" "(if(eq? kind_8 'module)" -"(let-values(((fold-var_205) fold-var_204))" -"(let-values(((fold-var_206)" +"(let-values(((fold-var_264) fold-var_263))" +"(let-values(((fold-var_265)" "(let-values()" "(cons" -"(let-values() name_64)" -" fold-var_205))))" -"(values fold-var_206)))" -" fold-var_204))))" +"(let-values() name_62)" +" fold-var_264))))" +"(values fold-var_265)))" +" fold-var_263))))" "(if(not #f)" -"(for-loop_134 fold-var_256(hash-iterate-next ht_142 i_113))" -" fold-var_256)))" -" fold-var_255)))))" -" for-loop_134)" +"(for-loop_260 fold-var_262(hash-iterate-next ht_143 i_167))" +" fold-var_262)))" +" fold-var_261)))))" +" for-loop_260)" " null" -"(hash-iterate-first ht_142))))))))))" +"(hash-iterate-first ht_143))))))))))" "(define-values" "(1/syntax-local-get-shadower)" "(let-values(((syntax-local-get-shadower60_0)" "(lambda(id59_0 only-generated?57_0 only-generated?58_0)" "(begin" " 'syntax-local-get-shadower60" -"(let-values(((id_82) id59_0))" +"(let-values(((id_89) id59_0))" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? id_82)" +"(if(identifier? id_89)" "(void)" "(let-values()" -" (raise-argument-error 'syntax-local-get-shadower \"identifier?\" id_82)))" +" (raise-argument-error 'syntax-local-get-shadower \"identifier?\" id_89)))" "(values))))" -"(let-values(((ctx_63)" +"(let-values(((ctx_65)" "(let-values(((temp138_1) 'syntax-local-get-shadower))" "(get-current-expand-context17.1 #f #f temp138_1 #t))))" -"(let-values(((new-id_0)(add-scopes id_82(expand-context-scopes ctx_63))))" -"(if(syntax-clean? id_82) new-id_0(syntax-taint$1 new-id_0))))))))))))" +"(let-values(((new-id_0)(add-scopes id_89(expand-context-scopes ctx_65))))" +"(if(syntax-clean? id_89) new-id_0(syntax-taint$1 new-id_0))))))))))))" "(case-lambda" -"((id_83)(begin 'syntax-local-get-shadower(syntax-local-get-shadower60_0 id_83 #f #f)))" -"((id_84 only-generated?57_1)(syntax-local-get-shadower60_0 id_84 only-generated?57_1 #t)))))" +"((id_90)(begin 'syntax-local-get-shadower(syntax-local-get-shadower60_0 id_90 #f #f)))" +"((id_91 only-generated?57_1)(syntax-local-get-shadower60_0 id_91 only-generated?57_1 #t)))))" "(define-values" "(syntax-source-accessor)" "(lambda(who_0 srcloc-accessor_0)" "(begin" -"(lambda(s_157)" +"(lambda(s_155)" "(let-values((()" "(begin" -" (if (syntax?$1 s_157) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_157)))" +" (if (syntax?$1 s_155) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_155)))" "(values))))" -"(let-values(((srcloc_8)(syntax-srcloc s_157)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))" +"(let-values(((srcloc_8)(syntax-srcloc s_155)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))" "(define-values(1/syntax-source)(syntax-source-accessor 'syntax-source srcloc-source))" "(define-values(1/syntax-line)(syntax-source-accessor 'syntax-line srcloc-line))" "(define-values(1/syntax-column)(syntax-source-accessor 'syntax-column srcloc-column))" @@ -41752,57 +41631,57 @@ static const char *startup_source = "(define-values(1/syntax-span)(syntax-source-accessor 'syntax-span srcloc-span))" "(define-values" "(encoded-srcloc?)" -"(lambda(v_69)" +"(lambda(v_65)" "(begin" -"(let-values(((or-part_32)(if(list? v_69)(if(=(length v_69) 5)(srcloc-vector?(list->vector v_69)) #f) #f)))" -"(if or-part_32 or-part_32(if(vector? v_69)(if(=(vector-length v_69) 5)(srcloc-vector? v_69) #f) #f))))))" +"(let-values(((or-part_26)(if(list? v_65)(if(=(length v_65) 5)(srcloc-vector?(list->vector v_65)) #f) #f)))" +"(if or-part_26 or-part_26(if(vector? v_65)(if(=(vector-length v_65) 5)(srcloc-vector? v_65) #f) #f))))))" "(define-values" "(srcloc-vector?)" -"(lambda(v_71)" +"(lambda(v_67)" "(begin" -"(if(let-values(((or-part_287)(not(vector-ref v_71 1))))" -"(if or-part_287 or-part_287(exact-positive-integer?(vector-ref v_71 1))))" -"(if(let-values(((or-part_33)(not(vector-ref v_71 2))))" -"(if or-part_33 or-part_33(exact-nonnegative-integer?(vector-ref v_71 2))))" -"(if(let-values(((or-part_10)(not(vector-ref v_71 3))))" -"(if or-part_10 or-part_10(exact-positive-integer?(vector-ref v_71 3))))" -"(let-values(((or-part_165)(not(vector-ref v_71 4))))" -"(if or-part_165 or-part_165(exact-nonnegative-integer?(vector-ref v_71 4))))" +"(if(let-values(((or-part_287)(not(vector-ref v_67 1))))" +"(if or-part_287 or-part_287(exact-positive-integer?(vector-ref v_67 1))))" +"(if(let-values(((or-part_27)(not(vector-ref v_67 2))))" +"(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_67 2))))" +"(if(let-values(((or-part_10)(not(vector-ref v_67 3))))" +"(if or-part_10 or-part_10(exact-positive-integer?(vector-ref v_67 3))))" +"(let-values(((or-part_157)(not(vector-ref v_67 4))))" +"(if or-part_157 or-part_157(exact-nonnegative-integer?(vector-ref v_67 4))))" " #f)" " #f)" " #f))))" "(define-values" "(to-srcloc-stx)" -"(lambda(v_190)" +"(lambda(v_193)" "(begin" -"(if(srcloc? v_190)" +"(if(srcloc? v_193)" "(let-values()" -"(let-values(((the-struct_72) empty-syntax))" -"(if(syntax?$1 the-struct_72)" -"(let-values(((srcloc1_2) v_190))" +"(let-values(((the-struct_73) empty-syntax))" +"(if(syntax?$1 the-struct_73)" +"(let-values(((srcloc1_2) v_193))" "(syntax1.1" -"(syntax-content the-struct_72)" -"(syntax-scopes the-struct_72)" -"(syntax-shifted-multi-scopes the-struct_72)" -"(syntax-scope-propagations+tamper the-struct_72)" -"(syntax-mpi-shifts the-struct_72)" +"(syntax-content the-struct_73)" +"(syntax-scopes the-struct_73)" +"(syntax-shifted-multi-scopes the-struct_73)" +"(syntax-scope-propagations+tamper the-struct_73)" +"(syntax-mpi-shifts the-struct_73)" " srcloc1_2" -"(syntax-props the-struct_72)" -"(syntax-inspector the-struct_72)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_72))))" -"(if(pair? v_190)" -"(let-values()(to-srcloc-stx(list->vector v_190)))" -"(if(vector? v_190)" +"(syntax-props the-struct_73)" +"(syntax-inspector the-struct_73)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_73))))" +"(if(pair? v_193)" +"(let-values()(to-srcloc-stx(list->vector v_193)))" +"(if(vector? v_193)" "(let-values()" "(let-values(((the-struct_29) empty-syntax))" "(if(syntax?$1 the-struct_29)" "(let-values(((srcloc2_1)" "(srcloc" -"(vector-ref v_190 0)" -"(vector-ref v_190 1)" -"(vector-ref v_190 2)" -"(vector-ref v_190 3)" -"(vector-ref v_190 4))))" +"(vector-ref v_193 0)" +"(vector-ref v_193 1)" +"(vector-ref v_193 2)" +"(vector-ref v_193 3)" +"(vector-ref v_193 4))))" "(syntax1.1" "(syntax-content the-struct_29)" "(syntax-scopes the-struct_29)" @@ -41813,7 +41692,7 @@ static const char *startup_source = "(syntax-props the-struct_29)" "(syntax-inspector the-struct_29)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_29))))" -"(let-values() v_190)))))))" +"(let-values() v_193)))))))" "(define-values" "(1/syntax-e)" "(lambda(s_0)" @@ -41824,13 +41703,13 @@ static const char *startup_source = "(syntax-e$1 s_0)))))" "(define-values" "(1/syntax->datum)" -"(lambda(s_156)" +"(lambda(s_154)" "(begin" " 'syntax->datum" "(begin" -" (if (syntax?$1 s_156) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_156)))" -"(syntax->datum$1 s_156)))))" -"(define-values(maybe-syntax->datum)(lambda(s_157)(begin(if(syntax?$1 s_157)(syntax->datum$1 s_157) s_157))))" +" (if (syntax?$1 s_154) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_154)))" +"(syntax->datum$1 s_154)))))" +"(define-values(maybe-syntax->datum)(lambda(s_155)(begin(if(syntax?$1 s_155)(syntax->datum$1 s_155) s_155))))" "(define-values" "(1/datum->syntax)" "(let-values(((datum->syntax9_0)" @@ -41838,7 +41717,7 @@ static const char *startup_source = "(begin" " 'datum->syntax9" "(let-values(((stx-c_4) stx-c7_0))" -"(let-values(((s_428) s8_0))" +"(let-values(((s_417) s8_0))" "(let-values(((stx-l_2)(if stx-l4_1 stx-l1_0 #f)))" "(let-values(((stx-p_1)(if stx-p5_1 stx-p2_0 #f)))" "(let-values()" @@ -41851,8 +41730,8 @@ static const char *startup_source = "(if(let-values(((or-part_288)(not stx-l_2)))" "(if or-part_288" " or-part_288" -"(let-values(((or-part_34)(syntax?$1 stx-l_2)))" -"(if or-part_34 or-part_34(encoded-srcloc? stx-l_2)))))" +"(let-values(((or-part_28)(syntax?$1 stx-l_2)))" +"(if or-part_28 or-part_28(encoded-srcloc? stx-l_2)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -41874,270 +41753,270 @@ static const char *startup_source = "(if or-part_289 or-part_289(syntax?$1 stx-p_1)))" "(void)" " (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-p_1)))" -"(datum->syntax$1 stx-c_4 s_428(to-srcloc-stx stx-l_2) stx-p_1))))))))))))" +"(datum->syntax$1 stx-c_4 s_417(to-srcloc-stx stx-l_2) stx-p_1))))))))))))" "(case-lambda" -"((stx-c_5 s_71)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_71 #f #f #f #f #f #f)))" +"((stx-c_5 s_69)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_69 #f #f #f #f #f #f)))" "((stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_4 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" -"((stx-c_7 s_72 stx-l_4 stx-p2_1)(datum->syntax9_0 stx-c_7 s_72 stx-l_4 stx-p2_1 #f #t #t #f))" +"((stx-c_7 s_70 stx-l_4 stx-p2_1)(datum->syntax9_0 stx-c_7 s_70 stx-l_4 stx-p2_1 #f #t #t #f))" "((stx-c_8 s_41 stx-l1_1)(datum->syntax9_0 stx-c_8 s_41 stx-l1_1 #f #f #t #f #f)))))" "(define-values" "(1/syntax->list)" -"(lambda(s_429)" +"(lambda(s_418)" "(begin" " 'syntax->list" "(begin" -" (if (syntax?$1 s_429) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_429)))" -"(syntax->list$1 s_429)))))" +" (if (syntax?$1 s_418) (void) (let-values () (raise-argument-error 'syntax->list \"syntax?\" s_418)))" +"(syntax->list$1 s_418)))))" "(define-values" "(1/syntax-original?)" -"(lambda(s_430)" +"(lambda(s_419)" "(begin" " 'syntax-original?" "(begin" -" (if (syntax?$1 s_430) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_430)))" -"(if(syntax-property$1 s_430 original-property-sym)(not(syntax-any-macro-scopes? s_430)) #f)))))" +" (if (syntax?$1 s_419) (void) (let-values () (raise-argument-error 'syntax-original? \"syntax?\" s_419)))" +"(if(syntax-property$1 s_419 original-property-sym)(not(syntax-any-macro-scopes? s_419)) #f)))))" "(define-values" "(1/bound-identifier=?)" "(let-values(((bound-identifier=?15_0)" "(lambda(a13_0 b14_1 phase11_0 phase12_1)" "(begin" " 'bound-identifier=?15" -"(let-values(((a_59) a13_0))" -"(let-values(((b_48) b14_1))" -"(let-values(((phase_128)(if phase12_1 phase11_0(1/syntax-local-phase-level))))" +"(let-values(((a_53) a13_0))" +"(let-values(((b_79) b14_1))" +"(let-values(((phase_19)(if phase12_1 phase11_0(1/syntax-local-phase-level))))" "(let-values()" "(begin" -"(if(identifier? a_59)" +"(if(identifier? a_53)" "(void)" -" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" a_59)))" -"(if(identifier? b_48)" +" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" a_53)))" +"(if(identifier? b_79)" "(void)" -" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_48)))" -"(if(phase? phase_128)" +" (let-values () (raise-argument-error 'bound-identifier=? \"identifier?\" b_79)))" +"(if(phase? phase_19)" "(void)" -"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_128)))" -"(bound-identifier=?$1 a_59 b_48 phase_128))))))))))" +"(let-values()(raise-argument-error 'bound-identifier=? phase?-string phase_19)))" +"(bound-identifier=?$1 a_53 b_79 phase_19))))))))))" "(case-lambda" -"((a_60 b_81)(begin 'bound-identifier=?(bound-identifier=?15_0 a_60 b_81 #f #f)))" -"((a_61 b_82 phase11_1)(bound-identifier=?15_0 a_61 b_82 phase11_1 #t)))))" +"((a_54 b_48)(begin 'bound-identifier=?(bound-identifier=?15_0 a_54 b_48 #f #f)))" +"((a_55 b_80 phase11_1)(bound-identifier=?15_0 a_55 b_80 phase11_1 #t)))))" "(define-values" "(1/free-identifier=?)" "(let-values(((free-identifier=?23_0)" "(lambda(a21_0 b22_0 a-phase17_0 b-phase18_0 a-phase19_0 b-phase20_0)" "(begin" " 'free-identifier=?23" -"(let-values(((a_62) a21_0))" -"(let-values(((b_83) b22_0))" +"(let-values(((a_56) a21_0))" +"(let-values(((b_81) b22_0))" "(let-values(((a-phase_1)(if a-phase19_0 a-phase17_0(1/syntax-local-phase-level))))" "(let-values(((b-phase_1)(if b-phase20_0 b-phase18_0 a-phase_1)))" "(let-values()" "(begin" -"(if(identifier? a_62)" +"(if(identifier? a_56)" "(void)" -" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" a_62)))" -"(if(identifier? b_83)" +" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" a_56)))" +"(if(identifier? b_81)" "(void)" -" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" b_83)))" +" (let-values () (raise-argument-error 'free-identifier=? \"identifier?\" b_81)))" "(if(phase? a-phase_1)" "(void)" "(let-values()(raise-argument-error 'free-identifier=? phase?-string a-phase_1)))" "(if(phase? b-phase_1)" "(void)" "(let-values()(raise-argument-error 'free-identifier=? phase?-string b-phase_1)))" -"(free-identifier=?$1 a_62 b_83 a-phase_1 b-phase_1)))))))))))" +"(free-identifier=?$1 a_56 b_81 a-phase_1 b-phase_1)))))))))))" "(case-lambda" -"((a_63 b_43)(begin 'free-identifier=?(free-identifier=?23_0 a_63 b_43 #f #f #f #f)))" -"((a_64 b_84 a-phase_2 b-phase18_1)(free-identifier=?23_0 a_64 b_84 a-phase_2 b-phase18_1 #t #t))" -"((a_65 b_85 a-phase17_1)(free-identifier=?23_0 a_65 b_85 a-phase17_1 #f #t #f)))))" +"((a_57 b_43)(begin 'free-identifier=?(free-identifier=?23_0 a_57 b_43 #f #f #f #f)))" +"((a_58 b_82 a-phase_2 b-phase18_1)(free-identifier=?23_0 a_58 b_82 a-phase_2 b-phase18_1 #t #t))" +"((a_59 b_83 a-phase17_1)(free-identifier=?23_0 a_59 b_83 a-phase17_1 #f #t #f)))))" "(define-values" "(1/free-transformer-identifier=?)" -"(lambda(a_66 b_86)" +"(lambda(a_60 b_84)" "(begin" " 'free-transformer-identifier=?" "(let-values((()" "(begin" -"(if(identifier? a_66)" +"(if(identifier? a_60)" "(void)" -" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" a_66)))" +" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" a_60)))" "(values))))" "(let-values((()" "(begin" -"(if(identifier? b_86)" +"(if(identifier? b_84)" "(void)" -" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_86)))" +" (let-values () (raise-argument-error 'free-transformer-identifier=? \"identifier?\" b_84)))" "(values))))" -"(let-values(((phase_129)(add1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_66 b_86 phase_129 phase_129)))))))" +"(let-values(((phase_127)(add1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_60 b_84 phase_127 phase_127)))))))" "(define-values" "(1/free-template-identifier=?)" -"(lambda(a_67 b_87)" +"(lambda(a_61 b_85)" "(begin" " 'free-template-identifier=?" "(let-values((()" "(begin" -"(if(identifier? a_67)" +"(if(identifier? a_61)" "(void)" -" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" a_67)))" +" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" a_61)))" "(values))))" "(let-values((()" "(begin" -"(if(identifier? b_87)" +"(if(identifier? b_85)" "(void)" -" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_87)))" +" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_85)))" "(values))))" -"(let-values(((phase_130)(sub1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_67 b_87 phase_130 phase_130)))))))" +"(let-values(((phase_128)(sub1(1/syntax-local-phase-level))))" +"(free-identifier=?$1 a_61 b_85 phase_128 phase_128)))))))" "(define-values" "(1/free-label-identifier=?)" -"(lambda(a_68 b_88)" +"(lambda(a_62 b_86)" "(begin" " 'free-label-identifier=?" "(begin" -"(if(identifier? a_68)" +"(if(identifier? a_62)" "(void)" -" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" a_68)))" -"(if(identifier? b_88)" +" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" a_62)))" +"(if(identifier? b_86)" "(void)" -" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" b_88)))" -"(free-identifier=?$1 a_68 b_88 #f #f)))))" +" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" b_86)))" +"(free-identifier=?$1 a_62 b_86 #f #f)))))" "(define-values" "(1/identifier-binding)" "(let-values(((identifier-binding30_0)" -"(lambda(id29_0 phase25_1 top-level-symbol?26_0 phase27_0 top-level-symbol?28_0)" +"(lambda(id29_1 phase25_1 top-level-symbol?26_0 phase27_0 top-level-symbol?28_0)" "(begin" " 'identifier-binding30" -"(let-values(((id_85) id29_0))" -"(let-values(((phase_87)(if phase27_0 phase25_1(1/syntax-local-phase-level))))" +"(let-values(((id_92) id29_1))" +"(let-values(((phase_85)(if phase27_0 phase25_1(1/syntax-local-phase-level))))" "(let-values(((top-level-symbol?_1)(if top-level-symbol?28_0 top-level-symbol?26_0 #f)))" "(let-values()" "(begin" -"(if(identifier? id_85)" +"(if(identifier? id_92)" "(void)" -" (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_85)))" -"(if(phase? phase_87)" +" (let-values () (raise-argument-error 'identifier-binding \"identifier?\" id_92)))" +"(if(phase? phase_85)" "(void)" -"(let-values()(raise-argument-error 'identifier-binding phase?-string phase_87)))" -"(identifier-binding$1 id_85 phase_87 top-level-symbol?_1))))))))))" +"(let-values()(raise-argument-error 'identifier-binding phase?-string phase_85)))" +"(identifier-binding$1 id_92 phase_85 top-level-symbol?_1))))))))))" "(case-lambda" -"((id_86)(begin 'identifier-binding(identifier-binding30_0 id_86 #f #f #f #f)))" -"((id_87 phase_131 top-level-symbol?26_1)(identifier-binding30_0 id_87 phase_131 top-level-symbol?26_1 #t #t))" -"((id_88 phase25_2)(identifier-binding30_0 id_88 phase25_2 #f #t #f)))))" +"((id_93)(begin 'identifier-binding(identifier-binding30_0 id_93 #f #f #f #f)))" +"((id_94 phase_129 top-level-symbol?26_1)(identifier-binding30_0 id_94 phase_129 top-level-symbol?26_1 #t #t))" +"((id_95 phase25_2)(identifier-binding30_0 id_95 phase25_2 #f #t #f)))))" "(define-values" "(1/identifier-transformer-binding)" "(let-values(((identifier-transformer-binding35_0)" "(lambda(id34_0 phase32_2 phase33_2)" "(begin" " 'identifier-transformer-binding35" -"(let-values(((id_53) id34_0))" -"(let-values(((phase_97)(if phase33_2 phase32_2(1/syntax-local-phase-level))))" +"(let-values(((id_96) id34_0))" +"(let-values(((phase_93)(if phase33_2 phase32_2(1/syntax-local-phase-level))))" "(let-values()" "(begin" -"(if(identifier? id_53)" +"(if(identifier? id_96)" "(void)" "(let-values()" -" (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_53)))" -"(identifier-binding$1 id_53(if phase_97(add1 phase_97) #f))))))))))" +" (raise-argument-error 'identifier-transformer-binding \"identifier?\" id_96)))" +"(identifier-binding$1 id_96(if phase_93(add1 phase_93) #f))))))))))" "(case-lambda" -"((id_89)(begin 'identifier-transformer-binding(identifier-transformer-binding35_0 id_89 #f #f)))" -"((id_90 phase32_3)(identifier-transformer-binding35_0 id_90 phase32_3 #t)))))" +"((id_97)(begin 'identifier-transformer-binding(identifier-transformer-binding35_0 id_97 #f #f)))" +"((id_98 phase32_3)(identifier-transformer-binding35_0 id_98 phase32_3 #t)))))" "(define-values" "(1/identifier-template-binding)" -"(lambda(id_91)" +"(lambda(id_99)" "(begin" " 'identifier-template-binding" "(begin" -"(if(identifier? id_91)" +"(if(identifier? id_99)" "(void)" -" (let-values () (raise-argument-error 'identifier-template-binding \"identifier?\" id_91)))" -"(identifier-binding$1 id_91(sub1(1/syntax-local-phase-level)))))))" +" (let-values () (raise-argument-error 'identifier-template-binding \"identifier?\" id_99)))" +"(identifier-binding$1 id_99(sub1(1/syntax-local-phase-level)))))))" "(define-values" "(1/identifier-label-binding)" -"(lambda(id_92)" +"(lambda(id_78)" "(begin" " 'identifier-label-binding" "(begin" -"(if(identifier? id_92)" +"(if(identifier? id_78)" "(void)" -" (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_92)))" -"(identifier-binding$1 id_92 #f)))))" +" (let-values () (raise-argument-error 'identifier-label-binding \"identifier?\" id_78)))" +"(identifier-binding$1 id_78 #f)))))" "(define-values" "(1/identifier-binding-symbol)" "(let-values(((identifier-binding-symbol40_0)" "(lambda(id39_0 phase37_2 phase38_0)" "(begin" " 'identifier-binding-symbol40" -"(let-values(((id_93) id39_0))" -"(let-values(((phase_132)(if phase38_0 phase37_2(1/syntax-local-phase-level))))" +"(let-values(((id_100) id39_0))" +"(let-values(((phase_111)(if phase38_0 phase37_2(1/syntax-local-phase-level))))" "(let-values()" "(begin" -"(if(identifier? id_93)" +"(if(identifier? id_100)" "(void)" -" (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_93)))" -"(if(phase? phase_132)" +" (let-values () (raise-argument-error 'identifier-binding-symbol \"identifier?\" id_100)))" +"(if(phase? phase_111)" "(void)" -"(let-values()(raise-argument-error 'identifier-binding-symbol phase?-string phase_132)))" -"(identifier-binding-symbol$1 id_93 phase_132)))))))))" +"(let-values()(raise-argument-error 'identifier-binding-symbol phase?-string phase_111)))" +"(identifier-binding-symbol$1 id_100 phase_111)))))))))" "(case-lambda" -"((id_94)(begin 'identifier-binding-symbol(identifier-binding-symbol40_0 id_94 #f #f)))" -"((id_74 phase37_3)(identifier-binding-symbol40_0 id_74 phase37_3 #t)))))" +"((id_101)(begin 'identifier-binding-symbol(identifier-binding-symbol40_0 id_101 #f #f)))" +"((id_102 phase37_3)(identifier-binding-symbol40_0 id_102 phase37_3 #t)))))" "(define-values" "(1/identifier-prune-lexical-context)" "(let-values(((identifier-prune-lexical-context45_0)" "(lambda(id44_0 syms42_0 syms43_0)" "(begin" " 'identifier-prune-lexical-context45" -"(let-values(((id_95) id44_0))" +"(let-values(((id_103) id44_0))" "(let-values(((syms_23)(if syms43_0 syms42_0 null)))" "(let-values()" "(begin" -"(if(identifier? id_95)" +"(if(identifier? id_103)" "(void)" "(let-values()" -" (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_95)))" +" (raise-argument-error 'identifier-prune-lexical-context \"identifier?\" id_103)))" "(if(if(list? syms_23)(andmap2 symbol? syms_23) #f)" "(void)" "(let-values()" " (raise-argument-error 'identifier-prune-lexical-context \"(listof symbol?)\" syms_23)))" -" id_95))))))))" +" id_103))))))))" "(case-lambda" -"((id_55)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context45_0 id_55 #f #f)))" -"((id_68 syms42_1)(identifier-prune-lexical-context45_0 id_68 syms42_1 #t)))))" +"((id_79)(begin 'identifier-prune-lexical-context(identifier-prune-lexical-context45_0 id_79 #f #f)))" +"((id_69 syms42_1)(identifier-prune-lexical-context45_0 id_69 syms42_1 #t)))))" "(define-values" "(1/syntax-debug-info)" "(let-values(((syntax-debug-info52_0)" -"(lambda(s51_0 phase47_2 all-bindings?48_0 phase49_1 all-bindings?50_0)" +"(lambda(s51_1 phase47_2 all-bindings?48_0 phase49_1 all-bindings?50_0)" "(begin" " 'syntax-debug-info52" -"(let-values(((s_398) s51_0))" +"(let-values(((s_306) s51_1))" "(let-values(((phase_12)(if phase49_1 phase47_2(1/syntax-local-phase-level))))" "(let-values(((all-bindings?_1)(if all-bindings?50_0 all-bindings?48_0 #f)))" "(let-values()" "(begin" -"(if(syntax?$1 s_398)" +"(if(syntax?$1 s_306)" "(void)" -" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_398)))" +" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_306)))" "(if(phase? phase_12)" "(void)" "(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_12)))" -"(syntax-debug-info$1 s_398 phase_12 all-bindings?_1))))))))))" +"(syntax-debug-info$1 s_306 phase_12 all-bindings?_1))))))))))" "(case-lambda" -"((s_309)(begin 'syntax-debug-info(syntax-debug-info52_0 s_309 #f #f #f #f)))" -"((s_27 phase_133 all-bindings?48_1)(syntax-debug-info52_0 s_27 phase_133 all-bindings?48_1 #t #t))" +"((s_420)(begin 'syntax-debug-info(syntax-debug-info52_0 s_420 #f #f #f #f)))" +"((s_27 phase_130 all-bindings?48_1)(syntax-debug-info52_0 s_27 phase_130 all-bindings?48_1 #t #t))" "((s_30 phase47_3)(syntax-debug-info52_0 s_30 phase47_3 #f #t #f)))))" "(define-values" "(1/syntax-shift-phase-level)" -"(lambda(s_150 phase_20)" +"(lambda(s_392 phase_131)" "(begin" " 'syntax-shift-phase-level" "(begin" -" (if (syntax?$1 s_150) (void) (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_150)))" -"(if(phase? phase_20)" +" (if (syntax?$1 s_392) (void) (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_392)))" +"(if(phase? phase_131)" "(void)" -"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_20)))" -"(syntax-shift-phase-level$1 s_150 phase_20)))))" +"(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_131)))" +"(syntax-shift-phase-level$1 s_392 phase_131)))))" "(define-values" "(1/syntax-track-origin)" -"(lambda(new-stx_8 old-stx_4 id_96)" +"(lambda(new-stx_8 old-stx_4 id_104)" "(begin" " 'syntax-track-origin" "(let-values((()" @@ -42154,21 +42033,21 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(identifier? id_96)" +"(if(identifier? id_104)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_96)))" +" (let-values () (raise-argument-error 'syntax-track-origin \"identifier?\" id_104)))" "(values))))" -"(let-values(((s_431)(syntax-track-origin$1 new-stx_8 old-stx_4 id_96)))" -"(let-values(((ctx_64)(let-values(((temp54_2) #t))(get-current-expand-context17.1 temp54_2 #t #f #f))))" +"(let-values(((s_421)(syntax-track-origin$1 new-stx_8 old-stx_4 id_104)))" +"(let-values(((ctx_66)(let-values(((temp54_2) #t))(get-current-expand-context17.1 temp54_2 #t #f #f))))" "(begin" -"(if ctx_64" +"(if ctx_66" "(let-values()" -"(let-values(((obs_43)(expand-context-observer ctx_64)))" +"(let-values(((obs_43)(expand-context-observer ctx_66)))" "(if obs_43" -"(let-values()(let-values()(call-expand-observe obs_43 'track-origin new-stx_8 s_431)))" +"(let-values()(let-values()(call-expand-observe obs_43 'track-origin new-stx_8 s_421)))" "(void))))" "(void))" -" s_431)))))))))" +" s_421)))))))))" "(define-values" "(1/namespace-attach-module)" "(let-values(((namespace-attach-module5_0)" @@ -42204,13 +42083,13 @@ static const char *startup_source = "(begin" " 'namespace-attach-module-declaration11" "(let-values(((src-namespace_3) src-namespace9_0))" -"(let-values(((mod-path_13) mod-path10_1))" +"(let-values(((mod-path_6) mod-path10_1))" "(let-values(((dest-namespace_1)" "(if dest-namespace8_0 dest-namespace7_0(1/current-namespace))))" "(let-values()" "(let-values(((temp27_5) 'namespace-attach-module-declaration)" "((src-namespace28_0) src-namespace_3)" -"((mod-path29_0) mod-path_13)" +"((mod-path29_0) mod-path_6)" "((dest-namespace30_0) dest-namespace_1)" "((temp31_3) #f))" "(do-attach-module19.1" @@ -42221,12 +42100,12 @@ static const char *startup_source = " mod-path29_0" " dest-namespace30_0))))))))))" "(case-lambda" -"((src-namespace_4 mod-path_14)" +"((src-namespace_4 mod-path_13)" "(begin" " 'namespace-attach-module-declaration" -"(namespace-attach-module-declaration11_0 src-namespace_4 mod-path_14 #f #f)))" -"((src-namespace_5 mod-path_15 dest-namespace7_1)" -"(namespace-attach-module-declaration11_0 src-namespace_5 mod-path_15 dest-namespace7_1 #t)))))" +"(namespace-attach-module-declaration11_0 src-namespace_4 mod-path_13 #f #f)))" +"((src-namespace_5 mod-path_14 dest-namespace7_1)" +"(namespace-attach-module-declaration11_0 src-namespace_5 mod-path_14 dest-namespace7_1 #t)))))" "(define-values" "(do-attach-module19.1)" "(lambda(attach-instances?13_0 attach-instances?14_0 who15_1 src-namespace16_0 mod-path17_0 dest-namespace18_0)" @@ -42234,7 +42113,7 @@ static const char *startup_source = " 'do-attach-module19" "(let-values(((who_18) who15_1))" "(let-values(((src-namespace_6) src-namespace16_0))" -"(let-values(((mod-path_16) mod-path17_0))" +"(let-values(((mod-path_15) mod-path17_0))" "(let-values(((dest-namespace_2) dest-namespace18_0))" "(let-values(((attach-instances?_0)(if attach-instances?14_0 attach-instances?13_0 #f)))" "(let-values()" @@ -42246,14 +42125,14 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_62)(1/module-path? mod-path_16)))" -"(if or-part_62 or-part_62(1/resolved-module-path? mod-path_16)))" +"(if(let-values(((or-part_8)(1/module-path? mod-path_15)))" +"(if or-part_8 or-part_8(1/resolved-module-path? mod-path_15)))" "(void)" "(let-values()" "(raise-argument-error" " who_18" " \"(or/c module-path? resolved-module-path?)\"" -" mod-path_16)))" +" mod-path_15)))" "(values))))" "(let-values((()" "(begin" @@ -42261,17 +42140,17 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error who_18 \"namespace?\" dest-namespace_2)))" "(values))))" -"(let-values(((phase_134)(namespace-phase src-namespace_6)))" +"(let-values(((phase_132)(namespace-phase src-namespace_6)))" "(let-values((()" "(begin" -"(if(eqv? phase_134(namespace-phase dest-namespace_2))" +"(if(eqv? phase_132(namespace-phase dest-namespace_2))" "(void)" "(let-values()" "(raise-arguments-error" " who_18" " \"source and destination namespace phases do not match\"" " \"source phase\"" -" phase_134" +" phase_132" " \"destination phase\"" "(namespace-phase dest-namespace_2))))" "(values))))" @@ -42279,9 +42158,9 @@ static const char *startup_source = "(let-values(((missing_0)(gensym 'missing)))" "(let-values((()" "(begin" -"((letrec-values(((loop_80)" +"((letrec-values(((loop_39)" "(lambda(mpi_45" -" phase_0" +" phase_133" " attach-instances?_1" " attach-phase_0)" "(begin" @@ -42300,7 +42179,7 @@ static const char *startup_source = " mpi_45)))))" "(let-values(((attach-this-instance?_0)" "(if attach-instances?_1" -"(eqv? phase_0 attach-phase_0)" +"(eqv? phase_133 attach-phase_0)" " #f)))" "(let-values(((m-ns_12)" "(hash-ref" @@ -42308,22 +42187,22 @@ static const char *startup_source = " todo_0" " mod-name_19" " '#hasheqv())" -" phase_0" +" phase_133" " missing_0)))" -"(if(let-values(((or-part_175)" +"(if(let-values(((or-part_168)" "(eq? missing_0 m-ns_12)))" -"(if or-part_175" -" or-part_175" +"(if or-part_168" +" or-part_168" "(if attach-this-instance?_0" "(not m-ns_12)" " #f)))" "(let-values()" -"(let-values(((m_19)" +"(let-values(((m_20)" "(namespace->module" " src-namespace_6" " mod-name_19)))" "(begin" -"(if m_19" +"(if m_20" "(void)" "(let-values()" "(raise-arguments-error" @@ -42332,14 +42211,15 @@ static const char *startup_source = " \"module name\"" " mod-name_19)))" "(if(if(module-cross-phase-persistent?" -" m_19)" +" m_20)" "(if(not" -"(label-phase? phase_0))" -"(not(zero-phase? phase_0))" +"(label-phase? phase_133))" +"(not" +"(zero-phase? phase_133))" " #f)" " #f)" "(let-values()" -"(loop_80" +"(loop_39" " mpi_45" " 0" " attach-instances?_1" @@ -42355,7 +42235,7 @@ static const char *startup_source = "(not" "(eq?" " already-m_0" -" m_19))" +" m_20))" " #f)" "(let-values()" "(raise-arguments-error" @@ -42372,15 +42252,15 @@ static const char *startup_source = "(if or-part_290" " or-part_290" "(module-cross-phase-persistent?" -" m_19)))" +" m_20)))" "(let-values()" "(let-values(((m-ns_14)" "(let-values(((src-namespace32_0)" " src-namespace_6)" "((mod-name33_0)" " mod-name_19)" -"((phase34_0)" -" phase_0))" +"((phase34_1)" +" phase_133))" "(namespace->module-namespace82.1" " #f" " #f" @@ -42390,7 +42270,7 @@ static const char *startup_source = " #f" " src-namespace32_0" " mod-name33_0" -" phase34_0))))" +" phase34_1))))" "(let-values((()" "(begin" "(if m-ns_14" @@ -42409,7 +42289,7 @@ static const char *startup_source = "((mod-name36_0)" " mod-name_19)" "((phase37_4)" -" phase_0))" +" phase_133))" "(namespace->module-namespace82.1" " #f" " #f" @@ -42448,14 +42328,14 @@ static const char *startup_source = "(let-values()" "(begin" "(if(if(label-phase?" -" phase_0)" +" phase_133)" "(not" "(let-values(((src-namespace38_0)" " src-namespace_6)" "((mod-name39_0)" " mod-name_19)" "((phase40_0)" -" phase_0))" +" phase_133))" "(namespace->module-namespace82.1" " #f" " #f" @@ -42482,7 +42362,7 @@ static const char *startup_source = "((mpi42_0)" " mpi_45)" "((phase43_1)" -" phase_0))" +" phase_133))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -42505,40 +42385,40 @@ static const char *startup_source = "(hash-update!" " todo_0" " mod-name_19" -"(lambda(ht_143)" +"(lambda(ht_25)" "(hash-set" -" ht_143" -" phase_0" +" ht_25" +" phase_133" " m-ns_13))" " '#hasheqv())" "(if already?_0" "(void)" "(let-values()" "(begin" -"(let-values(((lst_9)" +"(let-values(((lst_21)" "(module-requires" -" m_19)))" +" m_20)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_9)))" -"((letrec-values(((for-loop_1)" -"(lambda(lst_21)" +" lst_21)))" +"((letrec-values(((for-loop_17)" +"(lambda(lst_225)" "(begin" " 'for-loop" "(if(pair?" -" lst_21)" +" lst_225)" "(let-values(((phase+reqs_1)" "(unsafe-car" -" lst_21))" -"((rest_162)" +" lst_225))" +"((rest_167)" "(unsafe-cdr" -" lst_21)))" +" lst_225)))" "(let-values((()" -"(let-values(((lst_22)" +"(let-values(((lst_176)" "(cdr" " phase+reqs_1)))" "(begin" @@ -42547,33 +42427,33 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_22)))" -"((letrec-values(((for-loop_180)" -"(lambda(lst_175)" +" lst_176)))" +"((letrec-values(((for-loop_29)" +"(lambda(lst_277)" "(begin" " 'for-loop" "(if(pair?" -" lst_175)" -"(let-values(((req_9)" +" lst_277)" +"(let-values(((req_5)" "(unsafe-car" -" lst_175))" -"((rest_117)" +" lst_277))" +"((rest_153)" "(unsafe-cdr" -" lst_175)))" +" lst_277)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(loop_80" +"(loop_39" "(module-path-index-shift" -" req_9" +" req_5" "(module-self" -" m_19)" +" m_20)" " mpi_45)" "(phase+" -" phase_0" +" phase_133" "(car" " phase+reqs_1))" " attach-instances?_1" @@ -42582,50 +42462,50 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_180" -" rest_117)" +"(for-loop_29" +" rest_153)" "(values))))" "(values))))))" -" for-loop_180)" -" lst_22)))))" +" for-loop_29)" +" lst_176)))))" "(if(not" " #f)" -"(for-loop_1" -" rest_162)" +"(for-loop_17" +" rest_167)" "(values))))" "(values))))))" -" for-loop_1)" -" lst_9)))" +" for-loop_17)" +" lst_21)))" "(void)" -"(let-values(((lst_176)" +"(let-values(((lst_300)" "(module-submodule-names" -" m_19)))" +" m_20)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_176)))" -"((letrec-values(((for-loop_254)" -"(lambda(lst_289)" +" lst_300)))" +"((letrec-values(((for-loop_261)" +"(lambda(lst_301)" "(begin" " 'for-loop" "(if(pair?" -" lst_289)" +" lst_301)" "(let-values(((submod-name_0)" "(unsafe-car" -" lst_289))" -"((rest_163)" +" lst_301))" +"((rest_168)" "(unsafe-cdr" -" lst_289)))" +" lst_301)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(loop_80" +"(loop_39" "(1/module-path-index-join" "(list" " 'submod" @@ -42639,17 +42519,17 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_254" -" rest_163)" +"(for-loop_261" +" rest_168)" "(values))))" "(values))))))" -" for-loop_254)" -" lst_176)))" +" for-loop_261)" +" lst_300)))" "(void)" "(if(module-supermodule-name" -" m_19)" +" m_20)" "(let-values()" -"(loop_80" +"(loop_39" "(1/module-path-index-join" " '(submod" " \"..\")" @@ -42659,15 +42539,15 @@ static const char *startup_source = " attach-phase_0))" "(void))))))))))))))" "(void)))))))))" -" loop_80)" +" loop_39)" "(1/module-path-index-join" -"(if(1/resolved-module-path? mod-path_16)" -"(resolved-module-path->module-path mod-path_16)" -" mod-path_16)" +"(if(1/resolved-module-path? mod-path_15)" +"(resolved-module-path->module-path mod-path_15)" +" mod-path_15)" " #f)" -" phase_134" +" phase_132" " attach-instances?_0" -" phase_134)" +" phase_132)" "(values))))" "(let-values((()" "(begin" @@ -42676,17 +42556,17 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_144)))" -"((letrec-values(((for-loop_255)" -"(lambda(i_169)" +"((letrec-values(((for-loop_106)" +"(lambda(i_168)" "(begin" " 'for-loop" -"(if i_169" +"(if i_168" "(let-values(((mod-name_20 phases_0)" "(hash-iterate-key+value" " ht_144" -" i_169)))" +" i_168)))" "(let-values((()" -"(let-values(((ht_24)" +"(let-values(((ht_145)" " phases_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -42694,30 +42574,30 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_24)))" -"((letrec-values(((for-loop_19)" -"(lambda(i_99)" +" ht_145)))" +"((letrec-values(((for-loop_262)" +"(lambda(i_102)" "(begin" " 'for-loop" -"(if i_99" -"(let-values(((phase_135" +"(if i_102" +"(let-values(((phase_134" " m-ns_15)" "(hash-iterate-key+value" -" ht_24" -" i_99)))" +" ht_145" +" i_102)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((m_20)" +"(let-values(((m_21)" "(namespace->module" " src-namespace_6" " mod-name_20)))" "(begin" "(module-force-bulk-binding!" -" m_20" +" m_21" " src-namespace_6)" "(with-continuation-mark" " parameterization-key" @@ -42731,7 +42611,7 @@ static const char *startup_source = "(let-values(((dest-namespace44_0)" " dest-namespace_2)" "((m45_0)" -" m_20)" +" m_21)" "((mod-name46_0)" " mod-name_20))" "(declare-module!58.1" @@ -42746,14 +42626,14 @@ static const char *startup_source = "(namespace-record-module-instance-attached!" " src-namespace_6" " mod-name_20" -" phase_135)" -"(let-values(((or-part_219)" +" phase_134)" +"(let-values(((or-part_291)" "(let-values(((dest-namespace47_0)" " dest-namespace_2)" "((mod-name48_0)" " mod-name_20)" "((phase49_2)" -" phase_135))" +" phase_134))" "(namespace->module-namespace82.1" " #f" " #f" @@ -42764,34 +42644,34 @@ static const char *startup_source = " dest-namespace47_0" " mod-name48_0" " phase49_2))))" -"(if or-part_219" -" or-part_219" +"(if or-part_291" +" or-part_291" "(namespace-install-module-namespace!" " dest-namespace_2" " mod-name_20" -" phase_135" -" m_20" +" phase_134" +" m_21" " m-ns_15)))))" "(void)))))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_19" +"(for-loop_262" "(hash-iterate-next" -" ht_24" -" i_99))" +" ht_145" +" i_102))" "(values))))" "(values))))))" -" for-loop_19)" +" for-loop_262)" "(hash-iterate-first" -" ht_24))))))" +" ht_145))))))" "(if(not #f)" -"(for-loop_255" -"(hash-iterate-next ht_144 i_169))" +"(for-loop_106" +"(hash-iterate-next ht_144 i_168))" "(values))))" "(values))))))" -" for-loop_255)" +" for-loop_106)" "(hash-iterate-first ht_144))))" "(values))))" "(let-values()" @@ -42804,18 +42684,18 @@ static const char *startup_source = " dest-namespace_2)" "(let-values()" "(begin" -"(let-values(((ht_47) todo_0))" +"(let-values(((ht_146) todo_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_47)))" -"((letrec-values(((for-loop_49)" -"(lambda(i_170)" +"(let-values()(check-in-hash-keys ht_146)))" +"((letrec-values(((for-loop_175)" +"(lambda(i_103)" "(begin" " 'for-loop" -"(if i_170" +"(if i_103" "(let-values(((mod-name_21)" -"(hash-iterate-key ht_47 i_170)))" +"(hash-iterate-key ht_146 i_103)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -42828,12 +42708,12 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_49" -"(hash-iterate-next ht_47 i_170))" +"(for-loop_175" +"(hash-iterate-next ht_146 i_103))" "(values))))" "(values))))))" -" for-loop_49)" -"(hash-iterate-first ht_47))))" +" for-loop_175)" +"(hash-iterate-first ht_146))))" "(void))))))))))))))))))))))))" "(define-values" "(1/make-empty-namespace)" @@ -42841,8 +42721,8 @@ static const char *startup_source = "(begin" " 'make-empty-namespace" "(let-values(((current-ns_0)(1/current-namespace)))" -"(let-values(((phase_40)(namespace-phase current-ns_0)))" -"(let-values(((ns_58)(namespace->namespace-at-phase(make-namespace) phase_40)))" +"(let-values(((phase_42)(namespace-phase current-ns_0)))" +"(let-values(((ns_58)(namespace->namespace-at-phase(make-namespace) phase_42)))" "(begin" "(1/namespace-attach-module current-ns_0 ''#%kernel ns_58)" "(namespace-primitive-module-visit! ns_58 '#%kernel)" @@ -42850,11 +42730,11 @@ static const char *startup_source = "(define-values" "(1/namespace-syntax-introduce)" "(let-values(((namespace-syntax-introduce4_0)" -"(lambda(s3_1 ns1_2 ns2_0)" +"(lambda(s3_2 ns1_3 ns2_0)" "(begin" " 'namespace-syntax-introduce4" -"(let-values(((s_3) s3_1))" -"(let-values(((ns_59)(if ns2_0 ns1_2(1/current-namespace))))" +"(let-values(((s_3) s3_2))" +"(let-values(((ns_59)(if ns2_0 ns1_3(1/current-namespace))))" "(let-values()" "(let-values((()" "(begin" @@ -42874,26 +42754,26 @@ static const char *startup_source = "(let-values(((post-scope_1)(root-expand-context-post-expansion-scope root-ctx_5)))" "(let-values(((other-namespace-scopes_0)" "(reverse$1" -"(let-values(((ht_80)" +"(let-values(((ht_81)" "(syntax-scope-set" "(root-expand-context-all-scopes-stx root-ctx_5)" "(namespace-phase ns_59))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_80)))" -"((letrec-values(((for-loop_243)" -"(lambda(fold-var_234 i_171)" +"(let-values()(check-in-immutable-hash-keys ht_81)))" +"((letrec-values(((for-loop_250)" +"(lambda(fold-var_239 i_169)" "(begin" " 'for-loop" -"(if i_171" +"(if i_169" "(let-values(((sc_30)" "(unsafe-immutable-hash-iterate-key" -" ht_80" -" i_171)))" +" ht_81" +" i_169)))" "(let-values(((fold-var_216)" "(let-values(((fold-var_217)" -" fold-var_234))" +" fold-var_239))" "(if(equal?" " sc_30" " post-scope_1)" @@ -42909,38 +42789,38 @@ static const char *startup_source = "(values" " fold-var_218)))))))" "(if(not #f)" -"(for-loop_243" +"(for-loop_250" " fold-var_216" "(unsafe-immutable-hash-iterate-next" -" ht_80" -" i_171))" +" ht_81" +" i_169))" " fold-var_216)))" -" fold-var_234)))))" -" for-loop_243)" +" fold-var_239)))))" +" for-loop_250)" " null" -"(unsafe-immutable-hash-iterate-first ht_80)))))))" +"(unsafe-immutable-hash-iterate-first ht_81)))))))" "(let-values(((add-ns-scopes_0)" -"(lambda(s_171)" +"(lambda(s_169)" "(begin" " 'add-ns-scopes" -"(let-values(((temp78_3)" +"(let-values(((temp78_4)" "(add-scopes" -"(push-scope s_171 post-scope_1)" +"(push-scope s_169 post-scope_1)" " other-namespace-scopes_0))" "((temp79_1)" "(root-expand-context-all-scopes-stx root-ctx_5))" "((temp80_2)" -"(let-values(((or-part_172)" +"(let-values(((or-part_74)" "(namespace-declaration-inspector" " ns_59)))" -"(if or-part_172" -" or-part_172" +"(if or-part_74" +" or-part_74" "(current-code-inspector))))" "((temp81_0) #t))" "(syntax-transfer-shifts39.1" " temp81_0" " #t" -" temp78_3" +" temp78_4" " temp79_1" " temp80_2" " #t))))))" @@ -42964,8 +42844,8 @@ static const char *startup_source = " s_3))" "(let-values()(add-ns-scopes_0 s_3)))))))))))))))))" "(case-lambda" -"((s_72)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_72 #f #f)))" -"((s_432 ns1_3)(namespace-syntax-introduce4_0 s_432 ns1_3 #t)))))" +"((s_422)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_422 #f #f)))" +"((s_423 ns1_2)(namespace-syntax-introduce4_0 s_423 ns1_2 #t)))))" "(define-values" "(1/namespace-module-identifier)" "(let-values(((namespace-module-identifier8_0)" @@ -42975,8 +42855,8 @@ static const char *startup_source = "(let-values(((where_0)(if where7_0 where6_0(1/current-namespace))))" "(let-values()" "(begin" -"(if(let-values(((or-part_76)(1/namespace? where_0)))" -"(if or-part_76 or-part_76(phase? where_0)))" +"(if(let-values(((or-part_71)(1/namespace? where_0)))" +"(if or-part_71 or-part_71(phase? where_0)))" "(void)" "(let-values()" "(raise-argument-error" @@ -42993,14 +42873,14 @@ static const char *startup_source = "((where6_1)(namespace-module-identifier8_0 where6_1 #t)))))" "(define-values" "(1/namespace-symbol->identifier)" -"(lambda(sym_69)" +"(lambda(sym_68)" "(begin" " 'namespace-symbol->identifier" "(begin" -"(if(symbol? sym_69)" +"(if(symbol? sym_68)" "(void)" -" (let-values () (raise-argument-error 'namespace-symbol->identifier \"symbol?\" sym_69)))" -"(1/namespace-syntax-introduce(1/datum->syntax #f sym_69))))))" +" (let-values () (raise-argument-error 'namespace-symbol->identifier \"symbol?\" sym_68)))" +"(1/namespace-syntax-introduce(1/datum->syntax #f sym_68))))))" "(define-values" "(do-namespace-require23.1)" "(lambda(copy-variable-as-constant?13_0" @@ -43021,8 +42901,8 @@ static const char *startup_source = "(let-values(((run?_3)(if run?15_0 run?10_0 #t)))" "(let-values(((visit?_3)(if visit?16_0 visit?11_0 #f)))" "(let-values(((who_19) who20_0))" -"(let-values(((req_10) req21_0))" -"(let-values(((ns_60) ns22_1))" +"(let-values(((req_6) req21_0))" +"(let-values(((ns_75) ns22_1))" "(let-values(((copy-variable-phase-level_2)" "(if copy-variable-phase-level17_0 copy-variable-phase-level12_0 #f)))" "(let-values(((copy-variable-as-constant?_2)" @@ -43032,29 +42912,29 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(1/namespace? ns_60)" +"(if(1/namespace? ns_75)" "(void)" -" (let-values () (raise-argument-error who_19 \"namespace?\" ns_60)))" +" (let-values () (raise-argument-error who_19 \"namespace?\" ns_75)))" "(values))))" "(let-values(((ctx-stx_0)" "(add-scopes" " empty-syntax" -"(root-expand-context-module-scopes(namespace-get-root-expand-ctx ns_60)))))" -"(if(let-values(((or-part_176)(1/module-path-index? req_10)))" -"(if or-part_176 or-part_176(1/module-path? req_10)))" +"(root-expand-context-module-scopes(namespace-get-root-expand-ctx ns_75)))))" +"(if(let-values(((or-part_168)(1/module-path-index? req_6)))" +"(if or-part_168 or-part_168(1/module-path? req_6)))" "(let-values()" "(let-values(((temp82_1)" -"(if(1/module-path-index? req_10)" -" req_10" -"(1/module-path-index-join req_10 #f)))" +"(if(1/module-path-index? req_6)" +" req_6" +"(1/module-path-index-join req_6 #f)))" "((temp83_1) #f)" "((temp84_1) #f)" "((ctx-stx85_0) ctx-stx_0)" -"((ns86_0) ns_60)" +"((ns86_0) ns_75)" "((run?87_0) run?_3)" "((visit?88_0) visit?_3)" -"((temp89_3)(namespace-phase ns_60))" -"((temp90_0)(namespace-phase ns_60))" +"((temp89_3)(namespace-phase ns_75))" +"((temp90_0)(namespace-phase ns_75))" "((copy-variable-phase-level91_0) copy-variable-phase-level_2)" "((copy-variable-as-constant?92_0) copy-variable-as-constant?_2)" "((skip-variable-phase-level93_0) skip-variable-phase-level_2)" @@ -43093,10 +42973,10 @@ static const char *startup_source = "(let-values()" "(let-values(((run?95_0) run?_3)" "((visit?96_0) visit?_3)" -"((temp97_2)(list(1/datum->syntax ctx-stx_0 req_10)))" +"((temp97_2)(list(1/datum->syntax ctx-stx_0 req_6)))" "((temp98_2) #f)" -"((ns99_0) ns_60)" -"((temp100_1)(namespace-phase ns_60))" +"((ns99_0) ns_75)" +"((temp100_1)(namespace-phase ns_75))" "((temp101_0)" "(let-values(((temp104_0) #f))" "(make-requires+provides8.1 #f #f temp104_0)))" @@ -43133,28 +43013,28 @@ static const char *startup_source = "(lambda(req28_0 ns26_0 ns27_0)" "(begin" " 'namespace-require29" -"(let-values(((req_11) req28_0))" -"(let-values(((ns_75)(if ns27_0 ns26_0(1/current-namespace))))" +"(let-values(((req_7) req28_0))" +"(let-values(((ns_76)(if ns27_0 ns26_0(1/current-namespace))))" "(let-values()" -"(let-values(((temp105_1) 'namespace-require)((req106_0) req_11)((ns107_0) ns_75))" +"(let-values(((temp105_1) 'namespace-require)((req106_0) req_7)((ns107_0) ns_76))" "(do-namespace-require23.1 #f #f #f #f #f #f #f #f #f #f temp105_1 req106_0 ns107_0)))))))))" "(case-lambda" -"((req_12)(begin 'namespace-require(namespace-require29_0 req_12 #f #f)))" -"((req_13 ns26_1)(namespace-require29_0 req_13 ns26_1 #t)))))" +"((req_8)(begin 'namespace-require(namespace-require29_0 req_8 #f #f)))" +"((req_9 ns26_1)(namespace-require29_0 req_9 ns26_1 #t)))))" "(define-values" "(1/namespace-require/expansion-time)" "(let-values(((namespace-require/expansion-time34_0)" -"(lambda(req33_0 ns31_0 ns32_0)" +"(lambda(req33_0 ns31_1 ns32_0)" "(begin" " 'namespace-require/expansion-time34" -"(let-values(((req_14) req33_0))" -"(let-values(((ns_76)(if ns32_0 ns31_0(1/current-namespace))))" +"(let-values(((req_10) req33_0))" +"(let-values(((ns_77)(if ns32_0 ns31_1(1/current-namespace))))" "(let-values()" "(let-values(((temp108_1) #f)" "((temp109_1) #t)" "((temp110_2) 'namespace-require/expansion-time)" -"((req111_0) req_14)" -"((ns112_0) ns_76))" +"((req111_0) req_10)" +"((ns112_0) ns_77))" "(do-namespace-require23.1" " #f" " #f" @@ -43170,20 +43050,20 @@ static const char *startup_source = " req111_0" " ns112_0)))))))))" "(case-lambda" -"((req_15)(begin 'namespace-require/expansion-time(namespace-require/expansion-time34_0 req_15 #f #f)))" -"((req_16 ns31_1)(namespace-require/expansion-time34_0 req_16 ns31_1 #t)))))" +"((req_11)(begin 'namespace-require/expansion-time(namespace-require/expansion-time34_0 req_11 #f #f)))" +"((req_12 ns31_2)(namespace-require/expansion-time34_0 req_12 ns31_2 #t)))))" "(define-values" "(1/namespace-require/constant)" "(let-values(((namespace-require/constant39_0)" "(lambda(req38_0 ns36_0 ns37_0)" "(begin" " 'namespace-require/constant39" -"(let-values(((req_17) req38_0))" -"(let-values(((ns_77)(if ns37_0 ns36_0(1/current-namespace))))" +"(let-values(((req_13) req38_0))" +"(let-values(((ns_78)(if ns37_0 ns36_0(1/current-namespace))))" "(let-values()" "(let-values(((temp113_0) 'namespace-require/constant)" -"((req114_0) req_17)" -"((ns115_0) ns_77)" +"((req114_0) req_13)" +"((ns115_0) ns_78)" "((temp116_1) 0)" "((temp117_2) #t))" "(do-namespace-require23.1" @@ -43201,20 +43081,20 @@ static const char *startup_source = " req114_0" " ns115_0)))))))))" "(case-lambda" -"((req_18)(begin 'namespace-require/constant(namespace-require/constant39_0 req_18 #f #f)))" -"((req_19 ns36_1)(namespace-require/constant39_0 req_19 ns36_1 #t)))))" +"((req_14)(begin 'namespace-require/constant(namespace-require/constant39_0 req_14 #f #f)))" +"((req_15 ns36_1)(namespace-require/constant39_0 req_15 ns36_1 #t)))))" "(define-values" "(1/namespace-require/copy)" "(let-values(((namespace-require/copy44_0)" "(lambda(req43_0 ns41_0 ns42_0)" "(begin" " 'namespace-require/copy44" -"(let-values(((req_20) req43_0))" -"(let-values(((ns_78)(if ns42_0 ns41_0(1/current-namespace))))" +"(let-values(((req_16) req43_0))" +"(let-values(((ns_79)(if ns42_0 ns41_0(1/current-namespace))))" "(let-values()" "(let-values(((temp118_2) 'namespace-require/copy)" -"((req119_0) req_20)" -"((ns120_0) ns_78)" +"((req119_0) req_16)" +"((ns120_0) ns_79)" "((temp121_2) 0)" "((temp122_1) 0))" "(do-namespace-require23.1" @@ -43232,26 +43112,26 @@ static const char *startup_source = " req119_0" " ns120_0)))))))))" "(case-lambda" -"((req_21)(begin 'namespace-require/copy(namespace-require/copy44_0 req_21 #f #f)))" -"((req_22 ns41_1)(namespace-require/copy44_0 req_22 ns41_1 #t)))))" +"((req_17)(begin 'namespace-require/copy(namespace-require/copy44_0 req_17 #f #f)))" +"((req_18 ns41_1)(namespace-require/copy44_0 req_18 ns41_1 #t)))))" "(define-values" "(1/namespace-variable-value)" "(let-values(((namespace-variable-value53_0)" "(lambda(sym52_0 use-mapping?46_0 failure-thunk47_0 ns48_0 use-mapping?49_0 failure-thunk50_0 ns51_0)" "(begin" " 'namespace-variable-value53" -"(let-values(((sym_52) sym52_0))" +"(let-values(((sym_69) sym52_0))" "(let-values(((use-mapping?_0)(if use-mapping?49_0 use-mapping?46_0 #t)))" "(let-values(((failure-thunk_5)(if failure-thunk50_0 failure-thunk47_0 #f)))" -"(let-values(((ns_10)(if ns51_0 ns48_0(1/current-namespace))))" +"(let-values(((ns_80)(if ns51_0 ns48_0(1/current-namespace))))" "(let-values()" "(begin" -"(if(symbol? sym_52)" +"(if(symbol? sym_69)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_52)))" -"(if(let-values(((or-part_109)(not failure-thunk_5)))" -"(if or-part_109" -" or-part_109" +" (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_69)))" +"(if(let-values(((or-part_215)(not failure-thunk_5)))" +"(if or-part_215" +" or-part_215" "(if(procedure? failure-thunk_5)" "(procedure-arity-includes? failure-thunk_5 0)" " #f)))" @@ -43261,40 +43141,40 @@ static const char *startup_source = " 'namespace-variable-value" " \"(or/c #f (procedure-arity-includes/c 0))\"" " failure-thunk_5)))" -"(if(1/namespace? ns_10)" +"(if(1/namespace? ns_80)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_10)))" +" (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_80)))" "((call/ec" "(lambda(escape_0)" "(let-values(((var-ns_0 var-phase-level_0 var-sym_6)" "(if use-mapping?_0" "(let-values()" -"(let-values(((id_97)(1/datum->syntax #f sym_52)))" -"(let-values(((b_89)" +"(let-values(((id_105)(1/datum->syntax #f sym_69)))" +"(let-values(((b_87)" "(resolve+shift/extra-inspector" -"(1/namespace-syntax-introduce id_97 ns_10)" -"(namespace-phase ns_10)" -" ns_10)))" +"(1/namespace-syntax-introduce id_105 ns_80)" +"(namespace-phase ns_80)" +" ns_80)))" "(let-values((()" "(begin" -"(if b_89" +"(if b_87" "(let-values()" "(namespace-visit-available-modules!" -" ns_10))" +" ns_80))" "(void))" "(values))))" -"(let-values(((v_191" +"(let-values(((v_194" " primitive?_8" " extra-inspector_8" " protected?_9)" -"(if b_89" -"(let-values(((b123_0) b_89)" +"(if b_87" +"(let-values(((b123_0) b_87)" "((empty-env124_0) empty-env)" "((null125_0) null)" -"((ns126_0) ns_10)" +"((ns126_0) ns_80)" "((temp127_1)" -"(namespace-phase ns_10))" -"((id128_0) id_97))" +"(namespace-phase ns_80))" +"((id128_0) id_105))" "(binding-lookup48.1" " #f" " #f" @@ -43308,13 +43188,13 @@ static const char *startup_source = " id128_0))" "(values variable #f #f))))" "(begin" -"(if(variable? v_191)" +"(if(variable? v_194)" "(void)" "(let-values()" "(escape_0" -"(let-values(((or-part_291) failure-thunk_5))" -"(if or-part_291" -" or-part_291" +"(let-values(((or-part_292) failure-thunk_5))" +"(if or-part_292" +" or-part_292" "(lambda()" "(raise" "(make-exn:fail:syntax$1" @@ -43322,44 +43202,44 @@ static const char *startup_source = "(string-append" " \"namespace-variable-value: bound to syntax\\n\"" " \" in: ~s\")" -" sym_52)" +" sym_69)" "(current-continuation-marks)" " null))))))))" -"(if(module-binding? b_89)" +"(if(module-binding? b_87)" "(values" "(if(top-level-module-path-index?" -"(module-binding-module b_89))" -" ns_10" +"(module-binding-module b_87))" +" ns_80" "(module-instance-namespace" "(binding->module-instance" -" b_89" -" ns_10" -"(namespace-phase ns_10)" -" id_97)))" -"(module-binding-phase b_89)" -"(module-binding-sym b_89))" -"(values ns_10(namespace-phase ns_10) sym_52))))))))" -"(let-values()(values ns_10(namespace-phase ns_10) sym_52)))))" -"(let-values(((val_10)" +" b_87" +" ns_80" +"(namespace-phase ns_80)" +" id_105)))" +"(module-binding-phase b_87)" +"(module-binding-sym b_87))" +"(values ns_80(namespace-phase ns_80) sym_69))))))))" +"(let-values()(values ns_80(namespace-phase ns_80) sym_69)))))" +"(let-values(((val_67)" "(namespace-get-variable" " var-ns_0" " var-phase-level_0" " var-sym_6" "(lambda()" "(escape_0" -"(let-values(((or-part_292) failure-thunk_5))" -"(if or-part_292" -" or-part_292" +"(let-values(((or-part_293) failure-thunk_5))" +"(if or-part_293" +" or-part_293" "(raise" "(exn:fail:contract:variable" "(format" "(string-append" " \"namespace-variable-value: given name is not defined\\n\"" " \" name: ~s\")" -" sym_52)" +" sym_69)" "(current-continuation-marks)" -" sym_52)))))))))" -"(lambda() val_10))))))))))))))))" +" sym_69)))))))))" +"(lambda() val_67))))))))))))))))" "(case-lambda" "((sym_70)(begin 'namespace-variable-value(namespace-variable-value53_0 sym_70 #f #f #f #f #f #f)))" "((sym_71 use-mapping?_1 failure-thunk_6 ns48_1)" @@ -43374,33 +43254,33 @@ static const char *startup_source = "(begin" " 'namespace-set-variable-value!63" "(let-values(((sym_74) sym61_0))" -"(let-values(((val_12) val62_0))" +"(let-values(((val_68) val62_0))" "(let-values(((map?_0)(if map?58_0 map?55_0 #f)))" -"(let-values(((ns_79)(if ns59_0 ns56_0(1/current-namespace))))" +"(let-values(((ns_81)(if ns59_0 ns56_0(1/current-namespace))))" "(let-values(((as-constant?_2)(if as-constant?60_0 as-constant?57_0 #f)))" "(let-values()" "(begin" "(if(symbol? sym_74)" "(void)" " (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_74)))" -"(if(1/namespace? ns_79)" +"(if(1/namespace? ns_81)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_79)))" -"(namespace-set-variable! ns_79(namespace-phase ns_79) sym_74 val_12 as-constant?_2)" +" (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_81)))" +"(namespace-set-variable! ns_81(namespace-phase ns_81) sym_74 val_68 as-constant?_2)" "(if map?_0" "(let-values()" "(let-values((()" "(begin" "(namespace-unset-transformer!" -" ns_79" -"(namespace-phase ns_79)" +" ns_81" +"(namespace-phase ns_81)" " sym_74)" "(values))))" -"(let-values(((id_98)(1/datum->syntax #f sym_74)))" -"(let-values(((temp129_1)(1/namespace-syntax-introduce id_98 ns_79))" +"(let-values(((id_106)(1/datum->syntax #f sym_74)))" +"(let-values(((temp129_1)(1/namespace-syntax-introduce id_106 ns_81))" "((temp130_1)" -"(let-values(((temp132_1)(namespace-mpi ns_79))" -"((temp133_1)(namespace-phase ns_79))" +"(let-values(((temp132_1)(namespace-mpi ns_81))" +"((temp133_1)(namespace-phase ns_81))" "((sym134_0) sym_74))" "(make-module-binding22.1" " #f" @@ -43424,16 +43304,16 @@ static const char *startup_source = " temp132_1" " temp133_1" " sym134_0)))" -"((temp131_0)(namespace-phase ns_79)))" +"((temp131_0)(namespace-phase ns_81)))" "(add-binding!17.1 #f #f #f #f temp129_1 temp130_1 temp131_0)))))" "(void)))))))))))))" "(case-lambda" "((sym_75 val_69)" "(begin 'namespace-set-variable-value!(namespace-set-variable-value!63_0 sym_75 val_69 #f #f #f #f #f #f)))" -"((sym_76 val_70 map?_1 ns_80 as-constant?57_1)" -"(namespace-set-variable-value!63_0 sym_76 val_70 map?_1 ns_80 as-constant?57_1 #t #t #t))" -"((sym_77 val_71 map?_2 ns56_1)(namespace-set-variable-value!63_0 sym_77 val_71 map?_2 ns56_1 #f #t #t #f))" -"((sym_78 val_72 map?55_1)(namespace-set-variable-value!63_0 sym_78 val_72 map?55_1 #f #f #t #f #f)))))" +"((sym_76 val_49 map?_1 ns_82 as-constant?57_1)" +"(namespace-set-variable-value!63_0 sym_76 val_49 map?_1 ns_82 as-constant?57_1 #t #t #t))" +"((sym_77 val_70 map?_2 ns56_1)(namespace-set-variable-value!63_0 sym_77 val_70 map?_2 ns56_1 #f #t #t #f))" +"((sym_78 val_71 map?55_1)(namespace-set-variable-value!63_0 sym_78 val_71 map?55_1 #f #f #t #f #f)))))" "(define-values" "(1/namespace-undefine-variable!)" "(let-values(((namespace-undefine-variable!68_0)" @@ -43441,16 +43321,16 @@ static const char *startup_source = "(begin" " 'namespace-undefine-variable!68" "(let-values(((sym_79) sym67_0))" -"(let-values(((ns_81)(if ns66_0 ns65_0(1/current-namespace))))" +"(let-values(((ns_83)(if ns66_0 ns65_0(1/current-namespace))))" "(let-values()" "(begin" "(if(symbol? sym_79)" "(void)" " (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_79)))" -"(if(1/namespace? ns_81)" +"(if(1/namespace? ns_83)" "(void)" -" (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_81)))" -"(namespace-unset-variable! ns_81(namespace-phase ns_81) sym_79)))))))))" +" (let-values () (raise-argument-error 'namespace-variable-value \"namespace?\" ns_83)))" +"(namespace-unset-variable! ns_83(namespace-phase ns_83) sym_79)))))))))" "(case-lambda" "((sym_80)(begin 'namespace-undefine-variable!(namespace-undefine-variable!68_0 sym_80 #f #f)))" "((sym_81 ns65_1)(namespace-undefine-variable!68_0 sym_81 ns65_1 #t)))))" @@ -43460,18 +43340,18 @@ static const char *startup_source = "(lambda(ns70_0 ns71_0)" "(begin" " 'namespace-mapped-symbols72" -"(let-values(((ns_82)(if ns71_0 ns70_0(1/current-namespace))))" +"(let-values(((ns_84)(if ns71_0 ns70_0(1/current-namespace))))" "(let-values()" "(begin" -"(if(1/namespace? ns_82)" +"(if(1/namespace? ns_84)" "(void)" -" (let-values () (raise-argument-error 'namespace-mapped-symbols \"namespace?\" ns_82)))" +" (let-values () (raise-argument-error 'namespace-mapped-symbols \"namespace?\" ns_84)))" "(set->list" "(set-union" "(syntax-mapped-names" -"(root-expand-context-all-scopes-stx(namespace-get-root-expand-ctx ns_82))" -"(namespace-phase ns_82))" -"(list->set(1/instance-variable-names(namespace->instance ns_82 0))))))))))))" +"(root-expand-context-all-scopes-stx(namespace-get-root-expand-ctx ns_84))" +"(namespace-phase ns_84))" +"(list->set(1/instance-variable-names(namespace->instance ns_84 0))))))))))))" "(case-lambda" "(()(begin 'namespace-mapped-symbols(namespace-mapped-symbols72_0 #f #f)))" "((ns70_1)(namespace-mapped-symbols72_0 ns70_1 #t)))))" @@ -43481,47 +43361,49 @@ static const char *startup_source = "(lambda(ns74_0 ns75_0)" "(begin" " 'namespace-base-phase76" -"(let-values(((ns_83)(if ns75_0 ns74_0(1/current-namespace))))" +"(let-values(((ns_85)(if ns75_0 ns74_0(1/current-namespace))))" "(let-values()" "(begin" -"(if(1/namespace? ns_83)" +"(if(1/namespace? ns_85)" "(void)" -" (let-values () (raise-argument-error 'namespace-base-phase \"namespace?\" ns_83)))" -"(namespace-phase ns_83))))))))" +" (let-values () (raise-argument-error 'namespace-base-phase \"namespace?\" ns_85)))" +"(namespace-phase ns_85))))))))" "(case-lambda" "(()(begin 'namespace-base-phase(namespace-base-phase76_0 #f #f)))" "((ns74_1)(namespace-base-phase76_0 ns74_1 #t)))))" "(define-values" "(1/eval)" "(let-values(((eval6_0)" -"(lambda(s5_1 ns1_4 compile2_0 ns3_0 compile4_0)" +"(lambda(s5_2 ns1_4 compile2_0 ns3_0 compile4_0)" "(begin" " 'eval6" -"(let-values(((s_146) s5_1))" -"(let-values(((ns_42)(if ns3_0 ns1_4(1/current-namespace))))" +"(let-values(((s_144) s5_2))" +"(let-values(((ns_43)(if ns3_0 ns1_4(1/current-namespace))))" "(let-values(((compile_1)" "(if compile4_0" " compile2_0" -"(lambda(s_415 ns_66)(begin 'compile(1/compile s_415 ns_66 #f))))))" +"(lambda(s_424 ns_86)(begin 'compile(1/compile s_424 ns_86 #f))))))" "(let-values()" -"(if(let-values(((or-part_293)(compiled-in-memory? s_146)))" -"(if or-part_293" -" or-part_293" -"(let-values(((or-part_294)(1/linklet-directory? s_146)))" -"(if or-part_294 or-part_294(1/linklet-bundle? s_146)))))" -"(let-values()(eval-compiled s_146 ns_42))" -"(if(if(syntax?$1 s_146)" -"(let-values(((or-part_295)(compiled-in-memory?(1/syntax-e s_146))))" -"(if or-part_295" -" or-part_295" -"(let-values(((or-part_296)(1/linklet-directory?(1/syntax-e s_146))))" -"(if or-part_296 or-part_296(1/linklet-bundle?(1/syntax-e s_146))))))" +"(if(let-values(((or-part_294)(compiled-in-memory? s_144)))" +"(if or-part_294" +" or-part_294" +"(let-values(((or-part_295)(1/linklet-directory? s_144)))" +"(if or-part_295 or-part_295(1/linklet-bundle? s_144)))))" +"(let-values()(eval-compiled s_144 ns_43))" +"(if(if(syntax?$1 s_144)" +"(let-values(((or-part_296)(compiled-in-memory?(1/syntax-e s_144))))" +"(if or-part_296" +" or-part_296" +"(let-values(((or-part_297)(1/linklet-directory?(1/syntax-e s_144))))" +"(if or-part_297 or-part_297(1/linklet-bundle?(1/syntax-e s_144))))))" " #f)" -"(let-values()(eval-compiled(1/syntax->datum s_146) ns_42))" +"(let-values()(eval-compiled(1/syntax->datum s_144) ns_43))" "(let-values()" -"(let-values(((temp82_2)" -"(lambda(s_172 ns_84 tail?_52)" -"(eval-compiled(compile_1 s_172 ns_84) ns_84 tail?_52)))" +"(let-values(((s80_0) s_144)" +"((ns81_0) ns_43)" +"((temp82_2)" +"(lambda(s_422 ns_87 tail?_1)" +"(eval-compiled(compile_1 s_422 ns_87) ns_87 tail?_1)))" "((temp83_2) #f))" "(per-top-level68.1" " #f" @@ -43536,12 +43418,12 @@ static const char *startup_source = " temp82_2" " #f" " #f" -" s_146" -" ns_42)))))))))))))" +" s80_0" +" ns81_0)))))))))))))" "(case-lambda" -"((s_432)(begin 'eval(eval6_0 s_432 #f #f #f #f)))" -"((s_433 ns_45 compile2_1)(eval6_0 s_433 ns_45 compile2_1 #t #t))" -"((s_173 ns1_5)(eval6_0 s_173 ns1_5 #f #t #f)))))" +"((s_41)(begin 'eval(eval6_0 s_41 #f #f #f #f)))" +"((s_171 ns_52 compile2_1)(eval6_0 s_171 ns_52 compile2_1 #t #t))" +"((s_159 ns1_5)(eval6_0 s_159 ns1_5 #f #t #f)))))" "(define-values" "(eval-compiled)" "(let-values(((eval-compiled12_0)" @@ -43549,16 +43431,17 @@ static const char *startup_source = "(begin" " 'eval-compiled12" "(let-values(((c_52) c10_0))" -"(let-values(((ns_85) ns11_0))" +"(let-values(((ns_88) ns11_0))" "(let-values(((as-tail?_3)(if as-tail?9_0 as-tail?8_0 #t)))" "(let-values()" "(if(1/compiled-module-expression? c_52)" "(let-values()" -"(let-values(((ns85_0) ns_85))(eval-module8.1 ns85_0 #t #f #f #f #f c_52)))" -"(let-values()(eval-top c_52 ns_85 eval-compiled as-tail?_3)))))))))))" +"(let-values(((c84_0) c_52)((ns85_0) ns_88))" +"(eval-module8.1 ns85_0 #t #f #f #f #f c84_0)))" +"(let-values()(eval-top c_52 ns_88 eval-compiled as-tail?_3)))))))))))" "(case-lambda" -"((c_39 ns_86)(begin(eval-compiled12_0 c_39 ns_86 #f #f)))" -"((c_40 ns_87 as-tail?8_1)(eval-compiled12_0 c_40 ns_87 as-tail?8_1 #t)))))" +"((c_41 ns_89)(begin(eval-compiled12_0 c_41 ns_89 #f #f)))" +"((c_42 ns_90 as-tail?8_1)(eval-compiled12_0 c_42 ns_90 as-tail?8_1 #t)))))" "(define-values" "(1/compile)" "(let-values(((compile23_0)" @@ -43567,32 +43450,34 @@ static const char *startup_source = " serializable?15_0" " expand16_0" " to-source?17_0" -" ns18_0" +" ns18_1" " serializable?19_0" " expand20_0" " to-source?21_1)" "(begin" " 'compile23" -"(let-values(((s_161) s22_1))" -"(let-values(((ns_88)(if ns18_0 ns14_2(1/current-namespace))))" +"(let-values(((s_176) s22_1))" +"(let-values(((ns_91)(if ns18_1 ns14_2(1/current-namespace))))" "(let-values(((serializable?_4)(if serializable?19_0 serializable?15_0 #t)))" "(let-values(((expand_0)(if expand20_0 expand16_0 expand$1)))" "(let-values(((to-source?_5)(if to-source?21_1 to-source?17_0 #f)))" "(let-values()" "(let-values(((cs_0)" -"(if(1/compiled-expression? s_161)" -"(let-values()(list s_161))" -"(if(if(syntax?$1 s_161)" -"(1/compiled-expression?(1/syntax-e s_161))" +"(if(1/compiled-expression? s_176)" +"(let-values()(list s_176))" +"(if(if(syntax?$1 s_176)" +"(1/compiled-expression?(1/syntax-e s_176))" " #f)" -"(let-values()(list(1/syntax-e s_161)))" +"(let-values()(list(1/syntax-e s_176)))" "(let-values()" -"(let-values(((temp88_2)" -"(lambda(s_434 ns_46 as-tail?_4)" +"(let-values(((s86_0) s_176)" +"((ns87_0) ns_91)" +"((temp88_2)" +"(lambda(s_12 ns_48 as-tail?_4)" "(list" "(compile-single$1" -" s_434" -" ns_46" +" s_12" +" ns_48" " expand_0" " serializable?_4" " to-source?_5))))" @@ -43611,13 +43496,14 @@ static const char *startup_source = " temp88_2" " #f" " #f" -" s_161" -" ns_88)))))))" +" s86_0" +" ns87_0)))))))" "(if(if(= 1(length cs_0))(not(compiled-multiple-top?(car cs_0))) #f)" "(car cs_0)" -"(let-values(((to-source?92_0) to-source?_5)" +"(let-values(((cs91_0) cs_0)" +"((to-source?92_0) to-source?_5)" "((serializable?93_0) serializable?_4)" -"((ns94_0) ns_88))" +"((ns94_0) ns_91))" "(compiled-tops->compiled-top8.1" " serializable?93_0" " #t" @@ -43625,26 +43511,26 @@ static const char *startup_source = " #t" " to-source?92_0" " #t" -" cs_0))))))))))))))" +" cs91_0))))))))))))))" "(case-lambda" -"((s_435)(begin 'compile(compile23_0 s_435 #f #f #f #f #f #f #f #f)))" -"((s_436 ns_48 serializable?_5 expand_1 to-source?17_1)" -"(compile23_0 s_436 ns_48 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" -"((s_149 ns_89 serializable?_6 expand16_1)(compile23_0 s_149 ns_89 serializable?_6 expand16_1 #f #t #t #t #f))" -"((s_185 ns_90 serializable?15_1)(compile23_0 s_185 ns_90 serializable?15_1 #f #f #t #t #f #f))" -"((s_17 ns14_3)(compile23_0 s_17 ns14_3 #f #f #f #t #f #f #f)))))" +"((s_183)(begin 'compile(compile23_0 s_183 #f #f #f #f #f #f #f #f)))" +"((s_425 ns_92 serializable?_5 expand_1 to-source?17_1)" +"(compile23_0 s_425 ns_92 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" +"((s_20 ns_93 serializable?_6 expand16_1)(compile23_0 s_20 ns_93 serializable?_6 expand16_1 #f #t #t #t #f))" +"((s_23 ns_94 serializable?15_1)(compile23_0 s_23 ns_94 serializable?15_1 #f #f #t #t #f #f))" +"((s_426 ns14_3)(compile23_0 s_426 ns14_3 #f #f #f #t #f #f #f)))))" "(define-values" "(compile-to-linklets)" "(let-values(((compile-to-linklets28_0)" "(lambda(s27_0 ns25_0 ns26_2)" "(begin" " 'compile-to-linklets28" -"(let-values(((s_22) s27_0))" -"(let-values(((ns_62)(if ns26_2 ns25_0(1/current-namespace))))" -"(let-values()(1/compile s_22 ns_62 #t expand$1 #t))))))))" +"(let-values(((s_405) s27_0))" +"(let-values(((ns_95)(if ns26_2 ns25_0(1/current-namespace))))" +"(let-values()(1/compile s_405 ns_95 #t expand$1 #t))))))))" "(case-lambda" -"((s_437)(begin(compile-to-linklets28_0 s_437 #f #f)))" -"((s_24 ns25_1)(compile-to-linklets28_0 s_24 ns25_1 #t)))))" +"((s_427)(begin(compile-to-linklets28_0 s_427 #f #f)))" +"((s_302 ns25_1)(compile-to-linklets28_0 s_302 ns25_1 #t)))))" "(define-values" "(struct:lifted-parsed-begin" " lifted-parsed-begin30.1" @@ -43674,18 +43560,19 @@ static const char *startup_source = "(make-struct-field-accessor -ref_73 1 'last))))" "(define-values" "(compile-single$1)" -"(lambda(s_438 ns_91 expand_2 serializable?_7 to-source?_6)" +"(lambda(s_29 ns_96 expand_2 serializable?_7 to-source?_6)" "(begin" " 'compile-single" -"(let-values(((exp-s_4)(expand_2 s_438 ns_91 #f #t serializable?_7)))" -"((letrec-values(((loop_100)" +"(let-values(((exp-s_4)(expand_2 s_29 ns_96 #f #t serializable?_7)))" +"((letrec-values(((loop_96)" "(lambda(exp-s_5)" "(begin" " 'loop" "(if(parsed-module? exp-s_5)" "(let-values()" -"(let-values(((temp97_3)" -"(let-values(((ns100_0) ns_91))" +"(let-values(((exp-s96_0) exp-s_5)" +"((temp97_3)" +"(let-values(((ns100_0) ns_96))" "(make-compile-context14.1 #f #f #f #f #f #f ns100_0 #t #f #f #f #f)))" "((serializable?98_0) serializable?_7)" "((to-source?99_0) to-source?_6))" @@ -43700,53 +43587,54 @@ static const char *startup_source = " #t" " to-source?99_0" " #t" -" exp-s_5" +" exp-s96_0" " temp97_3)))" "(if(lifted-parsed-begin? exp-s_5)" "(let-values()" "(let-values(((temp101_1)" "(reverse$1" -"(let-values(((lst_164)" +"(let-values(((lst_100)" "(append" "(lifted-parsed-begin-seq exp-s_5)" "(list(lifted-parsed-begin-last exp-s_5)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_164)))" -"((letrec-values(((for-loop_184)" -"(lambda(fold-var_257 lst_181)" +"(let-values()(check-list lst_100)))" +"((letrec-values(((for-loop_6)" +"(lambda(fold-var_0 lst_101)" "(begin" " 'for-loop" -"(if(pair? lst_181)" -"(let-values(((e_72)" -"(unsafe-car lst_181))" -"((rest_95)" -"(unsafe-cdr lst_181)))" -"(let-values(((fold-var_160)" -"(let-values(((fold-var_161)" -" fold-var_257))" -"(let-values(((fold-var_258)" +"(if(pair? lst_101)" +"(let-values(((e_75)" +"(unsafe-car lst_101))" +"((rest_48)" +"(unsafe-cdr lst_101)))" +"(let-values(((fold-var_2)" +"(let-values(((fold-var_3)" +" fold-var_0))" +"(let-values(((fold-var_89)" "(let-values()" "(cons" "(let-values()" -"(loop_100" -" e_72))" -" fold-var_161))))" +"(loop_96" +" e_75))" +" fold-var_3))))" "(values" -" fold-var_258)))))" +" fold-var_89)))))" "(if(not #f)" -"(for-loop_184 fold-var_160 rest_95)" -" fold-var_160)))" -" fold-var_257)))))" -" for-loop_184)" +"(for-loop_6 fold-var_2 rest_48)" +" fold-var_2)))" +" fold-var_0)))))" +" for-loop_6)" " null" -" lst_164)))))" +" lst_100)))))" "((to-source?102_0) to-source?_6))" "(compiled-tops->compiled-top8.1 #f #f #f #f to-source?102_0 #t temp101_1)))" "(let-values()" -"(let-values(((temp104_1)" -"(let-values(((ns107_1) ns_91))" +"(let-values(((exp-s103_0) exp-s_5)" +"((temp104_1)" +"(let-values(((ns107_1) ns_96))" "(make-compile-context14.1" " #f" " #f" @@ -43769,15 +43657,15 @@ static const char *startup_source = " #f" " to-source?106_0" " #t" -" exp-s_5" +" exp-s103_0" " temp104_1)))))))))" -" loop_100)" +" loop_96)" " exp-s_4)))))" "(define-values" "(expand$1)" "(let-values(((expand40_0)" "(lambda(s39_0" -" ns31_2" +" ns31_3" " observable?32_0" " to-parsed?33_0" " serializable?34_0" @@ -43787,8 +43675,8 @@ static const char *startup_source = " serializable?38_0)" "(begin" " 'expand40" -"(let-values(((s_50) s39_0))" -"(let-values(((ns_5)(if ns35_0 ns31_2(1/current-namespace))))" +"(let-values(((s_428) s39_0))" +"(let-values(((ns_79)(if ns35_0 ns31_3(1/current-namespace))))" "(let-values(((observable?_0)(if observable?36_0 observable?32_0 #f)))" "(let-values(((to-parsed?_2)(if to-parsed?37_0 to-parsed?33_0 #f)))" "(let-values(((serializable?_8)(if serializable?38_0 serializable?34_0 #f)))" @@ -43803,11 +43691,13 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((temp110_3)" -"(lambda(s_52 ns_92 as-tail?_5)" +"(let-values(((s108_0) s_428)" +"((ns109_1) ns_79)" +"((temp110_3)" +"(lambda(s_429 ns_97 as-tail?_5)" "(expand-single" -" s_52" -" ns_92" +" s_429" +" ns_97" " observer_2" " to-parsed?_2" " serializable?_8)))" @@ -43827,51 +43717,62 @@ static const char *startup_source = " temp110_3" " re-pair112_0" " #t" -" s_50" -" ns_5))))))))))))))))" +" s108_0" +" ns109_1))))))))))))))))" "(case-lambda" -"((s_439)(begin 'expand(expand40_0 s_439 #f #f #f #f #f #f #f #f)))" -"((s_440 ns_93 observable?_1 to-parsed?_3 serializable?34_1)" -"(expand40_0 s_440 ns_93 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" -"((s_441 ns_94 observable?_2 to-parsed?33_1)(expand40_0 s_441 ns_94 observable?_2 to-parsed?33_1 #f #t #t #t #f))" -"((s_317 ns_95 observable?32_1)(expand40_0 s_317 ns_95 observable?32_1 #f #f #t #t #f #f))" -"((s_442 ns31_3)(expand40_0 s_442 ns31_3 #f #f #f #t #f #f #f)))))" +"((s_301)(begin 'expand(expand40_0 s_301 #f #f #f #f #f #f #f #f)))" +"((s_430 ns_98 observable?_1 to-parsed?_3 serializable?34_1)" +"(expand40_0 s_430 ns_98 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" +"((s_431 ns_99 observable?_2 to-parsed?33_1)(expand40_0 s_431 ns_99 observable?_2 to-parsed?33_1 #f #t #t #t #f))" +"((s_34 ns_100 observable?32_1)(expand40_0 s_34 ns_100 observable?32_1 #f #f #t #t #f #f))" +"((s_385 ns31_4)(expand40_0 s_385 ns31_4 #f #f #f #t #f #f #f)))))" "(define-values" "(expand-single)" -"(lambda(s_443 ns_96 observer_3 to-parsed?_4 serializable?_9)" +"(lambda(s_432 ns_101 observer_3 to-parsed?_4 serializable?_9)" "(begin" -"(let-values(((rebuild-s_2)(keep-properties-only s_443)))" -"(let-values(((ctx_65)" -"(let-values(((to-parsed?115_0) to-parsed?_4)" +"(let-values(((rebuild-s_2)(keep-properties-only s_432)))" +"(let-values(((ctx_67)" +"(let-values(((ns114_0) ns_101)" +"((to-parsed?115_0) to-parsed?_4)" "((serializable?116_0) serializable?_9)" "((observer117_0) observer_3))" -"(make-expand-context10.1 serializable?116_0 #t observer117_0 #t to-parsed?115_0 #t ns_96))))" -"(let-values(((require-lifts_3 lifts_10 exp-s_6)(expand-capturing-lifts s_443 ctx_65)))" +"(make-expand-context10.1 serializable?116_0 #t observer117_0 #t to-parsed?115_0 #t ns114_0))))" +"(let-values(((require-lifts_3 lifts_10 exp-s_6)(expand-capturing-lifts s_432 ctx_67)))" "(if(if(null? require-lifts_3)(null? lifts_10) #f)" "(let-values() exp-s_6)" "(if to-parsed?_4" "(let-values()" -"(let-values(((temp122_2)" -"(lambda(form_0)(expand-single form_0 ns_96 observer_3 to-parsed?_4 serializable?_9))))" -"(wrap-lifts-as-lifted-parsed-begin77.1 temp122_2 require-lifts_3 lifts_10 exp-s_6 rebuild-s_2)))" +"(let-values(((require-lifts118_0) require-lifts_3)" +"((lifts119_0) lifts_10)" +"((exp-s120_0) exp-s_6)" +"((rebuild-s121_0) rebuild-s_2)" +"((temp122_2)" +"(lambda(form_0)" +"(expand-single form_0 ns_101 observer_3 to-parsed?_4 serializable?_9))))" +"(wrap-lifts-as-lifted-parsed-begin77.1" +" temp122_2" +" require-lifts118_0" +" lifts119_0" +" exp-s120_0" +" rebuild-s121_0)))" "(let-values()" "(let-values((()" "(begin" -"(log-top-lift-begin-before ctx_65 require-lifts_3 lifts_10 exp-s_6 ns_96)" +"(log-top-lift-begin-before ctx_67 require-lifts_3 lifts_10 exp-s_6 ns_101)" "(values))))" "(let-values(((new-s_2)" "(let-values(((temp123_2)(append require-lifts_3 lifts_10))" "((temp124_2)" "(lambda(form_1)" "(begin" -"(let-values(((obs_44)(expand-context-observer ctx_65)))" +"(let-values(((obs_44)(expand-context-observer ctx_67)))" "(if obs_44" "(let-values()" "(let-values()(call-expand-observe obs_44 'next)))" "(void)))" "(expand-single" " form_1" -" ns_96" +" ns_101" " observer_3" " to-parsed?_4" " serializable?_9))))" @@ -43881,19 +43782,19 @@ static const char *startup_source = "(let-values() form_2)" "(let-values()" "(begin" -"(let-values(((obs_45)(expand-context-observer ctx_65)))" +"(let-values(((obs_45)(expand-context-observer ctx_67)))" "(if obs_45" "(let-values()" "(let-values()(call-expand-observe obs_45 'next)))" "(void)))" "(expand-single" " form_2" -" ns_96" +" ns_101" " observer_3" " to-parsed?_4" " serializable?_9))))))" "((exp-s126_0) exp-s_6)" -"((temp127_2)(namespace-phase ns_96)))" +"((temp127_2)(namespace-phase ns_101)))" "(wrap-lifts-as-begin16.1" " temp125_1" " #t" @@ -43902,17 +43803,19 @@ static const char *startup_source = " temp123_2" " exp-s126_0" " temp127_2))))" -"(begin(log-top-begin-after ctx_65 new-s_2) new-s_2))))))))))))" +"(begin(log-top-begin-after ctx_67 new-s_2) new-s_2))))))))))))" "(define-values" "(expand-once$1)" "(let-values(((expand-once45_0)" "(lambda(s44_1 ns42_1 ns43_0)" "(begin" " 'expand-once45" -"(let-values(((s_197) s44_1))" -"(let-values(((ns_97)(if ns43_0 ns42_1(1/current-namespace))))" +"(let-values(((s_386) s44_1))" +"(let-values(((ns_102)(if ns43_0 ns42_1(1/current-namespace))))" "(let-values()" -"(let-values(((temp130_2)(lambda(s_37 ns_17 as-tail?_6)(expand-single-once s_37 ns_17)))" +"(let-values(((s128_0) s_386)" +"((ns129_0) ns_102)" +"((temp130_2)(lambda(s_87 ns_82 as-tail?_6)(expand-single-once s_87 ns_82)))" "((cons131_0) cons)" "((re-pair132_0) re-pair)" "((temp133_2) #t)" @@ -43930,89 +43833,89 @@ static const char *startup_source = " temp130_2" " re-pair132_0" " #t" -" s_197" -" ns_97)))))))))" +" s128_0" +" ns129_0)))))))))" "(case-lambda" -"((s_444)(begin 'expand-once(expand-once45_0 s_444 #f #f)))" -"((s_445 ns42_2)(expand-once45_0 s_445 ns42_2 #t)))))" +"((s_433)(begin 'expand-once(expand-once45_0 s_433 #f #f)))" +"((s_434 ns42_2)(expand-once45_0 s_434 ns42_2 #t)))))" "(define-values" "(expand-single-once)" -"(lambda(s_321 ns_98)" +"(lambda(s_435 ns_103)" "(begin" "(let-values(((require-lifts_4 lifts_11 exp-s_7)" "(expand-capturing-lifts" -" s_321" -"(let-values(((v_113)" -"(let-values(((ns135_1) ns_98))" +" s_435" +"(let-values(((v_74)" +"(let-values(((ns135_1) ns_103))" "(make-expand-context10.1 #f #f #f #f #f #f ns135_1))))" -"(let-values(((the-struct_55) v_113))" -"(if(expand-context/outer? the-struct_55)" +"(let-values(((the-struct_74) v_74))" +"(if(expand-context/outer? the-struct_74)" "(let-values(((inner136_0)" -"(let-values(((the-struct_73)(root-expand-context/outer-inner v_113)))" -"(if(expand-context/inner? the-struct_73)" +"(let-values(((the-struct_75)(root-expand-context/outer-inner v_74)))" +"(if(expand-context/inner? the-struct_75)" "(let-values(((just-once?137_0) #t))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_73)" -"(root-expand-context/inner-module-scopes the-struct_73)" -"(root-expand-context/inner-top-level-bind-scope the-struct_73)" -"(root-expand-context/inner-all-scopes-stx the-struct_73)" -"(root-expand-context/inner-defined-syms the-struct_73)" -"(root-expand-context/inner-counter the-struct_73)" -"(root-expand-context/inner-lift-key the-struct_73)" -"(expand-context/inner-to-parsed? the-struct_73)" -"(expand-context/inner-phase the-struct_73)" -"(expand-context/inner-namespace the-struct_73)" +"(root-expand-context/inner-self-mpi the-struct_75)" +"(root-expand-context/inner-module-scopes the-struct_75)" +"(root-expand-context/inner-top-level-bind-scope the-struct_75)" +"(root-expand-context/inner-all-scopes-stx the-struct_75)" +"(root-expand-context/inner-defined-syms the-struct_75)" +"(root-expand-context/inner-counter the-struct_75)" +"(root-expand-context/inner-lift-key the-struct_75)" +"(expand-context/inner-to-parsed? the-struct_75)" +"(expand-context/inner-phase the-struct_75)" +"(expand-context/inner-namespace the-struct_75)" " just-once?137_0" -"(expand-context/inner-module-begin-k the-struct_73)" -"(expand-context/inner-allow-unbound? the-struct_73)" -"(expand-context/inner-in-local-expand? the-struct_73)" -"(expand-context/inner-stops the-struct_73)" -"(expand-context/inner-declared-submodule-names the-struct_73)" -"(expand-context/inner-lifts the-struct_73)" -"(expand-context/inner-lift-envs the-struct_73)" -"(expand-context/inner-module-lifts the-struct_73)" -"(expand-context/inner-require-lifts the-struct_73)" -"(expand-context/inner-to-module-lifts the-struct_73)" -"(expand-context/inner-requires+provides the-struct_73)" -"(expand-context/inner-observer the-struct_73)" -"(expand-context/inner-for-serializable? the-struct_73)" -"(expand-context/inner-should-not-encounter-macros? the-struct_73)))" +"(expand-context/inner-module-begin-k the-struct_75)" +"(expand-context/inner-allow-unbound? the-struct_75)" +"(expand-context/inner-in-local-expand? the-struct_75)" +"(expand-context/inner-stops the-struct_75)" +"(expand-context/inner-declared-submodule-names the-struct_75)" +"(expand-context/inner-lifts the-struct_75)" +"(expand-context/inner-lift-envs the-struct_75)" +"(expand-context/inner-module-lifts the-struct_75)" +"(expand-context/inner-require-lifts the-struct_75)" +"(expand-context/inner-to-module-lifts the-struct_75)" +"(expand-context/inner-requires+provides the-struct_75)" +"(expand-context/inner-observer the-struct_75)" +"(expand-context/inner-for-serializable? the-struct_75)" +"(expand-context/inner-should-not-encounter-macros? the-struct_75)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_73)))))" +" the-struct_75)))))" "(expand-context/outer1.1" " inner136_0" -"(root-expand-context/outer-post-expansion-scope the-struct_55)" -"(root-expand-context/outer-use-site-scopes the-struct_55)" -"(root-expand-context/outer-frame-id the-struct_55)" -"(expand-context/outer-context the-struct_55)" -"(expand-context/outer-env the-struct_55)" -"(expand-context/outer-post-expansion-scope-action the-struct_55)" -"(expand-context/outer-scopes the-struct_55)" -"(expand-context/outer-def-ctx-scopes the-struct_55)" -"(expand-context/outer-binding-layer the-struct_55)" -"(expand-context/outer-reference-records the-struct_55)" -"(expand-context/outer-only-immediate? the-struct_55)" -"(expand-context/outer-need-eventually-defined the-struct_55)" -"(expand-context/outer-current-introduction-scopes the-struct_55)" -"(expand-context/outer-name the-struct_55)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_55)))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_74)" +"(root-expand-context/outer-use-site-scopes the-struct_74)" +"(root-expand-context/outer-frame-id the-struct_74)" +"(expand-context/outer-context the-struct_74)" +"(expand-context/outer-env the-struct_74)" +"(expand-context/outer-post-expansion-scope-action the-struct_74)" +"(expand-context/outer-scopes the-struct_74)" +"(expand-context/outer-def-ctx-scopes the-struct_74)" +"(expand-context/outer-binding-layer the-struct_74)" +"(expand-context/outer-reference-records the-struct_74)" +"(expand-context/outer-only-immediate? the-struct_74)" +"(expand-context/outer-need-eventually-defined the-struct_74)" +"(expand-context/outer-current-introduction-scopes the-struct_74)" +"(expand-context/outer-name the-struct_74)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_74)))))))" "(if(if(null? require-lifts_4)(null? lifts_11) #f)" "(let-values() exp-s_7)" "(let-values()" "(let-values(((temp138_2)(append require-lifts_4 lifts_11))" "((exp-s139_0) exp-s_7)" -"((temp140_0)(namespace-phase ns_98)))" +"((temp140_0)(namespace-phase ns_103)))" "(wrap-lifts-as-begin16.1 #f #f #f #f temp138_2 exp-s139_0 temp140_0))))))))" "(define-values" "(expand-to-top-form$1)" "(let-values(((expand-to-top-form50_0)" -"(lambda(s49_0 ns47_0 ns48_2)" +"(lambda(s49_0 ns47_1 ns48_2)" "(begin" " 'expand-to-top-form50" -"(let-values(((s_203) s49_0))" -"(let-values(((ns_99)(if ns48_2 ns47_0(1/current-namespace))))" +"(let-values(((s_93) s49_0))" +"(let-values(((ns_104)(if ns48_2 ns47_1(1/current-namespace))))" "(let-values()" "(let-values(((observer_4)(current-expand-observe)))" "(begin" @@ -44024,7 +43927,11 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((temp143_1) #f)((temp144_1) #f)((observer145_0) observer_4))" +"(let-values(((s141_0) s_93)" +"((ns142_0) ns_104)" +"((temp143_1) #f)" +"((temp144_1) #f)" +"((observer145_0) observer_4))" "(per-top-level68.1" " #f" " #f" @@ -44038,11 +43945,11 @@ static const char *startup_source = " temp143_1" " #f" " #f" -" s_203" -" ns_99)))))))))))))" +" s141_0" +" ns142_0)))))))))))))" "(case-lambda" -"((s_151)(begin 'expand-to-top-form(expand-to-top-form50_0 s_151 #f #f)))" -"((s_89 ns47_1)(expand-to-top-form50_0 s_89 ns47_1 #t)))))" +"((s_413)(begin 'expand-to-top-form(expand-to-top-form50_0 s_413 #f #f)))" +"((s_206 ns47_2)(expand-to-top-form50_0 s_206 ns47_2 #t)))))" "(define-values" "(per-top-level68.1)" "(lambda(combine53_0" @@ -44062,7 +43969,7 @@ static const char *startup_source = "(begin" " 'per-top-level68" "(let-values(((given-s_0) given-s66_0))" -"(let-values(((ns_100) ns67_1))" +"(let-values(((ns_105) ns67_1))" "(let-values(((single_0) single52_0))" "(let-values(((combine_0)(if combine60_0 combine53_0 #f)))" "(let-values(((wrap_2)(if wrap61_0 wrap54_0 #f)))" @@ -44071,116 +43978,116 @@ static const char *startup_source = "(let-values(((serializable?_10)(if serializable?64_0 serializable?57_0 #f)))" "(let-values(((observer_5) observer58_0))" "(let-values()" -"(let-values(((s_446)(maybe-intro given-s_0 ns_100)))" -"(let-values(((ctx_66)" -"(let-values(((observer147_0) observer_5))" -"(make-expand-context10.1 #f #f observer147_0 #t #f #f ns_100))))" -"(let-values(((phase_136)(namespace-phase ns_100)))" -"((letrec-values(((loop_101)" -"(lambda(s_447 phase_137 ns_101 as-tail?_7)" +"(let-values(((s_151)(maybe-intro given-s_0 ns_105)))" +"(let-values(((ctx_68)" +"(let-values(((ns146_0) ns_105)((observer147_0) observer_5))" +"(make-expand-context10.1 #f #f observer147_0 #t #f #f ns146_0))))" +"(let-values(((phase_135)(namespace-phase ns_105)))" +"((letrec-values(((loop_97)" +"(lambda(s_107 phase_102 ns_106 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" -"(let-values(((v_192) ctx_66))" -"(let-values(((the-struct_74) v_192))" -"(if(expand-context/outer? the-struct_74)" +"(let-values(((v_126) ctx_68))" +"(let-values(((the-struct_44) v_126))" +"(if(expand-context/outer? the-struct_44)" "(let-values(((inner148_0)" -"(let-values(((the-struct_75)" +"(let-values(((the-struct_76)" "(root-expand-context/outer-inner" -" v_192)))" +" v_126)))" "(if(expand-context/inner?" -" the-struct_75)" +" the-struct_76)" "(let-values(((phase149_0)" -" phase_137)" +" phase_102)" "((namespace150_0)" -" ns_101)" +" ns_106)" "((just-once?151_0)" " just-once?_1)" "((for-serializable?152_0)" " serializable?_10))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_75)" +" the-struct_76)" "(root-expand-context/inner-module-scopes" -" the-struct_75)" +" the-struct_76)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_75)" +" the-struct_76)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_75)" +" the-struct_76)" "(root-expand-context/inner-defined-syms" -" the-struct_75)" +" the-struct_76)" "(root-expand-context/inner-counter" -" the-struct_75)" +" the-struct_76)" "(root-expand-context/inner-lift-key" -" the-struct_75)" +" the-struct_76)" "(expand-context/inner-to-parsed?" -" the-struct_75)" +" the-struct_76)" " phase149_0" " namespace150_0" " just-once?151_0" "(expand-context/inner-module-begin-k" -" the-struct_75)" +" the-struct_76)" "(expand-context/inner-allow-unbound?" -" the-struct_75)" +" the-struct_76)" "(expand-context/inner-in-local-expand?" -" the-struct_75)" +" the-struct_76)" "(expand-context/inner-stops" -" the-struct_75)" +" the-struct_76)" "(expand-context/inner-declared-submodule-names" -" the-struct_75)" +" the-struct_76)" "(expand-context/inner-lifts" -" the-struct_75)" +" the-struct_76)" "(expand-context/inner-lift-envs" -" the-struct_75)" +" the-struct_76)" "(expand-context/inner-module-lifts" -" the-struct_75)" +" the-struct_76)" "(expand-context/inner-require-lifts" -" the-struct_75)" +" the-struct_76)" "(expand-context/inner-to-module-lifts" -" the-struct_75)" +" the-struct_76)" "(expand-context/inner-requires+provides" -" the-struct_75)" +" the-struct_76)" "(expand-context/inner-observer" -" the-struct_75)" +" the-struct_76)" " for-serializable?152_0" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_75)))" +" the-struct_76)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_75)))))" +" the-struct_76)))))" "(expand-context/outer1.1" " inner148_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_74)" +" the-struct_44)" "(root-expand-context/outer-use-site-scopes" -" the-struct_74)" +" the-struct_44)" "(root-expand-context/outer-frame-id" -" the-struct_74)" +" the-struct_44)" "(expand-context/outer-context" -" the-struct_74)" -"(expand-context/outer-env the-struct_74)" +" the-struct_44)" +"(expand-context/outer-env the-struct_44)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_74)" -"(expand-context/outer-scopes the-struct_74)" +" the-struct_44)" +"(expand-context/outer-scopes the-struct_44)" "(expand-context/outer-def-ctx-scopes" -" the-struct_74)" +" the-struct_44)" "(expand-context/outer-binding-layer" -" the-struct_74)" +" the-struct_44)" "(expand-context/outer-reference-records" -" the-struct_74)" +" the-struct_44)" "(expand-context/outer-only-immediate?" -" the-struct_74)" +" the-struct_44)" "(expand-context/outer-need-eventually-defined" -" the-struct_74)" +" the-struct_44)" "(expand-context/outer-current-introduction-scopes" -" the-struct_74)" -"(expand-context/outer-name the-struct_74)))" +" the-struct_44)" +"(expand-context/outer-name the-struct_44)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_74))))))" -"(let-values(((wb-s_0)(if just-once?_1 s_447 #f)))" +" the-struct_44))))))" +"(let-values(((wb-s_0)(if just-once?_1 s_107 #f)))" "(let-values((()" "(begin" "(let-values(((obs_46)" @@ -44192,119 +44099,119 @@ static const char *startup_source = "(call-expand-observe" " obs_46" " 'visit" -" s_447)))" +" s_107)))" "(void)))" "(values))))" "(let-values(((require-lifts_5 lifts_12 exp-s_8)" "(expand-capturing-lifts" -" s_447" -"(let-values(((v_145) tl-ctx_0))" -"(let-values(((the-struct_16) v_145))" -"(if(expand-context/outer? the-struct_16)" +" s_107" +"(let-values(((v_195) tl-ctx_0))" +"(let-values(((the-struct_64) v_195))" +"(if(expand-context/outer? the-struct_64)" "(let-values(((only-immediate?153_0)" " #t)" "((def-ctx-scopes154_0)" "(box null))" "((inner155_1)" -"(let-values(((the-struct_76)" +"(let-values(((the-struct_33)" "(root-expand-context/outer-inner" -" v_145)))" +" v_195)))" "(if(expand-context/inner?" -" the-struct_76)" +" the-struct_33)" "(let-values(((phase156_1)" -" phase_137)" +" phase_102)" "((namespace157_1)" -" ns_101))" +" ns_106))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_76)" +" the-struct_33)" "(root-expand-context/inner-module-scopes" -" the-struct_76)" +" the-struct_33)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_76)" +" the-struct_33)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_76)" +" the-struct_33)" "(root-expand-context/inner-defined-syms" -" the-struct_76)" +" the-struct_33)" "(root-expand-context/inner-counter" -" the-struct_76)" +" the-struct_33)" "(root-expand-context/inner-lift-key" -" the-struct_76)" +" the-struct_33)" "(expand-context/inner-to-parsed?" -" the-struct_76)" +" the-struct_33)" " phase156_1" " namespace157_1" "(expand-context/inner-just-once?" -" the-struct_76)" +" the-struct_33)" "(expand-context/inner-module-begin-k" -" the-struct_76)" +" the-struct_33)" "(expand-context/inner-allow-unbound?" -" the-struct_76)" +" the-struct_33)" "(expand-context/inner-in-local-expand?" -" the-struct_76)" +" the-struct_33)" "(expand-context/inner-stops" -" the-struct_76)" +" the-struct_33)" "(expand-context/inner-declared-submodule-names" -" the-struct_76)" +" the-struct_33)" "(expand-context/inner-lifts" -" the-struct_76)" +" the-struct_33)" "(expand-context/inner-lift-envs" -" the-struct_76)" +" the-struct_33)" "(expand-context/inner-module-lifts" -" the-struct_76)" +" the-struct_33)" "(expand-context/inner-require-lifts" -" the-struct_76)" +" the-struct_33)" "(expand-context/inner-to-module-lifts" -" the-struct_76)" +" the-struct_33)" "(expand-context/inner-requires+provides" -" the-struct_76)" +" the-struct_33)" "(expand-context/inner-observer" -" the-struct_76)" +" the-struct_33)" "(expand-context/inner-for-serializable?" -" the-struct_76)" +" the-struct_33)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_76)))" +" the-struct_33)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_76)))))" +" the-struct_33)))))" "(expand-context/outer1.1" " inner155_1" "(root-expand-context/outer-post-expansion-scope" -" the-struct_16)" +" the-struct_64)" "(root-expand-context/outer-use-site-scopes" -" the-struct_16)" +" the-struct_64)" "(root-expand-context/outer-frame-id" -" the-struct_16)" +" the-struct_64)" "(expand-context/outer-context" -" the-struct_16)" +" the-struct_64)" "(expand-context/outer-env" -" the-struct_16)" +" the-struct_64)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_16)" +" the-struct_64)" "(expand-context/outer-scopes" -" the-struct_16)" +" the-struct_64)" " def-ctx-scopes154_0" "(expand-context/outer-binding-layer" -" the-struct_16)" +" the-struct_64)" "(expand-context/outer-reference-records" -" the-struct_16)" +" the-struct_64)" " only-immediate?153_0" "(expand-context/outer-need-eventually-defined" -" the-struct_16)" +" the-struct_64)" "(expand-context/outer-current-introduction-scopes" -" the-struct_16)" +" the-struct_64)" "(expand-context/outer-name" -" the-struct_16)))" +" the-struct_64)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_16)))))))" +" the-struct_64)))))))" "(let-values(((disarmed-exp-s_0)" "(syntax-disarm$1 exp-s_8)))" -"(if(let-values(((or-part_297)" +"(if(let-values(((or-part_298)" "(pair? require-lifts_5)))" -"(if or-part_297 or-part_297(pair? lifts_12)))" +"(if or-part_298 or-part_298(pair? lifts_12)))" "(let-values()" "(let-values(((new-s_3)" "(let-values(((temp158_0)" @@ -44312,7 +44219,7 @@ static const char *startup_source = " require-lifts_5" " lifts_12))" "((exp-s159_0) exp-s_8)" -"((phase160_0) phase_137))" +"((phase160_0) phase_102))" "(wrap-lifts-as-begin16.1" " #f" " #f" @@ -44335,10 +44242,10 @@ static const char *startup_source = "(void)))" "(if just-once?_1" " new-s_3" -"(loop_101" +"(loop_97" " new-s_3" -" phase_137" -" ns_101" +" phase_102" +" ns_106" " as-tail?_7)))))" "(if(not single_0)" "(let-values()" @@ -44358,65 +44265,65 @@ static const char *startup_source = "(if(if just-once?_1(not(eq? exp-s_8 wb-s_0)) #f)" "(let-values() exp-s_8)" "(let-values()" -"(let-values(((tmp_37)" +"(let-values(((tmp_36)" "(core-form-sym" " disarmed-exp-s_0" -" phase_137)))" -"(if(equal? tmp_37 'begin)" +" phase_102)))" +"(if(equal? tmp_36 'begin)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_27)" +"(let-values(((obs_49)" "(expand-context-observer" -" ctx_66)))" -"(if obs_27" +" ctx_68)))" +"(if obs_49" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_27" +" obs_49" " 'prim-begin)))" "(void)))" "(values))))" -"(let-values(((ok?_28 begin161_0 e162_0)" -"(let-values(((s_448)" +"(let-values(((ok?_27 begin161_0 e162_0)" +"(let-values(((s_436)" " disarmed-exp-s_0))" -"(let-values(((orig-s_34)" -" s_448))" +"(let-values(((orig-s_33)" +" s_436))" "(let-values(((begin161_1" " e162_1)" -"(let-values(((s_449)" +"(let-values(((s_437)" "(if(syntax?$1" -" s_448)" +" s_436)" "(syntax-e$1" -" s_448)" -" s_448)))" +" s_436)" +" s_436)))" "(if(pair?" -" s_449)" +" s_437)" "(let-values(((begin163_0)" -"(let-values(((s_113)" +"(let-values(((s_120)" "(car" -" s_449)))" -" s_113))" +" s_437)))" +" s_120))" "((e164_0)" -"(let-values(((s_114)" +"(let-values(((s_438)" "(cdr" -" s_449)))" -"(let-values(((s_115)" +" s_437)))" +"(let-values(((s_439)" "(if(syntax?$1" -" s_114)" +" s_438)" "(syntax-e$1" -" s_114)" -" s_114)))" +" s_438)" +" s_438)))" "(let-values(((flat-s_20)" "(to-syntax-list.1" -" s_115)))" +" s_439)))" "(if(not" " flat-s_20)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_34))" +" orig-s_33))" "(let-values()" " flat-s_20)))))))" "(values" @@ -44425,7 +44332,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_34)))))" +" orig-s_33)))))" "(values" " #t" " begin161_1" @@ -44446,44 +44353,44 @@ static const char *startup_source = " es_2))" " #f)" "(let-values()" -"(loop_101" +"(loop_97" "(car es_2)" -" phase_137" -" ns_101" +" phase_102" +" ns_106" " as-tail?_7))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_49)" +"(let-values(((obs_50)" "(expand-context-observer" " tl-ctx_0)))" -"(if obs_49" +"(if obs_50" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_49" +" obs_50" " 'next)))" "(void)))" "(values))))" -"(let-values(((a_69)" +"(let-values(((a_63)" "(if combine_0" -"(loop_101" +"(loop_97" "(car" " es_2)" -" phase_137" -" ns_101" +" phase_102" +" ns_106" " #f)" "(begin" -"(loop_101" +"(loop_97" "(car" " es_2)" -" phase_137" -" ns_101" +" phase_102" +" ns_106" " #f)" "(void)))))" "(if combine_0" "(combine_0" -" a_69" +" a_63" "(begin-loop_0" "(cdr" " es_2)))" @@ -44499,21 +44406,21 @@ static const char *startup_source = "(begin-loop_0" " e162_0))))" "(begin" -"(let-values(((obs_50)" +"(let-values(((obs_42)" "(expand-context-observer" " tl-ctx_0)))" -"(if obs_50" +"(if obs_42" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_50" +" obs_42" " 'return" " new-s_4)))" "(void)))" " new-s_4)))" "(let-values()" "(begin-loop_0 e162_0)))))))" -"(if(equal? tmp_37 'begin-for-syntax)" +"(if(equal? tmp_36 'begin-for-syntax)" "(let-values()" "(let-values((()" "(begin" @@ -44528,48 +44435,48 @@ static const char *startup_source = " 'prim-begin-for-syntax)))" "(void)))" "(values))))" -"(let-values(((ok?_29" +"(let-values(((ok?_22" " begin-for-syntax165_0" " e166_0)" -"(let-values(((s_427)" +"(let-values(((s_225)" " disarmed-exp-s_0))" -"(let-values(((orig-s_35)" -" s_427))" +"(let-values(((orig-s_34)" +" s_225))" "(let-values(((begin-for-syntax165_1" " e166_1)" -"(let-values(((s_450)" +"(let-values(((s_227)" "(if(syntax?$1" -" s_427)" +" s_225)" "(syntax-e$1" -" s_427)" -" s_427)))" +" s_225)" +" s_225)))" "(if(pair?" -" s_450)" +" s_227)" "(let-values(((begin-for-syntax167_0)" -"(let-values(((s_451)" +"(let-values(((s_229)" "(car" -" s_450)))" -" s_451))" +" s_227)))" +" s_229))" "((e168_0)" -"(let-values(((s_452)" +"(let-values(((s_327)" "(cdr" -" s_450)))" -"(let-values(((s_453)" +" s_227)))" +"(let-values(((s_230)" "(if(syntax?$1" -" s_452)" +" s_327)" "(syntax-e$1" -" s_452)" -" s_452)))" +" s_327)" +" s_327)))" "(let-values(((flat-s_21)" "(to-syntax-list.1" -" s_453)))" +" s_230)))" "(if(not" " flat-s_21)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_35))" +" orig-s_34))" "(let-values()" " flat-s_21)))))))" "(values" @@ -44578,16 +44485,16 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_35)))))" +" orig-s_34)))))" "(values" " #t" " begin-for-syntax165_1" " e166_1))))))" "(let-values(((next-phase_0)" -"(add1 phase_137)))" +"(add1 phase_102)))" "(let-values(((next-ns_0)" "(namespace->namespace-at-phase" -" ns_101" +" ns_106" " next-phase_0)))" "(let-values((()" "(begin" @@ -44607,7 +44514,7 @@ static const char *startup_source = "(if quick-immediate?_0" "(let-values()" "(namespace-visit-available-modules!" -" ns_101))" +" ns_106))" "(void))" "(values))))" "(let-values((()" @@ -44615,9 +44522,9 @@ static const char *startup_source = "(namespace-visit-available-modules!" " next-ns_0)" "(values))))" -"(let-values(((l_72)" +"(let-values(((l_69)" "(reverse$1" -"(let-values(((lst_290)" +"(let-values(((lst_302)" " e166_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -44625,24 +44532,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_290)))" -"((letrec-values(((for-loop_256)" -"(lambda(fold-var_259" -" lst_291)" +" lst_302)))" +"((letrec-values(((for-loop_263)" +"(lambda(fold-var_266" +" lst_303)" "(begin" " 'for-loop" "(if(pair?" -" lst_291)" -"(let-values(((s_404)" +" lst_303)" +"(let-values(((s_331)" "(unsafe-car" -" lst_291))" -"((rest_164)" +" lst_303))" +"((rest_169)" "(unsafe-cdr" -" lst_291)))" -"(let-values(((fold-var_260)" -"(let-values(((fold-var_245)" -" fold-var_259))" -"(let-values(((fold-var_246)" +" lst_303)))" +"(let-values(((fold-var_201)" +"(let-values(((fold-var_202)" +" fold-var_266))" +"(let-values(((fold-var_267)" "(let-values()" "(cons" "(let-values()" @@ -44657,31 +44564,31 @@ static const char *startup_source = " obs_53" " 'next)))" "(void)))" -"(loop_101" -" s_404" +"(loop_97" +" s_331" " next-phase_0" " next-ns_0" " #f)))" -" fold-var_245))))" +" fold-var_202))))" "(values" -" fold-var_246)))))" +" fold-var_267)))))" "(if(not" " #f)" -"(for-loop_256" -" fold-var_260" -" rest_164)" -" fold-var_260)))" -" fold-var_259)))))" -" for-loop_256)" +"(for-loop_263" +" fold-var_201" +" rest_169)" +" fold-var_201)))" +" fold-var_266)))))" +" for-loop_263)" " null" -" lst_290))))))" +" lst_302))))))" "(if wrap_2" "(let-values()" "(let-values(((new-s_5)" "(wrap_2" " begin-for-syntax165_0" " exp-s_8" -" l_72)))" +" l_69)))" "(begin" "(let-values(((obs_54)" "(expand-context-observer" @@ -44696,50 +44603,50 @@ static const char *startup_source = "(void)))" " new-s_5)))" "(if combine_0" -"(let-values() l_72)" +"(let-values() l_69)" "(let-values()" "(void)))))))))))))" "(let-values()" "(single_0" " exp-s_8" -" ns_101" +" ns_106" " as-tail?_7))))))))))))))))))" -" loop_101)" -" s_446" -" phase_136" -" ns_100" +" loop_97)" +" s_151" +" phase_135" +" ns_105" " #t)))))))))))))))))" "(define-values" "(maybe-intro)" -"(lambda(s_346 ns_102)" -"(begin(if(syntax?$1 s_346) s_346(1/namespace-syntax-introduce(1/datum->syntax #f s_346) ns_102)))))" +"(lambda(s_440 ns_107)" +"(begin(if(syntax?$1 s_440) s_440(1/namespace-syntax-introduce(1/datum->syntax #f s_440) ns_107)))))" "(define-values" "(re-pair)" -"(lambda(form-id_0 s_454 r_44)" -"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_454)(cons form-id_0 r_44) s_454 s_454) s_454))))" +"(lambda(form-id_0 s_441 r_43)" +"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_441)(cons form-id_0 r_43) s_441 s_441) s_441))))" "(define-values" "(expand-capturing-lifts)" -"(lambda(s_455 ctx_67)" +"(lambda(s_442 ctx_69)" "(begin" "(let-values()" -"(let-values(((ns_103)(expand-context-namespace ctx_67)))" -"(let-values((()(begin(namespace-visit-available-modules! ns_103)(values))))" +"(let-values(((ns_108)(expand-context-namespace ctx_69)))" +"(let-values((()(begin(namespace-visit-available-modules! ns_108)(values))))" "(let-values(((lift-ctx_6)" -"(let-values(((temp169_0)(make-top-level-lift ctx_67)))" +"(let-values(((temp169_0)(make-top-level-lift ctx_69)))" "(make-lift-context6.1 #f #f temp169_0))))" "(let-values(((require-lift-ctx_2)" "(make-require-lift-context" -"(namespace-phase ns_103)" -"(make-parse-top-lifted-require ns_103))))" +"(namespace-phase ns_108)" +"(make-parse-top-lifted-require ns_108))))" "(let-values(((exp-s_9)" -"(let-values(((s170_0) s_455)" +"(let-values(((s170_0) s_442)" "((temp171_0)" -"(let-values(((v_161) ctx_67))" -"(let-values(((the-struct_77) v_161))" +"(let-values(((v_196) ctx_69))" +"(let-values(((the-struct_77) v_196))" "(if(expand-context/outer? the-struct_77)" "(let-values(((inner172_0)" "(let-values(((the-struct_78)" -"(root-expand-context/outer-inner v_161)))" +"(root-expand-context/outer-inner v_196)))" "(if(expand-context/inner? the-struct_78)" "(let-values(((lifts173_0) lift-ctx_6)" "((module-lifts174_0) lift-ctx_6)" @@ -44816,48 +44723,48 @@ static const char *startup_source = " exp-s_9))))))))))" "(define-values" "(make-parse-top-lifted-require)" -"(lambda(ns_104)" +"(lambda(ns_72)" "(begin" -"(lambda(s_241 phase_138)" -"(let-values(((ok?_30 #%require176_0 req177_0)" -"(let-values(((s_456)(syntax-disarm$1 s_241)))" -"(let-values(((orig-s_36) s_456))" +"(lambda(s_443 phase_136)" +"(let-values(((ok?_28 #%require176_0 req177_0)" +"(let-values(((s_444)(syntax-disarm$1 s_443)))" +"(let-values(((orig-s_35) s_444))" "(let-values(((#%require176_1 req177_1)" -"(let-values(((s_457)(if(syntax?$1 s_456)(syntax-e$1 s_456) s_456)))" -"(if(pair? s_457)" -"(let-values(((#%require178_0)(let-values(((s_359)(car s_457))) s_359))" +"(let-values(((s_249)(if(syntax?$1 s_444)(syntax-e$1 s_444) s_444)))" +"(if(pair? s_249)" +"(let-values(((#%require178_0)(let-values(((s_250)(car s_249))) s_250))" "((req179_0)" -"(let-values(((s_360)(cdr s_457)))" -"(let-values(((s_458)" -"(if(syntax?$1 s_360)" -"(syntax-e$1 s_360)" -" s_360)))" -"(if(pair? s_458)" +"(let-values(((s_251)(cdr s_249)))" +"(let-values(((s_252)" +"(if(syntax?$1 s_251)" +"(syntax-e$1 s_251)" +" s_251)))" +"(if(pair? s_252)" "(let-values(((req180_0)" -"(let-values(((s_362)(car s_458)))" -" s_362))" +"(let-values(((s_445)(car s_252)))" +" s_445))" "(()" -"(let-values(((s_363)(cdr s_458)))" -"(let-values(((s_459)" -"(if(syntax?$1 s_363)" -"(syntax-e$1 s_363)" -" s_363)))" -"(if(null? s_459)" +"(let-values(((s_446)(cdr s_252)))" +"(let-values(((s_447)" +"(if(syntax?$1 s_446)" +"(syntax-e$1 s_446)" +" s_446)))" +"(if(null? s_447)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_36))))))" +" orig-s_35))))))" "(values req180_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_36))))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_35))))))" "(values #%require178_0 req179_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_36)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_35)))))" "(values #t #%require176_1 req177_1))))))" "(let-values(((temp181_0)(list req177_0))" -"((s182_0) s_241)" -"((ns183_0) ns_104)" -"((phase184_1) phase_138)" -"((phase185_0) phase_138)" +"((s182_0) s_443)" +"((ns183_0) ns_72)" +"((phase184_1) phase_136)" +"((phase185_0) phase_136)" "((temp186_0)(let-values(((temp188_0) #f))(make-requires+provides8.1 #f #f temp188_0)))" "((temp187_0) 'require))" "(parse-and-perform-requires!30.1" @@ -44899,61 +44806,61 @@ static const char *startup_source = "(lifted-parsed-begin30.1" "(append" "(reverse$1" -"(let-values(((lst_292) require-lifts_6))" +"(let-values(((lst_304) require-lifts_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_292)))" -"((letrec-values(((for-loop_257)" -"(lambda(fold-var_261 lst_293)" +"(let-values()(check-list lst_304)))" +"((letrec-values(((for-loop_264)" +"(lambda(fold-var_268 lst_305)" "(begin" " 'for-loop" -"(if(pair? lst_293)" -"(let-values(((req_23)(unsafe-car lst_293))" -"((rest_165)(unsafe-cdr lst_293)))" -"(let-values(((fold-var_262)" -"(let-values(((fold-var_263) fold-var_261))" -"(let-values(((fold-var_264)" +"(if(pair? lst_305)" +"(let-values(((req_19)(unsafe-car lst_305))" +"((rest_170)(unsafe-cdr lst_305)))" +"(let-values(((fold-var_269)" +"(let-values(((fold-var_270) fold-var_268))" +"(let-values(((fold-var_271)" "(let-values()" "(cons" "(let-values()" -"(parsed-require23.1 req_23))" -" fold-var_263))))" -"(values fold-var_264)))))" -"(if(not #f)(for-loop_257 fold-var_262 rest_165) fold-var_262)))" -" fold-var_261)))))" -" for-loop_257)" +"(parsed-require23.1 req_19))" +" fold-var_270))))" +"(values fold-var_271)))))" +"(if(not #f)(for-loop_264 fold-var_269 rest_170) fold-var_269)))" +" fold-var_268)))))" +" for-loop_264)" " null" -" lst_292))))" +" lst_304))))" "(reverse$1" -"(let-values(((lst_141)(get-lifts-as-lists lifts_13)))" +"(let-values(((lst_306)(get-lifts-as-lists lifts_13)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_141)))" -"((letrec-values(((for-loop_258)" -"(lambda(fold-var_265 lst_294)" +"(let-values()(check-list lst_306)))" +"((letrec-values(((for-loop_265)" +"(lambda(fold-var_272 lst_307)" "(begin" " 'for-loop" -"(if(pair? lst_294)" -"(let-values(((ids+syms+rhs_0)(unsafe-car lst_294))" -"((rest_166)(unsafe-cdr lst_294)))" -"(let-values(((fold-var_266)" -"(let-values(((fold-var_267) fold-var_265))" -"(let-values(((fold-var_268)" +"(if(pair? lst_307)" +"(let-values(((ids+syms+rhs_0)(unsafe-car lst_307))" +"((rest_171)(unsafe-cdr lst_307)))" +"(let-values(((fold-var_273)" +"(let-values(((fold-var_274) fold-var_272))" +"(let-values(((fold-var_275)" "(let-values()" "(cons" "(let-values()" -"(let-values(((exp-rhs_3)" +"(let-values(((exp-rhs_1)" "(adjust-form_1" "(caddr" " ids+syms+rhs_0))))" "(let-values(((just-rhs_0)" "(if(lifted-parsed-begin?" -" exp-rhs_3)" +" exp-rhs_1)" "(lifted-parsed-begin-last" -" exp-rhs_3)" -" exp-rhs_3)))" +" exp-rhs_1)" +" exp-rhs_1)))" "(let-values(((dv_0)" "(parsed-define-values19.1" " rebuild-s_3" @@ -44963,9 +44870,9 @@ static const char *startup_source = " ids+syms+rhs_0)" " just-rhs_0)))" "(if(lifted-parsed-begin?" -" exp-rhs_3)" +" exp-rhs_1)" "(let-values(((the-struct_79)" -" exp-rhs_3))" +" exp-rhs_1))" "(if(lifted-parsed-begin?" " the-struct_79)" "(let-values(((last189_0)" @@ -44979,58 +44886,55 @@ static const char *startup_source = " \"lifted-parsed-begin?\"" " the-struct_79)))" " dv_0)))))" -" fold-var_267))))" -"(values fold-var_268)))))" -"(if(not #f)(for-loop_258 fold-var_266 rest_166) fold-var_266)))" -" fold-var_265)))))" -" for-loop_258)" +" fold-var_274))))" +"(values fold-var_275)))))" +"(if(not #f)(for-loop_265 fold-var_273 rest_171) fold-var_273)))" +" fold-var_272)))))" +" for-loop_265)" " null" -" lst_141)))))" +" lst_306)))))" " exp-s_10))))))))))" "(define-values" "(log-top-lift-begin-before)" -"(lambda(ctx_68 require-lifts_7 lifts_14 exp-s_11 ns_105)" +"(lambda(ctx_70 require-lifts_7 lifts_14 exp-s_11 ns_109)" "(begin" -"(let-values(((obs_55)(expand-context-observer ctx_68)))" +"(let-values(((obs_55)(expand-context-observer ctx_70)))" "(if obs_55" "(let-values()" "(let-values(((new-s_6)" "(let-values(((temp190_0)(append require-lifts_7 lifts_14))" "((exp-s191_0) exp-s_11)" -"((temp192_0)(namespace-phase ns_105)))" +"((temp192_0)(namespace-phase ns_109)))" "(wrap-lifts-as-begin16.1 #f #f #f #f temp190_0 exp-s191_0 temp192_0))))" -"(begin(call-expand-observe obs_55 'lift-loop new-s_6)(log-top-begin-before ctx_68 new-s_6))))" +"(begin(call-expand-observe obs_55 'lift-loop new-s_6)(log-top-begin-before ctx_70 new-s_6))))" "(void))))))" "(define-values" "(log-top-begin-before)" -"(lambda(ctx_69 new-s_7)" +"(lambda(ctx_71 new-s_7)" "(begin" -"(let-values(((obs_56)(expand-context-observer ctx_69)))" +"(let-values(((obs_56)(expand-context-observer ctx_71)))" "(if obs_56" "(let-values()" -"(let-values(((ok?_31 begin193_0 e194_0)" -"(let-values(((s_460) new-s_7))" -"(let-values(((orig-s_37) s_460))" +"(let-values(((ok?_29 begin193_0 e194_0)" +"(let-values(((s_129) new-s_7))" +"(let-values(((orig-s_1) s_129))" "(let-values(((begin193_1 e194_1)" -"(let-values(((s_461)(if(syntax?$1 s_460)(syntax-e$1 s_460) s_460)))" -"(if(pair? s_461)" -"(let-values(((begin195_0)(let-values(((s_462)(car s_461))) s_462))" +"(let-values(((s_448)(if(syntax?$1 s_129)(syntax-e$1 s_129) s_129)))" +"(if(pair? s_448)" +"(let-values(((begin195_0)(let-values(((s_449)(car s_448))) s_449))" "((e196_0)" -"(let-values(((s_463)(cdr s_461)))" -"(let-values(((s_464)" -"(if(syntax?$1 s_463)" -"(syntax-e$1 s_463)" -" s_463)))" -"(let-values(((flat-s_22)(to-syntax-list.1 s_464)))" +"(let-values(((s_450)(cdr s_448)))" +"(let-values(((s_451)" +"(if(syntax?$1 s_450)" +"(syntax-e$1 s_450)" +" s_450)))" +"(let-values(((flat-s_22)(to-syntax-list.1 s_451)))" "(if(not flat-s_22)" "(let-values()" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_37))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_1))" "(let-values() flat-s_22)))))))" "(values begin195_0 e196_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_37)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_1)))))" "(values #t begin193_1 e194_1))))))" "(begin" "(call-expand-observe obs_56 'visit new-s_7)" @@ -45041,36 +44945,36 @@ static const char *startup_source = "(void))))))" "(define-values" "(log-top-begin-after)" -"(lambda(ctx_70 new-s_8)" +"(lambda(ctx_72 new-s_8)" "(begin" -"(let-values(((obs_57)(expand-context-observer ctx_70)))" +"(let-values(((obs_57)(expand-context-observer ctx_72)))" "(if obs_57" "(let-values()" -"(let-values(((ok?_32 begin197_0 e198_0)" -"(let-values(((s_465) new-s_8))" -"(let-values(((orig-s_38) s_465))" +"(let-values(((ok?_30 begin197_0 e198_0)" +"(let-values(((s_452) new-s_8))" +"(let-values(((orig-s_36) s_452))" "(let-values(((begin197_1 e198_1)" -"(let-values(((s_466)(if(syntax?$1 s_465)(syntax-e$1 s_465) s_465)))" -"(if(pair? s_466)" -"(let-values(((begin199_0)(let-values(((s_467)(car s_466))) s_467))" +"(let-values(((s_453)(if(syntax?$1 s_452)(syntax-e$1 s_452) s_452)))" +"(if(pair? s_453)" +"(let-values(((begin199_0)(let-values(((s_454)(car s_453))) s_454))" "((e200_0)" -"(let-values(((s_468)(cdr s_466)))" -"(let-values(((s_469)" -"(if(syntax?$1 s_468)" -"(syntax-e$1 s_468)" -" s_468)))" -"(let-values(((flat-s_23)(to-syntax-list.1 s_469)))" +"(let-values(((s_455)(cdr s_453)))" +"(let-values(((s_456)" +"(if(syntax?$1 s_455)" +"(syntax-e$1 s_455)" +" s_455)))" +"(let-values(((flat-s_23)(to-syntax-list.1 s_456)))" "(if(not flat-s_23)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_38))" +" orig-s_36))" "(let-values() flat-s_23)))))))" "(values begin199_0 e200_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_38)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_36)))))" "(values #t begin197_1 e198_1))))))" -"(let-values(((obs_58)(expand-context-observer ctx_70)))" +"(let-values(((obs_58)(expand-context-observer ctx_72)))" "(if obs_58" "(let-values()" "(let-values()" @@ -45138,10 +45042,14 @@ static const char *startup_source = "(resolved-module-path->module-path mod-path_5)" " #f))))))" "(let-values(((mod-name_22)(1/module-path-index-resolve mpi_46 #t)))" -"(let-values(((phase_139)(namespace-phase ns_57)))" +"(let-values(((phase_137)(namespace-phase ns_57)))" "(if(not sym_82)" "(let-values()" -"(let-values(((phase23_1) phase_139)((temp24_5) #f))" +"(let-values(((ns20_1) ns_57)" +"((mpi21_0) mpi_46)" +"((phase22_0) phase_137)" +"((phase23_1) phase_137)" +"((temp24_5) #f))" "(namespace-module-instantiate!96.1" " temp24_5" " #t" @@ -45151,12 +45059,15 @@ static const char *startup_source = " #f" " #f" " #f" -" ns_57" -" mpi_46" -" phase_139)))" +" ns20_1" +" mpi21_0" +" phase22_0)))" "(if(equal? sym_82 0)" "(let-values()" -"(let-values(((phase28_1) phase_139))" +"(let-values(((ns25_2) ns_57)" +"((mpi26_0) mpi_46)" +"((phase27_1) phase_137)" +"((phase28_1) phase_137))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -45166,23 +45077,26 @@ static const char *startup_source = " #f" " #f" " #f" -" ns_57" -" mpi_46" -" phase_139)))" +" ns25_2" +" mpi26_0" +" phase27_1)))" "(if(void? sym_82)" "(let-values()" -"(let-values(((phase32_4) phase_139))" +"(let-values(((ns29_0) ns_57)" +"((mpi30_0) mpi_46)" +"((phase31_1) phase_137)" +"((phase32_4) phase_137))" "(namespace-module-visit!104.1" " phase32_4" " #t" -" ns_57" -" mpi_46" -" phase_139)))" +" ns29_0" +" mpi30_0" +" phase31_1)))" "(let-values()" -"(let-values(((m_21)(namespace->module ns_57 mod-name_22)))" +"(let-values(((m_22)(namespace->module ns_57 mod-name_22)))" "(let-values((()" "(begin" -"(if m_21" +"(if m_22" "(void)" "(let-values()" "(raise-unknown-module-error" @@ -45191,7 +45105,7 @@ static const char *startup_source = "(values))))" "(let-values(((binding/p_5)" "(hash-ref" -"(hash-ref(module-provides m_21) 0 '#hasheq())" +"(hash-ref(module-provides m_22) 0 '#hasheq())" " sym_82" " #f)))" "(if(not binding/p_5)" @@ -45206,16 +45120,19 @@ static const char *startup_source = " mod-name_22)" "(fail-k_2)))" "(let-values()" -"(let-values(((binding_26)" +"(let-values(((binding_27)" "(provided-as-binding binding/p_5)))" "(let-values(((ex-sym_2)" -"(module-binding-sym binding_26)))" +"(module-binding-sym binding_27)))" "(let-values(((ex-phase_0)" -"(module-binding-phase binding_26)))" +"(module-binding-phase binding_27)))" "(let-values((()" "(begin" -"(let-values(((phase36_0)" -" phase_139))" +"(let-values(((ns33_0) ns_57)" +"((mpi34_0) mpi_46)" +"((phase35_0) phase_137)" +"((phase36_0)" +" phase_137))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -45225,20 +45142,23 @@ static const char *startup_source = " #f" " #f" " #f" -" ns_57" -" mpi_46" -" phase_139))" +" ns33_0" +" mpi34_0" +" phase35_0))" "(values))))" "(let-values(((ex-mod-name_0)" "(1/module-path-index-resolve" "(module-path-index-shift" -"(module-binding-module binding_26)" -"(module-self m_21)" +"(module-binding-module binding_27)" +"(module-self m_22)" " mpi_46))))" "(let-values(((m-ns_16)" -"(let-values(((temp39_4)" +"(let-values(((ns37_1) ns_57)" +"((ex-mod-name38_0)" +" ex-mod-name_0)" +"((temp39_4)" "(phase-" -" phase_139" +" phase_137" " ex-phase_0))" "((temp40_2) #t))" "(namespace->module-namespace82.1" @@ -45248,19 +45168,19 @@ static const char *startup_source = " #t" " #f" " #f" -" ns_57" -" ex-mod-name_0" +" ns37_1" +" ex-mod-name38_0" " temp39_4))))" "(let-values(((ex-m_0)" "(namespace->module" " ns_57" " ex-mod-name_0)))" "(let-values(((access_4)" -"(let-values(((or-part_76)" +"(let-values(((or-part_30)" "(module-access" " ex-m_0)))" -"(if or-part_76" -" or-part_76" +"(if or-part_30" +" or-part_30" "(module-compute-access!" " ex-m_0)))))" "(let-values((()" @@ -45282,10 +45202,10 @@ static const char *startup_source = " m-ns_16)))" "(not" "(if(module-binding-extra-inspector" -" binding_26)" +" binding_27)" "(inspector-superior?" "(module-binding-extra-inspector" -" binding_26)" +" binding_27)" "(namespace-inspector" " m-ns_16))" " #f))" @@ -45330,14 +45250,20 @@ static const char *startup_source = "(gensym 'missing)))" "(let-values((()" "(begin" -"(let-values(((phase44_0)" -" phase_139))" +"(let-values(((ns41_2)" +" ns_57)" +"((mpi42_1)" +" mpi_46)" +"((phase43_2)" +" phase_137)" +"((phase44_0)" +" phase_137))" "(namespace-module-visit!104.1" " phase44_0" " #t" -" ns_57" -" mpi_46" -" phase_139))" +" ns41_2" +" mpi42_1" +" phase43_2))" "(values))))" "(let-values(((t_54)" "(namespace-get-transformer" @@ -45358,12 +45284,12 @@ static const char *startup_source = " #f" " ns45_1" " #t))))" -"(let-values(((mod-path_17)" +"(let-values(((mod-path_16)" "(resolved-module-path->module-path" " mod-name_22)))" "(begin" "(1/namespace-require" -" mod-path_17" +" mod-path_16" " tmp-ns_0)" "(with-continuation-mark" " parameterization-key" @@ -45378,7 +45304,7 @@ static const char *startup_source = " sym_82" " tmp-ns_0))))))))))))))))))))))))))))))))))))))))))))))))" "(case-lambda" -"((who_21 mod-path_16 sym_83)(begin(do-dynamic-require6_0 who_21 mod-path_16 sym_83 #f #f)))" +"((who_21 mod-path_17 sym_83)(begin(do-dynamic-require6_0 who_21 mod-path_17 sym_83 #f #f)))" "((who_22 mod-path_18 sym_84 fail-k1_1)(do-dynamic-require6_0 who_22 mod-path_18 sym_84 fail-k1_1 #t)))))" " (define-values (default-dynamic-require-fail-thunk) (lambda () (begin (error \"failed\"))))" "(define-values" @@ -45392,8 +45318,8 @@ static const char *startup_source = "(let-values(((fail-k_3)(if fail-k9_0 fail-k8_0 default-dynamic-require-fail-thunk)))" "(let-values()(do-dynamic-require 'dynamic-require mod-path_19 sym_85 fail-k_3)))))))))" "(case-lambda" -"((mod-path_20 sym_10)(begin 'dynamic-require(dynamic-require12_0 mod-path_20 sym_10 #f #f)))" -"((mod-path_21 sym_86 fail-k8_1)(dynamic-require12_0 mod-path_21 sym_86 fail-k8_1 #t)))))" +"((mod-path_20 sym_86)(begin 'dynamic-require(dynamic-require12_0 mod-path_20 sym_86 #f #f)))" +"((mod-path_21 sym_87 fail-k8_1)(dynamic-require12_0 mod-path_21 sym_87 fail-k8_1 #t)))))" "(define-values" "(1/dynamic-require-for-syntax)" "(let-values(((dynamic-require-for-syntax18_0)" @@ -45401,7 +45327,7 @@ static const char *startup_source = "(begin" " 'dynamic-require-for-syntax18" "(let-values(((mod-path_22) mod-path16_0))" -"(let-values(((sym_87) sym17_1))" +"(let-values(((sym_88) sym17_1))" "(let-values(((fail-k_4)(if fail-k15_0 fail-k14_0 default-dynamic-require-fail-thunk)))" "(let-values()" "(with-continuation-mark" @@ -45409,63 +45335,63 @@ static const char *startup_source = "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " 1/current-namespace" -"(let-values(((ns_106)(1/current-namespace)))" -"(namespace->namespace-at-phase ns_106(add1(namespace-phase ns_106)))))" +"(let-values(((ns_110)(1/current-namespace)))" +"(namespace->namespace-at-phase ns_110(add1(namespace-phase ns_110)))))" "(let-values()" -"(do-dynamic-require 'dynamic-require-for-syntax mod-path_22 sym_87 fail-k_4)))))))))))" +"(do-dynamic-require 'dynamic-require-for-syntax mod-path_22 sym_88 fail-k_4)))))))))))" "(case-lambda" -"((mod-path_23 sym_88)" -"(begin 'dynamic-require-for-syntax(dynamic-require-for-syntax18_0 mod-path_23 sym_88 #f #f)))" -"((mod-path_24 sym_89 fail-k14_1)(dynamic-require-for-syntax18_0 mod-path_24 sym_89 fail-k14_1 #t)))))" -" (define-values (replace-me) (lambda (who_0) (begin (lambda args_9 (error who_0 \"this stub must be replaced\")))))" +"((mod-path_23 sym_89)" +"(begin 'dynamic-require-for-syntax(dynamic-require-for-syntax18_0 mod-path_23 sym_89 #f #f)))" +"((mod-path_24 sym_90 fail-k14_1)(dynamic-require-for-syntax18_0 mod-path_24 sym_90 fail-k14_1 #t)))))" +" (define-values (replace-me) (lambda (who_0) (begin (lambda args_6 (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_49)" +"(lambda(p_48)" "(begin" -"(if((lambda(p_50)(if(procedure? p_50)(procedure-arity-includes? p_50 1) #f)) p_49)" +"(if((lambda(p_49)(if(procedure? p_49)(procedure-arity-includes? p_49 1) #f)) p_48)" "(void)" -" (let-values () (raise-argument-error 'current-eval \"(procedure-arity-includes/c 1)\" p_49)))" -" p_49))))))" +" (let-values () (raise-argument-error 'current-eval \"(procedure-arity-includes/c 1)\" p_48)))" +" p_48))))))" "(define-values" "(1/current-compile)" "(let-values()" "(let-values()" "(make-parameter" "(replace-me 'current-compile)" -"(lambda(p_34)" +"(lambda(p_30)" "(begin" -"(if((lambda(p_51)(if(procedure? p_51)(procedure-arity-includes? p_51 2) #f)) p_34)" +"(if((lambda(p_50)(if(procedure? p_50)(procedure-arity-includes? p_50 2) #f)) p_30)" "(void)" -" (let-values () (raise-argument-error 'current-compile \"(procedure-arity-includes/c 2)\" p_34)))" -" p_34))))))" +" (let-values () (raise-argument-error 'current-compile \"(procedure-arity-includes/c 2)\" p_30)))" +" p_30))))))" "(define-values" "(1/current-load)" "(let-values()" "(let-values()" "(make-parameter" "(replace-me 'current-load)" -"(lambda(p_52)" +"(lambda(p_51)" "(begin" -"(if((lambda(p_53)(if(procedure? p_53)(procedure-arity-includes? p_53 2) #f)) p_52)" +"(if((lambda(p_52)(if(procedure? p_52)(procedure-arity-includes? p_52 2) #f)) p_51)" "(void)" -" (let-values () (raise-argument-error 'current-load \"(procedure-arity-includes/c 2)\" p_52)))" -" p_52))))))" +" (let-values () (raise-argument-error 'current-load \"(procedure-arity-includes/c 2)\" p_51)))" +" p_51))))))" "(define-values" "(1/current-load/use-compiled)" "(let-values()" "(let-values()" "(make-parameter" "(replace-me 'current-load/use-compiled)" -"(lambda(p_38)" +"(lambda(p_34)" "(begin" -"(if((lambda(p_47)(if(procedure? p_47)(procedure-arity-includes? p_47 2) #f)) p_38)" +"(if((lambda(p_46)(if(procedure? p_46)(procedure-arity-includes? p_46 2) #f)) p_34)" "(void)" -" (let-values () (raise-argument-error 'current-load/use-compiled \"(procedure-arity-includes/c 2)\" p_38)))" -" p_38))))))" +" (let-values () (raise-argument-error 'current-load/use-compiled \"(procedure-arity-includes/c 2)\" p_34)))" +" p_34))))))" "(define-values" "(1/current-library-collection-paths)" "(let-values()" @@ -45474,7 +45400,7 @@ static const char *startup_source = " null" "(lambda(l_7)" "(begin" -"(if((lambda(l_73)(if(list? l_73)(andmap2 complete-path-string? l_73) #f)) l_7)" +"(if((lambda(l_70)(if(list? l_70)(andmap2 complete-path-string? l_70) #f)) l_7)" "(void)" "(let-values()" "(raise-argument-error" @@ -45488,41 +45414,41 @@ static const char *startup_source = "(let-values()" "(make-parameter" " null" -"(lambda(l_74)" +"(lambda(l_71)" "(begin" "(if((lambda(l_8)" "(if(list? l_8)" "(andmap2" -"(lambda(p_54)" -"(let-values(((or-part_293)(not p_54)))" -"(if or-part_293" -" or-part_293" -"(let-values(((or-part_294)(complete-path-string? p_54)))" +"(lambda(p_53)" +"(let-values(((or-part_294)(not p_53)))" "(if or-part_294" " or-part_294" -"(if(hash? p_54)" -"(let-values(((ht_145) p_54))" +"(let-values(((or-part_295)(complete-path-string? p_53)))" +"(if or-part_295" +" or-part_295" +"(if(hash? p_53)" +"(let-values(((ht_147) p_53))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_145)))" -"((letrec-values(((for-loop_178)" -"(lambda(result_111 i_86)" +"(let-values()(check-in-hash ht_147)))" +"((letrec-values(((for-loop_181)" +"(lambda(result_110 i_89)" "(begin" " 'for-loop" -"(if i_86" +"(if i_89" "(let-values(((k_34 v_3)" -"(hash-iterate-key+value ht_145 i_86)))" +"(hash-iterate-key+value ht_147 i_89)))" +"(let-values(((result_111)" +"(let-values()" "(let-values(((result_112)" "(let-values()" -"(let-values(((result_113)" "(let-values()" -"(let-values()" -"(if(let-values(((or-part_84)" +"(if(let-values(((or-part_77)" "(not" " k_34)))" -"(if or-part_84" -" or-part_84" +"(if or-part_77" +" or-part_77" "(if(symbol?" " k_34)" "(1/module-path?" @@ -45534,22 +45460,22 @@ static const char *startup_source = " v_3)" " #f)" " #f)))))" -"(values result_113)))))" -"(if(if(not((lambda x_80(not result_112)) k_34 v_3))" +"(values result_112)))))" +"(if(if(not((lambda x_79(not result_111)) k_34 v_3))" "(not #f)" " #f)" -"(for-loop_178" -" result_112" -"(hash-iterate-next ht_145 i_86))" -" result_112)))" -" result_111)))))" -" for-loop_178)" +"(for-loop_181" +" result_111" +"(hash-iterate-next ht_147 i_89))" +" result_111)))" +" result_110)))))" +" for-loop_181)" " #t" -"(hash-iterate-first ht_145))))" +"(hash-iterate-first ht_147))))" " #f))))))" " l_8)" " #f))" -" l_74)" +" l_71)" "(void)" "(let-values()" "(raise-argument-error" @@ -45559,49 +45485,49 @@ 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_74)))" +" l_71)))" "(map2" -"(lambda(p_7)" -"(if(not p_7)" +"(lambda(p_3)" +"(if(not p_3)" "(let-values() #f)" -"(if(path? p_7)" -"(let-values() p_7)" -"(if(string? p_7)" -"(let-values()(string->path p_7))" +"(if(path? p_3)" +"(let-values() p_3)" +"(if(string? p_3)" +"(let-values()(string->path p_3))" "(let-values()" -"(let-values(((ht_146) p_7))" +"(let-values(((ht_148) p_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_146)))" -"((letrec-values(((for-loop_259)" -"(lambda(table_203 i_87)" +"(let-values()(check-in-hash ht_148)))" +"((letrec-values(((for-loop_266)" +"(lambda(table_204 i_90)" "(begin" " 'for-loop" -"(if i_87" -"(let-values(((k_35 v_193)(hash-iterate-key+value ht_146 i_87)))" -"(let-values(((table_204)" -"(let-values(((table_106) table_203))" +"(if i_90" +"(let-values(((k_35 v_197)(hash-iterate-key+value ht_148 i_90)))" "(let-values(((table_205)" +"(let-values(((table_106) table_204))" +"(let-values(((table_206)" "(let-values()" -"(let-values(((key_82 val_73)" +"(let-values(((key_81 val_72)" "(let-values()" "(values" " k_35" -"(to-path v_193)))))" +"(to-path v_197)))))" "(hash-set" " table_106" -" key_82" -" val_73)))))" -"(values table_205)))))" +" key_81" +" val_72)))))" +"(values table_206)))))" "(if(not #f)" -"(for-loop_259 table_204(hash-iterate-next ht_146 i_87))" -" table_204)))" -" table_203)))))" -" for-loop_259)" +"(for-loop_266 table_205(hash-iterate-next ht_148 i_90))" +" table_205)))" +" table_204)))))" +" for-loop_266)" " '#hash()" -"(hash-iterate-first ht_146)))))))))" -" l_74)))))))" +"(hash-iterate-first ht_148)))))))))" +" l_71)))))))" "(define-values" "(1/use-compiled-file-paths)" "(let-values()" @@ -45610,7 +45536,7 @@ static const char *startup_source = " (list (string->path \"compiled\"))" "(lambda(l_48)" "(begin" -"(if((lambda(l_75)(if(list? l_75)(andmap2 relative-path-string?$1 l_75) #f)) l_48)" +"(if((lambda(l_72)(if(list? l_72)(andmap2 relative-path-string?$1 l_72) #f)) l_48)" "(void)" "(let-values()" " (raise-argument-error 'use-compiled-file-paths \"(listof (and/c path-string? relative-path?))\" l_48)))" @@ -45621,42 +45547,42 @@ static const char *startup_source = "(let-values()" "(make-parameter" " '(same)" -"(lambda(l_76)" +"(lambda(l_73)" "(begin" -"(if((lambda(l_77)" -"(if(list? l_77)" +"(if((lambda(l_74)" +"(if(list? l_74)" "(andmap2" -"(lambda(p_55)" -"(let-values(((or-part_8)(path-string? p_55)))(if or-part_8 or-part_8(eq? p_55 'same))))" -" l_77)" +"(lambda(p_54)" +"(let-values(((or-part_8)(path-string? p_54)))(if or-part_8 or-part_8(eq? p_54 'same))))" +" l_74)" " #f))" -" l_76)" +" l_73)" "(void)" "(let-values()" -" (raise-argument-error 'current-compiled-file-roots \"(listof (or/c path-string? 'same))\" l_76)))" -"(map2 to-path l_76)))))))" +" (raise-argument-error 'current-compiled-file-roots \"(listof (or/c path-string? 'same))\" l_73)))" +"(map2 to-path l_73)))))))" "(define-values" "(1/use-compiled-file-check)" "(let-values()" "(let-values()" "(make-parameter" " 'modify-seconds" -"(lambda(v_182)" +"(lambda(v_198)" "(begin" -"(if((lambda(v_67)" -"(let-values(((or-part_27)(eq? v_67 'modify-seconds)))" -"(if or-part_27 or-part_27(eq? v_67 'exists))))" -" v_182)" +"(if((lambda(v_63)" +"(let-values(((or-part_21)(eq? v_63 'modify-seconds)))" +"(if or-part_21 or-part_21(eq? v_63 'exists))))" +" v_198)" "(void)" -" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_182)))" -" v_182))))))" -"(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_79)(if v_79 #t #f))))" -"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_194)(if v_194 #t #f))))" -"(define-values(complete-path-string?)(lambda(p_24)(begin(if(path-string? p_24)(complete-path? p_24) #f))))" +" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_198)))" +" v_198))))))" +"(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_76)(if v_76 #t #f))))" +"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_199)(if v_199 #t #f))))" +"(define-values(complete-path-string?)(lambda(p_20)(begin(if(path-string? p_20)(complete-path? p_20) #f))))" "(define-values" "(relative-path-string?$1)" -"(lambda(p_56)(begin 'relative-path-string?(if(path-string? p_56)(relative-path? p_56) #f))))" -"(define-values(to-path)(lambda(p_57)(begin(if(string? p_57)(string->path p_57) p_57))))" +"(lambda(p_55)(begin 'relative-path-string?(if(path-string? p_55)(relative-path? p_55) #f))))" +"(define-values(to-path)(lambda(p_56)(begin(if(string? p_56)(string->path p_56) p_56))))" "(define-values" "(1/load)" "(lambda(s_0)" @@ -45669,19 +45595,19 @@ static const char *startup_source = "(call-with-current-load-relative-directory s_0(lambda()((1/current-load) s_0 #f)))))))))" "(define-values" "(1/load-extension)" -"(lambda(s_157)" +"(lambda(s_155)" "(begin" " 'load-extension" "(let-values()" "(let-values()" "(begin" -" (if (path-string? s_157) (void) (let-values () (raise-argument-error 'load-extension \"path-string?\" s_157)))" -"(call-with-current-load-relative-directory s_157(lambda()((current-load-extension) s_157 #f)))))))))" +" (if (path-string? s_155) (void) (let-values () (raise-argument-error 'load-extension \"path-string?\" s_155)))" +"(call-with-current-load-relative-directory s_155(lambda()((current-load-extension) s_155 #f)))))))))" "(define-values" "(call-with-current-load-relative-directory)" -"(lambda(p_50 thunk_4)" +"(lambda(p_49 thunk_4)" "(begin" -"(let-values(((base_2 name_3 dir?_2)(split-path p_50)))" +"(let-values(((base_2 name_3 dir?_2)(split-path p_49)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -45703,34 +45629,34 @@ static const char *startup_source = "((1/current-load/use-compiled) f_35 #f)))))))" "(define-values" "(embedded-load)" -"(lambda(start_42 end_31 str_24 as-predefined?_0)" +"(lambda(start_41 end_31 str_24 as-predefined?_0)" "(begin" -"(let-values(((s_170)" +"(let-values(((s_168)" "(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_43)" -"(let-values(((or-part_34)(1/string->number start_42)))" -"(if or-part_34 or-part_34 0))))" +"(let-values(((start_42)" +"(let-values(((or-part_28)(1/string->number start_41)))" +"(if or-part_28 or-part_28 0))))" "(let-values(((end_32)" -"(let-values(((or-part_293)(1/string->number end_31)))" -"(if or-part_293 or-part_293 0))))" +"(let-values(((or-part_294)(1/string->number end_31)))" +"(if or-part_294 or-part_294 0))))" "(let-values(((exe4_0) exe_0)" "((temp5_6)" "(lambda()" "(begin" " 'temp5" "(begin" -"(file-position(current-input-port) start_43)" -"(read-bytes(max 0(- end_32 start_43))))))))" +"(file-position(current-input-port) start_42)" +"(read-bytes(max 0(- end_32 start_42))))))))" "(with-input-from-file45.1 #f #f exe4_0 temp5_6)))))))))" -"(let-values(((p_58)(open-input-bytes s_170)))" +"(let-values(((p_57)(open-input-bytes s_168)))" "((letrec-values(((loop_2)" "(lambda()" "(begin" " 'loop" -"(let-values(((e_73)" +"(let-values(((e_39)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -45743,8 +45669,8 @@ static const char *startup_source = " #t" " read-on-demand-source" " #t)" -"(let-values()(1/read p_58)))))" -"(if(eof-object? e_73)" +"(let-values()(1/read p_57)))))" +"(if(eof-object? e_39)" "(void)" "(let-values()" "(begin" @@ -45754,7 +45680,7 @@ 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_73)))" +"(let-values()((1/current-eval) e_39)))" "(loop_2)))))))))" " loop_2)))))))" "(define-values" @@ -45777,20 +45703,20 @@ static const char *startup_source = "(path->complete-path" "(find-executable-path(find-system-path 'exec-file))" "(find-system-path 'orig-dir))))" -"(let-values(((base_18 name_65 dir?_3)(split-path exec_0)))" +"(let-values(((base_18 name_63 dir?_3)(split-path exec_0)))" "(simplify-path(path->complete-path collects-path_0 base_18)))))" "(let-values()" -"(let-values(((p_59)(find-executable-path(find-system-path 'exec-file) collects-path_0 #t)))" -"(if p_59(simplify-path p_59) #f))))))))" +"(let-values(((p_58)(find-executable-path(find-system-path 'exec-file) collects-path_0 #t)))" +"(if p_58(simplify-path p_58) #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_23 s_157 l_4)" +"(lambda(who_23 s_155 l_4)" "(begin" "(begin" -"(if(relative-path-string? s_157)" +"(if(relative-path-string? s_155)" "(void)" -" (let-values () (raise-argument-error who_23 \"(and/c path-string? relative-path?)\" s_157)))" +" (let-values () (raise-argument-error who_23 \"(and/c path-string? relative-path?)\" s_155)))" "(if((lambda(l_2)(if(list? l_2)(andmap2 relative-path-string? l_2) #f)) l_4)" "(void)" " (let-values () (raise-argument-error who_23 \"(listof (and/c path-string? relative-path?))\" l_4)))))))" @@ -45798,7 +45724,7 @@ static const char *startup_source = "(check-fail)" "(lambda(who_24 fail_2)" "(begin" -"(if((lambda(p_51)(if(procedure? p_51)(procedure-arity-includes? p_51 1) #f)) fail_2)" +"(if((lambda(p_50)(if(procedure? p_50)(procedure-arity-includes? p_50 1) #f)) fail_2)" "(void)" " (let-values () (raise-argument-error who_24 \"(procedure-arity-includes/c 1)\" fail_2))))))" "(define-values" @@ -45829,13 +45755,13 @@ static const char *startup_source = "(find-col-file fail_4 collection_1 collection-path_1 file-name_0 check-compiled?_0)))))))" "(define-values" "(get-config-table)" -"(lambda(d_34)" +"(lambda(d_33)" "(begin" -" (let-values (((p_60) (if d_34 (build-path d_34 \"config.rktd\") #f)))" +" (let-values (((p_59) (if d_33 (build-path d_33 \"config.rktd\") #f)))" "(let-values(((or-part_289)" -"(if p_60" -"(if(file-exists? p_60)" -"(let-values(((p9_0) p_60)" +"(if p_59" +"(if(file-exists? p_59)" +"(let-values(((p9_0) p_59)" "((temp10_3)" "(lambda()" "(begin" @@ -45860,53 +45786,53 @@ static const char *startup_source = "(if(path? p_1)(let-values()(collects-relative-path->complete-path p_1))(let-values() p_1)))))))" "(define-values" "(collects-relative-path->complete-path)" -"(lambda(p_61)" +"(lambda(p_60)" "(begin" -"(if(complete-path? p_61)" -"(let-values() p_61)" +"(if(complete-path? p_60)" +"(let-values() p_60)" "(let-values()" "(path->complete-path" -" p_61" -"(let-values(((or-part_166)(find-main-collects)))(if or-part_166 or-part_166(current-directory)))))))))" +" p_60" +"(let-values(((or-part_172)(find-main-collects)))(if or-part_172 or-part_172(current-directory)))))))))" "(define-values" "(add-config-search)" -"(lambda(ht_147 key_83 orig-l_9)" +"(lambda(ht_149 key_82 orig-l_9)" "(begin" -"(let-values(((l_66)(hash-ref ht_147 key_83 #f)))" -"(if l_66" -"((letrec-values(((loop_102)" -"(lambda(l_67)" +"(let-values(((l_75)(hash-ref ht_149 key_82 #f)))" +"(if l_75" +"((letrec-values(((loop_98)" +"(lambda(l_76)" "(begin" " 'loop" -"(if(null? l_67)" +"(if(null? l_76)" "(let-values() null)" -"(if(not(car l_67))" -"(let-values()(append orig-l_9(loop_102(cdr l_67))))" -"(let-values()(cons(coerce-to-path(car l_67))(loop_102(cdr l_67))))))))))" -" loop_102)" -" l_66)" +"(if(not(car l_76))" +"(let-values()(append orig-l_9(loop_98(cdr l_76))))" +"(let-values()(cons(coerce-to-path(car l_76))(loop_98(cdr l_76))))))))))" +" loop_98)" +" l_75)" " orig-l_9)))))" "(define-values" "(1/find-library-collection-links)" "(lambda()" "(begin" " 'find-library-collection-links" -"(let-values(((ht_148)(get-config-table(find-main-config))))" +"(let-values(((ht_150)(get-config-table(find-main-config))))" "(let-values(((lf_0)" "(coerce-to-path" -"(let-values(((or-part_76)(hash-ref ht_148 'links-file #f)))" -"(if or-part_76" -" or-part_76" +"(let-values(((or-part_70)(hash-ref ht_150 'links-file #f)))" +"(if or-part_70" +" or-part_70" "(build-path" -"(let-values(((or-part_77)(hash-ref ht_148 'share-dir #f)))" -" (if or-part_77 or-part_77 (build-path 'up \"share\")))" +"(let-values(((or-part_71)(hash-ref ht_150 'share-dir #f)))" +" (if or-part_71 or-part_71 (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_148) \"links.rktd\"))" +" (list (build-path (find-system-path 'addon-dir) (get-installation-name ht_150) \"links.rktd\"))" " null)" -"(if(1/use-collection-link-paths)(add-config-search ht_148 'links-search-files(list lf_0)) null)))))))" +"(if(1/use-collection-link-paths)(add-config-search ht_150 'links-search-files(list lf_0)) null)))))))" "(define-values(links-cache)(make-weak-hash))" "(define-values(stamp-prompt-tag)(make-continuation-prompt-tag 'stamp))" "(define-values" @@ -45926,17 +45852,17 @@ static const char *startup_source = "(lambda()" "(let-values(((dir-evt_0)" "(if(vector-ref(system-type 'fs-change) 2)" -"((letrec-values(((loop_65)" +"((letrec-values(((loop_61)" "(lambda(path_8)" "(begin" " 'loop" -"(let-values(((base_19 name_66 dir?_4)(split-path path_8)))" +"(let-values(((base_19 name_64 dir?_4)(split-path path_8)))" "(if(path? base_19)" "(if(directory-exists? base_19)" "(filesystem-change-evt base_19(lambda() #f))" -"(loop_65 base_19))" +"(loop_61 base_19))" " #f))))))" -" loop_65)" +" loop_61)" " path_7)" " #f)))" "(if(not(file-exists? path_7))" @@ -45956,27 +45882,27 @@ static const char *startup_source = "(begin" "(let-values(((path11_0) path_9)" "((temp12_3)" -"(lambda(p_62)" +"(lambda(p_61)" "(begin" " 'temp12" -"(let-values(((bstr_1)(read-bytes 8192 p_62)))" +"(let-values(((bstr_1)(read-bytes 8192 p_61)))" "(if(if(bytes? bstr_1)(>=(bytes-length bstr_1) 8192) #f)" "(apply" " bytes-append" "(cons" " bstr_1" -"((letrec-values(((loop_103)" +"((letrec-values(((loop_99)" "(lambda()" "(begin" " 'loop" -"(let-values(((bstr_2)(read-bytes 8192 p_62)))" -"(if(eof-object? bstr_2) null(cons bstr_2(loop_103))))))))" -" loop_103))))" +"(let-values(((bstr_2)(read-bytes 8192 p_61)))" +"(if(eof-object? bstr_2) null(cons bstr_2(loop_99))))))))" +" loop_99))))" " bstr_1))))))" "(call-with-input-file*61.1 #f #f path11_0 temp12_3)))))" "(define-values" "(no-file-stamp?)" -"(lambda(a_70)(begin(let-values(((or-part_59)(not a_70)))(if or-part_59 or-part_59(not(car a_70)))))))" +"(lambda(a_64)(begin(let-values(((or-part_31)(not a_64)))(if or-part_31 or-part_31(not(car a_64)))))))" "(define-values" "(get-linked-collections)" "(lambda(links-path_0)" @@ -45990,11 +45916,11 @@ static const char *startup_source = "(lambda(exn_1)" "(begin" "(if(exn:fail? exn_1)" -"(let-values(((l_78)(current-logger)))" -"(if(log-level? l_78 'error)" +"(let-values(((l_77)(current-logger)))" +"(if(log-level? l_77 'error)" "(let-values()" "(log-message" -" l_78" +" l_77" " 'error" "(format" " \"error reading collection links file ~s: ~a\"" @@ -46021,62 +45947,62 @@ static const char *startup_source = "(lambda()" "(call-with-default-reading-parameterization" "(lambda()" -"(let-values(((v_133)" +"(let-values(((v_200)" "(if(no-file-stamp? ts_1)" " null" "(let-values(((links-path13_0) links-path_0)" "((temp14_5)" -"(lambda(p_63)" +"(lambda(p_62)" "(begin" " 'temp14" "(begin0" -"(1/read p_63)" -"(if(eof-object?(1/read p_63))" +"(1/read p_62)" +"(if(eof-object?(1/read p_62))" "(void)" "(let-values()" " (error \"expected a single S-expression\"))))))))" "(call-with-input-file*61.1 #f #f links-path13_0 temp14_5)))))" "(let-values((()" "(begin" -"(if(if(list? v_133)" +"(if(if(list? v_200)" "(andmap2" -"(lambda(p_64)" -"(if(list? p_64)" -"(if(let-values(((or-part_70)(= 2(length p_64))))" -"(if or-part_70 or-part_70(= 3(length p_64))))" -"(if(let-values(((or-part_298)(string?(car p_64))))" -"(if or-part_298" -" or-part_298" -"(let-values(((or-part_299)" -"(eq? 'root(car p_64))))" +"(lambda(p_63)" +"(if(list? p_63)" +"(if(let-values(((or-part_63)(= 2(length p_63))))" +"(if or-part_63 or-part_63(= 3(length p_63))))" +"(if(let-values(((or-part_299)(string?(car p_63))))" "(if or-part_299" " or-part_299" -"(eq? 'static-root(car p_64))))))" -"(if(path-string?(cadr p_64))" -"(let-values(((or-part_71)(null?(cddr p_64))))" -"(if or-part_71 or-part_71(regexp?(caddr p_64))))" +"(let-values(((or-part_300)" +"(eq? 'root(car p_63))))" +"(if or-part_300" +" or-part_300" +"(eq? 'static-root(car p_63))))))" +"(if(path-string?(cadr p_63))" +"(let-values(((or-part_64)(null?(cddr p_63))))" +"(if or-part_64 or-part_64(regexp?(caddr p_63))))" " #f)" " #f)" " #f)" " #f))" -" v_133)" +" v_200)" " #f)" "(void)" " (let-values () (error \"ill-formed content\")))" "(values))))" -"(let-values(((ht_149)(make-hasheq)))" +"(let-values(((ht_151)(make-hasheq)))" "(let-values(((dir_0)" -"(let-values(((base_20 name_42 dir?_5)(split-path links-path_0)))" +"(let-values(((base_20 name_65 dir?_5)(split-path links-path_0)))" " base_20)))" "(begin" "(for-each2" -"(lambda(p_65)" -"(if(let-values(((or-part_72)(null?(cddr p_65))))" -"(if or-part_72 or-part_72(regexp-match?(caddr p_65)(version))))" +"(lambda(p_64)" +"(if(let-values(((or-part_65)(null?(cddr p_64))))" +"(if or-part_65 or-part_65(regexp-match?(caddr p_64)(version))))" "(let-values()" "(let-values(((dir_1)" -"(simplify-path(path->complete-path(cadr p_65) dir_0))))" -"(if(eq?(car p_65) 'static-root)" +"(simplify-path(path->complete-path(cadr p_64) dir_0))))" +"(if(eq?(car p_64) 'static-root)" "(let-values()" "(for-each2" "(lambda(sub_1)" @@ -46084,54 +46010,54 @@ static const char *startup_source = "(let-values()" "(let-values(((k_36)(string->symbol(path->string sub_1))))" "(hash-set!" -" ht_149" +" ht_151" " k_36" -"(cons dir_1(hash-ref ht_149 k_36 null)))))" +"(cons dir_1(hash-ref ht_151 k_36 null)))))" "(void)))" "(directory-list dir_1)))" -"(if(eq?(car p_65) 'root)" +"(if(eq?(car p_64) 'root)" "(let-values()" "(begin" -"(if(hash-ref ht_149 #f #f)" +"(if(hash-ref ht_151 #f #f)" "(void)" -"(let-values()(hash-set! ht_149 #f null)))" +"(let-values()(hash-set! ht_151 #f null)))" "(hash-for-each" -" ht_149" -"(lambda(k_37 v_195)" -"(hash-set! ht_149 k_37(cons dir_1 v_195))))))" +" ht_151" +"(lambda(k_37 v_201)" +"(hash-set! ht_151 k_37(cons dir_1 v_201))))))" "(let-values()" -"(let-values(((s_16)(string->symbol(car p_65))))" +"(let-values(((s_16)(string->symbol(car p_64))))" "(hash-set!" -" ht_149" +" ht_151" " s_16" -"(cons(box dir_1)(hash-ref ht_149 s_16 null)))))))))" +"(cons(box dir_1)(hash-ref ht_151 s_16 null)))))))))" "(void)))" -" v_133)" +" v_200)" "(hash-for-each" -" ht_149" -"(lambda(k_38 v_196)(hash-set! ht_149 k_38(reverse$1 v_196))))" -"(hash-set! links-cache links-path_0(cons ts_1 ht_149))" -" ht_149))))))))))))))))))))))" +" ht_151" +"(lambda(k_38 v_202)(hash-set! ht_151 k_38(reverse$1 v_202))))" +"(hash-set! links-cache links-path_0(cons ts_1 ht_151))" +" ht_151))))))))))))))))))))))" "(define-values" "(normalize-collection-reference)" "(lambda(collection_2 collection-path_2)" "(begin" "(if(string? collection_2)" "(let-values()" -" (let-values (((m_22) (regexp-match-positions '#rx\"/+\" collection_2)))" -"(if m_22" -"(if(=(caar m_22)(sub1(string-length collection_2)))" -"(let-values()(values(substring collection_2 0(caar m_22)) collection-path_2))" +" (let-values (((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()" "(values" -"(substring collection_2 0(caar m_22))" -"(cons(substring collection_2(cdar m_22)) collection-path_2))))" +"(substring collection_2 0(caar m_23))" +"(cons(substring collection_2(cdar m_23)) collection-path_2))))" "(values collection_2 collection-path_2))))" "(let-values()" -"(let-values(((base_21 name_67 dir?_6)(split-path collection_2)))" +"(let-values(((base_21 name_66 dir?_6)(split-path collection_2)))" "(if(eq? base_21 'relative)" -"(values name_67 collection-path_2)" -"(normalize-collection-reference base_21(cons name_67 collection-path_2)))))))))" +"(values name_66 collection-path_2)" +"(normalize-collection-reference base_21(cons name_66 collection-path_2)))))))))" "(define-values" "(find-col-file)" "(lambda(fail_5 collection-in_0 collection-path-in_0 file-name_1 check-compiled?_1)" @@ -46139,41 +46065,41 @@ static const char *startup_source = "(let-values(((collection_3 collection-path_3)" "(normalize-collection-reference collection-in_0 collection-path-in_0)))" "(let-values(((all-paths_0)" -"(let-values(((sym_90)" +"(let-values(((sym_91)" "(string->symbol" "(if(path? collection_3)(path->string collection_3) collection_3))))" -"((letrec-values(((loop_104)" -"(lambda(l_79)" +"((letrec-values(((loop_100)" +"(lambda(l_78)" "(begin" " 'loop" -"(if(null? l_79)" +"(if(null? l_78)" "(let-values() null)" -"(if(not(car l_79))" +"(if(not(car l_78))" "(let-values()" -"(append(1/current-library-collection-paths)(loop_104(cdr l_79))))" -"(if(hash?(car l_79))" +"(append(1/current-library-collection-paths)(loop_100(cdr l_78))))" +"(if(hash?(car l_78))" "(let-values()" "(append" -"(map2 box(hash-ref(car l_79) sym_90 null))" -"(hash-ref(car l_79) #f null)" -"(loop_104(cdr l_79))))" +"(map2 box(hash-ref(car l_78) sym_91 null))" +"(hash-ref(car l_78) #f null)" +"(loop_100(cdr l_78))))" "(let-values()" -"(let-values(((ht_150)(get-linked-collections(car l_79))))" +"(let-values(((ht_152)(get-linked-collections(car l_78))))" "(append" -"(hash-ref ht_150 sym_90 null)" -"(hash-ref ht_150 #f null)" -"(loop_104(cdr l_79))))))))))))" -" loop_104)" +"(hash-ref ht_152 sym_91 null)" +"(hash-ref ht_152 #f null)" +"(loop_100(cdr l_78))))))))))))" +" loop_100)" "(1/current-library-collection-links)))))" -"(let-values(((done_1)(lambda(p_15)(begin 'done(if file-name_1(build-path p_15 file-name_1) p_15)))))" +"(let-values(((done_1)(lambda(p_11)(begin 'done(if file-name_1(build-path p_11 file-name_1) p_11)))))" "(let-values(((*build-path-rep_0)" -"(lambda(p_29 c_53)" -"(begin '*build-path-rep(if(path? p_29)(build-path p_29 c_53)(unbox p_29))))))" +"(lambda(p_25 c_53)" +"(begin '*build-path-rep(if(path? p_25)(build-path p_25 c_53)(unbox p_25))))))" "(let-values(((*directory-exists?_0)" -"(lambda(orig_0 p_66)" -"(begin '*directory-exists?(if(path? orig_0)(directory-exists? p_66) #t)))))" +"(lambda(orig_0 p_45)" +"(begin '*directory-exists?(if(path? orig_0)(directory-exists? p_45) #t)))))" "(let-values(((to-string_0)" -"(lambda(p_67)(begin 'to-string(if(path? p_67)(path->string p_67) p_67)))))" +"(lambda(p_65)(begin 'to-string(if(path? p_65)(path->string p_65) p_65)))))" "((letrec-values(((cloop_0)" "(lambda(paths_1 found-col_0)" "(begin" @@ -46186,7 +46112,7 @@ static const char *startup_source = " \"\"" "(apply" " string-append" -"((letrec-values(((loop_51)" +"((letrec-values(((loop_48)" "(lambda(cp_0)" "(begin" " 'loop" @@ -46195,8 +46121,8 @@ static const char *startup_source = "(list*" "(to-string_0(car cp_0))" " \"/\"" -"(loop_51(cdr cp_0))))))))" -" loop_51)" +"(loop_48(cdr cp_0))))))))" +" loop_48)" " collection-path_3)))))" "(letrec-values(((filter_1)" "(lambda(f_37 l_28)" @@ -46216,7 +46142,7 @@ static const char *startup_source = "(apply" " string-append" "(map2" -" (lambda (p_30) (format \"\\n ~a ~a\" \" \" p_30))" +" (lambda (p_26) (format \"\\n ~a ~a\" \" \" p_26))" "(let-values(((len_34)(length all-paths_0))" "((clen_0)" "(length(1/current-library-collection-paths))))" @@ -46235,7 +46161,7 @@ static const char *startup_source = "(apply" " string-append" "(map2" -" (lambda (p_68) (format \"\\n ~a\" (unbox p_68)))" +" (lambda (p_66) (format \"\\n ~a\" (unbox p_66)))" "(filter_1 box? all-paths_0))))" " \"\"))))))" "(let-values(((dir_2)(*build-path-rep_0(car paths_1) collection_3)))" @@ -46243,13 +46169,13 @@ static const char *startup_source = "(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_144)" +"(if(let-values(((or-part_146)" "(file-exists?/maybe-compiled" " cpath_0" " file-name_1" " check-compiled?_1)))" -"(if or-part_144" -" or-part_144" +"(if or-part_146" +" or-part_146" "(let-values(((alt-file-name_0)" "(let-values(((file-name_2)" "(if(path? file-name_1)" @@ -46280,8 +46206,8 @@ static const char *startup_source = "(done_1 cpath_0)" "(cloop_0" "(cdr paths_1)" -"(let-values(((or-part_226) found-col_0))" -"(if or-part_226 or-part_226 cpath_0))))" +"(let-values(((or-part_221) found-col_0))" +"(if or-part_221 or-part_221 cpath_0))))" "(done_1 cpath_0))" "(cloop_0(cdr paths_1) found-col_0)))" "(cloop_0(cdr paths_1) found-col_0))))))))" @@ -46292,24 +46218,24 @@ static const char *startup_source = "(file-exists?/maybe-compiled)" "(lambda(dir_3 path_10 check-compiled?_2)" "(begin" -"(let-values(((or-part_104)(file-exists?(build-path dir_3 path_10))))" -"(if or-part_104" -" or-part_104" +"(let-values(((or-part_94)(file-exists?(build-path dir_3 path_10))))" +"(if or-part_94" +" or-part_94" "(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)))" "(ormap2" -"(lambda(d_35)" +"(lambda(d_34)" "(ormap2" "(lambda(mode_15)" "(file-exists?" -"(let-values(((p_69)(build-path dir_3 mode_15 try-path_0)))" -"(if(eq? d_35 'same)" -"(let-values() p_69)" -"(if(relative-path? d_35)" -"(let-values()(build-path p_69 d_35))" -"(let-values()(reroot-path p_69 d_35)))))))" +"(let-values(((p_67)(build-path dir_3 mode_15 try-path_0)))" +"(if(eq? d_34 'same)" +"(let-values() p_67)" +"(if(relative-path? d_34)" +"(let-values()(build-path p_67 d_34))" +"(let-values()(reroot-path p_67 d_34)))))))" " modes_0))" " roots_0))" " #f))))))" @@ -46324,15 +46250,15 @@ static const char *startup_source = "(let-values()" "(let-values(((user-too?_0)(1/use-user-specific-search-paths))" "((cons-if_0)" -"(lambda(f_38 r_45)(begin 'cons-if(if f_38(cons f_38 r_45) r_45))))" +"(lambda(f_38 r_44)(begin 'cons-if(if f_38(cons f_38 r_44) r_44))))" "((config-table_1)(get-config-table(find-main-config))))" "(path-list-string->path-list" "(if user-too?_0" -"(let-values(((c_11)" +"(let-values(((c_54)" "(environment-variables-ref" "(current-environment-variables)" " #\"PLTCOLLECTS\")))" -" (if c_11 (bytes->string/locale c_11 '#\\?) \"\"))" +" (if c_54 (bytes->string/locale c_54 '#\\?) \"\"))" " \"\")" "(add-config-search" " config-table_1" @@ -46344,23 +46270,23 @@ static const char *startup_source = "(get-installation-name config-table_1)" " \"collects\")" " #f)" -"((letrec-values(((loop_86)" -"(lambda(l_80)" +"((letrec-values(((loop_84)" +"(lambda(l_79)" "(begin" " 'loop" -"(if(null? l_80)" +"(if(null? l_79)" " null" -"(let-values(((collects-path_1)(car l_80)))" -"(let-values(((v_197)" +"(let-values(((collects-path_1)(car l_79)))" +"(let-values(((v_203)" "(exe-relative-path->complete-path" " collects-path_1)))" -"(if v_197" +"(if v_203" "(cons" "(simplify-path" -"(path->complete-path v_197(current-directory)))" -"(loop_86(cdr l_80)))" -"(loop_86(cdr l_80))))))))))" -" loop_86)" +"(path->complete-path v_203(current-directory)))" +"(loop_84(cdr l_79)))" +"(loop_84(cdr l_79))))))))))" +" loop_84)" "(append" " extra-collects-dirs_0" "(list(find-system-path 'collects-dir))" @@ -46375,12 +46301,12 @@ static const char *startup_source = "(1/current-readtable)" "(make-parameter" " #f" -"(lambda(v_29)" +"(lambda(v_26)" "(begin" -"(if(let-values(((or-part_0)(not v_29)))(if or-part_0 or-part_0(prop:readtable? v_29)))" +"(if(let-values(((or-part_0)(not v_26)))(if or-part_0 or-part_0(prop:readtable? v_26)))" "(void)" -" (let-values () (raise-argument-error 'current-readtable \"(or/c readtable? #f)\" v_29)))" -" v_29))))" +" (let-values () (raise-argument-error 'current-readtable \"(or/c readtable? #f)\" v_26)))" +" v_26))))" "(define-values" "(struct:read-config/outer" " read-config/outer1.1" @@ -46479,7 +46405,7 @@ static const char *startup_source = " coerce-key_0" " line_1" " col_0" -" pos_104" +" pos_107" " indentations_0" " keep-comment?_0" " parameter-override_0" @@ -46503,47 +46429,47 @@ static const char *startup_source = " wrap_3" " line_1" " col_0" -" pos_104" +" pos_107" " indentations_0" " keep-comment?_0))))" -"(define-values(read-config-wrap)(lambda(v_184)(begin(read-config/outer-wrap v_184))))" -"(define-values(read-config-line)(lambda(v_198)(begin(read-config/outer-line v_198))))" -"(define-values(read-config-col)(lambda(v_199)(begin(read-config/outer-col v_199))))" -"(define-values(read-config-pos)(lambda(v_200)(begin(read-config/outer-pos v_200))))" -"(define-values(read-config-indentations)(lambda(v_201)(begin(read-config/outer-indentations v_201))))" -"(define-values(read-config-keep-comment?)(lambda(v_202)(begin(read-config/outer-keep-comment? v_202))))" +"(define-values(read-config-wrap)(lambda(v_204)(begin(read-config/outer-wrap v_204))))" +"(define-values(read-config-line)(lambda(v_205)(begin(read-config/outer-line v_205))))" +"(define-values(read-config-col)(lambda(v_206)(begin(read-config/outer-col v_206))))" +"(define-values(read-config-pos)(lambda(v_207)(begin(read-config/outer-pos v_207))))" +"(define-values(read-config-indentations)(lambda(v_208)(begin(read-config/outer-indentations v_208))))" +"(define-values(read-config-keep-comment?)(lambda(v_209)(begin(read-config/outer-keep-comment? v_209))))" "(define-values" "(read-config-readtable)" -"(lambda(v_203)(begin(read-config/inner-readtable(read-config/outer-inner v_203)))))" +"(lambda(v_210)(begin(read-config/inner-readtable(read-config/outer-inner v_210)))))" "(define-values" "(read-config-next-readtable)" -"(lambda(v_188)(begin(read-config/inner-next-readtable(read-config/outer-inner v_188)))))" +"(lambda(v_211)(begin(read-config/inner-next-readtable(read-config/outer-inner v_211)))))" "(define-values" "(read-config-for-syntax?)" -"(lambda(v_94)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_94)))))" -"(define-values(read-config-source)(lambda(v_74)(begin(read-config/inner-source(read-config/outer-inner v_74)))))" +"(lambda(v_212)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_212)))))" +"(define-values(read-config-source)(lambda(v_70)(begin(read-config/inner-source(read-config/outer-inner v_70)))))" "(define-values" "(read-config-read-compiled)" -"(lambda(v_204)(begin(read-config/inner-read-compiled(read-config/outer-inner v_204)))))" +"(lambda(v_185)(begin(read-config/inner-read-compiled(read-config/outer-inner v_185)))))" "(define-values" "(read-config-dynamic-require)" -"(lambda(v_205)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_205)))))" +"(lambda(v_213)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_213)))))" "(define-values" "(read-config-module-declared?)" -"(lambda(v_41)(begin(read-config/inner-module-declared?(read-config/outer-inner v_41)))))" +"(lambda(v_135)(begin(read-config/inner-module-declared?(read-config/outer-inner v_135)))))" "(define-values" "(read-config-coerce)" -"(lambda(v_206)(begin(read-config/inner-coerce(read-config/outer-inner v_206)))))" +"(lambda(v_214)(begin(read-config/inner-coerce(read-config/outer-inner v_214)))))" "(define-values" "(read-config-coerce-key)" -"(lambda(v_207)(begin(read-config/inner-coerce-key(read-config/outer-inner v_207)))))" +"(lambda(v_215)(begin(read-config/inner-coerce-key(read-config/outer-inner v_215)))))" "(define-values" "(read-config-parameter-override)" -"(lambda(v_197)(begin(read-config/inner-parameter-override(read-config/outer-inner v_197)))))" +"(lambda(v_203)(begin(read-config/inner-parameter-override(read-config/outer-inner v_203)))))" "(define-values" "(read-config-parameter-cache)" -"(lambda(v_208)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_208)))))" -"(define-values(read-config-st)(lambda(v_209)(begin(read-config/inner-st(read-config/outer-inner v_209)))))" +"(lambda(v_216)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_216)))))" +"(define-values(read-config-st)(lambda(v_190)(begin(read-config/inner-st(read-config/outer-inner v_190)))))" "(define-values" "(struct:read-config-state" " read-config-state3.1" @@ -46620,21 +46546,21 @@ static const char *startup_source = " for-syntax?_1" " source_2" " wrap_4" -"(let-values(((or-part_98) read-compiled_1))" -" (if or-part_98 or-part_98 (lambda (in_0) (error 'read \"no `read-compiled` provided\"))))" -"(let-values(((or-part_100) dynamic-require_1))" -"(if or-part_100" -" or-part_100" -"(lambda(mod-path_25 sym_91 failure-k_0)" +"(let-values(((or-part_88) read-compiled_1))" +" (if or-part_88 or-part_88 (lambda (in_0) (error 'read \"no `read-compiled` provided\"))))" +"(let-values(((or-part_90) dynamic-require_1))" +"(if or-part_90" +" or-part_90" +"(lambda(mod-path_25 sym_73 failure-k_0)" " (error 'read \"no `dynamic-require` provided\"))))" -"(let-values(((or-part_229) module-declared?_1))" -"(if or-part_229" -" or-part_229" +"(let-values(((or-part_301) module-declared?_1))" +"(if or-part_301" +" or-part_301" " (lambda (mod-path_26) (error 'read \"no `module-declare?` provided\"))))" -"(let-values(((or-part_300) coerce_1))" -"(if or-part_300 or-part_300(lambda(for-syntax?_2 v_112 srcloc_9) v_112)))" -"(let-values(((or-part_301) coerce-key_1))" -"(if or-part_301 or-part_301(lambda(for-syntax?_3 v_116) v_116)))" +"(let-values(((or-part_223) coerce_1))" +"(if or-part_223 or-part_223(lambda(for-syntax?_2 v_109 srcloc_9) v_109)))" +"(let-values(((or-part_262) coerce-key_1))" +"(if or-part_262 or-part_262(lambda(for-syntax?_3 v_113) v_113)))" " #f" " #f" " #f" @@ -46664,13 +46590,13 @@ static const char *startup_source = "(let-values(((local-graph?_0) reset-graph?33_0))" "(let-values(((keep-comment?_2) keep-comment?34_0))" "(let-values()" -"(let-values(((v_210) config_0))" -"(let-values(((the-struct_80) v_210))" +"(let-values(((v_217) config_0))" +"(let-values(((the-struct_80) v_217))" "(if(read-config/outer? the-struct_80)" "(let-values(((wrap48_0) wrap_5)" "((keep-comment?49_0) keep-comment?_2)" "((inner50_1)" -"(let-values(((the-struct_81)(read-config/outer-inner v_210)))" +"(let-values(((the-struct_81)(read-config/outer-inner v_217)))" "(if(read-config/inner? the-struct_81)" "(let-values(((for-syntax?51_0) for-syntax?_4)" "((readtable52_0) readtable_2)" @@ -46715,15 +46641,15 @@ static const char *startup_source = "(if(read-config-pos config_1)(if end-pos_0(max 0(- end-pos_0(read-config-pos config_1))) #f) #f))))))" "(define-values" "(reading-at)" -"(lambda(config_2 line_2 col_1 pos_105)" +"(lambda(config_2 line_2 col_1 pos_108)" "(begin" -"(let-values(((v_211) config_2))" -"(let-values(((the-struct_82) v_211))" +"(let-values(((v_218) config_2))" +"(let-values(((the-struct_82) v_218))" "(if(read-config/outer? the-struct_82)" "(let-values(((line55_0) line_2)" "((col56_0) col_1)" -"((pos57_0) pos_105)" -"((inner58_1)(read-config/outer-inner v_211)))" +"((pos57_0) pos_108)" +"((inner58_1)(read-config/outer-inner v_218)))" "(read-config/outer1.1" " inner58_1" "(read-config/outer-wrap the-struct_82)" @@ -46737,10 +46663,10 @@ static const char *startup_source = "(disable-wrapping)" "(lambda(config_3)" "(begin" -"(let-values(((v_212) config_3))" -"(let-values(((the-struct_83) v_212))" +"(let-values(((v_219) config_3))" +"(let-values(((the-struct_83) v_219))" "(if(read-config/outer? the-struct_83)" -"(let-values(((wrap59_0) #f)((inner60_0)(read-config/outer-inner v_212)))" +"(let-values(((wrap59_0) #f)((inner60_0)(read-config/outer-inner v_219)))" "(read-config/outer1.1" " inner60_0" " wrap59_0" @@ -46754,10 +46680,10 @@ static const char *startup_source = "(keep-comment)" "(lambda(config_4)" "(begin" -"(let-values(((v_146) config_4))" -"(let-values(((the-struct_84) v_146))" +"(let-values(((v_144) config_4))" +"(let-values(((the-struct_84) v_144))" "(if(read-config/outer? the-struct_84)" -"(let-values(((keep-comment?61_0) #t)((inner62_0)(read-config/outer-inner v_146)))" +"(let-values(((keep-comment?61_0) #t)((inner62_0)(read-config/outer-inner v_144)))" "(read-config/outer1.1" " inner62_0" "(read-config/outer-wrap the-struct_84)" @@ -46774,10 +46700,10 @@ static const char *startup_source = "(if(not(read-config-keep-comment? config_5))" "(let-values() config_5)" "(let-values()" -"(let-values(((v_213) config_5))" -"(let-values(((the-struct_85) v_213))" +"(let-values(((v_220) config_5))" +"(let-values(((the-struct_85) v_220))" "(if(read-config/outer? the-struct_85)" -"(let-values(((keep-comment?63_0) #f)((inner64_0)(read-config/outer-inner v_213)))" +"(let-values(((keep-comment?63_0) #f)((inner64_0)(read-config/outer-inner v_220)))" "(read-config/outer1.1" " inner64_0" "(read-config/outer-wrap the-struct_85)" @@ -46794,11 +46720,11 @@ static const char *startup_source = "(if(eq?(read-config-readtable config_6)(read-config-next-readtable config_6))" "(let-values() config_6)" "(let-values()" -"(let-values(((v_214) config_6))" -"(let-values(((the-struct_86) v_214))" +"(let-values(((v_221) config_6))" +"(let-values(((the-struct_86) v_221))" "(if(read-config/outer? the-struct_86)" "(let-values(((inner65_0)" -"(let-values(((the-struct_87)(read-config/outer-inner v_214)))" +"(let-values(((the-struct_87)(read-config/outer-inner v_221)))" "(if(read-config/inner? the-struct_87)" "(let-values(((readtable66_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" @@ -46826,37 +46752,37 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_86)))))))))" "(define-values" "(coerce)" -"(lambda(val_74 in_2 config_7)" +"(lambda(val_73 in_2 config_7)" "(begin" "(let-values(((for-syntax?_5)(read-config-for-syntax? config_7)))" "((read-config-coerce config_7)" " for-syntax?_5" -" val_74" +" val_73" "(if for-syntax?_5(port+config->srcloc in_2 config_7) #f))))))" -"(define-values(default-reader-guard$1)(lambda(v_215)(begin 'default-reader-guard v_215)))" +"(define-values(default-reader-guard$1)(lambda(v_222)(begin 'default-reader-guard v_222)))" "(define-values" "(1/current-reader-guard)" "(make-parameter" " default-reader-guard$1" -"(lambda(v_216)" +"(lambda(v_223)" "(begin" -"(if(if(procedure? v_216)(procedure-arity-includes? v_216 1) #f)" +"(if(if(procedure? v_223)(procedure-arity-includes? v_223 1) #f)" "(void)" -" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_216)))" -" v_216))))" +" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_223)))" +" v_223))))" "(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_217)(if v_217 #t #f))))" -"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_218)(if v_218 #t #f))))" -"(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_65)(if v_65 #t #f))))" -"(define-values(1/read-cdot)(make-parameter #f(lambda(v_32)(if v_32 #t #f))))" -"(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_66)(if v_66 #t #f))))" +"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_224)(if v_224 #t #f))))" +"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_225)(if v_225 #t #f))))" +"(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_61)(if v_61 #t #f))))" +"(define-values(1/read-cdot)(make-parameter #f(lambda(v_29)(if v_29 #t #f))))" +"(define-values(1/read-accept-graph)(make-parameter #t(lambda(v_62)(if v_62 #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_85)(if v_85 #t #f))))" -"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_33)(if v_33 #t #f))))" -"(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_78)(if v_78 #t #f))))" -"(define-values(1/read-accept-infix-dot)(make-parameter #t(lambda(v_34)(if v_34 #t #f))))" +"(define-values(1/read-accept-box)(make-parameter #t(lambda(v_82)(if v_82 #t #f))))" +"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_226)(if v_226 #t #f))))" +"(define-values(1/read-accept-dot)(make-parameter #t(lambda(v_75)(if v_75 #t #f))))" +"(define-values(1/read-accept-infix-dot)(make-parameter #t(lambda(v_30)(if v_30 #t #f))))" "(define-values(1/read-accept-quasiquote)(make-parameter #t(lambda(v_3)(if v_3 #t #f))))" -"(define-values(1/read-accept-reader)(make-parameter #f(lambda(v_35)(if v_35 #t #f))))" +"(define-values(1/read-accept-reader)(make-parameter #f(lambda(v_31)(if v_31 #t #f))))" "(define-values(1/read-accept-lang)(make-parameter #t(lambda(v_4)(if v_4 #t #f))))" "(define-values(unknown)(gensym 'unknown))" "(define-values" @@ -46864,23 +46790,23 @@ static const char *startup_source = "(lambda(param_0 config_8)" "(begin" "(let-values(((cache_4)(read-config-parameter-cache config_8)))" -"(let-values(((v_68)" +"(let-values(((v_64)" "(hash-ref(read-config-parameter-override config_8) param_0(hash-ref cache_4 param_0 unknown))))" -"(if(eq? v_68 unknown)" -"(let-values()(let-values(((v_69)(param_0)))(begin(hash-set! cache_4 param_0 v_69) v_69)))" -"(let-values() v_68)))))))" +"(if(eq? v_64 unknown)" +"(let-values()(let-values(((v_65)(param_0)))(begin(hash-set! cache_4 param_0 v_65) v_65)))" +"(let-values() v_64)))))))" "(define-values" "(override-parameter)" -"(lambda(param_1 config_9 v_31)" +"(lambda(param_1 config_9 v_28)" "(begin" -"(let-values(((v_95) config_9))" -"(let-values(((the-struct_88) v_95))" +"(let-values(((v_92) config_9))" +"(let-values(((the-struct_88) v_92))" "(if(read-config/outer? the-struct_88)" "(let-values(((inner1_0)" -"(let-values(((the-struct_89)(read-config/outer-inner v_95)))" +"(let-values(((the-struct_89)(read-config/outer-inner v_92)))" "(if(read-config/inner? the-struct_89)" "(let-values(((parameter-override2_0)" -"(hash-set(read-config-parameter-override config_9) param_1 v_31)))" +"(hash-set(read-config-parameter-override config_9) param_1 v_28)))" "(read-config/inner2.1" "(read-config/inner-readtable the-struct_89)" "(read-config/inner-next-readtable the-struct_89)" @@ -46981,37 +46907,37 @@ static const char *startup_source = "(make-struct-field-accessor -ref_19 3 'delimiter-ht))))" "(define-values" "(1/make-readtable)" -"(lambda(rt_0 . args_10)" +"(lambda(rt_0 . args_7)" "(begin" " 'make-readtable" "(begin" -"(if(let-values(((or-part_61)(not rt_0)))(if or-part_61 or-part_61(1/readtable? rt_0)))" +"(if(let-values(((or-part_52)(not rt_0)))(if or-part_52 or-part_52(1/readtable? rt_0)))" "(void)" " (let-values () (raise-argument-error 'make-readtable \"(or/c readtable? #f)\" rt_0)))" -"((letrec-values(((loop_105)" -"(lambda(args_11 symbol-parser_0 char-ht_0 dispatch-ht_0 delimiter-ht_0)" +"((letrec-values(((loop_101)" +"(lambda(args_8 symbol-parser_0 char-ht_0 dispatch-ht_0 delimiter-ht_0)" "(begin" " 'loop" -"(if(null? args_11)" +"(if(null? args_8)" "(let-values()(readtable1.1 symbol-parser_0 char-ht_0 dispatch-ht_0 delimiter-ht_0))" "(let-values()" -"(let-values(((key_84)(car args_11)))" +"(let-values(((key_83)(car args_8)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_176)(not key_84)))" -"(if or-part_176 or-part_176(char? key_84)))" +"(if(let-values(((or-part_167)(not key_83)))" +"(if or-part_167 or-part_167(char? key_83)))" "(void)" "(let-values()" "(raise-argument-error" " 'make-readtable" " \"(or/c char? #f)\"" -" key_84)))" +" key_83)))" "(values))))" "(let-values((()" "(begin" -"(if(null? args_11)" +"(if(null? args_8)" "(let-values()" -"(if key_84" +"(if key_83" "(let-values()" "(raise-arguments-error" " 'make-readtable" @@ -47019,32 +46945,32 @@ static const char *startup_source = " \"expected 'terminating-macro, 'non-terminating-macro, 'dispatch-macro,\"" " \" or character argument after character argument\")" " \"character\"" -" key_84))" +" key_83))" "(let-values()" "(raise-arguments-error" " 'make-readtable" " \"expected 'non-terminating-macro after #f\"))))" "(void))" "(values))))" -"(let-values(((mode_16)(cadr args_11)))" +"(let-values(((mode_16)(cadr args_8)))" "(let-values((()" "(begin" -"(if key_84" +"(if key_83" "(let-values()" -"(if(let-values(((or-part_177)" +"(if(let-values(((or-part_168)" "(eq? mode_16 'terminating-macro)))" -"(if or-part_177" -" or-part_177" -"(let-values(((or-part_39)" +"(if or-part_168" +" or-part_168" +"(let-values(((or-part_169)" "(eq?" " mode_16" " 'non-terminating-macro)))" -"(if or-part_39" -" or-part_39" -"(let-values(((or-part_302)" +"(if or-part_169" +" or-part_169" +"(let-values(((or-part_281)" "(eq? mode_16 'dispatch-macro)))" -"(if or-part_302" -" or-part_302" +"(if or-part_281" +" or-part_281" "(char? mode_16)))))))" "(void)" "(let-values()" @@ -47062,20 +46988,20 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(null?(cddr args_11))" +"(if(null?(cddr args_8))" "(let-values()" "(raise-arguments-error" " 'make-readtable" -"(if key_84" +"(if key_83" " \"expected readtable or #f argument after character argument\"" " \"expected procedure argument after symbol argument\")" " \"given\"" " mode_16))" "(void))" "(values))))" -"(let-values(((target_0)(caddr args_11)))" -"(let-values(((rest-args_0)(cdddr args_11)))" -"(if(not key_84)" +"(let-values(((target_0)(caddr args_8)))" +"(let-values(((rest-args_0)(cdddr args_8)))" +"(if(not key_83)" "(let-values()" "(begin" "(if(if(procedure? target_0)" @@ -47087,7 +47013,7 @@ static const char *startup_source = " 'make-readtable" " \"(procedure-arity-includes/c 6)\"" " target_0)))" -"(loop_105" +"(loop_101" " rest-args_0" " target_0" " char-ht_0" @@ -47105,20 +47031,20 @@ static const char *startup_source = " 'make-readtable" " \"(procedure-arity-includes/c 6)\"" " target_0)))" -"(loop_105" +"(loop_101" " rest-args_0" " symbol-parser_0" " char-ht_0" -"(hash-set dispatch-ht_0 key_84 target_0)" +"(hash-set dispatch-ht_0 key_83 target_0)" " delimiter-ht_0)))" "(if(char? mode_16)" "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_105)" +"(if(let-values(((or-part_95)" "(not target_0)))" -"(if or-part_105" -" or-part_105" +"(if or-part_95" +" or-part_95" "(1/readtable? target_0)))" "(void)" "(let-values()" @@ -47128,32 +47054,32 @@ static const char *startup_source = " target_0)))" "(values))))" "(let-values(((actual-target_0)" -"(let-values(((or-part_178)" +"(let-values(((or-part_170)" "(if target_0" "(hash-ref" "(readtable-char-ht target_0)" " mode_16" " #f)" " #f)))" -"(if or-part_178 or-part_178 mode_16))))" +"(if or-part_170 or-part_170 mode_16))))" "(let-values(((new-char-ht_0)" "(if actual-target_0" "(hash-set" " char-ht_0" -" key_84" +" key_83" " actual-target_0)" -"(hash-remove char-ht_0 key_84))))" +"(hash-remove char-ht_0 key_83))))" "(let-values(((new-delimiter-ht_0)" "(hash-set" " delimiter-ht_0" -" key_84" +" key_83" "(if target_0" "(hash-ref" "(readtable-delimiter-ht target_0)" " mode_16" " mode_16)" " mode_16))))" -"(loop_105" +"(loop_101" " rest-args_0" " symbol-parser_0" " new-char-ht_0" @@ -47173,38 +47099,38 @@ static const char *startup_source = " target_0)))" "(values))))" "(let-values(((new-char-ht_1)" -"(hash-set char-ht_0 key_84 target_0)))" +"(hash-set char-ht_0 key_83 target_0)))" "(let-values(((new-delimiter-ht_1)" "(hash-set" " delimiter-ht_0" -" key_84" +" key_83" "(if(eq? mode_16 'terminating-macro)" " 'delimit" " 'no-delimit))))" -"(loop_105" +"(loop_101" " rest-args_0" " symbol-parser_0" " new-char-ht_1" " dispatch-ht_0" " new-delimiter-ht_1))))))))))))))))))))))" -" loop_105)" -" args_10" +" loop_101)" +" args_7" "(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_54)" +"(lambda(rt_1 c_55)" "(begin" -"(let-values(((target_1)(hash-ref(readtable-char-ht rt_1) c_54 #f)))" -"(if(not target_1)(let-values() c_54)(if(char? target_1)(let-values() target_1)(let-values() '#\\x)))))))" +"(let-values(((target_1)(hash-ref(readtable-char-ht rt_1) c_55 #f)))" +"(if(not target_1)(let-values() c_55)(if(char? target_1)(let-values() target_1)(let-values() '#\\x)))))))" "(define-values" "(effective-char)" -"(lambda(c_55 config_11)" +"(lambda(c_45 config_11)" "(begin" -"(let-values(((rt_2)(read-config-readtable config_11))((c_56) c_55))" -"(if(let-values(((or-part_29)(not rt_2)))(if or-part_29 or-part_29(not(char? c_56))))" +"(let-values(((rt_2)(read-config-readtable config_11))((c_56) c_45))" +"(if(let-values(((or-part_23)(not rt_2)))(if or-part_23 or-part_23(not(char? c_56))))" "(let-values() c_56)" "(let-values()(*readtable-effective-char rt_2 c_56)))))))" "(define-values" @@ -47225,10 +47151,10 @@ static const char *startup_source = "(if rt_4(hash-ref(readtable-dispatch-ht rt_4) c_58 #f) #f))))))" "(define-values" "(readtable-apply)" -"(lambda(handler_0 c_59 in_3 config_14 line_3 col_2 pos_106)" +"(lambda(handler_0 c_59 in_3 config_14 line_3 col_2 pos_109)" "(begin" "(let-values(((for-syntax?_6)(read-config-for-syntax? config_14)))" -"(let-values(((v_219)" +"(let-values(((v_227)" "(if(not for-syntax?_6)" "(let-values()" "(with-continuation-mark" @@ -47240,7 +47166,7 @@ static const char *startup_source = "(let-values()" "(if(procedure-arity-includes? handler_0 2)" "(handler_0 c_59 in_3)" -"(handler_0 c_59 in_3 #f line_3 col_2 pos_106)))))" +"(handler_0 c_59 in_3 #f line_3 col_2 pos_109)))))" "(let-values()" "(with-continuation-mark" " parameterization-key" @@ -47249,8 +47175,8 @@ static const char *startup_source = " current-read-config" " config_14)" "(let-values()" -"(handler_0 c_59 in_3(read-config-source config_14) line_3 col_2 pos_106)))))))" -"(if(1/special-comment? v_219) v_219(coerce v_219 in_3 config_14)))))))" +"(handler_0 c_59 in_3(read-config-source config_14) line_3 col_2 pos_109)))))))" +"(if(1/special-comment? v_227) v_227(coerce v_227 in_3 config_14)))))))" "(define-values" "(1/readtable-mapping)" "(lambda(rt_5 c_60)" @@ -47268,7 +47194,7 @@ static const char *startup_source = "(values))))" "(let-values(((handler_1)(hash-ref(readtable-char-ht rt_5) c_60 #f)))" "(values" -"(let-values(((or-part_236)" +"(let-values(((or-part_229)" "(if handler_1" "(if(char? handler_1)" "(let-values() handler_1)" @@ -47276,44 +47202,44 @@ static const char *startup_source = "(let-values() 'terminating-macro)" "(let-values() 'non-terminating-macro)))" " #f)))" -"(if or-part_236 or-part_236 c_60))" +"(if or-part_229 or-part_229 c_60))" "(if(char? handler_1) #f handler_1)" "(hash-ref(readtable-dispatch-ht rt_5) c_60 #f))))))))" "(define-values" "(readtable-equivalent-chars)" "(lambda(rt_6 c_61)" "(begin" -"(let-values(((ht_151)(readtable-char-ht rt_6)))" +"(let-values(((ht_153)(readtable-char-ht rt_6)))" "(append" -"(if(hash-ref ht_151 c_61 #f) null(list c_61))" +"(if(hash-ref ht_153 c_61 #f) null(list c_61))" "(reverse$1" -"(let-values(((ht_152) ht_151))" +"(let-values(((ht_145) ht_153))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_152)))" -"((letrec-values(((for-loop_260)" -"(lambda(fold-var_79 i_172)" +"(let-values()(check-in-hash ht_145)))" +"((letrec-values(((for-loop_262)" +"(lambda(fold-var_80 i_170)" "(begin" " 'for-loop" -"(if i_172" -"(let-values(((k_39 v_90)(hash-iterate-key+value ht_152 i_172)))" -"(let-values(((fold-var_269)" -"(let-values(((fold-var_82) fold-var_79))" -"(if(eqv? v_90 c_61)" -"(let-values(((fold-var_233) fold-var_82))" +"(if i_170" +"(let-values(((k_39 v_88)(hash-iterate-key+value ht_145 i_170)))" +"(let-values(((fold-var_276)" +"(let-values(((fold-var_83) fold-var_80))" +"(if(eqv? v_88 c_61)" +"(let-values(((fold-var_238) fold-var_83))" "(let-values(((fold-var_13)" "(let-values()" -"(cons(let-values() k_39) fold-var_233))))" +"(cons(let-values() k_39) fold-var_238))))" "(values fold-var_13)))" -" fold-var_82))))" +" fold-var_83))))" "(if(not #f)" -"(for-loop_260 fold-var_269(hash-iterate-next ht_152 i_172))" -" fold-var_269)))" -" fold-var_79)))))" -" for-loop_260)" +"(for-loop_262 fold-var_276(hash-iterate-next ht_145 i_170))" +" fold-var_276)))" +" fold-var_80)))))" +" for-loop_262)" " null" -"(hash-iterate-first ht_152))))))))))" +"(hash-iterate-first ht_145))))))))))" "(define-values" "(struct:special special1.1 special? special-value)" "(let-values(((struct:_76 make-_76 ?_76 -ref_76 -set!_76)" @@ -47352,8 +47278,8 @@ static const char *startup_source = "(let-values(((due-to_0)(if due-to5_0 due-to2_0 '#\\x)))" "(let-values(((who_25)(if who6_0 who3_1(if(read-config-for-syntax? config_16) 'read-syntax 'read))))" "(let-values(((str_25) str9_0))" -"(let-values(((args_12) new-rest_0))" -" (let-values (((msg_0) (format \"~a: ~a\" who_25 (apply format str_25 args_12))))" +"(let-values(((args_9) new-rest_0))" +" (let-values (((msg_0) (format \"~a: ~a\" who_25 (apply format str_25 args_9))))" "(let-values(((srcloc_10)(if in_6(port+config->srcloc in_6 config_16) #f)))" "(raise" "((if(eof-object? due-to_0)" @@ -47361,11 +47287,11 @@ static const char *startup_source = "(if(not(char? due-to_0))" "(let-values() exn:fail:read:non-char)" "(let-values() exn:fail:read)))" -"(let-values(((s_160)" +"(let-values(((s_159)" "(if(error-print-source-location)" "(if srcloc_10(srcloc->string srcloc_10) #f)" " #f)))" -" (if s_160 (string-append s_160 \": \" msg_0) msg_0))" +" (if s_159 (string-append s_159 \": \" msg_0) msg_0))" " continuation-marks_0" "(if srcloc_10(list srcloc_10) null)))))))))))))))" "(define-values" @@ -47378,8 +47304,12 @@ static const char *startup_source = "(let-values(((str_26) str17_0))" "(let-values(((due-to_1)(if due-to14_0 due-to13_0 '#\\x)))" "(let-values()" -" (let-values (((due-to23_0) due-to_1) ((temp24_6) \"bad syntax `~a`\") ((str25_0) str_26))" -"(reader-error10.1 #f #f due-to23_0 #t #f #f in_7 config_17 temp24_6(list str25_0)))))))))))" +"(let-values(((in21_1) in_7)" +"((config22_0) config_17)" +"((due-to23_0) due-to_1)" +" ((temp24_6) \"bad syntax `~a`\")" +"((str25_0) str_26))" +"(reader-error10.1 #f #f due-to23_0 #t #f #f in21_1 config22_0 temp24_6(list str25_0)))))))))))" "(define-values" "(catch-and-reraise-as-reader/proc)" "(lambda(in_8 config_18 thunk_5)" @@ -47389,17 +47319,19 @@ static const char *startup_source = "(lambda(exn_2)" "(begin" " 'with-handlers-handler27" -" (let-values (((temp30_2) \"~a\")" +"(let-values(((in28_0) in_8)" +"((config29_0) config_18)" +" ((temp30_2) \"~a\")" "((temp31_4)" -"(let-values(((s_470)(exn-message exn_2)))" -" (regexp-replace \"^[a-z-]*: \" s_470 \"\")))" +"(let-values(((s_457)(exn-message exn_2)))" +" (regexp-replace \"^[a-z-]*: \" s_457 \"\")))" "((temp32_2)(exn-continuation-marks exn_2)))" -"(reader-error10.1 temp32_2 #t #f #f #f #f in_8 config_18 temp30_2(list temp31_4)))))))" +"(reader-error10.1 temp32_2 #t #f #f #f #f in28_0 config29_0 temp30_2(list temp31_4)))))))" "(let-values(((bpz_3)(continuation-mark-set-first #f break-enabled-key)))" "(call-handled-body" " bpz_3" -"(lambda(e_74)" -"(select-handler/no-breaks e_74 bpz_3(list(cons with-handlers-predicate26_0 with-handlers-handler27_0))))" +"(lambda(e_76)" +"(select-handler/no-breaks e_76 bpz_3(list(cons with-handlers-predicate26_0 with-handlers-handler27_0))))" "(lambda()(thunk_5))))))))" "(define-values" "(port-next-location*)" @@ -47408,8 +47340,8 @@ static const char *startup_source = "(if(not init-c_0)" "(let-values()(port-next-location in_4))" "(let-values()" -"(let-values(((line_4 col_3 pos_107)(port-next-location in_4)))" -"(values line_4(if col_3(max 0(sub1 col_3)) #f)(if pos_107(max 1(sub1 pos_107)) #f))))))))" +"(let-values(((line_4 col_3 pos_110)(port-next-location in_4)))" +"(values line_4(if col_3(max 0(sub1 col_3)) #f)(if pos_110(max 1(sub1 pos_110)) #f))))))))" "(define-values" "(read-char/skip-whitespace-and-comments)" "(lambda(init-c_1 read-one_0 in_5 config_15)" @@ -47421,17 +47353,17 @@ static const char *startup_source = "(begin" " 'skip-loop" "(let-values(((c_36)" -"(let-values(((or-part_165) init-c_2))" -"(if or-part_165" -" or-part_165" +"(let-values(((or-part_157) init-c_2))" +"(if or-part_157" +" or-part_157" "(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_62) c_36))" +"(let-values(((rt_8) rt_7)((c_47) c_36))" "(if(let-values(((or-part_5)(not rt_8)))" -"(if or-part_5 or-part_5(not(char? c_62))))" -"(let-values() c_62)" -"(let-values()(*readtable-effective-char rt_8 c_62))))))" +"(if or-part_5 or-part_5(not(char? c_47))))" +"(let-values() c_47)" +"(let-values()(*readtable-effective-char rt_8 c_47))))))" "(if(eof-object? ec_0)" "(let-values() c_36)" "(if(not(char? ec_0))" @@ -47447,27 +47379,27 @@ static const char *startup_source = "(if(char=? '#\\; ec_0)" "(let-values()" "(begin" -"((letrec-values(((loop_79)" +"((letrec-values(((loop_76)" "(lambda()" "(begin" " 'loop" -"(let-values(((c_48)" +"(let-values(((c_62)" "(let-values(((in_10) in_5)" "((source_5) source_3))" "(read-char-or-special" " in_10" " special1.1" " source_5))))" -"(if(let-values(((or-part_295)" -"(eof-object? c_48)))" -"(if or-part_295" -" or-part_295" +"(if(let-values(((or-part_296)" +"(eof-object? c_62)))" +"(if or-part_296" +" or-part_296" "(eqv?" " '#\\newline" -"(effective-char c_48 config_15))))" +"(effective-char c_62 config_15))))" "(void)" -"(let-values()(loop_79))))))))" -" loop_79))" +"(let-values()(loop_76))))))))" +" loop_76))" "(if(read-config-keep-comment? config_15)" "(result-special-comment)" "(skip-loop_0 #f))))" @@ -47515,8 +47447,8 @@ static const char *startup_source = "(if(eq? c_64 'special)" "(special1.1 'special)" " c_64)))))" -"(let-values(((or-part_90)(eqv? '#\\space c3_1)))" -"(if or-part_90 or-part_90(eqv? '#\\/ c3_1))))" +"(let-values(((or-part_82)(eqv? '#\\space c3_1)))" +"(if or-part_82 or-part_82(eqv? '#\\/ c3_1))))" " #f)" " #f)" "(let-values()" @@ -47531,21 +47463,23 @@ static const char *startup_source = "(let-values(((in_14) in_5)" "((skip-count_3) 0)" "((source_9) source_3))" -"(let-values(((c_39)" +"(let-values(((c_65)" "(peek-char-or-special" " in_14" " skip-count_3" " 'special" " source_9)))" -"(if(eq? c_39 'special)(special1.1 'special) c_39))))" +"(if(eq? c_65 'special)(special1.1 'special) c_65))))" " #f)" "(let-values()" "(let-values((()(begin(consume-char in_5 '#\\;)(values))))" -"(let-values(((v_181)(read-one_0 #f in_5 config_15)))" +"(let-values(((v_184)(read-one_0 #f in_5 config_15)))" "(begin" -"(if(eof-object? v_181)" +"(if(eof-object? v_184)" "(let-values()" -"(let-values(((v3_0) v_181)" +"(let-values(((in1_0) in_5)" +"((config2_0) config_15)" +"((v3_0) v_184)" "((temp4_3)" " \"expected a commented-out element for `~a;', but found end-of-file\")" "((ec5_0) ec_0))" @@ -47556,8 +47490,8 @@ static const char *startup_source = " #t" " #f" " #f" -" in_5" -" config_15" +" in1_0" +" config2_0" " temp4_3" "(list ec5_0))))" "(void))" @@ -47573,56 +47507,57 @@ static const char *startup_source = "(lambda(init-c_3 in_15 config_19)" "(begin" "(let-values(((source_10)(read-config-source config_19)))" -"(let-values(((line_5 col_4 pos_108)(port-next-location in_15)))" +"(let-values(((line_5 col_4 pos_111)(port-next-location in_15)))" "(begin" "(consume-char in_15 '#\\|)" -"((letrec-values(((loop_106)" +"((letrec-values(((loop_102)" "(lambda(prev-c_0 depth_10)" "(begin" " 'loop" -"(let-values(((c_65)" +"(let-values(((c_25)" "(let-values(((in_16) in_15)((source_11) source_10))" "(read-char-or-special in_16 special1.1 source_11))))" -"(if(eof-object? c_65)" +"(if(eof-object? c_25)" "(let-values()" -"(let-values(((temp7_3)(reading-at config_19 line_5 col_4 pos_108))" -"((c8_0) c_65)" +"(let-values(((in6_0) in_15)" +"((temp7_3)(reading-at config_19 line_5 col_4 pos_111))" +"((c8_0) c_25)" " ((temp9_3) \"end of file in `#|` comment\"))" -"(reader-error10.1 #f #f c8_0 #t #f #f in_15 temp7_3 temp9_3(list))))" -"(if(not(char? c_65))" -"(let-values()(loop_106 #f depth_10))" -"(if(if(char=? '#\\| c_65)(eqv? prev-c_0 '#\\#) #f)" -"(let-values()(loop_106 #f(add1 depth_10)))" -"(if(if(char=? '#\\# c_65)(eqv? prev-c_0 '#\\|) #f)" +"(reader-error10.1 #f #f c8_0 #t #f #f in6_0 temp7_3 temp9_3(list))))" +"(if(not(char? c_25))" +"(let-values()(loop_102 #f depth_10))" +"(if(if(char=? '#\\| c_25)(eqv? prev-c_0 '#\\#) #f)" +"(let-values()(loop_102 #f(add1 depth_10)))" +"(if(if(char=? '#\\# c_25)(eqv? prev-c_0 '#\\|) #f)" "(let-values()" "(if(positive? depth_10)" -"(let-values()(loop_106 #f(sub1 depth_10)))" +"(let-values()(loop_102 #f(sub1 depth_10)))" "(void)))" -"(let-values()(loop_106 c_65 depth_10)))))))))))" -" loop_106)" +"(let-values()(loop_102 c_25 depth_10)))))))))))" +" loop_102)" " #f" " 0)))))))" "(define-values" "(skip-unix-line-comment!)" "(lambda(in_17 config_20)" "(begin" -"((letrec-values(((loop_107)" +"((letrec-values(((loop_103)" "(lambda(backslash?_0)" "(begin" " 'loop" -"(let-values(((c_44)" +"(let-values(((c_66)" "(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_44)" +"(if(eof-object? c_66)" "(let-values()(void))" -"(if(not(char? c_44))" -"(let-values()(loop_107 #f))" -"(if(char=? c_44 '#\\newline)" -"(let-values()(if backslash?_0(let-values()(loop_107 #f))(void)))" -"(if(char=? c_44 '#\\\\)" -"(let-values()(loop_107 #t))" -"(let-values()(loop_107 #f)))))))))))" -" loop_107)" +"(if(not(char? c_66))" +"(let-values()(loop_103 #f))" +"(if(char=? c_66 '#\\newline)" +"(let-values()(if backslash?_0(let-values()(loop_103 #f))(void)))" +"(if(char=? c_66 '#\\\\)" +"(let-values()(loop_103 #t))" +"(let-values()(loop_103 #f)))))))))))" +" loop_103)" " #f))))" "(define-values" "(readtable-char-delimiter?)" @@ -47636,33 +47571,33 @@ static const char *startup_source = "(if(not(char? dc_0))" "(let-values() #t)" "(let-values()" -"(let-values(((or-part_32)(char-whitespace? dc_0)))" -"(if or-part_32" -" or-part_32" -"(let-values(((or-part_303)(char=? dc_0 '#\\()))" -"(if or-part_303" -" or-part_303" +"(let-values(((or-part_26)(char-whitespace? dc_0)))" +"(if or-part_26" +" or-part_26" +"(let-values(((or-part_302)(char=? dc_0 '#\\()))" +"(if or-part_302" +" or-part_302" "(let-values(((or-part_287)(char=? dc_0 '#\\))))" "(if or-part_287" " or-part_287" -"(let-values(((or-part_33)(char=? dc_0 '#\\[)))" -"(if or-part_33" -" or-part_33" +"(let-values(((or-part_27)(char=? dc_0 '#\\[)))" +"(if or-part_27" +" or-part_27" "(let-values(((or-part_10)(char=? dc_0 '#\\])))" "(if or-part_10" " or-part_10" -"(let-values(((or-part_165)(char=? dc_0 '#\\{)))" -"(if or-part_165" -" or-part_165" +"(let-values(((or-part_157)(char=? dc_0 '#\\{)))" +"(if or-part_157" +" or-part_157" "(let-values(((or-part_12)(char=? dc_0 '#\\})))" "(if or-part_12" " or-part_12" "(let-values(((or-part_13)(char=? dc_0 '#\\')))" "(if or-part_13" " or-part_13" -"(let-values(((or-part_223)(char=? dc_0 '#\\`)))" -"(if or-part_223" -" or-part_223" +"(let-values(((or-part_218)(char=? dc_0 '#\\`)))" +"(if or-part_218" +" or-part_218" "(let-values(((or-part_3)(char=? dc_0 '#\\,)))" "(if or-part_3" " or-part_3" @@ -47708,42 +47643,42 @@ static const char *startup_source = "(let-values()" "(apply" " string-append" -"((letrec-values(((loop_108)" +"((letrec-values(((loop_104)" "(lambda(cs_2)" "(begin" " 'loop" "(if(null?(cdr cs_2))" " (let-values () (list (format \"or `~a`\" (car cs_2))))" "(let-values()" -" (cons (format \"`~a`, \" (car cs_2)) (loop_108 (cdr cs_2)))))))))" -" loop_108)" +" (cons (format \"`~a`, \" (car cs_2)) (loop_104 (cdr cs_2)))))))))" +" loop_104)" " cs_1)))))))))))))" "(define-values" "(closer->opener)" -"(lambda(c_62)" +"(lambda(c_47)" "(begin" -"(let-values(((tmp_38) c_62))" -"(if(equal? tmp_38 '#\\))" +"(let-values(((tmp_37) c_47))" +"(if(equal? tmp_37 '#\\))" "(let-values() '#\\()" -"(if(equal? tmp_38 '#\\])" +"(if(equal? tmp_37 '#\\])" "(let-values() '#\\[)" -"(if(equal? tmp_38 '#\\})(let-values() '#\\{)(let-values() c_62))))))))" +"(if(equal? tmp_37 '#\\})(let-values() '#\\{)(let-values() c_47))))))))" " (define-values (dot-name) (lambda (config_25) (begin \"`.`\")))" "(define-values" "(all-openers-str)" "(lambda(config_21)" "(begin" -"(let-values(((p_60)(opener-name '#\\( config_21)))" +"(let-values(((p_59)(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_49)" +"(let-values(((c_67)" "(if(check-parameter 1/read-curly-brace-as-paren config_21)(opener-name '#\\{ config_21) #f)))" -"(if(if s_10 c_49 #f)" -" (let-values () (format \"~a, ~a, or ~a\" p_60 s_10 c_49))" -"(if(let-values(((or-part_294) s_10))(if or-part_294 or-part_294 c_49))" +"(if(if s_10 c_67 #f)" +" (let-values () (format \"~a, ~a, or ~a\" p_59 s_10 c_67))" +"(if(let-values(((or-part_295) s_10))(if or-part_295 or-part_295 c_67))" "(let-values()" -" (format \"~a or ~a\" p_60 (let-values (((or-part_295) s_10)) (if or-part_295 or-part_295 c_49))))" -"(let-values() p_60)))))))))" +" (format \"~a or ~a\" p_59 (let-values (((or-part_296) s_10)) (if or-part_296 or-part_296 c_67))))" +"(let-values() p_59)))))))))" "(define-values" "(struct:accum-string" " accum-string1.1" @@ -47769,66 +47704,66 @@ static const char *startup_source = "(lambda(config_26)" "(begin" "(let-values(((st_1)(read-config-st config_26)))" -"(let-values(((a_71)(read-config-state-accum-str st_1)))" -"(if a_71" -"(let-values()(begin(set-read-config-state-accum-str! st_1 #f)(set-accum-string-pos! a_71 0) a_71))" +"(let-values(((a_65)(read-config-state-accum-str st_1)))" +"(if a_65" +"(let-values()(begin(set-read-config-state-accum-str! st_1 #f)(set-accum-string-pos! a_65 0) a_65))" "(let-values()(accum-string1.1 0(make-string 32)))))))))" "(define-values" "(accum-string-add!)" -"(lambda(a_72 c_66)" +"(lambda(a_66 c_68)" "(begin" -"(let-values(((pos_109)(accum-string-pos a_72)))" -"(let-values(((str_27)(accum-string-str a_72)))" +"(let-values(((pos_112)(accum-string-pos a_66)))" +"(let-values(((str_27)(accum-string-str a_66)))" "(let-values(((str2_0)" -"(if(< pos_109(string-length str_27))" +"(if(< pos_112(string-length str_27))" "(let-values() str_27)" "(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_72 str2_1) str2_1))))))" -"(begin(string-set! str2_0 pos_109 c_66)(set-accum-string-pos! a_72(add1 pos_109)))))))))" -"(define-values(accum-string-count)(lambda(a_73)(begin(accum-string-pos a_73))))" -"(define-values(set-accum-string-count!)(lambda(a_74 pos_11)(begin(set-accum-string-pos! a_74 pos_11))))" +"(begin(string-copy! str2_1 0 str_27)(set-accum-string-str! a_66 str2_1) str2_1))))))" +"(begin(string-set! str2_0 pos_112 c_68)(set-accum-string-pos! a_66(add1 pos_112)))))))))" +"(define-values(accum-string-count)(lambda(a_67)(begin(accum-string-pos a_67))))" +"(define-values(set-accum-string-count!)(lambda(a_68 pos_11)(begin(set-accum-string-pos! a_68 pos_11))))" "(define-values" "(accum-string-convert!)" -"(lambda(a_75 convert_1 start-pos_6)" +"(lambda(a_69 convert_1 start-pos_6)" "(begin" -"(let-values(((str_28)(accum-string-str a_75)))" -"(let-values(((s_74)(convert_1(substring str_28 start-pos_6(accum-string-pos a_75)))))" -"(let-values(((len_36)(string-length s_74)))" +"(let-values(((str_28)(accum-string-str a_69)))" +"(let-values(((s_72)(convert_1(substring str_28 start-pos_6(accum-string-pos a_69)))))" +"(let-values(((len_36)(string-length s_72)))" "(begin" "(if(<(+ len_36 start-pos_6)(string-length str_28))" "(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_75 str2_2)))))" -"(string-copy!(accum-string-str a_75) start-pos_6 s_74)" -"(set-accum-string-pos! a_75(+ start-pos_6 len_36)))))))))" +"(begin(string-copy! str2_2 0 str_28 0 start-pos_6)(set-accum-string-str! a_69 str2_2)))))" +"(string-copy!(accum-string-str a_69) start-pos_6 s_72)" +"(set-accum-string-pos! a_69(+ start-pos_6 len_36)))))))))" "(define-values" "(accum-string-get!6.1)" "(lambda(start-pos2_0 start-pos3_0 a4_0 config5_0)" "(begin" " 'accum-string-get!6" -"(let-values(((a_76) a4_0))" +"(let-values(((a_70) a4_0))" "(let-values(((config_27) config5_0))" "(let-values(((start-pos_7)(if start-pos3_0 start-pos2_0 0)))" "(let-values()" -"(let-values(((s_184)(substring(accum-string-str a_76) start-pos_7(accum-string-pos a_76))))" -"(begin(accum-string-abandon! a_76 config_27) s_184)))))))))" +"(let-values(((s_182)(substring(accum-string-str a_70) start-pos_7(accum-string-pos a_70))))" +"(begin(accum-string-abandon! a_70 config_27) s_182)))))))))" "(define-values" "(accum-string-get-bytes!13.1)" "(lambda(start-pos9_0 start-pos10_0 a11_0 config12_0)" "(begin" " 'accum-string-get-bytes!13" -"(let-values(((a_67) a11_0))" +"(let-values(((a_61) a11_0))" "(let-values(((config_28) config12_0))" "(let-values(((start-pos_8)(if start-pos10_0 start-pos9_0 0)))" "(let-values()" "(let-values(((bstr_3)" -"(string->bytes/latin-1(accum-string-str a_67) #f start-pos_8(accum-string-pos a_67))))" -"(begin(accum-string-abandon! a_67 config_28) bstr_3)))))))))" +"(string->bytes/latin-1(accum-string-str a_61) #f start-pos_8(accum-string-pos a_61))))" +"(begin(accum-string-abandon! a_61 config_28) bstr_3)))))))))" "(define-values" "(accum-string-abandon!)" -"(lambda(a_77 config_29)(begin(set-read-config-state-accum-str!(read-config-st config_29) a_77))))" +"(lambda(a_71 config_29)(begin(set-read-config-state-accum-str!(read-config-st config_29) a_71))))" "(define-values" "(struct:indentation" " indentation1.1" @@ -47873,7 +47808,7 @@ static const char *startup_source = "(make-indentation)" "(lambda(closer_0 in_19 config_30)" "(begin" -"(let-values(((line_6 col_5 pos_110)(port-next-location in_19)))" +"(let-values(((line_6 col_5 pos_113)(port-next-location in_19)))" "(indentation1.1 closer_0 #f #f line_6 line_6 #f(if col_5(add1 col_5) #f) #f)))))" "(define-values" "(track-indentation!)" @@ -47912,36 +47847,36 @@ static const char *startup_source = " (let-values () \"\"))))))" "(define-values" "(indentation-unexpected-closer-message)" -"(lambda(ec_2 c_43 config_33)" +"(lambda(ec_2 c_69 config_33)" "(begin" "(let-values(((indts_1)(read-config-indentations config_33)))" "(if(null? indts_1)" -" (let-values () (format \"unexpected `~a`\" c_43))" +" (let-values () (format \"unexpected `~a`\" c_69))" "(let-values()" "(let-values(((indt_2)(car indts_1)))" "(string-append" "(if(char=? ec_2(indentation-closer indt_2))" -" (let-values () (format \"unexpected `~a`\" c_43))" +" (let-values () (format \"unexpected `~a`\" c_69))" "(let-values()" "(let-values(((missing_2)" -"(let-values(((or-part_299)" -"(let-values(((lst_295)(cdr indts_1)))" +"(let-values(((or-part_300)" +"(let-values(((lst_308)(cdr indts_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_295)))" -"((letrec-values(((for-loop_261)" -"(lambda(result_37 lst_296)" +"(let-values()(check-list lst_308)))" +"((letrec-values(((for-loop_267)" +"(lambda(result_39 lst_309)" "(begin" " 'for-loop" -"(if(pair? lst_296)" -"(let-values(((indt_3)(unsafe-car lst_296))" -"((rest_167)" -"(unsafe-cdr lst_296)))" -"(let-values(((result_114)" -"(let-values()" +"(if(pair? lst_309)" +"(let-values(((indt_3)(unsafe-car lst_309))" +"((rest_172)" +"(unsafe-cdr lst_309)))" "(let-values(((result_76)" "(let-values()" +"(let-values(((result_113)" +"(let-values()" "(let-values()" "(if(char=?" " ec_2" @@ -47949,19 +47884,19 @@ static const char *startup_source = " indt_3))" " \"missing\"" " #f)))))" -"(values result_76)))))" +"(values result_113)))))" "(if(if(not" -"((lambda x_81 result_114)" +"((lambda x_80 result_76)" " indt_3))" "(not #f)" " #f)" -"(for-loop_261 result_114 rest_167)" -" result_114)))" -" result_37)))))" -" for-loop_261)" +"(for-loop_267 result_76 rest_172)" +" result_76)))" +" result_39)))))" +" for-loop_267)" " #f" -" lst_295)))))" -" (if or-part_299 or-part_299 \"expected\"))))" +" lst_308)))))" +" (if or-part_300 or-part_300 \"expected\"))))" "(let-values(((opener-str_0)(opener-name(closer->opener(indentation-closer indt_2)) config_33)))" "(format" " \"~a ~a to close ~a, found instead `~a`\"" @@ -47970,7 +47905,7 @@ static const char *startup_source = "(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_43)))))" +" c_69)))))" "(indentation-possible-cause config_33)))))))))" "(define-values" "(read-unwrapped-sequence17.1)" @@ -48033,17 +47968,19 @@ static const char *startup_source = "(lambda(init-c_4 read-one_2 config_34)" "(begin" " 'read-one/not-eof" -"(let-values(((e_69)(read-one_2 init-c_4 in_10 config_34)))" +"(let-values(((e_77)(read-one_2 init-c_4 in_10 config_34)))" "(begin" -"(if(eof-object? e_69)" +"(if(eof-object? e_77)" "(let-values()" -"(let-values(((e24_0) e_69)" +"(let-values(((in22_0) in_10)" +"((config23_0) config_34)" +"((e24_0) e_77)" "((temp25_5)" " \"expected a ~a to close `~a`~a\")" "((temp26_4)" "(closer-name closer_1 config_34))" "((opener-c27_0) opener-c_0)" -"((temp28_0)" +"((temp28_3)" "(indentation-possible-cause config_34)))" "(reader-error10.1" " #f" @@ -48052,14 +47989,14 @@ static const char *startup_source = " #t" " #f" " #f" -" in_10" -" config_34" +" in22_0" +" config23_0" " temp25_5" -"(list temp26_4 opener-c27_0 temp28_0))))" +"(list temp26_4 opener-c27_0 temp28_3))))" "(void))" -" e_69))))))" +" e_77))))))" "(let-values(((seq_0)" -"((letrec-values(((loop_109)" +"((letrec-values(((loop_105)" "(lambda(depth_11" " accum_0" " init-c_3" @@ -48067,7 +48004,7 @@ static const char *startup_source = " first-read-one_1)" "(begin" " 'loop" -"(let-values(((c_67)" +"(let-values(((c_70)" "(read-char/skip-whitespace-and-comments" " init-c_3" " whitespace-read-one_0" @@ -48075,7 +48012,7 @@ static const char *startup_source = " seq-config_0)))" "(let-values(((ec_3)" "(effective-char" -" c_67" +" c_70" " seq-config_0)))" "(if(eqv? ec_3 closer_1)" "(let-values()" @@ -48095,15 +48032,15 @@ static const char *startup_source = "((source_13)" "(read-config-source" " config_16)))" -"(let-values(((c_68)" +"(let-values(((c_71)" "(peek-char-or-special" " in_20" " skip-count_4" " 'special" " source_13)))" -"(if(eq? c_68 'special)" +"(if(eq? c_71 'special)" "(special1.1 'special)" -" c_68)))" +" c_71)))" " seq-config_0)" " #f)" " #f)" @@ -48114,7 +48051,7 @@ static const char *startup_source = " dot-pos_0)" "(port-next-location*" " in_10" -" c_67)))" +" c_70)))" "(let-values((()" "(begin" "(track-indentation!" @@ -48152,7 +48089,7 @@ static const char *startup_source = " temp31_5" "(list)))))" "(values))))" -"(let-values(((v_220)" +"(let-values(((v_200)" "(read-one/not-eof_0" " #f" " first-read-one_1" @@ -48173,11 +48110,11 @@ static const char *startup_source = "(let-values()" "(if(null?" " accum_0)" -" v_220" +" v_200" "(append" "(reverse$1" " accum_0)" -" v_220)))" +" v_200)))" "(if(if(eqv?" " rest-ec_0" " '#\\.)" @@ -48188,25 +48125,25 @@ static const char *startup_source = " 1/read-accept-infix-dot" " config_16)" "(char-delimiter?" -"(let-values(((in_21)" +"(let-values(((in_17)" " in_10)" "((skip-count_5)" " 0)" "((source_14)" "(read-config-source" " config_16)))" -"(let-values(((c_54)" +"(let-values(((c_66)" "(peek-char-or-special" -" in_21" +" in_17" " skip-count_5" " 'special" " source_14)))" "(if(eq?" -" c_54" +" c_66" " 'special)" "(special1.1" " 'special)" -" c_54)))" +" c_66)))" " seq-config_0)" " #f)" " #f)" @@ -48216,7 +48153,7 @@ static const char *startup_source = "(begin" "(set! head_0" "(box" -" v_220))" +" v_200))" "(values))))" "(let-values(((dot2-line_0" " dot2-col_0" @@ -48241,16 +48178,18 @@ static const char *startup_source = " post-c_0" " seq-config_0)))" "(begin" -"(if(let-values(((or-part_29)" +"(if(let-values(((or-part_261)" "(eof-object?" " post-ec_0)))" -"(if or-part_29" -" or-part_29" +"(if or-part_261" +" or-part_261" "(eqv?" " post-ec_0" " closer_1)))" "(let-values()" -"(let-values(((temp33_2)" +"(let-values(((in32_0)" +" in_10)" +"((temp33_2)" "(reading-at" " config_16" " dot-line_0" @@ -48267,19 +48206,21 @@ static const char *startup_source = " #t" " #f" " #f" -" in_10" +" in32_0" " temp33_2" " temp35_1" "(list))))" "(void))" -"(loop_109" +"(loop_105" " depth_11" " accum_0" " post-c_0" " #f" " read-one_1))))))))" "(let-values()" -"(let-values(((temp37_2)" +"(let-values(((in36_0)" +" in_10)" +"((temp37_2)" "(reading-at" " config_16" " dot-line_0" @@ -48296,19 +48237,19 @@ static const char *startup_source = " #t" " #f" " #f" -" in_10" +" in36_0" " temp37_2" " temp39_5" "(list)))))))))))))" "(let-values()" -"(let-values(((v_195)" +"(let-values(((v_60)" "(read-one/not-eof_0" -" c_67" +" c_70" " first-read-one_1" " config/keep-comment_0)))" -"(if(1/special-comment? v_195)" +"(if(1/special-comment? v_60)" "(let-values()" -"(loop_109" +"(loop_105" " depth_11" " accum_0" " #f" @@ -48316,22 +48257,22 @@ static const char *startup_source = " read-one_1))" "(if(> depth_11 1024)" "(let-values()" -"(loop_109" +"(loop_105" " depth_11" -"(cons v_195 accum_0)" +"(cons v_60 accum_0)" " #f" " #f" " read-one_1))" "(let-values()" "(cons" -" v_195" -"(loop_109" +" v_60" +"(loop_105" "(add1 depth_11)" " null" " #f" " #f" " read-one_1)))))))))))))))" -" loop_109)" +" loop_105)" " 0" " null" " #f" @@ -48343,20 +48284,20 @@ static const char *startup_source = " full-seq_0)))))))))))))))))))))))" "(define-values" "(add-shape-tag)" -"(lambda(opener_1 in_22 config_35 seq_1)" +"(lambda(opener_1 in_21 config_35 seq_1)" "(begin" "(let-values(((tag_0)" -"(let-values(((tmp_39) opener_1))" -"(if(equal? tmp_39 '#\\[)" +"(let-values(((tmp_38) opener_1))" +"(if(equal? tmp_38 '#\\[)" "(let-values()(if(check-parameter 1/read-square-bracket-with-tag config_35) '#%brackets #f))" -"(if(equal? tmp_39 '#\\{)" +"(if(equal? tmp_38 '#\\{)" "(let-values()(if(check-parameter 1/read-curly-brace-with-tag config_35) '#%braces #f))" "(let-values() #f))))))" -"(if tag_0(cons(wrap tag_0 in_22 config_35 #f) seq_1) seq_1)))))" -" (define-values (not-an-fX.1) (lambda (who_26 v_221) (begin 'not-an-fX (raise-argument-error who_26 \"fixnum?\" v_221))))" +"(if tag_0(cons(wrap tag_0 in_21 config_35 #f) seq_1) seq_1)))))" +" (define-values (not-an-fX.1) (lambda (who_26 v_228) (begin 'not-an-fX (raise-argument-error who_26 \"fixnum?\" v_228))))" "(define-values" "(not-an-fX.1$1)" -" (lambda (who_26 v_221) (begin 'not-an-fX (raise-argument-error who_26 \"flonum?\" v_221))))" +" (lambda (who_26 v_228) (begin 'not-an-fX (raise-argument-error who_26 \"flonum?\" v_228))))" "(define-values" "(read-digits13.1)" "(lambda(base1_0" @@ -48379,86 +48320,86 @@ static const char *startup_source = "(let-values(((init-v_0)(if init7_0 init3_0 0)))" "(let-values(((zero-digits-result_0)(if zero-digits-result8_0 zero-digits-result4_0 #f)))" "(let-values()" -"(let-values(((c_69)" -"(let-values(((in_23) in_12)" +"(let-values(((c_72)" +"(let-values(((in_22) in_12)" "((skip-count_6) 0)" "((source_15)(read-config-source config_36)))" -"(let-values(((c_52)" -"(peek-char-or-special in_23 skip-count_6 'special source_15)))" -"(if(eq? c_52 'special)(special1.1 'special) c_52)))))" -"(if(digit?$1 c_69 base_22)" +"(let-values(((c_73)" +"(peek-char-or-special in_22 skip-count_6 'special source_15)))" +"(if(eq? c_73 'special)(special1.1 'special) c_73)))))" +"(if(digit?$1 c_72 base_22)" "(let-values()" "(begin" -"(consume-char in_12 c_69)" -"(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_69))(void))" -"((letrec-values(((loop_65)" -"(lambda(v_222 max-count_1)" +"(consume-char in_12 c_72)" +"(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_72))(void))" +"((letrec-values(((loop_61)" +"(lambda(v_229 max-count_1)" "(begin" " 'loop" "(if(zero? max-count_1)" -"(let-values() v_222)" +"(let-values() v_229)" "(let-values()" -"(let-values(((c_39)" -"(let-values(((in_24) in_12)" +"(let-values(((c_65)" +"(let-values(((in_23) in_12)" "((skip-count_7) 0)" "((source_16)" "(read-config-source config_36)))" -"(let-values(((c_70)" +"(let-values(((c_41)" "(peek-char-or-special" -" in_24" +" in_23" " skip-count_7" " 'special" " source_16)))" -"(if(eq? c_70 'special)" +"(if(eq? c_41 'special)" "(special1.1 'special)" -" c_70)))))" -"(if(digit?$1 c_39 base_22)" +" c_41)))))" +"(if(digit?$1 c_65 base_22)" "(let-values()" "(begin" -"(consume-char in_12 c_39)" +"(consume-char in_12 c_65)" "(if accum-str_0" -"(let-values()(accum-string-add! accum-str_0 c_39))" +"(let-values()(accum-string-add! accum-str_0 c_65))" "(void))" -"(loop_65" -"(+(digit->number c_39)(* v_222 base_22))" +"(loop_61" +"(+(digit->number c_65)(* v_229 base_22))" "(sub1 max-count_1))))" -"(let-values() v_222)))))))))" -" loop_65)" -"(+(digit->number c_69)(* init-v_0 base_22))" +"(let-values() v_229)))))))))" +" loop_61)" +"(+(digit->number c_72)(* init-v_0 base_22))" "(sub1 max-count_0))))" "(if zero-digits-result_0" "(let-values() zero-digits-result_0)" -"(let-values() c_69)))))))))))))))" +"(let-values() c_72)))))))))))))))" "(define-values" "(digit?$1)" -"(lambda(c_71 base_23)" +"(lambda(c_74 base_23)" "(begin" " 'digit?" -"(if(not(char? c_71))" +"(if(not(char? c_74))" "(let-values() #f)" "(if(= base_23 8)" -"(let-values()(octal-digit? c_71))" -"(if(= base_23 16)(let-values()(hex-digit? c_71))(let-values()(decimal-digit? c_71))))))))" -"(define-values(decimal-digit?)(lambda(c_72)(begin(if(char>=? c_72 '#\\0)(char<=? c_72 '#\\9) #f))))" -"(define-values(octal-digit?)(lambda(c_73)(begin(if(char>=? c_73 '#\\0)(char<=? c_73 '#\\7) #f))))" +"(let-values()(octal-digit? c_74))" +"(if(= base_23 16)(let-values()(hex-digit? c_74))(let-values()(decimal-digit? c_74))))))))" +"(define-values(decimal-digit?)(lambda(c_75)(begin(if(char>=? c_75 '#\\0)(char<=? c_75 '#\\9) #f))))" +"(define-values(octal-digit?)(lambda(c_76)(begin(if(char>=? c_76 '#\\0)(char<=? c_76 '#\\7) #f))))" "(define-values" "(hex-digit?)" -"(lambda(c_74)" +"(lambda(c_77)" "(begin" -"(let-values(((or-part_304)(if(char>=? c_74 '#\\0)(char<=? c_74 '#\\9) #f)))" -"(if or-part_304" -" or-part_304" -"(let-values(((or-part_108)(if(char>=? c_74 '#\\A)(char<=? c_74 '#\\F) #f)))" -"(if or-part_108 or-part_108(if(char>=? c_74 '#\\a)(char<=? c_74 '#\\f) #f))))))))" +"(let-values(((or-part_303)(if(char>=? c_77 '#\\0)(char<=? c_77 '#\\9) #f)))" +"(if or-part_303" +" or-part_303" +"(let-values(((or-part_98)(if(char>=? c_77 '#\\A)(char<=? c_77 '#\\F) #f)))" +"(if or-part_98 or-part_98(if(char>=? c_77 '#\\a)(char<=? c_77 '#\\f) #f))))))))" "(define-values" "(digit->number)" -"(lambda(c_6)" +"(lambda(c_78)" "(begin" -"(if(if(char>=? c_6 '#\\0)(char<=? c_6 '#\\9) #f)" -"(let-values()(-(char->integer c_6)(char->integer '#\\0)))" -"(if(if(char>=? c_6 '#\\A)(char<=? c_6 '#\\F) #f)" -"(let-values()(-(char->integer c_6)(-(char->integer '#\\A) 10)))" -"(let-values()(-(char->integer c_6)(-(char->integer '#\\a) 10))))))))" +"(if(if(char>=? c_78 '#\\0)(char<=? c_78 '#\\9) #f)" +"(let-values()(-(char->integer c_78)(char->integer '#\\0)))" +"(if(if(char>=? c_78 '#\\A)(char<=? c_78 '#\\F) #f)" +"(let-values()(-(char->integer c_78)(-(char->integer '#\\A) 10)))" +"(let-values()(-(char->integer c_78)(-(char->integer '#\\a) 10))))))))" "(define-values(string->number$1) string->number)" "(define-values" "(1/string->number)" @@ -48466,7 +48407,7 @@ static const char *startup_source = "(lambda(s7_2 radix1_0 convert-mode2_0 decimal-mode3_0 radix4_0 convert-mode5_0 decimal-mode6_0)" "(begin" " 'string->number8" -"(let-values(((s_182) s7_2))" +"(let-values(((s_180) s7_2))" "(let-values(((radix_0)(if radix4_0 radix1_0 10)))" "(let-values(((convert-mode_0)(if convert-mode5_0 convert-mode2_0 'number-or-false)))" "(let-values(((decimal-mode_0)" @@ -48477,16 +48418,16 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(string? s_182)" +"(if(string? s_180)" "(void)" -" (let-values () (raise-argument-error 'string->number \"string?\" s_182)))" -"(if((lambda(p_70)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)" +" (let-values () (raise-argument-error 'string->number \"string?\" s_180)))" +"(if((lambda(p_68)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)" "(void)" "(let-values()" " (raise-argument-error 'string->number \"(integer-in 2 16)\" radix_0)))" -"(if((lambda(p_62)" -"(let-values(((or-part_7)(eq? p_62 'number-or-false)))" -"(if or-part_7 or-part_7(eq? p_62 'read))))" +"(if((lambda(p_61)" +"(let-values(((or-part_7)(eq? p_61 'number-or-false)))" +"(if or-part_7 or-part_7(eq? p_61 'read))))" " convert-mode_0)" "(void)" "(let-values()" @@ -48494,9 +48435,9 @@ static const char *startup_source = " 'string->number" " \"(or/c 'number-or-false 'read)\"" " convert-mode_0)))" -"(if((lambda(p_71)" -"(let-values(((or-part_9)(eq? p_71 'decimal-as-inexact)))" -"(if or-part_9 or-part_9(eq? p_71 'decimal-as-exact))))" +"(if((lambda(p_69)" +"(let-values(((or-part_9)(eq? p_69 'decimal-as-inexact)))" +"(if or-part_9 or-part_9(eq? p_69 'decimal-as-exact))))" " decimal-mode_0)" "(void)" "(let-values()" @@ -48504,8 +48445,9 @@ static const char *startup_source = " 'string->number" " \"(or/c 'decimal-as-inexact decimal-as-exact)\"" " decimal-mode_0)))" -"(let-values(((temp70_1) 0)" -"((temp71_0)(string-length s_182))" +"(let-values(((s69_0) s_180)" +"((temp70_1) 0)" +"((temp71_0)(string-length s_180))" "((radix72_0) radix_0)" "((temp73_0) #f)" "((decimal-mode74_0) decimal-mode_0)" @@ -48514,18 +48456,18 @@ static const char *startup_source = " #f" " #f" " temp73_0" -" s_182" +" s69_0" " temp70_1" " temp71_0" " radix72_0" " decimal-mode74_0" " convert-mode75_0))))))))))))))" "(case-lambda" -"((s_471)(begin 'string->number(string->number8_0 s_471 #f #f #f #f #f #f)))" -"((s_472 radix_1 convert-mode_1 decimal-mode3_1)" -"(string->number8_0 s_472 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" -"((s_78 radix_2 convert-mode2_1)(string->number8_0 s_78 radix_2 convert-mode2_1 #f #t #t #f))" -"((s_434 radix1_1)(string->number8_0 s_434 radix1_1 #f #f #t #f #f)))))" +"((s_458)(begin 'string->number(string->number8_0 s_458 #f #f #f #f #f #f)))" +"((s_459 radix_1 convert-mode_1 decimal-mode3_1)" +"(string->number8_0 s_459 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" +"((s_177 radix_2 convert-mode2_1)(string->number8_0 s_177 radix_2 convert-mode2_1 #f #t #t #f))" +"((s_460 radix1_1)(string->number8_0 s_460 radix1_1 #f #f #t #f #f)))))" "(define-values" "(do-string->number20.1)" "(lambda(in-complex11_0" @@ -48539,8 +48481,8 @@ static const char *startup_source = " convert-mode19_0)" "(begin" " 'do-string->number20" -"(let-values(((s_22) s14_0))" -"(let-values(((start_44) start15_0))" +"(let-values(((s_461) s14_0))" +"(let-values(((start_43) start15_0))" "(let-values(((end_33) end16_0))" "(let-values(((radix_3) radix17_0))" "(let-values(((radix-set?_0) radix-set?10_0))" @@ -48548,27 +48490,27 @@ static const char *startup_source = "(let-values(((in-complex_0)(if in-complex13_0 in-complex11_0 #f)))" "(let-values(((convert-mode_2) convert-mode19_0))" "(let-values()" -"(if(= start_44 end_33)" +"(if(= start_43 end_33)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" " (let-values () (format \"no digits\"))" "(let-values() #f)))" "(let-values()" -"(let-values(((c_75)(string-ref s_22 start_44)))" -"(if(char=? '#\\# c_75)" +"(let-values(((c_79)(string-ref s_461 start_43)))" +"(if(char=? '#\\# c_79)" "(let-values()" -"(let-values(((next_4)(add1 start_44)))" +"(let-values(((next_4)(add1 start_43)))" "(if(= next_4 end_33)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no character after `#` indicator in `~.a`\" s_22))" +" (let-values () (format \"no character after `#` indicator in `~.a`\" s_461))" "(let-values() #f)))" "(let-values()" -"(let-values(((i_35)(string-ref s_22 next_4)))" -"(let-values(((tmp_40) i_35))" +"(let-values(((i_170)(string-ref s_461 next_4)))" +"(let-values(((tmp_39) i_170))" "(let-values(((index_2)" -"(if(char? tmp_40)" -"(let-values(((codepoint_0)(char->integer tmp_40)))" +"(if(char? tmp_39)" +"(let-values(((codepoint_0)(char->integer tmp_39)))" "(if(if(unsafe-fx>= codepoint_0 66)" "(unsafe-fx< codepoint_0 121)" " #f)" @@ -48639,31 +48581,32 @@ static const char *startup_source = "(let-values()" "(format" " \"bad `#` indicator `~a` at `~.a`\"" -" i_35" -"(substring s_22 start_44 end_33)))" +" i_170" +"(substring s_461 start_43 end_33)))" "(let-values() #f)))" "(if(unsafe-fx< index_2 2)" "(let-values()" -"(if(let-values(((or-part_268)(exactness-set? exactness_0)))" -"(if or-part_268 or-part_268 in-complex_0))" +"(if(let-values(((or-part_284)(exactness-set? exactness_0)))" +"(if or-part_284 or-part_284 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" "(format" " \"misplaced exactness specification at `~.a`\"" -"(substring s_22 start_44 end_33)))" +"(substring s_461 start_43 end_33)))" "(let-values() #f)))" "(let-values()" -"(let-values(((temp77_0)(add1 next_4))" +"(let-values(((s76_0) s_461)" +"((temp77_0)(add1 next_4))" "((end78_0) end_33)" "((radix79_0) radix_3)" "((radix-set?80_0) radix-set?_0)" "((temp81_1)" -"(if(let-values(((or-part_305)" -"(char=? i_35 '#\\e)))" -"(if or-part_305" -" or-part_305" -"(char=? i_35 '#\\E)))" +"(if(let-values(((or-part_214)" +"(char=? i_170 '#\\e)))" +"(if or-part_214" +" or-part_214" +"(char=? i_170 '#\\E)))" " 'exact" " 'inexact))" "((temp82_3)" @@ -48674,39 +48617,40 @@ static const char *startup_source = " #f" " #f" " radix-set?80_0" -" s_22" +" s76_0" " temp77_0" " end78_0" " radix79_0" " temp81_1" " temp82_3)))))" "(let-values()" -"(if(let-values(((or-part_141) radix-set?_0))" -"(if or-part_141 or-part_141 in-complex_0))" +"(if(let-values(((or-part_304) radix-set?_0))" +"(if or-part_304 or-part_304 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" "(format" " \"misplaced radix specification at `~.a`\"" -"(substring s_22 start_44 end_33)))" +"(substring s_461 start_43 end_33)))" "(let-values() #f)))" "(let-values()" "(let-values(((radix_4)" -"(let-values(((tmp_41) i_35))" -"(if(if(equal? tmp_41 '#\\b)" +"(let-values(((tmp_40) i_170))" +"(if(if(equal? tmp_40 '#\\b)" " #t" -"(equal? tmp_41 '#\\B))" +"(equal? tmp_40 '#\\B))" "(let-values() 2)" -"(if(if(equal? tmp_41 '#\\o)" +"(if(if(equal? tmp_40 '#\\o)" " #t" -"(equal? tmp_41 '#\\O))" +"(equal? tmp_40 '#\\O))" "(let-values() 8)" -"(if(if(equal? tmp_41 '#\\d)" +"(if(if(equal? tmp_40 '#\\d)" " #t" -"(equal? tmp_41 '#\\D))" +"(equal? tmp_40 '#\\D))" "(let-values() 10)" "(let-values() 16)))))))" -"(let-values(((temp84_2)(add1 next_4))" +"(let-values(((s83_0) s_461)" +"((temp84_2)(add1 next_4))" "((end85_0) end_33)" "((radix86_0) radix_4)" "((temp87_2) #t)" @@ -48719,35 +48663,35 @@ static const char *startup_source = " #f" " #f" " temp87_2" -" s_22" +" s83_0" " temp84_2" " end85_0" " radix86_0" " exactness88_0" " temp89_4)))))))))))))))" "(let-values(((c1_28)" -"(if(char-sign? c_75)" -"(read-special-number s_22 start_44 end_33 convert-mode_2)" +"(if(char-sign? c_79)" +"(read-special-number s_461 start_43 end_33 convert-mode_2)" " #f)))" "(if c1_28" -"((lambda(v_223)" +"((lambda(v_230)" "(if(eq? exactness_0 'exact)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_223))" +" (let-values () (format \"no exact representation for `~a`\" v_230))" "(let-values() #f)))" -"(let-values() v_223)))" +"(let-values() v_230)))" " c1_28)" "(let-values(((c2_3)" -"(if(char-sign? c_75)" +"(if(char-sign? c_79)" "(if(not in-complex_0)" -"(if(>(- end_33 start_44) 7)" -"(if(char=? '#\\i(string-ref s_22(sub1 end_33)))" -"(if(char-sign?(string-ref s_22 6))" +"(if(>(- end_33 start_43) 7)" +"(if(char=? '#\\i(string-ref s_461(sub1 end_33)))" +"(if(char-sign?(string-ref s_461 6))" "(read-special-number" -" s_22" -" start_44" -"(+ start_44 6)" +" s_461" +" start_43" +"(+ start_43 6)" " convert-mode_2)" " #f)" " #f)" @@ -48755,22 +48699,23 @@ static const char *startup_source = " #f)" " #f)))" "(if c2_3" -"((lambda(v_224)" -"(let-values(((temp91_0)(+ start_44 6))" +"((lambda(v_231)" +"(let-values(((s90_1) s_461)" +"((temp91_0)(+ start_43 6))" "((temp92_1)(sub1 end_33))" "((radix93_0) radix_3)" "((exactness94_0) exactness_0)" "((convert-mode95_0) convert-mode_2)" "((temp96_3) 'i)" -"((v97_0) v_224)" +"((v97_0) v_231)" "((temp98_3)" -"(lambda(v_225 v2_1)" -"(begin 'temp98(make-rectangular v_225 v2_1)))))" +"(lambda(v_53 v2_0)" +"(begin 'temp98(make-rectangular v_53 v2_0)))))" "(read-for-special-compound65.1" " temp96_3" " #f" " #f" -" s_22" +" s90_1" " temp91_0" " temp92_1" " radix93_0" @@ -48781,11 +48726,11 @@ static const char *startup_source = " c2_3)" "(let-values(((c3_2)" "(if(not in-complex_0)" -"(if(>=(- end_33 start_44) 7)" -"(if(char=? '#\\i(string-ref s_22(sub1 end_33)))" -"(if(char-sign?(string-ref s_22(- end_33 7)))" +"(if(>=(- end_33 start_43) 7)" +"(if(char=? '#\\i(string-ref s_461(sub1 end_33)))" +"(if(char-sign?(string-ref s_461(- end_33 7)))" "(read-special-number" -" s_22" +" s_461" "(- end_33 7)" "(sub1 end_33)" " convert-mode_2)" @@ -48794,26 +48739,28 @@ static const char *startup_source = " #f)" " #f)))" "(if c3_2" -"((lambda(v2_2)" -"(if(if(= start_44(- end_33 7))(not(extflonum? v2_2)) #f)" -"(let-values()(make-rectangular 0 v2_2))" +"((lambda(v2_1)" +"(if(if(= start_43(- end_33 7))(not(extflonum? v2_1)) #f)" +"(let-values()(make-rectangular 0 v2_1))" "(let-values()" -"(let-values(((temp101_2)(- end_33 7))" +"(let-values(((s99_0) s_461)" +"((start100_0) start_43)" +"((temp101_2)(- end_33 7))" "((radix102_0) radix_3)" "((exactness103_0) exactness_0)" "((convert-mode104_0) convert-mode_2)" "((temp105_2) 'i)" "((temp106_2) #t)" -"((v2107_0) v2_2)" +"((v2107_0) v2_1)" "((temp108_2)" -"(lambda(v2_3 v_199)" -"(begin 'temp108(make-rectangular v_199 v2_3)))))" +"(lambda(v2_2 v_214)" +"(begin 'temp108(make-rectangular v_214 v2_2)))))" "(read-for-special-compound65.1" " temp105_2" " temp106_2" " #t" -" s_22" -" start_44" +" s99_0" +" start100_0" " temp101_2" " radix102_0" " exactness103_0" @@ -48822,36 +48769,37 @@ static const char *startup_source = " temp108_2)))))" " c3_2)" "(let-values(((c4_0)" -"(if(char-sign? c_75)" +"(if(char-sign? c_79)" "(if(not in-complex_0)" -"(if(>(- end_33 start_44) 7)" -"(if(char=? '#\\@(string-ref s_22(+ start_44 6)))" +"(if(>(- end_33 start_43) 7)" +"(if(char=? '#\\@(string-ref s_461(+ start_43 6)))" "(read-special-number" -" s_22" -" start_44" -"(+ start_44 6)" +" s_461" +" start_43" +"(+ start_43 6)" " convert-mode_2)" " #f)" " #f)" " #f)" " #f)))" "(if c4_0" -"((lambda(v_201)" -"(let-values(((temp110_4)(+ start_44 7))" +"((lambda(v_203)" +"(let-values(((s109_0) s_461)" +"((temp110_4)(+ start_43 7))" "((end111_0) end_33)" "((radix112_0) radix_3)" "((exactness113_0) exactness_0)" "((convert-mode114_0) convert-mode_2)" "((temp115_0) '@)" -"((v116_0) v_201)" +"((v116_0) v_203)" "((temp117_3)" -"(lambda(v_206 v2_4)" -"(begin 'temp117(make-polar v_206 v2_4)))))" +"(lambda(v_232 v2_3)" +"(begin 'temp117(make-polar v_232 v2_3)))))" "(read-for-special-compound65.1" " temp115_0" " #f" " #f" -" s_22" +" s109_0" " temp110_4" " end111_0" " radix112_0" @@ -48862,10 +48810,10 @@ static const char *startup_source = " c4_0)" "(let-values(((c5_1)" "(if(not in-complex_0)" -"(if(>(- end_33 start_44) 7)" -"(if(char=? '#\\@(string-ref s_22(- end_33 7)))" +"(if(>(- end_33 start_43) 7)" +"(if(char=? '#\\@(string-ref s_461(- end_33 7)))" "(read-special-number" -" s_22" +" s_461" "(- end_33 6)" " end_33" " convert-mode_2)" @@ -48873,23 +48821,25 @@ static const char *startup_source = " #f)" " #f)))" "(if c5_1" -"((lambda(v2_5)" -"(let-values(((temp120_1)(- end_33 7))" +"((lambda(v2_4)" +"(let-values(((s118_0) s_461)" +"((start119_0) start_43)" +"((temp120_1)(- end_33 7))" "((radix121_0) radix_3)" "((exactness122_0) exactness_0)" "((convert-mode123_0) convert-mode_2)" "((temp124_3) '@)" "((temp125_2) #t)" -"((v2126_0) v2_5)" +"((v2126_0) v2_4)" "((temp127_3)" -"(lambda(v2_6 v_226)" -"(begin 'temp127(make-polar v_226 v2_6)))))" +"(lambda(v2_5 v_233)" +"(begin 'temp127(make-polar v_233 v2_5)))))" "(read-for-special-compound65.1" " temp124_3" " temp125_2" " #t" -" s_22" -" start_44" +" s118_0" +" start119_0" " temp120_1" " radix121_0" " exactness122_0" @@ -48898,7 +48848,11 @@ static const char *startup_source = " temp127_3)))" " c5_1)" "(let-values()" -"(let-values(((radix-set?132_0) radix-set?_0)" +"(let-values(((s128_1) s_461)" +"((start129_0) start_43)" +"((end130_0) end_33)" +"((radix131_0) radix_3)" +"((radix-set?132_0) radix-set?_0)" "((exactness133_0) exactness_0)" "((in-complex134_0) in-complex_0)" "((convert-mode135_0) convert-mode_2))" @@ -48906,10 +48860,10 @@ static const char *startup_source = " in-complex134_0" " #t" " radix-set?132_0" -" s_22" -" start_44" -" end_33" -" radix_3" +" s128_1" +" start129_0" +" end130_0" +" radix131_0" " exactness133_0" " convert-mode135_0)))))))))))))))))))))))))))))" "(define-values" @@ -48925,8 +48879,8 @@ static const char *startup_source = " convert-mode32_0)" "(begin" " 'do-string->non-special-number33" -"(let-values(((s_86) s27_1))" -"(let-values(((start_45) start28_0))" +"(let-values(((s_199) s27_1))" +"(let-values(((start_44) start28_0))" "(let-values(((end_34) end29_0))" "(let-values(((radix_5) radix30_0))" "(let-values(((radix-set?_1) radix-set?23_0))" @@ -48934,8 +48888,8 @@ static const char *startup_source = "(let-values(((in-complex_1)(if in-complex26_0 in-complex24_0 #f)))" "(let-values(((convert-mode_3) convert-mode32_0))" "(let-values()" -"((letrec-values(((loop_110)" -"(lambda(i_173" +"((letrec-values(((loop_106)" +"(lambda(i_171" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -48947,7 +48901,7 @@ static const char *startup_source = " must-i?_0)" "(begin" " 'loop" -"(if(= i_173 end_34)" +"(if(= i_171 end_34)" "(let-values()" "(if(if(not any-digits?_0)(not i-pos_3) #f)" "(let-values()" @@ -48955,7 +48909,7 @@ static const char *startup_source = "(let-values()" "(format" " \"no digits in `~.a`\"" -"(substring s_86 start_45 end_34)))" +"(substring s_199 start_44 end_34)))" "(let-values() #f)))" "(if(if must-i?_0(not i-pos_3) #f)" "(let-values()" @@ -48963,13 +48917,13 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_86 start_45 end_34)))" +"(substring s_199 start_44 end_34)))" "(let-values() #f)))" "(if(if sign-pos_0" -"(let-values(((or-part_306)" +"(let-values(((or-part_305)" "(if dot-pos_1(< dot-pos_1 sign-pos_0) #f)))" -"(if or-part_306" -" or-part_306" +"(if or-part_305" +" or-part_305" "(if slash-pos_0(< slash-pos_0 sign-pos_0) #f)))" " #f)" "(let-values()" @@ -48977,11 +48931,15 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced sign in `~.a`\"" -"(substring s_86 start_45 end_34)))" +"(substring s_199 start_44 end_34)))" "(let-values() #f)))" "(if i-pos_3" "(let-values()" -"(let-values(((temp140_1)(sub1 end_34))" +"(let-values(((s136_0) s_199)" +"((start137_0) start_44)" +"((sign-pos138_0) sign-pos_0)" +"((sign-pos139_0) sign-pos_0)" +"((temp140_1)(sub1 end_34))" "((i-pos141_0) i-pos_3)" "((sign-pos142_0) sign-pos_0)" "((radix143_0) radix_5)" @@ -48992,10 +48950,10 @@ static const char *startup_source = "(string->complex-number50.1" " temp146_0" " radix-set?144_0" -" s_86" -" start_45" -" sign-pos_0" -" sign-pos_0" +" s136_0" +" start137_0" +" sign-pos138_0" +" sign-pos139_0" " temp140_1" " i-pos141_0" " sign-pos142_0" @@ -49004,7 +48962,10 @@ static const char *startup_source = " convert-mode147_0)))" "(if @-pos_0" "(let-values()" -"(let-values(((temp151_1)(add1 @-pos_0))" +"(let-values(((s148_0) s_199)" +"((start149_0) start_44)" +"((@-pos150_0) @-pos_0)" +"((temp151_1)(add1 @-pos_0))" "((end152_0) end_34)" "((i-pos153_0) i-pos_3)" "((sign-pos154_0) sign-pos_0)" @@ -49016,9 +48977,9 @@ static const char *startup_source = "(string->complex-number50.1" " temp158_1" " radix-set?156_0" -" s_86" -" start_45" -" @-pos_0" +" s148_0" +" start149_0" +" @-pos150_0" " temp151_1" " end152_0" " i-pos153_0" @@ -49028,8 +48989,8 @@ static const char *startup_source = " convert-mode159_0)))" "(let-values()" "(string->real-number" -" s_86" -" start_45" +" s_199" +" start_44" " end_34" " dot-pos_1" " slash-pos_0" @@ -49039,11 +49000,11 @@ static const char *startup_source = " exactness_1" " convert-mode_3))))))))" "(let-values()" -"(let-values(((c_76)(string-ref s_86 i_173)))" -"(if(digit? c_76 radix_5)" +"(let-values(((c_80)(string-ref s_199 i_171)))" +"(if(digit? c_80 radix_5)" "(let-values()" -"(loop_110" -"(add1 i_173)" +"(loop_106" +"(add1 i_171)" " #t" " any-hashes?_0" " i-pos_3" @@ -49053,10 +49014,10 @@ static const char *startup_source = " slash-pos_0" " exp-pos_0" " must-i?_0))" -"(if(char=? c_76 '#\\#)" +"(if(char=? c_80 '#\\#)" "(let-values()" -"(loop_110" -"(add1 i_173)" +"(loop_106" +"(add1 i_171)" " #t" " #t" " i-pos_3" @@ -49066,7 +49027,7 @@ static const char *startup_source = " slash-pos_0" " exp-pos_0" " must-i?_0))" -"(if(char-sign? c_76)" +"(if(char-sign? c_80)" "(let-values()" "(if(if sign-pos_0 must-i?_0 #f)" "(let-values()" @@ -49074,41 +49035,41 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_86 start_45 end_34)))" +"(substring s_199 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_110" -"(add1 i_173)" +"(loop_106" +"(add1 i_171)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" -" i_173" +" i_171" " dot-pos_1" " slash-pos_0" " #f" -"(if(> i_173 start_45)" -"(let-values(((or-part_307)(not @-pos_0)))" -"(if or-part_307" -" or-part_307" -"(> i_173(add1 @-pos_0))))" +"(if(> i_171 start_44)" +"(let-values(((or-part_306)(not @-pos_0)))" +"(if or-part_306" +" or-part_306" +"(> i_171(add1 @-pos_0))))" " #f)))))" -"(if(char=? c_76 '#\\.)" +"(if(char=? c_80 '#\\.)" "(let-values()" -"(if(let-values(((or-part_308)" +"(if(let-values(((or-part_307)" "(if exp-pos_0" -"(let-values(((or-part_309)" +"(let-values(((or-part_308)" "(not sign-pos_0)))" -"(if or-part_309" -" or-part_309" -"(> exp-pos_0 sign-pos_0)))" -" #f)))" "(if or-part_308" " or-part_308" +"(> exp-pos_0 sign-pos_0)))" +" #f)))" +"(if or-part_307" +" or-part_307" "(if dot-pos_1" -"(let-values(((or-part_310)(not sign-pos_0)))" -"(if or-part_310" -" or-part_310" +"(let-values(((or-part_309)(not sign-pos_0)))" +"(if or-part_309" +" or-part_309" "(> dot-pos_1 sign-pos_0)))" " #f)))" "(let-values()" @@ -49116,12 +49077,12 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `.` in `~.a`\"" -"(substring s_86 start_45 end_34)))" +"(substring s_199 start_44 end_34)))" "(let-values() #f)))" "(if(if slash-pos_0" -"(let-values(((or-part_112)(not sign-pos_0)))" -"(if or-part_112" -" or-part_112" +"(let-values(((or-part_310)(not sign-pos_0)))" +"(if or-part_310" +" or-part_310" "(> slash-pos_0 sign-pos_0)))" " #f)" "(let-values()" @@ -49129,26 +49090,26 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_86 start_45 end_34)))" +"(substring s_199 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_110" -"(add1 i_173)" +"(loop_106" +"(add1 i_171)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" -" i_173" +" i_171" " #f" " #f" " must-i?_0)))))" -"(if(char=? c_76 '#\\/)" +"(if(char=? c_80 '#\\/)" "(let-values()" "(if(if dot-pos_1" -"(let-values(((or-part_67)(not sign-pos_0)))" -"(if or-part_67" -" or-part_67" +"(let-values(((or-part_179)(not sign-pos_0)))" +"(if or-part_179" +" or-part_179" "(> dot-pos_1 sign-pos_0)))" " #f)" "(let-values()" @@ -49156,23 +49117,23 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_86 start_45 end_34)))" +"(substring s_199 start_44 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_113)" +"(if(let-values(((or-part_311)" "(if exp-pos_0" -"(let-values(((or-part_68)" +"(let-values(((or-part_185)" "(not sign-pos_0)))" -"(if or-part_68" -" or-part_68" +"(if or-part_185" +" or-part_185" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_113" -" or-part_113" +"(if or-part_311" +" or-part_311" "(if slash-pos_0" -"(let-values(((or-part_69)" +"(let-values(((or-part_312)" "(not sign-pos_0)))" -"(if or-part_69" -" or-part_69" +"(if or-part_312" +" or-part_312" "(> slash-pos_0 sign-pos_0)))" " #f)))" "(let-values()" @@ -49180,74 +49141,74 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `/` in `~.a`\"" -"(substring s_86 start_45 end_34)))" +"(substring s_199 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_110" -"(add1 i_173)" +"(loop_106" +"(add1 i_171)" " any-digits?_0" " any-hashes?_0" " i-pos_3" " @-pos_0" " sign-pos_0" " #f" -" i_173" +" i_171" " #f" " must-i?_0)))))" -"(if(let-values(((or-part_311)(char=? c_76 '#\\e)))" -"(if or-part_311" -" or-part_311" -"(let-values(((or-part_312)(char=? c_76 '#\\E)))" -"(if or-part_312" -" or-part_312" -"(let-values(((or-part_313)" -"(char=? c_76 '#\\f)))" +"(if(let-values(((or-part_313)(char=? c_80 '#\\e)))" "(if or-part_313" " or-part_313" -"(let-values(((or-part_190)" -"(char=? c_76 '#\\F)))" -"(if or-part_190" -" or-part_190" -"(let-values(((or-part_314)" -"(char=? c_76 '#\\d)))" +"(let-values(((or-part_314)(char=? c_80 '#\\E)))" "(if or-part_314" " or-part_314" +"(let-values(((or-part_212)" +"(char=? c_80 '#\\f)))" +"(if or-part_212" +" or-part_212" "(let-values(((or-part_315)" -"(char=? c_76 '#\\D)))" +"(char=? c_80 '#\\F)))" "(if or-part_315" " or-part_315" "(let-values(((or-part_316)" -"(char=?" -" c_76" -" '#\\s)))" +"(char=? c_80 '#\\d)))" "(if or-part_316" " or-part_316" "(let-values(((or-part_317)" -"(char=?" -" c_76" -" '#\\S)))" +"(char=? c_80 '#\\D)))" "(if or-part_317" " or-part_317" "(let-values(((or-part_318)" "(char=?" -" c_76" -" '#\\l)))" +" c_80" +" '#\\s)))" "(if or-part_318" " or-part_318" +"(let-values(((or-part_160)" +"(char=?" +" c_80" +" '#\\S)))" +"(if or-part_160" +" or-part_160" "(let-values(((or-part_319)" "(char=?" -" c_76" -" '#\\L)))" +" c_80" +" '#\\l)))" "(if or-part_319" " or-part_319" "(let-values(((or-part_320)" "(char=?" -" c_76" -" '#\\t)))" +" c_80" +" '#\\L)))" "(if or-part_320" " or-part_320" +"(let-values(((or-part_321)" "(char=?" -" c_76" +" c_80" +" '#\\t)))" +"(if or-part_321" +" or-part_321" +"(char=?" +" c_80" " '#\\T)))))))))))))))))))))))" "(let-values()" "(if exp-pos_0" @@ -49256,28 +49217,15 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `~a` in `~.a`\"" -" c_76" -"(substring s_86 start_45 end_34)))" +" c_80" +"(substring s_199 start_44 end_34)))" "(let-values() #f)))" -"(if(if(<(add1 i_173) end_34)" -"(char-sign?(string-ref s_86(add1 i_173)))" +"(if(if(<(add1 i_171) end_34)" +"(char-sign?(string-ref s_199(add1 i_171)))" " #f)" "(let-values()" -"(loop_110" -"(+ i_173 2)" -" any-digits?_0" -" any-hashes?_0" -" i-pos_3" -" @-pos_0" -" sign-pos_0" -" dot-pos_1" -" slash-pos_0" -"(let-values(((or-part_321) exp-pos_0))" -"(if or-part_321 or-part_321 i_173))" -" must-i?_0))" -"(let-values()" -"(loop_110" -"(+ i_173 1)" +"(loop_106" +"(+ i_171 2)" " any-digits?_0" " any-hashes?_0" " i-pos_3" @@ -49286,9 +49234,22 @@ static const char *startup_source = " dot-pos_1" " slash-pos_0" "(let-values(((or-part_322) exp-pos_0))" -"(if or-part_322 or-part_322 i_173))" +"(if or-part_322 or-part_322 i_171))" +" must-i?_0))" +"(let-values()" +"(loop_106" +"(+ i_171 1)" +" any-digits?_0" +" any-hashes?_0" +" i-pos_3" +" @-pos_0" +" sign-pos_0" +" dot-pos_1" +" slash-pos_0" +"(let-values(((or-part_323) exp-pos_0))" +"(if or-part_323 or-part_323 i_171))" " must-i?_0)))))" -"(if(char=? c_76 '#\\@)" +"(if(char=? c_80 '#\\@)" "(let-values()" "(if(eq? in-complex_1 'i)" "(let-values()" @@ -49296,26 +49257,26 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_86 start_45 end_34)))" +"(substring s_199 start_44 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_323) @-pos_0))" -"(if or-part_323" -" or-part_323" +"(if(let-values(((or-part_324) @-pos_0))" +"(if or-part_324" +" or-part_324" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"too many `@`s in `~.a`\"" -"(substring s_86 start_45 end_34)))" +"(substring s_199 start_44 end_34)))" "(let-values() #f)))" -"(if(= i_173 start_45)" +"(if(= i_171 start_44)" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"`@` cannot be at start in `~.a`\"" -"(substring s_86 start_45 end_34)))" +"(substring s_199 start_44 end_34)))" "(let-values() #f)))" "(if must-i?_0" "(let-values()" @@ -49323,57 +49284,57 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_86 start_45 end_34)))" +"(substring s_199 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_110" -"(add1 i_173)" +"(loop_106" +"(add1 i_171)" " any-digits?_0" " any-hashes?_0" " i-pos_3" -" i_173" +" i_171" " #f" " #f" " #f" " #f" " must-i?_0)))))))" -"(if(if(let-values(((or-part_324)" -"(char=? c_76 '#\\i)))" -"(if or-part_324" -" or-part_324" -"(char=? c_76 '#\\I)))" +"(if(if(let-values(((or-part_325)" +"(char=? c_80 '#\\i)))" +"(if or-part_325" +" or-part_325" +"(char=? c_80 '#\\I)))" " sign-pos_0" " #f)" "(let-values()" -"(if(let-values(((or-part_325) @-pos_0))" -"(if or-part_325" -" or-part_325" +"(if(let-values(((or-part_326) @-pos_0))" +"(if or-part_326" +" or-part_326" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_86 start_45 end_34)))" +"(substring s_199 start_44 end_34)))" "(let-values() #f)))" -"(if(let-values(((or-part_326)" -"(<(add1 i_173) end_34)))" -"(if or-part_326" -" or-part_326" +"(if(let-values(((or-part_327)" +"(<(add1 i_171) end_34)))" +"(if or-part_327" +" or-part_327" "(eq? in-complex_1 'i)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"`i' must be at the end in `~.a`\"" -"(substring s_86 start_45 end_34)))" +"(substring s_199 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(loop_110" -"(add1 i_173)" +"(loop_106" +"(add1 i_171)" " any-digits?_0" " any-hashes?_0" -" i_173" +" i_171" " @-pos_0" " sign-pos_0" " #f" @@ -49381,19 +49342,19 @@ static const char *startup_source = " #f" " #f)))))" "(let-values()" -"(if(char=? c_76 '#\\nul)" +"(if(char=? c_80 '#\\nul)" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" -" (format \"nul character in `~.a`\" s_86))" +" (format \"nul character in `~.a`\" s_199))" "(let-values() #f)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" -" (format \"bad digit `~a`\" c_76))" +" (format \"bad digit `~a`\" c_80))" "(let-values() #f))))))))))))))))))))" -" loop_110)" -" start_45" +" loop_106)" +" start_44" " #f" " #f" " #f" @@ -49419,7 +49380,7 @@ static const char *startup_source = " convert-mode49_0)" "(begin" " 'string->complex-number50" -"(let-values(((s_473) s40_0))" +"(let-values(((s_221) s40_0))" "(let-values(((start1_0) start141_0))" "(let-values(((end1_0) end142_0))" "(let-values(((start2_0) start243_0))" @@ -49436,7 +49397,11 @@ static const char *startup_source = "(if(= start1_0 end1_0)" "(let-values()(if(eq? exactness_2 'inexact) 0.0 0))" "(let-values()" -"(let-values(((radix-set?164_0) radix-set?_2)" +"(let-values(((s160_0) s_221)" +"((start1161_0) start1_0)" +"((end1162_0) end1_0)" +"((radix163_0) radix_6)" +"((radix-set?164_0) radix-set?_2)" "((exactness165_0) exactness_2)" "((in-complex166_0) in-complex_2)" "((convert-mode167_0) convert-mode_4))" @@ -49444,21 +49409,25 @@ static const char *startup_source = " in-complex166_0" " #t" " radix-set?164_0" -" s_473" -" start1_0" -" end1_0" -" radix_6" +" s160_0" +" start1161_0" +" end1162_0" +" radix163_0" " exactness165_0" " convert-mode167_0))))))" -"(let-values(((v2_7)" +"(let-values(((v2_6)" "(if(if(eq? in-complex_2 'i)(=(- end2_0 start2_0) 1) #f)" "(let-values()" -"(let-values(((neg?_0)(char=?(string-ref s_473 start2_0) '#\\-)))" +"(let-values(((neg?_0)(char=?(string-ref s_221 start2_0) '#\\-)))" "(if(eq? exactness_2 'inexact)" "(let-values()(if neg?_0 -1.0 1.0))" "(let-values()(if neg?_0 -1 1)))))" "(let-values()" -"(let-values(((radix-set?172_0) radix-set?_2)" +"(let-values(((s168_0) s_221)" +"((start2169_0) start2_0)" +"((end2170_0) end2_0)" +"((radix171_0) radix_6)" +"((radix-set?172_0) radix-set?_2)" "((exactness173_0) exactness_2)" "((in-complex174_0) in-complex_2)" "((convert-mode175_0) convert-mode_4))" @@ -49466,17 +49435,17 @@ static const char *startup_source = " in-complex174_0" " #t" " radix-set?172_0" -" s_473" -" start2_0" -" end2_0" -" radix_6" +" s168_0" +" start2169_0" +" end2170_0" +" radix171_0" " exactness173_0" " convert-mode175_0))))))" -"(if(let-values(((or-part_327)(not v1_0)))" -"(if or-part_327 or-part_327(not v2_7)))" +"(if(let-values(((or-part_328)(not v1_0)))" +"(if or-part_328 or-part_328(not v2_6)))" "(let-values() #f)" -"(if(if(let-values(((or-part_328)(extflonum? v1_0)))" -"(if or-part_328 or-part_328(extflonum? v2_7)))" +"(if(if(let-values(((or-part_329)(extflonum? v1_0)))" +"(if or-part_329 or-part_329(extflonum? v2_6)))" "(not(eq? convert-mode_4 'must-read))" " #f)" "(let-values()(fail-extflonum convert-mode_4 v1_0))" @@ -49484,108 +49453,108 @@ static const char *startup_source = "(let-values() v1_0)" "(if(extflonum? v1_0)" "(let-values()(fail-extflonum convert-mode_4 v1_0))" -"(if(string? v2_7)" -"(let-values() v2_7)" -"(if(extflonum? v2_7)" -"(let-values()(fail-extflonum convert-mode_4 v2_7))" +"(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_7))" +"(let-values()(make-rectangular v1_0 v2_6))" "(let-values()" -"(let-values(((p_72)(make-polar v1_0 v2_7)))" +"(let-values(((p_70)(make-polar v1_0 v2_6)))" "(if(eq? exactness_2 'exact)" -"(inexact->exact p_72)" -" p_72))))))))))))))))))))))))))))" +"(inexact->exact p_70)" +" p_70))))))))))))))))))))))))))))" "(define-values" "(string->real-number)" -"(lambda(s_474 start_46 end_35 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" +"(lambda(s_234 start_45 end_35 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" "(begin" "(let-values(((extfl-mark?_0)" -"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_474 exp-pos_1)) '#\\t)))))" +"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_234 exp-pos_1)) '#\\t)))))" "(let-values(((simple?_0)" "(if(not slash-pos_1)" -"(if(let-values(((or-part_329)(eq? exactness_3 'inexact)))" -"(if or-part_329" -" or-part_329" -"(let-values(((or-part_330)(eq? exactness_3 'decimal-as-inexact)))" -"(if or-part_330 or-part_330(if(not dot-pos_2)(not exp-pos_1) #f)))))" -"(if(let-values(((or-part_331)(not exp-pos_1)))" -"(if or-part_331" -" or-part_331" -"(let-values(((or-part_237)(not(eq? convert-mode_5 'number-or-false))))" -"(if or-part_237 or-part_237(not(extfl-mark?_0))))))" -"(not(if any-hashes?_1(hashes? s_474 start_46 end_35) #f))" +"(if(let-values(((or-part_330)(eq? exactness_3 'inexact)))" +"(if or-part_330" +" or-part_330" +"(let-values(((or-part_331)(eq? exactness_3 'decimal-as-inexact)))" +"(if or-part_331 or-part_331(if(not dot-pos_2)(not exp-pos_1) #f)))))" +"(if(let-values(((or-part_332)(not exp-pos_1)))" +"(if or-part_332" +" or-part_332" +"(let-values(((or-part_333)(not(eq? convert-mode_5 'number-or-false))))" +"(if or-part_333 or-part_333(not(extfl-mark?_0))))))" +"(not(if any-hashes?_1(hashes? s_234 start_45 end_35) #f))" " #f)" " #f)" " #f)))" -"(let-values(((has-sign?_0)(if(> end_35 start_46)(char-sign?(string-ref s_474 start_46)) #f)))" -"(if(=(- end_35 start_46)(+(if dot-pos_2 1 0)(if exp-pos_1 1 0)(if has-sign?_0 1 0)))" +"(let-values(((has-sign?_0)(if(> end_35 start_45)(char-sign?(string-ref s_234 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()" -"(if(= end_35 start_46)" +"(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_474 start_46 end_35)))" +" (let-values () (format \"missing digits in `~.a`\" (substring s_234 start_45 end_35)))" "(let-values() #f))))" "(if simple?_0" "(let-values()" "(if(if exp-pos_1" "(=" -"(- exp-pos_1 start_46)" +"(- 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)))" " #f)" "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" -" (format \"missing digits before exponent marker in `~.a`\" (substring s_474 start_46 end_35)))" +" (format \"missing digits before exponent marker in `~.a`\" (substring s_234 start_45 end_35)))" "(let-values() #f)))" "(if(if exp-pos_1" -"(let-values(((or-part_332)(= exp-pos_1(sub1 end_35))))" -"(if or-part_332" -" or-part_332" -"(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_474(sub1 end_35))) #f)))" +"(let-values(((or-part_334)(= exp-pos_1(sub1 end_35))))" +"(if or-part_334" +" or-part_334" +"(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_234(sub1 end_35))) #f)))" " #f)" "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" -" (format \"missing digits after exponent marker in `~.a`\" (substring s_474 start_46 end_35)))" +" (format \"missing digits after exponent marker in `~.a`\" (substring s_234 start_45 end_35)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_32)" +"(let-values(((n_30)" "(string->number$1" -"(maybe-substring s_474 start_46 end_35)" +"(maybe-substring s_234 start_45 end_35)" " radix_7" -"(if(let-values(((or-part_333)(eq? convert-mode_5 'number-or-false)))" -"(if or-part_333" -" or-part_333" -"(let-values(((or-part_238)(not exp-pos_1)))" -"(if or-part_238 or-part_238(not(extfl-mark?_0))))))" +"(if(let-values(((or-part_335)(eq? convert-mode_5 'number-or-false)))" +"(if or-part_335" +" or-part_335" +"(let-values(((or-part_336)(not exp-pos_1)))" +"(if or-part_336 or-part_336(not(extfl-mark?_0))))))" " 'number-or-false" " 'read))))" -"(if(let-values(((or-part_334)(not n_32)))(if or-part_334 or-part_334(string? n_32)))" +"(if(let-values(((or-part_337)(not n_30)))(if or-part_337 or-part_337(string? n_30)))" "(let-values()" "(error" " 'string->number" " \"host `string->number` failed on ~s\"" -"(substring s_474 start_46 end_35)))" +"(substring s_234 start_45 end_35)))" "(if(eq? exactness_3 'inexact)" "(let-values()" -"(if(extflonum? n_32)" +"(if(extflonum? n_30)" "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" "(format" " \"cannot convert extflonum `~.a` to inexact\"" -"(substring s_474 start_46 end_35)))" +"(substring s_234 start_45 end_35)))" "(let-values() #f)))" -"(if(if(eqv? n_32 0)(char=?(string-ref s_474 start_46) '#\\-) #f)" +"(if(if(eqv? n_30 0)(char=?(string-ref s_234 start_45) '#\\-) #f)" "(let-values() -0.0)" -"(let-values()(exact->inexact n_32)))))" -"(let-values() n_32))))))))" +"(let-values()(exact->inexact n_30)))))" +"(let-values() n_30))))))))" "(if exp-pos_1" "(let-values()" "(let-values(((m-v_0)" "(string->real-number" -" s_474" -" start_46" +" s_234" +" start_45" " exp-pos_1" " dot-pos_2" " slash-pos_1" @@ -49595,29 +49564,29 @@ static const char *startup_source = " 'exact" " convert-mode_5)))" "(let-values(((e-v_0)" -"(string->exact-integer-number s_474(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))" +"(string->exact-integer-number s_234(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))" "(let-values(((real->precision-inexact_0)" -"(lambda(r_46)" +"(lambda(r_45)" "(begin" " 'real->precision-inexact" -"(let-values(((tmp_42)(string-ref s_474 exp-pos_1)))" -"(if(if(equal? tmp_42 '#\\s)" +"(let-values(((tmp_41)(string-ref s_234 exp-pos_1)))" +"(if(if(equal? tmp_41 '#\\s)" " #t" -"(if(equal? tmp_42 '#\\S)" +"(if(equal? tmp_41 '#\\S)" " #t" -"(if(equal? tmp_42 '#\\f) #t(equal? tmp_42 '#\\F))))" -"(let-values()(real->single-flonum r_46))" -"(if(if(equal? tmp_42 '#\\t) #t(equal? tmp_42 '#\\T))" +"(if(equal? tmp_41 '#\\f) #t(equal? tmp_41 '#\\F))))" +"(let-values()(real->single-flonum r_45))" +"(if(if(equal? tmp_41 '#\\t) #t(equal? tmp_41 '#\\T))" "(let-values()" "(if(extflonum-available?)" -"(real->extfl r_46)" +"(real->extfl r_45)" "(string->number$1" -"(replace-hashes s_474 start_46 end_35)" +"(replace-hashes s_234 start_45 end_35)" " radix_7" " 'read)))" -"(let-values()(real->double-flonum r_46)))))))))" +"(let-values()(real->double-flonum r_45)))))))))" "(let-values(((get-extfl?_0)(extfl-mark?_0)))" -"(if(let-values(((or-part_335)(not m-v_0)))(if or-part_335 or-part_335(not e-v_0)))" +"(if(let-values(((or-part_338)(not m-v_0)))(if or-part_338 or-part_338(not e-v_0)))" "(let-values() #f)" "(if(string? m-v_0)" "(let-values() m-v_0)" @@ -49625,14 +49594,14 @@ static const char *startup_source = "(let-values() e-v_0)" "(if(if(eq? convert-mode_5 'number-or-false) get-extfl?_0 #f)" "(let-values() #f)" -"(if(if(let-values(((or-part_336)(eq? exactness_3 'inexact)))" -"(if or-part_336 or-part_336(eq? exactness_3 'decimal-as-inexact)))" +"(if(if(let-values(((or-part_227)(eq? exactness_3 'inexact)))" +"(if or-part_227 or-part_227(eq? exactness_3 'decimal-as-inexact)))" "(>(abs e-v_0)(if get-extfl?_0 6000 400))" " #f)" "(let-values()" "(real->precision-inexact_0" "(if(eqv? m-v_0 0)" -"(let-values()(if(char=?(string-ref s_474 start_46) '#\\-) -0.0 0.0))" +"(let-values()(if(char=?(string-ref s_234 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))))))" @@ -49642,25 +49611,25 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to ~a\"" -"(substring s_474 start_46 end_35)" +"(substring s_234 start_45 end_35)" " exactness_3))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_33)(* m-v_0(expt radix_7 e-v_0))))" +"(let-values(((n_31)(* m-v_0(expt radix_7 e-v_0))))" "(if(if(not get-extfl?_0)" -"(let-values(((or-part_337)(eq? exactness_3 'exact)))" -"(if or-part_337 or-part_337(eq? exactness_3 'decimal-as-exact)))" +"(let-values(((or-part_339)(eq? exactness_3 'exact)))" +"(if or-part_339 or-part_339(eq? exactness_3 'decimal-as-exact)))" " #f)" -"(let-values() n_33)" -"(if(if(eqv? n_33 0)(char=?(string-ref s_474 start_46) '#\\-) #f)" +"(let-values() n_31)" +"(if(if(eqv? n_31 0)(char=?(string-ref s_234 start_45) '#\\-) #f)" "(let-values()(real->precision-inexact_0 -0.0))" -"(let-values()(real->precision-inexact_0 n_33)))))))))))))))))" +"(let-values()(real->precision-inexact_0 n_31)))))))))))))))))" "(if slash-pos_1" "(let-values()" "(let-values(((n-v_0)" "(string->real-number" -" s_474" -" start_46" +" s_234" +" start_45" " slash-pos_1" " #f" " #f" @@ -49671,7 +49640,7 @@ static const char *startup_source = " convert-mode_5)))" "(let-values(((d-v_0)" "(string->real-number" -" s_474" +" s_234" "(add1 slash-pos_1)" " end_35" " #f" @@ -49685,13 +49654,13 @@ static const char *startup_source = "(lambda(from-pos_0)" "(begin" " 'get-inexact?" -"(let-values(((or-part_338)(eq? exactness_3 'inexact)))" -"(if or-part_338" -" or-part_338" +"(let-values(((or-part_112)(eq? exactness_3 'inexact)))" +"(if or-part_112" +" or-part_112" "(if(not(eq? exactness_3 'exact))" -"(hashes? s_474 from-pos_0 end_35)" +"(hashes? s_234 from-pos_0 end_35)" " #f)))))))" -"(if(let-values(((or-part_339)(not n-v_0)))(if or-part_339 or-part_339(not d-v_0)))" +"(if(let-values(((or-part_113)(not n-v_0)))(if or-part_113 or-part_113(not d-v_0)))" "(let-values() #f)" "(if(string? n-v_0)" "(let-values() n-v_0)" @@ -49704,15 +49673,15 @@ static const char *startup_source = "(let-values()" "(if(eq?(read-complains convert-mode_5) 'must-read)" "(let-values()" -" (format \"division by zero in `~.a`\" (substring s_474 start_46 end_35)))" +" (format \"division by zero in `~.a`\" (substring s_234 start_45 end_35)))" "(let-values() #f)))))" "(let-values()" -"(let-values(((n_34)(/ n-v_0 d-v_0)))" -"(if(get-inexact?_0 start_46)(exact->inexact n_34) n_34)))))))))))" +"(let-values(((n_32)(/ n-v_0 d-v_0)))" +"(if(get-inexact?_0 start_45)(exact->inexact n_32) n_32)))))))))))" "(let-values()" "(string->decimal-number" -" s_474" -" start_46" +" s_234" +" start_45" " end_35" " dot-pos_2" " radix_7" @@ -49720,149 +49689,149 @@ static const char *startup_source = " convert-mode_5))))))))))))" "(define-values" "(string->decimal-number)" -"(lambda(s_475 start_47 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)" +"(lambda(s_357 start_46 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)" "(begin" "(let-values(((get-exact?_0)" "(let-values(((or-part_340)(eq? exactness_4 'exact)))" "(if or-part_340 or-part_340(eq? exactness_4 'decimal-as-exact)))))" -"(let-values(((new-str_0)(make-string(- end_36 start_47(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))" -"((letrec-values(((loop_111)" -"(lambda(i_174 j_3 hashes-pos_0)" +"(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_107)" +"(lambda(i_130 j_3 hashes-pos_0)" "(begin" " 'loop" -"(if(< i_174 start_47)" +"(if(< i_130 start_46)" "(let-values()" -"(if(= hashes-pos_0 start_47)" +"(if(= hashes-pos_0 start_46)" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" -" (format \"misplaced `#` in `~.a`\" (substring s_475 start_47 end_36)))" +" (format \"misplaced `#` in `~.a`\" (substring s_357 start_46 end_36)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_35)(string->number$1 new-str_0 radix_8)))" -"(if(not n_35)" -"(let-values()(fail-bad-number convert-mode_6 s_475 start_47 end_36))" +"(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_357 start_46 end_36))" "(if(not get-exact?_0)" "(let-values()" -"(if(if(eqv? n_35 0)(char=?(string-ref s_475 start_47) '#\\-) #f)" +"(if(if(eqv? n_33 0)(char=?(string-ref s_357 start_46) '#\\-) #f)" " -0.0" -"(exact->inexact n_35)))" +"(exact->inexact n_33)))" "(if(if dot-pos_3 get-exact?_0 #f)" -"(let-values()(/ n_35(expt 10(- end_36 dot-pos_3 1))))" -"(let-values() n_35))))))))" +"(let-values()(/ n_33(expt 10(- end_36 dot-pos_3 1))))" +"(let-values() n_33))))))))" "(let-values()" -"(let-values(((c_77)(string-ref s_475 i_174)))" -"(if(char=? c_77 '#\\.)" +"(let-values(((c_81)(string-ref s_357 i_130)))" +"(if(char=? c_81 '#\\.)" "(let-values()" "(if get-exact?_0" "(let-values()" -"(loop_111" -"(sub1 i_174)" +"(loop_107" +"(sub1 i_130)" " j_3" -"(if(= hashes-pos_0(add1 i_174)) i_174 hashes-pos_0)))" +"(if(= hashes-pos_0(add1 i_130)) i_130 hashes-pos_0)))" "(let-values()" "(begin" -"(string-set! new-str_0 j_3 c_77)" -"(loop_111" -"(sub1 i_174)" +"(string-set! new-str_0 j_3 c_81)" +"(loop_107" +"(sub1 i_130)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_174)) i_174 hashes-pos_0))))))" -"(if(let-values(((or-part_341)(char=? c_77 '#\\-)))" -"(if or-part_341 or-part_341(char=? c_77 '#\\+)))" +"(if(= hashes-pos_0(add1 i_130)) i_130 hashes-pos_0))))))" +"(if(let-values(((or-part_341)(char=? c_81 '#\\-)))" +"(if or-part_341 or-part_341(char=? c_81 '#\\+)))" "(let-values()" "(begin" -"(string-set! new-str_0 j_3 c_77)" -"(loop_111" -"(sub1 i_174)" +"(string-set! new-str_0 j_3 c_81)" +"(loop_107" +"(sub1 i_130)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_174)) i_174 hashes-pos_0))))" -"(if(char=? c_77 '#\\#)" +"(if(= hashes-pos_0(add1 i_130)) i_130 hashes-pos_0))))" +"(if(char=? c_81 '#\\#)" "(let-values()" -"(if(= hashes-pos_0(add1 i_174))" +"(if(= hashes-pos_0(add1 i_130))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 '#\\0)" -"(loop_111(sub1 i_174)(sub1 j_3) i_174)))" +"(loop_107(sub1 i_130)(sub1 j_3) i_130)))" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" "(format" " \"misplaced `#` in `~.a`\"" -"(substring s_475 start_47 end_36)))" +"(substring s_357 start_46 end_36)))" "(let-values() #f)))))" "(let-values()" "(begin" -"(string-set! new-str_0 j_3 c_77)" -"(loop_111(sub1 i_174)(sub1 j_3) hashes-pos_0)))))))))))))" -" loop_111)" +"(string-set! new-str_0 j_3 c_81)" +"(loop_107(sub1 i_130)(sub1 j_3) hashes-pos_0)))))))))))))" +" loop_107)" "(sub1 end_36)" "(sub1(string-length new-str_0))" " end_36))))))" "(define-values" "(string->exact-integer-number)" -"(lambda(s_353 start_48 end_37 radix_9 convert-mode_7)" +"(lambda(s_244 start_26 end_18 radix_9 convert-mode_7)" "(begin" -"(if(hashes? s_353 start_48 end_37)" +"(if(hashes? s_244 start_26 end_18)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_353 start_48 end_37)))" +" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_244 start_26 end_18)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_36)(string->number$1(maybe-substring s_353 start_48 end_37) radix_9)))" -"(if(not n_36)" +"(let-values(((n_34)(string->number$1(maybe-substring s_244 start_26 end_18) radix_9)))" +"(if(not n_34)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"bad exponent `~.a`\" (substring s_353 start_48 end_37)))" +" (let-values () (format \"bad exponent `~.a`\" (substring s_244 start_26 end_18)))" "(let-values() #f)))" -"(let-values() n_36))))))))" +"(let-values() n_34))))))))" "(define-values" "(read-special-number)" -"(lambda(s_476 start_49 end_38 convert-mode_8)" +"(lambda(s_247 start_47 end_37 convert-mode_8)" "(begin" -"(if(=(- end_38 start_49) 6)" -"(if(let-values(((or-part_342)(char=?(string-ref s_476 start_49) '#\\+)))" -"(if or-part_342 or-part_342(char=?(string-ref s_476 start_49) '#\\-)))" -"(let-values(((or-part_232)" -"(if(char=?(char-downcase(string-ref s_476(+ start_49 1))) '#\\i)" -"(if(char=?(char-downcase(string-ref s_476(+ start_49 2))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_476(+ start_49 3))) '#\\f)" -"(if(char=?(char-downcase(string-ref s_476(+ start_49 4))) '#\\.)" +"(if(=(- end_37 start_47) 6)" +"(if(let-values(((or-part_342)(char=?(string-ref s_247 start_47) '#\\+)))" +"(if or-part_342 or-part_342(char=?(string-ref s_247 start_47) '#\\-)))" "(let-values(((or-part_343)" -"(if(char=?(char-downcase(string-ref s_476(+ start_49 5))) '#\\0)" -"(if(char=?(string-ref s_476 start_49) '#\\+) +inf.0 -inf.0)" -" #f)))" -"(if or-part_343" -" or-part_343" +"(if(char=?(char-downcase(string-ref s_247(+ start_47 1))) '#\\i)" +"(if(char=?(char-downcase(string-ref s_247(+ start_47 2))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_247(+ start_47 3))) '#\\f)" +"(if(char=?(char-downcase(string-ref s_247(+ start_47 4))) '#\\.)" "(let-values(((or-part_344)" -"(if(char=?(char-downcase(string-ref s_476(+ start_49 5))) '#\\f)" -"(if(char=?(string-ref s_476 start_49) '#\\+) +inf.f -inf.f)" +"(if(char=?(char-downcase(string-ref s_247(+ start_47 5))) '#\\0)" +"(if(char=?(string-ref s_247 start_47) '#\\+) +inf.0 -inf.0)" " #f)))" "(if or-part_344" " or-part_344" -"(if(char=?(char-downcase(string-ref s_476(+ start_49 5))) '#\\t)" +"(let-values(((or-part_345)" +"(if(char=?(char-downcase(string-ref s_247(+ start_47 5))) '#\\f)" +"(if(char=?(string-ref s_247 start_47) '#\\+) +inf.f -inf.f)" +" #f)))" +"(if or-part_345" +" or-part_345" +"(if(char=?(char-downcase(string-ref s_247(+ start_47 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false))" -"(if(char=?(string-ref s_476 start_49) '#\\+) '+inf.t '-inf.t)" +"(if(char=?(string-ref s_247 start_47) '#\\+) '+inf.t '-inf.t)" " #f)" " #f)))))" " #f)" " #f)" " #f)" " #f)))" -"(if or-part_232" -" or-part_232" -"(if(char=?(char-downcase(string-ref s_476(+ start_49 1))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_476(+ start_49 2))) '#\\a)" -"(if(char=?(char-downcase(string-ref s_476(+ start_49 3))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_476(+ start_49 4))) '#\\.)" -"(let-values(((or-part_345)" -"(if(char=?(char-downcase(string-ref s_476(+ start_49 5))) '#\\0) +nan.0 #f)))" -"(if or-part_345" -" or-part_345" +"(if or-part_343" +" or-part_343" +"(if(char=?(char-downcase(string-ref s_247(+ start_47 1))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_247(+ start_47 2))) '#\\a)" +"(if(char=?(char-downcase(string-ref s_247(+ start_47 3))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_247(+ start_47 4))) '#\\.)" "(let-values(((or-part_346)" -"(if(char=?(char-downcase(string-ref s_476(+ start_49 5))) '#\\f) +nan.f #f)))" +"(if(char=?(char-downcase(string-ref s_247(+ start_47 5))) '#\\0) +nan.0 #f)))" "(if or-part_346" " or-part_346" -"(if(char=?(char-downcase(string-ref s_476(+ start_49 5))) '#\\t)" +"(let-values(((or-part_347)" +"(if(char=?(char-downcase(string-ref s_247(+ start_47 5))) '#\\f) +nan.f #f)))" +"(if or-part_347" +" or-part_347" +"(if(char=?(char-downcase(string-ref s_247(+ start_47 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" " #f)))))" " #f)" @@ -49873,10 +49842,10 @@ static const char *startup_source = " #f))))" "(define-values" "(fail-extflonum)" -"(lambda(convert-mode_9 v_227)" +"(lambda(convert-mode_9 v_234)" "(begin" "(if(eq? convert-mode_9 'must-read)" -" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_227))" +" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_234))" "(let-values() #f)))))" "(define-values" "(read-for-special-compound65.1)" @@ -49893,30 +49862,34 @@ static const char *startup_source = " combine64_0)" "(begin" " 'read-for-special-compound65" -"(let-values(((s_477) s57_0))" -"(let-values(((start_50) start58_0))" -"(let-values(((end_39) end59_0))" +"(let-values(((s_462) s57_0))" +"(let-values(((start_48) start58_0))" +"(let-values(((end_38) end59_0))" "(let-values(((radix_10) radix60_0))" "(let-values(((exactness_5) exactness61_0))" "(let-values(((convert-mode_10) convert-mode62_0))" "(let-values(((in-complex_3) in-complex53_0))" "(let-values(((reading-first?_0)(if reading-first?56_0 reading-first?54_0 #f)))" -"(let-values(((v_228) v63_0))" +"(let-values(((v_235) v63_0))" "(let-values(((combine_1) combine64_0))" "(let-values()" "(if(eq? exactness_5 'exact)" "(let-values()" "(if(eq? convert-mode_10 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_228))" +" (let-values () (format \"no exact representation for `~a`\" v_235))" "(let-values() #f)))" -"(if(if(extflonum? v_228)" -"(let-values(((or-part_347)(not reading-first?_0)))" -"(if or-part_347 or-part_347(not(eq? convert-mode_10 'must-read))))" +"(if(if(extflonum? v_235)" +"(let-values(((or-part_348)(not reading-first?_0)))" +"(if or-part_348 or-part_348(not(eq? convert-mode_10 'must-read))))" " #f)" -"(let-values()(fail-extflonum convert-mode_10 v_228))" +"(let-values()(fail-extflonum convert-mode_10 v_235))" "(let-values()" -"(let-values(((v2_8)" -"(let-values(((temp180_0) #t)" +"(let-values(((v2_7)" +"(let-values(((s176_0) s_462)" +"((start177_0) start_48)" +"((end178_0) end_38)" +"((radix179_0) radix_10)" +"((temp180_0) #t)" "((exactness181_0) exactness_5)" "((in-complex182_0) in-complex_3)" "((convert-mode183_0) convert-mode_10))" @@ -49924,145 +49897,145 @@ static const char *startup_source = " in-complex182_0" " #t" " temp180_0" -" s_477" -" start_50" -" end_39" -" radix_10" +" s176_0" +" start177_0" +" end178_0" +" radix179_0" " exactness181_0" " convert-mode183_0))))" -"(if(string? v2_8)" -"(let-values() v2_8)" -"(if(not v2_8)" -"(let-values() v2_8)" -"(if(extflonum? v_228)" -"(let-values()(fail-extflonum convert-mode_10 v_228))" -"(let-values()(combine_1 v_228 v2_8)))))))))))))))))))))))" +"(if(string? v2_7)" +"(let-values() v2_7)" +"(if(not v2_7)" +"(let-values() v2_7)" +"(if(extflonum? v_235)" +"(let-values()(fail-extflonum convert-mode_10 v_235))" +"(let-values()(combine_1 v_235 v2_7)))))))))))))))))))))))" "(define-values" "(hashes?)" -"(lambda(s_478 start_51 end_40)" +"(lambda(s_126 start_49 end_39)" "(begin" "(let-values(((v*_6 start*_5 stop*_6 step*_5)" "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_82)(string? x_82))" -"(lambda(x_83)(unsafe-string-length x_83))" -" s_478" -" start_51" -" end_40" +"(lambda(x_81)(string? x_81))" +"(lambda(x_82)(unsafe-string-length x_82))" +" s_126" +" start_49" +" end_39" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_262)" -"(lambda(result_115 idx_5)" +"((letrec-values(((for-loop_268)" +"(lambda(result_114 idx_5)" "(begin" " 'for-loop" "(if(unsafe-fx< idx_5 stop*_6)" -"(let-values(((c_78)(string-ref v*_6 idx_5)))" -"(let-values(((result_116)" +"(let-values(((c_82)(string-ref v*_6 idx_5)))" +"(let-values(((result_115)" "(let-values()" -"(let-values(((result_117)" -"(let-values()(let-values()(char=? c_78 '#\\#)))))" -"(values result_117)))))" -"(if(if(not((lambda x_84 result_116) c_78))(not #f) #f)" -"(for-loop_262 result_116(unsafe-fx+ idx_5 1))" -" result_116)))" -" result_115)))))" -" for-loop_262)" +"(let-values(((result_116)" +"(let-values()(let-values()(char=? c_82 '#\\#)))))" +"(values result_116)))))" +"(if(if(not((lambda x_83 result_115) c_82))(not #f) #f)" +"(for-loop_268 result_115(unsafe-fx+ idx_5 1))" +" result_115)))" +" result_114)))))" +" for-loop_268)" " #f" " start*_5))))))" "(define-values" "(replace-hashes)" -"(lambda(s_263 start_52 end_41)" +"(lambda(s_463 start_50 end_40)" "(begin" -"(let-values(((new-s_9)(make-string(- end_41 start_52))))" +"(let-values(((new-s_9)(make-string(- end_40 start_50))))" "(begin" "(let-values(((v*_7 start*_6 stop*_7 step*_6)" "(normalise-inputs" " 'in-string" " \"string\"" -"(lambda(x_85)(string? x_85))" -"(lambda(x_86)(unsafe-string-length x_86))" -" s_263" -" start_52" -" end_41" +"(lambda(x_84)(string? x_84))" +"(lambda(x_85)(unsafe-string-length x_85))" +" s_463" +" start_50" +" end_40" " 1))" -"((start_53) 0))" +"((start_51) 0))" "(begin" " #t" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-naturals start_53)))" -"((letrec-values(((for-loop_263)" -"(lambda(idx_6 pos_111)" +"(let-values()(check-naturals start_51)))" +"((letrec-values(((for-loop_269)" +"(lambda(idx_6 pos_114)" "(begin" " 'for-loop" "(if(if(unsafe-fx< idx_6 stop*_7) #t #f)" -"(let-values(((c_79)(string-ref v*_7 idx_6))((i_175) pos_111))" +"(let-values(((c_83)(string-ref v*_7 idx_6))((i_172) pos_114))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(if(char=? c_79 '#\\#)" -"(string-set! new-s_9 i_175 '#\\0)" -"(string-set! new-s_9 i_175 c_79)))" +"(if(char=? c_83 '#\\#)" +"(string-set! new-s_9 i_172 '#\\0)" +"(string-set! new-s_9 i_172 c_83)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_263(unsafe-fx+ idx_6 1)(+ pos_111 1))(values))))" +"(if(not #f)(for-loop_269(unsafe-fx+ idx_6 1)(+ pos_114 1))(values))))" "(values))))))" -" for-loop_263)" +" for-loop_269)" " start*_6" -" start_53)))" +" start_51)))" "(void)" " new-s_9)))))" "(define-values" "(maybe-substring)" -"(lambda(s_462 start_54 end_42)" -"(begin(if(if(= 0 start_54)(= end_42(string-length s_462)) #f) s_462(substring s_462 start_54 end_42)))))" +"(lambda(s_464 start_52 end_41)" +"(begin(if(if(= 0 start_52)(= end_41(string-length s_464)) #f) s_464(substring s_464 start_52 end_41)))))" "(define-values" "(exactness-set?)" "(lambda(exactness_6)" "(begin" -"(let-values(((or-part_348)(eq? exactness_6 'exact)))(if or-part_348 or-part_348(eq? exactness_6 'inexact))))))" +"(let-values(((or-part_349)(eq? exactness_6 'exact)))(if or-part_349 or-part_349(eq? exactness_6 'inexact))))))" "(define-values" "(char-sign?)" -"(lambda(c_80)" -"(begin(let-values(((or-part_349)(char=? c_80 '#\\-)))(if or-part_349 or-part_349(char=? c_80 '#\\+))))))" +"(lambda(c_84)" +"(begin(let-values(((or-part_350)(char=? c_84 '#\\-)))(if or-part_350 or-part_350(char=? c_84 '#\\+))))))" "(define-values" "(digit?)" -"(lambda(c_81 radix_11)" +"(lambda(c_85 radix_11)" "(begin" -"(let-values(((v_229)(char->integer c_81)))" -"(let-values(((or-part_350)" -"(if(>= v_229(char->integer '#\\0))(<(- v_229(char->integer '#\\0)) radix_11) #f)))" -"(if or-part_350" -" or-part_350" +"(let-values(((v_236)(char->integer c_85)))" +"(let-values(((or-part_272)" +"(if(>= v_236(char->integer '#\\0))(<(- v_236(char->integer '#\\0)) radix_11) #f)))" +"(if or-part_272" +" or-part_272" "(if(> radix_11 10)" "(let-values(((or-part_351)" -"(if(>= v_229(char->integer '#\\a))(<(- v_229(-(char->integer '#\\a) 10)) radix_11) #f)))" +"(if(>= v_236(char->integer '#\\a))(<(- v_236(-(char->integer '#\\a) 10)) radix_11) #f)))" "(if or-part_351" " or-part_351" -"(if(>= v_229(char->integer '#\\A))(<(- v_229(-(char->integer '#\\A) 10)) radix_11) #f)))" +"(if(>= v_236(char->integer '#\\A))(<(- v_236(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" -"(lambda(convert-mode_11 s_479 start_55 end_43)" +"(lambda(convert-mode_11 s_465 start_53 end_42)" "(begin" "(if(eq? convert-mode_11 'must-read)" -" (let-values () (format \"bad number `~.a`\" (substring s_479 start_55 end_43)))" +" (let-values () (format \"bad number `~.a`\" (substring s_465 start_53 end_42)))" "(let-values() #f)))))" "(define-values" "(read-complains)" "(lambda(convert-mode_12)(begin(if(eq? convert-mode_12 'read) 'must-read convert-mode_12))))" "(define-values" "(read-symbol-or-number8.1)" -"(lambda(extra-prefix2_0 extra-prefix4_0 mode1_0 mode3_0 init-c5_0 in6_0 config7_0)" +"(lambda(extra-prefix2_0 extra-prefix4_0 mode1_0 mode3_0 init-c5_0 in6_1 config7_0)" "(begin" " 'read-symbol-or-number8" "(let-values(((init-c_2) init-c5_0))" -"(let-values(((in_25) in6_0))" +"(let-values(((in_24) in6_1))" "(let-values(((config_24) config7_0))" "(let-values(((mode_17)(if mode3_0 mode1_0 'symbol-or-number)))" "(let-values(((extra-prefix_0)(if extra-prefix4_0 extra-prefix2_0 #f)))" @@ -50080,7 +50053,7 @@ static const char *startup_source = "(readtable-apply" " handler_2" " init-c_2" -" in_25" +" in_24" " config_24" "(read-config-line config_24)" "(read-config-col config_24)" @@ -50098,17 +50071,19 @@ static const char *startup_source = "(values))))" "(let-values(((source_17)(read-config-source config_24)))" "(let-values(((unexpected-quoted_0)" -"(lambda(c_82 after-c_0)" +"(lambda(c_86 after-c_0)" "(begin" " 'unexpected-quoted" -"(let-values(((c13_1) c_82)" +"(let-values(((in11_1) in_24)" +"((config12_2) config_24)" +"((c13_1) c_86)" " ((temp14_6) \"~a following `~a` in ~a\")" "((temp15_5)" -"(if(eof-object? c_82)" +"(if(eof-object? c_86)" " \"end-of-file\"" " \"non-character\"))" "((after-c16_0) after-c_0)" -"((temp17_2)" +"((temp17_3)" "(if(eq? mode_17 'keyword)" " (let-values () \"keyword\")" "(if(string? mode_17)" @@ -50121,35 +50096,35 @@ static const char *startup_source = " #t" " #f" " #f" -" in_25" -" config_24" +" in11_1" +" config12_2" " temp14_6" -"(list temp15_5 after-c16_0 temp17_2)))))))" +"(list temp15_5 after-c16_0 temp17_3)))))))" "(let-values((()" "(begin" -"((letrec-values(((loop_112)" +"((letrec-values(((loop_108)" "(lambda(init-c_5" " pipe-quote-c_0" " foldcase-from_0)" "(begin" " 'loop" -"(let-values(((c_83)" -"(let-values(((or-part_76)" +"(let-values(((c_87)" +"(let-values(((or-part_81)" " init-c_5))" -"(if or-part_76" -" or-part_76" -"(let-values(((in_23)" -" in_25)" -"((skip-count_6)" +"(if or-part_81" +" or-part_81" +"(let-values(((in_25)" +" in_24)" +"((skip-count_8)" " 0)" -"((source_15)" +"((source_18)" " source_17))" "(let-values(((c_52)" "(peek-char-or-special" -" in_23" -" skip-count_6" +" in_25" +" skip-count_8" " 'special" -" source_15)))" +" source_18)))" "(if(eq?" " c_52" " 'special)" @@ -50158,19 +50133,19 @@ static const char *startup_source = " c_52)))))))" "(let-values(((ec_4)" "(let-values(((rt_12) rt_11)" -"((c_46) c_83))" -"(if(let-values(((or-part_352)" +"((c_39) c_87))" +"(if(let-values(((or-part_171)" "(not" " rt_12)))" -"(if or-part_352" -" or-part_352" +"(if or-part_171" +" or-part_171" "(not" -"(char? c_46))))" -"(let-values() c_46)" +"(char? c_39))))" +"(let-values() c_39)" "(let-values()" "(*readtable-effective-char" " rt_12" -" c_46))))))" +" c_39))))))" "(if(if pipe-quote-c_0" "(not(char? ec_4))" " #f)" @@ -50180,16 +50155,16 @@ static const char *startup_source = "(void)" "(let-values()" "(consume-char/special" -" in_25" +" in_24" " config_24" -" c_83)))" +" c_87)))" "(unexpected-quoted_0" -" c_83" +" c_87" " pipe-quote-c_0)))" "(if(if(not pipe-quote-c_0)" "(readtable-char-delimiter?" " rt_11" -" c_83" +" c_87" " config_24)" " #f)" "(let-values()" @@ -50201,7 +50176,7 @@ static const char *startup_source = " string-foldcase" " foldcase-from_0))))" "(if(if pipe-quote-c_0" -"(char=? c_83 pipe-quote-c_0)" +"(char=? c_87 pipe-quote-c_0)" " #f)" "(let-values()" "(begin" @@ -50209,9 +50184,9 @@ static const char *startup_source = "(void)" "(let-values()" "(consume-char" -" in_25" -" c_83)))" -"(loop_112" +" in_24" +" c_87)))" +"(loop_108" " #f" " #f" "(accum-string-count" @@ -50227,8 +50202,8 @@ static const char *startup_source = "(void)" "(let-values()" "(consume-char" -" in_25" -" c_83)))" +" in_24" +" c_87)))" "(set! quoted-ever?_0 #t)" "(if case-sens?_0" "(void)" @@ -50237,9 +50212,9 @@ static const char *startup_source = " accum-str_1" " string-foldcase" " foldcase-from_0)))" -"(loop_112" +"(loop_108" " #f" -" c_83" +" c_87" "(accum-string-count" " accum-str_1))))" "(if(if(char=? ec_4 '#\\\\)" @@ -50252,29 +50227,29 @@ static const char *startup_source = "(void)" "(let-values()" "(consume-char" -" in_25" -" c_83)))" +" in_24" +" c_87)))" "(values))))" "(let-values(((next-c_0)" -"(let-values(((in_24)" -" in_25)" -"((source_18)" +"(let-values(((in_26)" +" in_24)" +"((source_19)" " source_17))" "(read-char-or-special" -" in_24" +" in_26" " special1.1" -" source_18))))" +" source_19))))" "(begin" "(if(char? next-c_0)" "(void)" "(let-values()" "(unexpected-quoted_0" " next-c_0" -" c_83)))" -"(if(let-values(((or-part_38)" +" c_87)))" +"(if(let-values(((or-part_7)" " pipe-quote-c_0))" -"(if or-part_38" -" or-part_38" +"(if or-part_7" +" or-part_7" " case-sens?_0))" "(void)" "(let-values()" @@ -50287,7 +50262,7 @@ static const char *startup_source = " next-c_0)" "(set! quoted-ever?_0" " #t)" -"(loop_112" +"(loop_108" " #f" " #f" "(accum-string-count" @@ -50298,16 +50273,16 @@ static const char *startup_source = "(void)" "(let-values()" "(consume-char" -" in_25" -" c_83)))" +" in_24" +" c_87)))" "(accum-string-add!" " accum-str_1" -" c_83)" -"(loop_112" +" c_87)" +"(loop_108" " #f" " pipe-quote-c_0" " foldcase-from_0))))))))))))))" -" loop_112)" +" loop_108)" " init-c_2" " #f" " 0)" @@ -50326,7 +50301,7 @@ static const char *startup_source = " #f)" " #f)" "(let-values()" -"(let-values(((in20_1) in_25)" +"(let-values(((in20_1) in_24)" "((config21_0) config_24)" " ((temp22_5) \"illegal use of `.`\"))" "(reader-error10.1" @@ -50343,9 +50318,9 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((num_0)" -"(if(let-values(((or-part_353)" +"(if(let-values(((or-part_158)" "(eq? mode_17 'symbol-or-number)))" -"(if or-part_353 or-part_353(string? mode_17)))" +"(if or-part_158 or-part_158(string? mode_17)))" "(if(not quoted-ever?_0)" "(1/string->number" "(if(string? mode_17)" @@ -50361,7 +50336,7 @@ static const char *startup_source = "(begin" "(if(string? num_0)" "(let-values()" -"(let-values(((in23_0) in_25)" +"(let-values(((in23_0) in_24)" "((config24_0) config_24)" " ((temp25_6) \"~a\")" "((num26_0) num_0))" @@ -50379,7 +50354,7 @@ static const char *startup_source = "(void))" "(if(if(not num_0)(string? mode_17) #f)" "(let-values()" -"(let-values(((in27_0) in_25)" +"(let-values(((in27_0) in_24)" "((config28_0) config_24)" " ((temp29_2) \"bad number: `~a`\")" "((temp30_4)(string-append mode_17 str_29)))" @@ -50396,15 +50371,15 @@ static const char *startup_source = "(list temp30_4))))" "(void))" "(wrap" -"(let-values(((or-part_302) num_0))" -"(if or-part_302" -" or-part_302" -"(let-values(((or-part_290)" +"(let-values(((or-part_290) num_0))" +"(if or-part_290" +" or-part_290" +"(let-values(((or-part_95)" "(if(eq? mode_17 'keyword)" "(string->keyword str_29)" " #f)))" -"(if or-part_290 or-part_290(string->symbol str_29)))))" -" in_25" +"(if or-part_95 or-part_95(string->symbol str_29)))))" +" in_24" " config_24" " str_29)))))))))))))))))))))))))" "(define-values" @@ -50412,43 +50387,44 @@ static const char *startup_source = "(lambda(read-one_3 init-c_0 in_5 config_15)" "(begin" "(let-values(((c_33)(read-char/skip-whitespace-and-comments init-c_0 read-one_3 in_5 config_15)))" -"(let-values(((line_8 col_7 pos_112)(port-next-location* in_5 c_33)))" -" (let-values (((v_95) (read-number-literal c_33 in_5 config_15 \"#e\")))" -"(if(fixnum? v_95)" -"(let-values() v_95)" -"(if(eof-object? v_95)" -"(let-values() v_95)" +"(let-values(((line_8 col_7 pos_115)(port-next-location* in_5 c_33)))" +" (let-values (((v_92) (read-number-literal c_33 in_5 config_15 \"#e\")))" +"(if(fixnum? v_92)" +"(let-values() v_92)" +"(if(eof-object? v_92)" +"(let-values() v_92)" "(let-values()" -"(let-values(((in1_0) in_5)" -"((temp2_5)(reading-at config_15 line_8 col_7 pos_112))" +"(let-values(((in1_1) in_5)" +"((temp2_5)(reading-at config_15 line_8 col_7 pos_115))" " ((temp3_6) \"expected a fixnum, found ~a\")" -"((v4_1) v_95))" -"(reader-error10.1 #f #f #f #f #f #f in1_0 temp2_5 temp3_6(list v4_1))))))))))))" +"((v4_1) v_92))" +"(reader-error10.1 #f #f #f #f #f #f in1_1 temp2_5 temp3_6(list v4_1))))))))))))" "(define-values" "(read-flonum)" -"(lambda(read-one_4 init-c_6 in_26 config_37)" +"(lambda(read-one_4 init-c_6 in_27 config_37)" "(begin" -"(let-values(((c_14)(read-char/skip-whitespace-and-comments init-c_6 read-one_4 in_26 config_37)))" -"(let-values(((line_9 col_8 pos_92)(port-next-location* in_26 c_14)))" -" (let-values (((v_32) (read-number-literal c_14 in_26 config_37 \"#i\")))" -"(if(flonum? v_32)" -"(let-values() v_32)" -"(if(eof-object? v_32)" -"(let-values() v_32)" +"(let-values(((c_14)(read-char/skip-whitespace-and-comments init-c_6 read-one_4 in_27 config_37)))" +"(let-values(((line_9 col_8 pos_93)(port-next-location* in_27 c_14)))" +" (let-values (((v_29) (read-number-literal c_14 in_27 config_37 \"#i\")))" +"(if(flonum? v_29)" +"(let-values() v_29)" +"(if(eof-object? v_29)" +"(let-values() v_29)" "(let-values()" -"(let-values(((in5_0) in_26)" -"((temp6_1)(reading-at config_37 line_9 col_8 pos_92))" +"(let-values(((in5_0) in_27)" +"((temp6_1)(reading-at config_37 line_9 col_8 pos_93))" " ((temp7_4) \"expected a flonum, found ~a\")" -"((v8_0) v_32))" +"((v8_0) v_29))" "(reader-error10.1 #f #f #f #f #f #f in5_0 temp6_1 temp7_4(list v8_0))))))))))))" "(define-values" "(read-number-literal)" -"(lambda(c_84 in_27 config_38 mode_18)" +"(lambda(c_88 in_28 config_38 mode_18)" "(begin" -"(if(not(char? c_84))" -"(let-values() c_84)" +"(if(not(char? c_88))" +"(let-values() c_88)" "(let-values()" -"(let-values(((mode12_0) mode_18))(read-symbol-or-number8.1 #f #f mode12_0 #t c_84 in_27 config_38)))))))" +"(let-values(((c9_0) c_88)((in10_2) in_28)((config11_0) config_38)((mode12_0) mode_18))" +"(read-symbol-or-number8.1 #f #f mode12_0 #t c9_0 in10_2 config11_0)))))))" "(define-values" "(read-vector11.1)" "(lambda(length2_0 length4_0 mode1_0 mode3_0 read-one5_0 opener-c6_0 opener7_0 closer8_0 in9_1 config10_0)" @@ -50458,30 +50434,37 @@ static const char *startup_source = "(let-values(((opener-c_1) opener-c6_0))" "(let-values(((opener_2) opener7_0))" "(let-values(((closer_2) closer8_0))" -"(let-values(((in_28) in9_1))" +"(let-values(((in_29) in9_1))" "(let-values(((config_39) config10_0))" "(let-values(((vector-mode_0)(if mode3_0 mode1_0 'any)))" "(let-values(((expected-len_0)(if length4_0 length2_0 #f)))" "(let-values()" "(let-values(((read-one-element_0)" -"(let-values(((tmp_32) vector-mode_0))" -"(if(equal? tmp_32 'any)" +"(let-values(((tmp_31) vector-mode_0))" +"(if(equal? tmp_31 'any)" "(let-values() read-one_5)" -"(if(equal? tmp_32 'fixnum)" +"(if(equal? tmp_31 'fixnum)" "(let-values()" -"(lambda(init-c_7 in_29 config_40)" +"(lambda(init-c_7 in_30 config_40)" "(begin" " 'read-one-element" -"(read-fixnum read-one_5 init-c_7 in_29 config_40))))" -"(if(equal? tmp_32 'flonum)" +"(read-fixnum read-one_5 init-c_7 in_30 config_40))))" +"(if(equal? tmp_31 'flonum)" "(let-values()" -"(lambda(init-c_8 in_30 config_41)" +"(lambda(init-c_8 in_31 config_41)" "(begin" " 'read-one-element" -"(read-flonum read-one_5 init-c_8 in_30 config_41))))" +"(read-flonum read-one_5 init-c_8 in_31 config_41))))" "(let-values()(void))))))))" "(let-values(((seq_2)" -"(let-values(((read-one20_0) read-one_5)((temp21_1) #f))" +"(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_29)" +"((config19_1) config_39)" +"((read-one20_0) read-one_5)" +"((temp21_1) #f))" "(read-unwrapped-sequence17.1" " temp21_1" " #t" @@ -50493,19 +50476,93 @@ static const char *startup_source = " #f" " read-one20_0" " #t" -" read-one-element_0" -" opener-c_1" -" opener_2" -" closer_2" -" in_28" -" config_39))))" +" read-one-element14_0" +" opener-c15_0" +" opener16_0" +" closer17_0" +" in18_0" +" config19_1))))" "(let-values(((vec_64)" "(if(not expected-len_0)" "(let-values()" -"(let-values(((tmp_43) vector-mode_0))" -"(if(equal? tmp_43 'any)" +"(let-values(((tmp_42) vector-mode_0))" +"(if(equal? tmp_42 'any)" "(let-values()(list->vector seq_2))" -"(if(equal? tmp_43 'fixnum)" +"(if(equal? tmp_42 'fixnum)" +"(let-values()" +"(let-values(((len_7)(length seq_2)))" +"(begin" +"(if(exact-nonnegative-integer? len_7)" +"(void)" +"(let-values()" +"(raise-argument-error" +" 'for/fxvector" +" \"exact-nonnegative-integer?\"" +" len_7)))" +"(let-values(((fill_0) 0))" +"(let-values(((v_197)(make-fxvector len_7 fill_0)))" +"(begin" +"(if(zero? len_7)" +"(void)" +"(let-values()" +"(let-values(((lst_24) seq_2))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_24)))" +"((letrec-values(((for-loop_247)" +"(lambda(i_92 lst_78)" +"(begin" +" 'for-loop" +"(if(pair? lst_78)" +"(let-values(((e_72)" +"(unsafe-car" +" lst_78))" +"((rest_142)" +"(unsafe-cdr" +" lst_78)))" +"(let-values(((i_39)" +"(let-values(((i_40)" +" i_92))" +"(let-values(((i_41)" +"(let-values()" +"(begin" +"(let-values(((elem_0)" +"(let-values()" +" e_72)))" +"(if(fixnum?" +" elem_0)" +"(unsafe-fxvector-set!" +" v_197" +" i_40" +" elem_0)" +"(not-an-fX.1" +" 'for*/vector" +" elem_0)))" +"(unsafe-fx+" +" 1" +" i_40)))))" +"(values" +" i_41)))))" +"(if(if(not" +"((lambda x_86" +"(unsafe-fx=" +" i_39" +" len_7))" +" e_72))" +"(not #f)" +" #f)" +"(for-loop_247" +" i_39" +" rest_142)" +" i_39)))" +" i_92)))))" +" for-loop_247)" +" 0" +" lst_24)))))" +" v_197))))))" +"(if(equal? tmp_42 'flonum)" "(let-values()" "(let-values(((len_37)(length seq_2)))" "(begin" @@ -50513,168 +50570,94 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-argument-error" -" 'for/fxvector" -" \"exact-nonnegative-integer?\"" +" 'for/flvector" +" \"exact-nonnegative-integer?\"" " len_37)))" -"(let-values(((fill_0) 0))" -"(let-values(((v_86)(make-fxvector len_37 fill_0)))" +"(let-values(((fill_1) 0.0))" +"(let-values(((v_237)(make-flvector len_37 fill_1)))" "(begin" "(if(zero? len_37)" "(void)" "(let-values()" -"(let-values(((lst_261) seq_2))" +"(let-values(((lst_90) seq_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_261)))" -"((letrec-values(((for-loop_98)" -"(lambda(i_1 lst_297)" +"(let-values()(check-list lst_90)))" +"((letrec-values(((for-loop_185)" +"(lambda(i_173 lst_17)" "(begin" " 'for-loop" -"(if(pair? lst_297)" -"(let-values(((e_75)" +"(if(pair? lst_17)" +"(let-values(((e_78)" "(unsafe-car" -" lst_297))" -"((rest_168)" +" lst_17))" +"((rest_88)" "(unsafe-cdr" -" lst_297)))" -"(let-values(((i_176)" -"(let-values(((i_3)" -" i_1))" -"(let-values(((i_36)" -"(let-values()" -"(begin" -"(let-values(((elem_0)" -"(let-values()" -" e_75)))" -"(if(fixnum?" -" elem_0)" -"(unsafe-fxvector-set!" -" v_86" -" i_3" -" elem_0)" -"(not-an-fX.1" -" 'for*/vector" -" elem_0)))" -"(unsafe-fx+" -" 1" -" i_3)))))" -"(values" -" i_36)))))" -"(if(if(not" -"((lambda x_87" -"(unsafe-fx=" -" i_176" -" len_37))" -" e_75))" -"(not #f)" -" #f)" -"(for-loop_98" -" i_176" -" rest_168)" -" i_176)))" -" i_1)))))" -" for-loop_98)" -" 0" -" lst_261)))))" -" v_86))))))" -"(if(equal? tmp_43 'flonum)" -"(let-values()" -"(let-values(((len_38)(length seq_2)))" -"(begin" -"(if(exact-nonnegative-integer? len_38)" -"(void)" -"(let-values()" -"(raise-argument-error" -" 'for/flvector" -" \"exact-nonnegative-integer?\"" -" len_38)))" -"(let-values(((fill_1) 0.0))" -"(let-values(((v_230)(make-flvector len_38 fill_1)))" -"(begin" -"(if(zero? len_38)" -"(void)" -"(let-values()" -"(let-values(((lst_79) seq_2))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_79)))" -"((letrec-values(((for-loop_264)" -"(lambda(i_56 lst_54)" -"(begin" -" 'for-loop" -"(if(pair? lst_54)" -"(let-values(((e_76)" -"(unsafe-car" -" lst_54))" -"((rest_169)" -"(unsafe-cdr" -" lst_54)))" -"(let-values(((i_177)" -"(let-values(((i_178)" -" i_56))" -"(let-values(((i_90)" +" lst_17)))" +"(let-values(((i_159)" +"(let-values(((i_91)" +" i_173))" +"(let-values(((i_174)" "(let-values()" "(begin" "(let-values(((elem_1)" "(let-values()" -" e_76)))" +" e_78)))" "(if(flonum?" " elem_1)" "(unsafe-flvector-set!" -" v_230" -" i_178" +" v_237" +" i_91" " elem_1)" "(not-an-fX.1$1" " 'for*/vector" " elem_1)))" "(unsafe-fx+" " 1" -" i_178)))))" +" i_91)))))" "(values" -" i_90)))))" +" i_174)))))" "(if(if(not" -"((lambda x_24" +"((lambda x_87" "(unsafe-fx=" -" i_177" -" len_38))" -" e_76))" +" i_159" +" len_37))" +" e_78))" "(not #f)" " #f)" -"(for-loop_264" -" i_177" -" rest_169)" -" i_177)))" -" i_56)))))" -" for-loop_264)" +"(for-loop_185" +" i_159" +" rest_88)" +" i_159)))" +" i_173)))))" +" for-loop_185)" " 0" -" lst_79)))))" -" v_230))))))" +" lst_90)))))" +" v_237))))))" "(let-values()(void)))))))" "(let-values()" -"(let-values(((len_39)(length seq_2)))" -"(if(= expected-len_0 len_39)" +"(let-values(((len_38)(length seq_2)))" +"(if(= expected-len_0 len_38)" "(let-values()(list->vector seq_2))" -"(if(< expected-len_0 len_39)" +"(if(< expected-len_0 len_38)" "(let-values()" -"(let-values(((in22_0) in_28)" -"((config23_0) config_39)" +"(let-values(((in22_1) in_29)" +"((config23_1) config_39)" "((temp24_7)" " \"~avector length ~a is too small, ~a values provided\")" "((temp25_7)" -"(let-values(((tmp_44) vector-mode_0))" -"(if(equal? tmp_44 'any)" +"(let-values(((tmp_43) vector-mode_0))" +"(if(equal? tmp_43 'any)" " (let-values () \"\")" -"(if(equal? tmp_44 'fixnum)" +"(if(equal? tmp_43 'fixnum)" " (let-values () \"fx\")" -"(if(equal? tmp_44 'flonum)" +"(if(equal? tmp_43 'flonum)" " (let-values () \"fl\")" "(let-values()(void)))))))" "((expected-len26_0) expected-len_0)" -"((len27_0) len_39))" +"((len27_0) len_38))" "(reader-error10.1" " #f" " #f" @@ -50682,26 +50665,26 @@ static const char *startup_source = " #f" " #f" " #f" -" in22_0" -" config23_0" +" in22_1" +" config23_1" " temp24_7" "(list temp25_7 expected-len26_0 len27_0))))" "(let-values()" "(let-values(((last-or_0)" -"(lambda(v_231)" +"(lambda(v_238)" "(begin" " 'last-or" "(if(null? seq_2)" -"(wrap v_231 in_28 config_39 #f)" -"((letrec-values(((loop_113)" +"(wrap v_238 in_29 config_39 #f)" +"((letrec-values(((loop_109)" "(lambda(seq_3)" "(begin" " 'loop" "(if(null?(cdr seq_3))" "(car seq_3)" -"(loop_113" +"(loop_109" "(cdr seq_3)))))))" -" loop_113)" +" loop_109)" " seq_2))))))" "(let-values((()" "(begin" @@ -50714,53 +50697,53 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((vec_65)" -"(let-values(((tmp_45) vector-mode_0))" -"(if(equal? tmp_45 'any)" +"(let-values(((tmp_44) vector-mode_0))" +"(if(equal? tmp_44 'any)" "(let-values()" "(make-vector" " expected-len_0" "(last-or_0 0)))" -"(if(equal? tmp_45 'fixnum)" +"(if(equal? tmp_44 'fixnum)" "(let-values()" "(make-fxvector" " expected-len_0" "(last-or_0 0)))" -"(if(equal? tmp_45 'flonum)" +"(if(equal? tmp_44 'flonum)" "(let-values()" "(make-flvector" " expected-len_0" "(last-or_0 0.0)))" "(let-values()(void))))))))" "(begin" -"(let-values(((tmp_46) vector-mode_0))" -"(if(equal? tmp_46 'any)" +"(let-values(((tmp_45) vector-mode_0))" +"(if(equal? tmp_45 'any)" "(let-values()" "(begin" -"(let-values(((lst_8) seq_2)((start_17) 0))" +"(let-values(((lst_9) seq_2)((start_54) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_8)))" +"(let-values()(check-list lst_9)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-naturals start_17)))" -"((letrec-values(((for-loop_16)" -"(lambda(lst_298 pos_113)" +"(let-values()(check-naturals start_54)))" +"((letrec-values(((for-loop_270)" +"(lambda(lst_10 pos_116)" "(begin" " 'for-loop" -"(if(if(pair? lst_298)" +"(if(if(pair? lst_10)" " #t" " #f)" -"(let-values(((e_77)" +"(let-values(((e_79)" "(unsafe-car" -" lst_298))" -"((rest_170)" +" lst_10))" +"((rest_167)" "(unsafe-cdr" -" lst_298))" -"((i_93)" -" pos_113))" +" lst_10))" +"((i_175)" +" pos_116))" "(let-values((()" "(let-values()" "(let-values((()" @@ -50769,49 +50752,49 @@ static const char *startup_source = "(let-values()" "(vector-set!" " vec_65" -" i_93" -" e_77))" +" i_175" +" e_79))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_16" -" rest_170" -"(+ pos_113 1))" +"(for-loop_270" +" rest_167" +"(+ pos_116 1))" "(values))))" "(values))))))" -" for-loop_16)" -" lst_8" -" start_17)))" +" for-loop_270)" +" lst_9" +" start_54)))" "(void)))" -"(if(equal? tmp_46 'fixnum)" +"(if(equal? tmp_45 'fixnum)" "(let-values()" "(begin" -"(let-values(((lst_221) seq_2)((start_56) 0))" +"(let-values(((lst_226) seq_2)((start_55) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_221)))" +"(let-values()(check-list lst_226)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-naturals start_56)))" -"((letrec-values(((for-loop_17)" -"(lambda(lst_159 pos_114)" +"(let-values()(check-naturals start_55)))" +"((letrec-values(((for-loop_96)" +"(lambda(lst_178 pos_109)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_159)" +" lst_178)" " #t" " #f)" -"(let-values(((e_40)" +"(let-values(((e_80)" "(unsafe-car" -" lst_159))" -"((rest_7)" +" lst_178))" +"((rest_173)" "(unsafe-cdr" -" lst_159))" -"((i_179)" -" pos_114))" +" lst_178))" +"((i_176)" +" pos_109))" "(let-values((()" "(let-values()" "(let-values((()" @@ -50820,53 +50803,53 @@ static const char *startup_source = "(let-values()" "(fxvector-set!" " vec_65" -" i_179" -" e_40))" +" i_176" +" e_80))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_17" -" rest_7" +"(for-loop_96" +" rest_173" "(+" -" pos_114" +" pos_109" " 1))" "(values))))" "(values))))))" -" for-loop_17)" -" lst_221" -" start_56)))" +" for-loop_96)" +" lst_226" +" start_55)))" "(void)))" -"(if(equal? tmp_46 'flonum)" +"(if(equal? tmp_45 'flonum)" "(let-values()" "(begin" -"(let-values(((lst_280) seq_2)((start_57) 0))" +"(let-values(((lst_310) seq_2)((start_56) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_280)))" +"(let-values()(check-list lst_310)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-naturals start_57)))" -"((letrec-values(((for-loop_254)" -"(lambda(lst_289" -" pos_115)" +"(check-naturals start_56)))" +"((letrec-values(((for-loop_106)" +"(lambda(lst_278" +" pos_117)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_289)" +" lst_278)" " #t" " #f)" -"(let-values(((e_78)" +"(let-values(((e_81)" "(unsafe-car" -" lst_289))" -"((rest_92)" +" lst_278))" +"((rest_44)" "(unsafe-cdr" -" lst_289))" -"((i_96)" -" pos_115))" +" lst_278))" +"((i_35)" +" pos_117))" "(let-values((()" "(let-values()" "(let-values((()" @@ -50875,56 +50858,57 @@ static const char *startup_source = "(let-values()" "(flvector-set!" " vec_65" -" i_96" -" e_78))" +" i_35" +" e_81))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_254" -" rest_92" +"(for-loop_106" +" rest_44" "(+" -" pos_115" +" pos_117" " 1))" "(values))))" "(values))))))" -" for-loop_254)" -" lst_280" -" start_57)))" +" for-loop_106)" +" lst_310" +" start_56)))" "(void)))" "(let-values()(void))))))" " vec_65))))))))))))" -"(wrap vec_64 in_28 config_39 opener_2))))))))))))))))" +"(wrap vec_64 in_29 config_39 opener_2))))))))))))))))" "(define-values" "(read-fixnum-or-flonum-vector)" -"(lambda(read-one_6 dispatch-c_0 c_85 c2_4 in_31 config_42)" +"(lambda(read-one_6 dispatch-c_0 c_89 c2_4 in_32 config_42)" "(begin" "(let-values(((vector-mode_1)(if(char=? c2_4 '#\\x) 'fixnum 'flonum)))" -"(let-values((()(begin(consume-char in_31 c2_4)(values))))" +"(let-values((()(begin(consume-char in_32 c2_4)(values))))" "(let-values((()" "(begin" "(if(read-config-for-syntax? config_42)" "(let-values()" -"(let-values(((in28_0) in_31)" -"((config29_0) config_42)" +"(let-values(((in28_1) in_32)" +"((config29_1) config_42)" " ((temp30_5) \"literal f~avectors not allowed\")" "((c231_0) c2_4))" -"(reader-error10.1 #f #f #f #f #f #f in28_0 config29_0 temp30_5(list c231_0))))" +"(reader-error10.1 #f #f #f #f #f #f in28_1 config29_1 temp30_5(list c231_0))))" "(void))" "(values))))" -"(let-values(((c3_2)" -"(let-values(((in_32) in_31)((source_19)(read-config-source config_42)))" -"(read-char-or-special in_32 special1.1 source_19))))" +"(let-values(((c3_3)" +"(let-values(((in_33) in_32)((source_20)(read-config-source config_42)))" +"(read-char-or-special in_33 special1.1 source_20))))" "(let-values(((vector-len_0 len-str_0 c4_1)" -"(if(decimal-digit? c3_2)" -"(let-values()(read-simple-number in_31 config_42 c3_2))" -" (let-values () (values #f \"\" c3_2)))))" -"(let-values(((tmp_47) c4_1))" -"(if(equal? tmp_47 '#\\()" +"(if(decimal-digit? c3_3)" +"(let-values()(read-simple-number in_32 config_42 c3_3))" +" (let-values () (values #f \"\" c3_3)))))" +"(let-values(((tmp_46) c4_1))" +"(if(equal? tmp_46 '#\\()" "(let-values()" -"(let-values(((temp33_3) '#\\()" +"(let-values(((read-one32_0) read-one_6)" +"((temp33_3) '#\\()" "((temp34_1) '#\\()" "((temp35_2) '#\\))" -"((in36_0) in_31)" +"((in36_1) in_32)" "((config37_0) config_42)" "((vector-mode38_0) vector-mode_1)" "((vector-len39_0) vector-len_0))" @@ -50933,20 +50917,21 @@ static const char *startup_source = " #t" " vector-mode38_0" " #t" -" read-one_6" +" read-one32_0" " temp33_3" " temp34_1" " temp35_2" -" in36_0" +" in36_1" " config37_0)))" -"(if(equal? tmp_47 '#\\[)" +"(if(equal? tmp_46 '#\\[)" "(let-values()" "(if(check-parameter 1/read-square-bracket-as-paren config_42)" "(let-values()" -"(let-values(((temp41_3) '#\\[)" +"(let-values(((read-one40_0) read-one_6)" +"((temp41_3) '#\\[)" "((temp42_2) '#\\[)" "((temp43_2) '#\\])" -"((in44_0) in_31)" +"((in44_0) in_32)" "((config45_0) config_42)" "((vector-mode46_0) vector-mode_1)" "((vector-len47_0) vector-len_0))" @@ -50955,25 +50940,26 @@ static const char *startup_source = " #t" " vector-mode46_0" " #t" -" read-one_6" +" read-one40_0" " temp41_3" " temp42_2" " temp43_2" " in44_0" " config45_0)))" "(let-values()" -"(let-values(((in48_0) in_31)" +"(let-values(((in48_0) in_32)" "((config49_0) config_42)" -" ((temp50_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_85 c2_4))))" +" ((temp50_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_89 c2_4))))" "(bad-syntax-error18.1 #f #f in48_0 config49_0 temp50_2)))))" -"(if(equal? tmp_47 '#\\{)" +"(if(equal? tmp_46 '#\\{)" "(let-values()" "(if(check-parameter 1/read-curly-brace-as-paren config_42)" "(let-values()" -"(let-values(((temp52_3) '#\\{)" +"(let-values(((read-one51_0) read-one_6)" +"((temp52_3) '#\\{)" "((temp53_3) '#\\{)" "((temp54_3) '#\\})" -"((in55_0) in_31)" +"((in55_0) in_32)" "((config56_0) config_42)" "((vector-mode57_0) vector-mode_1)" "((vector-len58_0) vector-len_0))" @@ -50982,21 +50968,23 @@ static const char *startup_source = " #t" " vector-mode57_0" " #t" -" read-one_6" +" read-one51_0" " temp52_3" " temp53_3" " temp54_3" " in55_0" " config56_0)))" "(let-values()" -"(let-values(((in59_0) in_31)" +"(let-values(((in59_0) in_32)" "((config60_0) config_42)" -" ((temp61_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_85 c2_4))))" +" ((temp61_2) (format \"~a~a\" dispatch-c_0 (format \"~a~a\" c_89 c2_4))))" "(bad-syntax-error18.1 #f #f in59_0 config60_0 temp61_2)))))" "(let-values()" -"(let-values(((c464_0) c4_1)" +"(let-values(((in62_0) in_32)" +"((config63_0) config_42)" +"((c464_0) c4_1)" " ((temp65_2) \"expected `(`, `[`, or `{` after `#~a~a~a`\")" -"((c66_0) c_85)" +"((c66_0) c_89)" "((c267_0) c2_4)" "((len-str68_0) len-str_0))" "(reader-error10.1" @@ -51006,19 +50994,22 @@ static const char *startup_source = " #t" " #f" " #f" -" in_31" -" config_42" +" in62_0" +" config63_0" " temp65_2" "(list c66_0 c267_0 len-str68_0))))))))))))))))" "(define-values" "(read-simple-number)" -"(lambda(in_33 config_43 init-c_9)" +"(lambda(in_34 config_43 init-c_9)" "(begin" "(let-values(((accum-str_2)(accum-string-init! config_43)))" "(let-values((()(begin(accum-string-add! accum-str_2 init-c_9)(values))))" "(let-values(((init-v_1)(digit->number init-c_9)))" -"(let-values(((v_232)" -"(let-values(((temp72_0) 10)" +"(let-values(((v_97)" +"(let-values(((in69_0) in_34)" +"((config70_0) config_43)" +"((accum-str71_0) accum-str_2)" +"((temp72_0) 10)" "((temp73_1) +inf.0)" "((init-v74_0) init-v_1)" "((init-v75_0) init-v_1))" @@ -51029,38 +51020,38 @@ static const char *startup_source = " temp73_1" " init-v75_0" " #t" -" in_33" -" config_43" -" accum-str_2" +" in69_0" +" config70_0" +" accum-str71_0" " #t))))" "(values" -" v_232" +" v_97" "(let-values(((accum-str76_0) accum-str_2)((config77_0) config_43))" "(accum-string-get!6.1 #f #f accum-str76_0 config77_0))" -"(let-values(((in_34) in_33)((source_20)(read-config-source config_43)))" -"(read-char-or-special in_34 special1.1 source_20))))))))))" +"(let-values(((in_35) in_34)((source_21)(read-config-source config_43)))" +"(read-char-or-special in_35 special1.1 source_21))))))))))" "(define-values" "(read-struct)" "(lambda(read-one_3 dispatch-c_1 in_5 config_15)" "(begin" "(let-values(((c_33)" -"(let-values(((in_29) in_5)((source_21)(read-config-source config_15)))" -"(read-char-or-special in_29 special1.1 source_21))))" +"(let-values(((in_30) in_5)((source_22)(read-config-source config_15)))" +"(read-char-or-special in_30 special1.1 source_22))))" "(let-values(((ec_5)(effective-char c_33 config_15)))" "(let-values(((seq_4)" -"(let-values(((tmp_48) ec_5))" -"(if(equal? tmp_48 '#\\()" +"(let-values(((tmp_47) ec_5))" +"(if(equal? tmp_47 '#\\()" "(let-values()(read-struct-sequence read-one_3 c_33 '#\\( '#\\) in_5 config_15))" -"(if(equal? tmp_48 '#\\[)" +"(if(equal? tmp_47 '#\\[)" "(let-values()" "(if(check-parameter 1/read-square-bracket-as-paren config_15)" "(let-values()(read-struct-sequence read-one_3 c_33 '#\\[ '#\\] in_5 config_15))" "(let-values()" -"(let-values(((in1_1) in_5)" -"((config2_0) config_15)" +"(let-values(((in1_2) in_5)" +"((config2_1) config_15)" " ((temp3_7) (format \"~as~a\" dispatch-c_1 c_33)))" -"(bad-syntax-error18.1 #f #f in1_1 config2_0 temp3_7)))))" -"(if(equal? tmp_48 '#\\{)" +"(bad-syntax-error18.1 #f #f in1_2 config2_1 temp3_7)))))" +"(if(equal? tmp_47 '#\\{)" "(let-values()" "(if(check-parameter 1/read-curly-brace-as-paren config_15)" "(let-values()(read-struct-sequence read-one_3 c_33 '#\\{ '#\\} in_5 config_15))" @@ -51073,7 +51064,7 @@ static const char *startup_source = "(let-values(((in7_1) in_5)" "((config8_1) config_15)" " ((temp9_4) \"expected ~a after `~as`\")" -"((temp10_0)(all-openers-str config_15))" +"((temp10_4)(all-openers-str config_15))" "((dispatch-c11_0) dispatch-c_1))" "(reader-error10.1" " #f" @@ -51085,14 +51076,14 @@ static const char *startup_source = " in7_1" " config8_1" " temp9_4" -"(list temp10_0 dispatch-c11_0))))))))))" +"(list temp10_4 dispatch-c11_0))))))))))" "(let-values((()" "(begin" "(if(null? seq_4)" "(let-values()" "(let-values(((in12_2) in_5)" "((config13_0) config_15)" -" ((temp14_1) \"missing structure description in `~as' form\")" +" ((temp14_7) \"missing structure description in `~as' form\")" "((dispatch-c15_0) dispatch-c_1))" "(reader-error10.1" " #f" @@ -51103,7 +51094,7 @@ static const char *startup_source = " #f" " in12_2" " config13_0" -" temp14_1" +" temp14_7" "(list dispatch-c15_0))))" "(void))" "(values))))" @@ -51135,9 +51126,9 @@ static const char *startup_source = "(let-values(((bpz_4)(continuation-mark-set-first #f break-enabled-key)))" "(call-handled-body" " bpz_4" -"(lambda(e_79)" +"(lambda(e_82)" "(select-handler/no-breaks" -" e_79" +" e_82" " bpz_4" "(list(cons with-handlers-predicate20_0 with-handlers-handler21_0))))" "(lambda()(prefab-key->struct-type(car seq_4)(length(cdr seq_4)))))))))" @@ -51145,14 +51136,14 @@ static const char *startup_source = "(if st_2" "(void)" "(let-values()" -"(let-values(((in22_1) in_5)" -"((config23_1) config_15)" +"(let-values(((in22_2) in_5)" +"((config23_2) config_15)" "((temp24_8)" "(string-append" " \"mismatch between structure description\"" " \" and number of provided field values in `~as' form\"))" "((dispatch-c25_0) dispatch-c_1))" -"(reader-error10.1 #f #f #f #f #f #f in22_1 config23_1 temp24_8(list dispatch-c25_0)))))" +"(reader-error10.1 #f #f #f #f #f #f in22_2 config23_2 temp24_8(list dispatch-c25_0)))))" "(if(read-config-for-syntax? config_15)" "(let-values()" "(if(all-fields-immutable?(car seq_4))" @@ -51160,17 +51151,23 @@ static const char *startup_source = "(let-values()" "(let-values(((in26_0) in_5)" "((config27_0) config_15)" -" ((temp28_3) \"cannot read mutable `~as' form as syntax\")" +" ((temp28_4) \"cannot read mutable `~as' form as syntax\")" "((dispatch-c29_0) dispatch-c_1))" -"(reader-error10.1 #f #f #f #f #f #f in26_0 config27_0 temp28_3(list dispatch-c29_0))))))" +"(reader-error10.1 #f #f #f #f #f #f in26_0 config27_0 temp28_4(list dispatch-c29_0))))))" "(void))" "(wrap(apply make-prefab-struct seq_4) in_5 config_15 ec_5)))))))))))" "(define-values" "(read-struct-sequence)" -"(lambda(read-one_7 opener-c_2 opener_3 closer_3 in_35 config_44)" +"(lambda(read-one_7 opener-c_2 opener_3 closer_3 in_36 config_44)" "(begin" -"(let-values(((temp36_4)" -"(lambda(init-c_10 in_17 config_20)(read-one_7 init-c_10 in_17(disable-wrapping config_20)))))" +"(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_36)" +"((config35_0) config_44)" +"((temp36_4)" +"(lambda(init-c_10 in_37 config_45)(read-one_7 init-c_10 in_37(disable-wrapping config_45)))))" "(read-unwrapped-sequence17.1" " #f" " #f" @@ -51182,21 +51179,27 @@ static const char *startup_source = " #f" " #f" " #f" -" read-one_7" -" opener-c_2" -" opener_3" -" closer_3" -" in_35" -" config_44)))))" +" read-one30_0" +" opener-c31_0" +" opener32_0" +" closer33_0" +" in34_0" +" config35_0)))))" "(define-values" "(read-vector-or-graph)" -"(lambda(read-one_3 dispatch-c_1 init-c_11 in_36 config_45)" +"(lambda(read-one_3 dispatch-c_1 init-c_11 in_38 config_46)" "(begin" -"(let-values(((accum-str_3)(accum-string-init! config_45)))" +"(let-values(((accum-str_3)(accum-string-init! config_46)))" "(let-values((()(begin(accum-string-add! accum-str_3 init-c_11)(values))))" "(let-values(((init-v_2)(digit->number init-c_11)))" -"(let-values(((v_31)" -"(let-values(((temp4_4) 10)((temp5_7) +inf.0)((init-v6_0) init-v_2)((init-v7_0) init-v_2))" +"(let-values(((v_28)" +"(let-values(((in1_3) in_38)" +"((config2_2) config_46)" +"((accum-str3_0) accum-str_3)" +"((temp4_4) 10)" +"((temp5_7) +inf.0)" +"((init-v6_0) init-v_2)" +"((init-v7_0) init-v_2))" "(read-digits13.1" " temp4_4" " init-v6_0" @@ -51204,106 +51207,122 @@ static const char *startup_source = " temp5_7" " init-v7_0" " #t" -" in_36" -" config_45" -" accum-str_3" +" in1_3" +" config2_2" +" accum-str3_0" " #t))))" -"(let-values(((post-line_0 post-col_0 post-pos_0)(port-next-location in_36)))" +"(let-values(((post-line_0 post-col_0 post-pos_0)(port-next-location in_38)))" "(let-values(((get-accum_0)" -"(lambda(c_69)" +"(lambda(c_90)" "(begin" " 'get-accum" "(format" " \"~a~a~a\"" " dispatch-c_1" -"(let-values(((accum-str8_0) accum-str_3)((config9_0) config_45))" +"(let-values(((accum-str8_0) accum-str_3)((config9_0) config_46))" "(accum-string-get!6.1 #f #f accum-str8_0 config9_0))" -" c_69)))))" -"(let-values(((c_86)" -"(let-values(((in_37) in_36)((source_22)(read-config-source config_45)))" -"(read-char-or-special in_37 special1.1 source_22))))" -"(let-values(((ec_6)(effective-char c_86 config_45)))" -"(let-values(((tmp_49) ec_6))" -"(if(equal? tmp_49 '#\\()" +" c_90)))))" +"(let-values(((c_91)" +"(let-values(((in_39) in_38)((source_23)(read-config-source config_46)))" +"(read-char-or-special in_39 special1.1 source_23))))" +"(let-values(((ec_6)(effective-char c_91 config_46)))" +"(let-values(((tmp_33) ec_6))" +"(if(equal? tmp_33 '#\\()" "(let-values()" "(begin" -"(accum-string-abandon! accum-str_3 config_45)" -"(let-values(((temp12_4) '#\\()" +"(accum-string-abandon! accum-str_3 config_46)" +"(let-values(((read-one10_0) read-one_3)" +"((c11_0) c_91)" +"((temp12_3) '#\\()" "((temp13_2) '#\\))" -"((in14_0) in_36)" -"((config15_0) config_45)" -"((v16_0) v_31))" -"(read-vector11.1 v16_0 #t #f #f read-one_3 c_86 temp12_4 temp13_2 in14_0 config15_0))))" -"(if(equal? tmp_49 '#\\[)" +"((in14_0) in_38)" +"((config15_0) config_46)" +"((v16_0) v_28))" +"(read-vector11.1" +" v16_0" +" #t" +" #f" +" #f" +" read-one10_0" +" c11_0" +" temp12_3" +" temp13_2" +" in14_0" +" config15_0))))" +"(if(equal? tmp_33 '#\\[)" "(let-values()" "(begin" -"(accum-string-abandon! accum-str_3 config_45)" -"(if(check-parameter 1/read-square-bracket-as-paren config_45)" +"(accum-string-abandon! accum-str_3 config_46)" +"(if(check-parameter 1/read-square-bracket-as-paren config_46)" "(let-values()" -"(let-values(((temp19_2) '#\\[)" +"(let-values(((read-one17_0) read-one_3)" +"((c18_1) c_91)" +"((temp19_1) '#\\[)" "((temp20_2) '#\\])" -"((in21_1) in_36)" -"((config22_0) config_45)" -"((v23_0) v_31))" +"((in21_2) in_38)" +"((config22_1) config_46)" +"((v23_0) v_28))" "(read-vector11.1" " v23_0" " #t" " #f" " #f" -" read-one_3" -" c_86" -" temp19_2" +" read-one17_0" +" c18_1" +" temp19_1" " temp20_2" -" in21_1" -" config22_0)))" +" in21_2" +" config22_1)))" "(let-values()" -"(let-values(((in24_0) in_36)" -"((config25_0) config_45)" -"((temp26_5)(get-accum_0(get-accum_0 c_86))))" +"(let-values(((in24_0) in_38)" +"((config25_0) config_46)" +"((temp26_5)(get-accum_0(get-accum_0 c_91))))" "(bad-syntax-error18.1 #f #f in24_0 config25_0 temp26_5))))))" -"(if(equal? tmp_49 '#\\{)" +"(if(equal? tmp_33 '#\\{)" "(let-values()" "(begin" -"(accum-string-abandon! accum-str_3 config_45)" -"(if(check-parameter 1/read-curly-brace-as-paren config_45)" +"(accum-string-abandon! accum-str_3 config_46)" +"(if(check-parameter 1/read-curly-brace-as-paren config_46)" "(let-values()" -"(let-values(((temp29_3) '#\\{)" -"((temp30_6) '#\\})" -"((in31_1) in_36)" -"((config32_0) config_45)" -"((v33_0) v_31))" +"(let-values(((read-one27_0) read-one_3)" +"((c28_0) c_91)" +"((temp29_3) '#\\{)" +"((temp30_3) '#\\})" +"((in31_1) in_38)" +"((config32_0) config_46)" +"((v33_0) v_28))" "(read-vector11.1" " v33_0" " #t" " #f" " #f" -" read-one_3" -" c_86" +" read-one27_0" +" c28_0" " temp29_3" -" temp30_6" +" temp30_3" " in31_1" " config32_0)))" "(let-values()" -"(let-values(((in34_0) in_36)" -"((config35_0) config_45)" -"((temp36_5)(get-accum_0(get-accum_0 c_86))))" -"(bad-syntax-error18.1 #f #f in34_0 config35_0 temp36_5))))))" +"(let-values(((in34_1) in_38)" +"((config35_1) config_46)" +"((temp36_5)(get-accum_0(get-accum_0 c_91))))" +"(bad-syntax-error18.1 #f #f in34_1 config35_1 temp36_5))))))" "(let-values()" -"(let-values(((tmp_7) c_86))" -"(if(if(equal? tmp_7 '#\\=) #t(equal? tmp_7 '#\\#))" +"(let-values(((tmp_34) c_91))" +"(if(if(equal? tmp_34 '#\\=) #t(equal? tmp_34 '#\\#))" "(let-values()" "(begin" -"(if(let-values(((or-part_290)(read-config-for-syntax? config_45)))" -"(if or-part_290" -" or-part_290" -"(not(check-parameter 1/read-accept-graph config_45))))" +"(if(let-values(((or-part_352)(read-config-for-syntax? config_46)))" +"(if or-part_352" +" or-part_352" +"(not(check-parameter 1/read-accept-graph config_46))))" "(let-values()" -"(let-values(((in37_0) in_36)" -"((config38_0) config_45)" +"(let-values(((in37_0) in_38)" +"((config38_0) config_46)" " ((temp39_6) \"`#...~a` forms not ~a\")" -"((c40_0) c_86)" +"((c40_0) c_91)" "((temp41_4)" -"(if(read-config-for-syntax? config_45)" +"(if(read-config-for-syntax? config_46)" " \"enabled\"" " \"allowed in `read-syntax` mode\")))" "(reader-error10.1" @@ -51321,15 +51340,15 @@ static const char *startup_source = "(if(<=(accum-string-count accum-str_3) 8)" "(void)" "(let-values()" -"(let-values(((in42_0) in_36)" -"((config43_0) config_45)" +"(let-values(((in42_0) in_38)" +"((config43_0) config_46)" " ((temp44_2) \"graph ID too long in `~a~a~a`\")" "((dispatch-c45_0) dispatch-c_1)" "((temp46_3)" "(let-values(((accum-str48_0) accum-str_3)" -"((config49_1) config_45))" +"((config49_1) config_46))" "(accum-string-get!6.1 #f #f accum-str48_0 config49_1)))" -"((c47_0) c_86))" +"((c47_0) c_91))" "(reader-error10.1" " #f" " #f" @@ -51341,30 +51360,30 @@ static const char *startup_source = " config43_0" " temp44_2" "(list dispatch-c45_0 temp46_3 c47_0)))))" -"(let-values(((tmp_50) c_86))" -"(if(equal? tmp_50 '#\\=)" +"(let-values(((tmp_48) c_91))" +"(if(equal? tmp_48 '#\\=)" "(let-values()" "(let-values(((ph_1)(make-placeholder 'placeholder)))" -"(let-values(((ht_153)(get-graph-hash config_45)))" +"(let-values(((ht_27)(get-graph-hash config_46)))" "(let-values((()" "(begin" -"(if(hash-ref ht_153 v_31 #f)" +"(if(hash-ref ht_27 v_28 #f)" "(let-values()" -"(let-values(((in50_0) in_36)" -"((config51_0) config_45)" +"(let-values(((in50_0) in_38)" +"((config51_0) config_46)" " ((temp52_4) \"multiple `~a~a~a` tags\")" "((dispatch-c53_0) dispatch-c_1)" -"((temp54_4)" +"((temp54_0)" "(let-values(((accum-str56_0)" " accum-str_3)" "((config57_0)" -" config_45))" +" config_46))" "(accum-string-get!6.1" " #f" " #f" " accum-str56_0" " config57_0)))" -"((c55_0) c_86))" +"((c55_0) c_91))" "(reader-error10.1" " #f" " #f" @@ -51375,28 +51394,30 @@ static const char *startup_source = " in50_0" " config51_0" " temp52_4" -"(list dispatch-c53_0 temp54_4 c55_0))))" +"(list dispatch-c53_0 temp54_0 c55_0))))" "(void))" "(values))))" -"(let-values((()(begin(hash-set! ht_153 v_31 ph_1)(values))))" +"(let-values((()(begin(hash-set! ht_27 v_28 ph_1)(values))))" "(let-values(((result-v_0)" -"(read-one_3 #f in_36(next-readtable config_45))))" +"(read-one_3 #f in_38(next-readtable config_46))))" "(begin" "(if(eof-object? result-v_0)" "(let-values()" -"(let-values(((result-v60_0) result-v_0)" +"(let-values(((in58_0) in_38)" +"((config59_0) config_46)" +"((result-v60_0) result-v_0)" "((temp61_3)" " \"expected an element for graph after `~a~a~a`, found end-of-file\")" "((dispatch-c62_0) dispatch-c_1)" "((temp63_2)" "(let-values(((accum-str65_0) accum-str_3)" -"((config66_0) config_45))" +"((config66_0) config_46))" "(accum-string-get!6.1" " #f" " #f" " accum-str65_0" " config66_0)))" -"((c64_0) c_86))" +"((c64_0) c_91))" "(reader-error10.1" " #f" " #f" @@ -51404,38 +51425,38 @@ static const char *startup_source = " #t" " #f" " #f" -" in_36" -" config_45" +" in58_0" +" config59_0" " temp61_3" "(list dispatch-c62_0 temp63_2 c64_0))))" "(void))" -"(accum-string-abandon! accum-str_3 config_45)" +"(accum-string-abandon! accum-str_3 config_46)" "(placeholder-set! ph_1 result-v_0)" " ph_1)))))))" -"(if(equal? tmp_50 '#\\#)" +"(if(equal? tmp_48 '#\\#)" "(let-values()" "(begin0" "(hash-ref" -"(let-values(((or-part_235)" -"(read-config-state-graph(read-config-st config_45))))" -"(if or-part_235 or-part_235 '#hash()))" -" v_31" +"(let-values(((or-part_353)" +"(read-config-state-graph(read-config-st config_46))))" +"(if or-part_353 or-part_353 '#hash()))" +" v_28" "(lambda()" -"(let-values(((in67_0) in_36)" -"((config68_0) config_45)" +"(let-values(((in67_0) in_38)" +"((config68_0) config_46)" " ((temp69_1) \"no preceding `~a~a=` for `~a~a~a`\")" "((dispatch-c70_0) dispatch-c_1)" -"((v71_0) v_31)" +"((v71_0) v_28)" "((dispatch-c72_0) dispatch-c_1)" "((temp73_2)" "(let-values(((accum-str75_0) accum-str_3)" -"((config76_0) config_45))" +"((config76_0) config_46))" "(accum-string-get!6.1" " #f" " #f" " accum-str75_0" " config76_0)))" -"((c74_0) c_86))" +"((c74_0) c_91))" "(reader-error10.1" " #f" " #f" @@ -51447,12 +51468,14 @@ static const char *startup_source = " config68_0" " temp69_1" "(list dispatch-c70_0 v71_0 dispatch-c72_0 temp73_2 c74_0)))))" -"(accum-string-abandon! accum-str_3 config_45)))" +"(accum-string-abandon! accum-str_3 config_46)))" "(let-values()(void)))))))" "(let-values()" -"(let-values(((c79_0) c_86)" +"(let-values(((in77_0) in_38)" +"((config78_0) config_46)" +"((c79_0) c_91)" " ((temp80_3) \"bad syntax `~a`\")" -"((temp81_2)(get-accum_0 c_86)))" +"((temp81_2)(get-accum_0 c_91)))" "(reader-error10.1" " #f" " #f" @@ -51460,96 +51483,101 @@ static const char *startup_source = " #t" " #f" " #f" -" in_36" -" config_45" +" in77_0" +" config78_0" " temp80_3" "(list temp81_2))))))))))))))))))))))" "(define-values" "(get-graph-hash)" -"(lambda(config_46)" +"(lambda(config_47)" "(begin" -"(let-values(((st_3)(read-config-st config_46)))" -"(let-values(((or-part_354)(read-config-state-graph st_3)))" -"(if or-part_354" -" or-part_354" -"(let-values(((ht_154)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_154) ht_154))))))))" +"(let-values(((st_3)(read-config-st config_47)))" +"(let-values(((or-part_146)(read-config-state-graph st_3)))" +"(if or-part_146" +" or-part_146" +"(let-values(((ht_34)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_34) ht_34))))))))" "(define-values" "(coerce-key)" -"(lambda(key_85 config_8)" +"(lambda(key_84 config_8)" "(begin" "(let-values(((for-syntax?_7)(read-config-for-syntax? config_8)))" -"((read-config-coerce-key config_8) for-syntax?_7 key_85)))))" +"((read-config-coerce-key config_8) for-syntax?_7 key_84)))))" "(define-values" "(read-hash)" -"(lambda(read-one_3 dispatch-c_1 init-c_11 in_36 config_45)" +"(lambda(read-one_3 dispatch-c_1 init-c_11 in_38 config_46)" "(begin" -"(let-values(((accum-str_3)(accum-string-init! config_45)))" +"(let-values(((accum-str_3)(accum-string-init! config_46)))" "(let-values((()(begin(accum-string-add! accum-str_3 dispatch-c_1)(values))))" "(let-values((()(begin(accum-string-add! accum-str_3 init-c_11)(values))))" "(let-values(((get-next!_0)" "(lambda(expect-c_0 expect-alt-c_0)" "(begin" " 'get-next!" -"(let-values(((c_87)" -"(let-values(((in_28) in_36)((source_23)(read-config-source config_45)))" -"(read-char-or-special in_28 special1.1 source_23))))" +"(let-values(((c_92)" +"(let-values(((in_29) in_38)((source_24)(read-config-source config_46)))" +"(read-char-or-special in_29 special1.1 source_24))))" "(begin" -"(if(let-values(((or-part_6)(eqv? c_87 expect-c_0)))" -"(if or-part_6 or-part_6(eqv? c_87 expect-alt-c_0)))" +"(if(let-values(((or-part_6)(eqv? c_92 expect-c_0)))" +"(if or-part_6 or-part_6(eqv? c_92 expect-alt-c_0)))" "(void)" "(let-values()" -"(let-values(((c3_3) c_87)" +"(let-values(((in1_4) in_38)" +"((config2_3) config_46)" +"((c3_4) c_92)" " ((temp4_5) \"expected `~a` after `~a`\")" "((expect-c5_0) expect-c_0)" "((temp6_3)" -"(let-values(((accum-str7_0) accum-str_3)((config8_2) config_45))" +"(let-values(((accum-str7_0) accum-str_3)((config8_2) config_46))" "(accum-string-get!6.1 #f #f accum-str7_0 config8_2))))" "(reader-error10.1" " #f" " #f" -" c3_3" +" c3_4" " #t" " #f" " #f" -" in_36" -" config_45" +" in1_4" +" config2_3" " temp4_5" "(list expect-c5_0 temp6_3)))))" -"(accum-string-add! accum-str_3 c_87)))))))" +"(accum-string-add! accum-str_3 c_92)))))))" "(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_10 opener_4 mode_19)" -"((letrec-values(((loop_114)" -"(lambda(mode_3)" +"((letrec-values(((loop_66)" +"(lambda(mode_20)" "(begin" " 'loop" -"(let-values(((c_84)" -"(let-values(((in_6) in_36)" -"((source_24)" -"(read-config-source config_45)))" +"(let-values(((c_68)" +"(let-values(((in_40) in_38)" +"((source_25)" +"(read-config-source config_46)))" "(read-char-or-special" -" in_6" +" in_40" " special1.1" -" source_24))))" -"(let-values(((ec_7)(effective-char c_84 config_45)))" -"(let-values(((tmp_51) ec_7))" -"(if(equal? tmp_51 '#\\()" +" source_25))))" +"(let-values(((ec_7)(effective-char c_68 config_46)))" +"(let-values(((tmp_49) ec_7))" +"(if(equal? tmp_49 '#\\()" "(let-values()" "(let-values(((read-one-key+value_0)" "(make-read-one-key+value" " read-one_3" -" c_84" +" c_68" " '#\\))))" "(values" -"(let-values(((temp11_3) '#\\()" -"((temp12_5) '#\\))" -"((in13_0) in_36)" -"((config14_0) config_45)" -"((config15_1) config_45)" -"((temp16_5) #f))" +"(let-values(((read-one-key+value9_0)" +" read-one-key+value_0)" +"((c10_1) c_68)" +"((temp11_4) '#\\()" +"((temp12_4) '#\\))" +"((in13_0) in_38)" +"((config14_0) config_46)" +"((config15_1) config_46)" +"((temp16_3) #f))" "(read-unwrapped-sequence17.1" -" temp16_5" +" temp16_3" " #t" " config15_1" " #t" @@ -51559,36 +51587,39 @@ static const char *startup_source = " #f" " #f" " #f" -" read-one-key+value_0" -" c_84" -" temp11_3" -" temp12_5" +" read-one-key+value9_0" +" c10_1" +" temp11_4" +" temp12_4" " in13_0" " config14_0))" " ec_7" -" mode_3)))" -"(if(equal? tmp_51 '#\\[)" +" mode_20)))" +"(if(equal? tmp_49 '#\\[)" "(let-values()" "(if(check-parameter" " 1/read-square-bracket-as-paren" -" config_45)" +" config_46)" "(let-values()" "(let-values(((read-one-key+value_1)" "(make-read-one-key+value" " read-one_3" -" c_84" +" c_68" " '#\\])))" "(values" -"(let-values(((temp19_3) '#\\[)" +"(let-values(((read-one-key+value17_0)" +" read-one-key+value_1)" +"((c18_2) c_68)" +"((temp19_2) '#\\[)" "((temp20_3) '#\\])" -"((in21_2) in_36)" -"((config22_1) config_45)" -"((config23_2) config_45)" +"((in21_3) in_38)" +"((config22_2) config_46)" +"((config23_3) config_46)" "((temp24_9) #f))" "(read-unwrapped-sequence17.1" " temp24_9" " #t" -" config23_2" +" config23_3" " #t" " #f" " #f" @@ -51596,19 +51627,19 @@ static const char *startup_source = " #f" " #f" " #f" -" read-one-key+value_1" -" c_84" -" temp19_3" +" read-one-key+value17_0" +" c18_2" +" temp19_2" " temp20_3" -" in21_2" -" config22_1))" +" in21_3" +" config22_2))" " ec_7" -" mode_3)))" +" mode_20)))" "(let-values()" -"(let-values(((in25_0) in_36)" -"((config26_0) config_45)" +"(let-values(((in25_0) in_38)" +"((config26_0) config_46)" " ((temp27_6) \"illegal use of `~a`\")" -"((c28_0) c_84))" +"((c28_1) c_68))" "(reader-error10.1" " #f" " #f" @@ -51619,29 +51650,32 @@ static const char *startup_source = " in25_0" " config26_0" " temp27_6" -"(list c28_0))))))" -"(if(equal? tmp_51 '#\\{)" +"(list c28_1))))))" +"(if(equal? tmp_49 '#\\{)" "(let-values()" "(if(check-parameter" " 1/read-curly-brace-as-paren" -" config_45)" +" config_46)" "(let-values()" "(let-values(((read-one-key+value_2)" "(make-read-one-key+value" " read-one_3" -" c_84" +" c_68" " '#\\})))" "(values" -"(let-values(((temp31_6) '#\\{)" +"(let-values(((read-one-key+value29_0)" +" read-one-key+value_2)" +"((c30_0) c_68)" +"((temp31_6) '#\\{)" "((temp32_3) '#\\})" -"((in33_0) in_36)" -"((config34_0) config_45)" -"((config35_1) config_45)" -"((temp36_0) #f))" +"((in33_0) in_38)" +"((config34_0) config_46)" +"((config35_2) config_46)" +"((temp36_6) #f))" "(read-unwrapped-sequence17.1" -" temp36_0" +" temp36_6" " #t" -" config35_1" +" config35_2" " #t" " #f" " #f" @@ -51649,20 +51683,20 @@ static const char *startup_source = " #f" " #f" " #f" -" read-one-key+value_2" -" c_84" +" read-one-key+value29_0" +" c30_0" " temp31_6" " temp32_3" " in33_0" " config34_0))" " ec_7" -" mode_3)))" +" mode_20)))" "(let-values()" -"(let-values(((in37_1) in_36)" -"((config38_1) config_45)" +"(let-values(((in37_1) in_38)" +"((config38_1) config_46)" "((temp39_7)" " \"illegal use of `~a`\")" -"((c40_1) c_84))" +"((c40_1) c_68))" "(reader-error10.1" " #f" " #f" @@ -51674,31 +51708,31 @@ static const char *startup_source = " config38_1" " temp39_7" "(list c40_1))))))" -"(if(if(equal? tmp_51 '#\\e)" +"(if(if(equal? tmp_49 '#\\e)" " #t" -"(equal? tmp_51 '#\\E))" +"(equal? tmp_49 '#\\E))" "(let-values()" "(begin" -"(accum-string-add! accum-str_3 c_84)" +"(accum-string-add! accum-str_3 c_68)" "(get-next!_0 '#\\q '#\\Q)" -"(loop_114 'eq)))" -"(if(if(equal? tmp_51 '#\\v)" +"(loop_66 'eq)))" +"(if(if(equal? tmp_49 '#\\v)" " #t" -"(equal? tmp_51 '#\\V))" +"(equal? tmp_49 '#\\V))" "(let-values()" "(begin" -"(accum-string-add! accum-str_3 c_84)" -"(if(eq? mode_3 'eq)" -"(loop_114 'eqv)" -"(let-values(((in41_0) in_36)" -"((config42_0) config_45)" +"(accum-string-add! accum-str_3 c_68)" +"(if(eq? mode_20 'eq)" +"(loop_66 'eqv)" +"(let-values(((in41_0) in_38)" +"((config42_0) config_46)" "((temp43_3)" " \"bad syntax `~a`\")" "((temp44_3)" "(let-values(((accum-str45_0)" " accum-str_3)" "((config46_0)" -" config_45))" +" config_46))" "(accum-string-get!6.1" " #f" " #f" @@ -51717,17 +51751,19 @@ static const char *startup_source = "(list temp44_3))))))" "(let-values()" "(begin" -"(if(char? c_84)" +"(if(char? c_68)" "(let-values()" -"(accum-string-add! accum-str_3 c_84))" +"(accum-string-add! accum-str_3 c_68))" "(void))" -"(let-values(((c49_0) c_84)" +"(let-values(((in47_0) in_38)" +"((config48_0) config_46)" +"((c49_0) c_68)" " ((temp50_3) \"bad syntax `~a`\")" "((temp51_2)" "(let-values(((accum-str52_0)" " accum-str_3)" "((config53_0)" -" config_45))" +" config_46))" "(accum-string-get!6.1" " #f" " #f" @@ -51740,58 +51776,59 @@ static const char *startup_source = " #t" " #f" " #f" -" in_36" -" config_45" +" in47_0" +" config48_0" " temp50_3" "(list temp51_2)))))))))))))))))" -" loop_114)" +" loop_66)" " 'equal)))" -"(let-values(((graph?_0)(if(read-config-state-graph(read-config-st config_45)) #t #f)))" +"(let-values(((graph?_0)(if(read-config-state-graph(read-config-st config_46)) #t #f)))" "(wrap" -"(let-values(((tmp_45) mode_19))" -"(if(equal? tmp_45 'equal)" +"(let-values(((tmp_50) mode_19))" +"(if(equal? tmp_50 'equal)" "(let-values()" "(if graph?_0(make-hash-placeholder content_10)(make-immutable-hash content_10)))" -"(if(equal? tmp_45 'eq)" +"(if(equal? tmp_50 'eq)" "(let-values()" "(if graph?_0(make-hasheq-placeholder content_10)(make-immutable-hasheq content_10)))" -"(if(equal? tmp_45 'eqv)" +"(if(equal? tmp_50 'eqv)" "(let-values()" "(if graph?_0" "(make-hasheqv-placeholder content_10)" "(make-immutable-hasheqv content_10)))" "(let-values()(void))))))" -" in_36" -" config_45" +" in_38" +" config_46" " opener_4)))))))))))))" "(define-values" "(make-read-one-key+value)" "(lambda(read-one_8 overall-opener-c_0 overall-closer-ec_0)" "(begin" -"(lambda(init-c_12 in_38 config_47)" -"(let-values(((c_88)(read-char/skip-whitespace-and-comments init-c_12 read-one_8 in_38 config_47)))" -"(let-values(((open-line_0 open-col_0 open-pos_0)(port-next-location* in_38 c_88)))" -"(let-values(((ec_8)(effective-char c_88 config_47)))" -"(let-values(((elem-config_1)(next-readtable config_47)))" +"(lambda(init-c_12 in_41 config_48)" +"(let-values(((c_93)(read-char/skip-whitespace-and-comments init-c_12 read-one_8 in_41 config_48)))" +"(let-values(((open-line_0 open-col_0 open-pos_0)(port-next-location* in_41 c_93)))" +"(let-values(((ec_8)(effective-char c_93 config_48)))" +"(let-values(((elem-config_1)(next-readtable config_48)))" "(let-values(((closer_4)" -"(let-values(((tmp_52) ec_8))" -"(if(equal? tmp_52 '#\\()" +"(let-values(((tmp_51) ec_8))" +"(if(equal? tmp_51 '#\\()" "(let-values() '#\\))" -"(if(equal? tmp_52 '#\\[)" +"(if(equal? tmp_51 '#\\[)" "(let-values()" -"(if(check-parameter 1/read-square-bracket-as-paren config_47) '#\\] #f))" -"(if(equal? tmp_52 '#\\{)" +"(if(check-parameter 1/read-square-bracket-as-paren config_48) '#\\] #f))" +"(if(equal? tmp_51 '#\\{)" "(let-values()" -"(if(check-parameter 1/read-curly-brace-as-paren config_47) '#\\} #f))" +"(if(check-parameter 1/read-curly-brace-as-paren config_48) '#\\} #f))" "(let-values() #f)))))))" "(if(not closer_4)" "(let-values()" -"(if(eof-object? c_88)" +"(if(eof-object? c_93)" "(let-values()" -"(let-values(((temp55_2)(reading-at config_47 open-line_0 open-col_0 open-pos_0))" -"((c56_0) c_88)" +"(let-values(((in54_0) in_41)" +"((temp55_2)(reading-at config_48 open-line_0 open-col_0 open-pos_0))" +"((c56_0) c_93)" " ((temp57_1) \"expected ~a to close `~a`\")" -"((temp58_3)(closer-name overall-closer-ec_0 config_47))" +"((temp58_2)(closer-name overall-closer-ec_0 config_48))" "((overall-opener-c59_0) overall-opener-c_0))" "(reader-error10.1" " #f" @@ -51800,30 +51837,30 @@ static const char *startup_source = " #t" " #f" " #f" -" in_38" +" in54_0" " temp55_2" " temp57_1" -"(list temp58_3 overall-opener-c59_0))))" -"(if(char-closer? ec_8 config_47)" +"(list temp58_2 overall-opener-c59_0))))" +"(if(char-closer? ec_8 config_48)" "(let-values()" -"(let-values(((in60_0) in_38)" -"((temp61_4)(reading-at config_47 open-line_0 open-col_0 open-pos_0))" +"(let-values(((in60_0) in_41)" +"((temp61_4)(reading-at config_48 open-line_0 open-col_0 open-pos_0))" " ((temp62_1) \"~a\")" -"((temp63_3)(indentation-unexpected-closer-message ec_8 c_88 config_47)))" +"((temp63_3)(indentation-unexpected-closer-message ec_8 c_93 config_48)))" "(reader-error10.1 #f #f #f #f #f #f in60_0 temp61_4 temp62_1(list temp63_3))))" "(let-values()" -"(let-values(((v_233)(read-one_8 c_88 in_38(keep-comment elem-config_1))))" -"(if(1/special-comment? v_233)" +"(let-values(((v_48)(read-one_8 c_93 in_41(keep-comment elem-config_1))))" +"(if(1/special-comment? v_48)" "(let-values()" "((make-read-one-key+value read-one_8 overall-opener-c_0 overall-closer-ec_0)" " #f" -" in_38" -" config_47))" +" in_41" +" config_48))" "(let-values()" -"(let-values(((in64_0) in_38)" -"((temp65_3)(reading-at config_47 open-line_0 open-col_0 open-pos_0))" +"(let-values(((in64_0) in_41)" +"((temp65_3)(reading-at config_48 open-line_0 open-col_0 open-pos_0))" " ((temp66_3) \"expected ~a to start a hash pair\")" -"((temp67_1)(all-openers-str config_47)))" +"((temp67_1)(all-openers-str config_48)))" "(reader-error10.1" " #f" " #f" @@ -51836,33 +51873,34 @@ static const char *startup_source = " temp66_3" "(list temp67_1))))))))))" "(let-values()" -"(let-values(((k_40)(read-one_8 #f in_38(disable-wrapping elem-config_1))))" -"(let-values(((dot-c_0)(read-char/skip-whitespace-and-comments #f read-one_8 in_38 config_47)))" -"(let-values(((dot-line_1 dot-col_1 dot-pos_4)(port-next-location* in_38 dot-c_0)))" -"(let-values(((dot-ec_0)(effective-char dot-c_0 config_47)))" +"(let-values(((k_40)(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_48)))" +"(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_48)))" "(let-values((()" "(begin" "(if(if(eqv? dot-ec_0 '#\\.)" "(char-delimiter?" -"(let-values(((in_39) in_38)" -"((skip-count_8) 0)" -"((source_25)(read-config-source config_47)))" -"(let-values(((c_89)" +"(let-values(((in_42) in_41)" +"((skip-count_9) 0)" +"((source_26)(read-config-source config_48)))" +"(let-values(((c_94)" "(peek-char-or-special" -" in_39" -" skip-count_8" +" in_42" +" skip-count_9" " 'special" -" source_25)))" -"(if(eq? c_89 'special)(special1.1 'special) c_89)))" -" config_47)" +" source_26)))" +"(if(eq? c_94 'special)(special1.1 'special) c_94)))" +" config_48)" " #f)" "(void)" "(let-values()" -"(let-values(((temp69_2)" -"(reading-at config_47 dot-line_1 dot-col_1 dot-pos_4))" +"(let-values(((in68_0) in_41)" +"((temp69_2)" +"(reading-at config_48 dot-line_1 dot-col_1 dot-pos_4))" "((dot-c70_0) dot-c_0)" " ((temp71_1) \"expected ~a and value for hash\")" -"((temp72_1)(dot-name config_47)))" +"((temp72_1)(dot-name config_48)))" "(reader-error10.1" " #f" " #f" @@ -51870,30 +51908,31 @@ static const char *startup_source = " #t" " #f" " #f" -" in_38" +" in68_0" " temp69_2" " temp71_1" "(list temp72_1)))))" "(values))))" -"(let-values(((v_89)(read-one_8 #f in_38 elem-config_1)))" +"(let-values(((v_239)(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_38 config_47)))" +"(read-char/skip-whitespace-and-comments #f read-one_8 in_41 config_48)))" "(let-values(((closer-line_0 closer-col_0 closer-pos_0)" -"(port-next-location* in_38 closer-c_0)))" -"(let-values(((closer-ec_0)(effective-char closer-c_0 config_47)))" +"(port-next-location* in_41 closer-c_0)))" +"(let-values(((closer-ec_0)(effective-char closer-c_0 config_48)))" "(begin" "(if(eqv? closer-ec_0 closer_4)" "(void)" "(let-values()" -"(let-values(((temp74_0)" +"(let-values(((in73_0) in_41)" +"((temp74_0)" "(reading-at" -" config_47" +" config_48" " closer-line_0" " closer-col_0" " closer-pos_0))" "((closer-c75_0) closer-c_0)" " ((temp76_0) \"expected ~a after value within a hash\")" -"((temp77_1)(closer-name closer_4 config_47)))" +"((temp77_1)(closer-name closer_4 config_48)))" "(reader-error10.1" " #f" " #f" @@ -51901,32 +51940,37 @@ static const char *startup_source = " #t" " #f" " #f" -" in_38" +" in73_0" " temp74_0" " temp76_0" "(list temp77_1)))))" -"(cons(coerce-key k_40 elem-config_1) v_89))))))))))))))))))))))" +"(cons(coerce-key k_40 elem-config_1) v_239))))))))))))))))))))))" "(define-values" "(read-string5.1)" "(lambda(mode1_1 mode2_0 in3_0 config4_0)" "(begin" " 'read-string5" -"(let-values(((in_40) in3_0))" +"(let-values(((in_43) in3_0))" "(let-values(((config_22) config4_0))" "(let-values(((mode_0)(if mode2_0 mode1_1 'string)))" "(let-values()" -"(let-values(((source_26)(read-config-source config_22)))" +"(let-values(((source_27)(read-config-source config_22)))" "(let-values(((accum-str_4)(accum-string-init! config_22)))" "(let-values(((bad-end_0)" -"(lambda(c_90)" +"(lambda(c_95)" "(begin" " 'bad-end" -"(if(eof-object? c_90)" +"(if(eof-object? c_95)" "(let-values()" -" (let-values (((c10_1) c_90) ((temp11_4) \"expected a closing `\\\"`\"))" -"(reader-error10.1 #f #f c10_1 #t #f #f in_40 config_22 temp11_4(list))))" +"(let-values(((in8_0) in_43)" +"((config9_1) config_22)" +"((c10_2) c_95)" +" ((temp11_5) \"expected a closing `\\\"`\"))" +"(reader-error10.1 #f #f c10_2 #t #f #f in8_0 config9_1 temp11_5(list))))" "(let-values()" -"(let-values(((c14_0) c_90)" +"(let-values(((in12_3) in_43)" +"((config13_1) config_22)" +"((c14_0) c_95)" " ((temp15_6) \"found non-character while reading a ~a\")" "((mode16_0) mode_0))" "(reader-error10.1" @@ -51936,35 +51980,35 @@ static const char *startup_source = " #t" " #f" " #f" -" in_40" -" config_22" +" in12_3" +" config13_1" " temp15_6" "(list mode16_0)))))))))" "(let-values((()" "(begin" -"((letrec-values(((loop_115)" +"((letrec-values(((loop_110)" "(lambda()" "(begin" " 'loop" -"(let-values(((c_91)" -"(let-values(((in_41) in_40)" -"((source_27) source_26))" +"(let-values(((c_49)" +"(let-values(((in_44) in_43)" +"((source_6) source_27))" "(read-char-or-special" -" in_41" -" special1.1" -" source_27))))" -"(if(not(char? c_91))" -"(let-values()(bad-end_0 c_91))" -"(if(char=? '#\\\\ c_91)" -"(let-values()" -"(let-values(((escaping-c_0) c_91))" -"(let-values(((escaped-c_0)" -"(let-values(((in_42) in_40)" -"((source_6) source_26))" -"(read-char-or-special" -" in_42" +" in_44" " special1.1" " source_6))))" +"(if(not(char? c_49))" +"(let-values()(bad-end_0 c_49))" +"(if(char=? '#\\\\ c_49)" +"(let-values()" +"(let-values(((escaping-c_0) c_49))" +"(let-values(((escaped-c_0)" +"(let-values(((in_40) in_43)" +"((source_25) source_27))" +"(read-char-or-special" +" in_40" +" special1.1" +" source_25))))" "(let-values((()" "(begin" "(if(not(char? escaped-c_0))" @@ -51976,10 +52020,10 @@ static const char *startup_source = "(lambda()" "(begin" " 'unknown-error" -"(let-values(((in17_0) in_40)" +"(let-values(((in17_0) in_43)" "((config18_0)" " config_22)" -"((temp19_4)" +"((temp19_3)" " \"unknown escape sequence `~a~a` in ~a\")" "((escaping-c20_0)" " escaping-c_0)" @@ -51996,18 +52040,18 @@ static const char *startup_source = " #f" " in17_0" " config18_0" -" temp19_4" +" temp19_3" "(list" " escaping-c20_0" " escaped-c21_0" " mode22_0)))))))" "(begin" -"(let-values(((tmp_53) escaped-c_0))" +"(let-values(((tmp_52) escaped-c_0))" "(let-values(((index_3)" -"(if(char? tmp_53)" +"(if(char? tmp_52)" "(let-values(((codepoint_1)" "(char->integer" -" tmp_53)))" +" tmp_52)))" "(if(if(unsafe-fx>=" " codepoint_1" " 10)" @@ -52187,36 +52231,36 @@ static const char *startup_source = "(if(unsafe-fx< index_3 12)" "(let-values()" "(let-values(((maybe-newline-c_0)" -"(let-values(((in_37)" -" in_40)" -"((skip-count_9)" +"(let-values(((in_45)" +" in_43)" +"((skip-count_10)" " 0)" "((source_28)" -" source_26))" -"(let-values(((c_46)" +" source_27))" +"(let-values(((c_96)" "(peek-char-or-special" -" in_37" -" skip-count_9" +" in_45" +" skip-count_10" " 'special" " source_28)))" "(if(eq?" -" c_46" +" c_96" " 'special)" "(special1.1" " 'special)" -" c_46)))))" +" c_96)))))" "(begin" "(if(eqv?" " maybe-newline-c_0" " '#\\newline)" "(let-values()" "(consume-char" -" in_40" +" in_43" " maybe-newline-c_0))" "(void))" "(void))))" "(let-values()" -"(let-values(((pos_116)" +"(let-values(((pos_118)" "(accum-string-count" " accum-str_4)))" "(let-values((()" @@ -52228,10 +52272,16 @@ static const char *startup_source = "(let-values(((init-v_3)" "(digit->number" " escaped-c_0)))" -"(let-values(((v_181)" -"(let-values(((temp26_6)" +"(let-values(((v_183)" +"(let-values(((in23_1)" +" in_43)" +"((config24_1)" +" config_22)" +"((accum-str25_0)" +" accum-str_4)" +"((temp26_6)" " 8)" -"((temp27_6)" +"((temp27_7)" " 2)" "((init-v28_0)" " init-v_3)" @@ -52241,19 +52291,19 @@ static const char *startup_source = " temp26_6" " init-v28_0" " #t" -" temp27_6" +" temp27_7" " init-v29_0" " #t" -" in_40" -" config_22" -" accum-str_4" +" in23_1" +" config24_1" +" accum-str25_0" " #t))))" "(begin" -"(if(<= v_181 255)" +"(if(<= v_183 255)" "(void)" "(let-values()" "(let-values(((in30_0)" -" in_40)" +" in_43)" "((config31_0)" " config_22)" "((temp32_4)" @@ -52261,13 +52311,17 @@ static const char *startup_source = "((escaping-c33_0)" " escaping-c_0)" "((temp34_2)" -"(let-values(((pos38_0)" -" pos_116))" +"(let-values(((accum-str36_0)" +" accum-str_4)" +"((config37_1)" +" config_22)" +"((pos38_0)" +" pos_118))" "(accum-string-get!6.1" " pos38_0" " #t" -" accum-str_4" -" config_22)))" +" accum-str36_0" +" config37_1)))" "((mode35_0)" " mode_0))" "(reader-error10.1" @@ -52286,18 +52340,24 @@ static const char *startup_source = " mode35_0)))))" "(set-accum-string-count!" " accum-str_4" -" pos_116)" +" pos_118)" "(accum-string-add!" " accum-str_4" "(integer->char" -" v_181)))))))))" +" v_183)))))))))" "(if(unsafe-fx< index_3 14)" "(let-values()" -"(let-values(((pos_117)" +"(let-values(((pos_119)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_194)" -"(let-values(((temp42_3)" +"(let-values(((v_240)" +"(let-values(((in39_1)" +" in_43)" +"((config40_0)" +" config_22)" +"((accum-str41_0)" +" accum-str_4)" +"((temp42_3)" " 16)" "((temp43_4)" " 2))" @@ -52308,27 +52368,27 @@ static const char *startup_source = " temp43_4" " #f" " #f" -" in_40" -" config_22" -" accum-str_4" +" in39_1" +" config40_0" +" accum-str41_0" " #t))))" "(begin" -"(if(integer? v_194)" +"(if(integer? v_240)" "(void)" "(let-values()" "(no-hex-digits" -" in_40" +" in_43" " config_22" -" v_194" +" v_240" " escaping-c_0" " escaped-c_0)))" "(set-accum-string-count!" " accum-str_4" -" pos_117)" +" pos_119)" "(accum-string-add!" " accum-str_4" "(integer->char" -" v_194))))))" +" v_240))))))" "(if(unsafe-fx< index_3 15)" "(let-values()" "(let-values((()" @@ -52340,11 +52400,17 @@ static const char *startup_source = "(let-values()" "(unknown-error_0)))" "(values))))" -"(let-values(((pos_99)" +"(let-values(((pos_120)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_220)" -"(let-values(((temp47_1)" +"(let-values(((v_241)" +"(let-values(((in44_1)" +" in_43)" +"((config45_1)" +" config_22)" +"((accum-str46_0)" +" accum-str_4)" +"((temp47_1)" " 16)" "((temp48_1)" " 4))" @@ -52355,52 +52421,52 @@ static const char *startup_source = " temp48_1" " #f" " #f" -" in_40" -" config_22" -" accum-str_4" +" in44_1" +" config45_1" +" accum-str46_0" " #t))))" "(begin" -"(if(integer? v_220)" +"(if(integer? v_241)" "(void)" "(let-values()" "(no-hex-digits" -" in_40" +" in_43" " config_22" -" v_220" +" v_241" " escaping-c_0" " escaped-c_0)))" -"(if(let-values(((or-part_28)" +"(if(let-values(((or-part_354)" "(<" -" v_220" +" v_241" " 55296)))" -"(if or-part_28" -" or-part_28" +"(if or-part_354" +" or-part_354" "(>" -" v_220" +" v_241" " 57343)))" "(let-values()" "(begin" "(set-accum-string-count!" " accum-str_4" -" pos_99)" +" pos_120)" "(accum-string-add!" " accum-str_4" "(integer->char" -" v_220))))" +" v_241))))" "(let-values()" "(let-values(((next!_0)" "(lambda()" "(begin" " 'next!" "(let-values(((next-c_1)" -"(let-values(((in_43)" -" in_40)" -"((source_14)" -" source_26))" +"(let-values(((in_46)" +" in_43)" +"((source_29)" +" source_27))" "(read-char-or-special" -" in_43" +" in_46" " special1.1" -" source_14))))" +" source_29))))" "(begin" "(if(char?" " next-c_1)" @@ -52410,7 +52476,7 @@ static const char *startup_source = " next-c_1))" "(void))" " next-c_1))))))" -"(let-values(((v2_9)" +"(let-values(((v2_8)" "(let-values(((next-c_2)" "(next!_0)))" "(if(char=?" @@ -52423,8 +52489,14 @@ static const char *startup_source = " next-c_3" " '#\\u)" "(let-values()" -"(let-values(((v2_10)" -"(let-values(((temp52_5)" +"(let-values(((v2_9)" +"(let-values(((in49_0)" +" in_43)" +"((config50_0)" +" config_22)" +"((accum-str51_0)" +" accum-str_4)" +"((temp52_5)" " 16)" "((temp53_4)" " 4))" @@ -52435,62 +52507,66 @@ static const char *startup_source = " temp53_4" " #f" " #f" -" in_40" -" config_22" -" accum-str_4" +" in49_0" +" config50_0" +" accum-str51_0" " #t))))" "(if(integer?" -" v2_10)" +" v2_9)" "(let-values()" "(if(>=" -" v2_10" +" v2_9" " 56320)" "(if(<=" -" v2_10" +" v2_9" " 57343)" -" v2_10" +" v2_9" " #f)" " #f))" "(let-values()" -" v2_10))))" +" v2_9))))" "(let-values()" " next-c_3))))" "(let-values()" " next-c_2)))))" "(if(integer?" -" v2_9)" +" v2_8)" "(let-values()" "(let-values(((combined-v_0)" "(+" "(arithmetic-shift" "(-" -" v_220" +" v_241" " 55296)" " 10)" "(-" -" v2_9" +" v2_8" " 56320)" " 65536)))" "(if(>" " combined-v_0" " 1114111)" "(let-values()" -"(let-values(((in54_0)" -" in_40)" +"(let-values(((in54_1)" +" in_43)" "((config55_0)" " config_22)" "((temp56_0)" " \"escape sequence `~au~a` is out of range in string\")" "((escaping-c57_0)" " escaping-c_0)" -"((temp58_4)" -"(let-values(((pos61_0)" -" pos_99))" +"((temp58_3)" +"(let-values(((accum-str59_0)" +" accum-str_4)" +"((config60_1)" +" config_22)" +"((pos61_0)" +" pos_120))" "(accum-string-get!6.1" " pos61_0" " #t" -" accum-str_4" -" config_22))))" +" accum-str59_0" +" config60_1))))" "(reader-error10.1" " #f" " #f" @@ -52498,36 +52574,44 @@ static const char *startup_source = " #f" " #f" " #f" -" in54_0" +" in54_1" " config55_0" " temp56_0" "(list" " escaping-c57_0" -" temp58_4))))" +" temp58_3))))" "(let-values()" "(begin" "(set-accum-string-count!" " accum-str_4" -" pos_99)" +" pos_120)" "(accum-string-add!" " accum-str_4" "(integer->char" " combined-v_0)))))))" "(let-values()" -"(let-values(((v264_0)" -" v2_9)" +"(let-values(((in62_1)" +" in_43)" +"((config63_1)" +" config_22)" +"((v264_0)" +" v2_8)" "((temp65_4)" " \"bad or incomplete surrogate-style encoding at `~au~a`\")" "((escaping-c66_0)" " escaping-c_0)" "((temp67_2)" -"(let-values(((pos70_0)" -" pos_99))" +"(let-values(((accum-str68_0)" +" accum-str_4)" +"((config69_0)" +" config_22)" +"((pos70_0)" +" pos_120))" "(accum-string-get!6.1" " pos70_0" " #t" -" accum-str_4" -" config_22))))" +" accum-str68_0" +" config69_0))))" "(reader-error10.1" " #f" " #f" @@ -52535,8 +52619,8 @@ static const char *startup_source = " #t" " #f" " #f" -" in_40" -" config_22" +" in62_1" +" config63_1" " temp65_4" "(list" " escaping-c66_0" @@ -52551,11 +52635,17 @@ static const char *startup_source = "(let-values()" "(unknown-error_0)))" "(values))))" -"(let-values(((pos_90)" +"(let-values(((pos_121)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_234)" -"(let-values(((temp74_1)" +"(let-values(((v_242)" +"(let-values(((in71_0)" +" in_43)" +"((config72_0)" +" config_22)" +"((accum-str73_0)" +" accum-str_4)" +"((temp74_1)" " 16)" "((temp75_1)" " 8))" @@ -52566,59 +52656,63 @@ static const char *startup_source = " temp75_1" " #f" " #f" -" in_40" -" config_22" -" accum-str_4" +" in71_0" +" config72_0" +" accum-str73_0" " #t))))" "(begin" -"(if(integer? v_234)" +"(if(integer? v_242)" "(void)" "(let-values()" "(no-hex-digits" -" in_40" +" in_43" " config_22" -" v_234" +" v_242" " escaping-c_0" " escaped-c_0)))" -"(if(if(let-values(((or-part_265)" +"(if(if(let-values(((or-part_145)" "(<" -" v_234" +" v_242" " 55296)))" -"(if or-part_265" -" or-part_265" +"(if or-part_145" +" or-part_145" "(>" -" v_234" +" v_242" " 57343)))" "(<=" -" v_234" +" v_242" " 1114111)" " #f)" "(let-values()" "(begin" "(set-accum-string-count!" " accum-str_4" -" pos_90)" +" pos_121)" "(accum-string-add!" " accum-str_4" "(integer->char" -" v_234))))" +" v_242))))" "(let-values()" "(let-values(((in76_0)" -" in_40)" +" in_43)" "((config77_1)" " config_22)" -"((temp78_4)" +"((temp78_5)" " \"escape sequence `~aU~a` is out of range in string\")" "((escaping-c79_0)" " escaping-c_0)" "((temp80_4)" -"(let-values(((pos83_0)" -" pos_90))" +"(let-values(((accum-str81_0)" +" accum-str_4)" +"((config82_0)" +" config_22)" +"((pos83_0)" +" pos_121))" "(accum-string-get!6.1" " pos83_0" " #t" -" accum-str_4" -" config_22))))" +" accum-str81_0" +" config82_0))))" "(reader-error10.1" " #f" " #f" @@ -52628,25 +52722,25 @@ static const char *startup_source = " #f" " in76_0" " config77_1" -" temp78_4" +" temp78_5" "(list" " escaping-c79_0" " temp80_4)))))))))))))))))" -"(loop_115)))))))" -" (if (char=? '#\\\" c_91)" +"(loop_110)))))))" +" (if (char=? '#\\\" c_49)" "(let-values() null)" "(let-values()" "(begin" "(if(eq? mode_0 '|byte string|)" "(let-values()" -"(if(byte?(char->integer c_91))" +"(if(byte?(char->integer c_49))" "(void)" "(let-values()" -"(let-values(((in84_0) in_40)" +"(let-values(((in84_0) in_43)" "((config85_0) config_22)" "((temp86_0)" " \"character `~a` is out of range in byte string\")" -"((c87_0) c_91))" +"((c87_0) c_49))" "(reader-error10.1" " #f" " #f" @@ -52659,9 +52753,9 @@ static const char *startup_source = " temp86_0" "(list c87_0))))))" "(void))" -"(accum-string-add! accum-str_4 c_91)" -"(loop_115)))))))))))" -" loop_115))" +"(accum-string-add! accum-str_4 c_49)" +"(loop_110)))))))))))" +" loop_110))" "(values))))" "(let-values(((str_30)" "(if(eq? mode_0 '|byte string|)" @@ -52669,26 +52763,28 @@ static const char *startup_source = "(accum-string-get-bytes!13.1 #f #f accum-str88_0 config89_0))" "(let-values(((accum-str90_0) accum-str_4)((config91_0) config_22))" "(accum-string-get!6.1 #f #f accum-str90_0 config91_0)))))" -"(wrap str_30 in_40 config_22 str_30)))))))))))))" +"(wrap str_30 in_43 config_22 str_30)))))))))))))" "(define-values" "(read-here-string)" -"(lambda(in_44 config_48)" +"(lambda(in_47 config_49)" "(begin" -"(let-values(((source_29)(read-config-source config_48)))" -"(let-values(((accum-str_5)(accum-string-init! config_48)))" +"(let-values(((source_30)(read-config-source config_49)))" +"(let-values(((accum-str_5)(accum-string-init! config_49)))" "(let-values(((full-terminator_0)" "(cons" " '#\\newline" -"((letrec-values(((loop_116)" +"((letrec-values(((loop_111)" "(lambda()" "(begin" " 'loop" -"(let-values(((c_92)" -"(let-values(((in_45) in_44)((source_30) source_29))" -"(read-char-or-special in_45 special1.1 source_30))))" -"(if(eof-object? c_92)" +"(let-values(((c_97)" +"(let-values(((in_48) in_47)((source_31) source_30))" +"(read-char-or-special in_48 special1.1 source_31))))" +"(if(eof-object? c_97)" "(let-values()" -"(let-values(((c94_0) c_92)" +"(let-values(((in92_0) in_47)" +"((config93_0) config_49)" +"((c94_0) c_97)" "((temp95_2)" " \"found end-of-file after `#<<` and before a newline\"))" "(reader-error10.1" @@ -52698,13 +52794,15 @@ static const char *startup_source = " #t" " #f" " #f" -" in_44" -" config_48" +" in92_0" +" config93_0" " temp95_2" "(list))))" -"(if(not(char? c_92))" +"(if(not(char? c_97))" "(let-values()" -"(let-values(((c98_0) c_92)" +"(let-values(((in96_0) in_47)" +"((config97_0) config_49)" +"((c98_0) c_97)" "((temp99_2)" " \"found non-character while reading `#<<`\"))" "(reader-error10.1" @@ -52714,29 +52812,31 @@ static const char *startup_source = " #t" " #f" " #f" -" in_44" -" config_48" +" in96_0" +" config97_0" " temp99_2" "(list))))" -"(if(char=? c_92 '#\\newline)" +"(if(char=? c_97 '#\\newline)" "(let-values() null)" -"(let-values()(cons c_92(loop_116)))))))))))" -" loop_116)))))" +"(let-values()(cons c_97(loop_111)))))))))))" +" loop_111)))))" "(let-values((()" "(begin" -"((letrec-values(((loop_117)" +"((letrec-values(((loop_112)" "(lambda(terminator_0 terminator-accum_0)" "(begin" " 'loop" -"(let-values(((c_93)" -"(let-values(((in_46) in_44)((source_31) source_29))" -"(read-char-or-special in_46 special1.1 source_31))))" -"(if(eof-object? c_93)" +"(let-values(((c_98)" +"(let-values(((in_49) in_47)((source_32) source_30))" +"(read-char-or-special in_49 special1.1 source_32))))" +"(if(eof-object? c_98)" "(let-values()" "(if(null? terminator_0)" "(void)" "(let-values()" -"(let-values(((c102_0) c_93)" +"(let-values(((in100_0) in_47)" +"((config101_0) config_49)" +"((c102_0) c_98)" "((temp103_2)" " \"found end-of-file before terminating `~a`\")" "((temp104_2)" @@ -52748,13 +52848,15 @@ static const char *startup_source = " #t" " #f" " #f" -" in_44" -" config_48" +" in100_0" +" config101_0" " temp103_2" "(list temp104_2))))))" -"(if(not(char? c_93))" +"(if(not(char? c_98))" "(let-values()" -"(let-values(((c107_0) c_93)" +"(let-values(((in105_0) in_47)" +"((config106_0) config_49)" +"((c107_0) c_98)" "((temp108_3)" " \"found non-character while reading `#<<`\"))" "(reader-error10.1" @@ -52764,18 +52866,18 @@ static const char *startup_source = " #t" " #f" " #f" -" in_44" -" config_48" +" in105_0" +" config106_0" " temp108_3" "(list))))" "(if(if(pair? terminator_0)" -"(char=? c_93(car terminator_0))" +"(char=? c_98(car terminator_0))" " #f)" "(let-values()" -"(loop_117" +"(loop_112" "(cdr terminator_0)" "(cons(car terminator_0) terminator-accum_0)))" -"(if(if(null? terminator_0)(char=? c_93 '#\\newline) #f)" +"(if(if(null? terminator_0)(char=? c_98 '#\\newline) #f)" "(let-values()(void))" "(let-values()" "(begin" @@ -52783,24 +52885,24 @@ static const char *startup_source = "(void)" "(let-values()" "(begin" -"(let-values(((lst_276)" +"(let-values(((lst_231)" "(reverse$1 terminator-accum_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_276)))" -"((letrec-values(((for-loop_185)" -"(lambda(lst_98)" +"(let-values()(check-list lst_231)))" +"((letrec-values(((for-loop_271)" +"(lambda(lst_311)" "(begin" " 'for-loop" -"(if(pair? lst_98)" -"(let-values(((c_94)" +"(if(pair? lst_311)" +"(let-values(((c_99)" "(unsafe-car" -" lst_98))" -"((rest_47)" +" lst_311))" +"((rest_174)" "(unsafe-cdr" -" lst_98)))" +" lst_311)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -52809,96 +52911,106 @@ static const char *startup_source = "(let-values()" "(accum-string-add!" " accum-str_5" -" c_94))" +" c_99))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_185" -" rest_47)" +"(for-loop_271" +" rest_174)" "(values))))" "(values))))))" -" for-loop_185)" -" lst_276)))" +" for-loop_271)" +" lst_231)))" "(void))))" -"(if(char=? c_93 '#\\newline)" +"(if(char=? c_98 '#\\newline)" "(let-values()" -"(loop_117" +"(loop_112" "(cdr full-terminator_0)" "(list '#\\newline)))" "(let-values()" "(begin" -"(accum-string-add! accum-str_5 c_93)" -"(loop_117 full-terminator_0 null)))))))))))))))" -" loop_117)" +"(accum-string-add! accum-str_5 c_98)" +"(loop_112 full-terminator_0 null)))))))))))))))" +" loop_112)" "(cdr full-terminator_0)" " null)" "(values))))" "(let-values(((str_31)" -"(let-values(((accum-str109_0) accum-str_5)((config110_0) config_48))" +"(let-values(((accum-str109_0) accum-str_5)((config110_0) config_49))" "(accum-string-get!6.1 #f #f accum-str109_0 config110_0))))" -"(wrap str_31 in_44 config_48 str_31)))))))))" +"(wrap str_31 in_47 config_49 str_31)))))))))" "(define-values" "(no-hex-digits)" -"(lambda(in_47 config_49 c_95 escaping-c_1 escaped-c_1)" +"(lambda(in_50 config_50 c_100 escaping-c_1 escaped-c_1)" "(begin" -"(let-values(((c113_0) c_95)" +"(let-values(((in111_0) in_50)" +"((config112_0) config_50)" +"((c113_0) c_100)" " ((temp114_1) \"no hex digit following `~a~a`\")" "((escaping-c115_0) escaping-c_1)" "((escaped-c116_0) escaped-c_1))" -"(reader-error10.1 #f #f c113_0 #t #f #f in_47 config_49 temp114_1(list escaping-c115_0 escaped-c116_0))))))" +"(reader-error10.1 #f #f c113_0 #t #f #f in111_0 config112_0 temp114_1(list escaping-c115_0 escaped-c116_0))))))" "(define-values" "(read-character)" "(lambda(in_4 config_8)" "(begin" -"(let-values(((c_96)" -"(let-values(((in_40) in_4)((source_32)(read-config-source config_8)))" -"(read-char-or-special in_40 special1.1 source_32))))" +"(let-values(((c_101)" +"(let-values(((in_43) in_4)((source_33)(read-config-source config_8)))" +"(read-char-or-special in_43 special1.1 source_33))))" "(let-values(((char_0)" -"(if(eof-object? c_96)" +"(if(eof-object? c_101)" "(let-values()" -" (let-values (((c3_4) c_96) ((temp4_0) \"expected a character after `#\\\\`\"))" -"(reader-error10.1 #f #f c3_4 #t #f #f in_4 config_8 temp4_0(list))))" -"(if(not(char? c_96))" +"(let-values(((in1_5) in_4)" +"((config2_4) config_8)" +"((c3_5) c_101)" +" ((temp4_6) \"expected a character after `#\\\\`\"))" +"(reader-error10.1 #f #f c3_5 #t #f #f in1_5 config2_4 temp4_6(list))))" +"(if(not(char? c_101))" "(let-values()" -" (let-values (((c7_1) c_96) ((temp8_3) \"found non-character after `#\\\\`\"))" -"(reader-error10.1 #f #f c7_1 #t #f #f in_4 config_8 temp8_3(list))))" -"(if(octal-digit? c_96)" +"(let-values(((in5_1) in_4)" +"((config6_0) config_8)" +"((c7_1) c_101)" +" ((temp8_3) \"found non-character after `#\\\\`\"))" +"(reader-error10.1 #f #f c7_1 #t #f #f in5_1 config6_0 temp8_3(list))))" +"(if(octal-digit? c_101)" "(let-values()" "(let-values(((c2_5)" -"(let-values(((in_48) in_4)" -"((skip-count_10) 0)" -"((source_33)(read-config-source config_8)))" -"(let-values(((c_13)" +"(let-values(((in_51) in_4)" +"((skip-count_11) 0)" +"((source_34)(read-config-source config_8)))" +"(let-values(((c_48)" "(peek-char-or-special" -" in_48" -" skip-count_10" +" in_51" +" skip-count_11" " 'special" -" source_33)))" -"(if(eq? c_13 'special)(special1.1 'special) c_13)))))" +" source_34)))" +"(if(eq? c_48 'special)(special1.1 'special) c_48)))))" "(if(if(char? c2_5)(octal-digit? c2_5) #f)" "(let-values()" "(let-values((()(begin(consume-char in_4 c2_5)(values))))" -"(let-values(((c3_5)" -"(let-values(((in_41) in_4)" -"((source_27)(read-config-source config_8)))" -"(read-char-or-special in_41 special1.1 source_27))))" -"(let-values(((v_217)" -"(if(if(char? c3_5)(octal-digit? c3_5) #f)" +"(let-values(((c3_6)" +"(let-values(((in_44) in_4)" +"((source_6)(read-config-source config_8)))" +"(read-char-or-special in_44 special1.1 source_6))))" +"(let-values(((v_82)" +"(if(if(char? c3_6)(octal-digit? c3_6) #f)" "(let-values()" "(+" -"(arithmetic-shift(digit->number c_96) 6)" +"(arithmetic-shift(digit->number c_101) 6)" "(arithmetic-shift(digit->number c2_5) 3)" -"(digit->number c3_5)))" +"(digit->number c3_6)))" "(let-values() #f))))" "(begin" -"(if(if v_217(<= v_217 255) #f)" +"(if(if v_82(<= v_82 255) #f)" "(void)" "(let-values()" -"(let-values(((c311_0) c3_5)" -" ((temp12_1) \"bad character constant `#\\\\~a~a~a`\")" -"((c13_2) c_96)" +"(let-values(((in9_2) in_4)" +"((config10_1) config_8)" +"((c311_0) c3_6)" +" ((temp12_5) \"bad character constant `#\\\\~a~a~a`\")" +"((c13_2) c_101)" "((c214_0) c2_5)" -" ((temp15_7) (if (char? c3_5) c3_5 \"\")))" +" ((temp15_7) (if (char? c3_6) c3_6 \"\")))" "(reader-error10.1" " #f" " #f" @@ -52906,18 +53018,22 @@ static const char *startup_source = " #t" " #f" " #f" -" in_4" -" config_8" -" temp12_1" +" in9_2" +" config10_1" +" temp12_5" "(list c13_2 c214_0 temp15_7)))))" -"(integer->char v_217))))))" -"(let-values() c_96))))" -"(if(let-values(((or-part_166)(char=? c_96 '#\\u)))" -"(if or-part_166 or-part_166(char=? c_96 '#\\U)))" +"(integer->char v_82))))))" +"(let-values() c_101))))" +"(if(let-values(((or-part_70)(char=? c_101 '#\\u)))" +"(if or-part_70 or-part_70(char=? c_101 '#\\U)))" "(let-values()" "(let-values(((accum-str_6)(accum-string-init! config_8)))" -"(let-values(((v_35)" -"(let-values(((temp19_4) 16)((temp20_4)(if(char=? c_96 '#\\u) 4 8)))" +"(let-values(((v_33)" +"(let-values(((in16_1) in_4)" +"((config17_1) config_8)" +"((accum-str18_1) accum-str_6)" +"((temp19_4) 16)" +"((temp20_4)(if(char=? c_101 '#\\u) 4 8)))" "(read-digits13.1" " temp19_4" " #f" @@ -52925,26 +53041,26 @@ static const char *startup_source = " temp20_4" " #f" " #f" -" in_4" -" config_8" -" accum-str_6" +" in16_1" +" config17_1" +" accum-str18_1" " #t))))" -"(if(integer? v_35)" +"(if(integer? v_33)" "(let-values()" -"(if(if(let-values(((or-part_84)(< v_35 55296)))" -"(if or-part_84 or-part_84(> v_35 57343)))" -"(<= v_35 1114111)" +"(if(if(let-values(((or-part_355)(< v_33 55296)))" +"(if or-part_355 or-part_355(> v_33 57343)))" +"(<= v_33 1114111)" " #f)" "(let-values()" -"(begin(accum-string-abandon! accum-str_6 config_8)(integer->char v_35)))" +"(begin(accum-string-abandon! accum-str_6 config_8)(integer->char v_33)))" "(let-values()" -"(let-values(((in21_3) in_4)" -"((config22_2) config_8)" +"(let-values(((in21_4) in_4)" +"((config22_3) config_8)" " ((temp23_4) \"bad character constant `#\\\\u~a`\")" "((temp24_10)" -"(let-values(((accum-str25_0) accum-str_6)" +"(let-values(((accum-str25_1) accum-str_6)" "((config26_1) config_8))" -"(accum-string-get!6.1 #f #f accum-str25_0 config26_1))))" +"(accum-string-get!6.1 #f #f accum-str25_1 config26_1))))" "(reader-error10.1" " #f" " #f" @@ -52952,56 +53068,56 @@ static const char *startup_source = " #f" " #f" " #f" -" in21_3" -" config22_2" +" in21_4" +" config22_3" " temp23_4" "(list temp24_10))))))" -"(let-values()(begin(accum-string-abandon! accum-str_6 config_8) c_96))))))" -"(if(char-alphabetic? c_96)" +"(let-values()(begin(accum-string-abandon! accum-str_6 config_8) c_101))))))" +"(if(char-alphabetic? c_101)" "(let-values()" "(let-values(((next-c_4)" -"(let-values(((in_49) in_4)" -"((skip-count_11) 0)" -"((source_34)(read-config-source config_8)))" -"(let-values(((c_51)" +"(let-values(((in_52) in_4)" +"((skip-count_12) 0)" +"((source_10)(read-config-source config_8)))" +"(let-values(((c_15)" "(peek-char-or-special" -" in_49" -" skip-count_11" +" in_52" +" skip-count_12" " 'special" -" source_34)))" -"(if(eq? c_51 'special)(special1.1 'special) c_51)))))" +" source_10)))" +"(if(eq? c_15 'special)(special1.1 'special) c_15)))))" "(if(if(char? next-c_4)(char-alphabetic? next-c_4) #f)" "(let-values()" "(let-values(((accum-str_7)(accum-string-init! config_8)))" -"(let-values((()(begin(accum-string-add! accum-str_7 c_96)(values))))" +"(let-values((()(begin(accum-string-add! accum-str_7 c_101)(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((()" "(begin" -"((letrec-values(((loop_109)" +"((letrec-values(((loop_102)" "(lambda()" "(begin" " 'loop" "(let-values(((next-c_5)" -"(let-values(((in_50)" +"(let-values(((in_53)" " in_4)" -"((skip-count_12)" +"((skip-count_13)" " 0)" "((source_35)" "(read-config-source" " config_8)))" -"(let-values(((c_67)" +"(let-values(((c_20)" "(peek-char-or-special" -" in_50" -" skip-count_12" +" in_53" +" skip-count_13" " 'special" " source_35)))" "(if(eq?" -" c_67" +" c_20" " 'special)" "(special1.1" " 'special)" -" c_67)))))" +" c_20)))))" "(if(if(char? next-c_5)" "(char-alphabetic?" " next-c_5)" @@ -53014,11 +53130,11 @@ static const char *startup_source = "(consume-char" " in_4" " next-c_5)" -"(loop_109)))" +"(loop_102)))" "(void)))))))" -" loop_109))" +" loop_102))" "(values))))" -"(let-values(((name_68)" +"(let-values(((name_67)" "(string-foldcase" "(let-values(((accum-str27_0) accum-str_7)" "((config28_1) config_8))" @@ -53027,33 +53143,33 @@ static const char *startup_source = " #f" " accum-str27_0" " config28_1)))))" -"(let-values(((tmp_54) name_68))" -" (if (if (equal? tmp_54 \"nul\") #t (equal? tmp_54 \"null\"))" +"(let-values(((tmp_53) name_67))" +" (if (if (equal? tmp_53 \"nul\") #t (equal? tmp_53 \"null\"))" "(let-values() '#\\nul)" -" (if (equal? tmp_54 \"backspace\")" +" (if (equal? tmp_53 \"backspace\")" "(let-values() '#\\backspace)" -" (if (equal? tmp_54 \"tab\")" +" (if (equal? tmp_53 \"tab\")" "(let-values() '#\\tab)" -" (if (if (equal? tmp_54 \"newline\")" +" (if (if (equal? tmp_53 \"newline\")" " #t" -" (equal? tmp_54 \"linefeed\"))" +" (equal? tmp_53 \"linefeed\"))" "(let-values() '#\\newline)" -" (if (equal? tmp_54 \"vtab\")" +" (if (equal? tmp_53 \"vtab\")" "(let-values() '#\\vtab)" -" (if (equal? tmp_54 \"page\")" +" (if (equal? tmp_53 \"page\")" "(let-values() '#\\page)" -" (if (equal? tmp_54 \"return\")" +" (if (equal? tmp_53 \"return\")" "(let-values() '#\\return)" -" (if (equal? tmp_54 \"space\")" +" (if (equal? tmp_53 \"space\")" "(let-values() '#\\space)" -" (if (equal? tmp_54 \"rubout\")" +" (if (equal? tmp_53 \"rubout\")" "(let-values() '#\\rubout)" "(let-values()" "(let-values(((in29_2) in_4)" "((config30_0) config_8)" "((temp31_7)" " \"bad character constant `#\\\\~a`\")" -"((name32_0) name_68))" +"((name32_0) name_67))" "(reader-error10.1" " #f" " #f" @@ -53065,79 +53181,83 @@ static const char *startup_source = " config30_0" " temp31_7" "(list name32_0)))))))))))))))))))))" -"(let-values() c_96))))" -"(let-values() c_96))))))))" +"(let-values() c_101))))" +"(let-values() c_101))))))))" "(wrap char_0 in_4 config_8 char_0))))))" "(define-values" "(read-quote)" -"(lambda(read-one_3 sym_27 desc_0 c_35 in_40 config_22)" +"(lambda(read-one_3 sym_28 desc_0 c_35 in_43 config_22)" "(begin" -"(let-values(((wrapped-sym_0)(wrap sym_27 in_40 config_22 c_35)))" -"(let-values(((e_80)(read-one_3 #f in_40 config_22)))" +"(let-values(((wrapped-sym_0)(wrap sym_28 in_43 config_22 c_35)))" +"(let-values(((e_83)(read-one_3 #f in_43 config_22)))" "(begin" -"(if(eof-object? e_80)" +"(if(eof-object? e_83)" "(let-values()" -"(let-values(((e3_0) e_80)" -" ((temp4_6) \"expected an element for ~a, found end-of-file\")" +"(let-values(((in1_1) in_43)" +"((config2_5) config_22)" +"((e3_0) e_83)" +" ((temp4_7) \"expected an element for ~a, found end-of-file\")" "((desc5_0) desc_0))" -"(reader-error10.1 #f #f e3_0 #t #f #f in_40 config_22 temp4_6(list desc5_0))))" +"(reader-error10.1 #f #f e3_0 #t #f #f in1_1 config2_5 temp4_7(list desc5_0))))" "(void))" -"(wrap(list wrapped-sym_0 e_80) in_40 config_22 #f)))))))" +"(wrap(list wrapped-sym_0 e_83) in_43 config_22 #f)))))))" "(define-values" "(read-delimited-constant)" -"(lambda(init-c_1 can-match?_0 chars_0 val_75 in_40 config_22)" +"(lambda(init-c_1 can-match?_0 chars_0 val_74 in_43 config_22)" "(begin" "(let-values(((accum-str_8)(accum-string-init! config_22)))" "(begin" "(accum-string-add! accum-str_8 init-c_1)" -"((letrec-values(((loop_118)" +"((letrec-values(((loop_113)" "(lambda(chars_1)" "(begin" " 'loop" -"(let-values(((c_97)" -"(let-values(((in_51) in_40)" -"((skip-count_13) 0)" +"(let-values(((c_102)" +"(let-values(((in_54) in_43)" +"((skip-count_14) 0)" "((source_4)(read-config-source config_22)))" "(let-values(((c_37)" "(peek-char-or-special" -" in_51" -" skip-count_13" +" in_54" +" skip-count_14" " 'special" " source_4)))" "(if(eq? c_37 'special)(special1.1 'special) c_37)))))" -"(if(char-delimiter? c_97 config_22)" +"(if(char-delimiter? c_102 config_22)" "(let-values()" "(if(null? chars_1)" "(void)" "(let-values()" -"(let-values(((c3_6) c_97)" -" ((temp4_2) \"bad syntax `#~a`\")" -"((temp5_4)" +"(let-values(((in1_6) in_43)" +"((config2_6) config_22)" +"((c3_7) c_102)" +" ((temp4_8) \"bad syntax `#~a`\")" +"((temp5_8)" "(let-values(((accum-str6_0) accum-str_8)" "((config7_1) config_22))" "(accum-string-get!6.1 #f #f accum-str6_0 config7_1))))" "(reader-error10.1" " #f" " #f" -" c3_6" +" c3_7" " #t" " #f" " #f" -" in_40" -" config_22" -" temp4_2" -"(list temp5_4))))))" +" in1_6" +" config2_6" +" temp4_8" +"(list temp5_8))))))" "(if(null? chars_1)" "(let-values()" "(begin" -"(accum-string-add! accum-str_8 c_97)" -"(let-values(((in8_0) in_40)" -"((config9_1) config_22)" -" ((temp10_3) \"bad syntax `#~a`\")" -"((temp11_5)" +"(accum-string-add! accum-str_8 c_102)" +"(let-values(((in8_1) in_43)" +"((config9_2) config_22)" +" ((temp10_5) \"bad syntax `#~a`\")" +"((temp11_6)" "(let-values(((accum-str12_0) accum-str_8)" -"((config13_1) config_22))" -"(accum-string-get!6.1 #f #f accum-str12_0 config13_1))))" +"((config13_2) config_22))" +"(accum-string-get!6.1 #f #f accum-str12_0 config13_2))))" "(reader-error10.1" " #f" " #f" @@ -53145,27 +53265,27 @@ static const char *startup_source = " #f" " #f" " #f" -" in8_0" -" config9_1" -" temp10_3" -"(list temp11_5)))))" -"(if(if can-match?_0(char=? c_97(car chars_1)) #f)" +" in8_1" +" config9_2" +" temp10_5" +"(list temp11_6)))))" +"(if(if can-match?_0(char=? c_102(car chars_1)) #f)" "(let-values()" "(begin" -"(consume-char in_40 c_97)" -"(accum-string-add! accum-str_8 c_97)" -"(loop_118(cdr chars_1))))" +"(consume-char in_43 c_102)" +"(accum-string-add! accum-str_8 c_102)" +"(loop_113(cdr chars_1))))" "(let-values()" "(begin" -"(consume-char/special in_40 config_22 c_97)" -"(accum-string-add! accum-str_8 c_97)" -"(let-values(((in14_1) in_40)" +"(consume-char/special in_43 config_22 c_102)" +"(accum-string-add! accum-str_8 c_102)" +"(let-values(((in14_1) in_43)" "((config15_2) config_22)" -" ((temp16_6) \"bad syntax `#~a`\")" -"((temp17_2)" -"(let-values(((accum-str18_1) accum-str_8)" +" ((temp16_5) \"bad syntax `#~a`\")" +"((temp17_3)" +"(let-values(((accum-str18_2) accum-str_8)" "((config19_1) config_22))" -"(accum-string-get!6.1 #f #f accum-str18_1 config19_1))))" +"(accum-string-get!6.1 #f #f accum-str18_2 config19_1))))" "(reader-error10.1" " #f" " #f" @@ -53175,13 +53295,13 @@ static const char *startup_source = " #f" " in14_1" " config15_2" -" temp16_6" -"(list temp17_2)))))))))))))" -" loop_118)" +" temp16_5" +"(list temp17_3)))))))))))))" +" loop_113)" " chars_0)" "(wrap" -" val_75" -" in_40" +" val_74" +" in_43" " config_22" "(let-values(((accum-str20_0) accum-str_8)((config21_1) config_22))" "(accum-string-get!6.1 #f #f accum-str20_0 config21_1))))))))" @@ -53194,69 +53314,75 @@ static const char *startup_source = "(if(check-parameter 1/read-accept-box config_15)" "(void)" "(let-values()" -"(let-values(((in1_2) in_5)" -"((config2_1) config_15)" +"(let-values(((in1_7) in_5)" +"((config2_7) config_15)" " ((temp3_8) \"`~a&` forms not enabled\")" "((dispatch-c4_0) dispatch-c_1))" -"(reader-error10.1 #f #f #f #f #f #f in1_2 config2_1 temp3_8(list dispatch-c4_0)))))" +"(reader-error10.1 #f #f #f #f #f #f in1_7 config2_7 temp3_8(list dispatch-c4_0)))))" "(values))))" -"(let-values(((e_70)(read-one_3 #f in_5(next-readtable config_15))))" +"(let-values(((e_73)(read-one_3 #f in_5(next-readtable config_15))))" "(begin" -"(if(eof-object? e_70)" +"(if(eof-object? e_73)" "(let-values()" -"(let-values(((e7_1) e_70)" -" ((temp8_3) \"expected an element for `~a&` box, found end-of-file\")" +"(let-values(((in5_2) in_5)" +"((config6_1) config_15)" +"((e7_1) e_73)" +" ((temp8_4) \"expected an element for `~a&` box, found end-of-file\")" "((dispatch-c9_0) dispatch-c_1))" -"(reader-error10.1 #f #f e7_1 #t #f #f in_5 config_15 temp8_3(list dispatch-c9_0))))" +"(reader-error10.1 #f #f e7_1 #t #f #f in5_2 config6_1 temp8_4(list dispatch-c9_0))))" "(void))" -"(wrap(box e_70) in_5 config_15 #f)))))))" +"(wrap(box e_73) in_5 config_15 #f)))))))" "(define-values" "(read-regexp)" "(lambda(mode-c_0 accum-str_9 in_5 config_15)" "(begin" -"(let-values(((c3_7)" -"(let-values(((in_52) in_5)((source_36)(read-config-source config_15)))" -"(read-char-or-special in_52 special1.1 source_36))))" +"(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_18) c3_7))" -" (if (equal? tmp_18 '#\\\")" +"(let-values(((tmp_17) c3_8))" +" (if (equal? tmp_17 '#\\\")" "(let-values()" "(let-values((()(begin(accum-string-abandon! accum-str_9 config_15)(values))))" "(let-values(((str_32)" -"(let-values(((in1_3) in_5)((no-wrap-config2_0) no-wrap-config_0))" -"(read-string5.1 #f #f in1_3 no-wrap-config2_0))))" +"(let-values(((in1_8) in_5)((no-wrap-config2_0) no-wrap-config_0))" +"(read-string5.1 #f #f in1_8 no-wrap-config2_0))))" "(catch-and-reraise-as-reader/proc" " in_5" " config_15" "(lambda()((if(char=? mode-c_0 '#\\r) regexp pregexp) str_32))))))" -"(if(equal? tmp_18 '#\\#)" +"(if(equal? tmp_17 '#\\#)" "(let-values()" -"(let-values((()(begin(accum-string-add! accum-str_9 c3_7)(values))))" +"(let-values((()(begin(accum-string-add! accum-str_9 c3_8)(values))))" "(let-values(((c4_2)" -"(let-values(((in_26) in_5)" +"(let-values(((in_27) in_5)" "((source_37)(read-config-source config_15)))" -"(read-char-or-special in_26 special1.1 source_37))))" -"(let-values(((tmp_55) c4_2))" -" (if (equal? tmp_55 '#\\\")" +"(read-char-or-special in_27 special1.1 source_37))))" +"(let-values(((tmp_54) c4_2))" +" (if (equal? tmp_54 '#\\\")" "(let-values()" "(let-values((()" "(begin(accum-string-abandon! accum-str_9 config_15)(values))))" "(let-values(((bstr_4)" -"(let-values(((temp5_8) '|byte string|))" -"(read-string5.1 temp5_8 #t in_5 no-wrap-config_0))))" +"(let-values(((in3_1) in_5)" +"((no-wrap-config4_0) no-wrap-config_0)" +"((temp5_6) '|byte string|))" +"(read-string5.1 temp5_6 #t in3_1 no-wrap-config4_0))))" "(catch-and-reraise-as-reader/proc" " in_5" " config_15" "(lambda()" "((if(char=? mode-c_0 '#\\r) byte-regexp byte-pregexp) bstr_4))))))" "(let-values()" -"(let-values(((c48_0) c4_2)" +"(let-values(((in6_2) in_5)" +"((config7_2) config_15)" +"((c48_0) c4_2)" " ((temp9_5) \"expected `\\\"` after `~a`\")" -"((temp10_4)" +"((temp10_6)" "(let-values(((accum-str11_0) accum-str_9)" -"((config12_2) config_15))" -"(accum-string-get!6.1 #f #f accum-str11_0 config12_2))))" +"((config12_3) config_15))" +"(accum-string-get!6.1 #f #f accum-str11_0 config12_3))))" "(reader-error10.1" " #f" " #f" @@ -53264,16 +53390,18 @@ static const char *startup_source = " #t" " #f" " #f" -" in_5" -" config_15" +" in6_2" +" config7_2" " temp9_5" -"(list temp10_4)))))))))" +"(list temp10_6)))))))))" "(let-values()" -"(let-values(((c315_0) c3_7)" -" ((temp16_7) \"expected `\\\"` or `#` after `~a`\")" -"((temp17_3)" -"(let-values(((accum-str18_2) accum-str_9)((config19_2) config_15))" -"(accum-string-get!6.1 #f #f accum-str18_2 config19_2))))" +"(let-values(((in13_1) in_5)" +"((config14_1) config_15)" +"((c315_0) c3_8)" +" ((temp16_6) \"expected `\\\"` or `#` after `~a`\")" +"((temp17_4)" +"(let-values(((accum-str18_3) accum-str_9)((config19_2) config_15))" +"(accum-string-get!6.1 #f #f accum-str18_3 config19_2))))" "(reader-error10.1" " #f" " #f" @@ -53281,34 +53409,36 @@ static const char *startup_source = " #t" " #f" " #f" -" in_5" -" config_15" -" temp16_7" -"(list temp17_3)))))))))" +" in13_1" +" config14_1" +" temp16_6" +"(list temp17_4)))))))))" "(wrap rx_0 in_5 config_15 #f)))))))" "(define-values" "(read-extension-reader)" -"(lambda(read-one_9 read-recur_0 dispatch-c_2 in_25 config_24)" +"(lambda(read-one_9 read-recur_0 dispatch-c_2 in_24 config_24)" "(begin" "(let-values(((extend-str_0)" -"(read-extension-prefix(cons dispatch-c_2 '(#\\r #\\e)) '(#\\a #\\d #\\e #\\r) in_25 config_24)))" +"(read-extension-prefix(cons dispatch-c_2 '(#\\r #\\e)) '(#\\a #\\d #\\e #\\r) in_24 config_24)))" "(let-values((()" "(begin" "(if(check-parameter 1/read-accept-reader config_24)" "(void)" "(let-values()" -"(let-values(((in52_0) in_25)" +"(let-values(((in52_0) in_24)" "((config53_1) config_24)" -" ((temp54_5) \"`~a` not enabled\")" +" ((temp54_4) \"`~a` not enabled\")" "((extend-str55_0) extend-str_0))" -"(reader-error10.1 #f #f #f #f #f #f in52_0 config53_1 temp54_5(list extend-str55_0)))))" +"(reader-error10.1 #f #f #f #f #f #f in52_0 config53_1 temp54_4(list extend-str55_0)))))" "(values))))" -"(let-values(((mod-path-wrapped_0)(read-one_9 #f in_25(next-readtable config_24))))" +"(let-values(((mod-path-wrapped_0)(read-one_9 #f in_24(next-readtable config_24))))" "(begin" "(if(eof-object? mod-path-wrapped_0)" "(let-values()" -"(let-values(((mod-path-wrapped58_0) mod-path-wrapped_0)" -" ((temp59_3) \"expected a datum after `~a`, found end-of-file\")" +"(let-values(((in56_0) in_24)" +"((config57_1) config_24)" +"((mod-path-wrapped58_0) mod-path-wrapped_0)" +" ((temp59_2) \"expected a datum after `~a`, found end-of-file\")" "((extend-str60_0) extend-str_0))" "(reader-error10.1" " #f" @@ -53317,15 +53447,15 @@ static const char *startup_source = " #t" " #f" " #f" -" in_25" -" config_24" -" temp59_3" +" in56_0" +" config57_1" +" temp59_2" "(list extend-str60_0))))" "(void))" "(let-values(((temp47_2)((read-config-coerce config_24) #f mod-path-wrapped_0 #f))" "((read-recur48_0) read-recur_0)" -"((in49_0) in_25)" -"((config50_0) config_24)" +"((in49_1) in_24)" +"((config50_1) config_24)" "((mod-path-wrapped51_0) mod-path-wrapped_0))" "(read-extension44.1" " #f" @@ -53338,44 +53468,49 @@ static const char *startup_source = " #f" " temp47_2" " read-recur48_0" -" in49_0" -" config50_0)))))))))" +" in49_1" +" config50_1)))))))))" "(define-values" "(read-extension-lang7.1)" -"(lambda(get-info?1_0 get-info?2_0 read-recur3_0 dispatch-c4_1 in5_1 config6_0)" +"(lambda(get-info?1_0 get-info?2_0 read-recur3_0 dispatch-c4_1 in5_3 config6_2)" "(begin" " 'read-extension-lang7" "(let-values(((read-recur_1) read-recur3_0))" "(let-values(((dispatch-c_3) dispatch-c4_1))" -"(let-values(((in_53) in5_1))" -"(let-values(((config_50) config6_0))" +"(let-values(((in_56) in5_3))" +"(let-values(((config_51) config6_2))" "(let-values(((get-info?_0)(if get-info?2_0 get-info?1_0 #f)))" "(let-values()" "(let-values(((extend-str_1)" -"(read-extension-prefix(cons dispatch-c_3 '(#\\l)) '(#\\a #\\n #\\g) in_53 config_50)))" -"(let-values(((c_69)" -"(let-values(((in_23) in_53)((source_38)(read-config-source config_50)))" -"(read-char-or-special in_23 special1.1 source_38))))" +"(read-extension-prefix(cons dispatch-c_3 '(#\\l)) '(#\\a #\\n #\\g) in_56 config_51)))" +"(let-values(((c_90)" +"(let-values(((in_14) in_56)((source_18)(read-config-source config_51)))" +"(read-char-or-special in_14 special1.1 source_18))))" "(begin" -"(if(char=? c_69 '#\\space)" +"(if(char=? c_90 '#\\space)" "(void)" "(let-values()" -"(let-values(((in67_1) in_53)" -"((config68_1) config_50)" +"(let-values(((in67_1) in_56)" +"((config68_1) config_51)" " ((temp69_3) \"expected a single space after `~a`\")" "((extend-str70_0) extend-str_1))" "(reader-error10.1 #f #f #f #f #f #f in67_1 config68_1 temp69_3(list extend-str70_0)))))" -"(let-values(((temp65_5) '|#lang|)((get-info?66_0) get-info?_0))" +"(let-values(((extend-str61_0) extend-str_1)" +"((read-recur62_0) read-recur_1)" +"((in63_0) in_56)" +"((config64_0) config_51)" +"((temp65_5) '|#lang|)" +"((get-info?66_0) get-info?_0))" "(read-lang29.1" " get-info?66_0" " #t" " #f" " #f" " temp65_5" -" extend-str_1" -" read-recur_1" -" in_53" -" config_50))))))))))))))" +" extend-str61_0" +" read-recur62_0" +" in63_0" +" config64_0))))))))))))))" "(define-values" "(read-extension-#!16.1)" "(lambda(get-info?10_0 get-info?11_0 read-recur12_0 dispatch-c13_0 in14_2 config15_3)" @@ -53383,27 +53518,27 @@ static const char *startup_source = " 'read-extension-#!16" "(let-values(((read-recur_2) read-recur12_0))" "(let-values(((dispatch-c_4) dispatch-c13_0))" -"(let-values(((in_38) in14_2))" -"(let-values(((config_47) config15_3))" +"(let-values(((in_57) in14_2))" +"(let-values(((config_52) config15_3))" "(let-values(((get-info?_1)(if get-info?11_0 get-info?10_0 #f)))" "(let-values()" -"(let-values(((c_71)" -"(let-values(((in_54) in_38)((source_39)(read-config-source config_47)))" -"(read-char-or-special in_54 special1.1 source_39))))" +"(let-values(((c_103)" +"(let-values(((in_58) in_57)((source_38)(read-config-source config_52)))" +"(read-char-or-special in_58 special1.1 source_38))))" "(begin" -"(if(char-lang-nonsep? c_71)" +"(if(char-lang-nonsep? c_103)" "(void)" "(let-values()" -"(let-values(((in78_0) in_38)" -"((config79_0) config_47)" +"(let-values(((in78_0) in_57)" +"((config79_0) config_52)" "((temp80_5)" -"(if(char? c_71)(string dispatch-c_4 '#\\! c_71)(string dispatch-c_4 '#\\!))))" +"(if(char? c_103)(string dispatch-c_4 '#\\! c_103)(string dispatch-c_4 '#\\!))))" "(bad-syntax-error18.1 #f #f in78_0 config79_0 temp80_5))))" "(let-values(((temp71_2)(string dispatch-c_4 '#\\!))" "((read-recur72_0) read-recur_2)" -"((in73_0) in_38)" -"((config74_0) config_47)" -"((c75_0) c_71)" +"((in73_1) in_57)" +"((config74_0) config_52)" +"((c75_0) c_103)" "((temp76_1) '|#!|)" "((get-info?77_0) get-info?_1))" "(read-lang29.1" @@ -53414,7 +53549,7 @@ static const char *startup_source = " temp76_1" " temp71_2" " read-recur72_0" -" in73_0" +" in73_1" " config74_0)))))))))))))" "(define-values" "(read-lang29.1)" @@ -53423,21 +53558,21 @@ static const char *startup_source = " 'read-lang29" "(let-values(((extend-str_2) extend-str25_0))" "(let-values(((read-recur_3) read-recur26_0))" -"(let-values(((in_55) in27_1))" -"(let-values(((config_51) config28_2))" +"(let-values(((in_21) in27_1))" +"(let-values(((config_35) config28_2))" "(let-values(((init-c_13)(if init-c22_0 init-c19_0 #f)))" "(let-values(((get-info?_2)(if get-info?23_0 get-info?20_0 #f)))" "(let-values(((who_27) 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_35)" +"(check-parameter 1/read-accept-lang config_35)" " #f)" "(void)" "(let-values()" -"(let-values(((in88_0) in_55)" -"((config89_1) config_51)" +"(let-values(((in88_0) in_21)" +"((config89_1) config_35)" " ((temp90_2) \"`~a` not enabled\")" "((extend-str91_0) extend-str_2))" "(reader-error10.1" @@ -53452,7 +53587,7 @@ static const char *startup_source = " temp90_2" "(list extend-str91_0)))))" "(values))))" -"(let-values(((accum-str_10)(accum-string-init! config_51)))" +"(let-values(((accum-str_10)(accum-string-init! config_35)))" "(let-values((()" "(begin" "(if init-c_13" @@ -53461,32 +53596,34 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"((letrec-values(((loop_119)" +"((letrec-values(((loop_84)" "(lambda()" "(begin" " 'loop" -"(let-values(((c_98)" -"(let-values(((in_56) in_55)" -"((skip-count_14) 0)" -"((source_40)" +"(let-values(((c_104)" +"(let-values(((in_59) in_21)" +"((skip-count_15) 0)" +"((source_39)" "(read-config-source" -" config_51)))" -"(let-values(((c_9)" +" config_35)))" +"(let-values(((c_105)" "(peek-char-or-special" -" in_56" -" skip-count_14" +" in_59" +" skip-count_15" " 'special" -" source_40)))" -"(if(eq? c_9 'special)" +" source_39)))" +"(if(eq? c_105 'special)" "(special1.1 'special)" -" c_9)))))" -"(if(eof-object? c_98)" +" c_105)))))" +"(if(eof-object? c_104)" "(let-values()(void))" -"(if(not(char? c_98))" +"(if(not(char? c_104))" "(let-values()" "(begin" -"(consume-char/special in_55 config_51 c_98)" -"(let-values(((c94_1) c_98)" +"(consume-char/special in_21 config_35 c_104)" +"(let-values(((in92_1) in_21)" +"((config93_1) config_35)" +"((c94_1) c_104)" "((temp95_3)" " \"found non-character while reading `#~a'\")" "((extend-str96_0)" @@ -53498,34 +53635,34 @@ static const char *startup_source = " #t" " #f" " #f" -" in_55" -" config_51" +" in92_1" +" config93_1" " temp95_3" "(list extend-str96_0)))))" -"(if(char-whitespace? c_98)" +"(if(char-whitespace? c_104)" "(let-values()(void))" -"(if(let-values(((or-part_355)" -"(char-lang-nonsep? c_98)))" -"(if or-part_355" -" or-part_355" -"(char=? '#\\/ c_98)))" +"(if(let-values(((or-part_356)" +"(char-lang-nonsep? c_104)))" +"(if or-part_356" +" or-part_356" +"(char=? '#\\/ c_104)))" "(let-values()" "(begin" -"(consume-char in_55 c_98)" -"(accum-string-add! accum-str_10 c_98)" -"(loop_119)))" +"(consume-char in_21 c_104)" +"(accum-string-add! accum-str_10 c_104)" +"(loop_84)))" "(let-values()" "(begin" -"(consume-char in_55 c_98)" -"(let-values(((in97_0) in_55)" -"((config98_0) config_51)" +"(consume-char in_21 c_104)" +"(let-values(((in97_0) in_21)" +"((config98_0) config_35)" "((temp99_3)" "(string-append" " \"expected only alphanumeric, `-`, `+`, `_`, or `/`\"" " \" characters for `~a`, found `~a`\"))" "((extend-str100_0)" " extend-str_2)" -"((c101_0) c_98))" +"((c101_0) c_104))" "(reader-error10.1" " #f" " #f" @@ -53539,17 +53676,17 @@ static const char *startup_source = "(list" " extend-str100_0" " c101_0))))))))))))))" -" loop_119))" +" loop_84))" "(values))))" "(let-values(((lang-str_0)" -"(let-values(((accum-str102_0) accum-str_10)((config103_0) config_51))" +"(let-values(((accum-str102_0) accum-str_10)((config103_0) config_35))" "(accum-string-get!6.1 #f #f accum-str102_0 config103_0))))" "(let-values((()" "(begin" " (if (equal? lang-str_0 \"\")" "(let-values()" -"(let-values(((in104_0) in_55)" -"((config105_0) config_51)" +"(let-values(((in104_0) in_21)" +"((config105_0) config_35)" "((temp106_3)" " \"expected a non-empty sequence of alphanumeric, `-`, `+`, `_`, or `/` after `~a`\")" "((extend-str107_0) extend-str_2))" @@ -53570,8 +53707,8 @@ static const char *startup_source = "(begin" "(if(char=? '#\\/(string-ref lang-str_0 0))" "(let-values()" -"(let-values(((in108_0) in_55)" -"((config109_0) config_51)" +"(let-values(((in108_0) in_21)" +"((config109_0) config_35)" "((temp110_5)" " \"expected a name that does not start `/` after `~a`\")" "((extend-str111_0) extend-str_2))" @@ -53594,8 +53731,8 @@ static const char *startup_source = " '#\\/" "(string-ref lang-str_0(sub1(string-length lang-str_0))))" "(let-values()" -"(let-values(((in112_0) in_55)" -"((config113_0) config_51)" +"(let-values(((in112_0) in_21)" +"((config113_0) config_35)" "((temp114_2)" " \"expected a name that does not end `/` after `~a`\")" "((extend-str115_0) extend-str_2))" @@ -53619,8 +53756,8 @@ static const char *startup_source = "(let-values(((submod-path81_0) submod-path_0)" "((reader-path82_0) reader-path_0)" "((read-recur83_0) read-recur_3)" -"((in84_1) in_55)" -"((config85_1) config_51)" +"((in84_1) in_21)" +"((config85_1) config_35)" "((get-info?86_0) get-info?_2)" "((who87_0) who_27))" "(read-extension44.1" @@ -53638,76 +53775,78 @@ static const char *startup_source = " config85_1)))))))))))))))))))))))" "(define-values" "(char-lang-nonsep?)" -"(lambda(c_99)" +"(lambda(c_106)" "(begin" -"(if(<(char->integer c_99) 128)" -"(let-values(((or-part_356)(char-alphabetic? c_99)))" -"(if or-part_356" -" or-part_356" -"(let-values(((or-part_291)(char-numeric? c_99)))" -"(if or-part_291" -" or-part_291" -"(let-values(((or-part_292)(char=? '#\\- c_99)))" -"(if or-part_292" -" or-part_292" -"(let-values(((or-part_357)(char=? '#\\+ c_99)))" -"(if or-part_357 or-part_357(char=? '#\\_ c_99)))))))))" +"(if(<(char->integer c_106) 128)" +"(let-values(((or-part_89)(char-alphabetic? c_106)))" +"(if or-part_89" +" or-part_89" +"(let-values(((or-part_90)(char-numeric? c_106)))" +"(if or-part_90" +" or-part_90" +"(let-values(((or-part_91)(char=? '#\\- c_106)))" +"(if or-part_91" +" or-part_91" +"(let-values(((or-part_274)(char=? '#\\+ c_106)))" +"(if or-part_274 or-part_274(char=? '#\\_ c_106)))))))))" " #f))))" "(define-values" "(read-extension-prefix)" -"(lambda(already_0 wanted_0 in_57 config_52)" +"(lambda(already_0 wanted_0 in_60 config_53)" "(begin" -"(let-values(((accum-str_11)(accum-string-init! config_52)))" +"(let-values(((accum-str_11)(accum-string-init! config_53)))" "(begin" -"(let-values(((lst_30) already_0))" +"(let-values(((lst_312) already_0))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_30)))" -"((letrec-values(((for-loop_24)" -"(lambda(lst_299)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_312)))" +"((letrec-values(((for-loop_272)" +"(lambda(lst_313)" "(begin" " 'for-loop" -"(if(pair? lst_299)" -"(let-values(((c_100)(unsafe-car lst_299))((rest_171)(unsafe-cdr lst_299)))" +"(if(pair? lst_313)" +"(let-values(((c_107)(unsafe-car lst_313))((rest_175)(unsafe-cdr lst_313)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(accum-string-add! accum-str_11 c_100))" +"(accum-string-add! accum-str_11 c_107))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_24 rest_171)(values))))" +"(if(not #f)(for-loop_272 rest_175)(values))))" "(values))))))" -" for-loop_24)" -" lst_30)))" +" for-loop_272)" +" lst_312)))" "(void)" -"((letrec-values(((loop_120)" +"((letrec-values(((loop_114)" "(lambda(wanted_1)" "(begin" " 'loop" "(if(null? wanted_1)" "(void)" "(let-values()" -"(let-values(((c_101)" -"(let-values(((in_58) in_57)" -"((source_41)(read-config-source config_52)))" -"(read-char-or-special in_58 special1.1 source_41))))" +"(let-values(((c_108)" +"(let-values(((in_61) in_60)" +"((source_40)(read-config-source config_53)))" +"(read-char-or-special in_61 special1.1 source_40))))" "(begin" -"(if(char? c_101)(let-values()(accum-string-add! accum-str_11 c_101))(void))" -"(if(eqv? c_101(car wanted_1))" +"(if(char? c_108)(let-values()(accum-string-add! accum-str_11 c_108))(void))" +"(if(eqv? c_108(car wanted_1))" "(void)" "(let-values()" -"(let-values(((temp120_2)" +"(let-values(((in118_0) in_60)" +"((config119_0) config_53)" +"((temp120_2)" "(let-values(((accum-str122_0) accum-str_11)" -"((config123_0) config_52))" +"((config123_0) config_53))" "(accum-string-get!6.1 #f #f accum-str122_0 config123_0)))" -"((c121_0) c_101))" -"(bad-syntax-error18.1 c121_0 #t in_57 config_52 temp120_2))))" -"(loop_120(cdr wanted_1))))))))))" -" loop_120)" +"((c121_0) c_108))" +"(bad-syntax-error18.1 c121_0 #t in118_0 config119_0 temp120_2))))" +"(loop_114(cdr wanted_1))))))))))" +" loop_114)" " wanted_0)" -"(let-values(((accum-str116_0) accum-str_11)((config117_0) config_52))" +"(let-values(((accum-str116_0) accum-str_11)((config117_0) config_53))" "(accum-string-get!6.1 #f #f accum-str116_0 config117_0)))))))" "(define-values" "(read-extension44.1)" @@ -53728,29 +53867,29 @@ static const char *startup_source = "(let-values(((try-first-mod-path_0)(if try-first-mod-path36_0 try-first-mod-path32_0 #f)))" "(let-values(((mod-path-datum_0) mod-path-datum40_0))" "(let-values(((read-recur_4) read-recur41_0))" -"(let-values(((in_59) in42_1))" -"(let-values(((config_53) config43_1))" +"(let-values(((in_62) in42_1))" +"(let-values(((config_54) config43_1))" "(let-values(((mod-path-wrapped_1)" "(if mod-path-wrapped37_0" " mod-path-wrapped33_0" -"((read-config-coerce config_53) #t mod-path-datum_0 #f))))" +"((read-config-coerce config_54) #t mod-path-datum_0 #f))))" "(let-values(((get-info?_3)(if get-info?38_0 get-info?34_0 #f)))" "(let-values(((who_28)(if who39_0 who35_0 '|#reader|)))" "(let-values()" -"(let-values((()(begin(force-parameters! config_53)(values))))" +"(let-values((()(begin(force-parameters! config_54)(values))))" "(let-values(((guard_0)(1/current-reader-guard)))" "(let-values(((mod-path_27)" -"(let-values(((or-part_307)" +"(let-values(((or-part_62)" "(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)" +"(if((read-config-module-declared? config_54)" " try-first-mod-path_0)" " mod-path_28" " #f))" " #f)))" -"(if or-part_307 or-part_307(guard_0 mod-path-datum_0)))))" -"(let-values(((for-syntax?_8)(read-config-for-syntax? config_53)))" -"(let-values(((dynamic-require_2)(read-config-dynamic-require config_53)))" +"(if or-part_62 or-part_62(guard_0 mod-path-datum_0)))))" +"(let-values(((for-syntax?_8)(read-config-for-syntax? config_54)))" +"(let-values(((dynamic-require_2)(read-config-dynamic-require config_54)))" "(let-values(((no-value_0)(gensym)))" "(let-values(((extension_0)" "(if get-info?_3" @@ -53773,15 +53912,15 @@ static const char *startup_source = "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " current-read-config" -" config_53)" +" config_54)" "(let-values()" "(extension_0" -"(read-config-source config_53)" -" in_59" +"(read-config-source config_54)" +" in_62" " mod-path-wrapped_1" -"(read-config-line config_53)" -"(read-config-col config_53)" -"(read-config-pos config_53)))))" +"(read-config-line config_54)" +"(read-config-col config_54)" +"(read-config-pos config_54)))))" "(if(procedure-arity-includes? extension_0 2)" "(let-values()" "(with-continuation-mark" @@ -53791,11 +53930,11 @@ static const char *startup_source = " #f" " parameterization-key)" " current-read-config" -" config_53)" +" config_54)" "(let-values()" "(extension_0" -"(read-config-source config_53)" -" in_59))))" +"(read-config-source config_54)" +" in_62))))" "(let-values()" "(raise-argument-error" " who_28" @@ -53809,14 +53948,14 @@ static const char *startup_source = "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " current-read-config" -" config_53)" +" config_54)" "(let-values()" "(extension_0" -" in_59" +" in_62" " mod-path-wrapped_1" -"(read-config-line config_53)" -"(read-config-col config_53)" -"(read-config-pos config_53)))))" +"(read-config-line config_54)" +"(read-config-col config_54)" +"(read-config-pos config_54)))))" "(if get-info?_3" "(let-values()" "(raise-argument-error" @@ -53832,8 +53971,8 @@ static const char *startup_source = " #f" " parameterization-key)" " current-read-config" -" config_53)" -"(let-values()(extension_0 in_59))))" +" config_54)" +"(let-values()(extension_0 in_62))))" "(let-values()" "(raise-argument-error" " who_28" @@ -53853,54 +53992,65 @@ static const char *startup_source = " result-v_1)))" " result-v_1))" "(if(1/special-comment? result-v_1)" -"(let-values()(read-recur_4 #f in_59 config_53))" +"(let-values()(read-recur_4 #f in_62 config_54))" "(let-values()" -"(coerce result-v_1 in_59 config_53))))))))))))))))))))))))))" +"(coerce result-v_1 in_62 config_54))))))))))))))))))))))))))" "(define-values" "(read-language/get-info)" "(lambda(read-one_3 in_2 config_7 fail-k_5)" "(begin" "(let-values(((c_33)(read-char/skip-whitespace-and-comments #f read-one_3 in_2 config_7)))" -"(let-values(((line_8 col_7 pos_112)(port-next-location* in_2 c_33)))" +"(let-values(((line_8 col_7 pos_115)(port-next-location* in_2 c_33)))" "(let-values(((l-config_0)" -"(override-parameter 1/read-accept-reader(reading-at config_7 line_8 col_7 pos_112) #t)))" +"(override-parameter 1/read-accept-reader(reading-at config_7 line_8 col_7 pos_115) #t)))" "(if(not(eqv? c_33 '#\\#))" " (let-values () (if fail-k_5 (fail-k_5) (lang-error in_2 l-config_0 \"\" c_33)))" "(let-values()" "(let-values(((c2_6)" -"(let-values(((in_51) in_2)((source_42)(read-config-source l-config_0)))" -"(read-char-or-special in_51 special1.1 source_42))))" +"(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()" -"(let-values(((temp5_9) #t))(read-extension-lang7.1 temp5_9 #t read-one_3 c_33 in_2 l-config_0)))" +"(let-values(((read-one1_0) read-one_3)" +"((c2_7) c_33)" +"((in3_2) in_2)" +"((l-config4_0) l-config_0)" +"((temp5_4) #t))" +"(read-extension-lang7.1 temp5_4 #t read-one1_0 c2_7 in3_2 l-config4_0)))" "(if(eqv? c2_6 '#\\!)" "(let-values()" -"(let-values(((temp10_5) #t))" -"(read-extension-#!16.1 temp10_5 #t read-one_3 c_33 in_2 l-config_0)))" +"(let-values(((read-one6_0) read-one_3)" +"((c7_2) c_33)" +"((in8_2) in_2)" +"((l-config9_0) l-config_0)" +"((temp10_7) #t))" +"(read-extension-#!16.1 temp10_7 #t read-one6_0 c7_2 in8_2 l-config9_0)))" "(let-values()" "(if fail-k_5(fail-k_5)(lang-error in_2 l-config_0(string c_33) c2_6))))))))))))))" "(define-values" "(lang-error)" -"(lambda(in_26 config_37 prefix_7 c_91)" +"(lambda(in_44 config_55 prefix_7 c_38)" "(begin" "(let-values(((add-prefix_0)" -"(lambda(s_10)" +"(lambda(s_422)" "(begin" " 'add-prefix" -" (if (string=? prefix_7 \"\") (format \"`~a` followed by ~a\" prefix_7 s_10) s_10)))))" -"(let-values(((c13_3) c_91)" -"((temp14_0) 'read-language)" -"((temp15_0)" +" (if (string=? prefix_7 \"\") (format \"`~a` followed by ~a\" prefix_7 s_422) s_422)))))" +"(let-values(((in11_2) in_44)" +"((config12_4) config_55)" +"((c13_3) c_38)" +"((temp14_8) 'read-language)" +"((temp15_8)" "(string-append" " \"expected (after whitespace and comments) `#lang ` or `#!` followed\"" " \" immediately by a language name, found ~a\"))" -"((temp16_0)" -"(if(eof-object? c_91)" +"((temp16_7)" +"(if(eof-object? c_38)" " (let-values () (add-prefix_0 \"end-of-file\"))" -"(if(not(char? c_91))" +"(if(not(char? c_38))" " (let-values () (add-prefix_0 \"non-character\"))" -" (let-values () (format \"`~a~a`\" prefix_7 c_91))))))" -"(reader-error10.1 #f #f c13_3 #t temp14_0 #t in_26 config_37 temp15_0(list temp16_0)))))))" +" (let-values () (format \"`~a~a`\" prefix_7 c_38))))))" +"(reader-error10.1 #f #f c13_3 #t temp14_8 #t in11_2 config12_4 temp15_8(list temp16_7)))))))" "(define-values" "(read30.1)" "(lambda(coerce12_1" @@ -53936,12 +54086,12 @@ static const char *startup_source = " 'read30" "(let-values(((in_12) in29_3))" "(let-values(((wrap_7)(if wrap15_0 wrap1_0 #f)))" -"(let-values(((init-c_5)(if init-c16_0 init-c2_0 #f)))" +"(let-values(((init-c_14)(if init-c16_0 init-c2_0 #f)))" "(let-values(((next-readtable_3)(if next-readtable17_0 next-readtable3_0(1/current-readtable))))" "(let-values(((readtable_3)(if readtable18_0 readtable4_0 next-readtable_3)))" "(let-values(((recursive?_0)(if recursive?19_0 recursive?5_0 #f)))" "(let-values(((local-graph?_1)(if local-graph?20_0 local-graph?6_0 #f)))" -"(let-values(((source_43)(if source21_0 source7_0 #f)))" +"(let-values(((source_42)(if source21_0 source7_0 #f)))" "(let-values(((for-syntax?_9)(if for-syntax?22_0 for-syntax?8_0 #f)))" "(let-values(((read-compiled_2)(if read-compiled23_0 read-compiled9_1 #f)))" "(let-values(((dynamic-require_3)(if dynamic-require24_0 dynamic-require10_1 #f)))" @@ -53951,11 +54101,12 @@ static const char *startup_source = "(let-values(((keep-comment?_3)" "(if keep-comment?28_0 keep-comment?14_1 recursive?_0)))" "(let-values()" -"(let-values(((config_54)" +"(let-values(((config_56)" "(let-values(((c1_30)(if recursive?_0(current-read-config) #f)))" "(if c1_30" -"((lambda(config_55)" -"(let-values(((for-syntax?53_0) for-syntax?_9)" +"((lambda(config_57)" +"(let-values(((config52_0) config_57)" +"((for-syntax?53_0) for-syntax?_9)" "((wrap54_1) wrap_7)" "((readtable55_0) readtable_3)" "((next-readtable56_0) next-readtable_3)" @@ -53969,12 +54120,12 @@ static const char *startup_source = " readtable55_0" " local-graph?57_0" " wrap54_1" -" config_55)))" +" config52_0)))" " c1_30)" "(let-values()" "(let-values(((readtable59_0) readtable_3)" "((next-readtable60_0) next-readtable_3)" -"((source61_0) source_43)" +"((source61_0) source_42)" "((for-syntax?62_0) for-syntax?_9)" "((wrap63_0) wrap_7)" "((read-compiled64_0) read-compiled_2)" @@ -54006,26 +54157,26 @@ static const char *startup_source = " #t" " wrap63_0" " #t)))))))" -"(let-values(((v_135)(read-one init-c_5 in_12 config_54)))" -"(if(if(let-values(((or-part_290)(not recursive?_0)))" -"(if or-part_290 or-part_290 local-graph?_1))" -"(read-config-state-graph(read-config-st config_54))" +"(let-values(((v_132)(read-one init-c_14 in_12 config_56)))" +"(if(if(let-values(((or-part_95)(not recursive?_0)))" +"(if or-part_95 or-part_95 local-graph?_1))" +"(read-config-state-graph(read-config-st config_56))" " #f)" "(let-values()" "(catch-and-reraise-as-reader/proc" " #f" -" config_54" -"(lambda()(make-reader-graph v_135))))" +" config_56" +"(lambda()(make-reader-graph v_132))))" "(if(if recursive?_0" "(if(not local-graph?_1)" "(if(not for-syntax?_9)" -"(if(not(eof-object? v_135))(not(1/special-comment? v_135)) #f)" +"(if(not(eof-object? v_132))(not(1/special-comment? v_132)) #f)" " #f)" " #f)" " #f)" "(let-values()" -"(begin(get-graph-hash config_54)(make-placeholder v_135)))" -"(let-values() v_135))))))))))))))))))))))))" +"(begin(get-graph-hash config_56)(make-placeholder v_132)))" +"(let-values() v_132))))))))))))))))))))))))" "(define-values" "(read-language49.1)" "(lambda(coerce38_0" @@ -54042,11 +54193,11 @@ static const char *startup_source = " read-compiled42_0" " wrap34_0" " wrap41_0" -" in47_0" +" in47_1" " fail-k48_0)" "(begin" " 'read-language49" -"(let-values(((in_60) in47_0))" +"(let-values(((in_63) in47_1))" "(let-values(((fail-k_6) fail-k48_0))" "(let-values(((for-syntax?_10)(if for-syntax?40_0 for-syntax?33_0 #f)))" "(let-values(((wrap_8)(if wrap41_0 wrap34_0 #f)))" @@ -54056,7 +54207,7 @@ static const char *startup_source = "(let-values(((coerce_3)(if coerce45_0 coerce38_0 #f)))" "(let-values(((coerce-key_3)(if coerce-key46_0 coerce-key39_0 #f)))" "(let-values()" -"(let-values(((config_56)" +"(let-values(((config_58)" "(let-values(((temp70_2) #f)" "((temp71_3) #f)" "((for-syntax?72_0) for-syntax?_10)" @@ -54089,101 +54240,101 @@ static const char *startup_source = " #f" " wrap73_0" " #t))))" -"(let-values(((l-config_1)(override-parameter 1/read-accept-reader config_56 #f)))" -"(read-language/get-info read-undotted in_60 config_56 fail-k_6))))))))))))))))" +"(let-values(((l-config_1)(override-parameter 1/read-accept-reader config_58 #f)))" +"(read-language/get-info read-undotted in_63 config_58 fail-k_6))))))))))))))))" "(define-values" "(read-one)" -"(lambda(init-c_14 in_61 config_57)" +"(lambda(init-c_15 in_64 config_59)" "(begin" -"(if(not(check-parameter 1/read-cdot config_57))" -"(let-values()(read-undotted init-c_14 in_61 config_57))" -"(if(check-parameter 1/read-cdot config_57)" +"(if(not(check-parameter 1/read-cdot config_59))" +"(let-values()(read-undotted init-c_15 in_64 config_59))" +"(if(check-parameter 1/read-cdot config_59)" "(let-values()" -"(let-values(((line_10 col_9 pos_98)(port-next-location in_61)))" -"(let-values(((v_235)(read-undotted init-c_14 in_61 config_57)))" -"(if(1/special-comment? v_235)" -"(let-values() v_235)" +"(let-values(((line_10 col_9 pos_122)(port-next-location in_64)))" +"(let-values(((v_186)(read-undotted init-c_15 in_64 config_59)))" +"(if(1/special-comment? v_186)" +"(let-values() v_186)" "(let-values()" -"((letrec-values(((loop_121)" -"(lambda(v_236)" +"((letrec-values(((loop_115)" +"(lambda(v_243)" "(begin" " 'loop" -"(let-values(((c_102)" -"(let-values(((in_62) in_61)" -"((skip-count_15) 0)" -"((source_44)(read-config-source config_57)))" -"(let-values(((c_103)" +"(let-values(((c_109)" +"(let-values(((in_65) in_64)" +"((skip-count_16) 0)" +"((source_43)(read-config-source config_59)))" +"(let-values(((c_110)" "(peek-char-or-special" -" in_62" -" skip-count_15" +" in_65" +" skip-count_16" " 'special" -" source_44)))" -"(if(eq? c_103 'special)(special1.1 'special) c_103)))))" -"(let-values(((ec_9)(effective-char c_102 config_57)))" +" source_43)))" +"(if(eq? c_110 'special)(special1.1 'special) c_110)))))" +"(let-values(((ec_9)(effective-char c_109 config_59)))" "(if(not(char? ec_9))" -"(let-values() v_236)" +"(let-values() v_243)" "(if(char-whitespace? ec_9)" -"(let-values()(begin(consume-char in_61 c_102)(loop_121 v_236)))" +"(let-values()(begin(consume-char in_64 c_109)(loop_115 v_243)))" "(if(char=? ec_9 '#\\.)" "(let-values()" "(let-values(((dot-line_2 dot-col_2 dot-pos_5)" -"(port-next-location in_61)))" -"(let-values((()(begin(consume-char in_61 c_102)(values))))" +"(port-next-location in_64)))" +"(let-values((()(begin(consume-char in_64 c_109)(values))))" "(let-values(((cdot_0)" "(wrap" " '#%dot" -" in_61" +" in_64" "(reading-at" -" config_57" +" config_59" " dot-line_2" " dot-col_2" " dot-pos_5)" " '#\\.)))" "(let-values(((post-v_0)" -"(read-undotted #f in_61 config_57)))" -"(loop_121" +"(read-undotted #f in_64 config_59)))" +"(loop_115" "(wrap" -"(list cdot_0 v_236 post-v_0)" -" in_61" -"(reading-at config_57 line_10 col_9 pos_98)" +"(list cdot_0 v_243 post-v_0)" +" in_64" +"(reading-at config_59 line_10 col_9 pos_122)" " '#\\.)))))))" -"(let-values() v_236))))))))))" -" loop_121)" -" v_235))))))" +"(let-values() v_243))))))))))" +" loop_115)" +" v_186))))))" "(void))))))" "(define-values" "(read-undotted)" -"(lambda(init-c_15 in_63 config_58)" +"(lambda(init-c_16 in_66 config_60)" "(begin" -"(let-values(((c_104)(read-char/skip-whitespace-and-comments init-c_15 read-one in_63 config_58)))" -"(let-values(((line_11 col_10 pos_118)(port-next-location* in_63 c_104)))" -"(if(eof-object? c_104)" +"(let-values(((c_111)(read-char/skip-whitespace-and-comments init-c_16 read-one in_66 config_60)))" +"(let-values(((line_11 col_10 pos_123)(port-next-location* in_66 c_111)))" +"(if(eof-object? c_111)" "(let-values() eof)" -"(if(not(char? c_104))" +"(if(not(char? c_111))" "(let-values()" -"(let-values(((v_237)(special-value c_104)))" -"(if(1/special-comment? v_237)" -"(let-values()(if(read-config-keep-comment? config_58) v_237(read-undotted #f in_63 config_58)))" -"(let-values()(coerce v_237 in_63(reading-at config_58 line_11 col_10 pos_118))))))" -"(let-values(((c2_7)(readtable-handler config_58 c_104)))" -"(if c2_7" +"(let-values(((v_244)(special-value c_111)))" +"(if(1/special-comment? v_244)" +"(let-values()(if(read-config-keep-comment? config_60) v_244(read-undotted #f in_66 config_60)))" +"(let-values()(coerce v_244 in_66(reading-at config_60 line_11 col_10 pos_123))))))" +"(let-values(((c2_8)(readtable-handler config_60 c_111)))" +"(if c2_8" "((lambda(handler_3)" -"(let-values(((v_238)(readtable-apply handler_3 c_104 in_63 config_58 line_11 col_10 pos_118)))" -"(retry-special-comment v_238 in_63 config_58)))" -" c2_7)" +"(let-values(((v_245)(readtable-apply handler_3 c_111 in_66 config_60 line_11 col_10 pos_123)))" +"(retry-special-comment v_245 in_66 config_60)))" +" c2_8)" "(let-values()" -"(let-values(((ec_10)(effective-char c_104 config_58)))" +"(let-values(((ec_10)(effective-char c_111 config_60)))" "(let-values((()" "(begin" -"(if(not(char-closer? ec_10 config_58))" -"(let-values()(track-indentation! config_58 line_11 col_10))" +"(if(not(char-closer? ec_10 config_60))" +"(let-values()(track-indentation! config_60 line_11 col_10))" "(void))" "(values))))" -"(let-values(((r-config_0)(reading-at(discard-comment config_58) line_11 col_10 pos_118)))" -"(let-values(((tmp_56) ec_10))" +"(let-values(((r-config_0)(reading-at(discard-comment config_60) line_11 col_10 pos_123)))" +"(let-values(((tmp_55) ec_10))" "(let-values(((index_4)" -"(if(char? tmp_56)" -"(let-values(((codepoint_2)(char->integer tmp_56)))" +"(if(char? tmp_55)" +"(let-values(((codepoint_2)(char->integer tmp_55)))" "(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)" @@ -54238,11 +54389,14 @@ static const char *startup_source = "(if(unsafe-fx< index_4 2)" "(if(unsafe-fx< index_4 1)" "(let-values()" -"(let-values(((v_192)" -"(let-values(((temp82_4)" -"(if(let-values(((or-part_358)(eq? c_104 ec_10)))" -"(if or-part_358" -" or-part_358" +"(let-values(((v_142)" +"(let-values(((c79_1) c_111)" +"((in80_0) in_66)" +"((r-config81_0) r-config_0)" +"((temp82_4)" +"(if(let-values(((or-part_320)(eq? c_111 ec_10)))" +"(if or-part_320" +" or-part_320" "(if(<(char->integer ec_10) 128)" "(char-numeric? ec_10)" " #f)))" @@ -54253,23 +54407,23 @@ static const char *startup_source = " #f" " temp82_4" " #t" -" c_104" -" in_63" -" r-config_0))))" -"(retry-special-comment v_192 in_63 config_58)))" -"(let-values()(read-dispatch c_104 in_63 r-config_0 config_58)))" +" c79_1" +" in80_0" +" r-config81_0))))" +"(retry-special-comment v_142 in_66 config_60)))" +"(let-values()(read-dispatch c_111 in_66 r-config_0 config_60)))" "(if(unsafe-fx< index_4 3)" -" (let-values () (read-quote read-one 'quote \"quoting '\" c_104 in_63 r-config_0))" +" (let-values () (read-quote read-one 'quote \"quoting '\" c_111 in_66 r-config_0))" "(if(unsafe-fx< index_4 4)" "(let-values()" -"(if(check-parameter 1/read-accept-quasiquote config_58)" +"(if(check-parameter 1/read-accept-quasiquote config_60)" "(let-values()" -" (read-quote read-one 'quasiquote \"quasiquoting `\" c_104 in_63 r-config_0))" +" (read-quote read-one 'quasiquote \"quasiquoting `\" c_111 in_66 r-config_0))" "(let-values()" -"(let-values(((in83_0) in_63)" +"(let-values(((in83_0) in_66)" "((r-config84_0) r-config_0)" " ((temp85_1) \"illegal use of `~a`\")" -"((c86_0) c_104))" +"((c86_0) c_111))" "(reader-error10.1" " #f" " #f" @@ -54283,37 +54437,37 @@ static const char *startup_source = "(list c86_0))))))" "(if(unsafe-fx< index_4 5)" "(let-values()" -"(if(check-parameter 1/read-accept-quasiquote config_58)" +"(if(check-parameter 1/read-accept-quasiquote config_60)" "(let-values()" -"(let-values(((c2_1)" -"(let-values(((in_64) in_63)" -"((skip-count_16) 0)" -"((source_45)(read-config-source config_58)))" -"(let-values(((c_105)" +"(let-values(((c2_9)" +"(let-values(((in_67) in_66)" +"((skip-count_17) 0)" +"((source_44)(read-config-source config_60)))" +"(let-values(((c_112)" "(peek-char-or-special" -" in_64" -" skip-count_16" +" in_67" +" skip-count_17" " 'special" -" source_45)))" -"(if(eq? c_105 'special)" +" source_44)))" +"(if(eq? c_112 'special)" "(special1.1 'special)" -" c_105)))))" -"(if(eqv? c2_1 '#\\@)" +" c_112)))))" +"(if(eqv? c2_9 '#\\@)" "(begin" -"(consume-char in_63 c2_1)" +"(consume-char in_66 c2_9)" "(read-quote" " read-one" " 'unquote-splicing" " \"unquoting ,@\"" -" c_104" -" in_63" +" c_111" +" in_66" " r-config_0))" -" (read-quote read-one 'unquote \"unquoting ,\" c_104 in_63 r-config_0))))" +" (read-quote read-one 'unquote \"unquoting ,\" c_111 in_66 r-config_0))))" "(let-values()" -"(let-values(((in87_0) in_63)" +"(let-values(((in87_0) in_66)" "((r-config88_0) r-config_0)" " ((temp89_5) \"illegal use of `~a`\")" -"((c90_0) c_104))" +"((c90_0) c_111))" "(reader-error10.1" " #f" " #f" @@ -54327,9 +54481,11 @@ static const char *startup_source = "(list c90_0))))))" "(let-values()" "(wrap" -"(let-values(((temp93_4) '#\\()" +"(let-values(((read-one91_0) read-one)" +"((ec92_0) ec_10)" +"((temp93_4) '#\\()" "((temp94_3) '#\\))" -"((in95_0) in_63)" +"((in95_0) in_66)" "((r-config96_0) r-config_0)" "((temp97_4) #t))" "(read-unwrapped-sequence17.1" @@ -54343,23 +54499,23 @@ static const char *startup_source = " #t" " #f" " #f" -" read-one" -" ec_10" +" read-one91_0" +" ec92_0" " temp93_4" " temp94_3" " in95_0" " r-config96_0))" -" in_63" +" in_66" " r-config_0" " ec_10))))))" "(if(unsafe-fx< index_4 9)" "(if(unsafe-fx< index_4 7)" "(let-values()" -"(let-values(((in98_0) in_63)" +"(let-values(((in98_0) in_66)" "((r-config99_0) r-config_0)" " ((temp100_2) \"~a\")" "((temp101_3)" -"(indentation-unexpected-closer-message ec_10 c_104 r-config_0)))" +"(indentation-unexpected-closer-message ec_10 c_111 r-config_0)))" "(reader-error10.1" " #f" " #f" @@ -54373,16 +54529,18 @@ static const char *startup_source = "(list temp101_3))))" "(if(unsafe-fx< index_4 8)" "(let-values()" -"(if(let-values(((or-part_283)" -"(check-parameter 1/read-square-bracket-as-paren config_58)))" -"(if or-part_283" -" or-part_283" -"(check-parameter 1/read-square-bracket-with-tag config_58)))" +"(if(let-values(((or-part_357)" +"(check-parameter 1/read-square-bracket-as-paren config_60)))" +"(if or-part_357" +" or-part_357" +"(check-parameter 1/read-square-bracket-with-tag config_60)))" "(let-values()" "(wrap" -"(let-values(((temp104_3) '#\\[)" +"(let-values(((read-one102_0) read-one)" +"((ec103_0) ec_10)" +"((temp104_3) '#\\[)" "((temp105_3) '#\\])" -"((in106_0) in_63)" +"((in106_0) in_66)" "((r-config107_0) r-config_0)" "((temp108_4) #t))" "(read-unwrapped-sequence17.1" @@ -54396,20 +54554,20 @@ static const char *startup_source = " #t" " #f" " #f" -" read-one" -" ec_10" +" read-one102_0" +" ec103_0" " temp104_3" " temp105_3" " in106_0" " r-config107_0))" -" in_63" +" in_66" " r-config_0" " ec_10))" "(let-values()" -"(let-values(((in109_0) in_63)" +"(let-values(((in109_0) in_66)" "((r-config110_0) r-config_0)" " ((temp111_2) \"illegal use of `~a`\")" -"((c112_0) c_104))" +"((c112_0) c_111))" "(reader-error10.1" " #f" " #f" @@ -54422,19 +54580,19 @@ static const char *startup_source = " temp111_2" "(list c112_0))))))" "(let-values()" -"(if(let-values(((or-part_359)" -"(check-parameter 1/read-square-bracket-as-paren config_58)))" -"(if or-part_359" -" or-part_359" -"(check-parameter 1/read-square-bracket-with-tag config_58)))" +"(if(let-values(((or-part_358)" +"(check-parameter 1/read-square-bracket-as-paren config_60)))" +"(if or-part_358" +" or-part_358" +"(check-parameter 1/read-square-bracket-with-tag config_60)))" "(let-values()" -"(let-values(((in113_0) in_63)" +"(let-values(((in113_0) in_66)" "((r-config114_0) r-config_0)" " ((temp115_1) \"~a\")" "((temp116_2)" "(indentation-unexpected-closer-message" " ec_10" -" c_104" +" c_111" " r-config_0)))" "(reader-error10.1" " #f" @@ -54448,10 +54606,10 @@ static const char *startup_source = " temp115_1" "(list temp116_2))))" "(let-values()" -"(let-values(((in117_0) in_63)" +"(let-values(((in117_0) in_66)" "((r-config118_0) r-config_0)" " ((temp119_0) \"illegal use of `~a`\")" -"((c120_0) c_104))" +"((c120_0) c_111))" "(reader-error10.1" " #f" " #f" @@ -54465,16 +54623,18 @@ static const char *startup_source = "(list c120_0))))))))" "(if(unsafe-fx< index_4 10)" "(let-values()" -"(if(let-values(((or-part_360)" -"(check-parameter 1/read-curly-brace-as-paren config_58)))" -"(if or-part_360" -" or-part_360" -"(check-parameter 1/read-curly-brace-with-tag config_58)))" +"(if(let-values(((or-part_359)" +"(check-parameter 1/read-curly-brace-as-paren config_60)))" +"(if or-part_359" +" or-part_359" +"(check-parameter 1/read-curly-brace-with-tag config_60)))" "(let-values()" "(wrap" -"(let-values(((temp123_3) '#\\{)" +"(let-values(((read-one121_0) read-one)" +"((ec122_0) ec_10)" +"((temp123_3) '#\\{)" "((temp124_4) '#\\})" -"((in125_0) in_63)" +"((in125_0) in_66)" "((r-config126_0) r-config_0)" "((temp127_4) #t))" "(read-unwrapped-sequence17.1" @@ -54488,20 +54648,20 @@ static const char *startup_source = " #t" " #f" " #f" -" read-one" -" ec_10" +" read-one121_0" +" ec122_0" " temp123_3" " temp124_4" " in125_0" " r-config126_0))" -" in_63" +" in_66" " r-config_0" " ec_10))" "(let-values()" -"(let-values(((in128_0) in_63)" +"(let-values(((in128_0) in_66)" "((r-config129_0) r-config_0)" " ((temp130_3) \"illegal use of `~a`\")" -"((c131_0) c_104))" +"((c131_0) c_111))" "(reader-error10.1" " #f" " #f" @@ -54515,19 +54675,19 @@ static const char *startup_source = "(list c131_0))))))" "(if(unsafe-fx< index_4 11)" "(let-values()" -"(if(let-values(((or-part_361)" -"(check-parameter 1/read-curly-brace-as-paren config_58)))" -"(if or-part_361" -" or-part_361" -"(check-parameter 1/read-curly-brace-with-tag config_58)))" +"(if(let-values(((or-part_360)" +"(check-parameter 1/read-curly-brace-as-paren config_60)))" +"(if or-part_360" +" or-part_360" +"(check-parameter 1/read-curly-brace-with-tag config_60)))" "(let-values()" -"(let-values(((in132_0) in_63)" +"(let-values(((in132_0) in_66)" "((r-config133_0) r-config_0)" " ((temp134_2) \"~a\")" "((temp135_1)" "(indentation-unexpected-closer-message" " ec_10" -" c_104" +" c_111" " r-config_0)))" "(reader-error10.1" " #f" @@ -54541,10 +54701,10 @@ static const char *startup_source = " temp134_2" "(list temp135_1))))" "(let-values()" -"(let-values(((in136_0) in_63)" +"(let-values(((in136_0) in_66)" "((r-config137_0) r-config_0)" " ((temp138_3) \"illegal use of `~a`\")" -"((c139_0) c_104))" +"((c139_0) c_111))" "(reader-error10.1" " #f" " #f" @@ -54558,49 +54718,60 @@ static const char *startup_source = "(list c139_0))))))" "(if(unsafe-fx< index_4 12)" "(let-values()" -"(let-values(((in140_0) in_63)((r-config141_0) r-config_0))" +"(let-values(((in140_0) in_66)((r-config141_0) r-config_0))" "(read-string5.1 #f #f in140_0 r-config141_0)))" "(let-values()" -"(let-values(((temp145_0) 'symbol))" +"(let-values(((c142_0) c_111)" +"((in143_0) in_66)" +"((r-config144_0) r-config_0)" +"((temp145_0) 'symbol))" "(read-symbol-or-number8.1" " #f" " #f" " temp145_0" " #t" -" c_104" -" in_63" -" r-config_0)))))))))))))))))))))))" +" c142_0" +" in143_0" +" r-config144_0)))))))))))))))))))))))" "(define-values" "(read-dispatch)" -"(lambda(dispatch-c_5 in_65 config_59 orig-config_0)" +"(lambda(dispatch-c_5 in_68 config_61 orig-config_0)" "(begin" -"(let-values(((c_106)" -"(let-values(((in_66) in_65)((source_46)(read-config-source config_59)))" -"(read-char-or-special in_66 special1.1 source_46))))" -"(if(eof-object? c_106)" +"(let-values(((c_113)" +"(let-values(((in_69) in_68)((source_45)(read-config-source config_61)))" +"(read-char-or-special in_69 special1.1 source_45))))" +"(if(eof-object? c_113)" "(let-values()" -" (let-values (((c148_0) c_106) ((temp149_0) \"bad syntax `~a`\") ((dispatch-c150_0) dispatch-c_5))" -"(reader-error10.1 #f #f c148_0 #t #f #f in_65 config_59 temp149_0(list dispatch-c150_0))))" -"(if(not(char? c_106))" +"(let-values(((in146_0) in_68)" +"((config147_0) config_61)" +"((c148_0) c_113)" +" ((temp149_0) \"bad syntax `~a`\")" +"((dispatch-c150_0) dispatch-c_5))" +"(reader-error10.1 #f #f c148_0 #t #f #f in146_0 config147_0 temp149_0(list dispatch-c150_0))))" +"(if(not(char? c_113))" "(let-values()" -" (let-values (((c153_0) c_106) ((temp154_1) \"bad syntax `~a`\") ((dispatch-c155_0) dispatch-c_5))" -"(reader-error10.1 #f #f c153_0 #t #f #f in_65 config_59 temp154_1(list dispatch-c155_0))))" -"(let-values(((c3_8)(readtable-dispatch-handler orig-config_0 c_106)))" -"(if c3_8" +"(let-values(((in151_0) in_68)" +"((config152_0) config_61)" +"((c153_0) c_113)" +" ((temp154_1) \"bad syntax `~a`\")" +"((dispatch-c155_0) dispatch-c_5))" +"(reader-error10.1 #f #f c153_0 #t #f #f in151_0 config152_0 temp154_1(list dispatch-c155_0))))" +"(let-values(((c3_9)(readtable-dispatch-handler orig-config_0 c_113)))" +"(if c3_9" "((lambda(handler_4)" -"(let-values(((line_12)(read-config-line config_59)))" -"(let-values(((col_11)(read-config-col config_59)))" -"(let-values(((pos_119)(read-config-pos config_59)))" -"(let-values(((v_239)" -"(readtable-apply handler_4 c_106 in_65 config_59 line_12 col_11 pos_119)))" -"(retry-special-comment v_239 in_65 orig-config_0))))))" -" c3_8)" +"(let-values(((line_12)(read-config-line config_61)))" +"(let-values(((col_11)(read-config-col config_61)))" +"(let-values(((pos_124)(read-config-pos config_61)))" +"(let-values(((v_246)" +"(readtable-apply handler_4 c_113 in_68 config_61 line_12 col_11 pos_124)))" +"(retry-special-comment v_246 in_68 orig-config_0))))))" +" c3_9)" "(let-values()" "(let-values()" -"(let-values(((tmp_57) c_106))" +"(let-values(((tmp_56) c_113))" "(let-values(((index_5)" -"(if(char? tmp_57)" -"(let-values(((codepoint_3)(char->integer tmp_57)))" +"(if(char? tmp_56)" +"(let-values(((codepoint_3)(char->integer tmp_56)))" "(if(if(unsafe-fx>= codepoint_3 33)(unsafe-fx< codepoint_3 127) #f)" "(let-values(((tbl_5)" " '#(34" @@ -54705,11 +54876,11 @@ static const char *startup_source = "(if(unsafe-fx< index_5 3)" "(if(unsafe-fx< index_5 1)" "(let-values()" -"(let-values(((in156_0) in_65)" -"((config157_0) config_59)" +"(let-values(((in156_0) in_68)" +"((config157_0) config_61)" " ((temp158_2) \"bad syntax `~a~a`\")" "((dispatch-c159_0) dispatch-c_5)" -"((c160_0) c_106))" +"((c160_0) c_113))" "(reader-error10.1" " #f" " #f" @@ -54722,14 +54893,14 @@ static const char *startup_source = " temp158_2" "(list dispatch-c159_0 c160_0))))" "(if(unsafe-fx< index_5 2)" -"(let-values()(read-vector-or-graph read-one dispatch-c_5 c_106 in_65 config_59))" +"(let-values()(read-vector-or-graph read-one dispatch-c_5 c_113 in_68 config_61))" "(let-values()" "(let-values(((read-one161_0) read-one)" "((temp162_2) '#\\()" "((temp163_1) '#\\()" "((temp164_0) '#\\))" -"((in165_0) in_65)" -"((config166_0) config_59))" +"((in165_0) in_68)" +"((config166_0) config_61))" "(read-vector11.1" " #f" " #f" @@ -54744,14 +54915,14 @@ static const char *startup_source = "(if(unsafe-fx< index_5 5)" "(if(unsafe-fx< index_5 4)" "(let-values()" -"(if(check-parameter 1/read-square-bracket-as-paren config_59)" +"(if(check-parameter 1/read-square-bracket-as-paren config_61)" "(let-values()" "(let-values(((read-one167_0) read-one)" "((temp168_0) '#\\[)" "((temp169_1) '#\\[)" "((temp170_1) '#\\])" -"((in171_0) in_65)" -"((config172_0) config_59))" +"((in171_0) in_68)" +"((config172_0) config_61))" "(read-vector11.1" " #f" " #f" @@ -54764,19 +54935,19 @@ static const char *startup_source = " in171_0" " config172_0)))" "(let-values()" -"(let-values(((in173_0) in_65)" -"((config174_0) config_59)" -" ((temp175_0) (format \"~a~a\" dispatch-c_5 c_106)))" +"(let-values(((in173_0) in_68)" +"((config174_0) config_61)" +" ((temp175_0) (format \"~a~a\" dispatch-c_5 c_113)))" "(bad-syntax-error18.1 #f #f in173_0 config174_0 temp175_0)))))" "(let-values()" -"(if(check-parameter 1/read-curly-brace-as-paren config_59)" +"(if(check-parameter 1/read-curly-brace-as-paren config_61)" "(let-values()" "(let-values(((read-one176_0) read-one)" "((temp177_0) '#\\{)" "((temp178_0) '#\\{)" "((temp179_0) '#\\})" -"((in180_0) in_65)" -"((config181_0) config_59))" +"((in180_0) in_68)" +"((config181_0) config_61))" "(read-vector11.1" " #f" " #f" @@ -54789,67 +54960,71 @@ static const char *startup_source = " in180_0" " config181_0)))" "(let-values()" -"(let-values(((in182_0) in_65)" -"((config183_0) config_59)" -" ((temp184_0) (format \"~a~a\" dispatch-c_5 c_106)))" +"(let-values(((in182_0) in_68)" +"((config183_0) config_61)" +" ((temp184_0) (format \"~a~a\" dispatch-c_5 c_113)))" "(bad-syntax-error18.1 #f #f in182_0 config183_0 temp184_0))))))" "(if(unsafe-fx< index_5 6)" -"(let-values()(read-struct read-one dispatch-c_5 in_65 config_59))" +"(let-values()(read-struct read-one dispatch-c_5 in_68 config_61))" "(if(unsafe-fx< index_5 7)" -"(let-values()(read-box read-one dispatch-c_5 in_65 config_59))" -" (let-values () (read-quote read-one 'syntax \"quoting #'\" c_106 in_65 config_59))))))" +"(let-values()(read-box read-one dispatch-c_5 in_68 config_61))" +" (let-values () (read-quote read-one 'syntax \"quoting #'\" c_113 in_68 config_61))))))" "(if(unsafe-fx< index_5 12)" "(if(unsafe-fx< index_5 9)" "(let-values()" -" (read-quote read-one 'quasisyntax \"quasiquoting #`\" c_106 in_65 config_59))" +" (read-quote read-one 'quasisyntax \"quasiquoting #`\" c_113 in_68 config_61))" "(if(unsafe-fx< index_5 10)" "(let-values()" -"(let-values(((c2_8)" -"(let-values(((in_67) in_65)" -"((skip-count_17) 0)" -"((source_47)(read-config-source config_59)))" -"(let-values(((c_107)" +"(let-values(((c2_10)" +"(let-values(((in_70) in_68)" +"((skip-count_18) 0)" +"((source_46)(read-config-source config_61)))" +"(let-values(((c_114)" "(peek-char-or-special" -" in_67" -" skip-count_17" +" in_70" +" skip-count_18" " 'special" -" source_47)))" -"(if(eq? c_107 'special)(special1.1 'special) c_107)))))" -"(if(eqv? c2_8 '#\\@)" +" source_46)))" +"(if(eq? c_114 'special)(special1.1 'special) c_114)))))" +"(if(eqv? c2_10 '#\\@)" "(begin" -"(consume-char in_65 c2_8)" +"(consume-char in_68 c2_10)" "(read-quote" " read-one" " 'unsyntax-splicing" " \"unquoting #,@\"" -" c_106" -" in_65" -" config_59))" -" (read-quote read-one 'unsyntax \"unquoting #,\" c_106 in_65 config_59))))" +" c_113" +" in_68" +" config_61))" +" (read-quote read-one 'unsyntax \"unquoting #,\" c_113 in_68 config_61))))" "(if(unsafe-fx< index_5 11)" -"(let-values()(read-character in_65 config_59))" +"(let-values()(read-character in_68 config_61))" "(let-values()" -"(let-values(((temp187_1) '|byte string|))" -"(read-string5.1 temp187_1 #t in_65 config_59))))))" +"(let-values(((in185_0) in_68)" +"((config186_0) config_61)" +"((temp187_1) '|byte string|))" +"(read-string5.1 temp187_1 #t in185_0 config186_0))))))" "(if(unsafe-fx< index_5 14)" "(if(unsafe-fx< index_5 13)" "(let-values()" -"(let-values(((c2_9)" -"(let-values(((in_68) in_65)" -"((skip-count_18) 0)" -"((source_48)(read-config-source config_59)))" -"(let-values(((c_108)" +"(let-values(((c2_11)" +"(let-values(((in_71) in_68)" +"((skip-count_19) 0)" +"((source_47)(read-config-source config_61)))" +"(let-values(((c_115)" "(peek-char-or-special" -" in_68" -" skip-count_18" +" in_71" +" skip-count_19" " 'special" -" source_48)))" -"(if(eq? c_108 'special)(special1.1 'special) c_108)))))" -"(if(eqv? '#\\< c2_9)" +" source_47)))" +"(if(eq? c_115 'special)(special1.1 'special) c_115)))))" +"(if(eqv? '#\\< c2_11)" "(let-values()" -"(begin(consume-char in_65 '#\\<)(read-here-string in_65 config_59)))" +"(begin(consume-char in_68 '#\\<)(read-here-string in_68 config_61)))" "(let-values()" -"(let-values(((c2190_0) c2_9)" +"(let-values(((in188_0) in_68)" +"((config189_0) config_61)" +"((c2190_0) c2_11)" " ((temp191_0) \"bad syntax `~a<`\")" "((dispatch-c192_0) dispatch-c_5))" "(reader-error10.1" @@ -54859,143 +55034,147 @@ static const char *startup_source = " #t" " #f" " #f" -" in_65" -" config_59" +" in188_0" +" config189_0" " temp191_0" "(list dispatch-c192_0)))))))" "(let-values()" -"(let-values(((dispatch-c196_0) dispatch-c_5)((temp197_0) 'symbol))" +"(let-values(((c193_0) c_113)" +"((in194_0) in_68)" +"((config195_0) config_61)" +"((dispatch-c196_0) dispatch-c_5)" +"((temp197_0) 'symbol))" "(read-symbol-or-number8.1" " dispatch-c196_0" " #t" " temp197_0" " #t" -" c_106" -" in_65" -" config_59))))" +" c193_0" +" in194_0" +" config195_0))))" "(if(unsafe-fx< index_5 15)" "(let-values()" "(let-values(((temp198_0) #f)" -"((in199_0) in_65)" -"((config200_0) config_59)" +"((in199_0) in_68)" +"((config200_0) config_61)" "((temp201_0) 'keyword))" "(read-symbol-or-number8.1 #f #f temp201_0 #t temp198_0 in199_0 config200_0)))" "(if(unsafe-fx< index_5 16)" "(let-values()" -"(let-values(((c2_10)" -"(let-values(((in_69) in_65)" -"((skip-count_19) 0)" -"((source_49)(read-config-source config_59)))" -"(let-values(((c_109)" -"(peek-char-or-special" -" in_69" -" skip-count_19" -" 'special" -" source_49)))" -"(if(eq? c_109 'special)(special1.1 'special) c_109)))))" -"(if(char-delimiter? c2_10 config_59)" -"(let-values()(wrap #t in_65 config_59 c_106))" -"(let-values()" -"(read-delimited-constant" -" c_106" -"(char=? c_106 '#\\t)" -" '(#\\r #\\u #\\e)" -" #t" -" in_65" -" config_59)))))" -"(let-values()" -"(let-values(((c2_11)" -"(let-values(((in_70) in_65)" +"(let-values(((c2_12)" +"(let-values(((in_72) in_68)" "((skip-count_20) 0)" -"((source_50)(read-config-source config_59)))" -"(let-values(((c_110)" +"((source_48)(read-config-source config_61)))" +"(let-values(((c_116)" "(peek-char-or-special" -" in_70" +" in_72" " skip-count_20" " 'special" -" source_50)))" -"(if(eq? c_110 'special)(special1.1 'special) c_110)))))" -"(if(char-delimiter? c2_11 config_59)" -"(let-values()(wrap #f in_65 config_59 c_106))" -"(if(let-values(((or-part_344)(char=? c2_11 '#\\x)))" -"(if or-part_344 or-part_344(char=? c2_11 '#\\l)))" +" source_48)))" +"(if(eq? c_116 'special)(special1.1 'special) c_116)))))" +"(if(char-delimiter? c2_12 config_61)" +"(let-values()(wrap #t in_68 config_61 c_113))" +"(let-values()" +"(read-delimited-constant" +" c_113" +"(char=? c_113 '#\\t)" +" '(#\\r #\\u #\\e)" +" #t" +" in_68" +" config_61)))))" +"(let-values()" +"(let-values(((c2_13)" +"(let-values(((in_73) in_68)" +"((skip-count_21) 0)" +"((source_49)(read-config-source config_61)))" +"(let-values(((c_117)" +"(peek-char-or-special" +" in_73" +" skip-count_21" +" 'special" +" source_49)))" +"(if(eq? c_117 'special)(special1.1 'special) c_117)))))" +"(if(char-delimiter? c2_13 config_61)" +"(let-values()(wrap #f in_68 config_61 c_113))" +"(if(let-values(((or-part_343)(char=? c2_13 '#\\x)))" +"(if or-part_343 or-part_343(char=? c2_13 '#\\l)))" "(let-values()" "(read-fixnum-or-flonum-vector" " read-one" " dispatch-c_5" -" c_106" -" c2_11" -" in_65" -" config_59))" +" c_113" +" c2_13" +" in_68" +" config_61))" "(let-values()" "(read-delimited-constant" -" c_106" -"(char=? c_106 '#\\f)" +" c_113" +"(char=? c_113 '#\\f)" " '(#\\a #\\l #\\s #\\e)" " #f" -" in_65" -" config_59)))))))))))" +" in_68" +" config_61)))))))))))" "(if(unsafe-fx< index_5 26)" "(if(unsafe-fx< index_5 21)" "(if(unsafe-fx< index_5 18)" "(let-values()" "(let-values(((temp202_0) #f)" -"((in203_0) in_65)" -"((config204_0) config_59)" +"((in203_0) in_68)" +"((config204_0) config_61)" " ((temp205_0) \"#e\"))" "(read-symbol-or-number8.1 #f #f temp205_0 #t temp202_0 in203_0 config204_0)))" "(if(unsafe-fx< index_5 19)" "(let-values()" "(let-values(((temp206_0) #f)" -"((in207_0) in_65)" -"((config208_0) config_59)" +"((in207_0) in_68)" +"((config208_0) config_61)" " ((temp209_0) \"#E\"))" "(read-symbol-or-number8.1 #f #f temp209_0 #t temp206_0 in207_0 config208_0)))" "(if(unsafe-fx< index_5 20)" "(let-values()" "(let-values(((temp210_0) #f)" -"((in211_0) in_65)" -"((config212_0) config_59)" +"((in211_0) in_68)" +"((config212_0) config_61)" " ((temp213_0) \"#i\"))" "(read-symbol-or-number8.1 #f #f temp213_0 #t temp210_0 in211_0 config212_0)))" "(let-values()" "(let-values(((temp214_0) #f)" -"((in215_0) in_65)" -"((config216_0) config_59)" +"((in215_0) in_68)" +"((config216_0) config_61)" " ((temp217_0) \"#I\"))" "(read-symbol-or-number8.1 #f #f temp217_0 #t temp214_0 in215_0 config216_0))))))" "(if(unsafe-fx< index_5 23)" "(if(unsafe-fx< index_5 22)" "(let-values()" "(let-values(((temp218_0) #f)" -"((in219_0) in_65)" -"((config220_0) config_59)" +"((in219_0) in_68)" +"((config220_0) config_61)" " ((temp221_1) \"#d\"))" "(read-symbol-or-number8.1 #f #f temp221_1 #t temp218_0 in219_0 config220_0)))" "(let-values()" "(let-values(((temp222_0) #f)" -"((in223_0) in_65)" -"((config224_0) config_59)" +"((in223_0) in_68)" +"((config224_0) config_61)" " ((temp225_1) \"#B\"))" "(read-symbol-or-number8.1 #f #f temp225_1 #t temp222_0 in223_0 config224_0))))" "(if(unsafe-fx< index_5 24)" "(let-values()" "(let-values(((temp226_1) #f)" -"((in227_0) in_65)" -"((config228_0) config_59)" +"((in227_0) in_68)" +"((config228_0) config_61)" " ((temp229_1) \"#o\"))" "(read-symbol-or-number8.1 #f #f temp229_1 #t temp226_1 in227_0 config228_0)))" "(if(unsafe-fx< index_5 25)" "(let-values()" "(let-values(((temp230_0) #f)" -"((in231_0) in_65)" -"((config232_0) config_59)" +"((in231_0) in_68)" +"((config232_0) config_61)" " ((temp233_1) \"#O\"))" "(read-symbol-or-number8.1 #f #f temp233_1 #t temp230_0 in231_0 config232_0)))" "(let-values()" "(let-values(((temp234_0) #f)" -"((in235_0) in_65)" -"((config236_0) config_59)" +"((in235_0) in_68)" +"((config236_0) config_61)" " ((temp237_1) \"#D\"))" "(read-symbol-or-number8.1" " #f" @@ -55009,44 +55188,46 @@ static const char *startup_source = "(if(unsafe-fx< index_5 27)" "(let-values()" "(let-values(((temp238_0) #f)" -"((in239_0) in_65)" -"((config240_0) config_59)" +"((in239_0) in_68)" +"((config240_0) config_61)" " ((temp241_1) \"#b\"))" "(read-symbol-or-number8.1 #f #f temp241_1 #t temp238_0 in239_0 config240_0)))" "(if(unsafe-fx< index_5 28)" "(let-values()" "(let-values(((temp242_0) #f)" -"((in243_0) in_65)" -"((config244_0) config_59)" +"((in243_0) in_68)" +"((config244_0) config_61)" " ((temp245_0) \"#x\"))" "(read-symbol-or-number8.1 #f #f temp245_0 #t temp242_0 in243_0 config244_0)))" "(if(unsafe-fx< index_5 29)" "(let-values()" "(let-values(((temp246_0) #f)" -"((in247_0) in_65)" -"((config248_0) config_59)" +"((in247_0) in_68)" +"((config248_0) config_61)" " ((temp249_0) \"#X\"))" "(read-symbol-or-number8.1 #f #f temp249_0 #t temp246_0 in247_0 config248_0)))" "(let-values()" -"(let-values(((c2_12)" -"(let-values(((in_71) in_65)" -"((source_51)(read-config-source config_59)))" -"(read-char-or-special in_71 special1.1 source_51))))" -"(let-values(((tmp_58) c2_12))" -"(if(if(equal? tmp_58 '#\\s) #t(equal? tmp_58 '#\\S))" +"(let-values(((c2_14)" +"(let-values(((in_74) in_68)" +"((source_50)(read-config-source config_61)))" +"(read-char-or-special in_74 special1.1 source_50))))" +"(let-values(((tmp_57) c2_14))" +"(if(if(equal? tmp_57 '#\\s) #t(equal? tmp_57 '#\\S))" "(let-values()" -"(read-one #f in_65(override-parameter read-case-sensitive config_59 #t)))" -"(if(if(equal? tmp_58 '#\\i) #t(equal? tmp_58 '#\\I))" +"(read-one #f in_68(override-parameter read-case-sensitive config_61 #t)))" +"(if(if(equal? tmp_57 '#\\i) #t(equal? tmp_57 '#\\I))" "(let-values()" "(read-one" " #f" -" in_65" -"(override-parameter read-case-sensitive config_59 #f)))" +" in_68" +"(override-parameter read-case-sensitive config_61 #f)))" "(let-values()" -"(let-values(((c2252_0) c2_12)" +"(let-values(((in250_0) in_68)" +"((config251_0) config_61)" +"((c2252_0) c2_14)" " ((temp253_0) \"expected `s', `S`, `i', or `I` after `~a~a`\")" "((dispatch-c254_0) dispatch-c_5)" -"((c255_0) c_106))" +"((c255_0) c_113))" "(reader-error10.1" " #f" " #f" @@ -55054,41 +55235,43 @@ static const char *startup_source = " #t" " #f" " #f" -" in_65" -" config_59" +" in250_0" +" config251_0" " temp253_0" "(list dispatch-c254_0 c255_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_65 config_59))" +"(let-values()(read-hash read-one dispatch-c_5 c_113 in_68 config_61))" "(let-values()" -"(let-values(((accum-str_12)(accum-string-init! config_59)))" +"(let-values(((accum-str_12)(accum-string-init! config_61)))" "(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_13)" -"(let-values(((in_72) in_65)" -"((source_52)(read-config-source config_59)))" -"(read-char-or-special in_72 special1.1 source_52))))" +"(let-values((()(begin(accum-string-add! accum-str_12 c_113)(values))))" +"(let-values(((c2_15)" +"(let-values(((in_75) in_68)" +"((source_51)(read-config-source config_61)))" +"(read-char-or-special in_75 special1.1 source_51))))" "(begin" -"(if(char? c2_13)" -"(let-values()(accum-string-add! accum-str_12 c2_13))" +"(if(char? c2_15)" +"(let-values()(accum-string-add! accum-str_12 c2_15))" "(void))" -"(let-values(((tmp_59) c2_13))" -"(if(equal? tmp_59 '#\\x)" -"(let-values()(read-regexp c_106 accum-str_12 in_65 config_59))" -"(if(equal? tmp_59 '#\\e)" +"(let-values(((tmp_58) c2_15))" +"(if(equal? tmp_58 '#\\x)" +"(let-values()(read-regexp c_113 accum-str_12 in_68 config_61))" +"(if(equal? tmp_58 '#\\e)" "(let-values()" "(read-extension-reader" " read-one" " read-undotted" " dispatch-c_5" -" in_65" -" config_59))" +" in_68" +" config_61))" "(let-values()" -"(let-values(((c2258_0) c2_13)" +"(let-values(((in256_0) in_68)" +"((config257_0) config_61)" +"((c2258_0) c2_15)" "((temp259_0)" "(let-values(((accum-str260_0) accum-str_12)" -"((config261_0) config_59))" +"((config261_0) config_61))" "(accum-string-get!6.1" " #f" " #f" @@ -55097,30 +55280,32 @@ static const char *startup_source = "(bad-syntax-error18.1" " c2258_0" " #t" -" in_65" -" config_59" +" in256_0" +" config257_0" " temp259_0)))))))))))))" "(if(unsafe-fx< index_5 33)" "(let-values()" -"(let-values(((accum-str_13)(accum-string-init! config_59)))" +"(let-values(((accum-str_13)(accum-string-init! config_61)))" "(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_14)" -"(let-values(((in_73) in_65)" -"((source_53)(read-config-source config_59)))" -"(read-char-or-special in_73 special1.1 source_53))))" +"(let-values((()(begin(accum-string-add! accum-str_13 c_113)(values))))" +"(let-values(((c2_16)" +"(let-values(((in_76) in_68)" +"((source_52)(read-config-source config_61)))" +"(read-char-or-special in_76 special1.1 source_52))))" "(begin" -"(if(char? c2_14)" -"(let-values()(accum-string-add! accum-str_13 c2_14))" +"(if(char? c2_16)" +"(let-values()(accum-string-add! accum-str_13 c2_16))" "(void))" -"(let-values(((tmp_14) c2_14))" -"(if(equal? tmp_14 '#\\x)" -"(let-values()(read-regexp c_106 accum-str_13 in_65 config_59))" +"(let-values(((tmp_59) c2_16))" +"(if(equal? tmp_59 '#\\x)" +"(let-values()(read-regexp c_113 accum-str_13 in_68 config_61))" "(let-values()" -"(let-values(((c2264_0) c2_14)" +"(let-values(((in262_0) in_68)" +"((config263_0) config_61)" +"((c2264_0) c2_16)" "((temp265_0)" "(let-values(((accum-str266_0) accum-str_13)" -"((config267_0) config_59))" +"((config267_0) config_61))" "(accum-string-get!6.1" " #f" " #f" @@ -55129,15 +55314,15 @@ static const char *startup_source = "(bad-syntax-error18.1" " c2264_0" " #t" -" in_65" -" config_59" +" in262_0" +" config263_0" " temp265_0)))))))))))" "(if(unsafe-fx< index_5 34)" "(let-values()" "(let-values(((read-undotted268_0) read-undotted)" "((dispatch-c269_0) dispatch-c_5)" -"((in270_0) in_65)" -"((config271_0) config_59))" +"((in270_0) in_68)" +"((config271_0) config_61))" "(read-extension-lang7.1" " #f" " #f" @@ -55149,8 +55334,8 @@ static const char *startup_source = "(let-values()" "(let-values(((read-undotted272_0) read-undotted)" "((dispatch-c273_0) dispatch-c_5)" -"((in274_0) in_65)" -"((config275_0) config_59))" +"((in274_0) in_68)" +"((config275_0) config_61))" "(read-extension-#!16.1" " #f" " #f" @@ -55159,12 +55344,12 @@ static const char *startup_source = " in274_0" " config275_0)))" "(let-values()" -"(if(check-parameter 1/read-accept-compiled config_59)" +"(if(check-parameter 1/read-accept-compiled config_61)" "(let-values()" -"(wrap((read-config-read-compiled config_59) in_65) in_65 config_59 c_106))" +"(wrap((read-config-read-compiled config_61) in_68) in_68 config_61 c_113))" "(let-values()" -"(let-values(((in276_0) in_65)" -"((config277_0) config_59)" +"(let-values(((in276_0) in_68)" +"((config277_0) config_61)" " ((temp278_0) \"`~a~~` compiled expressions not enabled\")" "((dispatch-c279_0) dispatch-c_5))" "(reader-error10.1" @@ -55180,11 +55365,11 @@ static const char *startup_source = "(list dispatch-c279_0)))))))))))))))))))))))))" "(define-values" "(retry-special-comment)" -"(lambda(v_240 in_74 config_60)" +"(lambda(v_247 in_77 config_62)" "(begin" -"(if(1/special-comment? v_240)" -"(let-values()(if(read-config-keep-comment? config_60) v_240(read-undotted #f in_74 config_60)))" -"(let-values() v_240)))))" +"(if(1/special-comment? v_247)" +"(let-values()(if(read-config-keep-comment? config_62) v_247(read-undotted #f in_77 config_62)))" +"(let-values() v_247)))))" "(define-values" "(1/module-declared?)" "(let-values(((module-declared?4_0)" @@ -55201,11 +55386,11 @@ static const char *startup_source = "(let-values()" "(raise-argument-error 'module-declared? module-reference-str mod_4)))" "(values))))" -"(let-values(((ns_107)(1/current-namespace)))" -"(let-values(((name_69)" -"(let-values(((load?36_0) load?_3))" -"(reference->resolved-module-path32.1 load?36_0 mod_4))))" -"(if(namespace->module ns_107 name_69) #t #f)))))))))))" +"(let-values(((ns_111)(1/current-namespace)))" +"(let-values(((name_68)" +"(let-values(((mod35_0) mod_4)((load?36_0) load?_3))" +"(reference->resolved-module-path32.1 load?36_0 mod35_0))))" +"(if(namespace->module ns_111 name_68) #t #f)))))))))))" "(case-lambda" "((mod_5)(begin 'module-declared?(module-declared?4_0 mod_5 #f #f)))" "((mod_6 load?1_1)(module-declared?4_0 mod_6 load?1_1 #t)))))" @@ -55220,9 +55405,11 @@ static const char *startup_source = "(void)" "(let-values()(raise-argument-error 'module-predefined? module-reference-str mod_7)))" "(values))))" -"(let-values(((ns_54)(1/current-namespace)))" -"(let-values(((name_0)(let-values(((temp38_2) #f))(reference->resolved-module-path32.1 temp38_2 mod_7))))" -"(let-values(((m_23)(namespace->module ns_54 name_0)))(if m_23(module-is-predefined? m_23) #f))))))))" +"(let-values(((ns_86)(1/current-namespace)))" +"(let-values(((name_1)" +"(let-values(((mod37_0) mod_7)((temp38_2) #f))" +"(reference->resolved-module-path32.1 temp38_2 mod37_0))))" +"(let-values(((m_24)(namespace->module ns_86 name_1)))(if m_24(module-is-predefined? m_24) #f))))))))" "(define-values" "(module->)" "(let-values(((module->11_0)" @@ -55241,16 +55428,16 @@ static const char *startup_source = "(let-values()" "(raise-argument-error who_29 module-reference-str mod_8)))" "(values))))" -"(let-values(((m_24)" +"(let-values(((m_25)" "(namespace->module/complain" " who_29" "(1/current-namespace)" -"(let-values(((load?40_0) load?_4))" -"(reference->resolved-module-path32.1 load?40_0 mod_8)))))" -"(extract_1 m_24))))))))))))" +"(let-values(((mod39_0) mod_8)((load?40_0) load?_4))" +"(reference->resolved-module-path32.1 load?40_0 mod39_0)))))" +"(extract_1 m_25))))))))))))" "(case-lambda" "((extract_2 who_30 mod_9)(begin(module->11_0 extract_2 who_30 mod_9 #f #f)))" -"((extract_3 who_31 mod_10 load?6_1)(module->11_0 extract_3 who_31 mod_10 load?6_1 #t)))))" +"((extract_3 who_18 mod_10 load?6_1)(module->11_0 extract_3 who_18 mod_10 load?6_1 #t)))))" "(define-values" "(1/module->language-info)" "(let-values(((module->language-info16_0)" @@ -55271,19 +55458,19 @@ static const char *startup_source = "(lambda(mod_15)" "(begin" " 'module->exports" -"(let-values(((provides_12 self_29)" +"(let-values(((provides_12 self_27)" "(module->" -"(lambda(m_25)(values(module-provides m_25)(module-self m_25)))" +"(lambda(m_26)(values(module-provides m_26)(module-self m_26)))" " 'module->exports" " mod_15)))" -"(provides->api-provides provides_12 self_29)))))" +"(provides->api-provides provides_12 self_27)))))" "(define-values" "(1/module->indirect-exports)" "(lambda(mod_16)" "(begin" " 'module->indirect-exports" "(module->" -"(lambda(m_26)(variables->api-nonprovides(module-provides m_26)((module-get-all-variables m_26))))" +"(lambda(m_27)(variables->api-nonprovides(module-provides m_27)((module-get-all-variables m_27))))" " 'module->indirect-exports" " mod_16))))" "(define-values" @@ -55292,19 +55479,19 @@ static const char *startup_source = "(begin" " 'module-provide-protected?" "(module->" -"(lambda(m_27)" -"(let-values(((b/p_3)(hash-ref(module-provides m_27) sym_92 #f)))" -"(let-values(((or-part_176)(not b/p_3)))(if or-part_176 or-part_176(provided-as-protected? b/p_3)))))" +"(lambda(m_28)" +"(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_92 #f)))" +"(let-values(((or-part_290)(not b/p_3)))(if or-part_290 or-part_290(provided-as-protected? b/p_3)))))" " 'module-provide-protected?" " mod_17))))" "(define-values" "(1/module->namespace)" "(let-values(((module->namespace21_0)" -"(lambda(mod20_0 ns18_1 ns19_0)" +"(lambda(mod20_0 ns18_2 ns19_1)" "(begin" " 'module->namespace21" "(let-values(((mod_18) mod20_0))" -"(let-values(((ns_108)(if ns19_0 ns18_1(1/current-namespace))))" +"(let-values(((ns_47)(if ns19_1 ns18_2(1/current-namespace))))" "(let-values()" "(let-values((()" "(begin" @@ -55315,19 +55502,19 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(1/namespace? ns_108)" +"(if(1/namespace? ns_47)" "(void)" "(let-values()" -" (raise-argument-error 'module->namespace \"namespace?\" ns_108)))" +" (raise-argument-error 'module->namespace \"namespace?\" ns_47)))" "(values))))" -"(let-values(((name_41)" -"(let-values(((temp45_1) #t))" -"(reference->resolved-module-path32.1 temp45_1 mod_18))))" -"(let-values(((phase_95)(namespace-phase ns_108)))" +"(let-values(((name_69)" +"(let-values(((mod44_0) mod_18)((temp45_1) #t))" +"(reference->resolved-module-path32.1 temp45_1 mod44_0))))" +"(let-values(((phase_128)(namespace-phase ns_47)))" "(let-values(((m-ns_17)" -"(let-values(((ns46_0) ns_108)" -"((name47_0) name_41)" -"((phase48_0) phase_95))" +"(let-values(((ns46_0) ns_47)" +"((name47_0) name_69)" +"((phase48_1) phase_128))" "(namespace->module-namespace82.1" " #f" " #f" @@ -55337,18 +55524,18 @@ static const char *startup_source = " #f" " ns46_0" " name47_0" -" phase48_0))))" +" phase48_1))))" "(begin" "(if m-ns_17" "(void)" "(let-values()" "(begin" -"(namespace->module/complain 'module->namespace ns_108 name_41)" +"(namespace->module/complain 'module->namespace ns_47 name_69)" "(raise-arguments-error" " 'module->namespace" " \"module not instantiated in the current namespace\"" " \"name\"" -" name_41))))" +" name_69))))" "(if(inspector-superior?(current-code-inspector)(namespace-inspector m-ns_17))" "(void)" "(let-values()" @@ -55356,7 +55543,7 @@ static const char *startup_source = " 'module->namespace" " \"current code inspector cannot access namespace of module\"" " \"module name\"" -" name_41)))" +" name_69)))" "(if(namespace-get-root-expand-ctx m-ns_17)" "(void)" "(let-values()" @@ -55364,33 +55551,33 @@ static const char *startup_source = " m-ns_17" "(let-values(((temp49_2)(namespace-mpi m-ns_17)))" "(make-root-expand-context13.1 #f #f #f #f #f #f #f #f temp49_2)))))" -"(let-values(((ns41_2) ns_108)" +"(let-values(((ns41_3) ns_47)" "((temp42_4)(namespace-mpi m-ns_17))" -"((phase43_2) phase_95))" -"(namespace-module-make-available!112.1 #f #f ns41_2 temp42_4 phase43_2))" +"((phase43_3) phase_128))" +"(namespace-module-make-available!112.1 #f #f ns41_3 temp42_4 phase43_3))" " m-ns_17)))))))))))))" "(case-lambda" "((mod_19)(begin 'module->namespace(module->namespace21_0 mod_19 #f #f)))" -"((mod_20 ns18_2)(module->namespace21_0 mod_20 ns18_2 #t)))))" +"((mod_20 ns18_3)(module->namespace21_0 mod_20 ns18_3 #t)))))" "(define-values" "(1/namespace-unprotect-module)" "(let-values(((namespace-unprotect-module27_0)" "(lambda(insp25_0 mod26_0 ns23_0 ns24_1)" "(begin" " 'namespace-unprotect-module27" -"(let-values(((insp_10) insp25_0))" +"(let-values(((insp_18) insp25_0))" "(let-values(((mod_21) mod26_0))" -"(let-values(((ns_109)(if ns24_1 ns23_0(1/current-namespace))))" +"(let-values(((ns_112)(if ns24_1 ns23_0(1/current-namespace))))" "(let-values()" "(let-values((()" "(begin" -"(if(inspector? insp_10)" +"(if(inspector? insp_18)" "(void)" "(let-values()" "(raise-argument-error" " 'namespace-unprotect-module" " \"inspector?\"" -" insp_10)))" +" insp_18)))" "(values))))" "(let-values((()" "(begin" @@ -55404,22 +55591,22 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(1/namespace? ns_109)" +"(if(1/namespace? ns_112)" "(void)" "(let-values()" "(raise-argument-error" " 'namespace-unprotect-module" " \"namespace?\"" -" ns_109)))" +" ns_112)))" "(values))))" -"(let-values(((name_61)" -"(let-values(((temp51_3) #f))" -"(reference->resolved-module-path32.1 temp51_3 mod_21))))" -"(let-values(((phase_140)(namespace-phase ns_109)))" +"(let-values(((name_70)" +"(let-values(((mod50_0) mod_21)((temp51_3) #f))" +"(reference->resolved-module-path32.1 temp51_3 mod50_0))))" +"(let-values(((phase_138)(namespace-phase ns_112)))" "(let-values(((m-ns_18)" -"(let-values(((ns52_0) ns_109)" -"((name53_0) name_61)" -"((phase54_0) phase_140))" +"(let-values(((ns52_0) ns_112)" +"((name53_0) name_70)" +"((phase54_2) phase_138))" "(namespace->module-namespace82.1" " #f" " #f" @@ -55429,7 +55616,7 @@ static const char *startup_source = " #f" " ns52_0" " name53_0" -" phase54_0))))" +" phase54_2))))" "(begin" "(if m-ns_18" "(void)" @@ -55438,33 +55625,33 @@ static const char *startup_source = " 'namespace-unprotect-module" " \"module not instantiated\"" " \"module name\"" -" name_61)))" -"(if(inspector-superior? insp_10(namespace-inspector m-ns_18))" +" name_70)))" +"(if(inspector-superior? insp_18(namespace-inspector m-ns_18))" "(let-values()" "(set-namespace-inspector!" " m-ns_18" "(make-inspector(current-code-inspector))))" "(void)))))))))))))))))" "(case-lambda" -"((insp_17 mod_22)(begin 'namespace-unprotect-module(namespace-unprotect-module27_0 insp_17 mod_22 #f #f)))" -"((insp_18 mod_23 ns23_1)(namespace-unprotect-module27_0 insp_18 mod_23 ns23_1 #t)))))" +"((insp_13 mod_22)(begin 'namespace-unprotect-module(namespace-unprotect-module27_0 insp_13 mod_22 #f #f)))" +"((insp_19 mod_23 ns23_1)(namespace-unprotect-module27_0 insp_19 mod_23 ns23_1 #t)))))" "(define-values" "(namespace->module/complain)" -"(lambda(who_32 ns_110 name_70)" +"(lambda(who_31 ns_113 name_71)" "(begin" -"(let-values(((or-part_30)(namespace->module ns_110 name_70)))" -"(if or-part_30" -" or-part_30" -" (raise-arguments-error who_32 \"unknown module in the current namespace\" \"name\" name_70))))))" +"(let-values(((or-part_361)(namespace->module ns_113 name_71)))" +"(if or-part_361" +" or-part_361" +" (raise-arguments-error who_31 \"unknown module in the current namespace\" \"name\" name_71))))))" "(define-values" "(module-reference?)" "(lambda(mod_24)" "(begin" -"(let-values(((or-part_263)(1/module-path? mod_24)))" -"(if or-part_263" -" or-part_263" -"(let-values(((or-part_218)(1/module-path-index? mod_24)))" -"(if or-part_218 or-part_218(1/resolved-module-path? mod_24))))))))" +"(let-values(((or-part_362)(1/module-path? mod_24)))" +"(if or-part_362" +" or-part_362" +"(let-values(((or-part_134)(1/module-path-index? mod_24)))" +"(if or-part_134 or-part_134(1/resolved-module-path? mod_24))))))))" " (define-values (module-reference-str) \"(or/c module-path? module-path-index? resolved-module-path?)\")" "(define-values" "(reference->resolved-module-path32.1)" @@ -55481,50 +55668,52 @@ static const char *startup_source = "(1/module-path-index-resolve mpi_47 load?_6))))))))))" "(define-values" "(read-syntax$1)" -"(lambda(src_0 in_75)" +"(lambda(src_0 in_78)" "(begin" " 'read-syntax" -"(if(default-read-handler? in_75)" +"(if(default-read-handler? in_78)" "(let-values()" "(begin" -"(maybe-flush-stdout in_75)" -"(let-values(((temp24_11) #t)((src25_0) src_0))" -"(read*14.1 temp24_11 #f #f #f #f #f #f #f #f src25_0 #t in_75))))" -"(let-values()(values((port-read-handler in_75) in_75 src_0)))))))" +"(maybe-flush-stdout in_78)" +"(let-values(((in23_2) in_78)((temp24_11) #t)((src25_0) src_0))" +"(read*14.1 temp24_11 #f #f #f #f #f #f #f #f src25_0 #t in23_2))))" +"(let-values()(values((port-read-handler in_78) in_78 src_0)))))))" "(define-values" "(read-syntax/recursive$1)" -"(lambda(src_1 in_51 start_42 readtable_4 graph?_1)" +"(lambda(src_1 in_79 start_57 readtable_4 graph?_1)" "(begin" " 'read-syntax/recursive" -"(let-values(((temp27_7) #t)" -"((temp28_4) #t)" +"(let-values(((in26_1) in_79)" +"((temp27_8) #t)" +"((temp28_5) #t)" "((src29_0) src_1)" -"((start30_0) start_42)" +"((start30_0) start_57)" "((readtable31_1) readtable_4)" "((temp32_5)(not graph?_1)))" -"(read*14.1 temp27_7 start30_0 #t temp32_5 #t readtable31_1 #t temp28_4 #t src29_0 #t in_51)))))" +"(read*14.1 temp27_8 start30_0 #t temp32_5 #t readtable31_1 #t temp28_5 #t src29_0 #t in26_1)))))" "(define-values" "(read$1)" -"(lambda(in_10)" +"(lambda(in_11)" "(begin" " 'read" -"(if(default-read-handler? in_10)" +"(if(default-read-handler? in_11)" "(let-values()" "(begin" -"(maybe-flush-stdout in_10)" -"(let-values(((temp34_3) #f))(read*14.1 temp34_3 #f #f #f #f #f #f #f #f #f #f in_10))))" -"(let-values()(values((port-read-handler in_10) in_10)))))))" +"(maybe-flush-stdout in_11)" +"(let-values(((in33_1) in_11)((temp34_3) #f))(read*14.1 temp34_3 #f #f #f #f #f #f #f #f #f #f in33_1))))" +"(let-values()(values((port-read-handler in_11) in_11)))))))" "(define-values" "(read/recursive$1)" -"(lambda(in_76 start_58 readtable_5 graph?_2)" +"(lambda(in_6 start_58 readtable_5 graph?_2)" "(begin" " 'read/recursive" -"(let-values(((temp36_6) #f)" +"(let-values(((in35_0) in_6)" +"((temp36_7) #f)" "((temp37_3) #t)" "((start38_0) start_58)" "((readtable39_0) readtable_5)" "((temp40_3)(not graph?_2)))" -"(read*14.1 temp36_6 start38_0 #t temp40_3 #t readtable39_0 #t temp37_3 #t #f #f in_76)))))" +"(read*14.1 temp36_7 start38_0 #t temp40_3 #t readtable39_0 #t temp37_3 #t #f #f in35_0)))))" "(define-values" "(read*14.1)" "(lambda(for-syntax?1_0" @@ -55538,23 +55727,24 @@ static const char *startup_source = " recursive?8_0" " source3_0" " source9_0" -" in13_1)" +" in13_2)" "(begin" " 'read*14" -"(let-values(((in_77) in13_1))" +"(let-values(((in_80) in13_2))" "(let-values(((for-syntax?_11) for-syntax?1_0))" "(let-values(((recursive?_1)(if recursive?8_0 recursive?2_0 #f)))" -"(let-values(((source_54)(if source9_0 source3_0 #f)))" -"(let-values(((init-c_16)(if init-c10_0 init-c4_0 #f)))" +"(let-values(((source_53)(if source9_0 source3_0 #f)))" +"(let-values(((init-c_17)(if init-c10_0 init-c4_0 #f)))" "(let-values(((readtable_6)(if readtable11_0 readtable5_0(1/current-readtable))))" "(let-values(((local-graph?_2)(if local-graph?12_0 local-graph?6_1 #f)))" "(let-values()" "(let-values()" -"(let-values(((for-syntax?42_0) for-syntax?_11)" +"(let-values(((in41_1) in_80)" +"((for-syntax?42_0) for-syntax?_11)" "((recursive?43_0) recursive?_1)" -"((source44_0) source_54)" +"((source44_0) source_53)" "((temp45_2)(if for-syntax?_11 read-to-syntax #f))" -"((init-c46_0) init-c_16)" +"((init-c46_0) init-c_17)" "((readtable47_0) readtable_6)" "((local-graph?48_0) local-graph?_2)" "((read-compiled-linklet49_0) 1/read-compiled-linklet)" @@ -55591,13 +55781,15 @@ static const char *startup_source = " #t" " temp45_2" " #t" -" in_77))))))))))))))" +" in41_1))))))))))))))" "(define-values" "(read-language$1)" -"(lambda(in_78 fail-thunk_0)" +"(lambda(in_81 fail-thunk_0)" "(begin" " 'read-language" -"(let-values(((temp56_1) #t)" +"(let-values(((in54_2) in_81)" +"((fail-thunk55_0) fail-thunk_0)" +"((temp56_1) #t)" "((read-to-syntax57_0) read-to-syntax)" "((read-compiled-linklet58_0) 1/read-compiled-linklet)" "((dynamic-require-reader59_0) dynamic-require-reader)" @@ -55619,8 +55811,8 @@ static const char *startup_source = " #t" " read-to-syntax57_0" " #t" -" in_78" -" fail-thunk_0)))))" +" in54_2" +" fail-thunk55_0)))))" "(define-values" "(read-to-syntax)" "(lambda(s-exp_4 srcloc_11 rep_1)" @@ -55656,11 +55848,11 @@ static const char *startup_source = "(define-values(read-module-declared?)(lambda(mod-path_29)(begin(1/module-declared? mod-path_29 #t))))" "(define-values" "(read-coerce)" -"(lambda(for-syntax?_12 v_241 srcloc_12)" +"(lambda(for-syntax?_12 v_192 srcloc_12)" "(begin" "(if(not for-syntax?_12)" -"(let-values()(if(syntax?$1 v_241)(let-values()(syntax->datum$1 v_241))(let-values() v_241)))" -"(let-values()(datum->syntax$1 #f v_241(if srcloc_12(to-srcloc-stx srcloc_12) #f)))))))" +"(let-values()(if(syntax?$1 v_192)(let-values()(syntax->datum$1 v_192))(let-values() v_192)))" +"(let-values()(datum->syntax$1 #f v_192(if srcloc_12(to-srcloc-stx srcloc_12) #f)))))))" "(define-values" "(read-coerce-key)" "(lambda(for-syntax?_13 k_41)" @@ -55668,19 +55860,19 @@ static const char *startup_source = "(define-values(default-read-handler) #f)" "(define-values" "(default-read-handler?)" -"(lambda(in_79)" +"(lambda(in_82)" "(begin" "(if(not default-read-handler)" -"(let-values()(begin(set! default-read-handler(port-read-handler in_79)) #t))" -"(let-values()(eq? default-read-handler(port-read-handler in_79)))))))" +"(let-values()(begin(set! default-read-handler(port-read-handler in_82)) #t))" +"(let-values()(eq? default-read-handler(port-read-handler in_82)))))))" "(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_80)" +"(lambda(in_83)" "(begin" -"(if(eq? in_80 orig-input-port)" +"(if(eq? in_83 orig-input-port)" "(let-values()(begin(flush-output orig-output-port)(flush-output orig-error-port)))" "(void)))))" "(define-values" @@ -55705,8 +55897,8 @@ static const char *startup_source = "(let-values()(1/dynamic-require mod-path_30 sym_93 fail-thunk_1)))" "(1/dynamic-require mod-path_30 sym_93 fail-thunk_1)))))))))))" "(case-lambda" -"((mod-path_31 sym_14)(begin(dynamic-require-reader21_0 mod-path_31 sym_14 #f #f)))" -"((mod-path_32 sym_94 fail-thunk17_1)(dynamic-require-reader21_0 mod-path_32 sym_94 fail-thunk17_1 #t)))))" +"((mod-path_31 sym_94)(begin(dynamic-require-reader21_0 mod-path_31 sym_94 #f #f)))" +"((mod-path_32 sym_95 fail-thunk17_1)(dynamic-require-reader21_0 mod-path_32 sym_95 fail-thunk17_1 #t)))))" "(define-values" "(1/read-syntax)" "(let-values(((read-syntax5_0)" @@ -55714,13 +55906,13 @@ static const char *startup_source = "(begin" " 'read-syntax5" "(let-values(((src_0)(if src3_0 src1_0(object-name(current-input-port)))))" -"(let-values(((in_75)(if in4_2 in2_0(current-input-port))))" +"(let-values(((in_78)(if in4_2 in2_0(current-input-port))))" "(let-values()" "(begin" -"(if(input-port? in_75)" +"(if(input-port? in_78)" "(void)" -" (let-values () (raise-argument-error 'read-syntax \"input-port?\" in_75)))" -"(read-syntax$1 src_0 in_75)))))))))" +" (let-values () (raise-argument-error 'read-syntax \"input-port?\" in_78)))" +"(read-syntax$1 src_0 in_78)))))))))" "(case-lambda" "(()(begin 'read-syntax(read-syntax5_0 #f #f #f #f)))" "((src_2 in2_1)(read-syntax5_0 src_2 in2_1 #t #t))" @@ -55729,46 +55921,46 @@ static const char *startup_source = "(1/read-syntax/recursive)" "(let-values(((read-syntax/recursive17_0)" "(lambda(src7_0" -" in8_1" +" in8_3" " start9_0" " readtable10_0" " graph?11_0" " src12_0" -" in13_2" +" in13_3" " start14_0" " readtable15_0" " graph?16_0)" "(begin" " 'read-syntax/recursive17" "(let-values(((src_3)(if src12_0 src7_0(object-name(current-input-port)))))" -"(let-values(((in_76)(if in13_2 in8_1(current-input-port))))" -"(let-values(((start_58)(if start14_0 start9_0 #f)))" -"(let-values(((readtable_5)(if readtable15_0 readtable10_0(1/current-readtable))))" -"(let-values(((graph?_2)(if graph?16_0 graph?11_0 #t)))" +"(let-values(((in_84)(if in13_3 in8_3(current-input-port))))" +"(let-values(((start_59)(if start14_0 start9_0 #f)))" +"(let-values(((readtable_7)(if readtable15_0 readtable10_0(1/current-readtable))))" +"(let-values(((graph?_3)(if graph?16_0 graph?11_0 #t)))" "(let-values()" "(begin" -"(if(input-port? in_76)" +"(if(input-port? in_84)" "(void)" -" (let-values () (raise-argument-error 'read-syntax/recursive \"input-port?\" in_76)))" -"(if(let-values(((or-part_362)(char? start_58)))" -"(if or-part_362 or-part_362(not start_58)))" +" (let-values () (raise-argument-error 'read-syntax/recursive \"input-port?\" in_84)))" +"(if(let-values(((or-part_363)(char? start_59)))" +"(if or-part_363 or-part_363(not start_59)))" "(void)" "(let-values()" -" (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_58)))" -"(if(let-values(((or-part_166)(1/readtable? readtable_5)))" -"(if or-part_166 or-part_166(not readtable_5)))" +" (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_59)))" +"(if(let-values(((or-part_172)(1/readtable? readtable_7)))" +"(if or-part_172 or-part_172(not readtable_7)))" "(void)" "(let-values()" -" (raise-argument-error 'read-syntax/recursive \"(or/c readtable? #f)\" readtable_5)))" -"(read-syntax/recursive$1 src_3 in_76 start_58 readtable_5 graph?_2))))))))))))" +" (raise-argument-error 'read-syntax/recursive \"(or/c readtable? #f)\" readtable_7)))" +"(read-syntax/recursive$1 src_3 in_84 start_59 readtable_7 graph?_3))))))))))))" "(case-lambda" "(()(begin 'read-syntax/recursive(read-syntax/recursive17_0 #f #f #f #f #f #f #f #f #f #f)))" -"((src_4 in_12 start_59 readtable_7 graph?11_1)" -"(read-syntax/recursive17_0 src_4 in_12 start_59 readtable_7 graph?11_1 #t #t #t #t #t))" -"((src_5 in_81 start_60 readtable10_1)" -"(read-syntax/recursive17_0 src_5 in_81 start_60 readtable10_1 #f #t #t #t #t #f))" -"((src_6 in_82 start9_1)(read-syntax/recursive17_0 src_6 in_82 start9_1 #f #f #t #t #t #f #f))" -"((src_7 in8_2)(read-syntax/recursive17_0 src_7 in8_2 #f #f #f #t #t #f #f #f))" +"((src_4 in_12 start_60 readtable_8 graph?11_1)" +"(read-syntax/recursive17_0 src_4 in_12 start_60 readtable_8 graph?11_1 #t #t #t #t #t))" +"((src_5 in_85 start_61 readtable10_1)" +"(read-syntax/recursive17_0 src_5 in_85 start_61 readtable10_1 #f #t #t #t #t #f))" +"((src_6 in_86 start9_1)(read-syntax/recursive17_0 src_6 in_86 start9_1 #f #f #t #t #t #f #f))" +"((src_7 in8_4)(read-syntax/recursive17_0 src_7 in8_4 #f #f #f #t #t #f #f #f))" "((src7_1)(read-syntax/recursive17_0 src7_1 #f #f #f #f #t #f #f #f #f)))))" "(define-values" "(1/read)" @@ -55776,52 +55968,52 @@ static const char *startup_source = "(lambda(in19_0 in20_2)" "(begin" " 'read21" -"(let-values(((in_24)(if in20_2 in19_0(current-input-port))))" +"(let-values(((in_23)(if in20_2 in19_0(current-input-port))))" "(let-values()" "(begin" -"(if(input-port? in_24)" +"(if(input-port? in_23)" "(void)" -" (let-values () (raise-argument-error 'read \"input-port?\" in_24)))" -"(read$1 in_24))))))))" +" (let-values () (raise-argument-error 'read \"input-port?\" in_23)))" +"(read$1 in_23))))))))" "(case-lambda(()(begin 'read(read21_0 #f #f)))((in19_1)(read21_0 in19_1 #t)))))" "(define-values" "(1/read/recursive)" "(let-values(((read/recursive31_0)" -"(lambda(in23_1 start24_0 readtable25_0 graph?26_0 in27_2 start28_1 readtable29_0 graph?30_0)" +"(lambda(in23_3 start24_0 readtable25_0 graph?26_0 in27_2 start28_1 readtable29_0 graph?30_0)" "(begin" " 'read/recursive31" -"(let-values(((in_83)(if in27_2 in23_1(current-input-port))))" -"(let-values(((start_61)(if start28_1 start24_0 #f)))" -"(let-values(((readtable_8)(if readtable29_0 readtable25_0(1/current-readtable))))" -"(let-values(((graph?_3)(if graph?30_0 graph?26_0 #t)))" +"(let-values(((in_87)(if in27_2 in23_3(current-input-port))))" +"(let-values(((start_62)(if start28_1 start24_0 #f)))" +"(let-values(((readtable_9)(if readtable29_0 readtable25_0(1/current-readtable))))" +"(let-values(((graph?_4)(if graph?30_0 graph?26_0 #t)))" "(let-values()" "(begin" -"(if(input-port? in_83)" +"(if(input-port? in_87)" "(void)" -" (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_83)))" -"(if(let-values(((or-part_176)(char? start_61)))" -"(if or-part_176 or-part_176(not start_61)))" +" (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_87)))" +"(if(let-values(((or-part_167)(char? start_62)))" +"(if or-part_167 or-part_167(not start_62)))" "(void)" -" (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_61)))" -"(if(let-values(((or-part_177)(1/readtable? readtable_8)))" -"(if or-part_177 or-part_177(not readtable_8)))" +" (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_62)))" +"(if(let-values(((or-part_168)(1/readtable? readtable_9)))" +"(if or-part_168 or-part_168(not readtable_9)))" "(void)" "(let-values()" -" (raise-argument-error 'read/recursive \"(or/c readtable? #f)\" readtable_8)))" -"(read/recursive$1 in_83 start_61 readtable_8 graph?_3)))))))))))" +" (raise-argument-error 'read/recursive \"(or/c readtable? #f)\" readtable_9)))" +"(read/recursive$1 in_87 start_62 readtable_9 graph?_4)))))))))))" "(case-lambda" "(()(begin 'read/recursive(read/recursive31_0 #f #f #f #f #f #f #f #f)))" -"((in_35 start_62 readtable_9 graph?26_1)(read/recursive31_0 in_35 start_62 readtable_9 graph?26_1 #t #t #t #t))" -"((in_17 start_63 readtable25_1)(read/recursive31_0 in_17 start_63 readtable25_1 #f #t #t #t #f))" -"((in_43 start24_1)(read/recursive31_0 in_43 start24_1 #f #f #t #t #f #f))" -"((in23_2)(read/recursive31_0 in23_2 #f #f #f #t #f #f #f)))))" +"((in_36 start_63 readtable_10 graph?26_1)(read/recursive31_0 in_36 start_63 readtable_10 graph?26_1 #t #t #t #t))" +"((in_88 start_64 readtable25_1)(read/recursive31_0 in_88 start_64 readtable25_1 #f #t #t #t #f))" +"((in_89 start24_1)(read/recursive31_0 in_89 start24_1 #f #f #t #t #f #f))" +"((in23_4)(read/recursive31_0 in23_4 #f #f #f #t #f #f #f)))))" "(define-values" "(1/read-language)" "(let-values(((read-language37_0)" -"(lambda(in33_1 fail-thunk34_0 in35_0 fail-thunk36_0)" +"(lambda(in33_2 fail-thunk34_0 in35_1 fail-thunk36_0)" "(begin" " 'read-language37" -"(let-values(((in_7)(if in35_0 in33_1(current-input-port))))" +"(let-values(((in_7)(if in35_1 in33_2(current-input-port))))" "(let-values(((fail-thunk_2)(if fail-thunk36_0 fail-thunk34_0 read-language-fail-thunk)))" "(let-values()" "(begin" @@ -55837,20 +56029,20 @@ static const char *startup_source = "(if(eq? fail-thunk_2 read-language-fail-thunk) #f fail-thunk_2))))))))))" "(case-lambda" "(()(begin 'read-language(read-language37_0 #f #f #f #f)))" -"((in_84 fail-thunk34_1)(read-language37_0 in_84 fail-thunk34_1 #t #t))" -"((in33_2)(read-language37_0 in33_2 #f #t #f)))))" +"((in_90 fail-thunk34_1)(read-language37_0 in_90 fail-thunk34_1 #t #t))" +"((in33_3)(read-language37_0 in33_3 #f #t #f)))))" " (define-values (read-language-fail-thunk) (lambda () (begin (error \"fail\"))))" "(define-values" "(eval$1)" "(case-lambda" "((s_0)(begin 'eval((1/current-eval)(intro s_0))))" -"((s_156 ns_58)" +"((s_154 ns_58)" "(begin" " (if (1/namespace? ns_58) (void) (let-values () (raise-argument-error 'eval \"namespace?\" ns_58)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_58)" -"(let-values()((1/current-eval)(intro s_156 ns_58))))))))" +"(let-values()((1/current-eval)(intro s_154 ns_58))))))))" "(define-values" "(1/eval-syntax)" "(case-lambda" @@ -55860,14 +56052,14 @@ static const char *startup_source = "(begin" " (if (syntax?$1 s_1) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_1)))" "((1/current-eval) s_1))))" -"((s_168 ns_111)" +"((s_166 ns_114)" "(begin" -" (if (syntax?$1 s_168) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_168)))" -" (if (1/namespace? ns_111) (void) (let-values () (raise-argument-error 'eval-syntax \"namespace?\" ns_111)))" +" (if (syntax?$1 s_166) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_166)))" +" (if (1/namespace? ns_114) (void) (let-values () (raise-argument-error 'eval-syntax \"namespace?\" ns_114)))" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_111)" -"(let-values()((1/current-eval) s_168)))))))" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_114)" +"(let-values()((1/current-eval) s_166)))))))" "(define-values(compile$1)(lambda(s_2)(begin 'compile((1/current-compile)(intro s_2) #f))))" "(define-values" "(1/compile-syntax)" @@ -55877,16 +56069,16 @@ static const char *startup_source = "(begin" " (if (syntax?$1 s_3) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_3)))" "((1/current-compile) s_3 #f)))))" -"(define-values(1/expand)(lambda(s_169)(begin 'expand(expand$1(intro s_169)(1/current-namespace) #t))))" +"(define-values(1/expand)(lambda(s_167)(begin 'expand(expand$1(intro s_167)(1/current-namespace) #t))))" "(define-values" "(1/expand-syntax)" -"(lambda(s_145)" +"(lambda(s_143)" "(begin" " 'expand-syntax" "(begin" -" (if (syntax?$1 s_145) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_145)))" -"(expand$1 s_145(1/current-namespace) #t)))))" -"(define-values(1/expand-once)(lambda(s_70)(begin 'expand-once(expand-once$1(intro s_70)))))" +" (if (syntax?$1 s_143) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_143)))" +"(expand$1 s_143(1/current-namespace) #t)))))" +"(define-values(1/expand-once)(lambda(s_68)(begin 'expand-once(expand-once$1(intro s_68)))))" "(define-values" "(1/expand-syntax-once)" "(lambda(s_9)" @@ -55897,15 +56089,15 @@ static const char *startup_source = "(expand-once$1 s_9)))))" "(define-values" "(1/expand-to-top-form)" -"(lambda(s_480)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_480)))))" +"(lambda(s_466)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_466)))))" "(define-values" "(1/expand-syntax-to-top-form)" -"(lambda(s_428)" +"(lambda(s_417)" "(begin" " 'expand-syntax-to-top-form" "(begin" -" (if (syntax?$1 s_428) (void) (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_428)))" -"(expand-to-top-form$1 s_428)))))" +" (if (syntax?$1 s_417) (void) (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_417)))" +"(expand-to-top-form$1 s_417)))))" "(define-values" "(intro)" "(let-values(((intro4_0)" @@ -55913,51 +56105,51 @@ static const char *startup_source = "(begin" " 'intro4" "(let-values(((given-s_1) given-s3_0))" -"(let-values(((ns_112)(if ns2_1 ns1_6(1/current-namespace))))" +"(let-values(((ns_51)(if ns2_1 ns1_6(1/current-namespace))))" "(let-values()" "(let-values(((s_10)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" -"(1/namespace-syntax-introduce s_10 ns_112)))))))))" +"(1/namespace-syntax-introduce s_10 ns_51)))))))))" "(case-lambda((given-s_2)(begin(intro4_0 given-s_2 #f #f)))((given-s_3 ns1_7)(intro4_0 given-s_3 ns1_7 #t)))))" "(define-values" "(declare-primitive-module!)" -"(lambda(name_71 inst_7 in-ns_0 protected_0 cross-phase-persistent?_3)" +"(lambda(name_72 inst_7 in-ns_0 protected_0 cross-phase-persistent?_3)" "(begin" -"(let-values(((mpi_48)(1/module-path-index-join(list 'quote name_71) #f)))" +"(let-values(((mpi_48)(1/module-path-index-join(list 'quote name_72) #f)))" "(let-values(((in-ns1_0) in-ns_0)" "((temp2_6)" -"(let-values(((temp4_6)(1/current-module-declare-source))" +"(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)" +"((temp8_5)" "(hasheqv" " 0" -"(let-values(((lst_300)(1/instance-variable-names inst_7)))" +"(let-values(((lst_76)(1/instance-variable-names inst_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_300)))" -"((letrec-values(((for-loop_203)" -"(lambda(table_166 lst_95)" +"(let-values()(check-list lst_76)))" +"((letrec-values(((for-loop_92)" +"(lambda(table_201 lst_77)" "(begin" " 'for-loop" -"(if(pair? lst_95)" -"(let-values(((sym_95)(unsafe-car lst_95))" -"((rest_45)(unsafe-cdr lst_95)))" -"(let-values(((table_206)" -"(let-values(((table_207) table_166))" -"(let-values(((table_167)" +"(if(pair? lst_77)" +"(let-values(((sym_61)(unsafe-car lst_77))" +"((rest_35)(unsafe-cdr lst_77)))" +"(let-values(((table_207)" +"(let-values(((table_167) table_201))" +"(let-values(((table_168)" "(let-values()" -"(let-values(((key_86" -" val_76)" +"(let-values(((key_31" +" val_75)" "(let-values()" -"(let-values(((binding_27)" +"(let-values(((binding_28)" "(let-values(((mpi10_0)" " mpi_48)" -"((temp11_6)" +"((temp11_7)" " 0)" "((sym12_0)" -" sym_95))" +" sym_61))" "(make-module-binding22.1" " #f" " #f" @@ -55978,77 +56170,77 @@ static const char *startup_source = " #f" " #f" " mpi10_0" -" temp11_6" +" temp11_7" " sym12_0))))" "(values" -" sym_95" +" sym_61" "(if(hash-ref" " protected_0" -" sym_95" +" sym_61" " #f)" "(provided1.1" -" binding_27" +" binding_28" " #t" " #f)" -" binding_27))))))" +" binding_28))))))" "(hash-set" -" table_207" -" key_86" -" val_76)))))" -"(values table_167)))))" +" table_167" +" key_31" +" val_75)))))" +"(values table_168)))))" "(if(not #f)" -"(for-loop_203 table_206 rest_45)" -" table_206)))" -" table_166)))))" -" for-loop_203)" +"(for-loop_92 table_207 rest_35)" +" table_207)))" +" table_201)))))" +" for-loop_92)" " '#hash()" -" lst_300)))))" +" lst_76)))))" "((temp9_6)" "(lambda(data-box_5" -" ns_113" -" phase-shift_19" +" ns_45" +" phase-shift_20" " phase-level_22" -" self_30" +" self_28" " bulk-binding-registry_18" -" insp_19)" +" insp_20)" "(if(= 0 phase-level_22)" "(let-values()" "(begin" -"(let-values(((lst_297)(1/instance-variable-names inst_7)))" +"(let-values(((lst_23)(1/instance-variable-names inst_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_297)))" -"((letrec-values(((for-loop_220)" -"(lambda(lst_262)" +"(let-values()(check-list lst_23)))" +"((letrec-values(((for-loop_20)" +"(lambda(lst_267)" "(begin" " 'for-loop" -"(if(pair? lst_262)" -"(let-values(((sym_96)(unsafe-car lst_262))" -"((rest_172)(unsafe-cdr lst_262)))" +"(if(pair? lst_267)" +"(let-values(((sym_96)(unsafe-car lst_267))" +"((rest_176)(unsafe-cdr lst_267)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((val_77)" +"(let-values(((val_76)" "(1/instance-variable-value" " inst_7" " sym_96)))" "(namespace-set-variable!" -" ns_113" +" ns_45" " 0" " sym_96" -" val_77)))" +" val_76)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_220 rest_172)" +"(for-loop_20 rest_176)" "(values))))" "(values))))))" -" for-loop_220)" -" lst_297)))" +" for-loop_20)" +" lst_23)))" "(void)))" "(void)))))" "(make-module39.1" @@ -56075,28 +56267,28 @@ static const char *startup_source = " #f" " #f" " #f" -" temp8_4" +" temp8_5" " #f" " #f" " mpi7_0" -" temp4_6" +" temp4_0" " #t" " #f" " #f" " #f" " #f)))" -"((temp3_9)(substitute-module-declare-name name_71)))" +"((temp3_9)(substitute-module-declare-name name_72)))" "(declare-module!58.1 #f #f in-ns1_0 temp2_6 temp3_9))))))" "(define-values" "(1/prop:missing-module 1/exn:missing-module? 1/exn:missing-module-accessor)" "(make-struct-type-property" " 'missing-module" -"(lambda(v_30 info_6)" +"(lambda(v_27 info_6)" "(begin" -"(if(if(procedure? v_30)(procedure-arity-includes? v_30 1) #f)" +"(if(if(procedure? v_27)(procedure-arity-includes? v_27 1) #f)" "(void)" -" (let-values () (raise-argument-error 'guard-for-prop:missing-module \"(procedure-arity-includes/c 1)\" v_30)))" -" v_30))))" +" (let-values () (raise-argument-error 'guard-for-prop:missing-module \"(procedure-arity-includes/c 1)\" v_27)))" +" v_27))))" "(define-values" "(1/struct:exn:fail:filesystem:missing-module" " 1/make-exn:fail:filesystem:missing-module" @@ -56112,7 +56304,7 @@ static const char *startup_source = " 0" " #f" "(list" -"(cons 1/prop:missing-module(lambda(e_81)(1/exn:fail:filesystem:missing-module-path e_81))))" +"(cons 1/prop:missing-module(lambda(e_84)(1/exn:fail:filesystem:missing-module-path e_84))))" " #f" " #f" " '(0)" @@ -56133,7 +56325,7 @@ static const char *startup_source = " 1" " 0" " #f" -"(list(cons 1/prop:missing-module(lambda(e_82)(1/exn:fail:syntax:missing-module-path e_82))))" +"(list(cons 1/prop:missing-module(lambda(e_72)(1/exn:fail:syntax:missing-module-path e_72))))" " #f" " #f" " '(0)" @@ -56144,13 +56336,13 @@ static const char *startup_source = "(1/current-module-path-for-load)" "(make-parameter" " #f" -"(lambda(v_181)" +"(lambda(v_184)" "(begin" -"(if(let-values(((or-part_36)(not v_181)))" -"(if or-part_36" -" or-part_36" -"(let-values(((or-part_37)(1/module-path? v_181)))" -"(if or-part_37 or-part_37(if(syntax?$1 v_181)(1/module-path?(syntax->datum$1 v_181)) #f)))))" +"(if(let-values(((or-part_171)(not v_184)))" +"(if or-part_171" +" or-part_171" +"(let-values(((or-part_141)(1/module-path? v_184)))" +"(if or-part_141 or-part_141(if(syntax?$1 v_184)(1/module-path?(syntax->datum$1 v_184)) #f)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -56159,11 +56351,11 @@ static const char *startup_source = " \"(or/c module-path?\"" " \" (and/c syntax? (lambda (stx) (module-path? (syntax->datum stx))))\"" " \" #f)\")" -" v_181)))" -" v_181))))" +" v_184)))" +" v_184))))" "(define-values" "(maybe-raise-missing-module)" -"(lambda(name_72 filename_0 pre_0 rel_0 post_0 errstr_0)" +"(lambda(name_73 filename_0 pre_0 rel_0 post_0 errstr_0)" "(begin" "(let-values(((path_11)(1/current-module-path-for-load)))" "(if path_11" @@ -56179,7 +56371,7 @@ 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)" +"(if(syntax-srcloc path_11)(srcloc->string(syntax-srcloc path_11)) name_73)" "(syntax->datum$1 path_11)" " filename_0" " pre_0" @@ -56198,7 +56390,7 @@ static const char *startup_source = " \" module path: ~a\\n\"" " \" path: ~a~a~a~a\\n\"" " \" system error: ~a\")" -" name_72" +" name_73" " path_11" " filename_0" " pre_0" @@ -56211,15 +56403,15 @@ static const char *startup_source = "(define-values" "(1/local-expand)" "(let-values(((local-expand6_0)" -"(lambda(s3_2 context4_0 stop-ids5_0 intdefs1_0 intdefs2_0)" +"(lambda(s3_3 context4_0 stop-ids5_0 intdefs1_0 intdefs2_0)" "(begin" " 'local-expand6" -"(let-values(((s_2) s3_2))" +"(let-values(((s_2) s3_3))" "(let-values(((context_10) context4_0))" "(let-values(((stop-ids_2) stop-ids5_0))" "(let-values(((intdefs_3)(if intdefs2_0 intdefs1_0 #f)))" "(let-values()" -"(let-values(((temp59_4) 'local-expand)" +"(let-values(((temp59_3) 'local-expand)" "((s60_0) s_2)" "((context61_0) context_10)" "((stop-ids62_0) stop-ids_2)" @@ -56237,29 +56429,29 @@ static const char *startup_source = " #f" " #f" " #f" -" temp59_4" +" temp59_3" " s60_0" " context61_0" " stop-ids62_0" " intdefs63_0" " #t)))))))))))" "(case-lambda" -"((s_170 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_170 context_1 stop-ids_3 #f #f)))" -"((s_147 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_147 context_11 stop-ids_4 intdefs1_1 #t)))))" +"((s_168 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_168 context_1 stop-ids_3 #f #f)))" +"((s_145 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_145 context_11 stop-ids_4 intdefs1_1 #t)))))" "(define-values" "(1/local-expand/capture-lifts)" "(let-values(((local-expand/capture-lifts15_0)" "(lambda(s12_2 context13_0 stop-ids14_0 intdefs8_0 lift-key9_0 intdefs10_0 lift-key11_0)" "(begin" " 'local-expand/capture-lifts15" -"(let-values(((s_432) s12_2))" +"(let-values(((s_422) s12_2))" "(let-values(((context_12) context13_0))" "(let-values(((stop-ids_5) stop-ids14_0))" "(let-values(((intdefs_4)(if intdefs10_0 intdefs8_0 #f)))" "(let-values(((lift-key_4)(if lift-key11_0 lift-key9_0(generate-lift-key))))" "(let-values()" "(let-values(((temp64_2) 'local-expand)" -"((s65_0) s_432)" +"((s65_0) s_422)" "((context66_0) context_12)" "((stop-ids67_0) stop-ids_5)" "((intdefs68_0) intdefs_4)" @@ -56285,25 +56477,25 @@ static const char *startup_source = " intdefs68_0" " #t))))))))))))" "(case-lambda" -"((s_6 context_13 stop-ids_6)" -"(begin 'local-expand/capture-lifts(local-expand/capture-lifts15_0 s_6 context_13 stop-ids_6 #f #f #f #f)))" -"((s_182 context_14 stop-ids_7 intdefs_5 lift-key9_1)" -"(local-expand/capture-lifts15_0 s_182 context_14 stop-ids_7 intdefs_5 lift-key9_1 #t #t))" -"((s_183 context_15 stop-ids_8 intdefs8_1)" -"(local-expand/capture-lifts15_0 s_183 context_15 stop-ids_8 intdefs8_1 #f #t #f)))))" +"((s_73 context_13 stop-ids_6)" +"(begin 'local-expand/capture-lifts(local-expand/capture-lifts15_0 s_73 context_13 stop-ids_6 #f #f #f #f)))" +"((s_173 context_14 stop-ids_7 intdefs_5 lift-key9_1)" +"(local-expand/capture-lifts15_0 s_173 context_14 stop-ids_7 intdefs_5 lift-key9_1 #t #t))" +"((s_182 context_15 stop-ids_8 intdefs8_1)" +"(local-expand/capture-lifts15_0 s_182 context_15 stop-ids_8 intdefs8_1 #f #t #f)))))" "(define-values" "(1/local-transformer-expand)" "(let-values(((local-transformer-expand22_0)" "(lambda(s19_1 context20_0 stop-ids21_0 intdefs17_0 intdefs18_0)" "(begin" " 'local-transformer-expand22" -"(let-values(((s_161) s19_1))" +"(let-values(((s_305) s19_1))" "(let-values(((context_16) context20_0))" "(let-values(((stop-ids_9) stop-ids21_0))" "(let-values(((intdefs_6)(if intdefs18_0 intdefs17_0 #f)))" "(let-values()" "(let-values(((temp71_4) 'local-expand)" -"((s72_0) s_161)" +"((s72_0) s_305)" "((context73_0) context_16)" "((stop-ids74_0) stop-ids_9)" "((intdefs75_0) intdefs_6)" @@ -56328,24 +56520,24 @@ static const char *startup_source = " intdefs75_0" " #t)))))))))))" "(case-lambda" -"((s_180 context_17 stop-ids_10)" -"(begin 'local-transformer-expand(local-transformer-expand22_0 s_180 context_17 stop-ids_10 #f #f)))" -"((s_11 context_18 stop-ids_11 intdefs17_1)" -"(local-transformer-expand22_0 s_11 context_18 stop-ids_11 intdefs17_1 #t)))))" +"((s_467 context_17 stop-ids_10)" +"(begin 'local-transformer-expand(local-transformer-expand22_0 s_467 context_17 stop-ids_10 #f #f)))" +"((s_409 context_18 stop-ids_11 intdefs17_1)" +"(local-transformer-expand22_0 s_409 context_18 stop-ids_11 intdefs17_1 #t)))))" "(define-values" "(1/local-transformer-expand/capture-lifts)" "(let-values(((local-transformer-expand/capture-lifts31_0)" -"(lambda(s28_2 context29_0 stop-ids30_0 intdefs24_0 lift-key25_0 intdefs26_1 lift-key27_0)" +"(lambda(s28_3 context29_0 stop-ids30_0 intdefs24_0 lift-key25_0 intdefs26_1 lift-key27_0)" "(begin" " 'local-transformer-expand/capture-lifts31" -"(let-values(((s_185) s28_2))" +"(let-values(((s_16) s28_3))" "(let-values(((context_19) context29_0))" "(let-values(((stop-ids_12) stop-ids30_0))" "(let-values(((intdefs_7)(if intdefs26_1 intdefs24_0 #f)))" "(let-values(((lift-key_5)(if lift-key27_0 lift-key25_0(generate-lift-key))))" "(let-values()" "(let-values(((temp77_2) 'local-expand)" -"((s78_0) s_185)" +"((s78_0) s_16)" "((context79_0) context_19)" "((stop-ids80_0) stop-ids_12)" "((intdefs81_0) intdefs_7)" @@ -56372,14 +56564,14 @@ static const char *startup_source = " intdefs81_0" " #t))))))))))))" "(case-lambda" -"((s_304 context_20 stop-ids_13)" +"((s_468 context_20 stop-ids_13)" "(begin" " 'local-transformer-expand/capture-lifts" -"(local-transformer-expand/capture-lifts31_0 s_304 context_20 stop-ids_13 #f #f #f #f)))" -"((s_481 context_21 stop-ids_14 intdefs_8 lift-key25_1)" -"(local-transformer-expand/capture-lifts31_0 s_481 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" -"((s_482 context_22 stop-ids_15 intdefs24_1)" -"(local-transformer-expand/capture-lifts31_0 s_482 context_22 stop-ids_15 intdefs24_1 #f #t #f)))))" +"(local-transformer-expand/capture-lifts31_0 s_468 context_20 stop-ids_13 #f #f #f #f)))" +"((s_405 context_21 stop-ids_14 intdefs_8 lift-key25_1)" +"(local-transformer-expand/capture-lifts31_0 s_405 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" +"((s_469 context_22 stop-ids_15 intdefs24_1)" +"(local-transformer-expand/capture-lifts31_0 s_469 context_22 stop-ids_15 intdefs24_1 #f #t #f)))))" "(define-values" "(1/syntax-local-expand-expression)" "(let-values(((syntax-local-expand-expression36_0)" @@ -56389,9 +56581,9 @@ static const char *startup_source = "(let-values(((s_470) s35_0))" "(let-values(((opaque-only?_0)(if opaque-only?34_0 opaque-only?33_0 #f)))" "(let-values()" -"(let-values(((exp-s_0)" +"(let-values(((exp-s_12)" "(let-values(((temp85_2) 'syntax-local-expand-expression)" -"((s86_0) s_470)" +"((s86_1) s_470)" "((temp87_3) 'expression)" "((null88_0) null)" "((temp89_6) #f)" @@ -56412,33 +56604,35 @@ static const char *startup_source = " temp92_2" " #t" " temp85_2" -" s86_0" +" s86_1" " temp87_3" " null88_0" " temp89_6" " #t))))" -"(let-values(((ctx_71)(let-values()(get-current-expand-context17.1 #f #f #f #f))))" +"(let-values(((ctx_73)(let-values()(get-current-expand-context17.1 #f #f #f #f))))" "(let-values(((ae_1)" "(flip-introduction-scopes" "(datum->syntax$1" " #f" "(already-expanded1.1" -"(if(parsed? exp-s_0) exp-s_0(flip-introduction-scopes exp-s_0 ctx_71))" -"(expand-context-binding-layer ctx_71)))" -" ctx_71)))" +"(if(parsed? exp-s_12)" +" exp-s_12" +"(flip-introduction-scopes exp-s_12 ctx_73))" +"(expand-context-binding-layer ctx_73)))" +" ctx_73)))" "(begin" -"(let-values(((obs_30)(expand-context-observer ctx_71)))" -"(if obs_30" -"(let-values()(let-values()(call-expand-observe obs_30 'opaque-expr ae_1)))" +"(let-values(((obs_59)(expand-context-observer ctx_73)))" +"(if obs_59" +"(let-values()(let-values()(call-expand-observe obs_59 'opaque-expr ae_1)))" "(void)))" -"(let-values(((obs_10)(expand-context-observer ctx_71)))" -"(if obs_10" -"(let-values()(let-values()(call-expand-observe obs_10 'exit-local exp-s_0)))" +"(let-values(((obs_60)(expand-context-observer ctx_73)))" +"(if obs_60" +"(let-values()(let-values()(call-expand-observe obs_60 'exit-local exp-s_12)))" "(void)))" -"(values(if(not opaque-only?_0) exp-s_0 #f) ae_1))))))))))))" +"(values(if(not opaque-only?_0) exp-s_12 #f) ae_1))))))))))))" "(case-lambda" -"((s_26)(begin 'syntax-local-expand-expression(syntax-local-expand-expression36_0 s_26 #f #f)))" -"((s_308 opaque-only?33_1)(syntax-local-expand-expression36_0 s_308 opaque-only?33_1 #t)))))" +"((s_28)(begin 'syntax-local-expand-expression(syntax-local-expand-expression36_0 s_28 #f #f)))" +"((s_29 opaque-only?33_1)(syntax-local-expand-expression36_0 s_29 opaque-only?33_1 #t)))))" "(define-values" "(do-local-expand56.1)" "(lambda(as-transformer?39_0" @@ -56461,7 +56655,7 @@ static const char *startup_source = " intdefs51_0)" "(begin" " 'do-local-expand56" -"(let-values(((who_33) who52_1))" +"(let-values(((who_32) who52_1))" "(let-values(((s-or-s-exp_0) s-or-s-exp53_0))" "(let-values(((context_23) context54_0))" "(let-values(((stop-ids_16) stop-ids55_0))" @@ -56472,8 +56666,8 @@ static const char *startup_source = "(let-values(((lift-key_6)" "(if lift-key47_0" " lift-key41_0" -"(if(let-values(((or-part_51) capture-lifts?_0))" -"(if or-part_51 or-part_51 as-transformer?_5))" +"(if(let-values(((or-part_175) capture-lifts?_0))" +"(if or-part_175 or-part_175 as-transformer?_5))" "(generate-lift-key)" " #f))))" "(let-values(((track-to-be-defined?_1)" @@ -56481,12 +56675,12 @@ static const char *startup_source = "(let-values(((skip-log-exit?_0)(if skip-log-exit?49_0 skip-log-exit?43_0 #f)))" "(let-values()" "(let-values()" -"(let-values(((s_310)(datum->syntax$1 #f s-or-s-exp_0)))" +"(let-values(((s_388)(datum->syntax$1 #f s-or-s-exp_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_363)(list? context_23)))" -"(if or-part_363" -" or-part_363" +"(if(let-values(((or-part_208)(list? context_23)))" +"(if or-part_208" +" or-part_208" "(memq" " context_23" "(if as-transformer?_5" @@ -56495,7 +56689,7 @@ static const char *startup_source = "(void)" "(let-values()" "(raise-argument-error" -" who_33" +" who_32" "(if as-transformer?_5" " \"(or/c 'expression 'top-level list?)\"" " \"(or/c 'expression 'top-level 'module 'module-begin list?)\")" @@ -56503,48 +56697,49 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_364)(not stop-ids_16)))" -"(if or-part_364" -" or-part_364" +"(if(let-values(((or-part_356)(not stop-ids_16)))" +"(if or-part_356" +" or-part_356" "(if(list? stop-ids_16)" "(andmap2 identifier? stop-ids_16)" " #f)))" "(void)" "(let-values()" "(raise-argument-error" -" who_33" +" who_32" " \"(or/c (listof identifier?) #f)\"" " stop-ids_16)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_365)(not intdefs_9)))" -"(if or-part_365" -" or-part_365" -"(let-values(((or-part_366)" +"(if(let-values(((or-part_364)(not intdefs_9)))" +"(if or-part_364" +" or-part_364" +"(let-values(((or-part_57)" "(1/internal-definition-context? intdefs_9)))" -"(if or-part_366" -" or-part_366" +"(if or-part_57" +" or-part_57" "(if(list? intdefs_9)" "(andmap2 1/internal-definition-context? intdefs_9)" " #f)))))" "(void)" "(let-values()" "(raise-argument-error" -" who_33" +" who_32" " \"(or/c #f internal-definition-context? (listof internal-definition-context?))\"" " intdefs_9)))" "(values))))" -"(let-values(((ctx_72)" -"(let-values(((who93_0) who_33))" +"(let-values(((ctx_74)" +"(let-values(((who93_0) who_32))" "(get-current-expand-context17.1 #f #f who93_0 #t))))" -"(let-values(((phase_141)" +"(let-values(((phase_139)" "(if as-transformer?_5" -"(add1(expand-context-phase ctx_72))" -"(expand-context-phase ctx_72))))" +"(add1(expand-context-phase ctx_74))" +"(expand-context-phase ctx_74))))" "(let-values(((local-ctx_0)" -"(let-values(((context95_0) context_23)" -"((phase96_0) phase_141)" +"(let-values(((ctx94_0) ctx_74)" +"((context95_0) context_23)" +"((phase96_0) phase_139)" "((intdefs97_0) intdefs_9)" "((stop-ids98_0) stop-ids_16)" "((to-parsed-ok?99_0) to-parsed-ok?_1)" @@ -56561,29 +56756,29 @@ static const char *startup_source = " #t" " track-to-be-defined?100_0" " #t" -" ctx_72))))" +" ctx94_0))))" "(let-values((()" "(begin" "(namespace-visit-available-modules!" -"(expand-context-namespace ctx_72)" -" phase_141)" +"(expand-context-namespace ctx_74)" +" phase_139)" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_59)" +"(let-values(((obs_61)" "(expand-context-observer local-ctx_0)))" -"(if obs_59" +"(if obs_61" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_59" +" obs_61" " 'enter-local" -" s_310)))" +" s_388)))" "(void)))" "(values))))" "(let-values(((input-s_1)" "(let-values(((temp101_4)" -"(flip-introduction-scopes s_310 ctx_72))" +"(flip-introduction-scopes s_388 ctx_74))" "((intdefs102_0) intdefs_9))" "(add-intdef-scopes21.1" " #f" @@ -56596,26 +56791,26 @@ static const char *startup_source = "(begin" "(if as-transformer?_5" "(let-values()" -"(let-values(((obs_60)" +"(let-values(((obs_62)" "(expand-context-observer" " local-ctx_0)))" -"(if obs_60" +"(if obs_62" "(let-values()" "(let-values()" -"(call-expand-observe obs_60 'phase-up)))" +"(call-expand-observe obs_62 'phase-up)))" "(void))))" "(void))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_61)" +"(let-values(((obs_63)" "(expand-context-observer" " local-ctx_0)))" -"(if obs_61" +"(if obs_63" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_61" +" obs_63" " 'local-pre" " input-s_1)))" "(void)))" @@ -56624,14 +56819,14 @@ static const char *startup_source = "(begin" "(if stop-ids_16" "(let-values()" -"(let-values(((obs_62)" +"(let-values(((obs_64)" "(expand-context-observer" " local-ctx_0)))" -"(if obs_62" +"(if obs_64" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_62" +" obs_64" " 'start)))" "(void))))" "(void))" @@ -56639,7 +56834,9 @@ static const char *startup_source = "(let-values(((output-s_0)" "(if(if as-transformer?_5 capture-lifts?_0 #f)" "(let-values()" -"(let-values(((context105_0) context_23)" +"(let-values(((input-s103_0) input-s_1)" +"((local-ctx104_0) local-ctx_0)" +"((context105_0) context_23)" "((temp106_4) #f)" "((temp107_0) #t)" "((lift-key108_0) lift-key_6)" @@ -56658,11 +56855,14 @@ static const char *startup_source = " #t" " lift-key108_0" " #t" -" input-s_1" -" local-ctx_0)))" +" input-s103_0" +" local-ctx104_0)))" "(if as-transformer?_5" "(let-values()" -"(let-values(((context113_0) context_23)" +"(let-values(((input-s111_0) input-s_1)" +"((local-ctx112_0)" +" local-ctx_0)" +"((context113_0) context_23)" "((temp114_3) #f)" "((temp115_2)" "(eq? 'top-level context_23))" @@ -56681,11 +56881,14 @@ static const char *startup_source = " #t" " lift-key116_0" " #t" -" input-s_1" -" local-ctx_0)))" +" input-s111_0" +" local-ctx112_0)))" "(if capture-lifts?_0" "(let-values()" -"(let-values(((temp120_3) #t)" +"(let-values(((input-s118_0) input-s_1)" +"((local-ctx119_0)" +" local-ctx_0)" +"((temp120_3) #t)" "((lift-key121_0)" " lift-key_6)" "((temp122_3) #t))" @@ -56698,8 +56901,8 @@ static const char *startup_source = " #f" " lift-key121_0" " #t" -" input-s_1" -" local-ctx_0)))" +" input-s118_0" +" local-ctx119_0)))" "(let-values()" "(let-values(((input-s123_0) input-s_1)" "((local-ctx124_0)" @@ -56713,14 +56916,14 @@ static const char *startup_source = " local-ctx124_0))))))))" "(let-values((()" "(begin" -"(let-values(((obs_63)" +"(let-values(((obs_65)" "(expand-context-observer" " local-ctx_0)))" -"(if obs_63" +"(if obs_65" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_63" +" obs_65" " 'local-post" " output-s_0)))" "(void)))" @@ -56730,19 +56933,19 @@ static const char *startup_source = " output-s_0" "(flip-introduction-scopes" " output-s_0" -" ctx_72))))" +" ctx_74))))" "(begin" "(if skip-log-exit?_0" "(void)" "(let-values()" -"(let-values(((obs_24)" +"(let-values(((obs_66)" "(expand-context-observer" " local-ctx_0)))" -"(if obs_24" +"(if obs_66" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_24" +" obs_66" " 'exit-local" " result-s_8)))" "(void)))))" @@ -56758,10 +56961,10 @@ static const char *startup_source = "(define-values" "(1/syntax-arm)" "(let-values(((syntax-arm6_0)" -"(lambda(s5_2 maybe-insp1_0 use-mode?2_0 maybe-insp3_0 use-mode?4_0)" +"(lambda(s5_3 maybe-insp1_0 use-mode?2_0 maybe-insp3_0 use-mode?4_0)" "(begin" " 'syntax-arm6" -"(let-values(((s_3) s5_2))" +"(let-values(((s_3) s5_3))" "(let-values(((maybe-insp_0)(if maybe-insp3_0 maybe-insp1_0 #f)))" "(let-values(((use-mode?_0)(if use-mode?4_0 use-mode?2_0 #f)))" "(let-values()" @@ -56782,37 +56985,37 @@ static const char *startup_source = " \"(or/c inspector? #f)\"" " maybe-insp_0)))" "(values))))" -"(let-values(((insp_20)(inspector-for-taint maybe-insp_0)))" +"(let-values(((insp_21)(inspector-for-taint maybe-insp_0)))" "(if use-mode?_0" "(let-values()" "(taint-dispatch" " s_3" -"(lambda(s_480)(syntax-arm$1 s_480 insp_20))" +"(lambda(s_466)(syntax-arm$1 s_466 insp_21))" "(1/syntax-local-phase-level)))" -"(let-values()(syntax-arm$1 s_3 insp_20))))))))))))))" +"(let-values()(syntax-arm$1 s_3 insp_21))))))))))))))" "(case-lambda" -"((s_428)(begin 'syntax-arm(syntax-arm6_0 s_428 #f #f #f #f)))" -"((s_483 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_483 maybe-insp_1 use-mode?2_1 #t #t))" -"((s_484 maybe-insp1_1)(syntax-arm6_0 s_484 maybe-insp1_1 #f #t #f)))))" +"((s_417)(begin 'syntax-arm(syntax-arm6_0 s_417 #f #f #f #f)))" +"((s_471 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_471 maybe-insp_1 use-mode?2_1 #t #t))" +"((s_472 maybe-insp1_1)(syntax-arm6_0 s_472 maybe-insp1_1 #f #t #f)))))" "(define-values" "(1/syntax-disarm)" -"(lambda(s_415 maybe-insp_2)" +"(lambda(s_424 maybe-insp_2)" "(begin" " 'syntax-disarm" "(let-values((()" "(begin" -"(if(syntax?$1 s_415)" +"(if(syntax?$1 s_424)" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_415)))" +" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_424)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_294)(not maybe-insp_2)))" -"(if or-part_294 or-part_294(inspector? maybe-insp_2)))" +"(if(let-values(((or-part_295)(not maybe-insp_2)))" +"(if or-part_295 or-part_295(inspector? maybe-insp_2)))" "(void)" " (let-values () (raise-argument-error 'syntax-disarm \"(or/c inspector? #f)\" maybe-insp_2)))" "(values))))" -"(let-values(((insp_21)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_415 insp_21)))))))" +"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_424 insp_22)))))))" "(define-values" "(1/syntax-rearm)" "(let-values(((syntax-rearm12_0)" @@ -56834,29 +57037,29 @@ static const char *startup_source = "(let-values()" "(taint-dispatch" " s_40" -"(lambda(s_433)(syntax-rearm$1 s_433 from-s_2))" +"(lambda(s_423)(syntax-rearm$1 s_423 from-s_2))" "(1/syntax-local-phase-level)))" "(let-values()(syntax-rearm$1 s_40 from-s_2))))))))))))" "(case-lambda" -"((s_181 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_181 from-s_3 #f #f)))" -"((s_173 from-s_4 use-mode?8_1)(syntax-rearm12_0 s_173 from-s_4 use-mode?8_1 #t)))))" +"((s_179 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_179 from-s_3 #f #f)))" +"((s_171 from-s_4 use-mode?8_1)(syntax-rearm12_0 s_171 from-s_4 use-mode?8_1 #t)))))" "(define-values" "(1/syntax-taint)" -"(lambda(s_160)" +"(lambda(s_159)" "(begin" " 'syntax-taint" "(begin" -" (if (syntax?$1 s_160) (void) (let-values () (raise-argument-error 'syntax-taint \"syntax?\" s_160)))" -"(syntax-taint$1 s_160)))))" +" (if (syntax?$1 s_159) (void) (let-values () (raise-argument-error 'syntax-taint \"syntax?\" s_159)))" +"(syntax-taint$1 s_159)))))" "(define-values" "(inspector-for-taint)" "(lambda(maybe-insp_3)" "(begin" -"(let-values(((or-part_89) maybe-insp_3))" -"(if or-part_89" -" or-part_89" -"(let-values(((or-part_90)(current-module-code-inspector)))" -"(if or-part_90 or-part_90(current-code-inspector))))))))" +"(let-values(((or-part_81) maybe-insp_3))" +"(if or-part_81" +" or-part_81" +"(let-values(((or-part_82)(current-module-code-inspector)))" +"(if or-part_82 or-part_82(current-code-inspector))))))))" "(define-values" "(1/variable-reference->empty-namespace)" "(lambda(vr_0)" @@ -56866,7 +57069,7 @@ 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(((temp1_4)(1/variable-reference->namespace vr_0)))(new-namespace9.1 #f #f #f #f temp1_4 #t))))))" +"(let-values(((temp1_3)(1/variable-reference->namespace vr_0)))(new-namespace9.1 #f #f #f #f temp1_3 #t))))))" "(define-values" "(1/variable-reference->namespace)" "(lambda(vr_1)" @@ -56926,7 +57129,7 @@ static const char *startup_source = "(let-values()" " (raise-argument-error 'variable-reference->module-source \"variable-reference?\" vr_4)))" "(values))))" -"(let-values(((ns_114)(1/variable-reference->namespace vr_4)))(namespace-source-name ns_114))))))" +"(let-values(((ns_115)(1/variable-reference->namespace vr_4)))(namespace-source-name ns_115))))))" "(define-values" "(1/variable-reference->phase)" "(lambda(vr_5)" @@ -56965,9 +57168,9 @@ static const char *startup_source = " \"variable reference\"" " vr_7))" "(void))" -"(let-values(((or-part_223)(namespace-declaration-inspector(1/variable-reference->namespace vr_7))))" -"(if or-part_223" -" or-part_223" +"(let-values(((or-part_218)(namespace-declaration-inspector(1/variable-reference->namespace vr_7))))" +"(if or-part_218" +" or-part_218" "(raise-arguments-error" " 'variable-reference->module-declaration-inspector" " \"given variable reference is not from a module\")))))))" @@ -57251,14 +57454,14 @@ static const char *startup_source = "(lambda(eval1_0 main-ids2_0 read-ids3_0 ns7_1)" "(begin" " 'declare-kernel-module!8" -"(let-values(((ns_84) ns7_1))" +"(let-values(((ns_116) ns7_1))" "(let-values()" "(let-values(((main-ids_0) main-ids2_0))" "(let-values(((read-ids_0) read-ids3_0))" "(let-values()" "(begin" "(let-values(((temp53_5) '#%kernel)" -"((temp54_6) '#%runtime)" +"((temp54_5) '#%runtime)" "((temp55_3)(set-union primitive-ids(set-union main-ids_0 read-ids_0)))" "((temp56_2)" "(hasheq" @@ -57268,10 +57471,10 @@ static const char *startup_source = " 1/variable-reference-constant?" " 'variable-reference-from-unsafe?" " 1/variable-reference-from-unsafe?))" -"((ns57_0) ns_84))" -"(copy-runtime-module!26.1 #f #f temp56_2 #t ns57_0 #f #f #f #f temp55_3 #t temp54_6 #t temp53_5))" -"(let-values(((temp58_5) '#%kernel)((temp59_5) '(#%core #%runtime #%main #%read))((ns60_0) ns_84))" -"(declare-reexporting-module!50.1 ns60_0 #f #f temp58_5 temp59_5)))))))))))" +"((ns57_0) ns_116))" +"(copy-runtime-module!26.1 #f #f temp56_2 #t ns57_0 #f #f #f #f temp55_3 #t temp54_5 #t temp53_5))" +"(let-values(((temp58_4) '#%kernel)((temp59_4) '(#%core #%runtime #%main #%read))((ns60_0) ns_116))" +"(declare-reexporting-module!50.1 ns60_0 #f #f temp58_4 temp59_4)))))))))))" "(define-values" "(copy-runtime-module!26.1)" "(lambda(alts14_0" @@ -57290,30 +57493,30 @@ static const char *startup_source = " name25_0)" "(begin" " 'copy-runtime-module!26" -"(let-values(((name_73) name25_0))" -"(let-values(((to-name_0)(if to18_0 to11_0 name_73)))" -"(let-values(((ns_115) namespace12_0))" +"(let-values(((name_65) name25_0))" +"(let-values(((to-name_0)(if to18_0 to11_0 name_65)))" +"(let-values(((ns_117) namespace12_0))" "(let-values(((skip-syms_0)(if skip20_0 skip13_0(seteq))))" "(let-values(((alts_0)(if alts21_0 alts14_0 '#hasheq())))" "(let-values(((extras_0)(if extras22_0 extras15_0 '#hasheq())))" "(let-values(((primitive?_9)(if primitive?23_0 primitive?16_0 #t)))" "(let-values(((protected?_10)(if protected?24_0 protected?17_0 #f)))" "(let-values()" -"(let-values(((prims_0)(1/primitive-table name_73)))" +"(let-values(((prims_0)(1/primitive-table name_65)))" "(let-values((()" "(begin" -"(let-values(((ht_155) prims_0))" +"(let-values(((ht_154) prims_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_155)))" -"((letrec-values(((for-loop_242)" -"(lambda(i_179)" +"(let-values()(check-in-hash-keys ht_154)))" +"((letrec-values(((for-loop_52)" +"(lambda(i_26)" "(begin" " 'for-loop" -"(if i_179" -"(let-values(((sym_97)" -"(hash-iterate-key ht_155 i_179)))" +"(if i_26" +"(let-values(((sym_88)" +"(hash-iterate-key ht_154 i_26)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -57321,106 +57524,108 @@ static const char *startup_source = "(begin" "(let-values()" "(register-built-in-symbol!" -" sym_97))" +" sym_88))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_242" -"(hash-iterate-next ht_155 i_179))" +"(for-loop_52" +"(hash-iterate-next ht_154 i_26))" "(values))))" "(values))))))" -" for-loop_242)" -"(hash-iterate-first ht_155))))" +" for-loop_52)" +"(hash-iterate-first ht_154))))" "(values))))" "(let-values()" -"(let-values(((ht_156)" -"(let-values(((ht_157) prims_0))" +"(let-values(((ht_155)" +"(let-values(((ht_156) prims_0))" +"(begin" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-in-hash ht_156)))" +"((letrec-values(((for-loop_261)" +"(lambda(table_11 i_176)" +"(begin" +" 'for-loop" +"(if i_176" +"(let-values(((sym_97 val_6)" +"(hash-iterate-key+value" +" ht_156" +" i_176)))" +"(let-values(((table_208)" +"(let-values(((table_209)" +" table_11))" +"(if(set-member?" +" skip-syms_0" +" sym_97)" +" table_209" +"(let-values(((table_210)" +" table_209))" +"(let-values(((table_211)" +"(let-values()" +"(let-values(((key_85" +" val_77)" +"(let-values()" +"(values" +" sym_97" +"(let-values(((or-part_24)" +"(hash-ref" +" alts_0" +" sym_97" +" #f)))" +"(if or-part_24" +" or-part_24" +" val_6))))))" +"(hash-set" +" table_210" +" key_85" +" val_77)))))" +"(values table_211)))))))" +"(if(not #f)" +"(for-loop_261" +" table_208" +"(hash-iterate-next ht_156 i_176))" +" table_208)))" +" table_11)))))" +" for-loop_261)" +" '#hasheq()" +"(hash-iterate-first ht_156))))))" +"(let-values(((ht+extras_0)" +"(let-values(((ht_157) extras_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_157)))" -"((letrec-values(((for-loop_254)" -"(lambda(table_208 i_180)" +"((letrec-values(((for-loop_273)" +"(lambda(ht_158 i_177)" "(begin" " 'for-loop" -"(if i_180" -"(let-values(((sym_98 val_78)" +"(if i_177" +"(let-values(((k_42 v_50)" "(hash-iterate-key+value" " ht_157" -" i_180)))" -"(let-values(((table_13)" -"(let-values(((table_14)" -" table_208))" -"(if(set-member?" -" skip-syms_0" -" sym_98)" -" table_14" -"(let-values(((table_209)" -" table_14))" -"(let-values(((table_210)" -"(let-values()" -"(let-values(((key_87" -" val_79)" -"(let-values()" -"(values" -" sym_98" -"(let-values(((or-part_81)" -"(hash-ref" -" alts_0" -" sym_98" -" #f)))" -"(if or-part_81" -" or-part_81" -" val_78))))))" -"(hash-set" -" table_209" -" key_87" -" val_79)))))" -"(values table_210)))))))" -"(if(not #f)" -"(for-loop_254" -" table_13" -"(hash-iterate-next ht_157 i_180))" -" table_13)))" -" table_208)))))" -" for-loop_254)" -" '#hasheq()" -"(hash-iterate-first ht_157))))))" -"(let-values(((ht+extras_0)" -"(let-values(((ht_158) extras_0))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-in-hash ht_158)))" -"((letrec-values(((for-loop_265)" -"(lambda(ht_159 i_181)" -"(begin" -" 'for-loop" -"(if i_181" -"(let-values(((k_42 v_43)" -"(hash-iterate-key+value" -" ht_158" -" i_181)))" +" i_177)))" +"(let-values(((ht_159)" "(let-values(((ht_160)" -"(let-values(((ht_150)" -" ht_159))" -"(let-values(((ht_161)" +" ht_158))" +"(let-values(((ht_47)" "(let-values()" "(hash-set" -" ht_150" -" k_42" -" v_43))))" -"(values ht_161)))))" -"(if(not #f)" -"(for-loop_265" " ht_160" -"(hash-iterate-next ht_158 i_181))" -" ht_160)))" -" ht_159)))))" -" for-loop_265)" -" ht_156" -"(hash-iterate-first ht_158))))))" -"(let-values(((ns63_0) ns_115)" +" k_42" +" v_50))))" +"(values ht_47)))))" +"(if(not #f)" +"(for-loop_273" +" ht_159" +"(hash-iterate-next ht_157 i_177))" +" ht_159)))" +" ht_158)))))" +" for-loop_273)" +" ht_155" +"(hash-iterate-first ht_157))))))" +"(let-values(((to-name61_0) to-name_0)" +"((ht+extras62_0) ht+extras_0)" +"((ns63_0) ns_117)" "((primitive?64_0) primitive?_9)" "((protected?65_0) protected?_10))" "(declare-hash-based-module!41.1" @@ -57433,8 +57638,8 @@ static const char *startup_source = " #t" " #f" " #f" -" to-name_0" -" ht+extras_0)))))))))))))))))))" +" to-name61_0" +" ht+extras62_0)))))))))))))))))))" "(define-values" "(declare-hash-based-module!41.1)" "(lambda(namespace29_0" @@ -57451,61 +57656,61 @@ static const char *startup_source = "(begin" " 'declare-hash-based-module!41" "(let-values(((name_74) name39_0))" -"(let-values(((ht_162) ht40_0))" -"(let-values(((ns_116) namespace29_0))" +"(let-values(((ht_161) ht40_0))" +"(let-values(((ns_118) namespace29_0))" "(let-values(((primitive?_10)(if primitive?35_0 primitive?30_0 #f)))" "(let-values(((protected?_11)(if protected?36_0 protected?31_0 #f)))" "(let-values(((protected-syms_0)(if protected37_0 protected32_0 null)))" "(let-values(((register-builtin?_0)(if register-builtin?38_0 register-builtin?33_0 #f)))" "(let-values()" -"(let-values(((mpi_50)(1/module-path-index-join(list 'quote name_74) #f)))" -"(let-values(((ns66_1) ns_116)" +"(let-values(((mpi_6)(1/module-path-index-join(list 'quote name_74) #f)))" +"(let-values(((ns66_1) ns_118)" "((temp67_3)" "(let-values(((temp69_5) #t)" "((primitive?70_0) primitive?_10)" "((temp71_5) #t)" "((temp72_2)(not protected?_11))" -"((mpi73_1) mpi_50)" +"((mpi73_1) mpi_6)" "((temp74_2)" "(hasheqv" " 0" -"(let-values(((ht_163) ht_162))" +"(let-values(((ht_162) ht_161))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_163)))" -"((letrec-values(((for-loop_190)" -"(lambda(table_211 i_182)" +"(let-values()(check-in-hash-keys ht_162)))" +"((letrec-values(((for-loop_274)" +"(lambda(table_212 i_178)" "(begin" " 'for-loop" -"(if i_182" -"(let-values(((sym_99)" +"(if i_178" +"(let-values(((sym_98)" "(hash-iterate-key" -" ht_163" -" i_182)))" -"(let-values(((table_36)" -"(let-values(((table_37)" -" table_211))" -"(let-values(((table_212)" +" ht_162" +" i_178)))" +"(let-values(((table_213)" +"(let-values(((table_39)" +" table_212))" +"(let-values(((table_40)" "(let-values()" -"(let-values(((key_88" -" val_80)" +"(let-values(((key_86" +" val_78)" "(let-values()" "(let-values((()" "(begin" "(if register-builtin?_0" "(let-values()" "(register-built-in-symbol!" -" sym_99))" +" sym_98))" "(void))" "(values))))" -"(let-values(((binding_28)" +"(let-values(((binding_29)" "(let-values(((mpi76_0)" -" mpi_50)" +" mpi_6)" "((temp77_3)" " 0)" "((sym78_0)" -" sym_99))" +" sym_98))" "(make-module-binding22.1" " #f" " #f" @@ -57529,62 +57734,62 @@ static const char *startup_source = " temp77_3" " sym78_0))))" "(values" -" sym_99" -"(if(let-values(((or-part_367)" +" sym_98" +"(if(let-values(((or-part_365)" " protected?_11))" -"(if or-part_367" -" or-part_367" +"(if or-part_365" +" or-part_365" "(member" -" sym_99" +" sym_98" " protected-syms_0)))" "(provided1.1" -" binding_28" +" binding_29" " #t" " #f)" -" binding_28)))))))" +" binding_29)))))))" "(hash-set" -" table_37" -" key_88" -" val_80)))))" +" table_39" +" key_86" +" val_78)))))" "(values" -" table_212)))))" +" table_40)))))" "(if(not #f)" -"(for-loop_190" -" table_36" +"(for-loop_274" +" table_213" "(hash-iterate-next" -" ht_163" -" i_182))" -" table_36)))" -" table_211)))))" -" for-loop_190)" +" ht_162" +" i_178))" +" table_213)))" +" table_212)))))" +" for-loop_274)" " '#hash()" -"(hash-iterate-first ht_163))))))" +"(hash-iterate-first ht_162))))))" "((temp75_2)" "(lambda(data-box_6" -" ns_117" -" phase-shift_20" +" ns_119" +" phase-shift_21" " phase-level_23" -" self_10" -" bulk-binding-registry_2" -" insp_22)" +" self_29" +" bulk-binding-registry_19" +" insp_23)" "(if(= 0 phase-level_23)" "(let-values()" "(begin" -"(let-values(((ht_127) ht_162))" +"(let-values(((ht_163) ht_161))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_127)))" -"((letrec-values(((for-loop_266)" -"(lambda(i_183)" +"(let-values()(check-in-hash ht_163)))" +"((letrec-values(((for-loop_275)" +"(lambda(i_179)" "(begin" " 'for-loop" -"(if i_183" -"(let-values(((sym_100 val_81)" +"(if i_179" +"(let-values(((sym_99 val_29)" "(hash-iterate-key+value" -" ht_127" -" i_183)))" +" ht_163" +" i_179)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -57592,21 +57797,21 @@ static const char *startup_source = "(begin" "(let-values()" "(namespace-set-variable!" -" ns_117" +" ns_119" " 0" -" sym_100" -" val_81))" +" sym_99" +" val_29))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_266" +"(for-loop_275" "(hash-iterate-next" -" ht_127" -" i_183))" +" ht_163" +" i_179))" "(values))))" "(values))))))" -" for-loop_266)" -"(hash-iterate-first ht_127))))" +" for-loop_275)" +"(hash-iterate-first ht_163))))" "(void)))" "(void)))))" "(make-module39.1" @@ -57643,36 +57848,36 @@ static const char *startup_source = " #f" " #f" " #f)))" -"((temp68_1)(1/module-path-index-resolve mpi_50)))" +"((temp68_1)(1/module-path-index-resolve mpi_6)))" "(declare-module!58.1 #f #f ns66_1 temp67_3 temp68_1))))))))))))))" "(define-values" "(declare-reexporting-module!50.1)" "(lambda(namespace45_0 reexport?44_0 reexport?46_0 name48_1 require-names49_0)" "(begin" " 'declare-reexporting-module!50" -"(let-values(((name_75) name48_1))" +"(let-values(((name_13) name48_1))" "(let-values(((require-names_0) require-names49_0))" "(let-values(((reexport?_0)(if reexport?46_0 reexport?44_0 #t)))" -"(let-values(((ns_118) namespace45_0))" +"(let-values(((ns_120) namespace45_0))" "(let-values()" -"(let-values(((mpi_51)(1/module-path-index-join(list 'quote name_75) #f)))" +"(let-values(((mpi_50)(1/module-path-index-join(list 'quote name_13) #f)))" "(let-values(((require-mpis_0)" "(reverse$1" -"(let-values(((lst_151) require-names_0))" +"(let-values(((lst_203) require-names_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_151)))" -"((letrec-values(((for-loop_246)" -"(lambda(fold-var_270 lst_301)" +"(let-values()(check-list lst_203)))" +"((letrec-values(((for-loop_200)" +"(lambda(fold-var_41 lst_155)" "(begin" " 'for-loop" -"(if(pair? lst_301)" -"(let-values(((require-name_0)(unsafe-car lst_301))" -"((rest_173)(unsafe-cdr lst_301)))" -"(let-values(((fold-var_138)" -"(let-values(((fold-var_271) fold-var_270))" -"(let-values(((fold-var_272)" +"(if(pair? lst_155)" +"(let-values(((require-name_0)(unsafe-car lst_155))" +"((rest_105)(unsafe-cdr lst_155)))" +"(let-values(((fold-var_277)" +"(let-values(((fold-var_278) fold-var_41))" +"(let-values(((fold-var_279)" "(let-values()" "(cons" "(let-values()" @@ -57681,60 +57886,60 @@ static const char *startup_source = " 'quote" " require-name_0)" " #f))" -" fold-var_271))))" -"(values fold-var_272)))))" +" fold-var_278))))" +"(values fold-var_279)))))" "(if(not #f)" -"(for-loop_246 fold-var_138 rest_173)" -" fold-var_138)))" -" fold-var_270)))))" -" for-loop_246)" +"(for-loop_200 fold-var_277 rest_105)" +" fold-var_277)))" +" fold-var_41)))))" +" for-loop_200)" " null" -" lst_151))))))" -"(let-values(((ns79_1) ns_118)" +" lst_203))))))" +"(let-values(((ns79_1) ns_120)" "((temp80_6)" "(let-values(((temp82_6) #t)" "((temp83_4) #t)" -"((mpi84_0) mpi_51)" +"((mpi84_0) mpi_50)" "((temp85_3)(list(cons 0 require-mpis_0)))" "((temp86_1)" "(if reexport?_0" "(hasheqv" " 0" -"(let-values(((lst_302) require-mpis_0))" +"(let-values(((lst_54) require-mpis_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_302)))" -"((letrec-values(((for-loop_121)" -"(lambda(table_213 lst_303)" +"(let-values()(check-list lst_54)))" +"((letrec-values(((for-loop_276)" +"(lambda(table_214 lst_314)" "(begin" " 'for-loop" -"(if(pair? lst_303)" +"(if(pair? lst_314)" "(let-values(((require-mpi_0)" -"(unsafe-car lst_303))" -"((rest_174)" -"(unsafe-cdr lst_303)))" -"(let-values(((table_214)" -"(let-values(((m_28)" +"(unsafe-car lst_314))" +"((rest_177)" +"(unsafe-cdr lst_314)))" +"(let-values(((table_110)" +"(let-values(((m_29)" "(namespace->module" -" ns_118" +" ns_120" "(1/module-path-index-resolve" " require-mpi_0))))" "(begin" " #t" -"((letrec-values(((for-loop_267)" -"(lambda(table_215)" +"((letrec-values(((for-loop_277)" +"(lambda(table_31)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_216)" +"(let-values(((table_32)" "(let-values(((ht_164)" "(hash-ref" "(shift-provides-module-path-index" "(module-provides" -" m_28)" +" m_29)" "(module-self" -" m_28)" +" m_29)" " require-mpi_0)" " 0)))" "(begin" @@ -57744,57 +57949,57 @@ static const char *startup_source = "(let-values()" "(check-in-hash" " ht_164)))" -"((letrec-values(((for-loop_122)" -"(lambda(table_110" -" i_184)" +"((letrec-values(((for-loop_278)" +"(lambda(table_112" +" i_180)" "(begin" " 'for-loop" -"(if i_184" -"(let-values(((sym_101" -" binding_25)" +"(if i_180" +"(let-values(((sym_100" +" binding_30)" "(hash-iterate-key+value" " ht_164" -" i_184)))" -"(let-values(((table_32)" -"(let-values(((table_217)" -" table_110))" -"(let-values(((table_111)" +" i_180)))" +"(let-values(((table_215)" +"(let-values(((table_151)" +" table_112))" +"(let-values(((table_216)" "(let-values()" -"(let-values(((key_89" -" val_82)" +"(let-values(((key_87" +" val_79)" "(let-values()" "(values" -" sym_101" -" binding_25))))" +" sym_100" +" binding_30))))" "(hash-set" -" table_217" -" key_89" -" val_82)))))" +" table_151" +" key_87" +" val_79)))))" "(values" -" table_111)))))" +" table_216)))))" "(if(not" " #f)" -"(for-loop_122" -" table_32" +"(for-loop_278" +" table_215" "(hash-iterate-next" " ht_164" -" i_184))" -" table_32)))" -" table_110)))))" -" for-loop_122)" -" table_215" +" i_180))" +" table_215)))" +" table_112)))))" +" for-loop_278)" +" table_31" "(hash-iterate-first" " ht_164))))))" -" table_216))))))" -" for-loop_267)" -" table_213)))))" +" table_32))))))" +" for-loop_277)" +" table_214)))))" "(if(not #f)" -"(for-loop_121 table_214 rest_174)" -" table_214)))" -" table_213)))))" -" for-loop_121)" +"(for-loop_276 table_110 rest_177)" +" table_110)))" +" table_214)))))" +" for-loop_276)" " '#hash()" -" lst_302))))" +" lst_54))))" " '#hasheqv()))" "((void87_0) void))" "(make-module39.1" @@ -57831,7 +58036,7 @@ static const char *startup_source = " #f" " #f" " #f)))" -"((temp81_3)(1/module-path-index-resolve mpi_51)))" +"((temp81_3)(1/module-path-index-resolve mpi_50)))" "(declare-module!58.1 #f #f ns79_1 temp80_6 temp81_3))))))))))))" "(define-values" "(read-primitives)" @@ -58182,8 +58387,8 @@ static const char *startup_source = "(check-module-form)" "(lambda(exp_0 filename_1)" "(begin" -"(if(let-values(((or-part_303)(eof-object? exp_0)))" -"(if or-part_303 or-part_303(eof-object?(1/syntax-e exp_0))))" +"(if(let-values(((or-part_302)(eof-object? exp_0)))" +"(if or-part_302 or-part_302(eof-object?(1/syntax-e exp_0))))" "(let-values()" "(if filename_1" "(error" @@ -58196,9 +58401,9 @@ static const char *startup_source = "(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_42)(cdr(1/syntax-e exp_0))))" -"(let-values(((r_47)(if(syntax?$1 r_42)(1/syntax-e r_42) r_42)))" -"(if(pair? r_47)(identifier?(car r_47)) #f)))" +"(let-values(((r_41)(cdr(1/syntax-e exp_0))))" +"(let-values(((r_46)(if(syntax?$1 r_41)(1/syntax-e r_41) r_41)))" +"(if(pair? r_46)(identifier?(car r_46)) #f)))" " #f)" " #f)" " #f)" @@ -58231,8 +58436,8 @@ static const char *startup_source = " or-part_2" "(if(pair? expected-mod_0)" "(if(list? expected-mod_0)" -"(if(let-values(((or-part_32)(not(car expected-mod_0))))" -"(if or-part_32 or-part_32(symbol?(car 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))))" "(andmap2 symbol?(cdr expected-mod_0))" " #f)" " #f)" @@ -58245,35 +58450,35 @@ static const char *startup_source = " expected-mod_0)))" "(values))))" "(let-values(((maybe-count-lines!_0)" -"(lambda(i_125)" +"(lambda(i_127)" "(begin" " 'maybe-count-lines!" " (if (regexp-match? '#rx\"[.]zo$\" path_12)" "(void)" -"(let-values()(port-count-lines! i_125)))))))" +"(let-values()(port-count-lines! i_127)))))))" "(if expected-mod_0" "(let-values()" "((call-with-input-module-file" " path_12" -"(lambda(i_185)" +"(lambda(i_181)" "(begin" -"(maybe-count-lines!_0 i_185)" +"(maybe-count-lines!_0 i_181)" "(with-module-reading-parameterization+delay-source" " path_12" "(lambda()" -"(let-values(((c1_31)(linklet-directory-start i_185)))" +"(let-values(((c1_31)(linklet-directory-start i_181)))" "(if c1_31" -"((lambda(pos_120)" +"((lambda(pos_125)" "(let-values(((b-pos_0)" -"(search-directory i_185 pos_120(encode-symbols expected-mod_0))))" +"(search-directory i_181 pos_125(encode-symbols expected-mod_0))))" "(if b-pos_0" "(let-values()" "(begin" -"(file-position i_185 b-pos_0)" -"(let-values(((or-part_12)(cached-bundle i_185)))" +"(file-position i_181 b-pos_0)" +"(let-values(((or-part_12)(cached-bundle i_181)))" "(if or-part_12" " or-part_12" -"(let-values(((v_0)(1/read i_185)))" +"(let-values(((v_0)(1/read i_181)))" "(if(1/compiled-module-expression? v_0)" "(lambda()((1/current-eval) v_0))" "(error" @@ -58282,7 +58487,7 @@ static const char *startup_source = " \"expected a compiled module\\n\"" " \" in: ~e\\n\"" " \" found: ~e\")" -"(object-name i_185)" +"(object-name i_181)" " v_0)))))))" "(if(pair? expected-mod_0)" "(let-values() void)" @@ -58290,18 +58495,18 @@ static const char *startup_source = "(error" " 'default-load-handler" " (string-append \"could not find main module\\n\" \" in: ~e\")" -"(object-name i_185)))))))" +"(object-name i_181)))))))" " c1_31)" "(if(if(pair? expected-mod_0)(not(car expected-mod_0)) #f)" "(let-values() void)" -"(let-values(((c2_15)(cached-bundle i_185)))" -"(if c2_15" -"((lambda(thunk_6) thunk_6) c2_15)" +"(let-values(((c2_17)(cached-bundle i_181)))" +"(if c2_17" +"((lambda(thunk_6) thunk_6) c2_17)" "(let-values()" -"(let-values(((s_170)(1/read-syntax(object-name i_185) i_185)))" +"(let-values(((s_168)(1/read-syntax(object-name i_181) i_181)))" "(let-values((()" "(begin" -"(if(eof-object? s_170)" +"(if(eof-object? s_168)" "(let-values()" "(error" " 'default-load-handler" @@ -58309,11 +58514,11 @@ static const char *startup_source = " \"expected a `module' declaration;\\n\"" " \" found end-of-file\\n\"" " \" in: ~e\")" -"(object-name i_185)))" +"(object-name i_181)))" "(void))" "(values))))" -"(let-values(((m-s_0)(check-module-form s_170 path_12)))" -"(let-values(((s2_7)(1/read-syntax(object-name i_185) i_185)))" +"(let-values(((m-s_0)(check-module-form s_168 path_12)))" +"(let-values(((s2_7)(1/read-syntax(object-name i_181) i_181)))" "(begin" "(if(eof-object? s2_7)" "(void)" @@ -58325,28 +58530,28 @@ static const char *startup_source = " \" found an extra form\\n\"" " \" in: ~e\\n\"" " \" found: ~.s\")" -"(object-name i_185)" +"(object-name i_181)" " s2_7)))" "(lambda()((1/current-eval) m-s_0))))))))))))))))))))" "(let-values()" "(let-values(((add-top-interaction_0)" -"(lambda(s_415)" +"(lambda(s_424)" "(begin" " 'add-top-interaction" "(1/namespace-syntax-introduce" -"(1/datum->syntax #f(cons '#%top-interaction s_415)))))))" +"(1/datum->syntax #f(cons '#%top-interaction s_424)))))))" "(let-values(((path1_0) path_12)" "((temp2_7)" -"(lambda(i_74)" +"(lambda(i_75)" "(begin" " 'temp2" "(begin" -"(maybe-count-lines!_0 i_74)" -"((letrec-values(((loop_122)" +"(maybe-count-lines!_0 i_75)" +"((letrec-values(((loop_110)" "(lambda(vals_7)" "(begin" " 'loop" -"(let-values(((s_302)" +"(let-values(((s_300)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -58371,77 +58576,77 @@ static const char *startup_source = "(path->complete-path path_12))" "(let-values()" "(1/read-syntax" -"(object-name i_74)" -" i_74)))" +"(object-name i_75)" +" i_75)))" "(1/read-syntax" -"(object-name i_74)" -" i_74))))))" -"(if(eof-object? s_302)" +"(object-name i_75)" +" i_75))))))" +"(if(eof-object? s_300)" "(apply values vals_7)" -"(loop_122" +"(loop_110" "(call-with-continuation-prompt" "(lambda()" "(call-with-values" "(lambda()" -"((1/current-eval)(add-top-interaction_0 s_302)))" +"((1/current-eval)(add-top-interaction_0 s_300)))" " list))" "(default-continuation-prompt-tag)" -"(lambda args_13" +"(lambda args_10" "(apply" " abort-current-continuation" "(default-continuation-prompt-tag)" -" args_13))))))))))" -" loop_122)" +" args_10))))))))))" +" loop_110)" "(list(void))))))))" "(call-with-input-file*61.1 #f #f path1_0 temp2_7)))))))))))" "(define-values" "(linklet-bundle-or-directory-start)" -"(lambda(i_146 tag_1)" +"(lambda(i_148 tag_1)" "(begin" "(let-values(((version-length_0)(string-length(version))))" -"(if(equal?(peek-byte i_146)(char->integer '#\\#))" -"(if(equal?(peek-byte i_146 1)(char->integer '#\\~))" -"(if(equal?(peek-byte i_146 2) version-length_0)" -"(if(equal?(peek-bytes version-length_0 3 i_146)(string->bytes/utf-8(version)))" -"(if(equal?(peek-byte i_146(+ 3 version-length_0))(char->integer tag_1))(+ version-length_0 4) #f)" +"(if(equal?(peek-byte i_148)(char->integer '#\\#))" +"(if(equal?(peek-byte i_148 1)(char->integer '#\\~))" +"(if(equal?(peek-byte i_148 2) version-length_0)" +"(if(equal?(peek-bytes version-length_0 3 i_148)(string->bytes/utf-8(version)))" +"(if(equal?(peek-byte i_148(+ 3 version-length_0))(char->integer tag_1))(+ version-length_0 4) #f)" " #f)" " #f)" " #f)" " #f)))))" "(define-values" "(linklet-directory-start)" -"(lambda(i_186)" -"(begin(let-values(((pos_93)(linklet-bundle-or-directory-start i_186 '#\\D)))(if pos_93(+ pos_93 4) #f)))))" +"(lambda(i_154)" +"(begin(let-values(((pos_94)(linklet-bundle-or-directory-start i_154 '#\\D)))(if pos_94(+ pos_94 4) #f)))))" "(define-values" "(linklet-bundle-hash-code)" -"(lambda(i_81)" +"(lambda(i_83)" "(begin" -"(let-values(((pos_14)(linklet-bundle-or-directory-start i_81 '#\\B)))" -"(let-values(((hash-code_5)(if pos_14(peek-bytes 20 pos_14 i_81) #f)))" +"(let-values(((pos_14)(linklet-bundle-or-directory-start i_83 '#\\B)))" +"(let-values(((hash-code_5)(if pos_14(peek-bytes 20 pos_14 i_83) #f)))" "(if(bytes? hash-code_5)" "(if(= 20(bytes-length hash-code_5))" -"(if(let-values(((vec_66 len_40)" +"(if(let-values(((vec_66 len_39)" "(let-values(((vec_67) hash-code_5))" "(begin(check-bytes vec_67)(values vec_67(unsafe-bytes-length vec_67))))))" "(begin" " #f" -"((letrec-values(((for-loop_220)" -"(lambda(result_118 pos_121)" +"((letrec-values(((for-loop_225)" +"(lambda(result_117 pos_126)" "(begin" " 'for-loop" -"(if(unsafe-fx< pos_121 len_40)" -"(let-values(((c_52)(unsafe-bytes-ref vec_66 pos_121)))" +"(if(unsafe-fx< pos_126 len_39)" +"(let-values(((c_73)(unsafe-bytes-ref vec_66 pos_126)))" +"(let-values(((result_118)" +"(let-values()" "(let-values(((result_119)" "(let-values()" -"(let-values(((result_120)" -"(let-values()" -"(let-values()(not(eq? c_52 0))))))" -"(values result_120)))))" -"(if(if(not((lambda x_91 result_119) c_52))(not #f) #f)" -"(for-loop_220 result_119(unsafe-fx+ 1 pos_121))" -" result_119)))" -" result_118)))))" -" for-loop_220)" +"(let-values()(not(eq? c_73 0))))))" +"(values result_119)))))" +"(if(if(not((lambda x_91 result_118) c_73))(not #f) #f)" +"(for-loop_225 result_118(unsafe-fx+ 1 pos_126))" +" result_118)))" +" result_117)))))" +" for-loop_225)" " #f" " 0)))" " hash-code_5" @@ -58450,21 +58655,21 @@ static const char *startup_source = " #f))))))" "(define-values" "(cached-bundle)" -"(lambda(i_187)" +"(lambda(i_182)" "(begin" -"(let-values(((c3_9)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_187)))))" -"(if c3_9" -"((lambda(declare-module_0)(lambda()(declare-module_0(1/current-namespace)))) c3_9)" +"(let-values(((c3_10)(module-cache-ref(make-module-cache-key(linklet-bundle-hash-code i_182)))))" +"(if c3_10" +"((lambda(declare-module_0)(lambda()(declare-module_0(1/current-namespace)))) c3_10)" "(let-values() #f))))))" "(define-values" "(read-number)" "(lambda(i_41)" "(begin" "(let-values(((read-byte/not-eof_0)" -"(lambda(i_188)" +"(lambda(i_183)" "(begin" " 'read-byte/not-eof" -"(let-values(((v_242)(read-byte i_188)))(if(eof-object? v_242) 0 v_242))))))" +"(let-values(((v_183)(read-byte i_183)))(if(eof-object? v_183) 0 v_183))))))" "(bitwise-ior" "(read-byte/not-eof_0 i_41)" "(arithmetic-shift(read-byte/not-eof_0 i_41) 8)" @@ -58472,16 +58677,16 @@ static const char *startup_source = "(arithmetic-shift(read-byte/not-eof_0 i_41) 24))))))" "(define-values" "(search-directory)" -"(lambda(i_189 pos_122 bstr_5)" +"(lambda(i_184 pos_127 bstr_5)" "(begin" -"(if(zero? pos_122)" +"(if(zero? pos_127)" "(let-values() #f)" "(let-values()" -"(let-values((()(begin(file-position i_189 pos_122)(values))))" -"(let-values(((name-len_0)(read-number i_189)))" -"(let-values(((v_243)(read-bytes name-len_0 i_189)))" +"(let-values((()(begin(file-position i_184 pos_127)(values))))" +"(let-values(((name-len_0)(read-number i_184)))" +"(let-values(((v_248)(read-bytes name-len_0 i_184)))" "(begin" -"(if(if(bytes? v_243)(=(bytes-length v_243) name-len_0) #f)" +"(if(if(bytes? v_248)(=(bytes-length v_248) name-len_0) #f)" "(void)" "(let-values()" "(error" @@ -58492,24 +58697,24 @@ static const char *startup_source = " \" at position: ~a\\n\"" " \" expected bytes: ~a\\n\"" " \" read bytes: ~e\")" -"(object-name i_189)" -" pos_122" +"(object-name i_184)" +" pos_127" " name-len_0" -" v_243)))" -"(if(bytes=? bstr_5 v_243)" -"(let-values()(read-number i_189))" -"(if(bytesbytes/utf-8" -"(symbol->string s_485))))" -"(let-values(((len_41)" +"(symbol->string s_458))))" +"(let-values(((len_40)" "(bytes-length bstr_6)))" -"(if(< len_41 255)" +"(if(< len_40 255)" "(let-values()" "(bytes-append" -"(bytes len_41)" +"(bytes len_40)" " bstr_6))" "(let-values()" "(bytes-append" " 255" "(integer->integer-bytes" -" len_41" +" len_40" " 4" " #f" " #f)" " bstr_6))))))" -" fold-var_68))))" -"(values fold-var_69)))))" -"(if(not #f)(for-loop_103 fold-var_20 rest_42) fold-var_20)))" -" fold-var_67)))))" -" for-loop_103)" +" fold-var_64))))" +"(values fold-var_70)))))" +"(if(not #f)(for-loop_100 fold-var_20 rest_43) fold-var_20)))" +" fold-var_63)))))" +" for-loop_100)" " null" -" lst_304))))))))))" +" lst_315))))))))))" "(define-values" "(with-module-reading-parameterization+delay-source)" "(lambda(path_13 thunk_7)" @@ -58578,50 +58783,51 @@ static const char *startup_source = "(with-module-reading-parameterization thunk_7)))))" "(define-values" "(call-with-input-module-file)" -"(lambda(path_14 proc_11)" +"(lambda(path_14 proc_9)" "(begin" -"(let-values(((i_190) #f))" +"(let-values(((i_161) #f))" "(dynamic-wind" -"(lambda()(set! i_190(let-values(((temp4_7) #t))(open-input-file6.1 temp4_7 #t #f #f path_14))))" -"(lambda()(proc_11 i_190))" -"(lambda()(close-input-port i_190)))))))" +"(lambda()" +"(set! i_161(let-values(((path3_0) path_14)((temp4_9) #t))(open-input-file6.1 temp4_9 #t #f #f path3_0))))" +"(lambda()(proc_9 i_161))" +"(lambda()(close-input-port i_161)))))))" "(define-values(dll-suffix)(system-type 'so-suffix))" "(define-values" "(default-load/use-compiled)" "(let-values(((resolve_0)" -"(lambda(s_156)" +"(lambda(s_154)" "(begin" " 'resolve" -"(if(complete-path? s_156)" -" s_156" -"(let-values(((d_36)(current-load-relative-directory)))" -"(if d_36(path->complete-path s_156 d_36) s_156)))))))" +"(if(complete-path? s_154)" +" s_154" +"(let-values(((d_35)(current-load-relative-directory)))" +"(if d_35(path->complete-path s_154 d_35) s_154)))))))" "(let-values(((date-of-1_0)" -"(lambda(a_34)" +"(lambda(a_28)" "(begin" " 'date-of-1" -"(let-values(((v_70)(file-or-directory-modify-seconds a_34 #f(lambda() #f))))" -"(if v_70(cons a_34 v_70) #f))))))" +"(let-values(((v_66)(file-or-directory-modify-seconds a_28 #f(lambda() #f))))" +"(if v_66(cons a_28 v_66) #f))))))" "(let-values(((date-of_0)" -"(lambda(a_41 modes_1 roots_1)" +"(lambda(a_35 modes_1 roots_1)" "(begin" " 'date-of" "(ormap2" "(lambda(root-dir_0)" "(ormap2" "(lambda(compiled-dir_0)" -"(let-values(((a_42)(a_41 root-dir_0 compiled-dir_0)))(date-of-1_0 a_42)))" +"(let-values(((a_36)(a_35 root-dir_0 compiled-dir_0)))(date-of-1_0 a_36)))" " modes_1))" " roots_1)))))" "(let-values(((date>=?_0)" -"(lambda(modes_2 roots_2 a_78 bm_0)" +"(lambda(modes_2 roots_2 a_72 bm_0)" "(begin" " 'date>=?" -"(if a_78" -"(let-values(((am_0)(date-of_0 a_78 modes_2 roots_2)))" -"(let-values(((or-part_34)(if(not bm_0) am_0 #f)))" -"(if or-part_34" -" or-part_34" +"(if a_72" +"(let-values(((am_0)(date-of_0 a_72 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))))" " #f)))))" "(let-values(((with-dir*_0)" @@ -58645,16 +58851,16 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_172)(not expect-module_0)))" -"(if or-part_172" -" or-part_172" -"(let-values(((or-part_82)(symbol? expect-module_0)))" -"(if or-part_82" -" or-part_82" +"(if(let-values(((or-part_163)(not expect-module_0)))" +"(if or-part_163" +" or-part_163" +"(let-values(((or-part_74)(symbol? expect-module_0)))" +"(if or-part_74" +" or-part_74" "(if(list? expect-module_0)" "(if(>(length expect-module_0) 1)" -"(if(let-values(((or-part_83)(symbol?(car expect-module_0))))" -"(if or-part_83 or-part_83(not(car expect-module_0))))" +"(if(let-values(((or-part_75)(symbol?(car expect-module_0))))" +"(if or-part_75 or-part_75(not(car expect-module_0))))" "(andmap2 symbol?(cdr expect-module_0))" " #f)" " #f)" @@ -58666,12 +58872,12 @@ static const char *startup_source = " \"(or/c #f symbol? (cons/c (or/c #f symbol?) (non-empty-listof symbol?)))\"" " path_15)))" "(values))))" -"(let-values(((name_76)(if expect-module_0(1/current-module-declare-name) #f)))" +"(let-values(((name_75)(if expect-module_0(1/current-module-declare-name) #f)))" "(let-values(((ns-hts_0)" -"(if name_76" +"(if name_75" "(registry-table-ref(1/namespace-module-registry(1/current-namespace)))" " #f)))" -"(let-values(((use-path/src_0)(if ns-hts_0(hash-ref(cdr ns-hts_0) name_76 #f) #f)))" +"(let-values(((use-path/src_0)(if ns-hts_0(hash-ref(cdr ns-hts_0) name_75 #f) #f)))" "(if use-path/src_0" "(with-continuation-mark" " parameterization-key" @@ -58687,16 +58893,16 @@ static const char *startup_source = "(let-values(((base_22 orig-file_0 dir?_7)(split-path path_15)))" "(let-values(((file_1 alt-file_0)" "(if expect-module_0" -"(let-values(((b_47)(path->bytes orig-file_0)))" -"(let-values(((len_7)(bytes-length b_47)))" +"(let-values(((b_88)(path->bytes orig-file_0)))" +"(let-values(((len_7)(bytes-length b_88)))" "(if(if(>= len_7 4)" -" (bytes=? #\".rkt\" (subbytes b_47 (- len_7 4)))" +" (bytes=? #\".rkt\" (subbytes b_88 (- len_7 4)))" " #f)" "(let-values()" "(values" " orig-file_0" "(bytes->path" -" (bytes-append (subbytes b_47 0 (- len_7 4)) #\".ss\"))))" +" (bytes-append (subbytes b_88 0 (- len_7 4)) #\".ss\"))))" "(let-values()(values orig-file_0 #f)))))" "(values orig-file_0 #f))))" "(let-values(((path_16)" @@ -58711,22 +58917,22 @@ static const char *startup_source = "(let-values(((modes_3)(1/use-compiled-file-paths)))" "(let-values(((roots_3)(1/current-compiled-file-roots)))" "(let-values(((reroot_0)" -"(lambda(p_73 d_37)" +"(lambda(p_71 d_36)" "(begin" " 'reroot" -"(if(eq? d_37 'same)" -"(let-values() p_73)" -"(if(relative-path? d_37)" -"(let-values()(build-path p_73 d_37))" -"(let-values()(reroot-path p_73 d_37))))))))" +"(if(eq? d_36 'same)" +"(let-values() p_71)" +"(if(relative-path? d_36)" +"(let-values()(build-path p_71 d_36))" +"(let-values()(reroot-path p_71 d_36))))))))" "(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)" " #f)))" "(let-values(((path-d_0)" -"(let-values(((or-part_61) main-path-d_0))" -"(if or-part_61 or-part_61 alt-path-d_0))))" +"(let-values(((or-part_52) main-path-d_0))" +"(if or-part_52 or-part_52 alt-path-d_0))))" "(let-values(((get-so_0)" "(lambda(file_2 rep-sfx?_0)" "(begin" @@ -58759,16 +58965,16 @@ static const char *startup_source = "(let-values(((so_0)(get-so_0 file_1 #t)))" "(let-values(((alt-so_0)(get-so_0 alt-file_0 #t)))" "(let-values(((try-main?_0)" -"(let-values(((or-part_290) main-path-d_0))" -"(if or-part_290" -" or-part_290" +"(let-values(((or-part_282) main-path-d_0))" +"(if or-part_282" +" or-part_282" "(not alt-path-d_0)))))" "(let-values(((try-alt?_0)" "(if alt-file_0" -"(let-values(((or-part_368)" +"(let-values(((or-part_290)" " alt-path-d_0))" -"(if or-part_368" -" or-part_368" +"(if or-part_290" +" or-part_290" "(not main-path-d_0)))" " #f)))" "(let-values(((with-dir_0)" @@ -58801,7 +59007,7 @@ static const char *startup_source = "(car so-d_0)" " expect-module_0))))))" " c1_32)" -"(let-values(((c2_16)" +"(let-values(((c2_18)" "(if try-alt?_0" "(date>=?_0" " modes_3" @@ -58809,7 +59015,7 @@ static const char *startup_source = " alt-so_0" " alt-path-d_0)" " #f)))" -"(if c2_16" +"(if c2_18" "((lambda(so-d_1)" "(with-continuation-mark" " parameterization-key" @@ -58825,8 +59031,8 @@ static const char *startup_source = "((current-load-extension)" "(car so-d_1)" " expect-module_0))))))" -" c2_16)" -"(let-values(((c3_10)" +" c2_18)" +"(let-values(((c3_11)" "(if try-main?_0" "(date>=?_0" " modes_3" @@ -58834,11 +59040,11 @@ static const char *startup_source = " zo_0" " path-d_0)" " #f)))" -"(if c3_10" +"(if c3_11" "((lambda(zo-d_0)" "(begin" "(register-zo-path" -" name_76" +" name_75" " ns-hts_0" "(car zo-d_0)" " #f" @@ -58857,7 +59063,7 @@ static const char *startup_source = "((1/current-load)" "(car zo-d_0)" " expect-module_0)))))))" -" c3_10)" +" c3_11)" "(let-values(((c4_3)" "(if try-alt?_0" "(date>=?_0" @@ -58870,7 +59076,7 @@ static const char *startup_source = "((lambda(zo-d_1)" "(begin" "(register-zo-path" -" name_76" +" name_75" " ns-hts_0" "(car zo-d_1)" " alt-path_0" @@ -58890,22 +59096,22 @@ static const char *startup_source = "(car zo-d_1)" " expect-module_0)))))))" " c4_3)" -"(if(let-values(((or-part_369)" +"(if(let-values(((or-part_352)" "(not" "(pair?" " expect-module_0))))" -"(if or-part_369" -" or-part_369" +"(if or-part_352" +" or-part_352" "(car expect-module_0)))" "(let-values()" -"(let-values(((p_74)" +"(let-values(((p_38)" "(if try-main?_0" " path_16" " alt-path_0)))" "(if(if(pair?" " expect-module_0)" "(not" -"(file-exists? p_74))" +"(file-exists? p_38))" " #f)" "(void)" "(let-values()" @@ -58918,92 +59124,92 @@ static const char *startup_source = " 1/current-module-declare-source" "(if expect-module_0" "(if(not try-main?_0)" -" p_74" +" p_38" " #f)" " #f))" "(let-values()" "(with-dir_0" "(lambda()" "((1/current-load)" -" p_74" +" p_38" " expect-module_0)))))))))" "(void))))))))))))))))))))))))))))))))))))))))))))" "(define-values" "(register-zo-path)" -"(lambda(name_77 ns-hts_1 path_17 src-path_0 base_26)" -"(begin(if ns-hts_1(let-values()(hash-set!(cdr ns-hts_1) name_77(list path_17 src-path_0 base_26)))(void)))))" +"(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)))" "(define-values(-module-hash-table-table)(make-weak-hasheq))" "(define-values" "(registry-table-ref)" "(lambda(reg_0)" -"(begin(let-values(((e_40)(hash-ref -module-hash-table-table reg_0 #f)))(if e_40(ephemeron-value e_40) #f)))))" +"(begin(let-values(((e_85)(hash-ref -module-hash-table-table reg_0 #f)))(if e_85(ephemeron-value e_85) #f)))))" "(define-values" "(registry-table-set!)" -"(lambda(reg_1 v_196)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_196)))))" +"(lambda(reg_1 v_202)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_202)))))" "(define-values(CACHE-N) 512)" "(define-values(-path-cache)(make-vector CACHE-N #f))" "(define-values" "(path-cache-get)" -"(lambda(p_75)" +"(lambda(p_72)" "(begin" -"(let-values(((i_27)(modulo(abs(equal-hash-code p_75)) CACHE-N)))" -"(let-values(((w_1)(vector-ref -path-cache i_27)))" -"(let-values(((l_81)(if w_1(weak-box-value w_1) #f)))" -"(if l_81(let-values(((a_77)(1/assoc p_75 l_81)))(if a_77(cdr a_77) #f)) #f)))))))" +"(let-values(((i_26)(modulo(abs(equal-hash-code p_72)) CACHE-N)))" +"(let-values(((w_1)(vector-ref -path-cache i_26)))" +"(let-values(((l_80)(if w_1(weak-box-value w_1) #f)))" +"(if l_80(let-values(((a_71)(1/assoc p_72 l_80)))(if a_71(cdr a_71) #f)) #f)))))))" "(define-values" "(path-cache-set!)" -"(lambda(p_76 v_233)" +"(lambda(p_73 v_249)" "(begin" -"(let-values(((i_96)(modulo(abs(equal-hash-code p_76)) CACHE-N)))" -"(let-values(((w_2)(vector-ref -path-cache i_96)))" -"(let-values(((l_70)(if w_2(weak-box-value w_2) #f)))" +"(let-values(((i_100)(modulo(abs(equal-hash-code p_73)) CACHE-N)))" +"(let-values(((w_2)(vector-ref -path-cache i_100)))" +"(let-values(((l_67)(if w_2(weak-box-value w_2) #f)))" "(vector-set!" " -path-cache" -" i_96" +" i_100" "(make-weak-box" -"(cons(cons p_76 v_233)(let-values(((or-part_78) l_70))(if or-part_78 or-part_78 null)))))))))))" +"(cons(cons p_73 v_249)(let-values(((or-part_35) l_67))(if or-part_35 or-part_35 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_481 coll-mode?_0)" +"(lambda(s_468 coll-mode?_0)" "(begin" "(let-values(((l_19)" -"((letrec-values(((loop_123)" -"(lambda(s_486)" +"((letrec-values(((loop_116)" +"(lambda(s_473)" "(begin" " 'loop" -"(let-values(((len_42)(string-length s_486)))" +"(let-values(((len_41)(string-length s_473)))" "((letrec-values(((iloop_2)" -"(lambda(i_191)" +"(lambda(i_185)" "(begin" " 'iloop" -"(if(= i_191 len_42)" -"(let-values()(list s_486))" -"(if(char=? '#\\/(string-ref s_486 i_191))" +"(if(= i_185 len_41)" +"(let-values()(list s_473))" +"(if(char=? '#\\/(string-ref s_473 i_185))" "(let-values()" "(cons" -"(substring s_486 0 i_191)" -"(loop_123(substring s_486(add1 i_191)))))" -"(let-values()(iloop_2(add1 i_191)))))))))" +"(substring s_473 0 i_185)" +"(loop_116(substring s_473(add1 i_185)))))" +"(let-values()(iloop_2(add1 i_185)))))))))" " iloop_2)" " 0))))))" -" loop_123)" -" s_481)))" +" loop_116)" +" s_468)))" "(if coll-mode?_0" " l_19" -"((letrec-values(((loop_104)" -"(lambda(l_79)" +"((letrec-values(((loop_100)" +"(lambda(l_78)" "(begin" " 'loop" -"(if(null?(cdr l_79))" -"(values null(car l_79))" -"(let-values(((c_111 f_39)(loop_104(cdr l_79))))" -"(values(cons(car l_79) c_111) f_39)))))))" -" loop_104)" +"(if(null?(cdr l_78))" +"(values null(car l_78))" +"(let-values(((c_118 f_39)(loop_100(cdr l_78))))" +"(values(cons(car l_78) c_118) f_39)))))))" +" loop_100)" " l_19))))))" "(define-values" "(format-source-location)" @@ -59035,29 +59241,29 @@ static const char *startup_source = " (1/dynamic-require '(lib \"planet/resolver.rkt\") 'planet-module-name-resolver)))))))))" "(letrec-values(((standard-module-name-resolver_0)" "(case-lambda" -"((s_165 from-namespace_1)" +"((s_470 from-namespace_1)" "(begin" " 'standard-module-name-resolver" "(begin" -"(if(1/resolved-module-path? s_165)" +"(if(1/resolved-module-path? s_470)" "(void)" "(let-values()" -" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_165)))" -"(if(let-values(((or-part_370)(not from-namespace_1)))" -"(if or-part_370 or-part_370(1/namespace? from-namespace_1)))" +" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_470)))" +"(if(let-values(((or-part_134)(not from-namespace_1)))" +"(if or-part_134 or-part_134(1/namespace? from-namespace_1)))" "(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_165))(void))" +"(if planet-resolver_0(let-values()(planet-resolver_0 s_470))(void))" "(let-values(((hts_1)" -"(let-values(((or-part_264)" +"(let-values(((or-part_304)" "(registry-table-ref" "(1/namespace-module-registry(1/current-namespace)))))" -"(if or-part_264" -" or-part_264" +"(if or-part_304" +" or-part_304" "(let-values(((hts_2)(cons(make-hasheq)(make-hasheq))))" "(begin" "(registry-table-set!" @@ -59065,14 +59271,14 @@ static const char *startup_source = " hts_2)" " hts_2))))))" "(begin" -"(hash-set!(car hts_1) s_165 'declared)" +"(hash-set!(car hts_1) s_470 'declared)" "(if from-namespace_1" "(let-values()" "(let-values(((root-name_2)" -"(if(pair?(1/resolved-module-path-name s_165))" +"(if(pair?(1/resolved-module-path-name s_470))" "(1/make-resolved-module-path" -"(car(1/resolved-module-path-name s_165)))" -" s_165))" +"(car(1/resolved-module-path-name s_470)))" +" s_470))" "((from-hts_0)" "(registry-table-ref" "(1/namespace-module-registry from-namespace_1))))" @@ -59084,14 +59290,14 @@ static const char *startup_source = "(void))))" "(void))))" "(void)))))))" -"((s_487 relto_0 stx_17)" +"((s_474 relto_0 stx_17)" "(begin" "(log-message" "(current-logger)" " 'error" " \"default module name resolver called with three arguments (deprecated)\"" " #f)" -"(standard-module-name-resolver_0 s_487 relto_0 stx_17 #t)))" +"(standard-module-name-resolver_0 s_474 relto_0 stx_17 #t)))" "((s_26 relto_1 stx_18 load?_7)" "(let-values((()" "(begin" @@ -59107,8 +59313,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_153)(not relto_1)))" -"(if or-part_153 or-part_153(1/resolved-module-path? relto_1)))" +"(if(let-values(((or-part_137)(not relto_1)))" +"(if or-part_137 or-part_137(1/resolved-module-path? relto_1)))" "(void)" "(let-values()" "(raise-argument-error" @@ -59118,8 +59324,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_63)(not stx_18)))" -"(if or-part_63 or-part_63(syntax?$1 stx_18)))" +"(if(let-values(((or-part_54)(not stx_18)))" +"(if or-part_54 or-part_54(syntax?$1 stx_18)))" "(void)" "(let-values()" "(raise-argument-error" @@ -59131,18 +59337,18 @@ static const char *startup_source = "(lambda(base_27 orig-l_10)" "(begin" " 'flatten-sub-path" -"((letrec-values(((loop_124)" -"(lambda(a_79 l_33)" +"((letrec-values(((loop_117)" +"(lambda(a_73 l_33)" "(begin" " 'loop" "(if(null? l_33)" "(let-values()" -"(if(null? a_79)" +"(if(null? a_73)" " base_27" -"(cons base_27(reverse$1 a_79))))" +"(cons base_27(reverse$1 a_73))))" " (if (equal? (car l_33) \"..\")" "(let-values()" -"(if(null? a_79)" +"(if(null? a_73)" "(error" " 'standard-module-name-resolver" " \"too many \\\"..\\\"s in submodule path: ~.s\"" @@ -59158,12 +59364,12 @@ static const char *startup_source = " 'file)" " base_27)))" " orig-l_10))" -"(loop_124(cdr a_79)(cdr l_33))))" +"(loop_117(cdr a_73)(cdr l_33))))" "(let-values()" -"(loop_124" -"(cons(car l_33) a_79)" +"(loop_117" +"(cons(car l_33) a_73)" "(cdr l_33)))))))))" -" loop_124)" +" loop_117)" " null" " orig-l_10)))))" "(if(if(pair? s_26)(eq?(car s_26) 'quote) #f)" @@ -59177,14 +59383,14 @@ static const char *startup_source = "(1/make-resolved-module-path(flatten-sub-path_0(cadadr s_26)(cddr s_26))))" "(if(if(pair? s_26)" "(if(eq?(car s_26) 'submod)" -" (if (let-values (((or-part_104) (equal? (cadr s_26) \".\")))" -" (if or-part_104 or-part_104 (equal? (cadr s_26) \"..\")))" +" (if (let-values (((or-part_94) (equal? (cadr s_26) \".\")))" +" (if or-part_94 or-part_94 (equal? (cadr s_26) \"..\")))" "(if relto_1" -"(let-values(((p_77)(1/resolved-module-path-name relto_1)))" -"(let-values(((or-part_44)(symbol? p_77)))" -"(if or-part_44" -" or-part_44" -"(if(pair? p_77)(symbol?(car p_77)) #f))))" +"(let-values(((p_74)(1/resolved-module-path-name relto_1)))" +"(let-values(((or-part_366)(symbol? p_74)))" +"(if or-part_366" +" or-part_366" +"(if(pair? p_74)(symbol?(car p_74)) #f))))" " #f)" " #f)" " #f)" @@ -59194,9 +59400,9 @@ static const char *startup_source = "(1/make-resolved-module-path" "(flatten-sub-path_0" "(if(pair? rp_0)(car rp_0) rp_0)" -"(let-values(((r_48)" +"(let-values(((r_47)" " (if (equal? (cadr s_26) \"..\") (cdr s_26) (cddr s_26))))" -"(if(pair? rp_0)(append(cdr rp_0) r_48) r_48))))))" +"(if(pair? rp_0)(append(cdr rp_0) r_47) r_47))))))" "(if(if(pair? s_26)(eq?(car s_26) 'planet) #f)" "(let-values()" "(begin" @@ -59222,23 +59428,23 @@ static const char *startup_source = "(lambda()" "(begin" " 'get-dir" -"(let-values(((or-part_64)" +"(let-values(((or-part_55)" "(if relto_1" "(if(eq? relto_1 -prev-relto)" " -prev-relto-dir" -"(let-values(((p_78)" +"(let-values(((p_75)" "(1/resolved-module-path-name" " relto_1)))" -"(let-values(((p_79)" -"(if(pair? p_78)" -"(car p_78)" -" p_78)))" -"(if(path? p_79)" +"(let-values(((p_76)" +"(if(pair? p_75)" +"(car p_75)" +" p_75)))" +"(if(path? p_76)" "(let-values(((base_28" -" n_37" +" n_35" " d?_0)" "(split-path" -" p_79)))" +" p_76)))" "(begin" "(set! -prev-relto relto_1)" "(set! -prev-relto-dir" @@ -59246,12 +59452,12 @@ static const char *startup_source = " base_28))" " #f))))" " #f)))" -"(if or-part_64" -" or-part_64" -"(let-values(((or-part_51)" +"(if or-part_55" +" or-part_55" +"(let-values(((or-part_42)" "(current-load-relative-directory)))" -"(if or-part_51" -" or-part_51" +"(if or-part_42" +" or-part_42" "(current-directory))))))))" "((get-reg_0)" "(lambda()" @@ -59264,15 +59470,15 @@ static const char *startup_source = " 'show-collection-err" "(let-values(((msg_2)" "(string-append" -"(let-values(((or-part_179)" +"(let-values(((or-part_174)" "(if stx_18" "(if(error-print-source-location)" "(format-source-location" " stx_18)" " #f)" " #f)))" -"(if or-part_179" -" or-part_179" +"(if or-part_174" +" or-part_174" " \"standard-module-name-resolver\"))" " \": \"" "(regexp-replace" @@ -59293,65 +59499,65 @@ static const char *startup_source = "(current-continuation-marks)" " s_26)))))))" "((ss->rkt_0)" -"(lambda(s_488)" +"(lambda(s_475)" "(begin" " 'ss->rkt" -"(let-values(((len_43)(string-length s_488)))" -"(if(if(>= len_43 3)" +"(let-values(((len_42)(string-length s_475)))" +"(if(if(>= len_42 3)" "(if(equal?" " '#\\." -"(string-ref s_488(- len_43 3)))" +"(string-ref s_475(- len_42 3)))" "(if(equal?" " '#\\s" -"(string-ref s_488(- len_43 2)))" +"(string-ref s_475(- len_42 2)))" "(equal?" " '#\\s" -"(string-ref s_488(- len_43 1)))" +"(string-ref s_475(- len_42 1)))" " #f)" " #f)" " #f)" "(string-append" -"(substring s_488 0(- len_43 3))" +"(substring s_475 0(- len_42 3))" " \".rkt\")" -" s_488)))))" +" s_475)))))" "((path-ss->rkt_0)" -"(lambda(p_80)" +"(lambda(p_77)" "(begin" " 'path-ss->rkt" -"(let-values(((base_29 name_78 dir?_8)" -"(split-path p_80)))" -" (if (regexp-match '#rx\"[.]ss$\" (path->bytes name_78))" -" (path-replace-extension p_80 #\".rkt\")" -" p_80)))))" +"(let-values(((base_29 name_77 dir?_8)" +"(split-path p_77)))" +" (if (regexp-match '#rx\"[.]ss$\" (path->bytes name_77))" +" (path-replace-extension p_77 #\".rkt\")" +" p_77)))))" "((s_31)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" -"(let-values(((v_244)(cadr s_26)))" -" (if (let-values (((or-part_364) (equal? v_244 \".\")))" -" (if or-part_364 or-part_364 (equal? v_244 \"..\")))" +"(let-values(((v_38)(cadr s_26)))" +" (if (let-values (((or-part_367) (equal? v_38 \".\")))" +" (if or-part_367 or-part_367 (equal? v_38 \"..\")))" "(if relto_1" -"(let-values(((p_81)" +"(let-values(((p_78)" "(1/resolved-module-path-name" " relto_1)))" -"(if(pair? p_81)(car p_81) p_81))" +"(if(pair? p_78)(car p_78) p_78))" "(error" " 'standard-module-name-resolver" " \"no base path for relative submodule path: ~.s\"" " s_26))" -" v_244))" +" v_38))" " s_26))" "((subm-path_0)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" -"(let-values(((p_82)" -"(if(if(let-values(((or-part_52)" +"(let-values(((p_79)" +"(if(if(let-values(((or-part_208)" "(equal?" "(cadr s_26)" " \".\")))" -"(if or-part_52" -" or-part_52" +"(if or-part_208" +" or-part_208" " (equal? (cadr s_26) \"..\")))" " relto_1" " #f)" -"(let-values(((p_83)" +"(let-values(((p_80)" "(1/resolved-module-path-name" " relto_1))" "((r_15)" @@ -59360,26 +59566,26 @@ static const char *startup_source = " \"..\")" "(cdr s_26)" "(cddr s_26))))" -"(if(pair? p_83)" +"(if(pair? p_80)" "(flatten-sub-path_0" -"(car p_83)" -"(append(cdr p_83) r_15))" -"(flatten-sub-path_0 p_83 r_15)))" +"(car p_80)" +"(append(cdr p_80) r_15))" +"(flatten-sub-path_0 p_80 r_15)))" "(flatten-sub-path_0" " \".\"" " (if (equal? (cadr s_26) \"..\")" "(cdr s_26)" "(cddr s_26))))))" -"(if(pair? p_82)(cdr p_82) #f))" +"(if(pair? p_79)(cdr p_79) #f))" " #f)))" "(let-values(((s-parsed_0)" "(if(symbol? s_31)" "(let-values()" -"(let-values(((or-part_55)" +"(let-values(((or-part_368)" "(path-cache-get" "(cons s_31(get-reg_0)))))" -"(if or-part_55" -" or-part_55" +"(if or-part_368" +" or-part_368" "(let-values(((cols_0 file_3)" "(split-relative-string" "(symbol->string s_31)" @@ -59399,11 +59605,11 @@ static const char *startup_source = "(if(string? s_31)" "(let-values()" "(let-values(((dir_4)(get-dir_0)))" -"(let-values(((or-part_371)" +"(let-values(((or-part_369)" "(path-cache-get" "(cons s_31 dir_4))))" -"(if or-part_371" -" or-part_371" +"(if or-part_369" +" or-part_369" "(let-values(((cols_1 file_4)" "(split-relative-string" " s_31" @@ -59415,12 +59621,12 @@ static const char *startup_source = " dir_4" "(append" "(map2" -"(lambda(s_318)" -" (if (string=? s_318 \".\")" +"(lambda(s_315)" +" (if (string=? s_315 \".\")" "(let-values() 'same)" -" (if (string=? s_318 \"..\")" +" (if (string=? s_315 \"..\")" "(let-values() 'up)" -"(let-values() s_318))))" +"(let-values() s_315))))" " cols_1)" "(list(ss->rkt_0 file_4))))))))))" "(if(path? s_31)" @@ -59432,11 +59638,11 @@ static const char *startup_source = "(path->complete-path s_31(get-dir_0))))))" "(if(eq?(car s_31) 'lib)" "(let-values()" -"(let-values(((or-part_94)" +"(let-values(((or-part_86)" "(path-cache-get" "(cons s_31(get-reg_0)))))" -"(if or-part_94" -" or-part_94" +"(if or-part_86" +" or-part_86" "(let-values(((cols_2 file_5)" "(split-relative-string" "(cadr s_31)" @@ -59470,9 +59676,9 @@ static const char *startup_source = "(apply" " append" "(map2" -"(lambda(p_84)" +"(lambda(p_81)" "(split-relative-string" -" p_84" +" p_81" " #t))" "(cddr s_31))))" " cols_2)" @@ -59494,8 +59700,8 @@ static const char *startup_source = "(get-dir_0)))))" "(void))))))))" "(begin" -"(if(let-values(((or-part_372)(path? s-parsed_0)))" -"(if or-part_372 or-part_372(vector? s-parsed_0)))" +"(if(let-values(((or-part_370)(path? s-parsed_0)))" +"(if or-part_370 or-part_370(vector? s-parsed_0)))" "(void)" "(let-values()" "(if stx_18" @@ -59517,7 +59723,7 @@ static const char *startup_source = "(if(vector? s-parsed_0)" "(vector-ref s-parsed_0 1)" "(normal-case-path filename_2))))" -"(let-values(((base_30 name_79 dir?_9)" +"(let-values(((base_30 name_19 dir?_9)" "(if(vector? s-parsed_0)" "(values" " 'ignored" @@ -59527,17 +59733,17 @@ static const char *startup_source = "(let-values(((no-sfx_0)" "(if(vector? s-parsed_0)" "(vector-ref s-parsed_0 3)" -" (path-replace-extension name_79 #\"\"))))" +" (path-replace-extension name_19 #\"\"))))" "(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_373)" +"(let-values(((or-part_371)" "(registry-table-ref" "(get-reg_0))))" -"(if or-part_373" -" or-part_373" +"(if or-part_371" +" or-part_371" "(let-values(((hts_4)" "(cons" "(make-hasheq)" @@ -59580,11 +59786,11 @@ static const char *startup_source = "((nsr_0)(get-reg_0)))" "(begin" "(for-each2" -"(lambda(s_409)" +"(lambda(s_432)" "(if(if(equal?" -"(cdr s_409)" +"(cdr s_432)" " normal-filename_0)" -"(eq?(car s_409) nsr_0)" +"(eq?(car s_432) nsr_0)" " #f)" "(let-values()" "(error" @@ -59593,22 +59799,22 @@ static const char *startup_source = " filename_2" "(apply" " string-append" -"((letrec-values(((loop_125)" -"(lambda(l_82)" +"((letrec-values(((loop_118)" +"(lambda(l_81)" "(begin" " 'loop" "(if(null?" -" l_82)" +" l_81)" " '()" "(list*" " \"\\n \"" "(path->string" "(cdar" -" l_82))" -"(loop_125" +" l_81))" +"(loop_118" "(cdr" -" l_82))))))))" -" loop_125)" +" l_81))))))))" +" loop_118)" "(reverse$1 loading_0)))))" "(void)))" " loading_0)" @@ -59635,10 +59841,10 @@ static const char *startup_source = " root-modname_0" " 1/current-module-path-for-load" "((if stx_18" -"(lambda(p_85)" +"(lambda(p_82)" "(1/datum->syntax" " #f" -" p_85" +" p_82" " stx_18))" " values)" "(if(symbol? s_31)" @@ -59662,7 +59868,7 @@ static const char *startup_source = "(let-values()" "((1/current-load/use-compiled)" " filename_2" -"(let-values(((sym_71)" +"(let-values(((sym_101)" "(string->symbol" "(path->string" " no-sfx_0))))" @@ -59673,20 +59879,20 @@ static const char *startup_source = " #f)" "(cons #f subm-path_0)" "(cons" -" sym_71" +" sym_101" " subm-path_0))" -" sym_71))))))))))))))" +" sym_101))))))))))))))" "(void))" "(if(if(not(vector? s-parsed_0))" "(if load?_7" -"(let-values(((or-part_270)" +"(let-values(((or-part_372)" "(string? s_31)))" -"(if or-part_270" -" or-part_270" -"(let-values(((or-part_374)" +"(if or-part_372" +" or-part_372" +"(let-values(((or-part_51)" "(symbol? s_31)))" -"(if or-part_374" -" or-part_374" +"(if or-part_51" +" or-part_51" "(if(pair? s_31)" "(eq?(car s_31) 'lib)" " #f)))))" @@ -59700,7 +59906,7 @@ static const char *startup_source = "(vector" " filename_2" " normal-filename_0" -" name_79" +" name_19" " no-sfx_0" " root-modname_0)))" "(void))" @@ -59708,22 +59914,22 @@ static const char *startup_source = " standard-module-name-resolver_0)))))" "(define-values" "(default-eval-handler)" -"(lambda(s_61)" +"(lambda(s_59)" "(begin" "(1/eval" -" s_61" +" s_59" "(1/current-namespace)" -"(let-values(((c_112)(1/current-compile)))" -"(lambda(e_83 ns_119)" -"(if(eq? ns_119(1/current-namespace))" -"(c_112 e_83 #t)" +"(let-values(((c_119)(1/current-compile)))" +"(lambda(e_86 ns_16)" +"(if(eq? ns_16(1/current-namespace))" +"(c_119 e_86 #t)" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_119)" -"(let-values()(c_112 e_83 #t))))))))))" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_16)" +"(let-values()(c_119 e_86 #t))))))))))" "(define-values" "(default-compile-handler)" -"(lambda(s_62 immediate-eval?_0)(begin(1/compile s_62(1/current-namespace)(not immediate-eval?_0)))))" +"(lambda(s_60 immediate-eval?_0)(begin(1/compile s_60(1/current-namespace)(not immediate-eval?_0)))))" "(define-values" "(default-read-interaction)" "(lambda(src_9 in_0)" @@ -59760,11 +59966,11 @@ static const char *startup_source = "(define-values(boot-primitives)(hash 'boot boot 'seal seal 'orig-paramz orig-paramz))" "(define-values" "(prepare-next-phase-namespace)" -"(lambda(ctx_73)" +"(lambda(ctx_75)" "(begin" -"(let-values(((phase_40)(add1(expand-context-phase ctx_73))))" -"(let-values(((ns_58)(namespace->namespace-at-phase(expand-context-namespace ctx_73) phase_40)))" -"(namespace-visit-available-modules! ns_58 phase_40))))))" +"(let-values(((phase_42)(add1(expand-context-phase ctx_75))))" +"(let-values(((ns_58)(namespace->namespace-at-phase(expand-context-namespace ctx_75) phase_42)))" +"(namespace-visit-available-modules! ns_58 phase_42))))))" "(define-values" "(expand-body7.1)" "(lambda(source1_0 stratified?2_0 stratified?4_0 bodys5_0 ctx6_0)" @@ -59777,30 +59983,30 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_64)(expand-context-observer ctx_14)))" -"(if obs_64" +"(let-values(((obs_67)(expand-context-observer ctx_14)))" +"(if obs_67" "(let-values()" "(let-values()" -"(call-expand-observe obs_64 'enter-block(datum->syntax$1 #f bodys_7))))" +"(call-expand-observe obs_67 'enter-block(datum->syntax$1 #f bodys_7))))" "(void)))" "(values))))" "(let-values(((inside-sc_0)(new-scope 'intdef)))" "(let-values(((init-bodys_0)" "(reverse$1" -"(let-values(((lst_262) bodys_7))" +"(let-values(((lst_265) bodys_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_262)))" -"((letrec-values(((for-loop_268)" -"(lambda(fold-var_65 lst_169)" +"(let-values()(check-list lst_265)))" +"((letrec-values(((for-loop_279)" +"(lambda(fold-var_68 lst_170)" "(begin" " 'for-loop" -"(if(pair? lst_169)" -"(let-values(((body_11)(unsafe-car lst_169))" -"((rest_139)(unsafe-cdr lst_169)))" +"(if(pair? lst_170)" +"(let-values(((body_11)(unsafe-car lst_170))" +"((rest_141)(unsafe-cdr lst_170)))" "(let-values(((fold-var_11)" -"(let-values(((fold-var_12) fold-var_65))" +"(let-values(((fold-var_12) fold-var_68))" "(let-values(((fold-var_211)" "(let-values()" "(cons" @@ -59811,31 +60017,31 @@ static const char *startup_source = " fold-var_12))))" "(values fold-var_211)))))" "(if(not #f)" -"(for-loop_268 fold-var_11 rest_139)" +"(for-loop_279 fold-var_11 rest_141)" " fold-var_11)))" -" fold-var_65)))))" -" for-loop_268)" +" fold-var_68)))))" +" for-loop_279)" " null" -" lst_262))))))" +" lst_265))))))" "(let-values((()" "(begin" -"(let-values(((obs_65)(expand-context-observer ctx_14)))" -"(if obs_65" +"(let-values(((obs_68)(expand-context-observer ctx_14)))" +"(if obs_68" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_65" +" obs_68" " 'block-renames" "(datum->syntax$1 #f init-bodys_0)" "(datum->syntax$1 #f bodys_7))))" "(void)))" "(values))))" -"(let-values(((phase_142)(expand-context-phase ctx_14)))" +"(let-values(((phase_16)(expand-context-phase ctx_14)))" "(let-values(((frame-id_2)(make-reference-record)))" "(let-values(((def-ctx-scopes_6)(box null)))" "(let-values(((body-ctx_0)" -"(let-values(((v_245) ctx_14))" -"(let-values(((the-struct_91) v_245))" +"(let-values(((v_250) ctx_14))" +"(let-values(((the-struct_91) v_250))" "(if(expand-context/outer? the-struct_91)" "(let-values(((context51_0)(list(make-liberal-define-context)))" "((name52_0) #f)" @@ -59851,7 +60057,7 @@ static const char *startup_source = "(cons" " frame-id_2" "(expand-context-reference-records ctx_14)))" -"((inner61_0)(root-expand-context/outer-inner v_245)))" +"((inner61_0)(root-expand-context/outer-inner v_250)))" "(expand-context/outer1.1" " inner61_0" " post-expansion-scope55_0" @@ -59881,8 +60087,8 @@ static const char *startup_source = "(expand-context-binding-layer ctx_14))" "(increment-binding-layer ids_28 body-ctx_1 inside-sc_0)" "(expand-context-binding-layer body-ctx_1))))))" -"(let-values(((name_80)(expand-context-name ctx_14)))" -"((letrec-values(((loop_126)" +"(let-values(((name_78)(expand-context-name ctx_14)))" +"((letrec-values(((loop_119)" "(lambda(body-ctx_2" " bodys_8" " done-bodys_0" @@ -59897,7 +60103,10 @@ static const char *startup_source = " 'loop" "(if(null? bodys_8)" "(let-values()" -"(let-values(((temp65_6)(reverse$1 val-idss_0))" +"(let-values(((body-ctx62_0) body-ctx_2)" +"((frame-id63_0) frame-id_2)" +"((def-ctx-scopes64_0) def-ctx-scopes_6)" +"((temp65_6)(reverse$1 val-idss_0))" "((temp66_4)(reverse$1 val-keyss_0))" "((temp67_4)(reverse$1 val-rhss_0))" "((temp68_2)(reverse$1 track-stxs_0))" @@ -59905,16 +60114,16 @@ static const char *startup_source = "((temp70_3)(reverse$1 done-bodys_0))" "((s71_0) s_40)" "((stratified?72_0) stratified?_0)" -"((name73_0) name_80)" +"((name73_0) name_78)" "((temp74_3)(reverse$1 trans-idss_1)))" "(finish-expanding-body27.1" " temp74_3" " name73_0" " s71_0" " stratified?72_0" -" body-ctx_2" -" frame-id_2" -" def-ctx-scopes_6" +" body-ctx62_0" +" frame-id63_0" +" def-ctx-scopes64_0" " temp65_6" " temp66_4" " temp67_4" @@ -59925,35 +60134,35 @@ static const char *startup_source = "(let-values(((rest-bodys_0)(cdr bodys_8)))" "(let-values((()" "(begin" -"(let-values(((obs_66)" +"(let-values(((obs_69)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_66" +"(if obs_69" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_66" +" obs_69" " 'next)))" "(void)))" "(values))))" "(let-values(((exp-body_0)" "(let-values(((temp75_3)(car bodys_8))" "((temp76_3)" -"(if(if name_80" +"(if(if name_78" "(null?" "(cdr bodys_8))" " #f)" -"(let-values(((v_234)" +"(let-values(((v_227)" " body-ctx_2))" "(let-values(((the-struct_92)" -" v_234))" +" v_227))" "(if(expand-context/outer?" " the-struct_92)" "(let-values(((name77_0)" -" name_80)" +" name_78)" "((inner78_0)" "(root-expand-context/outer-inner" -" v_234)))" +" v_227)))" "(expand-context/outer1.1" " inner78_0" "(root-expand-context/outer-post-expansion-scope" @@ -60000,62 +60209,62 @@ static const char *startup_source = "(let-values(((tmp_61)" "(core-form-sym" " disarmed-exp-body_0" -" phase_142)))" +" phase_16)))" "(if(equal? tmp_61 'begin)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_67)" +"(let-values(((obs_28)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_67" +"(if obs_28" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_67" +" obs_28" " 'prim-begin)))" "(void)))" "(values))))" -"(let-values(((ok?_0 begin79_0 e80_0)" -"(let-values(((s_397)" +"(let-values(((ok?_31 begin79_0 e80_0)" +"(let-values(((s_476)" " disarmed-exp-body_0))" -"(let-values(((orig-s_39)" -" s_397))" +"(let-values(((orig-s_37)" +" s_476))" "(let-values(((begin79_1" " e80_1)" -"(let-values(((s_489)" +"(let-values(((s_457)" "(if(syntax?$1" -" s_397)" +" s_476)" "(syntax-e$1" -" s_397)" -" s_397)))" +" s_476)" +" s_476)))" "(if(pair?" -" s_489)" +" s_457)" "(let-values(((begin81_0)" -"(let-values(((s_44)" +"(let-values(((s_477)" "(car" -" s_489)))" -" s_44))" +" s_457)))" +" s_477))" "((e82_0)" -"(let-values(((s_166)" +"(let-values(((s_478)" "(cdr" -" s_489)))" -"(let-values(((s_167)" +" s_457)))" +"(let-values(((s_479)" "(if(syntax?$1" -" s_166)" +" s_478)" "(syntax-e$1" -" s_166)" -" s_166)))" +" s_478)" +" s_478)))" "(let-values(((flat-s_24)" "(to-syntax-list.1" -" s_167)))" +" s_479)))" "(if(not" " flat-s_24)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_39))" +" orig-s_37))" "(let-values()" " flat-s_24)))))))" "(values" @@ -60064,35 +60273,35 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_39)))))" +" orig-s_37)))))" "(values" " #t" " begin79_1" " e80_1))))))" "(let-values(((track_0)" -"(lambda(e_84)" +"(lambda(e_87)" "(begin" " 'track" "(syntax-track-origin$1" -" e_84" +" e_87" " exp-body_0)))))" "(let-values(((splice-bodys_0)" "(append" "(map2 track_0 e80_0)" " rest-bodys_0)))" "(begin" -"(let-values(((obs_68)" +"(let-values(((obs_70)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_68" +"(if obs_70" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_68" +" obs_70" " 'splice" " splice-bodys_0)))" "(void)))" -"(loop_126" +"(loop_119" " body-ctx_2" " splice-bodys_0" " done-bodys_0" @@ -60107,77 +60316,77 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_69)" +"(let-values(((obs_71)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_69" +"(if obs_71" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_69" +" obs_71" " 'prim-define-values)))" "(void)))" "(values))))" -"(let-values(((ok?_33" +"(let-values(((ok?_32" " define-values83_0" " id84_0" " rhs85_0)" -"(let-values(((s_85)" +"(let-values(((s_31)" " disarmed-exp-body_0))" -"(let-values(((orig-s_40)" -" s_85))" +"(let-values(((orig-s_38)" +" s_31))" "(let-values(((define-values83_1" " id84_1" " rhs85_1)" -"(let-values(((s_46)" +"(let-values(((s_480)" "(if(syntax?$1" -" s_85)" +" s_31)" "(syntax-e$1" -" s_85)" -" s_85)))" +" s_31)" +" s_31)))" "(if(pair?" -" s_46)" +" s_480)" "(let-values(((define-values86_0)" -"(let-values(((s_394)" +"(let-values(((s_49)" "(car" -" s_46)))" -" s_394))" -"((id87_0" +" s_480)))" +" s_49))" +"((id87_1" " rhs88_0)" -"(let-values(((s_47)" +"(let-values(((s_32)" "(cdr" -" s_46)))" -"(let-values(((s_69)" +" s_480)))" +"(let-values(((s_481)" "(if(syntax?$1" -" s_47)" +" s_32)" "(syntax-e$1" -" s_47)" -" s_47)))" +" s_32)" +" s_32)))" "(if(pair?" -" s_69)" +" s_481)" "(let-values(((id89_0)" -"(let-values(((s_50)" -"(car" -" s_69)))" "(let-values(((s_310)" +"(car" +" s_481)))" +"(let-values(((s_388)" "(if(syntax?$1" -" s_50)" +" s_310)" "(syntax-e$1" -" s_50)" -" s_50)))" +" s_310)" +" s_310)))" "(let-values(((flat-s_25)" "(to-syntax-list.1" -" s_310)))" +" s_388)))" "(if(not" " flat-s_25)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_40))" +" orig-s_38))" "(let-values()" -"(let-values(((id_16)" -"(let-values(((lst_305)" +"(let-values(((id_107)" +"(let-values(((lst_194)" " flat-s_25))" "(begin" "(if(variable-reference-from-unsafe?" @@ -60185,148 +60394,148 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_305)))" -"((letrec-values(((for-loop_269)" -"(lambda(id_99" -" lst_306)" +" lst_194)))" +"((letrec-values(((for-loop_280)" +"(lambda(id_82" +" lst_102)" "(begin" " 'for-loop" "(if(pair?" -" lst_306)" -"(let-values(((s_314)" +" lst_102)" +"(let-values(((s_313)" "(unsafe-car" -" lst_306))" -"((rest_175)" +" lst_102))" +"((rest_178)" "(unsafe-cdr" -" lst_306)))" -"(let-values(((id_100)" -"(let-values(((id_101)" -" id_99))" -"(let-values(((id_102)" +" lst_102)))" +"(let-values(((id_70)" +"(let-values(((id_108)" +" id_82))" +"(let-values(((id_109)" "(let-values()" -"(let-values(((id92_0)" +"(let-values(((id92_2)" "(let-values()" -"(if(let-values(((or-part_53)" +"(if(let-values(((or-part_140)" "(if(syntax?$1" -" s_314)" +" s_313)" "(symbol?" "(syntax-e$1" -" s_314))" +" s_313))" " #f)))" -"(if or-part_53" -" or-part_53" +"(if or-part_140" +" or-part_140" "(symbol?" -" s_314)))" -" s_314" +" s_313)))" +" s_313" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_40" -" s_314)))))" +" orig-s_38" +" s_313)))))" "(cons" -" id92_0" -" id_101)))))" +" id92_2" +" id_108)))))" "(values" -" id_102)))))" +" id_109)))))" "(if(not" " #f)" -"(for-loop_269" -" id_100" -" rest_175)" -" id_100)))" -" id_99)))))" -" for-loop_269)" +"(for-loop_280" +" id_70" +" rest_178)" +" id_70)))" +" id_82)))))" +" for-loop_280)" " null" -" lst_305)))))" +" lst_194)))))" "(reverse$1" -" id_16))))))))" +" id_107))))))))" "((rhs90_0)" -"(let-values(((s_490)" +"(let-values(((s_482)" "(cdr" -" s_69)))" -"(let-values(((s_491)" +" s_481)))" +"(let-values(((s_483)" "(if(syntax?$1" -" s_490)" +" s_482)" "(syntax-e$1" -" s_490)" -" s_490)))" +" s_482)" +" s_482)))" "(if(pair?" -" s_491)" +" s_483)" "(let-values(((rhs91_0)" "(let-values(((s_54)" "(car" -" s_491)))" +" s_483)))" " s_54))" "(()" -"(let-values(((s_441)" +"(let-values(((s_314)" "(cdr" -" s_491)))" -"(let-values(((s_316)" +" s_483)))" +"(let-values(((s_315)" "(if(syntax?$1" -" s_441)" +" s_314)" "(syntax-e$1" -" s_441)" -" s_441)))" +" s_314)" +" s_314)))" "(if(null?" -" s_316)" +" s_315)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_40))))))" +" orig-s_38))))))" "(values" " rhs91_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_40))))))" +" orig-s_38))))))" "(values" " id89_0" " rhs90_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_40))))))" +" orig-s_38))))))" "(values" " define-values86_0" -" id87_0" +" id87_1" " rhs88_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_40)))))" +" orig-s_38)))))" "(values" " #t" " define-values83_1" " id84_1" " rhs85_1))))))" -"(let-values(((ids_4)" +"(let-values(((ids_29)" "(remove-use-site-scopes" " id84_0" " body-ctx_2)))" "(let-values((()" "(begin" -"(let-values(((obs_22)" +"(let-values(((obs_61)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_22" +"(if obs_61" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_22" +" obs_61" " 'rename-one" "(datum->syntax$1" " #f" "(list" -" ids_4" +" ids_29" " rhs85_0)))))" "(void)))" "(values))))" "(let-values(((new-dups_0)" "(let-values(((ids93_0)" -" ids_4)" +" ids_29)" "((phase94_0)" -" phase_142)" +" phase_16)" "((exp-body95_0)" " exp-body_0)" "((dups96_0)" @@ -60344,36 +60553,42 @@ static const char *startup_source = " ctx_14)))" "(let-values(((keys_5)" "(reverse$1" -"(let-values(((lst_192)" -" ids_4))" +"(let-values(((lst_50)" +" ids_29))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_192)))" -"((letrec-values(((for-loop_12)" -"(lambda(fold-var_273" -" lst_307)" +" lst_50)))" +"((letrec-values(((for-loop_38)" +"(lambda(fold-var_182" +" lst_316)" "(begin" " 'for-loop" "(if(pair?" -" lst_307)" -"(let-values(((id_103)" +" lst_316)" +"(let-values(((id_87)" "(unsafe-car" -" lst_307))" -"((rest_176)" +" lst_316))" +"((rest_179)" "(unsafe-cdr" -" lst_307)))" -"(let-values(((fold-var_274)" -"(let-values(((fold-var_275)" -" fold-var_273))" -"(let-values(((fold-var_230)" +" lst_316)))" +"(let-values(((fold-var_237)" +"(let-values(((fold-var_280)" +" fold-var_182))" +"(let-values(((fold-var_281)" "(let-values()" "(cons" "(let-values()" -"(let-values(((frame-id100_0)" +"(let-values(((id97_0)" +" id_87)" +"((phase98_0)" +" phase_16)" +"((counter99_0)" +" counter_5)" +"((frame-id100_0)" " frame-id_2)" "((exp-body101_0)" " exp-body_0))" @@ -60382,578 +60597,26 @@ static const char *startup_source = " #t" " exp-body101_0" " #t" -" id_103" -" phase_142" -" counter_5)))" -" fold-var_275))))" -"(values" -" fold-var_230)))))" -"(if(not" -" #f)" -"(for-loop_12" -" fold-var_274" -" rest_176)" -" fold-var_274)))" -" fold-var_273)))))" -" for-loop_12)" -" null" -" lst_192))))))" -"(let-values(((extended-env_0)" -"(let-values(((lst_308)" -" keys_5)" -"((lst_222)" -" ids_4))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_308)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_222)))" -"((letrec-values(((for-loop_230)" -"(lambda(env_17" -" lst_193" -" lst_224)" -"(begin" -" 'for-loop" -"(if(if(pair?" -" lst_193)" -"(pair?" -" lst_224)" -" #f)" -"(let-values(((key_90)" -"(unsafe-car" -" lst_193))" -"((rest_177)" -"(unsafe-cdr" -" lst_193))" -"((id_104)" -"(unsafe-car" -" lst_224))" -"((rest_102)" -"(unsafe-cdr" -" lst_224)))" -"(let-values(((env_18)" -"(let-values(((env_19)" -" env_17))" -"(let-values(((env_20)" -"(let-values()" -"(env-extend" -" env_19" -" key_90" -"(local-variable1.1" -" id_104)))))" -"(values" -" env_20)))))" -"(if(not" -" #f)" -"(for-loop_230" -" env_18" -" rest_177" -" rest_102)" -" env_18)))" -" env_17)))))" -" for-loop_230)" -"(expand-context-env" -" body-ctx_2)" -" lst_308" -" lst_222)))))" -"(loop_126" -"(let-values(((v_246)" -" body-ctx_2))" -"(let-values(((the-struct_52)" -" v_246))" -"(if(expand-context/outer?" -" the-struct_52)" -"(let-values(((env102_0)" -" extended-env_0)" -"((binding-layer103_0)" -"(maybe-increment-binding-layer_0" -" ids_4" -" body-ctx_2))" -"((inner104_0)" -"(root-expand-context/outer-inner" -" v_246)))" -"(expand-context/outer1.1" -" inner104_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_52)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_52)" -"(root-expand-context/outer-frame-id" -" the-struct_52)" -"(expand-context/outer-context" -" the-struct_52)" -" env102_0" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_52)" -"(expand-context/outer-scopes" -" the-struct_52)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_52)" -" binding-layer103_0" -"(expand-context/outer-reference-records" -" the-struct_52)" -"(expand-context/outer-only-immediate?" -" the-struct_52)" -"(expand-context/outer-need-eventually-defined" -" the-struct_52)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_52)" -"(expand-context/outer-name" -" the-struct_52)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/outer?\"" -" the-struct_52))))" -" rest-bodys_0" -" null" -"(cons" -" ids_4" -"(append" -"(reverse$1" -"(let-values(((lst_196)" -" done-bodys_0))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_196)))" -"((letrec-values(((for-loop_41)" -"(lambda(fold-var_187" -" lst_197)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_197)" -"(let-values(((done-body_0)" -"(unsafe-car" -" lst_197))" -"((rest_178)" -"(unsafe-cdr" -" lst_197)))" -"(let-values(((fold-var_276)" -"(let-values(((fold-var_277)" -" fold-var_187))" -"(let-values(((fold-var_278)" -"(let-values()" -"(cons" -"(let-values()" -" null)" -" fold-var_277))))" -"(values" -" fold-var_278)))))" -"(if(not" -" #f)" -"(for-loop_41" -" fold-var_276" -" rest_178)" -" fold-var_276)))" -" fold-var_187)))))" -" for-loop_41)" -" null" -" lst_196))))" -" val-idss_0))" -"(cons" -" keys_5" -"(append" -"(reverse$1" -"(let-values(((lst_309)" -" done-bodys_0))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_309)))" -"((letrec-values(((for-loop_270)" -"(lambda(fold-var_190" -" lst_310)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_310)" -"(let-values(((done-body_1)" -"(unsafe-car" -" lst_310))" -"((rest_179)" -"(unsafe-cdr" -" lst_310)))" -"(let-values(((fold-var_279)" -"(let-values(((fold-var_280)" -" fold-var_190))" -"(let-values(((fold-var_281)" -"(let-values()" -"(cons" -"(let-values()" -" null)" +" id97_0" +" phase98_0" +" counter99_0)))" " fold-var_280))))" "(values" " fold-var_281)))))" "(if(not" " #f)" -"(for-loop_270" -" fold-var_279" +"(for-loop_38" +" fold-var_237" " rest_179)" -" fold-var_279)))" -" fold-var_190)))))" -" for-loop_270)" +" fold-var_237)))" +" fold-var_182)))))" +" for-loop_38)" " null" -" lst_309))))" -" val-keyss_0))" -"(cons" -" rhs85_0" -"(append" -"(reverse$1" -"(let-values(((lst_149)" -" done-bodys_0))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_149)))" -"((letrec-values(((for-loop_116)" -"(lambda(fold-var_282" -" lst_311)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_311)" -"(let-values(((done-body_2)" -"(unsafe-car" -" lst_311))" -"((rest_180)" -"(unsafe-cdr" -" lst_311)))" -"(let-values(((fold-var_41)" -"(let-values(((fold-var_283)" -" fold-var_282))" -"(let-values(((fold-var_22)" -"(let-values()" -"(cons" -"(let-values()" -"(no-binds" -" done-body_2" -" s_40" -" phase_142))" -" fold-var_283))))" -"(values" -" fold-var_22)))))" -"(if(not" -" #f)" -"(for-loop_116" -" fold-var_41" -" rest_180)" -" fold-var_41)))" -" fold-var_282)))))" -" for-loop_116)" -" null" -" lst_149))))" -" val-rhss_0))" -"(cons" -" exp-body_0" -"(append" -"(reverse$1" -"(let-values(((lst_103)" -" done-bodys_0))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_103)))" -"((letrec-values(((for-loop_118)" -"(lambda(fold-var_25" -" lst_150)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_150)" -"(let-values(((done-body_3)" -"(unsafe-car" -" lst_150))" -"((rest_75)" -"(unsafe-cdr" -" lst_150)))" -"(let-values(((fold-var_131)" -"(let-values(((fold-var_132)" -" fold-var_25))" -"(let-values(((fold-var_133)" -"(let-values()" -"(cons" -"(let-values()" -" #f)" -" fold-var_132))))" -"(values" -" fold-var_133)))))" -"(if(not" -" #f)" -"(for-loop_118" -" fold-var_131" -" rest_75)" -" fold-var_131)))" -" fold-var_25)))))" -" for-loop_118)" -" null" -" lst_103))))" -" track-stxs_0))" -" trans-idss_1" -" stx-clauses_0" -" new-dups_0))))))))))" -"(if(equal? tmp_61 'define-syntaxes)" -"(let-values()" -"(let-values((()" -"(begin" -"(let-values(((obs_70)" -"(expand-context-observer" -" body-ctx_2)))" -"(if obs_70" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_70" -" 'prim-define-syntaxes)))" -"(void)))" -"(values))))" -"(let-values(((ok?_4" -" define-syntaxes105_0" -" id106_0" -" rhs107_0)" -"(let-values(((s_93)" -" disarmed-exp-body_0))" -"(let-values(((orig-s_41)" -" s_93))" -"(let-values(((define-syntaxes105_1" -" id106_1" -" rhs107_1)" -"(let-values(((s_95)" -"(if(syntax?$1" -" s_93)" -"(syntax-e$1" -" s_93)" -" s_93)))" -"(if(pair?" -" s_95)" -"(let-values(((define-syntaxes108_0)" -"(let-values(((s_492)" -"(car" -" s_95)))" -" s_492))" -"((id109_0" -" rhs110_0)" -"(let-values(((s_493)" -"(cdr" -" s_95)))" -"(let-values(((s_402)" -"(if(syntax?$1" -" s_493)" -"(syntax-e$1" -" s_493)" -" s_493)))" -"(if(pair?" -" s_402)" -"(let-values(((id111_0)" -"(let-values(((s_494)" -"(car" -" s_402)))" -"(let-values(((s_208)" -"(if(syntax?$1" -" s_494)" -"(syntax-e$1" -" s_494)" -" s_494)))" -"(let-values(((flat-s_26)" -"(to-syntax-list.1" -" s_208)))" -"(if(not" -" flat-s_26)" -"(let-values()" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_41))" -"(let-values()" -"(let-values(((id_105)" -"(let-values(((lst_40)" -" flat-s_26))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_40)))" -"((letrec-values(((for-loop_54)" -"(lambda(id_106" -" lst_41)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_41)" -"(let-values(((s_67)" -"(unsafe-car" -" lst_41))" -"((rest_17)" -"(unsafe-cdr" -" lst_41)))" -"(let-values(((id_107)" -"(let-values(((id_108)" -" id_106))" -"(let-values(((id_109)" -"(let-values()" -"(let-values(((id114_0)" -"(let-values()" -"(if(let-values(((or-part_375)" -"(if(syntax?$1" -" s_67)" -"(symbol?" -"(syntax-e$1" -" s_67))" -" #f)))" -"(if or-part_375" -" or-part_375" -"(symbol?" -" s_67)))" -" s_67" -"(raise-syntax-error$1" -" #f" -" \"not an identifier\"" -" orig-s_41" -" s_67)))))" -"(cons" -" id114_0" -" id_108)))))" -"(values" -" id_109)))))" -"(if(not" -" #f)" -"(for-loop_54" -" id_107" -" rest_17)" -" id_107)))" -" id_106)))))" -" for-loop_54)" -" null" -" lst_40)))))" -"(reverse$1" -" id_105))))))))" -"((rhs112_0)" -"(let-values(((s_102)" -"(cdr" -" s_402)))" -"(let-values(((s_154)" -"(if(syntax?$1" -" s_102)" -"(syntax-e$1" -" s_102)" -" s_102)))" -"(if(pair?" -" s_154)" -"(let-values(((rhs113_0)" -"(let-values(((s_495)" -"(car" -" s_154)))" -" s_495))" -"(()" -"(let-values(((s_496)" -"(cdr" -" s_154)))" -"(let-values(((s_497)" -"(if(syntax?$1" -" s_496)" -"(syntax-e$1" -" s_496)" -" s_496)))" -"(if(null?" -" s_497)" -"(values)" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_41))))))" -"(values" -" rhs113_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_41))))))" -"(values" -" id111_0" -" rhs112_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_41))))))" -"(values" -" define-syntaxes108_0" -" id109_0" -" rhs110_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_41)))))" -"(values" -" #t" -" define-syntaxes105_1" -" id106_1" -" rhs107_1))))))" -"(let-values(((ids_29)" -"(remove-use-site-scopes" -" id106_0" -" body-ctx_2)))" -"(let-values((()" -"(begin" -"(let-values(((obs_46)" -"(expand-context-observer" -" body-ctx_2)))" -"(if obs_46" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_46" -" 'rename-one" -"(datum->syntax$1" -" #f" -"(list" -" ids_29" -" rhs107_0)))))" -"(void)))" -"(values))))" -"(let-values(((new-dups_1)" -"(let-values(((ids115_0)" -" ids_29)" -"((phase116_0)" -" phase_142)" -"((exp-body117_0)" -" exp-body_0)" -"((dups118_0)" -" dups_0))" -"(check-no-duplicate-ids8.1" -" #f" -" #f" -" ids115_0" -" phase116_0" -" exp-body117_0" -" dups118_0" -" #t))))" -"(let-values(((counter_6)" -"(root-expand-context-counter" -" ctx_14)))" -"(let-values(((keys_6)" -"(reverse$1" -"(let-values(((lst_312)" +" lst_50))))))" +"(let-values(((extended-env_0)" +"(let-values(((lst_231)" +" keys_5)" +"((lst_197)" " ids_29))" "(begin" "(if(variable-reference-from-unsafe?" @@ -60961,208 +60624,79 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_312)))" -"((letrec-values(((for-loop_271)" -"(lambda(fold-var_284" -" lst_313)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_313)" -"(let-values(((id_110)" -"(unsafe-car" -" lst_313))" -"((rest_181)" -"(unsafe-cdr" -" lst_313)))" -"(let-values(((fold-var_285)" -"(let-values(((fold-var_286)" -" fold-var_284))" -"(let-values(((fold-var_287)" -"(let-values()" -"(cons" -"(let-values()" -"(let-values(((frame-id122_0)" -" frame-id_2)" -"((exp-body123_0)" -" exp-body_0))" -"(add-local-binding!35.1" -" frame-id122_0" -" #t" -" exp-body123_0" -" #t" -" id_110" -" phase_142" -" counter_6)))" -" fold-var_286))))" -"(values" -" fold-var_287)))))" -"(if(not" -" #f)" -"(for-loop_271" -" fold-var_285" -" rest_181)" -" fold-var_285)))" -" fold-var_284)))))" -" for-loop_271)" -" null" -" lst_312))))))" -"(let-values((()" -"(begin" -"(let-values(((obs_71)" -"(expand-context-observer" -" body-ctx_2)))" -"(if obs_71" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_71" -" 'prepare-env)))" -"(void)))" -"(values))))" -"(let-values((()" -"(begin" -"(prepare-next-phase-namespace" -" ctx_14)" -"(values))))" -"(let-values((()" -"(begin" -"(let-values(((obs_72)" -"(expand-context-observer" -" body-ctx_2)))" -"(if obs_72" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_72" -" 'enter-bind)))" -"(void)))" -"(values))))" -"(let-values(((vals_8)" -"(eval-for-syntaxes-binding" -" rhs107_0" -" ids_29" -" body-ctx_2)))" -"(let-values(((extended-env_1)" -"(let-values(((lst_314)" -" keys_6)" -"((lst_315)" -" vals_8)" -"((lst_316)" -" ids_29))" -"(begin" +" lst_231)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_314)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_315)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_316)))" -"((letrec-values(((for-loop_272)" -"(lambda(env_21" +" lst_197)))" +"((letrec-values(((for-loop_256)" +"(lambda(env_17" " lst_317" -" lst_318" -" lst_319)" +" lst_29)" "(begin" " 'for-loop" "(if(if(pair?" " lst_317)" -"(if(pair?" -" lst_318)" "(pair?" -" lst_319)" +" lst_29)" " #f)" -" #f)" -"(let-values(((key_91)" +"(let-values(((key_88)" "(unsafe-car" " lst_317))" -"((rest_182)" +"((rest_149)" "(unsafe-cdr" " lst_317))" -"((val_83)" +"((id_9)" "(unsafe-car" -" lst_318))" -"((rest_183)" +" lst_29))" +"((rest_180)" "(unsafe-cdr" -" lst_318))" -"((id_111)" -"(unsafe-car" -" lst_319))" -"((rest_184)" -"(unsafe-cdr" -" lst_319)))" -"(let-values(((env_22)" -"(let-values(((env_23)" -" env_21))" -"(let-values(((env_24)" +" lst_29)))" +"(let-values(((env_1)" +"(let-values(((env_18)" +" env_17))" +"(let-values(((env_19)" "(let-values()" -"(begin" -"(maybe-install-free=id-in-context!" -" val_83" -" id_111" -" phase_142" -" body-ctx_2)" "(env-extend" -" env_23" -" key_91" -" val_83)))))" +" env_18" +" key_88" +"(local-variable1.1" +" id_9)))))" "(values" -" env_24)))))" +" env_19)))))" "(if(not" " #f)" -"(for-loop_272" -" env_22" -" rest_182" -" rest_183" -" rest_184)" -" env_22)))" -" env_21)))))" -" for-loop_272)" +"(for-loop_256" +" env_1" +" rest_149" +" rest_180)" +" env_1)))" +" env_17)))))" +" for-loop_256)" "(expand-context-env" " body-ctx_2)" -" lst_314" -" lst_315" -" lst_316)))))" -"(begin" -"(let-values(((obs_73)" -"(expand-context-observer" -" body-ctx_2)))" -"(if obs_73" -"(let-values()" -"(let-values()" -"(call-expand-observe" -" obs_73" -" 'exit-bind)))" -"(void)))" -"(loop_126" -"(let-values(((v_247)" +" lst_231" +" lst_197)))))" +"(loop_119" +"(let-values(((v_251)" " body-ctx_2))" "(let-values(((the-struct_93)" -" v_247))" +" v_251))" "(if(expand-context/outer?" " the-struct_93)" -"(let-values(((env124_0)" -" extended-env_1)" -"((binding-layer125_0)" +"(let-values(((env102_0)" +" extended-env_0)" +"((binding-layer103_0)" "(maybe-increment-binding-layer_0" " ids_29" " body-ctx_2))" -"((inner126_0)" +"((inner104_0)" "(root-expand-context/outer-inner" -" v_247)))" +" v_251)))" "(expand-context/outer1.1" -" inner126_0" +" inner104_0" "(root-expand-context/outer-post-expansion-scope" " the-struct_93)" "(root-expand-context/outer-use-site-scopes" @@ -61171,14 +60705,14 @@ static const char *startup_source = " the-struct_93)" "(expand-context/outer-context" " the-struct_93)" -" env124_0" +" env102_0" "(expand-context/outer-post-expansion-scope-action" " the-struct_93)" "(expand-context/outer-scopes" " the-struct_93)" "(expand-context/outer-def-ctx-scopes" " the-struct_93)" -" binding-layer125_0" +" binding-layer103_0" "(expand-context/outer-reference-records" " the-struct_93)" "(expand-context/outer-only-immediate?" @@ -61191,22 +60725,709 @@ static const char *startup_source = " the-struct_93)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/outer?\"" +" \"expand-context/outer?\"" " the-struct_93))))" " rest-bodys_0" +" null" +"(cons" +" ids_29" +"(append" +"(reverse$1" +"(let-values(((lst_31)" +" done-bodys_0))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_31)))" +"((letrec-values(((for-loop_24)" +"(lambda(fold-var_282" +" lst_32)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_32)" +"(let-values(((done-body_0)" +"(unsafe-car" +" lst_32))" +"((rest_12)" +"(unsafe-cdr" +" lst_32)))" +"(let-values(((fold-var_283)" +"(let-values(((fold-var_284)" +" fold-var_282))" +"(let-values(((fold-var_285)" +"(let-values()" +"(cons" +"(let-values()" +" null)" +" fold-var_284))))" +"(values" +" fold-var_285)))))" +"(if(not" +" #f)" +"(for-loop_24" +" fold-var_283" +" rest_12)" +" fold-var_283)))" +" fold-var_282)))))" +" for-loop_24)" +" null" +" lst_31))))" +" val-idss_0))" +"(cons" +" keys_5" +"(append" +"(reverse$1" +"(let-values(((lst_73)" +" done-bodys_0))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_73)))" +"((letrec-values(((for-loop_90)" +"(lambda(fold-var_286" +" lst_37)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_37)" +"(let-values(((done-body_1)" +"(unsafe-car" +" lst_37))" +"((rest_33)" +"(unsafe-cdr" +" lst_37)))" +"(let-values(((fold-var_287)" +"(let-values(((fold-var_288)" +" fold-var_286))" +"(let-values(((fold-var_289)" +"(let-values()" +"(cons" +"(let-values()" +" null)" +" fold-var_288))))" +"(values" +" fold-var_289)))))" +"(if(not" +" #f)" +"(for-loop_90" +" fold-var_287" +" rest_33)" +" fold-var_287)))" +" fold-var_286)))))" +" for-loop_90)" +" null" +" lst_73))))" +" val-keyss_0))" +"(cons" +" rhs85_0" +"(append" +"(reverse$1" +"(let-values(((lst_318)" +" done-bodys_0))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_318)))" +"((letrec-values(((for-loop_254)" +"(lambda(fold-var_24" +" lst_106)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_106)" +"(let-values(((done-body_2)" +"(unsafe-car" +" lst_106))" +"((rest_51)" +"(unsafe-cdr" +" lst_106)))" +"(let-values(((fold-var_290)" +"(let-values(((fold-var_133)" +" fold-var_24))" +"(let-values(((fold-var_134)" +"(let-values()" +"(cons" +"(let-values()" +"(no-binds" +" done-body_2" +" s_40" +" phase_16))" +" fold-var_133))))" +"(values" +" fold-var_134)))))" +"(if(not" +" #f)" +"(for-loop_254" +" fold-var_290" +" rest_51)" +" fold-var_290)))" +" fold-var_24)))))" +" for-loop_254)" +" null" +" lst_318))))" +" val-rhss_0))" +"(cons" +" exp-body_0" +"(append" +"(reverse$1" +"(let-values(((lst_319)" +" done-bodys_0))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_319)))" +"((letrec-values(((for-loop_281)" +"(lambda(fold-var_291" +" lst_320)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_320)" +"(let-values(((done-body_3)" +"(unsafe-car" +" lst_320))" +"((rest_181)" +"(unsafe-cdr" +" lst_320)))" +"(let-values(((fold-var_292)" +"(let-values(((fold-var_39)" +" fold-var_291))" +"(let-values(((fold-var_137)" +"(let-values()" +"(cons" +"(let-values()" +" #f)" +" fold-var_39))))" +"(values" +" fold-var_137)))))" +"(if(not" +" #f)" +"(for-loop_281" +" fold-var_292" +" rest_181)" +" fold-var_292)))" +" fold-var_291)))))" +" for-loop_281)" +" null" +" lst_319))))" +" track-stxs_0))" +" trans-idss_1" +" stx-clauses_0" +" new-dups_0))))))))))" +"(if(equal? tmp_61 'define-syntaxes)" +"(let-values()" +"(let-values((()" +"(begin" +"(let-values(((obs_72)" +"(expand-context-observer" +" body-ctx_2)))" +"(if obs_72" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_72" +" 'prim-define-syntaxes)))" +"(void)))" +"(values))))" +"(let-values(((ok?_20" +" define-syntaxes105_0" +" id106_0" +" rhs107_0)" +"(let-values(((s_484)" +" disarmed-exp-body_0))" +"(let-values(((orig-s_39)" +" s_484))" +"(let-values(((define-syntaxes105_1" +" id106_1" +" rhs107_1)" +"(let-values(((s_412)" +"(if(syntax?$1" +" s_484)" +"(syntax-e$1" +" s_484)" +" s_484)))" +"(if(pair?" +" s_412)" +"(let-values(((define-syntaxes108_0)" +"(let-values(((s_485)" +"(car" +" s_412)))" +" s_485))" +"((id109_0" +" rhs110_0)" +"(let-values(((s_486)" +"(cdr" +" s_412)))" +"(let-values(((s_207)" +"(if(syntax?$1" +" s_486)" +"(syntax-e$1" +" s_486)" +" s_486)))" +"(if(pair?" +" s_207)" +"(let-values(((id111_0)" +"(let-values(((s_65)" +"(car" +" s_207)))" +"(let-values(((s_208)" +"(if(syntax?$1" +" s_65)" +"(syntax-e$1" +" s_65)" +" s_65)))" +"(let-values(((flat-s_26)" +"(to-syntax-list.1" +" s_208)))" +"(if(not" +" flat-s_26)" +"(let-values()" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_39))" +"(let-values()" +"(let-values(((id_110)" +"(let-values(((lst_321)" +" flat-s_26))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_321)))" +"((letrec-values(((for-loop_282)" +"(lambda(id_111" +" lst_322)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_322)" +"(let-values(((s_487)" +"(unsafe-car" +" lst_322))" +"((rest_182)" +"(unsafe-cdr" +" lst_322)))" +"(let-values(((id_112)" +"(let-values(((id_113)" +" id_111))" +"(let-values(((id_114)" +"(let-values()" +"(let-values(((id114_0)" +"(let-values()" +"(if(let-values(((or-part_319)" +"(if(syntax?$1" +" s_487)" +"(symbol?" +"(syntax-e$1" +" s_487))" +" #f)))" +"(if or-part_319" +" or-part_319" +"(symbol?" +" s_487)))" +" s_487" +"(raise-syntax-error$1" +" #f" +" \"not an identifier\"" +" orig-s_39" +" s_487)))))" +"(cons" +" id114_0" +" id_113)))))" +"(values" +" id_114)))))" +"(if(not" +" #f)" +"(for-loop_282" +" id_112" +" rest_182)" +" id_112)))" +" id_111)))))" +" for-loop_282)" +" null" +" lst_321)))))" +"(reverse$1" +" id_110))))))))" +"((rhs112_0)" +"(let-values(((s_488)" +"(cdr" +" s_207)))" +"(let-values(((s_489)" +"(if(syntax?$1" +" s_488)" +"(syntax-e$1" +" s_488)" +" s_488)))" +"(if(pair?" +" s_489)" +"(let-values(((rhs113_0)" +"(let-values(((s_101)" +"(car" +" s_489)))" +" s_101))" +"(()" +"(let-values(((s_324)" +"(cdr" +" s_489)))" +"(let-values(((s_490)" +"(if(syntax?$1" +" s_324)" +"(syntax-e$1" +" s_324)" +" s_324)))" +"(if(null?" +" s_490)" +"(values)" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_39))))))" +"(values" +" rhs113_0))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_39))))))" +"(values" +" id111_0" +" rhs112_0))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_39))))))" +"(values" +" define-syntaxes108_0" +" id109_0" +" rhs110_0))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_39)))))" +"(values" +" #t" +" define-syntaxes105_1" +" id106_1" +" rhs107_1))))))" +"(let-values(((ids_30)" +"(remove-use-site-scopes" +" id106_0" +" body-ctx_2)))" +"(let-values((()" +"(begin" +"(let-values(((obs_73)" +"(expand-context-observer" +" body-ctx_2)))" +"(if obs_73" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_73" +" 'rename-one" +"(datum->syntax$1" +" #f" +"(list" +" ids_30" +" rhs107_0)))))" +"(void)))" +"(values))))" +"(let-values(((new-dups_1)" +"(let-values(((ids115_0)" +" ids_30)" +"((phase116_1)" +" phase_16)" +"((exp-body117_0)" +" exp-body_0)" +"((dups118_0)" +" dups_0))" +"(check-no-duplicate-ids8.1" +" #f" +" #f" +" ids115_0" +" phase116_1" +" exp-body117_0" +" dups118_0" +" #t))))" +"(let-values(((counter_6)" +"(root-expand-context-counter" +" ctx_14)))" +"(let-values(((keys_6)" +"(reverse$1" +"(let-values(((lst_323)" +" ids_30))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_323)))" +"((letrec-values(((for-loop_283)" +"(lambda(fold-var_293" +" lst_324)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_324)" +"(let-values(((id_115)" +"(unsafe-car" +" lst_324))" +"((rest_183)" +"(unsafe-cdr" +" lst_324)))" +"(let-values(((fold-var_294)" +"(let-values(((fold-var_295)" +" fold-var_293))" +"(let-values(((fold-var_296)" +"(let-values()" +"(cons" +"(let-values()" +"(let-values(((id119_0)" +" id_115)" +"((phase120_0)" +" phase_16)" +"((counter121_0)" +" counter_6)" +"((frame-id122_0)" +" frame-id_2)" +"((exp-body123_0)" +" exp-body_0))" +"(add-local-binding!35.1" +" frame-id122_0" +" #t" +" exp-body123_0" +" #t" +" id119_0" +" phase120_0" +" counter121_0)))" +" fold-var_295))))" +"(values" +" fold-var_296)))))" +"(if(not" +" #f)" +"(for-loop_283" +" fold-var_294" +" rest_183)" +" fold-var_294)))" +" fold-var_293)))))" +" for-loop_283)" +" null" +" lst_323))))))" +"(let-values((()" +"(begin" +"(let-values(((obs_74)" +"(expand-context-observer" +" body-ctx_2)))" +"(if obs_74" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_74" +" 'prepare-env)))" +"(void)))" +"(values))))" +"(let-values((()" +"(begin" +"(prepare-next-phase-namespace" +" ctx_14)" +"(values))))" +"(let-values((()" +"(begin" +"(let-values(((obs_75)" +"(expand-context-observer" +" body-ctx_2)))" +"(if obs_75" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_75" +" 'enter-bind)))" +"(void)))" +"(values))))" +"(let-values(((vals_8)" +"(eval-for-syntaxes-binding" +" rhs107_0" +" ids_30" +" body-ctx_2)))" +"(let-values(((extended-env_1)" +"(let-values(((lst_325)" +" keys_6)" +"((lst_326)" +" vals_8)" +"((lst_327)" +" ids_30))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_325)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_326)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_327)))" +"((letrec-values(((for-loop_284)" +"(lambda(env_20" +" lst_328" +" lst_46" +" lst_329)" +"(begin" +" 'for-loop" +"(if(if(pair?" +" lst_328)" +"(if(pair?" +" lst_46)" +"(pair?" +" lst_329)" +" #f)" +" #f)" +"(let-values(((key_89)" +"(unsafe-car" +" lst_328))" +"((rest_184)" +"(unsafe-cdr" +" lst_328))" +"((val_38)" +"(unsafe-car" +" lst_46))" +"((rest_185)" +"(unsafe-cdr" +" lst_46))" +"((id_116)" +"(unsafe-car" +" lst_329))" +"((rest_186)" +"(unsafe-cdr" +" lst_329)))" +"(let-values(((env_21)" +"(let-values(((env_22)" +" env_20))" +"(let-values(((env_23)" +"(let-values()" +"(begin" +"(maybe-install-free=id-in-context!" +" val_38" +" id_116" +" phase_16" +" body-ctx_2)" +"(env-extend" +" env_22" +" key_89" +" val_38)))))" +"(values" +" env_23)))))" +"(if(not" +" #f)" +"(for-loop_284" +" env_21" +" rest_184" +" rest_185" +" rest_186)" +" env_21)))" +" env_20)))))" +" for-loop_284)" +"(expand-context-env" +" body-ctx_2)" +" lst_325" +" lst_326" +" lst_327)))))" +"(begin" +"(let-values(((obs_76)" +"(expand-context-observer" +" body-ctx_2)))" +"(if obs_76" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_76" +" 'exit-bind)))" +"(void)))" +"(loop_119" +"(let-values(((v_252)" +" body-ctx_2))" +"(let-values(((the-struct_71)" +" v_252))" +"(if(expand-context/outer?" +" the-struct_71)" +"(let-values(((env124_0)" +" extended-env_1)" +"((binding-layer125_0)" +"(maybe-increment-binding-layer_0" +" ids_30" +" body-ctx_2))" +"((inner126_0)" +"(root-expand-context/outer-inner" +" v_252)))" +"(expand-context/outer1.1" +" inner126_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_71)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_71)" +"(root-expand-context/outer-frame-id" +" the-struct_71)" +"(expand-context/outer-context" +" the-struct_71)" +" env124_0" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_71)" +"(expand-context/outer-scopes" +" the-struct_71)" +"(expand-context/outer-def-ctx-scopes" +" the-struct_71)" +" binding-layer125_0" +"(expand-context/outer-reference-records" +" the-struct_71)" +"(expand-context/outer-only-immediate?" +" the-struct_71)" +"(expand-context/outer-need-eventually-defined" +" the-struct_71)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_71)" +"(expand-context/outer-name" +" the-struct_71)))" +"(raise-argument-error" +" 'struct-copy" +" \"expand-context/outer?\"" +" the-struct_71))))" +" rest-bodys_0" " done-bodys_0" " val-idss_0" " val-keyss_0" " val-rhss_0" " track-stxs_0" "(cons" -" ids_29" +" ids_30" " trans-idss_1)" "(cons" "(datum->syntax$1" " #f" "(list" -" ids_29" +" ids_30" " rhs107_0)" " rhs107_0)" " stx-clauses_0)" @@ -61220,7 +61441,7 @@ static const char *startup_source = "(let-values()" "(error" " \"internal error: accumulated expressions not empty\")))" -"(loop_126" +"(loop_119" " body-ctx_2" " null" "(if(if(null? val-idss_0)" @@ -61236,7 +61457,7 @@ static const char *startup_source = "(cons" "(core-id" " '#%stratified-body" -" phase_142)" +" phase_16)" "(cons" " exp-body_0" " rest-bodys_0)))))" @@ -61248,7 +61469,7 @@ static const char *startup_source = " stx-clauses_0" " dups_0)))" "(let-values()" -"(loop_126" +"(loop_119" " body-ctx_2" " rest-bodys_0" "(cons exp-body_0 done-bodys_0)" @@ -61259,7 +61480,7 @@ static const char *startup_source = " trans-idss_1" " stx-clauses_0" " dups_0))))))))))))))))))" -" loop_126)" +" loop_119)" " body-ctx_0" " init-bodys_0" " null" @@ -61296,9 +61517,9 @@ static const char *startup_source = "(let-values(((track-stxs_1) track-stxs24_0))" "(let-values(((stx-clauses_1) stx-clauses25_0))" "(let-values(((done-bodys_1) done-bodys26_0))" -"(let-values(((s_498) source10_0))" +"(let-values(((s_230) source10_0))" "(let-values(((stratified?_1) stratified?11_0))" -"(let-values(((name_81) name12_0))" +"(let-values(((name_79) name12_0))" "(let-values(((disappeared-transformer-bindings_0) disappeared-transformer-bindings13_0))" "(let-values()" "(let-values((()" @@ -61308,15 +61529,15 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"no expression after a sequence of internal definitions\"" -" s_498))" +" s_230))" "(void))" "(values))))" "(let-values(((finish-ctx_0)" -"(let-values(((v_248)" +"(let-values(((v_253)" "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_94) v_248))" +"(let-values(((the-struct_94) v_253))" "(if(expand-context/outer? the-struct_94)" "(let-values(((context127_0) 'expression)" "((use-site-scopes128_0)(box null))" @@ -61330,7 +61551,7 @@ static const char *startup_source = "((def-ctx-scopes131_0) #f)" "((post-expansion-scope132_0) #f)" "((inner133_0)" -"(root-expand-context/outer-inner v_248)))" +"(root-expand-context/outer-inner v_253)))" "(expand-context/outer1.1" " inner133_0" " post-expansion-scope132_0" @@ -61363,28 +61584,28 @@ static const char *startup_source = "(if block->list?_0" "(void)" "(let-values()" -"(let-values(((obs_74)" +"(let-values(((obs_77)" "(expand-context-observer" " body-ctx_3)))" -"(if obs_74" +"(if obs_77" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_74" +" obs_77" " 'next-group)))" "(void)))))" "(values))))" "(let-values(((last-i_1)(sub1(length done-bodys_1))))" "(let-values((()" "(begin" -"(let-values(((obs_75)" +"(let-values(((obs_78)" "(expand-context-observer" " body-ctx_3)))" -"(if obs_75" +"(if obs_78" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_75" +" obs_78" " 'enter-list" "(datum->syntax$1" " #f" @@ -61393,74 +61614,74 @@ static const char *startup_source = "(values))))" "(let-values(((exp-bodys_0)" "(reverse$1" -"(let-values(((lst_320) done-bodys_1)" -"((start_64) 0))" +"(let-values(((lst_330) done-bodys_1)" +"((start_65) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_320)))" +"(check-list lst_330)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-naturals start_64)))" -"((letrec-values(((for-loop_133)" -"(lambda(fold-var_254" -" lst_321" -" pos_123)" +"(check-naturals start_65)))" +"((letrec-values(((for-loop_285)" +"(lambda(fold-var_257" +" lst_331" +" pos_128)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_321)" +" lst_331)" " #t" " #f)" "(let-values(((done-body_4)" "(unsafe-car" -" lst_321))" -"((rest_185)" +" lst_331))" +"((rest_187)" "(unsafe-cdr" -" lst_321))" -"((i_192)" -" pos_123))" -"(let-values(((fold-var_255)" -"(let-values(((fold-var_203)" -" fold-var_254))" -"(let-values(((fold-var_288)" +" lst_331))" +"((i_186)" +" pos_128))" +"(let-values(((fold-var_258)" +"(let-values(((fold-var_259)" +" fold-var_257))" +"(let-values(((fold-var_260)" "(let-values()" "(cons" "(let-values()" "(begin" -"(let-values(((obs_76)" +"(let-values(((obs_79)" "(expand-context-observer" " body-ctx_3)))" -"(if obs_76" +"(if obs_79" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_76" +" obs_79" " 'next)))" "(void)))" "(let-values(((done-body134_0)" " done-body_4)" "((temp135_2)" -"(if(if name_81" +"(if(if name_79" "(=" -" i_192" +" i_186" " last-i_1)" " #f)" -"(let-values(((v_249)" +"(let-values(((v_254)" " finish-ctx_0))" "(let-values(((the-struct_95)" -" v_249))" +" v_254))" "(if(expand-context/outer?" " the-struct_95)" "(let-values(((name136_0)" -" name_81)" +" name_79)" "((inner137_0)" "(root-expand-context/outer-inner" -" v_249)))" +" v_254)))" "(expand-context/outer1.1" " inner137_0" "(root-expand-context/outer-post-expansion-scope" @@ -61502,31 +61723,31 @@ static const char *startup_source = " #f" " done-body134_0" " temp135_2))))" -" fold-var_203))))" +" fold-var_259))))" "(values" -" fold-var_288)))))" +" fold-var_260)))))" "(if(not" " #f)" -"(for-loop_133" -" fold-var_255" -" rest_185" +"(for-loop_285" +" fold-var_258" +" rest_187" "(+" -" pos_123" +" pos_128" " 1))" -" fold-var_255)))" -" fold-var_254)))))" -" for-loop_133)" +" fold-var_258)))" +" fold-var_257)))))" +" for-loop_285)" " null" -" lst_320" -" start_64))))))" +" lst_330" +" start_65))))))" "(begin" -"(let-values(((obs_77)" +"(let-values(((obs_80)" "(expand-context-observer body-ctx_3)))" -"(if obs_77" +"(if obs_80" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_77" +" obs_80" " 'exit-list" "(datum->syntax$1 #f exp-bodys_0))))" "(void)))" @@ -61535,27 +61756,27 @@ static const char *startup_source = "(if(if(null? val-idss_1)(null? disappeared-transformer-bindings_0) #f)" "(let-values()" "(begin" -"(let-values(((obs_78)(expand-context-observer finish-ctx_0)))" -"(if obs_78" +"(let-values(((obs_81)(expand-context-observer finish-ctx_0)))" +"(if obs_81" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_78" +" obs_81" " 'block->list" -"(datum->syntax$1 s_498 done-bodys_1))))" +"(datum->syntax$1 s_230 done-bodys_1))))" "(void)))" "(finish-bodys_0)))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_79)" +"(let-values(((obs_82)" "(expand-context-observer finish-ctx_0)))" -"(if obs_79" +"(if obs_82" "(let-values()" "(log-letrec-values$1" -" obs_79" +" obs_82" " finish-ctx_0" -" s_498" +" s_230" " val-idss_1" " val-rhss_1" " track-stxs_1" @@ -61563,11 +61784,15 @@ static const char *startup_source = " done-bodys_1))" "(void)))" "(values))))" -"(let-values(((exp-s_12)" -"(let-values(((temp142_1)(not stratified?_1))" +"(let-values(((exp-s_13)" +"(let-values(((val-idss138_0) val-idss_1)" +"((val-keyss139_0) val-keyss_1)" +"((val-rhss140_0) val-rhss_1)" +"((track-stxs141_0) track-stxs_1)" +"((temp142_1)(not stratified?_1))" "((frame-id143_0) frame-id_13)" "((finish-ctx144_0) finish-ctx_0)" -"((s145_0) s_498)" +"((s145_0) s_230)" "((temp146_1)(pair? stx-clauses_1))" "((finish-bodys147_0) finish-bodys_0)" "((temp148_1) #f))" @@ -61579,24 +61804,24 @@ static const char *startup_source = " s145_0" " temp142_1" " temp148_1" -" val-idss_1" -" val-keyss_1" -" val-rhss_1" -" track-stxs_1))))" +" val-idss138_0" +" val-keyss139_0" +" val-rhss140_0" +" track-stxs141_0))))" "(begin" -"(let-values(((obs_80)(expand-context-observer body-ctx_3)))" -"(if obs_80" +"(let-values(((obs_83)(expand-context-observer body-ctx_3)))" +"(if obs_83" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_80 'exit-prim exp-s_12)" -"(call-expand-observe obs_80 'return exp-s_12))))" +"(call-expand-observe obs_83 'exit-prim exp-s_13)" +"(call-expand-observe obs_83 'return exp-s_13))))" "(void)))" "(if(expand-context-to-parsed? body-ctx_3)" -"(list exp-s_12)" +"(list exp-s_13)" "(list" "(attach-disappeared-transformer-bindings" -" exp-s_12" +" exp-s_13" " disappeared-transformer-bindings_0))))))))))))))))))))))))))))" "(define-values" "(expand-and-split-bindings-by-reference48.1)" @@ -61619,14 +61844,14 @@ static const char *startup_source = "(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_74) ctx32_0))" -"(let-values(((s_371) source33_0))" +"(let-values(((ctx_76) ctx32_0))" +"(let-values(((s_491) 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()" -"(let-values(((phase_143)(expand-context-phase ctx_74)))" -"((letrec-values(((loop_127)" +"(let-values(((phase_140)(expand-context-phase ctx_76)))" +"((letrec-values(((loop_120)" "(lambda(idss_2" " keyss_1" " rhss_2" @@ -61647,15 +61872,15 @@ static const char *startup_source = "(let-values()" "(let-values(((exp-body_1)(get-body_0)))" "(let-values(((result-s_9)" -"(if(expand-context-to-parsed? ctx_74)" +"(if(expand-context-to-parsed? ctx_76)" "(if(null? accum-idss_0)" "(parsed-let-values17.1" -"(keep-properties-only s_371)" +"(keep-properties-only s_491)" " null" " null" " exp-body_1)" "(parsed-letrec-values18.1" -"(keep-properties-only s_371)" +"(keep-properties-only s_491)" "(reverse$1 accum-idss_0)" "(reverse$1" "(map2" @@ -61664,16 +61889,16 @@ static const char *startup_source = " accum-rhss_0))" " exp-body_1))" "(let-values(((track?149_0) track?_2)" -"((s150_0) s_371)" +"((s150_0) s_491)" "((temp151_2)" "(list*" "(if(null? accum-idss_0)" "(core-id" " 'let-values" -" phase_143)" +" phase_140)" "(core-id" " 'letrec-values" -" phase_143))" +" phase_140))" "(build-clauses" " accum-idss_0" " accum-rhss_0" @@ -61685,16 +61910,16 @@ static const char *startup_source = " s150_0" " temp151_2)))))" "(begin" -"(let-values(((obs_81)" -"(expand-context-observer ctx_74)))" -"(if obs_81" +"(let-values(((obs_84)" +"(expand-context-observer ctx_76)))" +"(if obs_84" "(let-values()" "(if(if can-log?_0" -"(log-tag? had-stxes?_0 ctx_74)" +"(log-tag? had-stxes?_0 ctx_76)" " #f)" "(let-values()" "(call-expand-observe" -" obs_81" +" obs_84" " 'tag" " result-s_9))" "(void)))" @@ -61703,22 +61928,22 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_82)" +"(let-values(((obs_85)" "(expand-context-observer" -" ctx_74)))" -"(if obs_82" +" ctx_76)))" +"(if obs_85" "(let-values()" "(let-values()" -"(call-expand-observe obs_82 'next)))" +"(call-expand-observe obs_85 'next)))" "(void)))" "(values))))" -"(let-values(((ids_30)(car idss_2)))" +"(let-values(((ids_31)(car idss_2)))" "(let-values(((expanded-rhs_0)" "(let-values(((temp152_1)(car rhss_2))" "((temp153_0)" "(as-named-context" -" ctx_74" -" ids_30)))" +" ctx_76" +" ids_31)))" "(expand7.1" " #f" " #f" @@ -61752,7 +61977,7 @@ static const char *startup_source = " \"internal error: accumulated ids not empty\")))" "(values))))" "(let-values(((exp-rest_0)" -"(loop_127" +"(loop_120" "(cdr idss_2)" "(cdr keyss_1)" "(cdr rhss_2)" @@ -61766,11 +61991,11 @@ static const char *startup_source = " #f)))" "(let-values(((result-s_10)" "(if(expand-context-to-parsed?" -" ctx_74)" +" ctx_76)" "(parsed-let-values17.1" "(keep-properties-only" -" s_371)" -"(list ids_30)" +" s_491)" +"(list ids_31)" "(list" "(list" "(car keyss_1)" @@ -61779,15 +62004,15 @@ static const char *startup_source = "(let-values(((track?154_0)" " track?_2)" "((s155_0)" -" s_371)" +" s_491)" "((temp156_0)" "(list*" "(core-id" " 'let-values" -" phase_143)" +" phase_140)" "(list" "(build-clause" -" ids_30" +" ids_31" " expanded-rhs_0" " track-stx_0))" " exp-rest_0)))" @@ -61797,19 +62022,19 @@ static const char *startup_source = " s155_0" " temp156_0)))))" "(begin" -"(let-values(((obs_83)" +"(let-values(((obs_86)" "(expand-context-observer" -" ctx_74)))" -"(if obs_83" +" ctx_76)))" +"(if obs_86" "(let-values()" "(if(if can-log?_0" "(log-tag?" " had-stxes?_0" -" ctx_74)" +" ctx_76)" " #f)" "(let-values()" "(call-expand-observe" -" obs_83" +" obs_86" " 'tag" " result-s_10))" "(void)))" @@ -61818,14 +62043,14 @@ static const char *startup_source = "(list result-s_10)" " result-s_10))))))" "(if(if(not forward-references?_0)" -"(let-values(((or-part_376) split?_0))" -"(if or-part_376" -" or-part_376" +"(let-values(((or-part_373) split?_0))" +"(if or-part_373" +" or-part_373" "(null?(cdr idss_2))))" " #f)" "(let-values()" "(let-values(((exp-rest_1)" -"(loop_127" +"(loop_120" "(cdr idss_2)" "(cdr keyss_1)" "(cdr rhss_2)" @@ -61839,13 +62064,13 @@ static const char *startup_source = " #f)))" "(let-values(((result-s_11)" "(if(expand-context-to-parsed?" -" ctx_74)" +" ctx_76)" "(parsed-letrec-values18.1" "(keep-properties-only" -" s_371)" +" s_491)" "(reverse$1" "(cons" -" ids_30" +" ids_31" " accum-idss_0))" "(reverse$1" "(cons" @@ -61860,15 +62085,15 @@ static const char *startup_source = "(let-values(((track?157_0)" " track?_2)" "((s158_0)" -" s_371)" +" s_491)" "((temp159_1)" "(list*" "(core-id" " 'letrec-values" -" phase_143)" +" phase_140)" "(build-clauses" "(cons" -" ids_30" +" ids_31" " accum-idss_0)" "(cons" " expanded-rhs_0" @@ -61883,19 +62108,19 @@ static const char *startup_source = " s158_0" " temp159_1)))))" "(begin" -"(let-values(((obs_84)" +"(let-values(((obs_87)" "(expand-context-observer" -" ctx_74)))" -"(if obs_84" +" ctx_76)))" +"(if obs_87" "(let-values()" "(if(if can-log?_0" "(log-tag?" " had-stxes?_0" -" ctx_74)" +" ctx_76)" " #f)" "(let-values()" "(call-expand-observe" -" obs_84" +" obs_87" " 'tag" " result-s_11))" "(void)))" @@ -61904,19 +62129,19 @@ static const char *startup_source = "(list result-s_11)" " result-s_11)))))" "(let-values()" -"(loop_127" +"(loop_120" "(cdr idss_2)" "(cdr keyss_1)" "(cdr rhss_2)" "(cdr track-stxs_3)" -"(cons ids_30 accum-idss_0)" +"(cons ids_31 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" " get-list?_0" " can-log?_0)))))))))))))))))" -" loop_127)" +" loop_120)" " idss_1" " keyss_0" " rhss_1" @@ -61934,55 +62159,55 @@ static const char *startup_source = "(begin(map2 build-clause(reverse$1 accum-idss_1)(reverse$1 accum-rhss_1)(reverse$1 accum-track-stxs_1)))))" "(define-values" "(build-clause)" -"(lambda(ids_31 rhs_19 track-stx_1)" +"(lambda(ids_32 rhs_19 track-stx_1)" "(begin" -"(let-values(((clause_2)(datum->syntax$1 #f(list ids_31 rhs_19))))" +"(let-values(((clause_2)(datum->syntax$1 #f(list ids_32 rhs_19))))" "(if track-stx_1(syntax-track-origin$1 clause_2 track-stx_1) clause_2)))))" "(define-values" "(no-binds)" -"(lambda(expr_10 s_499 phase_144)" +"(lambda(expr_10 s_492 phase_141)" "(begin" -"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_144)))" +"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_141)))" "(datum->syntax$1" -"(core-id '#%app phase_144)" -"(list(core-id 'begin phase_144) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" -" s_499)))))" +"(core-id '#%app phase_141)" +"(list(core-id 'begin phase_141) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" +" s_492)))))" "(define-values" "(log-tag?)" -"(lambda(had-stxes?_1 ctx_75)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_75)) #f))))" +"(lambda(had-stxes?_1 ctx_77)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_77)) #f))))" "(define-values" "(log-letrec-values$1)" -"(lambda(obs_85 ctx_76 s_500 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" +"(lambda(obs_88 ctx_40 s_493 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" "(begin" " 'log-letrec-values" -"(let-values(((phase_145)(expand-context-phase ctx_76)))" +"(let-values(((phase_142)(expand-context-phase ctx_40)))" "(let-values(((clauses_0)" "(reverse$1" -"(let-values(((lst_322) val-idss_2)((lst_323) val-rhss_2)((lst_324) track-stxs_4))" +"(let-values(((lst_245) val-idss_2)((lst_246) val-rhss_2)((lst_284) track-stxs_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_322)))" +"(let-values()(check-list lst_245)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_323)))" +"(let-values()(check-list lst_246)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_324)))" -"((letrec-values(((for-loop_273)" -"(lambda(fold-var_289 lst_239 lst_325 lst_326)" +"(let-values()(check-list lst_284)))" +"((letrec-values(((for-loop_286)" +"(lambda(fold-var_297 lst_332 lst_286 lst_287)" "(begin" " 'for-loop" -"(if(if(pair? lst_239)(if(pair? lst_325)(pair? lst_326) #f) #f)" -"(let-values(((val-ids_0)(unsafe-car lst_239))" -"((rest_186)(unsafe-cdr lst_239))" -"((val-rhs_0)(unsafe-car lst_325))" -"((rest_187)(unsafe-cdr lst_325))" -"((track-stx_2)(unsafe-car lst_326))" -"((rest_188)(unsafe-cdr lst_326)))" -"(let-values(((fold-var_290)" -"(let-values(((fold-var_291) fold-var_289))" -"(let-values(((fold-var_292)" +"(if(if(pair? lst_332)(if(pair? lst_286)(pair? lst_287) #f) #f)" +"(let-values(((val-ids_0)(unsafe-car lst_332))" +"((rest_159)(unsafe-cdr lst_332))" +"((val-rhs_0)(unsafe-car lst_286))" +"((rest_160)(unsafe-cdr lst_286))" +"((track-stx_2)(unsafe-car lst_287))" +"((rest_188)(unsafe-cdr lst_287)))" +"(let-values(((fold-var_298)" +"(let-values(((fold-var_299) fold-var_297))" +"(let-values(((fold-var_300)" "(let-values()" "(cons" "(let-values()" @@ -61990,149 +62215,158 @@ static const char *startup_source = " #f" "(list val-ids_0 val-rhs_0)" " track-stx_2))" -" fold-var_291))))" -"(values fold-var_292)))))" +" fold-var_299))))" +"(values fold-var_300)))))" "(if(not #f)" -"(for-loop_273 fold-var_290 rest_186 rest_187 rest_188)" -" fold-var_290)))" -" fold-var_289)))))" -" for-loop_273)" +"(for-loop_286 fold-var_298 rest_159 rest_160 rest_188)" +" fold-var_298)))" +" fold-var_297)))))" +" for-loop_286)" " null" -" lst_322" -" lst_323" -" lst_324))))))" +" lst_245" +" lst_246" +" lst_284))))))" "(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_145)))" +"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_142)))" "(let-values(((lv-s_0)" "(datum->syntax$1" " #f" "(if had-stxes?_2" "(list* lv-id_0 stx-clauses_2 clauses_0 done-bodys_2)" "(list* lv-id_0 clauses_0 done-bodys_2))" -" s_500)))" +" s_493)))" "(begin" -"(call-expand-observe obs_85 'block->letrec(list lv-s_0))" -"(call-expand-observe obs_85 'visit lv-s_0)" -"(call-expand-observe obs_85 'resolve lv-id_0)" -"(call-expand-observe obs_85 'enter-prim lv-s_0)" +"(call-expand-observe obs_88 'block->letrec(list lv-s_0))" +"(call-expand-observe obs_88 'visit lv-s_0)" +"(call-expand-observe obs_88 'resolve lv-id_0)" +"(call-expand-observe obs_88 'enter-prim lv-s_0)" "(if had-stxes?_2" "(let-values()" "(begin" -"(call-expand-observe obs_85 'prim-letrec-syntaxes+values)" +"(call-expand-observe obs_88 'prim-letrec-syntaxes+values)" "(call-expand-observe" -" obs_85" +" obs_88" " 'letrec-syntaxes-renames" " stx-clauses_2" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_500))" -"(call-expand-observe obs_85 'prepare-env)" -"(call-expand-observe obs_85 'next-group)" +"(datum->syntax$1 #f done-bodys_2 s_493))" +"(call-expand-observe obs_88 'prepare-env)" +"(call-expand-observe obs_88 'next-group)" "(if(null? val-idss_2)" "(void)" "(let-values()" "(begin" -"(call-expand-observe obs_85 'prim-letrec-values)" +"(call-expand-observe obs_88 'prim-letrec-values)" "(call-expand-observe" -" obs_85" +" obs_88" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_500)))))))" +"(datum->syntax$1 #f done-bodys_2 s_493)))))))" "(let-values()" "(begin" -"(call-expand-observe obs_85 'prim-letrec-values)" +"(call-expand-observe obs_88 'prim-letrec-values)" "(call-expand-observe" -" obs_85" +" obs_88" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_500))))))))))))))" +"(datum->syntax$1 #f done-bodys_2 s_493))))))))))))))" "(define-values" "(lambda-clause-expander)" -"(lambda(s_70 disarmed-s_5 formals_1 bodys_9 ctx_77 log-renames-tag_0)" +"(lambda(s_68 disarmed-s_5 formals_1 bodys_9 ctx_78 log-renames-tag_0)" "(begin" "(let-values(((sc_31)(new-scope 'local)))" -"(let-values(((phase_78)(expand-context-phase ctx_77)))" -"(let-values(((ids_32)(parse-and-flatten-formals formals_1 sc_31 disarmed-s_5)))" +"(let-values(((phase_143)(expand-context-phase ctx_78)))" +"(let-values(((ids_33)(parse-and-flatten-formals formals_1 sc_31 disarmed-s_5)))" "(let-values((()" "(begin" -" (let-values (((temp37_4) \"argument name\"))" -"(check-no-duplicate-ids8.1 temp37_4 #t ids_32 phase_78 s_70 #f #f))" +"(let-values(((ids34_0) ids_33)" +"((phase35_1) phase_143)" +"((s36_0) s_68)" +" ((temp37_4) \"argument name\"))" +"(check-no-duplicate-ids8.1 temp37_4 #t ids34_0 phase35_1 s36_0 #f #f))" "(values))))" -"(let-values(((counter_7)(root-expand-context-counter ctx_77)))" +"(let-values(((counter_7)(root-expand-context-counter ctx_78)))" "(let-values(((keys_7)" "(reverse$1" -"(let-values(((lst_267) ids_32))" +"(let-values(((lst_86) ids_33))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_267)))" -"((letrec-values(((for-loop_274)" -"(lambda(fold-var_63 lst_38)" +"(let-values()(check-list lst_86)))" +"((letrec-values(((for-loop_287)" +"(lambda(fold-var_301 lst_266)" "(begin" " 'for-loop" -"(if(pair? lst_38)" -"(let-values(((id_112)(unsafe-car lst_38))" -"((rest_189)(unsafe-cdr lst_38)))" -"(let-values(((fold-var_293)" -"(let-values(((fold-var_64) fold-var_63))" -"(let-values(((fold-var_150)" +"(if(pair? lst_266)" +"(let-values(((id_117)(unsafe-car lst_266))" +"((rest_189)(unsafe-cdr lst_266)))" +"(let-values(((fold-var_28)" +"(let-values(((fold-var_29) fold-var_301))" +"(let-values(((fold-var_152)" "(let-values()" "(cons" "(let-values()" -"(let-values(((s41_0)" -" s_70))" +"(let-values(((id38_0)" +" id_117)" +"((phase39_0)" +" phase_143)" +"((counter40_0)" +" counter_7)" +"((s41_0)" +" s_68))" "(add-local-binding!35.1" " #f" " #f" " s41_0" " #t" -" id_112" -" phase_78" -" counter_7)))" -" fold-var_64))))" -"(values fold-var_150)))))" +" id38_0" +" phase39_0" +" counter40_0)))" +" fold-var_29))))" +"(values fold-var_152)))))" "(if(not #f)" -"(for-loop_274 fold-var_293 rest_189)" -" fold-var_293)))" -" fold-var_63)))))" -" for-loop_274)" +"(for-loop_287 fold-var_28 rest_189)" +" fold-var_28)))" +" fold-var_301)))))" +" for-loop_287)" " null" -" lst_267))))))" +" lst_86))))))" "(let-values(((body-env_0)" -"(let-values(((lst_297) keys_7)((lst_23) ids_32))" +"(let-values(((lst_79) keys_7)((lst_89) ids_33))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_297)))" +"(let-values()(check-list lst_79)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_23)))" -"((letrec-values(((for-loop_20)" -"(lambda(env_25 lst_24 lst_169)" +"(let-values()(check-list lst_89)))" +"((letrec-values(((for-loop_227)" +"(lambda(env_24 lst_81 lst_272)" "(begin" " 'for-loop" -"(if(if(pair? lst_24)(pair? lst_169) #f)" -"(let-values(((key_92)(unsafe-car lst_24))" -"((rest_139)(unsafe-cdr lst_24))" -"((id_113)(unsafe-car lst_169))" -"((rest_140)(unsafe-cdr lst_169)))" -"(let-values(((env_26)" -"(let-values(((env_27) env_25))" -"(let-values(((env_28)" +"(if(if(pair? lst_81)(pair? lst_272) #f)" +"(let-values(((key_90)(unsafe-car lst_81))" +"((rest_147)(unsafe-cdr lst_81))" +"((id_118)(unsafe-car lst_272))" +"((rest_190)(unsafe-cdr lst_272)))" +"(let-values(((env_25)" +"(let-values(((env_26) env_24))" +"(let-values(((env_27)" "(let-values()" "(env-extend" -" env_27" -" key_92" +" env_26" +" key_90" "(local-variable1.1" -" id_113)))))" -"(values env_28)))))" +" id_118)))))" +"(values env_27)))))" "(if(not #f)" -"(for-loop_20 env_26 rest_139 rest_140)" -" env_26)))" -" env_25)))))" -" for-loop_20)" -"(expand-context-env ctx_77)" -" lst_297" -" lst_23)))))" +"(for-loop_227 env_25 rest_147 rest_190)" +" env_25)))" +" env_24)))))" +" for-loop_227)" +"(expand-context-env ctx_78)" +" lst_79" +" lst_89)))))" "(let-values(((sc-formals_0)(add-scope formals_1 sc_31)))" "(let-values(((sc-bodys_0)" "(reverse$1" @@ -62142,54 +62376,54 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_17)))" "((letrec-values(((for-loop_10)" -"(lambda(fold-var_164 lst_18)" +"(lambda(fold-var_17 lst_18)" "(begin" " 'for-loop" "(if(pair? lst_18)" "(let-values(((body_12)(unsafe-car lst_18))" "((rest_5)(unsafe-cdr lst_18)))" -"(let-values(((fold-var_294)" -"(let-values(((fold-var_167)" -" fold-var_164))" -"(let-values(((fold-var_295)" +"(let-values(((fold-var_19)" +"(let-values(((fold-var_20)" +" fold-var_17))" +"(let-values(((fold-var_64)" "(let-values()" "(cons" "(let-values()" "(add-scope" " body_12" " sc_31))" -" fold-var_167))))" -"(values fold-var_295)))))" +" fold-var_20))))" +"(values fold-var_64)))))" "(if(not #f)" -"(for-loop_10 fold-var_294 rest_5)" -" fold-var_294)))" -" fold-var_164)))))" +"(for-loop_10 fold-var_19 rest_5)" +" fold-var_19)))" +" fold-var_17)))))" " for-loop_10)" " null" " lst_17))))))" "(let-values((()" "(begin" -"(let-values(((obs_86)(expand-context-observer ctx_77)))" -"(if obs_86" +"(let-values(((obs_3)(expand-context-observer ctx_78)))" +"(if obs_3" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_86" +" obs_3" " log-renames-tag_0" " sc-formals_0" "(datum->syntax$1 #f sc-bodys_0))))" "(void)))" "(values))))" "(let-values(((body-ctx_4)" -"(let-values(((v_250) ctx_77))" -"(let-values(((the-struct_96) v_250))" +"(let-values(((v_255) ctx_78))" +"(let-values(((the-struct_96) v_255))" "(if(expand-context/outer? the-struct_96)" "(let-values(((env42_0) body-env_0)" -"((scopes43_0)(cons sc_31(expand-context-scopes ctx_77)))" +"((scopes43_0)(cons sc_31(expand-context-scopes ctx_78)))" "((binding-layer44_0)" -"(increment-binding-layer ids_32 ctx_77 sc_31))" +"(increment-binding-layer ids_33 ctx_78 sc_31))" "((frame-id45_0) #f)" -"((inner46_0)(root-expand-context/outer-inner v_250)))" +"((inner46_0)(root-expand-context/outer-inner v_255)))" "(expand-context/outer1.1" " inner46_0" "(root-expand-context/outer-post-expansion-scope the-struct_96)" @@ -62211,12 +62445,14 @@ static const char *startup_source = " \"expand-context/outer?\"" " the-struct_96))))))" "(let-values(((exp-body_2)" -"(let-values(((temp49_3)" -"(let-values(((temp52_6) #t))" -"(keep-as-needed74.1 #f #f temp52_6 #t #f #f ctx_77 s_70))))" -"(expand-body7.1 temp49_3 #f #f sc-bodys_0 body-ctx_4))))" +"(let-values(((sc-bodys47_0) sc-bodys_0)" +"((body-ctx48_0) body-ctx_4)" +"((temp49_3)" +"(let-values(((ctx50_0) ctx_78)((s51_2) s_68)((temp52_6) #t))" +"(keep-as-needed74.1 #f #f temp52_6 #t #f #f ctx50_0 s51_2))))" +"(expand-body7.1 temp49_3 #f #f sc-bodys47_0 body-ctx48_0))))" "(values" -"(if(expand-context-to-parsed? ctx_77)" +"(if(expand-context-to-parsed? ctx_78)" "(unflatten-like-formals keys_7 formals_1)" " sc-formals_0)" " exp-body_2))))))))))))))))" @@ -62224,133 +62460,134 @@ static const char *startup_source = "(make-expand-lambda)" "(lambda(get-lambda_0)" "(begin" -"(lambda(s_180 ctx_78)" +"(lambda(s_494 ctx_79)" "(let-values((()" "(begin" -"(let-values(((obs_87)(expand-context-observer ctx_78)))" -"(if obs_87(let-values()(let-values()(call-expand-observe obs_87 'prim-lambda)))(void)))" +"(let-values(((obs_89)(expand-context-observer ctx_79)))" +"(if obs_89(let-values()(let-values()(call-expand-observe obs_89 'prim-lambda)))(void)))" "(values))))" -"(let-values(((disarmed-s_6)(syntax-disarm$1 s_180)))" -"(let-values(((ok?_34 lambda53_0 formals54_0 body55_0)" -"(let-values(((s_76) disarmed-s_6))" -"(let-values(((orig-s_42) s_76))" +"(let-values(((disarmed-s_6)(syntax-disarm$1 s_494)))" +"(let-values(((ok?_33 lambda53_0 formals54_0 body55_0)" +"(let-values(((s_302) disarmed-s_6))" +"(let-values(((orig-s_40) s_302))" "(let-values(((lambda53_1 formals54_1 body55_1)" -"(let-values(((s_304)(if(syntax?$1 s_76)(syntax-e$1 s_76) s_76)))" -"(if(pair? s_304)" -"(let-values(((lambda56_0)(let-values(((s_186)(car s_304))) s_186))" +"(let-values(((s_162)(if(syntax?$1 s_302)(syntax-e$1 s_302) s_302)))" +"(if(pair? s_162)" +"(let-values(((lambda56_0)(let-values(((s_476)(car s_162))) s_476))" "((formals57_0 body58_0)" -"(let-values(((s_501)(cdr s_304)))" -"(let-values(((s_407)" -"(if(syntax?$1 s_501)" -"(syntax-e$1 s_501)" -" s_501)))" -"(if(pair? s_407)" +"(let-values(((s_470)(cdr s_162)))" +"(let-values(((s_164)" +"(if(syntax?$1 s_470)" +"(syntax-e$1 s_470)" +" s_470)))" +"(if(pair? s_164)" "(let-values(((formals59_0)" -"(let-values(((s_502)(car s_407)))" -" s_502))" +"(let-values(((s_165)(car s_164)))" +" s_165))" "((body60_0)" -"(let-values(((s_503)(cdr s_407)))" -"(let-values(((s_162)" -"(if(syntax?$1 s_503)" -"(syntax-e$1 s_503)" -" s_503)))" +"(let-values(((s_75)(cdr s_164)))" +"(let-values(((s_477)" +"(if(syntax?$1 s_75)" +"(syntax-e$1 s_75)" +" s_75)))" "(let-values(((flat-s_27)" "(to-syntax-list.1" -" s_162)))" +" s_477)))" "(if(not flat-s_27)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_42))" +" orig-s_40))" "(if(null? flat-s_27)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_42))" +" orig-s_40))" "(let-values()" " flat-s_27))))))))" "(values formals59_0 body60_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_42))))))" +" orig-s_40))))))" "(values lambda56_0 formals57_0 body58_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_40)))))" "(values #t lambda53_1 formals54_1 body55_1))))))" "(let-values(((rebuild-s_4)" -"(let-values(((temp63_4) #t))(keep-as-needed74.1 #f #f #f #f temp63_4 #t ctx_78 s_180))))" +"(let-values(((ctx61_0) ctx_79)((s62_0) s_494)((temp63_4) #t))" +"(keep-as-needed74.1 #f #f #f #f temp63_4 #t ctx61_0 s62_0))))" "(let-values(((formals_2 body_13)" -"(lambda-clause-expander s_180 disarmed-s_6 formals54_0 body55_0 ctx_78 'lambda-renames)))" -"(if(expand-context-to-parsed? ctx_78)" +"(lambda-clause-expander s_494 disarmed-s_6 formals54_0 body55_0 ctx_79 'lambda-renames)))" +"(if(expand-context-to-parsed? ctx_79)" "(parsed-lambda5.1 rebuild-s_4 formals_2 body_13)" "(let-values(((rebuild-s64_0) rebuild-s_4)" -"((temp65_7)(list*(get-lambda_0 ctx_78 lambda53_0) formals_2 body_13)))" +"((temp65_7)(list*(get-lambda_0 ctx_79 lambda53_0) formals_2 body_13)))" "(rebuild5.1 #f #f rebuild-s64_0 temp65_7))))))))))))" -"(void(add-core-form!* 'lambda(make-expand-lambda(lambda(ctx_18 lam-id_0) lam-id_0))))" +"(void(add-core-form!* 'lambda(make-expand-lambda(lambda(ctx_80 lam-id_0) lam-id_0))))" "(void" "(add-core-form!*" " 'λ" "(make-expand-lambda" -"(lambda(ctx_79 lam-id_1)" +"(lambda(ctx_81 lam-id_1)" "(datum->syntax$1" -"(syntax-shift-phase-level$1 core-stx(expand-context-phase ctx_79))" +"(syntax-shift-phase-level$1 core-stx(expand-context-phase ctx_81))" " 'lambda" " lam-id_1" " lam-id_1)))))" "(void" "(add-core-form!*" " 'case-lambda" -"(lambda(s_504 ctx_80)" +"(lambda(s_30 ctx_82)" "(let-values((()" "(begin" -"(let-values(((obs_31)(expand-context-observer ctx_80)))" -"(if obs_31" -"(let-values()(let-values()(call-expand-observe obs_31 'prim-case-lambda)))" +"(let-values(((obs_90)(expand-context-observer ctx_82)))" +"(if obs_90" +"(let-values()(let-values()(call-expand-observe obs_90 'prim-case-lambda)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_7)(syntax-disarm$1 s_504)))" -"(let-values(((ok?_35 case-lambda66_0 formals67_0 body68_0)" -"(let-values(((s_32) disarmed-s_7))" -"(let-values(((orig-s_43) s_32))" +"(let-values(((disarmed-s_7)(syntax-disarm$1 s_30)))" +"(let-values(((ok?_34 case-lambda66_0 formals67_0 body68_0)" +"(let-values(((s_312) disarmed-s_7))" +"(let-values(((orig-s_41) s_312))" "(let-values(((case-lambda66_1 formals67_1 body68_1)" -"(let-values(((s_69)(if(syntax?$1 s_32)(syntax-e$1 s_32) s_32)))" -"(if(pair? s_69)" -"(let-values(((case-lambda69_0)(let-values(((s_310)(car s_69))) s_310))" +"(let-values(((s_495)(if(syntax?$1 s_312)(syntax-e$1 s_312) s_312)))" +"(if(pair? s_495)" +"(let-values(((case-lambda69_0)(let-values(((s_53)(car s_495))) s_53))" "((formals70_0 body71_0)" -"(let-values(((s_488)(cdr s_69)))" -"(let-values(((s_505)" -"(if(syntax?$1 s_488)" -"(syntax-e$1 s_488)" -" s_488)))" -"(let-values(((flat-s_28)(to-syntax-list.1 s_505)))" +"(let-values(((s_482)(cdr s_495)))" +"(let-values(((s_483)" +"(if(syntax?$1 s_482)" +"(syntax-e$1 s_482)" +" s_482)))" +"(let-values(((flat-s_28)(to-syntax-list.1 s_483)))" "(if(not flat-s_28)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_43))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_41))" "(let-values()" "(let-values(((formals_3 body_14)" -"(let-values(((lst_306) flat-s_28))" +"(let-values(((lst_296) flat-s_28))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_306)))" -"((letrec-values(((for-loop_275)" +"(check-list lst_296)))" +"((letrec-values(((for-loop_288)" "(lambda(formals_4" " body_15" -" lst_99)" +" lst_195)" "(begin" " 'for-loop" "(if(pair?" -" lst_99)" -"(let-values(((s_158)" +" lst_195)" +"(let-values(((s_33)" "(unsafe-car" -" lst_99))" -"((rest_190)" +" lst_195))" +"((rest_100)" "(unsafe-cdr" -" lst_99)))" +" lst_195)))" "(let-values(((formals_5" " body_16)" "(let-values(((formals_6)" @@ -62363,46 +62600,46 @@ static const char *startup_source = "(let-values(((formals78_0" " body79_0)" "(let-values()" -"(let-values(((s_55)" +"(let-values(((s_431)" "(if(syntax?$1" -" s_158)" +" s_33)" "(syntax-e$1" -" s_158)" -" s_158)))" +" s_33)" +" s_33)))" "(if(pair?" -" s_55)" +" s_431)" "(let-values(((formals72_0)" -"(let-values(((s_319)" +"(let-values(((s_496)" "(car" -" s_55)))" -" s_319))" +" s_431)))" +" s_496))" "((body73_0)" -"(let-values(((s_442)" +"(let-values(((s_34)" "(cdr" -" s_55)))" -"(let-values(((s_389)" +" s_431)))" +"(let-values(((s_56)" "(if(syntax?$1" -" s_442)" +" s_34)" "(syntax-e$1" -" s_442)" -" s_442)))" +" s_34)" +" s_34)))" "(let-values(((flat-s_29)" "(to-syntax-list.1" -" s_389)))" +" s_56)))" "(if(not" " flat-s_29)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_43))" +" orig-s_41))" "(if(null?" " flat-s_29)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_43))" +" orig-s_41))" "(let-values()" " flat-s_29))))))))" "(values" @@ -62411,7 +62648,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_43))))))" +" orig-s_41))))))" "(values" "(cons" " formals78_0" @@ -62424,98 +62661,99 @@ static const char *startup_source = " body_18)))))" "(if(not" " #f)" -"(for-loop_275" +"(for-loop_288" " formals_5" " body_16" -" rest_190)" +" rest_100)" "(values" " formals_5" " body_16))))" "(values" " formals_4" " body_15))))))" -" for-loop_275)" +" for-loop_288)" " null" " null" -" lst_306)))))" +" lst_296)))))" "(values" "(reverse$1 formals_3)" "(reverse$1 body_14))))))))))" "(values case-lambda69_0 formals70_0 body71_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_41)))))" "(values #t case-lambda66_1 formals67_1 body68_1))))))" -"(let-values(((ok?_36 case-lambda74_0 clause75_0)" -"(let-values(((s_56) disarmed-s_7))" -"(let-values(((orig-s_44) s_56))" +"(let-values(((ok?_35 case-lambda74_0 clause75_0)" +"(let-values(((s_385) disarmed-s_7))" +"(let-values(((orig-s_42) s_385))" "(let-values(((case-lambda74_1 clause75_1)" -"(let-values(((s_303)(if(syntax?$1 s_56)(syntax-e$1 s_56) s_56)))" -"(if(pair? s_303)" +"(let-values(((s_57)(if(syntax?$1 s_385)(syntax-e$1 s_385) s_385)))" +"(if(pair? s_57)" "(let-values(((case-lambda76_0)" -"(let-values(((s_392)(car s_303))) s_392))" +"(let-values(((s_406)(car s_57))) s_406))" "((clause77_0)" -"(let-values(((s_506)(cdr s_303)))" -"(let-values(((s_57)" -"(if(syntax?$1 s_506)" -"(syntax-e$1 s_506)" -" s_506)))" -"(let-values(((flat-s_30)(to-syntax-list.1 s_57)))" +"(let-values(((s_36)(cdr s_57)))" +"(let-values(((s_497)" +"(if(syntax?$1 s_36)" +"(syntax-e$1 s_36)" +" s_36)))" +"(let-values(((flat-s_30)(to-syntax-list.1 s_497)))" "(if(not flat-s_30)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_44))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_42))" "(let-values() flat-s_30)))))))" "(values case-lambda76_0 clause77_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_44)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))" "(values #t case-lambda74_1 clause75_1))))))" "(let-values(((rebuild-s_5)" -"(let-values(((temp82_7) #t))(keep-as-needed74.1 #f #f #f #f temp82_7 #t ctx_80 s_504))))" +"(let-values(((ctx80_0) ctx_82)((s81_1) s_30)((temp82_7) #t))" +"(keep-as-needed74.1 #f #f #f #f temp82_7 #t ctx80_0 s81_1))))" "(let-values(((clauses_1)" "(reverse$1" -"(let-values(((lst_193) formals67_0)((lst_224) body68_0)((lst_225) clause75_0))" +"(let-values(((lst_201) formals67_0)((lst_333) body68_0)((lst_31) clause75_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_193)))" +"(let-values()(check-list lst_201)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_224)))" +"(let-values()(check-list lst_333)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_225)))" -"((letrec-values(((for-loop_276)" -"(lambda(fold-var_296 lst_327 lst_328 lst_329)" +"(let-values()(check-list lst_31)))" +"((letrec-values(((for-loop_24)" +"(lambda(fold-var_282 lst_32 lst_334 lst_335)" "(begin" " 'for-loop" -"(if(if(pair? lst_327)" -"(if(pair? lst_328)(pair? lst_329) #f)" +"(if(if(pair? lst_32)" +"(if(pair? lst_334)(pair? lst_335) #f)" " #f)" -"(let-values(((formals_8)(unsafe-car lst_327))" -"((rest_191)(unsafe-cdr lst_327))" -"((body_19)(unsafe-car lst_328))" -"((rest_192)(unsafe-cdr lst_328))" -"((clause_3)(unsafe-car lst_329))" -"((rest_193)(unsafe-cdr lst_329)))" -"(let-values(((fold-var_297)" -"(let-values(((fold-var_298) fold-var_296))" -"(let-values(((fold-var_187)" +"(let-values(((formals_8)(unsafe-car lst_32))" +"((rest_191)(unsafe-cdr lst_32))" +"((body_19)(unsafe-car lst_334))" +"((rest_192)(unsafe-cdr lst_334))" +"((clause_3)(unsafe-car lst_335))" +"((rest_193)(unsafe-cdr lst_335)))" +"(let-values(((fold-var_302)" +"(let-values(((fold-var_303) fold-var_282))" +"(let-values(((fold-var_21)" "(let-values()" "(cons" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_88)" +"(let-values(((obs_91)" "(expand-context-observer" -" ctx_80)))" -"(if obs_88" +" ctx_82)))" +"(if obs_91" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_88" +" obs_91" " 'next)))" "(void)))" "(values))))" "(let-values(((rebuild-clause_0)" "(let-values(((ctx83_0)" -" ctx_80)" +" ctx_82)" "((clause84_0)" " clause_3))" "(keep-as-needed74.1" @@ -62530,14 +62768,14 @@ static const char *startup_source = "(let-values(((exp-formals_0" " exp-body_3)" "(lambda-clause-expander" -" s_504" +" s_30" " disarmed-s_7" " formals_8" " body_19" -" ctx_80" +" ctx_82" " 'lambda-renames)))" "(if(expand-context-to-parsed?" -" ctx_80)" +" ctx_82)" "(list" " exp-formals_0" " exp-body_3)" @@ -62552,26 +62790,26 @@ static const char *startup_source = " #f" " rebuild-clause85_0" " temp86_2)))))))" -" fold-var_298))))" -"(values fold-var_187)))))" +" fold-var_303))))" +"(values fold-var_21)))))" "(if(not #f)" -"(for-loop_276 fold-var_297 rest_191 rest_192 rest_193)" -" fold-var_297)))" -" fold-var_296)))))" -" for-loop_276)" +"(for-loop_24 fold-var_302 rest_191 rest_192 rest_193)" +" fold-var_302)))" +" fold-var_282)))))" +" for-loop_24)" " null" -" lst_193" -" lst_224" -" lst_225))))))" -"(if(expand-context-to-parsed? ctx_80)" +" lst_201" +" lst_333" +" lst_31))))))" +"(if(expand-context-to-parsed? ctx_82)" "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)" "(let-values(((rebuild-s87_0) rebuild-s_5)((temp88_3)(list* case-lambda66_0 clauses_1)))" "(rebuild5.1 #f #f rebuild-s87_0 temp88_3))))))))))))" "(define-values" "(parse-and-flatten-formals)" -"(lambda(all-formals_0 sc_32 s_321)" +"(lambda(all-formals_0 sc_32 s_498)" "(begin" -"((letrec-values(((loop_128)" +"((letrec-values(((loop_121)" "(lambda(formals_9)" "(begin" " 'loop" @@ -62579,42 +62817,42 @@ static const char *startup_source = "(let-values()(list(add-scope formals_9 sc_32)))" "(if(syntax?$1 formals_9)" "(let-values()" -"(let-values(((p_86)(syntax-e$1 formals_9)))" -"(if(pair? p_86)" -"(let-values()(loop_128 p_86))" -"(if(null? p_86)" +"(let-values(((p_83)(syntax-e$1 formals_9)))" +"(if(pair? p_83)" +"(let-values()(loop_121 p_83))" +"(if(null? p_83)" "(let-values() null)" -" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_321 p_86))))))" +" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_498 p_83))))))" "(if(pair? formals_9)" "(let-values()" "(begin" "(if(identifier?(car formals_9))" "(void)" "(let-values()" -" (raise-syntax-error$1 #f \"not an identifier\" s_321 (car formals_9))))" -"(cons(add-scope(car formals_9) sc_32)(loop_128(cdr formals_9)))))" +" (raise-syntax-error$1 #f \"not an identifier\" s_498 (car formals_9))))" +"(cons(add-scope(car formals_9) sc_32)(loop_121(cdr formals_9)))))" "(if(null? formals_9)" "(let-values() null)" "(let-values()" -" (raise-syntax-error$1 \"bad argument sequence\" s_321 all-formals_0))))))))))" -" loop_128)" +" (raise-syntax-error$1 \"bad argument sequence\" s_498 all-formals_0))))))))))" +" loop_121)" " all-formals_0))))" "(define-values" "(unflatten-like-formals)" "(lambda(keys_8 formals_10)" "(begin" -"((letrec-values(((loop_129)" +"((letrec-values(((loop_122)" "(lambda(keys_9 formals_11)" "(begin" " 'loop" "(if(null? formals_11)" "(let-values() null)" "(if(pair? formals_11)" -"(let-values()(cons(car keys_9)(loop_129(cdr keys_9)(cdr formals_11))))" +"(let-values()(cons(car keys_9)(loop_122(cdr keys_9)(cdr formals_11))))" "(if(syntax?$1 formals_11)" -"(let-values()(loop_129 keys_9(syntax-e$1 formals_11)))" +"(let-values()(loop_122 keys_9(syntax-e$1 formals_11)))" "(let-values()(car keys_9)))))))))" -" loop_129)" +" loop_122)" " keys_8" " formals_10))))" "(define-values" @@ -62636,74 +62874,74 @@ static const char *startup_source = "(let-values(((split-by-reference?_0)(if split-by-reference?9_0 split-by-reference?4_0 #f)))" "(let-values(((renames-log-tag_0)(if renames-log-tag10_0 renames-log-tag5_0 'let-renames)))" "(let-values()" -"(lambda(s_89 ctx_81)" +"(lambda(s_407 ctx_83)" "(let-values((()" "(begin" -"(let-values(((obs_47)(expand-context-observer ctx_81)))" -"(if obs_47" -"(let-values()(let-values()(call-expand-observe obs_47 log-tag_0)))" +"(let-values(((obs_92)(expand-context-observer ctx_83)))" +"(if obs_92" +"(let-values()(let-values()(call-expand-observe obs_92 log-tag_0)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_8)(syntax-disarm$1 s_89)))" -"(let-values(((ok?_37" +"(let-values(((disarmed-s_8)(syntax-disarm$1 s_407)))" +"(let-values(((ok?_36" " letrec-syntaxes+values89_0" " id:trans90_0" " trans-rhs91_0" " id:val92_0" " val-rhs93_0" " body94_0)" -"(let-values(((s_107) disarmed-s_8))" +"(let-values(((s_110) disarmed-s_8))" "(if(if syntaxes?_0 #t #f)" -"(let-values(((orig-s_45) s_107))" +"(let-values(((orig-s_43) s_110))" "(let-values(((letrec-syntaxes+values89_1" " id:trans90_1" " trans-rhs91_1" " id:val92_1" " val-rhs93_1" " body94_1)" -"(let-values(((s_212)" -"(if(syntax?$1 s_107)" -"(syntax-e$1 s_107)" -" s_107)))" -"(if(pair? s_212)" +"(let-values(((s_499)" +"(if(syntax?$1 s_110)" +"(syntax-e$1 s_110)" +" s_110)))" +"(if(pair? s_499)" "(let-values(((letrec-syntaxes+values95_0)" -"(let-values(((s_507)(car s_212))) s_507))" +"(let-values(((s_115)(car s_499))) s_115))" "((id:trans96_0" " trans-rhs97_0" " id:val98_0" " val-rhs99_0" " body100_0)" -"(let-values(((s_111)(cdr s_212)))" -"(let-values(((s_448)" -"(if(syntax?$1 s_111)" -"(syntax-e$1 s_111)" -" s_111)))" -"(if(pair? s_448)" +"(let-values(((s_191)(cdr s_499)))" +"(let-values(((s_500)" +"(if(syntax?$1 s_191)" +"(syntax-e$1 s_191)" +" s_191)))" +"(if(pair? s_500)" "(let-values(((id:trans101_0" " trans-rhs102_0)" -"(let-values(((s_425)" +"(let-values(((s_218)" "(car" -" s_448)))" -"(let-values(((s_113)" +" s_500)))" +"(let-values(((s_219)" "(if(syntax?$1" -" s_425)" +" s_218)" "(syntax-e$1" -" s_425)" -" s_425)))" +" s_218)" +" s_218)))" "(let-values(((flat-s_31)" "(to-syntax-list.1" -" s_113)))" +" s_219)))" "(if(not" " flat-s_31)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))" +" orig-s_43))" "(let-values()" "(let-values(((id:trans_0" " trans-rhs_0)" -"(let-values(((lst_330)" +"(let-values(((lst_139)" " flat-s_31))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62711,21 +62949,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_330)))" -"((letrec-values(((for-loop_277)" +" lst_139)))" +"((letrec-values(((for-loop_168)" "(lambda(id:trans_1" " trans-rhs_1" -" lst_331)" +" lst_336)" "(begin" " 'for-loop" "(if(pair?" -" lst_331)" -"(let-values(((s_508)" +" lst_336)" +"(let-values(((s_436)" "(unsafe-car" -" lst_331))" +" lst_336))" "((rest_194)" "(unsafe-cdr" -" lst_331)))" +" lst_336)))" "(let-values(((id:trans_2" " trans-rhs_2)" "(let-values(((id:trans_3)" @@ -62738,37 +62976,37 @@ static const char *startup_source = "(let-values(((id:trans132_0" " trans-rhs133_0)" "(let-values()" -"(let-values(((s_220)" +"(let-values(((s_501)" "(if(syntax?$1" -" s_508)" +" s_436)" "(syntax-e$1" -" s_508)" -" s_508)))" +" s_436)" +" s_436)))" "(if(pair?" -" s_220)" +" s_501)" "(let-values(((id:trans106_0)" -"(let-values(((s_509)" +"(let-values(((s_502)" "(car" -" s_220)))" -"(let-values(((s_510)" +" s_501)))" +"(let-values(((s_121)" "(if(syntax?$1" -" s_509)" +" s_502)" "(syntax-e$1" -" s_509)" -" s_509)))" +" s_502)" +" s_502)))" "(let-values(((flat-s_32)" "(to-syntax-list.1" -" s_510)))" +" s_121)))" "(if(not" " flat-s_32)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))" +" orig-s_43))" "(let-values()" "(let-values(((id:trans_5)" -"(let-values(((lst_332)" +"(let-values(((lst_114)" " flat-s_32))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62776,20 +63014,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_332)))" -"((letrec-values(((for-loop_278)" +" lst_114)))" +"((letrec-values(((for-loop_129)" "(lambda(id:trans_6" -" lst_333)" +" lst_337)" "(begin" " 'for-loop" "(if(pair?" -" lst_333)" -"(let-values(((s_450)" +" lst_337)" +"(let-values(((s_503)" "(unsafe-car" -" lst_333))" +" lst_337))" "((rest_195)" "(unsafe-cdr" -" lst_333)))" +" lst_337)))" "(let-values(((id:trans_7)" "(let-values(((id:trans_8)" " id:trans_6))" @@ -62797,23 +63035,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans134_0)" "(let-values()" -"(if(let-values(((or-part_285)" +"(if(let-values(((or-part_14)" "(if(syntax?$1" -" s_450)" +" s_503)" "(symbol?" "(syntax-e$1" -" s_450))" +" s_503))" " #f)))" -"(if or-part_285" -" or-part_285" +"(if or-part_14" +" or-part_14" "(symbol?" -" s_450)))" -" s_450" +" s_503)))" +" s_503" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_45" -" s_450)))))" +" orig-s_43" +" s_503)))))" "(cons" " id:trans134_0" " id:trans_8)))))" @@ -62821,63 +63059,63 @@ static const char *startup_source = " id:trans_9)))))" "(if(not" " #f)" -"(for-loop_278" +"(for-loop_129" " id:trans_7" " rest_195)" " id:trans_7)))" " id:trans_6)))))" -" for-loop_278)" +" for-loop_129)" " null" -" lst_332)))))" +" lst_114)))))" "(reverse$1" " id:trans_5))))))))" "((trans-rhs107_0)" -"(let-values(((s_511)" +"(let-values(((s_223)" "(cdr" -" s_220)))" -"(let-values(((s_512)" +" s_501)))" +"(let-values(((s_504)" "(if(syntax?$1" -" s_511)" +" s_223)" "(syntax-e$1" -" s_511)" -" s_511)))" +" s_223)" +" s_223)))" "(if(pair?" -" s_512)" +" s_504)" "(let-values(((trans-rhs108_0)" -"(let-values(((s_513)" +"(let-values(((s_505)" "(car" -" s_512)))" -" s_513))" +" s_504)))" +" s_505))" "(()" -"(let-values(((s_514)" +"(let-values(((s_224)" "(cdr" -" s_512)))" -"(let-values(((s_404)" +" s_504)))" +"(let-values(((s_225)" "(if(syntax?$1" -" s_514)" +" s_224)" "(syntax-e$1" -" s_514)" -" s_514)))" +" s_224)" +" s_224)))" "(if(null?" -" s_404)" +" s_225)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))))))" +" orig-s_43))))))" "(values" " trans-rhs108_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))))))" +" orig-s_43))))))" "(values" " id:trans106_0" " trans-rhs107_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))))))" +" orig-s_43))))))" "(values" "(cons" " id:trans132_0" @@ -62890,7 +63128,7 @@ static const char *startup_source = " trans-rhs_4)))))" "(if(not" " #f)" -"(for-loop_277" +"(for-loop_168" " id:trans_2" " trans-rhs_2" " rest_194)" @@ -62900,10 +63138,10 @@ static const char *startup_source = "(values" " id:trans_1" " trans-rhs_1))))))" -" for-loop_277)" +" for-loop_168)" " null" " null" -" lst_330)))))" +" lst_139)))))" "(values" "(reverse$1" " id:trans_0)" @@ -62912,41 +63150,41 @@ static const char *startup_source = "((id:val103_0" " val-rhs104_0" " body105_0)" -"(let-values(((s_123)" +"(let-values(((s_226)" "(cdr" -" s_448)))" -"(let-values(((s_515)" +" s_500)))" +"(let-values(((s_506)" "(if(syntax?$1" -" s_123)" +" s_226)" "(syntax-e$1" -" s_123)" -" s_123)))" -"(if(pair? s_515)" +" s_226)" +" s_226)))" +"(if(pair? s_506)" "(let-values(((id:val109_0" " val-rhs110_0)" -"(let-values(((s_516)" +"(let-values(((s_228)" "(car" -" s_515)))" -"(let-values(((s_517)" +" s_506)))" +"(let-values(((s_229)" "(if(syntax?$1" -" s_516)" +" s_228)" "(syntax-e$1" -" s_516)" -" s_516)))" +" s_228)" +" s_228)))" "(let-values(((flat-s_33)" "(to-syntax-list.1" -" s_517)))" +" s_229)))" "(if(not" " flat-s_33)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))" +" orig-s_43))" "(let-values()" "(let-values(((id:val_0" " val-rhs_1)" -"(let-values(((lst_202)" +"(let-values(((lst_338)" " flat-s_33))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62954,21 +63192,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_202)))" -"((letrec-values(((for-loop_279)" +" lst_338)))" +"((letrec-values(((for-loop_289)" "(lambda(id:val_1" " val-rhs_2" -" lst_205)" +" lst_303)" "(begin" " 'for-loop" "(if(pair?" -" lst_205)" -"(let-values(((s_518)" +" lst_303)" +"(let-values(((s_331)" "(unsafe-car" -" lst_205))" -"((rest_196)" +" lst_303))" +"((rest_169)" "(unsafe-cdr" -" lst_205)))" +" lst_303)))" "(let-values(((id:val_2" " val-rhs_3)" "(let-values(((id:val_3)" @@ -62981,37 +63219,37 @@ static const char *startup_source = "(let-values(((id:val135_0" " val-rhs136_0)" "(let-values()" -"(let-values(((s_230)" +"(let-values(((s_340)" "(if(syntax?$1" -" s_518)" +" s_331)" "(syntax-e$1" -" s_518)" -" s_518)))" +" s_331)" +" s_331)))" "(if(pair?" -" s_230)" +" s_340)" "(let-values(((id:val112_0)" -"(let-values(((s_232)" -"(car" -" s_230)))" "(let-values(((s_233)" +"(car" +" s_340)))" +"(let-values(((s_507)" "(if(syntax?$1" -" s_232)" +" s_233)" "(syntax-e$1" -" s_232)" -" s_232)))" +" s_233)" +" s_233)))" "(let-values(((flat-s_34)" "(to-syntax-list.1" -" s_233)))" +" s_507)))" "(if(not" " flat-s_34)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))" +" orig-s_43))" "(let-values()" "(let-values(((id:val_5)" -"(let-values(((lst_334)" +"(let-values(((lst_331)" " flat-s_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63019,20 +63257,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_334)))" -"((letrec-values(((for-loop_253)" +" lst_331)))" +"((letrec-values(((for-loop_259)" "(lambda(id:val_6" -" lst_335)" +" lst_339)" "(begin" " 'for-loop" "(if(pair?" -" lst_335)" -"(let-values(((s_341)" +" lst_339)" +"(let-values(((s_508)" "(unsafe-car" -" lst_335))" -"((rest_197)" +" lst_339))" +"((rest_196)" "(unsafe-cdr" -" lst_335)))" +" lst_339)))" "(let-values(((id:val_7)" "(let-values(((id:val_8)" " id:val_6))" @@ -63040,23 +63278,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val137_0)" "(let-values()" -"(if(let-values(((or-part_336)" +"(if(let-values(((or-part_374)" "(if(syntax?$1" -" s_341)" +" s_508)" "(symbol?" "(syntax-e$1" -" s_341))" +" s_508))" " #f)))" -"(if or-part_336" -" or-part_336" +"(if or-part_374" +" or-part_374" "(symbol?" -" s_341)))" -" s_341" +" s_508)))" +" s_508" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_45" -" s_341)))))" +" orig-s_43" +" s_508)))))" "(cons" " id:val137_0" " id:val_8)))))" @@ -63064,63 +63302,63 @@ static const char *startup_source = " id:val_9)))))" "(if(not" " #f)" -"(for-loop_253" +"(for-loop_259" " id:val_7" -" rest_197)" +" rest_196)" " id:val_7)))" " id:val_6)))))" -" for-loop_253)" +" for-loop_259)" " null" -" lst_334)))))" +" lst_331)))))" "(reverse$1" " id:val_5))))))))" "((val-rhs113_0)" -"(let-values(((s_348)" +"(let-values(((s_239)" "(cdr" -" s_230)))" -"(let-values(((s_454)" +" s_340)))" +"(let-values(((s_240)" "(if(syntax?$1" -" s_348)" +" s_239)" "(syntax-e$1" -" s_348)" -" s_348)))" +" s_239)" +" s_239)))" "(if(pair?" -" s_454)" +" s_240)" "(let-values(((val-rhs114_0)" -"(let-values(((s_455)" +"(let-values(((s_344)" "(car" -" s_454)))" -" s_455))" +" s_240)))" +" s_344))" "(()" -"(let-values(((s_519)" +"(let-values(((s_345)" "(cdr" -" s_454)))" -"(let-values(((s_235)" +" s_240)))" +"(let-values(((s_509)" "(if(syntax?$1" -" s_519)" +" s_345)" "(syntax-e$1" -" s_519)" -" s_519)))" +" s_345)" +" s_345)))" "(if(null?" -" s_235)" +" s_509)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))))))" +" orig-s_43))))))" "(values" " val-rhs114_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))))))" +" orig-s_43))))))" "(values" " id:val112_0" " val-rhs113_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))))))" +" orig-s_43))))))" "(values" "(cons" " id:val135_0" @@ -63133,52 +63371,52 @@ static const char *startup_source = " val-rhs_5)))))" "(if(not" " #f)" -"(for-loop_279" +"(for-loop_289" " id:val_2" " val-rhs_3" -" rest_196)" +" rest_169)" "(values" " id:val_2" " val-rhs_3))))" "(values" " id:val_1" " val-rhs_2))))))" -" for-loop_279)" +" for-loop_289)" " null" " null" -" lst_202)))))" +" lst_338)))))" "(values" "(reverse$1" " id:val_0)" "(reverse$1" " val-rhs_1)))))))))" "((body111_0)" -"(let-values(((s_520)" +"(let-values(((s_510)" "(cdr" -" s_515)))" -"(let-values(((s_349)" +" s_506)))" +"(let-values(((s_346)" "(if(syntax?$1" -" s_520)" +" s_510)" "(syntax-e$1" -" s_520)" -" s_520)))" +" s_510)" +" s_510)))" "(let-values(((flat-s_35)" "(to-syntax-list.1" -" s_349)))" +" s_346)))" "(if(not" " flat-s_35)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))" +" orig-s_43))" "(if(null?" " flat-s_35)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))" +" orig-s_43))" "(let-values()" " flat-s_35))))))))" "(values" @@ -63188,7 +63426,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))))))" +" orig-s_43))))))" "(values" " id:trans101_0" " trans-rhs102_0" @@ -63198,7 +63436,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_45))))))" +" orig-s_43))))))" "(values" " letrec-syntaxes+values95_0" " id:trans96_0" @@ -63206,7 +63444,7 @@ static const char *startup_source = " id:val98_0" " val-rhs99_0" " body100_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_45)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" "(values" " #t" " letrec-syntaxes+values89_1" @@ -63216,51 +63454,51 @@ static const char *startup_source = " val-rhs93_1" " body94_1)))" "(values #f #f #f #f #f #f #f)))))" -"(let-values(((ok?_38 let-values115_0 id:val116_0 val-rhs117_0 body118_0)" -"(let-values(((s_475) disarmed-s_8))" +"(let-values(((ok?_37 let-values115_0 id:val116_0 val-rhs117_0 body118_0)" +"(let-values(((s_347) disarmed-s_8))" "(if(if(not syntaxes?_0) #t #f)" -"(let-values(((orig-s_46) s_475))" +"(let-values(((orig-s_44) s_347))" "(let-values(((let-values115_1 id:val116_1 val-rhs117_1 body118_1)" -"(let-values(((s_238)" -"(if(syntax?$1 s_475)" -"(syntax-e$1 s_475)" -" s_475)))" -"(if(pair? s_238)" +"(let-values(((s_511)" +"(if(syntax?$1 s_347)" +"(syntax-e$1 s_347)" +" s_347)))" +"(if(pair? s_511)" "(let-values(((let-values119_0)" -"(let-values(((s_241)(car s_238)))" -" s_241))" +"(let-values(((s_351)(car s_511)))" +" s_351))" "((id:val120_0 val-rhs121_0 body122_0)" -"(let-values(((s_242)(cdr s_238)))" -"(let-values(((s_521)" -"(if(syntax?$1 s_242)" -"(syntax-e$1 s_242)" -" s_242)))" -"(if(pair? s_521)" +"(let-values(((s_352)(cdr s_511)))" +"(let-values(((s_512)" +"(if(syntax?$1 s_352)" +"(syntax-e$1 s_352)" +" s_352)))" +"(if(pair? s_512)" "(let-values(((id:val123_0" " val-rhs124_0)" -"(let-values(((s_353)" +"(let-values(((s_355)" "(car" -" s_521)))" -"(let-values(((s_522)" +" s_512)))" +"(let-values(((s_513)" "(if(syntax?$1" -" s_353)" +" s_355)" "(syntax-e$1" -" s_353)" -" s_353)))" +" s_355)" +" s_355)))" "(let-values(((flat-s_36)" "(to-syntax-list.1" -" s_522)))" +" s_513)))" "(if(not" " flat-s_36)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_46))" +" orig-s_44))" "(let-values()" "(let-values(((id:val_10" " val-rhs_6)" -"(let-values(((lst_336)" +"(let-values(((lst_340)" " flat-s_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63268,21 +63506,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_336)))" -"((letrec-values(((for-loop_280)" +" lst_340)))" +"((letrec-values(((for-loop_290)" "(lambda(id:val_11" " val-rhs_7" -" lst_213)" +" lst_341)" "(begin" " 'for-loop" "(if(pair?" -" lst_213)" -"(let-values(((s_523)" +" lst_341)" +"(let-values(((s_443)" "(unsafe-car" -" lst_213))" -"((rest_198)" +" lst_341))" +"((rest_197)" "(unsafe-cdr" -" lst_213)))" +" lst_341)))" "(let-values(((id:val_12" " val-rhs_8)" "(let-values(((id:val_13)" @@ -63295,37 +63533,37 @@ static const char *startup_source = "(let-values(((id:val138_0" " val-rhs139_0)" "(let-values()" -"(let-values(((s_362)" +"(let-values(((s_244)" "(if(syntax?$1" -" s_523)" +" s_443)" "(syntax-e$1" -" s_523)" -" s_523)))" +" s_443)" +" s_443)))" "(if(pair?" -" s_362)" +" s_244)" "(let-values(((id:val126_0)" -"(let-values(((s_524)" +"(let-values(((s_514)" "(car" -" s_362)))" -"(let-values(((s_525)" +" s_244)))" +"(let-values(((s_515)" "(if(syntax?$1" -" s_524)" +" s_514)" "(syntax-e$1" -" s_524)" -" s_524)))" +" s_514)" +" s_514)))" "(let-values(((flat-s_37)" "(to-syntax-list.1" -" s_525)))" +" s_515)))" "(if(not" " flat-s_37)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_46))" +" orig-s_44))" "(let-values()" "(let-values(((id:val_15)" -"(let-values(((lst_337)" +"(let-values(((lst_342)" " flat-s_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63333,20 +63571,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_337)))" -"((letrec-values(((for-loop_281)" +" lst_342)))" +"((letrec-values(((for-loop_291)" "(lambda(id:val_16" -" lst_338)" +" lst_343)" "(begin" " 'for-loop" "(if(pair?" -" lst_338)" -"(let-values(((s_526)" +" lst_343)" +"(let-values(((s_516)" "(unsafe-car" -" lst_338))" -"((rest_199)" +" lst_343))" +"((rest_198)" "(unsafe-cdr" -" lst_338)))" +" lst_343)))" "(let-values(((id:val_17)" "(let-values(((id:val_18)" " id:val_16))" @@ -63354,23 +63592,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val140_0)" "(let-values()" -"(if(let-values(((or-part_377)" +"(if(let-values(((or-part_375)" "(if(syntax?$1" -" s_526)" +" s_516)" "(symbol?" "(syntax-e$1" -" s_526))" +" s_516))" " #f)))" -"(if or-part_377" -" or-part_377" +"(if or-part_375" +" or-part_375" "(symbol?" -" s_526)))" -" s_526" +" s_516)))" +" s_516" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_46" -" s_526)))))" +" orig-s_44" +" s_516)))))" "(cons" " id:val140_0" " id:val_18)))))" @@ -63378,63 +63616,63 @@ static const char *startup_source = " id:val_19)))))" "(if(not" " #f)" -"(for-loop_281" +"(for-loop_291" " id:val_17" -" rest_199)" +" rest_198)" " id:val_17)))" " id:val_16)))))" -" for-loop_281)" +" for-loop_291)" " null" -" lst_337)))))" +" lst_342)))))" "(reverse$1" " id:val_15))))))))" "((val-rhs127_0)" -"(let-values(((s_527)" +"(let-values(((s_447)" "(cdr" -" s_362)))" -"(let-values(((s_528)" +" s_244)))" +"(let-values(((s_359)" "(if(syntax?$1" -" s_527)" +" s_447)" "(syntax-e$1" -" s_527)" -" s_527)))" +" s_447)" +" s_447)))" "(if(pair?" -" s_528)" +" s_359)" "(let-values(((val-rhs128_0)" -"(let-values(((s_247)" +"(let-values(((s_253)" "(car" -" s_528)))" -" s_247))" +" s_359)))" +" s_253))" "(()" -"(let-values(((s_248)" +"(let-values(((s_361)" "(cdr" -" s_528)))" -"(let-values(((s_529)" +" s_359)))" +"(let-values(((s_362)" "(if(syntax?$1" -" s_248)" +" s_361)" "(syntax-e$1" -" s_248)" -" s_248)))" +" s_361)" +" s_361)))" "(if(null?" -" s_529)" +" s_362)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_46))))))" +" orig-s_44))))))" "(values" " val-rhs128_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_46))))))" +" orig-s_44))))))" "(values" " id:val126_0" " val-rhs127_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_46))))))" +" orig-s_44))))))" "(values" "(cons" " id:val138_0" @@ -63447,52 +63685,52 @@ static const char *startup_source = " val-rhs_10)))))" "(if(not" " #f)" -"(for-loop_280" +"(for-loop_290" " id:val_12" " val-rhs_8" -" rest_198)" +" rest_197)" "(values" " id:val_12" " val-rhs_8))))" "(values" " id:val_11" " val-rhs_7))))))" -" for-loop_280)" +" for-loop_290)" " null" " null" -" lst_336)))))" +" lst_340)))))" "(values" "(reverse$1" " id:val_10)" "(reverse$1" " val-rhs_6)))))))))" "((body125_0)" -"(let-values(((s_530)" +"(let-values(((s_363)" "(cdr" -" s_521)))" -"(let-values(((s_531)" +" s_512)))" +"(let-values(((s_364)" "(if(syntax?$1" -" s_530)" +" s_363)" "(syntax-e$1" -" s_530)" -" s_530)))" +" s_363)" +" s_363)))" "(let-values(((flat-s_38)" "(to-syntax-list.1" -" s_531)))" +" s_364)))" "(if(not" " flat-s_38)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_46))" +" orig-s_44))" "(if(null?" " flat-s_38)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_46))" +" orig-s_44))" "(let-values()" " flat-s_38))))))))" "(values" @@ -63502,122 +63740,122 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_46))))))" +" orig-s_44))))))" "(values" " let-values119_0" " id:val120_0" " val-rhs121_0" " body122_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_46)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_44)))))" "(values #t let-values115_1 id:val116_1 val-rhs117_1 body118_1)))" "(values #f #f #f #f #f)))))" -"(let-values(((sc_7)(new-scope 'local)))" -"(let-values(((phase_146)(expand-context-phase ctx_81)))" +"(let-values(((sc_33)(new-scope 'local)))" +"(let-values(((phase_144)(expand-context-phase ctx_83)))" "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))" "(let-values(((trans-idss_2)" "(reverse$1" -"(let-values(((lst_339)(if syntaxes?_0 id:trans90_0 null)))" +"(let-values(((lst_344)(if syntaxes?_0 id:trans90_0 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_339)))" -"((letrec-values(((for-loop_282)" -"(lambda(fold-var_299 lst_340)" +"(let-values()(check-list lst_344)))" +"((letrec-values(((for-loop_292)" +"(lambda(fold-var_304 lst_345)" "(begin" " 'for-loop" -"(if(pair? lst_340)" -"(let-values(((ids_33)" -"(unsafe-car lst_340))" -"((rest_200)" -"(unsafe-cdr lst_340)))" -"(let-values(((fold-var_261)" -"(let-values(((fold-var_300)" -" fold-var_299))" -"(let-values(((fold-var_301)" +"(if(pair? lst_345)" +"(let-values(((ids_19)" +"(unsafe-car lst_345))" +"((rest_199)" +"(unsafe-cdr lst_345)))" +"(let-values(((fold-var_305)" +"(let-values(((fold-var_306)" +" fold-var_304))" +"(let-values(((fold-var_307)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_341)" -" ids_33))" +"(let-values(((lst_346)" +" ids_19))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_341)))" -"((letrec-values(((for-loop_283)" -"(lambda(fold-var_263" -" lst_342)" +" lst_346)))" +"((letrec-values(((for-loop_293)" +"(lambda(fold-var_308" +" lst_347)" "(begin" " 'for-loop" "(if(pair?" -" lst_342)" -"(let-values(((id_114)" +" lst_347)" +"(let-values(((id_119)" "(unsafe-car" -" lst_342))" -"((rest_201)" +" lst_347))" +"((rest_200)" "(unsafe-cdr" -" lst_342)))" -"(let-values(((fold-var_265)" -"(let-values(((fold-var_302)" -" fold-var_263))" -"(let-values(((fold-var_303)" +" lst_347)))" +"(let-values(((fold-var_309)" +"(let-values(((fold-var_310)" +" fold-var_308))" +"(let-values(((fold-var_311)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_114" -" sc_7))" -" fold-var_302))))" +" id_119" +" sc_33))" +" fold-var_310))))" "(values" -" fold-var_303)))))" +" fold-var_311)))))" "(if(not" " #f)" -"(for-loop_283" -" fold-var_265" -" rest_201)" -" fold-var_265)))" -" fold-var_263)))))" -" for-loop_283)" +"(for-loop_293" +" fold-var_309" +" rest_200)" +" fold-var_309)))" +" fold-var_308)))))" +" for-loop_293)" " null" -" lst_341)))))" -" fold-var_300))))" +" lst_346)))))" +" fold-var_306))))" "(values" -" fold-var_301)))))" +" fold-var_307)))))" "(if(not #f)" -"(for-loop_282 fold-var_261 rest_200)" -" fold-var_261)))" -" fold-var_299)))))" -" for-loop_282)" +"(for-loop_292 fold-var_305 rest_199)" +" fold-var_305)))" +" fold-var_304)))))" +" for-loop_292)" " null" -" lst_339))))))" +" lst_344))))))" "(let-values(((val-idss_3)" "(reverse$1" -"(let-values(((lst_343)(if syntaxes?_0 id:val92_0 id:val116_0)))" +"(let-values(((lst_348)(if syntaxes?_0 id:val92_0 id:val116_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_343)))" -"((letrec-values(((for-loop_284)" -"(lambda(fold-var_267 lst_344)" +"(let-values()(check-list lst_348)))" +"((letrec-values(((for-loop_294)" +"(lambda(fold-var_312 lst_304)" "(begin" " 'for-loop" -"(if(pair? lst_344)" +"(if(pair? lst_304)" "(let-values(((ids_34)" -"(unsafe-car lst_344))" -"((rest_202)" -"(unsafe-cdr lst_344)))" -"(let-values(((fold-var_304)" -"(let-values(((fold-var_305)" -" fold-var_267))" -"(let-values(((fold-var_306)" +"(unsafe-car lst_304))" +"((rest_201)" +"(unsafe-cdr lst_304)))" +"(let-values(((fold-var_313)" +"(let-values(((fold-var_314)" +" fold-var_312))" +"(let-values(((fold-var_315)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_345)" +"(let-values(((lst_349)" " ids_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63625,101 +63863,101 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_345)))" -"((letrec-values(((for-loop_285)" -"(lambda(fold-var_307" -" lst_346)" +" lst_349)))" +"((letrec-values(((for-loop_295)" +"(lambda(fold-var_271" +" lst_306)" "(begin" " 'for-loop" "(if(pair?" -" lst_346)" -"(let-values(((id_115)" +" lst_306)" +"(let-values(((id_120)" "(unsafe-car" -" lst_346))" -"((rest_203)" +" lst_306))" +"((rest_202)" "(unsafe-cdr" -" lst_346)))" -"(let-values(((fold-var_308)" -"(let-values(((fold-var_309)" -" fold-var_307))" -"(let-values(((fold-var_310)" +" lst_306)))" +"(let-values(((fold-var_316)" +"(let-values(((fold-var_317)" +" fold-var_271))" +"(let-values(((fold-var_318)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_115" -" sc_7))" -" fold-var_309))))" +" id_120" +" sc_33))" +" fold-var_317))))" "(values" -" fold-var_310)))))" +" fold-var_318)))))" "(if(not" " #f)" -"(for-loop_285" -" fold-var_308" -" rest_203)" -" fold-var_308)))" -" fold-var_307)))))" -" for-loop_285)" -" null" -" lst_345)))))" -" fold-var_305))))" -"(values" -" fold-var_306)))))" -"(if(not #f)" -"(for-loop_284" -" fold-var_304" +"(for-loop_295" +" fold-var_316" " rest_202)" -" fold-var_304)))" -" fold-var_267)))))" -" for-loop_284)" +" fold-var_316)))" +" fold-var_271)))))" +" for-loop_295)" " null" -" lst_343))))))" +" lst_349)))))" +" fold-var_314))))" +"(values" +" fold-var_315)))))" +"(if(not #f)" +"(for-loop_294" +" fold-var_313" +" rest_201)" +" fold-var_313)))" +" fold-var_312)))))" +" for-loop_294)" +" null" +" lst_348))))))" "(let-values(((val-rhss_3)" "(if rec?_1" "(reverse$1" -"(let-values(((lst_347)" +"(let-values(((lst_350)" "(if syntaxes?_0 val-rhs93_0 val-rhs117_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_347)))" -"((letrec-values(((for-loop_286)" -"(lambda(fold-var_311 lst_348)" +"(let-values()(check-list lst_350)))" +"((letrec-values(((for-loop_296)" +"(lambda(fold-var_275 lst_351)" "(begin" " 'for-loop" -"(if(pair? lst_348)" +"(if(pair? lst_351)" "(let-values(((rhs_20)" -"(unsafe-car lst_348))" -"((rest_204)" -"(unsafe-cdr lst_348)))" -"(let-values(((fold-var_312)" -"(let-values(((fold-var_313)" -" fold-var_311))" -"(let-values(((fold-var_314)" +"(unsafe-car lst_351))" +"((rest_203)" +"(unsafe-cdr lst_351)))" +"(let-values(((fold-var_319)" +"(let-values(((fold-var_320)" +" fold-var_275))" +"(let-values(((fold-var_321)" "(let-values()" "(cons" "(let-values()" "(add-scope" " rhs_20" -" sc_7))" -" fold-var_313))))" +" sc_33))" +" fold-var_320))))" "(values" -" fold-var_314)))))" +" fold-var_321)))))" "(if(not #f)" -"(for-loop_286" -" fold-var_312" -" rest_204)" -" fold-var_312)))" -" fold-var_311)))))" -" for-loop_286)" +"(for-loop_296" +" fold-var_319" +" rest_203)" +" fold-var_319)))" +" fold-var_275)))))" +" for-loop_296)" " null" -" lst_347))))" +" lst_350))))" "(if syntaxes?_0 val-rhs93_0 val-rhs117_0))))" "(let-values((()" "(begin" "(let-values(((temp129_2)(list trans-idss_2 val-idss_3))" -"((phase130_0) phase_146)" -"((s131_0) s_89))" +"((phase130_0) phase_144)" +"((s131_0) s_407))" "(check-no-duplicate-ids8.1" " #f" " #f" @@ -63729,35 +63967,35 @@ static const char *startup_source = " #f" " #f))" "(values))))" -"(let-values(((counter_8)(root-expand-context-counter ctx_81)))" +"(let-values(((counter_8)(root-expand-context-counter ctx_83)))" "(let-values(((trans-keyss_0)" "(reverse$1" -"(let-values(((lst_349) trans-idss_2))" +"(let-values(((lst_120) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_349)))" -"((letrec-values(((for-loop_287)" -"(lambda(fold-var_315 lst_350)" +"(let-values()(check-list lst_120)))" +"((letrec-values(((for-loop_153)" +"(lambda(fold-var_98 lst_121)" "(begin" " 'for-loop" -"(if(pair? lst_350)" +"(if(pair? lst_121)" "(let-values(((ids_35)" "(unsafe-car" -" lst_350))" -"((rest_205)" +" lst_121))" +"((rest_59)" "(unsafe-cdr" -" lst_350)))" -"(let-values(((fold-var_316)" -"(let-values(((fold-var_317)" -" fold-var_315))" -"(let-values(((fold-var_318)" +" lst_121)))" +"(let-values(((fold-var_99)" +"(let-values(((fold-var_322)" +" fold-var_98))" +"(let-values(((fold-var_323)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_351)" +"(let-values(((lst_352)" " ids_35))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63765,92 +64003,98 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_351)))" -"((letrec-values(((for-loop_288)" -"(lambda(fold-var_319" -" lst_352)" +" lst_352)))" +"((letrec-values(((for-loop_297)" +"(lambda(fold-var_102" +" lst_353)" "(begin" " 'for-loop" "(if(pair?" -" lst_352)" -"(let-values(((id_116)" +" lst_353)" +"(let-values(((id_121)" "(unsafe-car" -" lst_352))" -"((rest_206)" +" lst_353))" +"((rest_204)" "(unsafe-cdr" -" lst_352)))" -"(let-values(((fold-var_320)" -"(let-values(((fold-var_98)" -" fold-var_319))" -"(let-values(((fold-var_99)" +" lst_353)))" +"(let-values(((fold-var_324)" +"(let-values(((fold-var_325)" +" fold-var_102))" +"(let-values(((fold-var_326)" "(let-values()" "(cons" "(let-values()" -"(let-values(((frame-id144_0)" +"(let-values(((id141_0)" +" id_121)" +"((phase142_0)" +" phase_144)" +"((counter143_0)" +" counter_8)" +"((frame-id144_0)" " frame-id_15)" "((s145_1)" -" s_89))" +" s_407))" "(add-local-binding!35.1" " frame-id144_0" " #t" " s145_1" " #t" -" id_116" -" phase_146" -" counter_8)))" -" fold-var_98))))" +" id141_0" +" phase142_0" +" counter143_0)))" +" fold-var_325))))" "(values" -" fold-var_99)))))" +" fold-var_326)))))" "(if(not" " #f)" -"(for-loop_288" -" fold-var_320" -" rest_206)" -" fold-var_320)))" -" fold-var_319)))))" -" for-loop_288)" +"(for-loop_297" +" fold-var_324" +" rest_204)" +" fold-var_324)))" +" fold-var_102)))))" +" for-loop_297)" " null" -" lst_351)))))" -" fold-var_317))))" +" lst_352)))))" +" fold-var_322))))" "(values" -" fold-var_318)))))" +" fold-var_323)))))" "(if(not #f)" -"(for-loop_287" -" fold-var_316" -" rest_205)" -" fold-var_316)))" -" fold-var_315)))))" -" for-loop_287)" +"(for-loop_153" +" fold-var_99" +" rest_59)" +" fold-var_99)))" +" fold-var_98)))))" +" for-loop_153)" " null" -" lst_349))))))" +" lst_120))))))" "(let-values(((val-keyss_2)" "(reverse$1" -"(let-values(((lst_353) val-idss_3))" +"(let-values(((lst_354) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_353)))" -"((letrec-values(((for-loop_289)" -"(lambda(fold-var_321 lst_354)" +"(let-values()(check-list lst_354)))" +"((letrec-values(((for-loop_298)" +"(lambda(fold-var_327 lst_355)" "(begin" " 'for-loop" -"(if(pair? lst_354)" +"(if(pair? lst_355)" "(let-values(((ids_36)" "(unsafe-car" -" lst_354))" -"((rest_207)" +" lst_355))" +"((rest_205)" "(unsafe-cdr" -" lst_354)))" -"(let-values(((fold-var_322)" -"(let-values(((fold-var_323)" -" fold-var_321))" -"(let-values(((fold-var_324)" +" lst_355)))" +"(let-values(((fold-var_328)" +"(let-values(((fold-var_329)" +" fold-var_327))" +"(let-values(((fold-var_330)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_355)" +"(let-values(((lst_356)" " ids_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63858,121 +64102,127 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_355)))" -"((letrec-values(((for-loop_290)" -"(lambda(fold-var_325" -" lst_356)" +" lst_356)))" +"((letrec-values(((for-loop_299)" +"(lambda(fold-var_331" +" lst_357)" "(begin" " 'for-loop" "(if(pair?" -" lst_356)" -"(let-values(((id_117)" +" lst_357)" +"(let-values(((id_26)" "(unsafe-car" -" lst_356))" -"((rest_208)" +" lst_357))" +"((rest_206)" "(unsafe-cdr" -" lst_356)))" -"(let-values(((fold-var_326)" -"(let-values(((fold-var_327)" -" fold-var_325))" -"(let-values(((fold-var_328)" +" lst_357)))" +"(let-values(((fold-var_332)" +"(let-values(((fold-var_333)" +" fold-var_331))" +"(let-values(((fold-var_334)" "(let-values()" "(cons" "(let-values()" -"(let-values(((frame-id149_0)" +"(let-values(((id146_1)" +" id_26)" +"((phase147_1)" +" phase_144)" +"((counter148_0)" +" counter_8)" +"((frame-id149_0)" " frame-id_15)" "((s150_1)" -" s_89))" +" s_407))" "(add-local-binding!35.1" " frame-id149_0" " #t" " s150_1" " #t" -" id_117" -" phase_146" -" counter_8)))" -" fold-var_327))))" +" id146_1" +" phase147_1" +" counter148_0)))" +" fold-var_333))))" "(values" -" fold-var_328)))))" +" fold-var_334)))))" "(if(not" " #f)" -"(for-loop_290" -" fold-var_326" -" rest_208)" -" fold-var_326)))" -" fold-var_325)))))" -" for-loop_290)" +"(for-loop_299" +" fold-var_332" +" rest_206)" +" fold-var_332)))" +" fold-var_331)))))" +" for-loop_299)" " null" -" lst_355)))))" -" fold-var_323))))" +" lst_356)))))" +" fold-var_329))))" "(values" -" fold-var_324)))))" +" fold-var_330)))))" "(if(not #f)" -"(for-loop_289" -" fold-var_322" -" rest_207)" -" fold-var_322)))" -" fold-var_321)))))" -" for-loop_289)" +"(for-loop_298" +" fold-var_328" +" rest_205)" +" fold-var_328)))" +" fold-var_327)))))" +" for-loop_298)" " null" -" lst_353))))))" +" lst_354))))))" "(let-values(((bodys_10)" "(reverse$1" -"(let-values(((lst_357)" +"(let-values(((lst_358)" "(if syntaxes?_0 body94_0 body118_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_357)))" -"((letrec-values(((for-loop_291)" -"(lambda(fold-var_329 lst_358)" +"(let-values()(check-list lst_358)))" +"((letrec-values(((for-loop_300)" +"(lambda(fold-var_335 lst_359)" "(begin" " 'for-loop" -"(if(pair? lst_358)" +"(if(pair? lst_359)" "(let-values(((body_20)" "(unsafe-car" -" lst_358))" -"((rest_209)" +" lst_359))" +"((rest_207)" "(unsafe-cdr" -" lst_358)))" -"(let-values(((fold-var_330)" -"(let-values(((fold-var_331)" -" fold-var_329))" -"(let-values(((fold-var_332)" +" lst_359)))" +"(let-values(((fold-var_336)" +"(let-values(((fold-var_337)" +" fold-var_335))" +"(let-values(((fold-var_338)" "(let-values()" "(cons" "(let-values()" "(add-scope" " body_20" -" sc_7))" -" fold-var_331))))" +" sc_33))" +" fold-var_337))))" "(values" -" fold-var_332)))))" +" fold-var_338)))))" "(if(not #f)" -"(for-loop_291" -" fold-var_330" -" rest_209)" -" fold-var_330)))" -" fold-var_329)))))" -" for-loop_291)" +"(for-loop_300" +" fold-var_336" +" rest_207)" +" fold-var_336)))" +" fold-var_335)))))" +" for-loop_300)" " null" -" lst_357))))))" +" lst_358))))))" "(let-values((()" "(begin" -"(let-values(((obs_89)" -"(expand-context-observer ctx_81)))" -"(if obs_89" +"(let-values(((obs_93)" +"(expand-context-observer ctx_83)))" +"(if obs_93" "(let-values()" "(log-let-renames" -" obs_89" +" obs_93" " renames-log-tag_0" " val-idss_3" " val-rhss_3" " bodys_10" " trans-idss_2" "(if syntaxes?_0 trans-rhs91_0 #f)" -" sc_7))" +" sc_33))" "(void)))" "(values))))" "(let-values((()" @@ -63980,150 +64230,150 @@ static const char *startup_source = "(if syntaxes?_0" "(let-values()" "(begin" -"(let-values(((obs_90)" +"(let-values(((obs_94)" "(expand-context-observer" -" ctx_81)))" -"(if obs_90" +" ctx_83)))" +"(if obs_94" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_90" +" obs_94" " 'prepare-env)))" "(void)))" -"(prepare-next-phase-namespace ctx_81)))" +"(prepare-next-phase-namespace ctx_83)))" "(void))" "(values))))" "(let-values(((trans-valss_0)" "(reverse$1" -"(let-values(((lst_359)" +"(let-values(((lst_243)" "(if syntaxes?_0 trans-rhs91_0 '()))" "((lst_360) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_359)))" +"(let-values()(check-list lst_243)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-list lst_360)))" -"((letrec-values(((for-loop_292)" -"(lambda(fold-var_333" -" lst_232" -" lst_361)" +"((letrec-values(((for-loop_301)" +"(lambda(fold-var_339" +" lst_361" +" lst_362)" "(begin" " 'for-loop" -"(if(if(pair? lst_232)" -"(pair? lst_361)" +"(if(if(pair? lst_361)" +"(pair? lst_362)" " #f)" -"(let-values(((rhs_19)" -"(unsafe-car" -" lst_232))" -"((rest_210)" -"(unsafe-cdr" -" lst_232))" -"((ids_37)" +"(let-values(((rhs_21)" "(unsafe-car" " lst_361))" -"((rest_211)" +"((rest_208)" "(unsafe-cdr" -" lst_361)))" -"(let-values(((fold-var_334)" -"(let-values(((fold-var_335)" -" fold-var_333))" -"(let-values(((fold-var_336)" +" lst_361))" +"((ids_37)" +"(unsafe-car" +" lst_362))" +"((rest_209)" +"(unsafe-cdr" +" lst_362)))" +"(let-values(((fold-var_340)" +"(let-values(((fold-var_341)" +" fold-var_339))" +"(let-values(((fold-var_342)" "(let-values()" "(cons" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_91)" +"(let-values(((obs_95)" "(expand-context-observer" -" ctx_81)))" -"(if obs_91" +" ctx_83)))" +"(if obs_95" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_91" +" obs_95" " 'next)" "(call-expand-observe" -" obs_91" +" obs_95" " 'enter-bind))))" "(void)))" "(values))))" "(let-values(((trans-val_1)" "(eval-for-syntaxes-binding" "(add-scope" -" rhs_19" -" sc_7)" +" rhs_21" +" sc_33)" " ids_37" -" ctx_81)))" +" ctx_83)))" "(begin" -"(let-values(((obs_85)" +"(let-values(((obs_96)" "(expand-context-observer" -" ctx_81)))" -"(if obs_85" +" ctx_83)))" +"(if obs_96" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_85" +" obs_96" " 'exit-bind)))" "(void)))" " trans-val_1))))" -" fold-var_335))))" +" fold-var_341))))" "(values" -" fold-var_336)))))" +" fold-var_342)))))" "(if(not #f)" -"(for-loop_292" -" fold-var_334" -" rest_210" -" rest_211)" -" fold-var_334)))" -" fold-var_333)))))" -" for-loop_292)" +"(for-loop_301" +" fold-var_340" +" rest_208" +" rest_209)" +" fold-var_340)))" +" fold-var_339)))))" +" for-loop_301)" " null" -" lst_359" +" lst_243" " lst_360))))))" "(let-values(((rec-val-env_0)" -"(let-values(((lst_362) val-keyss_2)" -"((lst_121) val-idss_3))" +"(let-values(((lst_363) val-keyss_2)" +"((lst_364) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_362)))" +"(let-values()(check-list lst_363)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_121)))" -"((letrec-values(((for-loop_293)" -"(lambda(env_29" -" lst_235" -" lst_236)" +"(let-values()(check-list lst_364)))" +"((letrec-values(((for-loop_302)" +"(lambda(env_28" +" lst_245" +" lst_246)" "(begin" " 'for-loop" -"(if(if(pair? lst_235)" -"(pair? lst_236)" +"(if(if(pair? lst_245)" +"(pair? lst_246)" " #f)" "(let-values(((keys_10)" "(unsafe-car" -" lst_235))" -"((rest_212)" +" lst_245))" +"((rest_210)" "(unsafe-cdr" -" lst_235))" +" lst_245))" "((ids_38)" "(unsafe-car" -" lst_236))" -"((rest_213)" +" lst_246))" +"((rest_211)" "(unsafe-cdr" -" lst_236)))" +" lst_246)))" +"(let-values(((env_29)" "(let-values(((env_30)" -"(let-values(((env_31)" -" env_29))" -"(let-values(((lst_322)" +" env_28))" +"(let-values(((lst_365)" " keys_10)" -"((lst_323)" +"((lst_144)" " ids_38))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64131,131 +64381,131 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_322)))" +" lst_365)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_323)))" -"((letrec-values(((for-loop_294)" -"(lambda(env_5" -" lst_363" -" lst_239)" +" lst_144)))" +"((letrec-values(((for-loop_171)" +"(lambda(env_31" +" lst_145" +" lst_247)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_363)" +" lst_145)" "(pair?" -" lst_239)" +" lst_247)" " #f)" -"(let-values(((key_93)" +"(let-values(((key_91)" "(unsafe-car" -" lst_363))" -"((rest_214)" +" lst_145))" +"((rest_130)" "(unsafe-cdr" -" lst_363))" -"((id_67)" +" lst_145))" +"((id_122)" "(unsafe-car" -" lst_239))" -"((rest_186)" +" lst_247))" +"((rest_131)" "(unsafe-cdr" -" lst_239)))" +" lst_247)))" "(let-values(((env_32)" "(let-values(((env_33)" -" env_5))" +" env_31))" "(let-values(((env_34)" "(let-values()" "(env-extend" " env_33" -" key_93" +" key_91" "(local-variable1.1" -" id_67)))))" +" id_122)))))" "(values" " env_34)))))" "(if(not" " #f)" -"(for-loop_294" +"(for-loop_171" " env_32" -" rest_214" -" rest_186)" +" rest_130" +" rest_131)" " env_32)))" -" env_5)))))" -" for-loop_294)" -" env_31" -" lst_322" -" lst_323))))))" -"(if(not #f)" -"(for-loop_293" +" env_31)))))" +" for-loop_171)" " env_30" -" rest_212" -" rest_213)" -" env_30)))" -" env_29)))))" -" for-loop_293)" -"(expand-context-env ctx_81)" -" lst_362" -" lst_121)))))" +" lst_365" +" lst_144))))))" +"(if(not #f)" +"(for-loop_302" +" env_29" +" rest_210" +" rest_211)" +" env_29)))" +" env_28)))))" +" for-loop_302)" +"(expand-context-env ctx_83)" +" lst_363" +" lst_364)))))" "(let-values(((rec-env_0)" -"(let-values(((lst_364) trans-keyss_0)" -"((lst_365) trans-valss_0)" -"((lst_366) trans-idss_2))" +"(let-values(((lst_366) trans-keyss_0)" +"((lst_367) trans-valss_0)" +"((lst_368) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_364)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_365)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" "(let-values()(check-list lst_366)))" -"((letrec-values(((for-loop_295)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_367)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()(check-list lst_368)))" +"((letrec-values(((for-loop_303)" "(lambda(env_35" -" lst_242" -" lst_367" -" lst_368)" +" lst_369" +" lst_248" +" lst_370)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_242)" +" lst_369)" "(if(pair?" -" lst_367)" +" lst_248)" "(pair?" -" lst_368)" +" lst_370)" " #f)" " #f)" "(let-values(((keys_11)" "(unsafe-car" -" lst_242))" -"((rest_215)" +" lst_369))" +"((rest_212)" "(unsafe-cdr" -" lst_242))" +" lst_369))" "((vals_9)" "(unsafe-car" -" lst_367))" -"((rest_216)" +" lst_248))" +"((rest_132)" "(unsafe-cdr" -" lst_367))" +" lst_248))" "((ids_39)" "(unsafe-car" -" lst_368))" -"((rest_217)" +" lst_370))" +"((rest_61)" "(unsafe-cdr" -" lst_368)))" +" lst_370)))" "(let-values(((env_36)" "(let-values(((env_37)" " env_35))" "(let-values(((env_38)" "(let-values()" -"(let-values(((lst_122)" +"(let-values(((lst_371)" " keys_11)" -"((lst_369)" +"((lst_372)" " vals_9)" -"((lst_370)" +"((lst_373)" " ids_39))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64263,52 +64513,52 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_122)))" +" lst_371)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_369)))" +" lst_372)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_370)))" -"((letrec-values(((for-loop_296)" +" lst_373)))" +"((letrec-values(((for-loop_304)" "(lambda(env_39" -" lst_371" -" lst_372" -" lst_373)" +" lst_250" +" lst_374" +" lst_375)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_371)" +" lst_250)" "(if(pair?" -" lst_372)" +" lst_374)" "(pair?" -" lst_373)" +" lst_375)" " #f)" " #f)" -"(let-values(((key_94)" +"(let-values(((key_92)" "(unsafe-car" -" lst_371))" -"((rest_218)" +" lst_250))" +"((rest_213)" "(unsafe-cdr" -" lst_371))" -"((val_84)" +" lst_250))" +"((val_80)" "(unsafe-car" -" lst_372))" -"((rest_219)" +" lst_374))" +"((rest_214)" "(unsafe-cdr" -" lst_372))" -"((id_118)" +" lst_374))" +"((id_123)" "(unsafe-car" -" lst_373))" -"((rest_220)" +" lst_375))" +"((rest_215)" "(unsafe-cdr" -" lst_373)))" +" lst_375)))" "(let-values(((env_40)" "(let-values(((env_41)" " env_39))" @@ -64316,60 +64566,60 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_84" -" id_118" -" phase_146" -" ctx_81)" +" val_80" +" id_123" +" phase_144" +" ctx_83)" "(env-extend" " env_41" -" key_94" -" val_84)))))" +" key_92" +" val_80)))))" "(values" " env_42)))))" "(if(not" " #f)" -"(for-loop_296" +"(for-loop_304" " env_40" -" rest_218" -" rest_219" -" rest_220)" +" rest_213" +" rest_214" +" rest_215)" " env_40)))" " env_39)))))" -" for-loop_296)" +" for-loop_304)" " env_37" -" lst_122" -" lst_369" -" lst_370))))))" +" lst_371" +" lst_372" +" lst_373))))))" "(values" " env_38)))))" "(if(not #f)" -"(for-loop_295" +"(for-loop_303" " env_36" -" rest_215" -" rest_216" -" rest_217)" +" rest_212" +" rest_132" +" rest_61)" " env_36)))" " env_35)))))" -" for-loop_295)" +" for-loop_303)" " rec-val-env_0" -" lst_364" -" lst_365" -" lst_366)))))" -"(let-values(((expr-ctx_0)(as-expression-context ctx_81)))" +" lst_366" +" lst_367" +" lst_368)))))" +"(let-values(((expr-ctx_0)(as-expression-context ctx_83)))" "(let-values(((orig-rrs_0)" "(expand-context-reference-records" " expr-ctx_0)))" "(let-values(((rec-ctx_0)" -"(let-values(((v_251) expr-ctx_0))" -"(let-values(((the-struct_97) v_251))" +"(let-values(((v_256) expr-ctx_0))" +"(let-values(((the-struct_97) v_256))" "(if(expand-context/outer?" " the-struct_97)" "(let-values(((env151_1) rec-env_0)" "((scopes152_0)" "(cons" -" sc_7" +" sc_33" "(expand-context-scopes" -" ctx_81)))" +" ctx_83)))" "((reference-records153_0)" "(if split-by-reference?_0" "(cons" @@ -64381,11 +64631,11 @@ static const char *startup_source = "(cons" " trans-idss_2" " val-idss_3)" -" ctx_81" -" sc_7))" +" ctx_83" +" sc_33))" "((inner155_2)" "(root-expand-context/outer-inner" -" v_251)))" +" v_256)))" "(expand-context/outer1.1" " inner155_2" "(root-expand-context/outer-post-expansion-scope" @@ -64418,13 +64668,15 @@ static const char *startup_source = " the-struct_97))))))" "(let-values(((letrec-values-id_0)" "(if(not" -"(expand-context-to-parsed? ctx_81))" +"(expand-context-to-parsed? ctx_83))" "(if syntaxes?_0" -"(core-id 'letrec-values phase_146)" +"(core-id 'letrec-values phase_144)" " let-values115_0)" " #f)))" "(let-values(((rebuild-s_6)" -"(let-values(((temp158_3) #t))" +"(let-values(((ctx156_0) ctx_83)" +"((s157_0) s_407)" +"((temp158_3) #t))" "(keep-as-needed74.1" " #f" " #f" @@ -64432,42 +64684,42 @@ static const char *startup_source = " #t" " #f" " #f" -" ctx_81" -" s_89))))" +" ctx156_0" +" s157_0))))" "(let-values(((val-name-idss_0)" "(if(expand-context-to-parsed?" -" ctx_81)" +" ctx_83)" "(reverse$1" -"(let-values(((lst_374)" +"(let-values(((lst_376)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_374)))" -"((letrec-values(((for-loop_297)" -"(lambda(fold-var_106" -" lst_375)" +"(check-list lst_376)))" +"((letrec-values(((for-loop_305)" +"(lambda(fold-var_343" +" lst_377)" "(begin" " 'for-loop" "(if(pair?" -" lst_375)" +" lst_377)" "(let-values(((val-ids_1)" "(unsafe-car" -" lst_375))" -"((rest_221)" +" lst_377))" +"((rest_216)" "(unsafe-cdr" -" lst_375)))" -"(let-values(((fold-var_337)" -"(let-values(((fold-var_338)" -" fold-var_106))" -"(let-values(((fold-var_339)" +" lst_377)))" +"(let-values(((fold-var_344)" +"(let-values(((fold-var_112)" +" fold-var_343))" +"(let-values(((fold-var_113)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_376)" +"(let-values(((lst_378)" " val-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64475,24 +64727,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_376)))" -"((letrec-values(((for-loop_298)" -"(lambda(fold-var_340" -" lst_377)" +" lst_378)))" +"((letrec-values(((for-loop_160)" +"(lambda(fold-var_114" +" lst_379)" "(begin" " 'for-loop" "(if(pair?" -" lst_377)" +" lst_379)" "(let-values(((val-id_0)" "(unsafe-car" -" lst_377))" -"((rest_222)" +" lst_379))" +"((rest_217)" "(unsafe-cdr" -" lst_377)))" -"(let-values(((fold-var_109)" -"(let-values(((fold-var_341)" -" fold-var_340))" -"(let-values(((fold-var_342)" +" lst_379)))" +"(let-values(((fold-var_116)" +"(let-values(((fold-var_345)" +" fold-var_114))" +"(let-values(((fold-var_346)" "(let-values()" "(cons" "(let-values()" @@ -64502,44 +64754,44 @@ static const char *startup_source = " val-id_0)" " val-id_0" " val-id_0))" -" fold-var_341))))" +" fold-var_345))))" "(values" -" fold-var_342)))))" +" fold-var_346)))))" "(if(not" " #f)" -"(for-loop_298" -" fold-var_109" -" rest_222)" -" fold-var_109)))" -" fold-var_340)))))" -" for-loop_298)" +"(for-loop_160" +" fold-var_116" +" rest_217)" +" fold-var_116)))" +" fold-var_114)))))" +" for-loop_160)" " null" -" lst_376)))))" -" fold-var_338))))" +" lst_378)))))" +" fold-var_112))))" "(values" -" fold-var_339)))))" +" fold-var_113)))))" "(if(not" " #f)" -"(for-loop_297" -" fold-var_337" -" rest_221)" -" fold-var_337)))" -" fold-var_106)))))" -" for-loop_297)" +"(for-loop_305" +" fold-var_344" +" rest_216)" +" fold-var_344)))" +" fold-var_343)))))" +" for-loop_305)" " null" -" lst_374))))" +" lst_376))))" " val-idss_3)))" "(let-values((()" "(begin" "(if syntaxes?_0" "(let-values()" -"(let-values(((obs_92)" +"(let-values(((obs_97)" "(expand-context-observer" -" ctx_81)))" -"(if obs_92" +" ctx_83)))" +"(if obs_97" "(let-values()" "(log-letrec-values" -" obs_92" +" obs_97" " val-idss_3" " val-rhss_3" " bodys_10))" @@ -64552,10 +64804,10 @@ static const char *startup_source = " 'get-body" "(let-values((()" "(begin" -"(let-values(((obs_93)" +"(let-values(((obs_98)" "(expand-context-observer" -" ctx_81)))" -"(if obs_93" +" ctx_83)))" +"(if obs_98" "(let-values()" "(if(not" "(if syntaxes?_0" @@ -64564,23 +64816,23 @@ static const char *startup_source = " #f))" "(let-values()" "(call-expand-observe" -" obs_93" +" obs_98" " 'next-group))" "(void)))" "(void)))" "(values))))" "(let-values(((body-ctx_5)" -"(let-values(((v_252)" +"(let-values(((v_257)" " rec-ctx_0))" "(let-values(((the-struct_98)" -" v_252))" +" v_257))" "(if(expand-context/outer?" " the-struct_98)" "(let-values(((reference-records162_0)" " orig-rrs_0)" "((inner163_0)" "(root-expand-context/outer-inner" -" v_252)))" +" v_257)))" "(expand-context/outer1.1" " inner163_0" "(root-expand-context/outer-post-expansion-scope" @@ -64614,19 +64866,23 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_98))))))" -"(let-values(((temp160_2)" -"(let-values(((ctx165_0)" -" ctx_81))" +"(let-values(((bodys159_0)" +" bodys_10)" +"((temp160_2)" +"(let-values(((body-ctx164_0)" +" body-ctx_5)" +"((ctx165_0)" +" ctx_83))" "(as-tail-context23.1" " ctx165_0" -" body-ctx_5)))" +" body-ctx164_0)))" "((rebuild-s161_0)" " rebuild-s_6))" "(expand-body7.1" " rebuild-s161_0" " #f" " #f" -" bodys_10" +" bodys159_0" " temp160_2))))))))" "(let-values(((result-s_12)" "(if(not" @@ -64634,11 +64890,11 @@ static const char *startup_source = "(let-values()" "(let-values(((clauses_2)" "(reverse$1" -"(let-values(((lst_378)" +"(let-values(((lst_380)" " val-name-idss_0)" -"((lst_379)" +"((lst_381)" " val-keyss_2)" -"((lst_380)" +"((lst_382)" " val-rhss_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64646,75 +64902,75 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_378)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_379)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" " lst_380)))" -"((letrec-values(((for-loop_159)" -"(lambda(fold-var_116" -" lst_381" -" lst_382" -" lst_383)" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_381)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_382)))" +"((letrec-values(((for-loop_306)" +"(lambda(fold-var_347" +" lst_383" +" lst_384" +" lst_385)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_381)" -"(if(pair?" -" lst_382)" -"(pair?" " lst_383)" +"(if(pair?" +" lst_384)" +"(pair?" +" lst_385)" " #f)" " #f)" "(let-values(((ids_40)" "(unsafe-car" -" lst_381))" -"((rest_223)" +" lst_383))" +"((rest_218)" "(unsafe-cdr" -" lst_381))" +" lst_383))" "((keys_12)" "(unsafe-car" -" lst_382))" -"((rest_224)" +" lst_384))" +"((rest_219)" "(unsafe-cdr" -" lst_382))" -"((rhs_21)" +" lst_384))" +"((rhs_22)" "(unsafe-car" -" lst_383))" -"((rest_225)" +" lst_385))" +"((rest_220)" "(unsafe-cdr" -" lst_383)))" -"(let-values(((fold-var_343)" -"(let-values(((fold-var_119)" -" fold-var_116))" -"(let-values(((fold-var_120)" +" lst_385)))" +"(let-values(((fold-var_348)" +"(let-values(((fold-var_349)" +" fold-var_347))" +"(let-values(((fold-var_350)" "(let-values()" "(cons" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_94)" +"(let-values(((obs_99)" "(expand-context-observer" -" ctx_81)))" -"(if obs_94" +" ctx_83)))" +"(if obs_99" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_94" +" obs_99" " 'next)))" "(void)))" "(values))))" -"(let-values(((exp-rhs_4)" +"(let-values(((exp-rhs_3)" "(let-values(((rhs166_0)" -" rhs_21)" +" rhs_22)" "((temp167_1)" "(if rec?_1" "(as-named-context" @@ -64731,30 +64987,30 @@ static const char *startup_source = " rhs166_0" " temp167_1))))" "(if(expand-context-to-parsed?" -" ctx_81)" +" ctx_83)" "(list" " keys_12" -" exp-rhs_4)" +" exp-rhs_3)" "(list" " ids_40" -" exp-rhs_4)))))" -" fold-var_119))))" +" exp-rhs_3)))))" +" fold-var_349))))" "(values" -" fold-var_120)))))" +" fold-var_350)))))" "(if(not" " #f)" -"(for-loop_159" -" fold-var_343" -" rest_223" -" rest_224" -" rest_225)" -" fold-var_343)))" -" fold-var_116)))))" -" for-loop_159)" +"(for-loop_306" +" fold-var_348" +" rest_218" +" rest_219" +" rest_220)" +" fold-var_348)))" +" fold-var_347)))))" +" for-loop_306)" " null" -" lst_378" -" lst_379" -" lst_380))))))" +" lst_380" +" lst_381" +" lst_382))))))" "(let-values(((exp-body_4)" "(get-body_1)))" "(begin" @@ -64764,7 +65020,7 @@ static const char *startup_source = " frame-id_15))" "(void))" "(if(expand-context-to-parsed?" -" ctx_81)" +" ctx_83)" "(if rec?_1" "(parsed-letrec-values18.1" " rebuild-s_6" @@ -64789,9 +65045,15 @@ static const char *startup_source = " rebuild-s168_0" " temp169_2)))))))" "(let-values()" -"(let-values(((temp173_0)" +"(let-values(((val-idss170_0)" +" val-idss_3)" +"((val-keyss171_0)" +" val-keyss_2)" +"((val-rhss172_0)" +" val-rhss_3)" +"((temp173_0)" "(reverse$1" -"(let-values(((lst_384)" +"(let-values(((lst_386)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64799,41 +65061,41 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_384)))" -"((letrec-values(((for-loop_299)" -"(lambda(fold-var_344" -" lst_385)" +" lst_386)))" +"((letrec-values(((for-loop_307)" +"(lambda(fold-var_351" +" lst_387)" "(begin" " 'for-loop" "(if(pair?" -" lst_385)" -"(let-values(((rhs_22)" +" lst_387)" +"(let-values(((rhs_23)" "(unsafe-car" -" lst_385))" -"((rest_226)" +" lst_387))" +"((rest_221)" "(unsafe-cdr" -" lst_385)))" -"(let-values(((fold-var_345)" -"(let-values(((fold-var_346)" -" fold-var_344))" -"(let-values(((fold-var_347)" +" lst_387)))" +"(let-values(((fold-var_352)" +"(let-values(((fold-var_353)" +" fold-var_351))" +"(let-values(((fold-var_354)" "(let-values()" "(cons" "(let-values()" " #f)" -" fold-var_346))))" +" fold-var_353))))" "(values" -" fold-var_347)))))" +" fold-var_354)))))" "(if(not" " #f)" -"(for-loop_299" -" fold-var_345" -" rest_226)" -" fold-var_345)))" -" fold-var_344)))))" -" for-loop_299)" +"(for-loop_307" +" fold-var_352" +" rest_221)" +" fold-var_352)))" +" fold-var_351)))))" +" for-loop_307)" " null" -" lst_384)))))" +" lst_386)))))" "((temp174_0)" " #t)" "((frame-id175_0)" @@ -64856,86 +65118,86 @@ static const char *startup_source = " rebuild-s177_0" " temp174_0" " temp180_1" -" val-idss_3" -" val-keyss_2" -" val-rhss_3" +" val-idss170_0" +" val-keyss171_0" +" val-rhss172_0" " temp173_0))))))" -"(if(expand-context-to-parsed? ctx_81)" +"(if(expand-context-to-parsed? ctx_83)" " result-s_12" "(attach-disappeared-transformer-bindings" " result-s_12" " trans-idss_2)))))))))))))))))))))))))))))))))))))))))" "(define-values" "(log-let-renames)" -"(lambda(obs_95 renames-log-tag_1 val-idss_4 val-rhss_4 bodys_11 trans-idss_3 trans-rhss_0 sc_33)" +"(lambda(obs_100 renames-log-tag_1 val-idss_4 val-rhss_4 bodys_11 trans-idss_3 trans-rhss_0 sc_34)" "(begin" "(let-values(((vals+body_0)" "(cons" "(reverse$1" -"(let-values(((lst_386) val-idss_4)((lst_59) val-rhss_4))" +"(let-values(((lst_388) val-idss_4)((lst_389) val-rhss_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_386)))" +"(let-values()(check-list lst_388)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_59)))" -"((letrec-values(((for-loop_300)" -"(lambda(fold-var_348 lst_387 lst_388)" +"(let-values()(check-list lst_389)))" +"((letrec-values(((for-loop_308)" +"(lambda(fold-var_355 lst_390 lst_391)" "(begin" " 'for-loop" -"(if(if(pair? lst_387)(pair? lst_388) #f)" -"(let-values(((val-ids_2)(unsafe-car lst_387))" -"((rest_227)(unsafe-cdr lst_387))" -"((val-rhs_11)(unsafe-car lst_388))" -"((rest_228)(unsafe-cdr lst_388)))" -"(let-values(((fold-var_349)" -"(let-values(((fold-var_350) fold-var_348))" -"(let-values(((fold-var_351)" +"(if(if(pair? lst_390)(pair? lst_391) #f)" +"(let-values(((val-ids_2)(unsafe-car lst_390))" +"((rest_222)(unsafe-cdr lst_390))" +"((val-rhs_11)(unsafe-car lst_391))" +"((rest_223)(unsafe-cdr lst_391)))" +"(let-values(((fold-var_126)" +"(let-values(((fold-var_127) fold-var_355))" +"(let-values(((fold-var_356)" "(let-values()" "(cons" "(let-values()" "(datum->syntax$1" " #f" "(list val-ids_2 val-rhs_11)))" -" fold-var_350))))" -"(values fold-var_351)))))" +" fold-var_127))))" +"(values fold-var_356)))))" "(if(not #f)" -"(for-loop_300 fold-var_349 rest_227 rest_228)" -" fold-var_349)))" -" fold-var_348)))))" -" for-loop_300)" +"(for-loop_308 fold-var_126 rest_222 rest_223)" +" fold-var_126)))" +" fold-var_355)))))" +" for-loop_308)" " null" -" lst_386" -" lst_59))))" +" lst_388" +" lst_389))))" "(datum->syntax$1 #f bodys_11))))" "(call-expand-observe" -" obs_95" +" obs_100" " renames-log-tag_1" "(if(not trans-rhss_0)" " vals+body_0" "(cons" "(reverse$1" -"(let-values(((lst_62) trans-idss_3)((lst_389) trans-rhss_0))" +"(let-values(((lst_392) trans-idss_3)((lst_393) trans-rhss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_62)))" +"(let-values()(check-list lst_392)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_389)))" -"((letrec-values(((for-loop_301)" -"(lambda(fold-var_352 lst_390 lst_391)" +"(let-values()(check-list lst_393)))" +"((letrec-values(((for-loop_309)" +"(lambda(fold-var_357 lst_394 lst_395)" "(begin" " 'for-loop" -"(if(if(pair? lst_390)(pair? lst_391) #f)" -"(let-values(((trans-ids_0)(unsafe-car lst_390))" -"((rest_229)(unsafe-cdr lst_390))" -"((trans-rhs_5)(unsafe-car lst_391))" -"((rest_230)(unsafe-cdr lst_391)))" -"(let-values(((fold-var_122)" -"(let-values(((fold-var_353) fold-var_352))" -"(let-values(((fold-var_354)" +"(if(if(pair? lst_394)(pair? lst_395) #f)" +"(let-values(((trans-ids_0)(unsafe-car lst_394))" +"((rest_224)(unsafe-cdr lst_394))" +"((trans-rhs_5)(unsafe-car lst_395))" +"((rest_225)(unsafe-cdr lst_395)))" +"(let-values(((fold-var_358)" +"(let-values(((fold-var_359) fold-var_357))" +"(let-values(((fold-var_360)" "(let-values()" "(cons" "(let-values()" @@ -64943,28 +65205,28 @@ static const char *startup_source = " #f" "(list" " trans-ids_0" -"(add-scope trans-rhs_5 sc_33))))" -" fold-var_353))))" -"(values fold-var_354)))))" -"(if(not #f)(for-loop_301 fold-var_122 rest_229 rest_230) fold-var_122)))" -" fold-var_352)))))" -" for-loop_301)" +"(add-scope trans-rhs_5 sc_34))))" +" fold-var_359))))" +"(values fold-var_360)))))" +"(if(not #f)(for-loop_309 fold-var_358 rest_224 rest_225) fold-var_358)))" +" fold-var_357)))))" +" for-loop_309)" " null" -" lst_62" -" lst_389))))" +" lst_392" +" lst_393))))" " vals+body_0)))))))" "(define-values" "(log-letrec-values)" -"(lambda(obs_96 val-idss_5 val-rhss_5 bodys_12)" +"(lambda(obs_101 val-idss_5 val-rhss_5 bodys_12)" "(begin" "(begin" -"(call-expand-observe obs_96 'next-group)" +"(call-expand-observe obs_101 'next-group)" "(if(null? val-idss_5)" "(void)" "(let-values()" "(begin" -"(call-expand-observe obs_96 'prim-letrec-values)" -"(log-let-renames obs_96 'let-renames val-idss_5 val-rhss_5 bodys_12 #f #f #f))))))))" +"(call-expand-observe obs_101 'prim-letrec-values)" +"(log-let-renames obs_101 'let-renames val-idss_5 val-rhss_5 bodys_12 #f #f #f))))))))" "(void" "(add-core-form!*" " 'let-values" @@ -64986,76 +65248,77 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%stratified-body" -"(lambda(s_532 ctx_82)" +"(lambda(s_517 ctx_84)" "(let-values((()" "(begin" -"(let-values(((obs_97)(expand-context-observer ctx_82)))" -"(if obs_97" -"(let-values()(let-values()(call-expand-observe obs_97 'prim-#%stratified)))" +"(let-values(((obs_102)(expand-context-observer ctx_84)))" +"(if obs_102" +"(let-values()(let-values()(call-expand-observe obs_102 'prim-#%stratified)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_9)(syntax-disarm$1 s_532)))" -"(let-values(((ok?_39 #%stratified-body189_0 body190_0)" -"(let-values(((s_533) disarmed-s_9))" -"(let-values(((orig-s_47) s_533))" +"(let-values(((disarmed-s_9)(syntax-disarm$1 s_517)))" +"(let-values(((ok?_38 #%stratified-body189_0 body190_0)" +"(let-values(((s_518) disarmed-s_9))" +"(let-values(((orig-s_45) s_518))" "(let-values(((#%stratified-body189_1 body190_1)" -"(let-values(((s_534)(if(syntax?$1 s_533)(syntax-e$1 s_533) s_533)))" -"(if(pair? s_534)" +"(let-values(((s_519)(if(syntax?$1 s_518)(syntax-e$1 s_518) s_518)))" +"(if(pair? s_519)" "(let-values(((#%stratified-body191_0)" -"(let-values(((s_535)(car s_534))) s_535))" +"(let-values(((s_520)(car s_519))) s_520))" "((body192_0)" -"(let-values(((s_536)(cdr s_534)))" -"(let-values(((s_537)" -"(if(syntax?$1 s_536)" -"(syntax-e$1 s_536)" -" s_536)))" -"(let-values(((flat-s_39)(to-syntax-list.1 s_537)))" +"(let-values(((s_521)(cdr s_519)))" +"(let-values(((s_522)" +"(if(syntax?$1 s_521)" +"(syntax-e$1 s_521)" +" s_521)))" +"(let-values(((flat-s_39)(to-syntax-list.1 s_522)))" "(if(not flat-s_39)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_47))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_45))" "(if(null? flat-s_39)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_47))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_45))" "(let-values() flat-s_39))))))))" "(values #%stratified-body191_0 body192_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_47)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_45)))))" "(values #t #%stratified-body189_1 body190_1))))))" "(let-values(((rebuild-s_7)" -"(let-values(((temp195_0) #t))(keep-as-needed74.1 #f #f temp195_0 #t #f #f ctx_82 s_532))))" +"(let-values(((ctx193_0) ctx_84)((s194_0) s_517)((temp195_0) #t))" +"(keep-as-needed74.1 #f #f temp195_0 #t #f #f ctx193_0 s194_0))))" "(let-values(((exp-body_5)" "(let-values(((temp196_0) body190_0)" -"((ctx197_0) ctx_82)" +"((ctx197_0) ctx_84)" "((temp198_1) #t)" "((rebuild-s199_0) rebuild-s_7))" "(expand-body7.1 rebuild-s199_0 temp198_1 #t temp196_0 ctx197_0))))" -"(if(expand-context-to-parsed? ctx_82)" +"(if(expand-context-to-parsed? ctx_84)" "(parsed-begin12.1 rebuild-s_7 exp-body_5)" "(let-values(((rebuild-s200_0) rebuild-s_7)" "((temp201_1)" "(if(null?(cdr exp-body_5))" "(car exp-body_5)" -"(list*(core-id 'begin(expand-context-phase ctx_82)) exp-body_5))))" +"(list*(core-id 'begin(expand-context-phase ctx_84)) exp-body_5))))" "(rebuild5.1 #f #f rebuild-s200_0 temp201_1)))))))))))" "(void" "(add-core-form!*" " '#%datum" -"(lambda(s_538 ctx_83)" +"(lambda(s_523 ctx_85)" "(let-values((()" "(begin" -"(let-values(((obs_98)(expand-context-observer ctx_83)))" -"(if obs_98(let-values()(let-values()(call-expand-observe obs_98 'prim-#%datum)))(void)))" +"(let-values(((obs_103)(expand-context-observer ctx_85)))" +"(if obs_103(let-values()(let-values()(call-expand-observe obs_103 'prim-#%datum)))(void)))" "(values))))" -"(let-values(((disarmed-s_10)(syntax-disarm$1 s_538)))" -"(let-values(((ok?_40 #%datum202_0 datum203_0)" -"(let-values(((s_192) disarmed-s_10))" -"(let-values(((orig-s_48) s_192))" +"(let-values(((disarmed-s_10)(syntax-disarm$1 s_523)))" +"(let-values(((ok?_39 #%datum202_0 datum203_0)" +"(let-values(((s_524) disarmed-s_10))" +"(let-values(((orig-s_46) s_524))" "(let-values(((#%datum202_1 datum203_1)" -"(let-values(((s_539)(if(syntax?$1 s_192)(syntax-e$1 s_192) s_192)))" -"(if(pair? s_539)" -"(let-values(((#%datum204_0)(let-values(((s_540)(car s_539))) s_540))" -"((datum205_0)(let-values(((s_541)(cdr s_539))) s_541)))" +"(let-values(((s_525)(if(syntax?$1 s_524)(syntax-e$1 s_524) s_524)))" +"(if(pair? s_525)" +"(let-values(((#%datum204_0)(let-values(((s_526)(car s_525))) s_526))" +"((datum205_0)(let-values(((s_527)(cdr s_525))) s_527)))" "(values #%datum204_0 datum205_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_48)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_46)))))" "(values #t #%datum202_1 datum203_1))))))" "(let-values(((datum_2) datum203_0))" "(let-values((()" @@ -65065,74 +65328,86 @@ static const char *startup_source = " (raise-syntax-error$1 '#%datum \"keyword misused as an expression\" #f datum_2))" "(void))" "(values))))" -"(let-values(((phase_147)(expand-context-phase ctx_83)))" -"(if(if(expand-context-to-parsed? ctx_83)(free-id-set-empty?(expand-context-stops ctx_83)) #f)" -"(parsed-quote14.1(keep-properties-only~ s_538)(syntax->datum$1 datum_2))" -"(let-values(((s206_0) s_538)((temp207_0)(list(core-id 'quote phase_147) datum_2)))" +"(let-values(((phase_145)(expand-context-phase ctx_85)))" +"(if(if(expand-context-to-parsed? ctx_85)(free-id-set-empty?(expand-context-stops ctx_85)) #f)" +"(parsed-quote14.1(keep-properties-only~ s_523)(syntax->datum$1 datum_2))" +"(let-values(((s206_0) s_523)((temp207_0)(list(core-id 'quote phase_145) datum_2)))" "(rebuild5.1 #f #f s206_0 temp207_0))))))))))))" "(void" "(add-core-form!*" " '#%app" -"(lambda(s_542 ctx_84)" +"(lambda(s_528 ctx_86)" "(let-values((()" "(begin" -"(let-values(((obs_99)(expand-context-observer ctx_84)))" -"(if obs_99(let-values()(let-values()(call-expand-observe obs_99 'prim-#%app)))(void)))" +"(let-values(((obs_104)(expand-context-observer ctx_86)))" +"(if obs_104(let-values()(let-values()(call-expand-observe obs_104 'prim-#%app)))(void)))" "(values))))" -"(let-values(((disarmed-s_11)(syntax-disarm$1 s_542)))" -"(let-values(((ok?_41 #%app208_0 e209_0)" -"(let-values(((s_543) disarmed-s_11))" -"(let-values(((orig-s_49) s_543))" +"(let-values(((disarmed-s_11)(syntax-disarm$1 s_528)))" +"(let-values(((ok?_40 #%app208_0 e209_0)" +"(let-values(((s_529) disarmed-s_11))" +"(let-values(((orig-s_47) s_529))" "(let-values(((#%app208_1 e209_1)" -"(let-values(((s_544)(if(syntax?$1 s_543)(syntax-e$1 s_543) s_543)))" -"(if(pair? s_544)" -"(let-values(((#%app210_0)(let-values(((s_545)(car s_544))) s_545))" +"(let-values(((s_530)(if(syntax?$1 s_529)(syntax-e$1 s_529) s_529)))" +"(if(pair? s_530)" +"(let-values(((#%app210_0)(let-values(((s_531)(car s_530))) s_531))" "((e211_0)" -"(let-values(((s_546)(cdr s_544)))" -"(let-values(((s_547)" -"(if(syntax?$1 s_546)" -"(syntax-e$1 s_546)" -" s_546)))" -"(let-values(((flat-s_40)(to-syntax-list.1 s_547)))" +"(let-values(((s_532)(cdr s_530)))" +"(let-values(((s_533)" +"(if(syntax?$1 s_532)" +"(syntax-e$1 s_532)" +" s_532)))" +"(let-values(((flat-s_40)(to-syntax-list.1 s_533)))" "(if(not flat-s_40)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_49))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_47))" "(let-values() flat-s_40)))))))" "(values #%app210_0 e211_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_49)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_47)))))" "(values #t #%app208_1 e209_1))))))" "(let-values(((es_3) e209_0))" "(if(null? es_3)" "(let-values()" -"(let-values(((phase_148)(expand-context-phase ctx_84)))" -"(if(expand-context-to-parsed? ctx_84)" -"(parsed-quote14.1(keep-properties-only~ s_542) null)" -"(let-values(((s212_0) s_542)((temp213_1)(list(core-id 'quote phase_148) null)))" +"(let-values(((phase_146)(expand-context-phase ctx_86)))" +"(if(expand-context-to-parsed? ctx_86)" +"(parsed-quote14.1(keep-properties-only~ s_528) null)" +"(let-values(((s212_0) s_528)((temp213_1)(list(core-id 'quote phase_146) null)))" "(rebuild5.1 #f #f s212_0 temp213_1)))))" "(let-values()" "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))" "(let-values(((rebuild-s_8)" -"(let-values(((keep-for-parsed?216_0) keep-for-parsed?_1))" -"(keep-as-needed74.1 #f #f #f #f keep-for-parsed?216_0 #t ctx_84 s_542))))" +"(let-values(((ctx214_0) ctx_86)" +"((s215_0) s_528)" +"((keep-for-parsed?216_0) keep-for-parsed?_1))" +"(keep-as-needed74.1 #f #f #f #f keep-for-parsed?216_0 #t ctx214_0 s215_0))))" "(let-values(((prefixless_0)(cdr(syntax-e$1 disarmed-s_11))))" "(let-values(((rebuild-prefixless_0)" "(if(syntax?$1 prefixless_0)" -"(let-values(((keep-for-parsed?219_0) keep-for-parsed?_1))" -"(keep-as-needed74.1 #f #f #f #f keep-for-parsed?219_0 #t ctx_84 prefixless_0))" +"(let-values(((ctx217_0) ctx_86)" +"((prefixless218_0) prefixless_0)" +"((keep-for-parsed?219_0) keep-for-parsed?_1))" +"(keep-as-needed74.1" +" #f" +" #f" +" #f" +" #f" +" keep-for-parsed?219_0" +" #t" +" ctx217_0" +" prefixless218_0))" " #f)))" -"(let-values(((expr-ctx_1)(as-expression-context ctx_84)))" +"(let-values(((expr-ctx_1)(as-expression-context ctx_86)))" "(let-values((()" "(begin" -"(let-values(((obs_100)(expand-context-observer expr-ctx_1)))" -"(if obs_100" +"(let-values(((obs_105)(expand-context-observer expr-ctx_1)))" +"(if obs_105" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_100" +" obs_105" " 'enter-list" -"(datum->syntax$1 #f es_3 s_542))" -"(call-expand-observe obs_100 'next))))" +"(datum->syntax$1 #f es_3 s_528))" +"(call-expand-observe obs_105 'next))))" "(void)))" "(values))))" "(let-values(((rest-es_0)(cdr es_3)))" @@ -65141,39 +65416,39 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp220_1 expr-ctx221_0))))" "(let-values(((exp-es_0)" "(reverse$1" -"(let-values(((lst_392) rest-es_0))" +"(let-values(((lst_396) rest-es_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_392)))" -"((letrec-values(((for-loop_302)" -"(lambda(fold-var_56 lst_393)" +"(let-values()(check-list lst_396)))" +"((letrec-values(((for-loop_310)" +"(lambda(fold-var_361 lst_397)" "(begin" " 'for-loop" -"(if(pair? lst_393)" -"(let-values(((e_85)(unsafe-car lst_393))" -"((rest_231)" -"(unsafe-cdr lst_393)))" -"(let-values(((fold-var_355)" -"(let-values(((fold-var_356)" -" fold-var_56))" -"(let-values(((fold-var_357)" +"(if(pair? lst_397)" +"(let-values(((e_88)(unsafe-car lst_397))" +"((rest_226)" +"(unsafe-cdr lst_397)))" +"(let-values(((fold-var_362)" +"(let-values(((fold-var_363)" +" fold-var_361))" +"(let-values(((fold-var_364)" "(let-values()" "(cons" "(let-values()" "(begin" -"(let-values(((obs_101)" +"(let-values(((obs_106)" "(expand-context-observer" " expr-ctx_1)))" -"(if obs_101" +"(if obs_106" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_101" +" obs_106" " 'next)))" "(void)))" "(let-values(((e222_0)" -" e_85)" +" e_88)" "((expr-ctx223_0)" " expr-ctx_1))" "(expand7.1" @@ -65183,21 +65458,21 @@ static const char *startup_source = " #f" " e222_0" " expr-ctx223_0))))" -" fold-var_356))))" +" fold-var_363))))" "(values" -" fold-var_357)))))" +" fold-var_364)))))" "(if(not #f)" -"(for-loop_302 fold-var_355 rest_231)" -" fold-var_355)))" -" fold-var_56)))))" -" for-loop_302)" +"(for-loop_310 fold-var_362 rest_226)" +" fold-var_362)))" +" fold-var_361)))))" +" for-loop_310)" " null" -" lst_392))))))" -"(if(expand-context-to-parsed? ctx_84)" +" lst_396))))))" +"(if(expand-context-to-parsed? ctx_86)" "(let-values()" "(parsed-app7.1" -"(let-values(((or-part_378) rebuild-prefixless_0))" -"(if or-part_378 or-part_378 rebuild-s_8))" +"(let-values(((or-part_376) rebuild-prefixless_0))" +"(if or-part_376 or-part_376 rebuild-s_8))" " exp-rator_0" " exp-es_0))" "(let-values()" @@ -65209,12 +65484,12 @@ static const char *startup_source = "(rebuild5.1 #f #f rebuild-prefixless226_0 exp-es227_0))" " exp-es_1))))" "(begin" -"(let-values(((obs_102)(expand-context-observer expr-ctx_1)))" -"(if obs_102" +"(let-values(((obs_107)(expand-context-observer expr-ctx_1)))" +"(if obs_107" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_102" +" obs_107" " 'exit-list" "(datum->syntax$1 #f es_4 rebuild-s_8))))" "(void)))" @@ -65224,80 +65499,80 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'quote" -"(lambda(s_548 ctx_85)" +"(lambda(s_534 ctx_87)" "(let-values((()" "(begin" -"(let-values(((obs_103)(expand-context-observer ctx_85)))" -"(if obs_103(let-values()(let-values()(call-expand-observe obs_103 'prim-quote)))(void)))" +"(let-values(((obs_108)(expand-context-observer ctx_87)))" +"(if obs_108(let-values()(let-values()(call-expand-observe obs_108 'prim-quote)))(void)))" "(values))))" -"(let-values(((ok?_42 quote228_0 datum229_0)" -"(let-values(((s_549)(syntax-disarm$1 s_548)))" -"(let-values(((orig-s_50) s_549))" +"(let-values(((ok?_41 quote228_0 datum229_0)" +"(let-values(((s_535)(syntax-disarm$1 s_534)))" +"(let-values(((orig-s_48) s_535))" "(let-values(((quote228_1 datum229_1)" -"(let-values(((s_550)(if(syntax?$1 s_549)(syntax-e$1 s_549) s_549)))" -"(if(pair? s_550)" -"(let-values(((quote230_0)(let-values(((s_551)(car s_550))) s_551))" +"(let-values(((s_536)(if(syntax?$1 s_535)(syntax-e$1 s_535) s_535)))" +"(if(pair? s_536)" +"(let-values(((quote230_0)(let-values(((s_537)(car s_536))) s_537))" "((datum231_0)" -"(let-values(((s_552)(cdr s_550)))" -"(let-values(((s_553)" -"(if(syntax?$1 s_552)" -"(syntax-e$1 s_552)" -" s_552)))" -"(if(pair? s_553)" +"(let-values(((s_538)(cdr s_536)))" +"(let-values(((s_539)" +"(if(syntax?$1 s_538)" +"(syntax-e$1 s_538)" +" s_538)))" +"(if(pair? s_539)" "(let-values(((datum232_0)" -"(let-values(((s_554)(car s_553))) s_554))" +"(let-values(((s_540)(car s_539))) s_540))" "(()" -"(let-values(((s_555)(cdr s_553)))" -"(let-values(((s_556)" -"(if(syntax?$1 s_555)" -"(syntax-e$1 s_555)" -" s_555)))" -"(if(null? s_556)" +"(let-values(((s_541)(cdr s_539)))" +"(let-values(((s_542)" +"(if(syntax?$1 s_541)" +"(syntax-e$1 s_541)" +" s_541)))" +"(if(null? s_542)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_50))))))" +" orig-s_48))))))" "(values datum232_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_50))))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_48))))))" "(values quote230_0 datum231_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_50)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_48)))))" "(values #t quote228_1 datum229_1))))))" -"(if(expand-context-to-parsed? ctx_85)" -"(parsed-quote14.1(keep-properties-only~ s_548)(syntax->datum$1 datum229_0))" -" s_548))))))" +"(if(expand-context-to-parsed? ctx_87)" +"(parsed-quote14.1(keep-properties-only~ s_534)(syntax->datum$1 datum229_0))" +" s_534))))))" "(void" "(add-core-form!*" " 'quote-syntax" -"(lambda(s_557 ctx_86)" +"(lambda(s_543 ctx_88)" "(let-values((()" "(begin" -"(let-values(((obs_104)(expand-context-observer ctx_86)))" -"(if obs_104" -"(let-values()(let-values()(call-expand-observe obs_104 'prim-quote-syntax)))" +"(let-values(((obs_109)(expand-context-observer ctx_88)))" +"(if obs_109" +"(let-values()(let-values()(call-expand-observe obs_109 'prim-quote-syntax)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_12)(syntax-disarm$1 s_557)))" -"(let-values(((ok?_43 quote-syntax233_0 datum234_0)" -"(let-values(((s_558) disarmed-s_12))" -"(if(let-values(((s_559)(if(syntax?$1 s_558)(syntax-e$1 s_558) s_558)))" -"(if(pair? s_559)" -"(if(let-values(((s_560)(car s_559))) #t)" -"(let-values(((s_561)(cdr s_559)))" -"(let-values(((s_562)(if(syntax?$1 s_561)(syntax-e$1 s_561) s_561)))" -"(if(pair? s_562)" -"(if(let-values(((s_563)(car s_562))) #t)" -"(let-values(((s_564)(cdr s_562)))" -"(let-values(((s_565)(if(syntax?$1 s_564)(syntax-e$1 s_564) s_564)))" -"(if(pair? s_565)" -"(if(let-values(((s_566)(car s_565)))" -"(let-values(((s_567)" -"(if(syntax?$1 s_566)(syntax-e$1 s_566) s_566)))" -"(eq? '#:local s_567)))" -"(let-values(((s_568)(cdr s_565)))" -"(let-values(((s_569)" -"(if(syntax?$1 s_568)(syntax-e$1 s_568) s_568)))" -"(null? s_569)))" +"(let-values(((disarmed-s_12)(syntax-disarm$1 s_543)))" +"(let-values(((ok?_42 quote-syntax233_0 datum234_0)" +"(let-values(((s_544) disarmed-s_12))" +"(if(let-values(((s_545)(if(syntax?$1 s_544)(syntax-e$1 s_544) s_544)))" +"(if(pair? s_545)" +"(if(let-values(((s_546)(car s_545))) #t)" +"(let-values(((s_547)(cdr s_545)))" +"(let-values(((s_548)(if(syntax?$1 s_547)(syntax-e$1 s_547) s_547)))" +"(if(pair? s_548)" +"(if(let-values(((s_549)(car s_548))) #t)" +"(let-values(((s_550)(cdr s_548)))" +"(let-values(((s_551)(if(syntax?$1 s_550)(syntax-e$1 s_550) s_550)))" +"(if(pair? s_551)" +"(if(let-values(((s_552)(car s_551)))" +"(let-values(((s_553)" +"(if(syntax?$1 s_552)(syntax-e$1 s_552) s_552)))" +"(eq? '#:local s_553)))" +"(let-values(((s_554)(cdr s_551)))" +"(let-values(((s_555)" +"(if(syntax?$1 s_554)(syntax-e$1 s_554) s_554)))" +"(null? s_555)))" " #f)" " #f)))" " #f)" @@ -65306,198 +65581,198 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((quote-syntax233_1 datum234_1)" -"(let-values(((s_570)(if(syntax?$1 s_558)(syntax-e$1 s_558) s_558)))" +"(let-values(((s_556)(if(syntax?$1 s_544)(syntax-e$1 s_544) s_544)))" "(let-values(((quote-syntax235_0)" -"(let-values(((s_571)(car s_570))) s_571))" +"(let-values(((s_557)(car s_556))) s_557))" "((datum236_0)" -"(let-values(((s_572)(cdr s_570)))" -"(let-values(((s_573)" -"(if(syntax?$1 s_572)" -"(syntax-e$1 s_572)" -" s_572)))" +"(let-values(((s_558)(cdr s_556)))" +"(let-values(((s_559)" +"(if(syntax?$1 s_558)" +"(syntax-e$1 s_558)" +" s_558)))" "(let-values(((datum237_0)" -"(let-values(((s_574)(car s_573))) s_574))" +"(let-values(((s_560)(car s_559))) s_560))" "(()" -"(let-values(((s_575)(cdr s_573)))" -"(let-values(((s_576)" -"(if(syntax?$1 s_575)" -"(syntax-e$1 s_575)" -" s_575)))" +"(let-values(((s_561)(cdr s_559)))" +"(let-values(((s_562)" +"(if(syntax?$1 s_561)" +"(syntax-e$1 s_561)" +" s_561)))" "(let-values((()" -"(let-values(((s_577)" +"(let-values(((s_563)" "(car" -" s_576)))" -"(let-values(((s_578)" +" s_562)))" +"(let-values(((s_564)" "(if(syntax?$1" -" s_577)" +" s_563)" "(syntax-e$1" -" s_577)" -" s_577)))" +" s_563)" +" s_563)))" "(values))))" "(()" -"(let-values(((s_579)" +"(let-values(((s_565)" "(cdr" -" s_576)))" -"(let-values(((s_580)" +" s_562)))" +"(let-values(((s_566)" "(if(syntax?$1" -" s_579)" +" s_565)" "(syntax-e$1" -" s_579)" -" s_579)))" +" s_565)" +" s_565)))" "(values)))))" "(values))))))" "(values datum237_0))))))" "(values quote-syntax235_0 datum236_0)))))" "(values #t quote-syntax233_1 datum234_1)))" "(values #f #f #f)))))" -"(let-values(((ok?_44 quote-syntax238_0 datum239_0)" -"(let-values(((s_581) disarmed-s_12))" -"(if(if(not ok?_43) #t #f)" -"(let-values(((orig-s_51) s_581))" +"(let-values(((ok?_43 quote-syntax238_0 datum239_0)" +"(let-values(((s_567) disarmed-s_12))" +"(if(if(not ok?_42) #t #f)" +"(let-values(((orig-s_49) s_567))" "(let-values(((quote-syntax238_1 datum239_1)" -"(let-values(((s_582)(if(syntax?$1 s_581)(syntax-e$1 s_581) s_581)))" -"(if(pair? s_582)" +"(let-values(((s_568)(if(syntax?$1 s_567)(syntax-e$1 s_567) s_567)))" +"(if(pair? s_568)" "(let-values(((quote-syntax240_0)" -"(let-values(((s_583)(car s_582))) s_583))" +"(let-values(((s_569)(car s_568))) s_569))" "((datum241_0)" -"(let-values(((s_584)(cdr s_582)))" -"(let-values(((s_585)" -"(if(syntax?$1 s_584)" -"(syntax-e$1 s_584)" -" s_584)))" -"(if(pair? s_585)" +"(let-values(((s_570)(cdr s_568)))" +"(let-values(((s_571)" +"(if(syntax?$1 s_570)" +"(syntax-e$1 s_570)" +" s_570)))" +"(if(pair? s_571)" "(let-values(((datum242_0)" -"(let-values(((s_586)(car s_585)))" -" s_586))" +"(let-values(((s_572)(car s_571)))" +" s_572))" "(()" -"(let-values(((s_587)(cdr s_585)))" -"(let-values(((s_588)" -"(if(syntax?$1 s_587)" -"(syntax-e$1 s_587)" -" s_587)))" -"(if(null? s_588)" +"(let-values(((s_573)(cdr s_571)))" +"(let-values(((s_574)" +"(if(syntax?$1 s_573)" +"(syntax-e$1 s_573)" +" s_573)))" +"(if(null? s_574)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_51))))))" +" orig-s_49))))))" "(values datum242_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_51))))))" +" orig-s_49))))))" "(values quote-syntax240_0 datum241_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_51)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_49)))))" "(values #t quote-syntax238_1 datum239_1)))" "(values #f #f #f)))))" -"(if ok?_43" +"(if ok?_42" "(let-values()" "(let-values((()" "(begin" -"(reference-records-all-used!(expand-context-reference-records ctx_86))" +"(reference-records-all-used!(expand-context-reference-records ctx_88))" "(values))))" -"(let-values(((ok?_45 _243_0 _244_0 kw245_0)" -"(let-values(((s_272) disarmed-s_12))" -"(let-values(((orig-s_52) s_272))" +"(let-values(((ok?_44 _243_0 _244_0 kw245_0)" +"(let-values(((s_276) disarmed-s_12))" +"(let-values(((orig-s_50) s_276))" "(let-values(((_243_1 _244_1 kw245_1)" -"(let-values(((s_274)" -"(if(syntax?$1 s_272)(syntax-e$1 s_272) s_272)))" -"(if(pair? s_274)" +"(let-values(((s_575)" +"(if(syntax?$1 s_276)(syntax-e$1 s_276) s_276)))" +"(if(pair? s_575)" "(let-values(((_246_0)" -"(let-values(((s_276)(car s_274))) s_276))" +"(let-values(((s_576)(car s_575))) s_576))" "((_247_0 kw248_0)" -"(let-values(((s_277)(cdr s_274)))" -"(let-values(((s_278)" -"(if(syntax?$1 s_277)" -"(syntax-e$1 s_277)" -" s_277)))" -"(if(pair? s_278)" +"(let-values(((s_577)(cdr s_575)))" +"(let-values(((s_578)" +"(if(syntax?$1 s_577)" +"(syntax-e$1 s_577)" +" s_577)))" +"(if(pair? s_578)" "(let-values(((_249_0)" -"(let-values(((s_589)" -"(car s_278)))" -" s_589))" +"(let-values(((s_579)" +"(car s_578)))" +" s_579))" "((kw250_0)" -"(let-values(((s_590)" -"(cdr s_278)))" -"(let-values(((s_591)" +"(let-values(((s_277)" +"(cdr s_578)))" +"(let-values(((s_580)" "(if(syntax?$1" -" s_590)" +" s_277)" "(syntax-e$1" -" s_590)" -" s_590)))" -"(if(pair? s_591)" +" s_277)" +" s_277)))" +"(if(pair? s_580)" "(let-values(((kw251_0)" -"(let-values(((s_592)" +"(let-values(((s_581)" "(car" -" s_591)))" -" s_592))" +" s_580)))" +" s_581))" "(()" -"(let-values(((s_593)" +"(let-values(((s_278)" "(cdr" -" s_591)))" -"(let-values(((s_594)" +" s_580)))" +"(let-values(((s_582)" "(if(syntax?$1" -" s_593)" +" s_278)" "(syntax-e$1" -" s_593)" -" s_593)))" +" s_278)" +" s_278)))" "(if(null?" -" s_594)" +" s_582)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_52))))))" +" orig-s_50))))))" "(values kw251_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_52))))))" +" orig-s_50))))))" "(values _249_0 kw250_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_52))))))" +" orig-s_50))))))" "(values _246_0 _247_0 kw248_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_52)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_50)))))" "(values #t _243_1 _244_1 kw245_1))))))" -"(if(expand-context-to-parsed? ctx_86)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_557) datum234_0)" -"(let-values(((s252_0) s_557)((temp253_1)(list quote-syntax233_0 datum234_0 kw245_0)))" +"(if(expand-context-to-parsed? ctx_88)" +"(parsed-quote-syntax15.1(keep-properties-only~ s_543) datum234_0)" +"(let-values(((s252_0) s_543)((temp253_1)(list quote-syntax233_0 datum234_0 kw245_0)))" "(rebuild5.1 #f #f s252_0 temp253_1))))))" "(let-values()" -"(let-values(((datum-s_0)(remove-scopes datum239_0(expand-context-scopes ctx_86))))" -"(if(if(expand-context-to-parsed? ctx_86)(free-id-set-empty?(expand-context-stops ctx_86)) #f)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_557) datum-s_0)" -"(let-values(((s254_0) s_557)((temp255_0)(list quote-syntax238_0 datum-s_0)))" +"(let-values(((datum-s_0)(remove-scopes datum239_0(expand-context-scopes ctx_88))))" +"(if(if(expand-context-to-parsed? ctx_88)(free-id-set-empty?(expand-context-stops ctx_88)) #f)" +"(parsed-quote-syntax15.1(keep-properties-only~ s_543) datum-s_0)" +"(let-values(((s254_0) s_543)((temp255_0)(list quote-syntax238_0 datum-s_0)))" "(rebuild5.1 #f #f s254_0 temp255_0)))))))))))))" "(void" "(add-core-form!*" " 'if" -"(lambda(s_279 ctx_87)" +"(lambda(s_583 ctx_89)" "(let-values((()" "(begin" -"(let-values(((obs_105)(expand-context-observer ctx_87)))" -"(if obs_105(let-values()(let-values()(call-expand-observe obs_105 'prim-if)))(void)))" +"(let-values(((obs_110)(expand-context-observer ctx_89)))" +"(if obs_110(let-values()(let-values()(call-expand-observe obs_110 'prim-if)))(void)))" "(values))))" -"(let-values(((disarmed-s_13)(syntax-disarm$1 s_279)))" -"(let-values(((ok?_46 _256_0 _257_0 _258_0)" -"(let-values(((s_595) disarmed-s_13))" -"(if(let-values(((s_596)(if(syntax?$1 s_595)(syntax-e$1 s_595) s_595)))" -"(if(pair? s_596)" -"(if(let-values(((s_597)(car s_596))) #t)" -"(let-values(((s_289)(cdr s_596)))" -"(let-values(((s_598)(if(syntax?$1 s_289)(syntax-e$1 s_289) s_289)))" -"(if(pair? s_598)" -"(if(let-values(((s_599)(car s_598))) #t)" -"(let-values(((s_600)(cdr s_598)))" -"(let-values(((s_290)(if(syntax?$1 s_600)(syntax-e$1 s_600) s_600)))" -"(if(pair? s_290)" -"(if(let-values(((s_601)(car s_290))) #t)" -"(let-values(((s_602)(cdr s_290)))" -"(let-values(((s_291)" -"(if(syntax?$1 s_602)(syntax-e$1 s_602) s_602)))" -"(null? s_291)))" +"(let-values(((disarmed-s_13)(syntax-disarm$1 s_583)))" +"(let-values(((ok?_45 _256_0 _257_0 _258_0)" +"(let-values(((s_290) disarmed-s_13))" +"(if(let-values(((s_291)(if(syntax?$1 s_290)(syntax-e$1 s_290) s_290)))" +"(if(pair? s_291)" +"(if(let-values(((s_584)(car s_291))) #t)" +"(let-values(((s_585)(cdr s_291)))" +"(let-values(((s_586)(if(syntax?$1 s_585)(syntax-e$1 s_585) s_585)))" +"(if(pair? s_586)" +"(if(let-values(((s_587)(car s_586))) #t)" +"(let-values(((s_588)(cdr s_586)))" +"(let-values(((s_589)(if(syntax?$1 s_588)(syntax-e$1 s_588) s_588)))" +"(if(pair? s_589)" +"(if(let-values(((s_590)(car s_589))) #t)" +"(let-values(((s_591)(cdr s_589)))" +"(let-values(((s_592)" +"(if(syntax?$1 s_591)(syntax-e$1 s_591) s_591)))" +"(null? s_592)))" " #f)" " #f)))" " #f)" @@ -65506,37 +65781,37 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((_256_1 _257_1 _258_1)" -"(let-values(((s_603)(if(syntax?$1 s_595)(syntax-e$1 s_595) s_595)))" -"(let-values(((_259_0)(let-values(((s_604)(car s_603))) s_604))" +"(let-values(((s_593)(if(syntax?$1 s_290)(syntax-e$1 s_290) s_290)))" +"(let-values(((_259_0)(let-values(((s_292)(car s_593))) s_292))" "((_260_0 _261_0)" -"(let-values(((s_605)(cdr s_603)))" -"(let-values(((s_606)" -"(if(syntax?$1 s_605)" -"(syntax-e$1 s_605)" -" s_605)))" +"(let-values(((s_594)(cdr s_593)))" +"(let-values(((s_595)" +"(if(syntax?$1 s_594)" +"(syntax-e$1 s_594)" +" s_594)))" "(let-values(((_262_0)" -"(let-values(((s_607)(car s_606))) s_607))" +"(let-values(((s_293)(car s_595))) s_293))" "((_263_0)" -"(let-values(((s_608)(cdr s_606)))" -"(let-values(((s_609)" -"(if(syntax?$1 s_608)" -"(syntax-e$1 s_608)" -" s_608)))" +"(let-values(((s_596)(cdr s_595)))" +"(let-values(((s_597)" +"(if(syntax?$1 s_596)" +"(syntax-e$1 s_596)" +" s_596)))" "(let-values(((_264_0)" -"(let-values(((s_610)" -"(car" -" s_609)))" -" s_610))" -"(()" -"(let-values(((s_611)" -"(cdr" -" s_609)))" "(let-values(((s_294)" +"(car" +" s_597)))" +" s_294))" +"(()" +"(let-values(((s_295)" +"(cdr" +" s_597)))" +"(let-values(((s_296)" "(if(syntax?$1" -" s_611)" +" s_295)" "(syntax-e$1" -" s_611)" -" s_611)))" +" s_295)" +" s_295)))" "(values)))))" "(values _264_0))))))" "(values _262_0 _263_0))))))" @@ -65545,106 +65820,107 @@ static const char *startup_source = "(values #f #f #f #f)))))" "(let-values((()" "(begin" -"(if ok?_46" -" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_279))" +"(if ok?_45" +" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_583))" "(void))" "(values))))" -"(let-values(((ok?_47 if265_0 tst266_0 thn267_0 els268_0)" -"(let-values(((s_612) disarmed-s_13))" -"(let-values(((orig-s_53) s_612))" +"(let-values(((ok?_46 if265_0 tst266_0 thn267_0 els268_0)" +"(let-values(((s_598) disarmed-s_13))" +"(let-values(((orig-s_51) s_598))" "(let-values(((if265_1 tst266_1 thn267_1 els268_1)" -"(let-values(((s_613)(if(syntax?$1 s_612)(syntax-e$1 s_612) s_612)))" -"(if(pair? s_613)" -"(let-values(((if269_0)(let-values(((s_614)(car s_613))) s_614))" +"(let-values(((s_599)(if(syntax?$1 s_598)(syntax-e$1 s_598) s_598)))" +"(if(pair? s_599)" +"(let-values(((if269_0)(let-values(((s_600)(car s_599))) s_600))" "((tst270_0 thn271_0 els272_0)" -"(let-values(((s_615)(cdr s_613)))" -"(let-values(((s_299)" -"(if(syntax?$1 s_615)" -"(syntax-e$1 s_615)" -" s_615)))" -"(if(pair? s_299)" +"(let-values(((s_601)(cdr s_599)))" +"(let-values(((s_602)" +"(if(syntax?$1 s_601)" +"(syntax-e$1 s_601)" +" s_601)))" +"(if(pair? s_602)" "(let-values(((tst273_0)" -"(let-values(((s_616)(car s_299)))" -" s_616))" +"(let-values(((s_603)(car s_602)))" +" s_603))" "((thn274_0 els275_0)" -"(let-values(((s_617)(cdr s_299)))" -"(let-values(((s_618)" -"(if(syntax?$1 s_617)" -"(syntax-e$1 s_617)" -" s_617)))" -"(if(pair? s_618)" +"(let-values(((s_604)(cdr s_602)))" +"(let-values(((s_605)" +"(if(syntax?$1 s_604)" +"(syntax-e$1 s_604)" +" s_604)))" +"(if(pair? s_605)" "(let-values(((thn276_0)" -"(let-values(((s_619)" +"(let-values(((s_606)" "(car" -" s_618)))" -" s_619))" +" s_605)))" +" s_606))" "((els277_0)" -"(let-values(((s_620)" +"(let-values(((s_607)" "(cdr" -" s_618)))" -"(let-values(((s_621)" +" s_605)))" +"(let-values(((s_608)" "(if(syntax?$1" -" s_620)" +" s_607)" "(syntax-e$1" -" s_620)" -" s_620)))" +" s_607)" +" s_607)))" "(if(pair?" -" s_621)" +" s_608)" "(let-values(((els278_0)" -"(let-values(((s_622)" +"(let-values(((s_609)" "(car" -" s_621)))" -" s_622))" +" s_608)))" +" s_609))" "(()" -"(let-values(((s_623)" +"(let-values(((s_610)" "(cdr" -" s_621)))" -"(let-values(((s_624)" +" s_608)))" +"(let-values(((s_611)" "(if(syntax?$1" -" s_623)" +" s_610)" "(syntax-e$1" -" s_623)" -" s_623)))" +" s_610)" +" s_610)))" "(if(null?" -" s_624)" +" s_611)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_53))))))" +" orig-s_51))))))" "(values" " els278_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_53))))))" +" orig-s_51))))))" "(values thn276_0 els277_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_53))))))" +" orig-s_51))))))" "(values tst273_0 thn274_0 els275_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_53))))))" +" orig-s_51))))))" "(values if269_0 tst270_0 thn271_0 els272_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_53)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_51)))))" "(values #t if265_1 tst266_1 thn267_1 els268_1))))))" -"(let-values(((expr-ctx_2)(as-expression-context ctx_87)))" +"(let-values(((expr-ctx_2)(as-expression-context ctx_89)))" "(let-values(((tail-ctx_0)" -"(let-values(((ctx280_0) ctx_87))(as-tail-context23.1 ctx280_0 expr-ctx_2))))" +"(let-values(((expr-ctx279_0) expr-ctx_2)((ctx280_0) ctx_89))" +"(as-tail-context23.1 ctx280_0 expr-ctx279_0))))" "(let-values(((rebuild-s_9)" -"(let-values(((ctx281_0) ctx_87)((s282_0) s_279))" +"(let-values(((ctx281_0) ctx_89)((s282_0) s_583))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx281_0 s282_0))))" "(let-values(((exp-tst_0)" "(let-values(((temp283_0) tst266_0)((expr-ctx284_0) expr-ctx_2))" "(expand7.1 #f #f #f #f temp283_0 expr-ctx284_0))))" "(let-values((()" "(begin" -"(let-values(((obs_106)(expand-context-observer ctx_87)))" -"(if obs_106" -"(let-values()(let-values()(call-expand-observe obs_106 'next)))" +"(let-values(((obs_111)(expand-context-observer ctx_89)))" +"(if obs_111" +"(let-values()(let-values()(call-expand-observe obs_111 'next)))" "(void)))" "(values))))" "(let-values(((exp-thn_0)" @@ -65652,15 +65928,15 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp285_0 tail-ctx286_0))))" "(let-values((()" "(begin" -"(let-values(((obs_107)(expand-context-observer ctx_87)))" -"(if obs_107" -"(let-values()(let-values()(call-expand-observe obs_107 'next)))" +"(let-values(((obs_112)(expand-context-observer ctx_89)))" +"(if obs_112" +"(let-values()(let-values()(call-expand-observe obs_112 'next)))" "(void)))" "(values))))" "(let-values(((exp-els_0)" "(let-values(((temp287_0) els268_0)((tail-ctx288_0) tail-ctx_0))" "(expand7.1 #f #f #f #f temp287_0 tail-ctx288_0))))" -"(if(expand-context-to-parsed? ctx_87)" +"(if(expand-context-to-parsed? ctx_89)" "(parsed-if8.1 rebuild-s_9 exp-tst_0 exp-thn_0 exp-els_0)" "(let-values(((rebuild-s289_0) rebuild-s_9)" "((temp290_0)(list if265_0 exp-tst_0 exp-thn_0 exp-els_0)))" @@ -65668,106 +65944,106 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'with-continuation-mark" -"(lambda(s_625 ctx_88)" +"(lambda(s_612 ctx_90)" "(let-values((()" "(begin" -"(let-values(((obs_108)(expand-context-observer ctx_88)))" -"(if obs_108" -"(let-values()(let-values()(call-expand-observe obs_108 'prim-with-continuation-mark)))" +"(let-values(((obs_113)(expand-context-observer ctx_90)))" +"(if obs_113" +"(let-values()(let-values()(call-expand-observe obs_113 'prim-with-continuation-mark)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_14)(syntax-disarm$1 s_625)))" -"(let-values(((ok?_48 with-continuation-mark291_0 key292_0 val293_0 body294_0)" -"(let-values(((s_626) disarmed-s_14))" -"(let-values(((orig-s_54) s_626))" +"(let-values(((disarmed-s_14)(syntax-disarm$1 s_612)))" +"(let-values(((ok?_47 with-continuation-mark291_0 key292_0 val293_0 body294_0)" +"(let-values(((s_613) disarmed-s_14))" +"(let-values(((orig-s_52) s_613))" "(let-values(((with-continuation-mark291_1 key292_1 val293_1 body294_1)" -"(let-values(((s_627)(if(syntax?$1 s_626)(syntax-e$1 s_626) s_626)))" -"(if(pair? s_627)" +"(let-values(((s_614)(if(syntax?$1 s_613)(syntax-e$1 s_613) s_613)))" +"(if(pair? s_614)" "(let-values(((with-continuation-mark295_0)" -"(let-values(((s_628)(car s_627))) s_628))" +"(let-values(((s_615)(car s_614))) s_615))" "((key296_0 val297_0 body298_0)" -"(let-values(((s_629)(cdr s_627)))" -"(let-values(((s_630)" -"(if(syntax?$1 s_629)" -"(syntax-e$1 s_629)" -" s_629)))" -"(if(pair? s_630)" +"(let-values(((s_616)(cdr s_614)))" +"(let-values(((s_617)" +"(if(syntax?$1 s_616)" +"(syntax-e$1 s_616)" +" s_616)))" +"(if(pair? s_617)" "(let-values(((key299_0)" -"(let-values(((s_631)(car s_630)))" -" s_631))" +"(let-values(((s_618)(car s_617)))" +" s_618))" "((val300_0 body301_0)" -"(let-values(((s_632)(cdr s_630)))" -"(let-values(((s_633)" -"(if(syntax?$1 s_632)" -"(syntax-e$1 s_632)" -" s_632)))" -"(if(pair? s_633)" +"(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(((val302_0)" -"(let-values(((s_634)" +"(let-values(((s_621)" "(car" -" s_633)))" -" s_634))" +" s_620)))" +" s_621))" "((body303_0)" -"(let-values(((s_635)" +"(let-values(((s_622)" "(cdr" -" s_633)))" -"(let-values(((s_636)" +" s_620)))" +"(let-values(((s_623)" "(if(syntax?$1" -" s_635)" +" s_622)" "(syntax-e$1" -" s_635)" -" s_635)))" -"(if(pair? s_636)" +" s_622)" +" s_622)))" +"(if(pair? s_623)" "(let-values(((body304_0)" -"(let-values(((s_637)" +"(let-values(((s_624)" "(car" -" s_636)))" -" s_637))" +" s_623)))" +" s_624))" "(()" -"(let-values(((s_638)" +"(let-values(((s_625)" "(cdr" -" s_636)))" -"(let-values(((s_639)" +" s_623)))" +"(let-values(((s_626)" "(if(syntax?$1" -" s_638)" +" s_625)" "(syntax-e$1" -" s_638)" -" s_638)))" +" s_625)" +" s_625)))" "(if(null?" -" s_639)" +" s_626)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_54))))))" +" orig-s_52))))))" "(values" " body304_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_54))))))" +" orig-s_52))))))" "(values val302_0 body303_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_54))))))" +" orig-s_52))))))" "(values key299_0 val300_0 body301_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_54))))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_52))))))" "(values with-continuation-mark295_0 key296_0 val297_0 body298_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_54)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_52)))))" "(values #t with-continuation-mark291_1 key292_1 val293_1 body294_1))))))" -"(let-values(((expr-ctx_3)(as-expression-context ctx_88)))" +"(let-values(((expr-ctx_3)(as-expression-context ctx_90)))" "(let-values(((rebuild-s_10)" -"(let-values(((ctx305_0) ctx_88)((s306_0) s_625))" +"(let-values(((ctx305_0) ctx_90)((s306_0) s_612))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx305_0 s306_0))))" "(let-values(((exp-key_0)" "(let-values(((temp307_0) key292_0)((expr-ctx308_0) expr-ctx_3))" "(expand7.1 #f #f #f #f temp307_0 expr-ctx308_0))))" "(let-values((()" "(begin" -"(let-values(((obs_109)(expand-context-observer ctx_88)))" -"(if obs_109" -"(let-values()(let-values()(call-expand-observe obs_109 'next)))" +"(let-values(((obs_114)(expand-context-observer ctx_90)))" +"(if obs_114" +"(let-values()(let-values()(call-expand-observe obs_114 'next)))" "(void)))" "(values))))" "(let-values(((exp-val_0)" @@ -65775,18 +66051,18 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp309_0 expr-ctx310_0))))" "(let-values((()" "(begin" -"(let-values(((obs_110)(expand-context-observer ctx_88)))" -"(if obs_110" -"(let-values()(let-values()(call-expand-observe obs_110 'next)))" +"(let-values(((obs_115)(expand-context-observer ctx_90)))" +"(if obs_115" +"(let-values()(let-values()(call-expand-observe obs_115 'next)))" "(void)))" "(values))))" "(let-values(((exp-body_6)" "(let-values(((temp311_0) body294_0)" "((temp312_0)" -"(let-values(((ctx314_0) ctx_88))" -"(as-tail-context23.1 ctx314_0 expr-ctx_3))))" +"(let-values(((expr-ctx313_0) expr-ctx_3)((ctx314_0) ctx_90))" +"(as-tail-context23.1 ctx314_0 expr-ctx313_0))))" "(expand7.1 #f #f #f #f temp311_0 temp312_0))))" -"(if(expand-context-to-parsed? ctx_88)" +"(if(expand-context-to-parsed? ctx_90)" "(parsed-with-continuation-mark10.1 rebuild-s_10 exp-key_0 exp-val_0 exp-body_6)" "(let-values(((rebuild-s315_0) rebuild-s_10)" "((temp316_0)(list with-continuation-mark291_0 exp-key_0 exp-val_0 exp-body_6)))" @@ -65801,74 +66077,74 @@ static const char *startup_source = "(let-values(((list-start-index_0) list-start-index14_0))" "(let-values(((last-is-tail?_0) last-is-tail?15_0))" "(let-values()" -"(lambda(s_640 ctx_89)" +"(lambda(s_627 ctx_91)" "(let-values((()" "(begin" -"(let-values(((obs_111)(expand-context-observer ctx_89)))" -"(if obs_111" -"(let-values()(let-values()(call-expand-observe obs_111 log-tag_1)))" +"(let-values(((obs_116)(expand-context-observer ctx_91)))" +"(if obs_116" +"(let-values()(let-values()(call-expand-observe obs_116 log-tag_1)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_15)(syntax-disarm$1 s_640)))" -"(let-values(((ok?_49 begin317_0 e318_0)" -"(let-values(((s_641) disarmed-s_15))" -"(let-values(((orig-s_55) s_641))" +"(let-values(((disarmed-s_15)(syntax-disarm$1 s_627)))" +"(let-values(((ok?_48 begin317_0 e318_0)" +"(let-values(((s_628) disarmed-s_15))" +"(let-values(((orig-s_53) s_628))" "(let-values(((begin317_1 e318_1)" -"(let-values(((s_642)" -"(if(syntax?$1 s_641)(syntax-e$1 s_641) s_641)))" -"(if(pair? s_642)" +"(let-values(((s_629)" +"(if(syntax?$1 s_628)(syntax-e$1 s_628) s_628)))" +"(if(pair? s_629)" "(let-values(((begin319_0)" -"(let-values(((s_643)(car s_642))) s_643))" +"(let-values(((s_630)(car s_629))) s_630))" "((e320_0)" -"(let-values(((s_644)(cdr s_642)))" -"(let-values(((s_645)" -"(if(syntax?$1 s_644)" -"(syntax-e$1 s_644)" -" s_644)))" +"(let-values(((s_631)(cdr s_629)))" +"(let-values(((s_632)" +"(if(syntax?$1 s_631)" +"(syntax-e$1 s_631)" +" s_631)))" "(let-values(((flat-s_41)" -"(to-syntax-list.1 s_645)))" +"(to-syntax-list.1 s_632)))" "(if(not flat-s_41)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_55))" +" orig-s_53))" "(if(null? flat-s_41)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_55))" +" orig-s_53))" "(let-values() flat-s_41))))))))" "(values begin319_0 e320_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_55)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_53)))))" "(values #t begin317_1 e318_1))))))" "(let-values(((expr-ctx_4)" "(if last-is-tail?_0" -"(as-begin-expression-context ctx_89)" -"(as-expression-context ctx_89))))" +"(as-begin-expression-context ctx_91)" +"(as-expression-context ctx_91))))" "(let-values(((rebuild-s_11)" -"(let-values(((ctx321_0) ctx_89)((s322_0) s_640))" +"(let-values(((ctx321_0) ctx_91)((s322_0) s_627))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx321_0 s322_0))))" "(let-values(((exp-es_2)" -"((letrec-values(((loop_130)" +"((letrec-values(((loop_123)" "(lambda(es_5 index_6)" "(begin" " 'loop" "(begin" "(if(zero? index_6)" "(let-values()" -"(let-values(((obs_112)" -"(expand-context-observer ctx_89)))" -"(if obs_112" +"(let-values(((obs_117)" +"(expand-context-observer ctx_91)))" +"(if obs_117" "(let-values()" "(begin" "(if(zero? list-start-index_0)" "(void)" "(let-values()" -"(call-expand-observe obs_112 'next)))" +"(call-expand-observe obs_117 'next)))" "(call-expand-observe" -" obs_112" +" obs_117" " 'enter-list" "(datum->syntax$1 #f es_5 rebuild-s_11))))" "(void))))" @@ -65878,13 +66154,13 @@ static const char *startup_source = "(let-values()" "(let-values(((rest-es_1)(cdr es_5)))" "(begin" -"(let-values(((obs_113)" +"(let-values(((obs_118)" "(expand-context-observer" -" ctx_89)))" -"(if obs_113" +" ctx_91)))" +"(if obs_118" "(let-values()" "(let-values()" -"(call-expand-observe obs_113 'next)))" +"(call-expand-observe obs_118 'next)))" "(void)))" "(cons" "(let-values(((temp323_0)(car es_5))" @@ -65892,11 +66168,13 @@ static const char *startup_source = "(if(if last-is-tail?_0" "(null? rest-es_1)" " #f)" -"(let-values(((ctx326_0)" -" ctx_89))" +"(let-values(((expr-ctx325_0)" +" expr-ctx_4)" +"((ctx326_0)" +" ctx_91))" "(as-tail-context23.1" " ctx326_0" -" expr-ctx_4))" +" expr-ctx325_0))" " expr-ctx_4)))" "(expand7.1" " #f" @@ -65905,21 +66183,21 @@ static const char *startup_source = " #f" " temp323_0" " temp324_0))" -"(loop_130 rest-es_1(sub1 index_6))))))))))))" -" loop_130)" +"(loop_123 rest-es_1(sub1 index_6))))))))))))" +" loop_123)" " e318_0" " list-start-index_0)))" "(begin" -"(let-values(((obs_114)(expand-context-observer ctx_89)))" -"(if obs_114" +"(let-values(((obs_119)(expand-context-observer ctx_91)))" +"(if obs_119" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_114" +" obs_119" " 'exit-list" "(datum->syntax$1 #f(list-tail exp-es_2 list-start-index_0) rebuild-s_11))))" "(void)))" -"(if(expand-context-to-parsed? ctx_89)" +"(if(expand-context-to-parsed? ctx_91)" "(parsed-begin_0 rebuild-s_11 exp-es_2)" "(let-values(((rebuild-s327_0) rebuild-s_11)((temp328_0)(cons begin317_0 exp-es_2)))" "(rebuild5.1 #f #f rebuild-s327_0 temp328_0)))))))))))))))))))" @@ -65932,39 +66210,39 @@ static const char *startup_source = "((temp331_0) 0)" "((temp332_1) #t))" "(make-begin20.1 temp332_1 temp331_0 temp329_0 parsed-begin330_0))))" -"(lambda(s_646 ctx_90)" -"(let-values(((context_24)(expand-context-context ctx_90)))" -"(if(let-values(((or-part_379)(eq? context_24 'top-level)))" -"(if or-part_379 or-part_379(eq? context_24 'module)))" +"(lambda(s_633 ctx_92)" +"(let-values(((context_24)(expand-context-context ctx_92)))" +"(if(let-values(((or-part_377)(eq? context_24 'top-level)))" +"(if or-part_377 or-part_377(eq? context_24 'module)))" "(let-values()" -"(let-values(((disarmed-s_16)(syntax-disarm$1 s_646)))" -"(let-values(((ok?_50 begin333_0)" -"(let-values(((s_647) disarmed-s_16))" -"(if(let-values(((s_648)(if(syntax?$1 s_647)(syntax-e$1 s_647) s_647)))" -"(if(pair? s_648)" -"(if(let-values(((s_649)(car s_648))) #t)" -"(let-values(((s_650)(cdr s_648)))" -"(let-values(((s_651)(if(syntax?$1 s_650)(syntax-e$1 s_650) s_650)))" -"(null? s_651)))" +"(let-values(((disarmed-s_16)(syntax-disarm$1 s_633)))" +"(let-values(((ok?_49 begin333_0)" +"(let-values(((s_634) disarmed-s_16))" +"(if(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)))" " #f)" " #f))" "(let-values()" "(let-values(((begin333_1)" -"(let-values(((s_652)(if(syntax?$1 s_647)(syntax-e$1 s_647) s_647)))" +"(let-values(((s_639)(if(syntax?$1 s_634)(syntax-e$1 s_634) s_634)))" "(let-values(((begin334_0)" -"(let-values(((s_653)(car s_652))) s_653))" +"(let-values(((s_640)(car s_639))) s_640))" "(()" -"(let-values(((s_654)(cdr s_652)))" -"(let-values(((s_655)" -"(if(syntax?$1 s_654)" -"(syntax-e$1 s_654)" -" s_654)))" +"(let-values(((s_641)(cdr s_639)))" +"(let-values(((s_642)" +"(if(syntax?$1 s_641)" +"(syntax-e$1 s_641)" +" s_641)))" "(values)))))" "(values begin334_0)))))" "(values #t begin333_1)))" "(values #f #f)))))" -"(if ok?_50 s_646(nonempty-begin_0 s_646 ctx_90)))))" -"(let-values()(nonempty-begin_0 s_646 ctx_90))))))))" +"(if ok?_49 s_633(nonempty-begin_0 s_633 ctx_92)))))" +"(let-values()(nonempty-begin_0 s_633 ctx_92))))))))" "(void" "(add-core-form!*" " 'begin0" @@ -65972,15 +66250,15 @@ static const char *startup_source = "(make-begin20.1 temp338_0 temp337_0 temp335_0 parsed-begin0336_0))))" "(define-values" "(register-eventual-variable!?)" -"(lambda(id_119 ctx_91)" +"(lambda(id_124 ctx_93)" "(begin" -"(if(if(expand-context-need-eventually-defined ctx_91)(>=(expand-context-phase ctx_91) 1) #f)" +"(if(if(expand-context-need-eventually-defined ctx_93)(>=(expand-context-phase ctx_93) 1) #f)" "(let-values()" "(begin" "(hash-update!" -"(expand-context-need-eventually-defined ctx_91)" -"(expand-context-phase ctx_91)" -"(lambda(l_83)(cons id_119 l_83))" +"(expand-context-need-eventually-defined ctx_93)" +"(expand-context-phase ctx_93)" +"(lambda(l_82)(cons id_124 l_82))" " null)" " #t))" "(let-values() #f)))))" @@ -65991,67 +66269,68 @@ static const char *startup_source = "(lambda(s341_0 ctx342_0 implicit-omitted?339_0 implicit-omitted?340_0)" "(begin" " 'core343" -"(let-values(((s_656) s341_0))" -"(let-values(((ctx_92) ctx342_0))" +"(let-values(((s_643) s341_0))" +"(let-values(((ctx_94) ctx342_0))" "(let-values(((implicit-omitted?_0)(if implicit-omitted?340_0 implicit-omitted?339_0 #f)))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_115)(expand-context-observer ctx_92)))" -"(if obs_115" +"(let-values(((obs_120)(expand-context-observer ctx_94)))" +"(if obs_120" "(let-values()" -"(let-values()(call-expand-observe obs_115 'prim-#%top)))" +"(let-values()(call-expand-observe obs_120 'prim-#%top)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_17)(syntax-disarm$1 s_656)))" -"(let-values(((id_120)" +"(let-values(((disarmed-s_17)(syntax-disarm$1 s_643)))" +"(let-values(((id_125)" "(if implicit-omitted?_0" -"(let-values() s_656)" +"(let-values() s_643)" "(let-values()" -"(let-values(((ok?_51 #%top345_0 id346_0)" -"(let-values(((s_657) disarmed-s_17))" -"(let-values(((orig-s_56) s_657))" +"(let-values(((ok?_50 #%top345_0 id346_0)" +"(let-values(((s_644) disarmed-s_17))" +"(let-values(((orig-s_54) s_644))" "(let-values(((#%top345_1 id346_1)" -"(let-values(((s_658)" -"(if(syntax?$1 s_657)" -"(syntax-e$1 s_657)" -" s_657)))" -"(if(pair? s_658)" +"(let-values(((s_645)" +"(if(syntax?$1 s_644)" +"(syntax-e$1 s_644)" +" s_644)))" +"(if(pair? s_645)" "(let-values(((#%top347_0)" -"(let-values(((s_659)" +"(let-values(((s_646)" "(car" -" s_658)))" -" s_659))" +" s_645)))" +" s_646))" "((id348_0)" -"(let-values(((s_660)" +"(let-values(((s_647)" "(cdr" -" s_658)))" -"(if(let-values(((or-part_380)" +" s_645)))" +"(if(let-values(((or-part_378)" "(if(syntax?$1" -" s_660)" +" s_647)" "(symbol?" "(syntax-e$1" -" s_660))" +" s_647))" " #f)))" -"(if or-part_380" -" or-part_380" +"(if or-part_378" +" or-part_378" "(symbol?" -" s_660)))" -" s_660" +" s_647)))" +" s_647" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_56" -" s_660)))))" +" orig-s_54" +" s_647)))))" "(values #%top347_0 id348_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_56)))))" +" orig-s_54)))))" "(values #t #%top345_1 id346_1))))))" " id346_0)))))" -"(let-values(((b_90)" -"(let-values(((temp350_0)(expand-context-phase ctx_92))" +"(let-values(((b_89)" +"(let-values(((id349_0) id_125)" +"((temp350_0)(expand-context-phase ctx_94))" "((temp351_0) 'ambiguous))" "(resolve+shift30.1" " temp351_0" @@ -66064,45 +66343,45 @@ static const char *startup_source = " #f" " #f" " #f" -" id_120" +" id349_0" " temp350_0))))" -"(if(eq? b_90 'ambiguous)" -"(let-values()(raise-ambiguous-error id_120 ctx_92))" -"(if(if b_90" -"(if(module-binding? b_90)" -"(eq?(module-binding-module b_90)(root-expand-context-self-mpi ctx_92))" +"(if(eq? b_89 'ambiguous)" +"(let-values()(raise-ambiguous-error id_125 ctx_94))" +"(if(if b_89" +"(if(module-binding? b_89)" +"(eq?(module-binding-module b_89)(root-expand-context-self-mpi ctx_94))" " #f)" " #f)" "(let-values()" -"(if(expand-context-to-parsed? ctx_92)" -"(parsed-id2.1 id_120 b_90 #f)" -"(if(top-level-module-path-index?(module-binding-module b_90))" -"(let-values() s_656)" -"(let-values() id_120))))" -"(if(register-eventual-variable!? id_120 ctx_92)" +"(if(expand-context-to-parsed? ctx_94)" +"(parsed-id2.1 id_125 b_89 #f)" +"(if(top-level-module-path-index?(module-binding-module b_89))" +"(let-values() s_643)" +"(let-values() id_125))))" +"(if(register-eventual-variable!? id_125 ctx_94)" "(let-values()" -"(if(expand-context-to-parsed? ctx_92)" -"(parsed-id2.1 id_120 b_90 #f)" -" id_120))" +"(if(expand-context-to-parsed? ctx_94)" +"(parsed-id2.1 id_125 b_89 #f)" +" id_125))" "(let-values()" -"(if(not(expand-context-allow-unbound? ctx_92))" +"(if(not(expand-context-allow-unbound? ctx_94))" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" id_120" +" id_125" " #f" " null" -"(syntax-debug-info-string id_120 ctx_92)))" +"(syntax-debug-info-string id_125 ctx_94)))" "(let-values()" "(let-values(((tl-id_1)" "(add-scope" -" id_120" -"(root-expand-context-top-level-bind-scope ctx_92))))" +" id_125" +"(root-expand-context-top-level-bind-scope ctx_94))))" "(let-values(((tl-b_1)" "(let-values(((tl-id352_0) tl-id_1)" "((temp353_0)" -"(expand-context-phase ctx_92)))" +"(expand-context-phase ctx_94)))" "(resolve33.1" " #f" " #f" @@ -66116,152 +66395,153 @@ static const char *startup_source = " temp353_0))))" "(if tl-b_1" "(let-values()" -"(if(expand-context-to-parsed? ctx_92)" +"(if(expand-context-to-parsed? ctx_94)" "(parsed-top-id4.1 tl-id_1 tl-b_1 #f)" "(if implicit-omitted?_0" -"(let-values() id_120)" +"(let-values() id_125)" "(let-values()" -"(let-values(((ok?_52 #%top354_0 id355_0)" -"(let-values(((s_661) disarmed-s_17))" -"(let-values(((orig-s_57) s_661))" +"(let-values(((ok?_51 #%top354_0 id355_0)" +"(let-values(((s_648) disarmed-s_17))" +"(let-values(((orig-s_55) s_648))" "(let-values(((#%top354_1 id355_1)" -"(let-values(((s_662)" +"(let-values(((s_649)" "(if(syntax?$1" -" s_661)" +" s_648)" "(syntax-e$1" -" s_661)" -" s_661)))" -"(if(pair? s_662)" +" s_648)" +" s_648)))" +"(if(pair? s_649)" "(let-values(((#%top356_0)" -"(let-values(((s_663)" +"(let-values(((s_650)" "(car" -" s_662)))" -" s_663))" +" s_649)))" +" s_650))" "((id357_0)" -"(let-values(((s_664)" +"(let-values(((s_651)" "(cdr" -" s_662)))" -"(if(let-values(((or-part_381)" +" s_649)))" +"(if(let-values(((or-part_379)" "(if(syntax?$1" -" s_664)" +" s_651)" "(symbol?" "(syntax-e$1" -" s_664))" +" s_651))" " #f)))" -"(if or-part_381" -" or-part_381" +"(if or-part_379" +" or-part_379" "(symbol?" -" s_664)))" -" s_664" +" s_651)))" +" s_651" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_57" -" s_664)))))" +" orig-s_55" +" s_651)))))" "(values" " #%top356_0" " id357_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_57)))))" +" orig-s_55)))))" "(values #t #%top354_1 id355_1))))))" -"(let-values(((s358_0) s_656)" -"((temp359_0)(cons #%top354_0 id_120)))" +"(let-values(((s358_0) s_643)" +"((temp359_0)(cons #%top354_0 id_125)))" "(rebuild5.1 #f #f s358_0 temp359_0)))))))" "(let-values()" -"(if(expand-context-to-parsed? ctx_92)" -"(parsed-top-id4.1 id_120 b_90 #f)" -" s_656)))))))))))))))))))))))" +"(if(expand-context-to-parsed? ctx_94)" +"(parsed-top-id4.1 id_125 b_89 #f)" +" s_643)))))))))))))))))))))))" "(case-lambda" -"((s_665 ctx_93)(core343_0 s_665 ctx_93 #f #f))" -"((s_666 ctx_94 implicit-omitted?339_1)(core343_0 s_666 ctx_94 implicit-omitted?339_1 #t))))))" +"((s_652 ctx_95)(core343_0 s_652 ctx_95 #f #f))" +"((s_653 ctx_96 implicit-omitted?339_1)(core343_0 s_653 ctx_96 implicit-omitted?339_1 #t))))))" "(void" "(add-core-form!*" " 'set!" -"(lambda(s_667 ctx_95)" +"(lambda(s_654 ctx_97)" "(let-values((()" "(begin" -"(let-values(((obs_116)(expand-context-observer ctx_95)))" -"(if obs_116(let-values()(let-values()(call-expand-observe obs_116 'prim-set!)))(void)))" +"(let-values(((obs_121)(expand-context-observer ctx_97)))" +"(if obs_121(let-values()(let-values()(call-expand-observe obs_121 'prim-set!)))(void)))" "(values))))" -"(let-values(((disarmed-s_18)(syntax-disarm$1 s_667)))" -"(let-values(((ok?_53 set!360_0 id361_0 rhs362_0)" -"(let-values(((s_668) disarmed-s_18))" -"(let-values(((orig-s_58) s_668))" +"(let-values(((disarmed-s_18)(syntax-disarm$1 s_654)))" +"(let-values(((ok?_52 set!360_0 id361_0 rhs362_0)" +"(let-values(((s_655) disarmed-s_18))" +"(let-values(((orig-s_56) s_655))" "(let-values(((set!360_1 id361_1 rhs362_1)" -"(let-values(((s_669)(if(syntax?$1 s_668)(syntax-e$1 s_668) s_668)))" -"(if(pair? s_669)" -"(let-values(((set!363_0)(let-values(((s_670)(car s_669))) s_670))" +"(let-values(((s_656)(if(syntax?$1 s_655)(syntax-e$1 s_655) s_655)))" +"(if(pair? s_656)" +"(let-values(((set!363_0)(let-values(((s_657)(car s_656))) s_657))" "((id364_0 rhs365_0)" -"(let-values(((s_671)(cdr s_669)))" -"(let-values(((s_672)" -"(if(syntax?$1 s_671)" -"(syntax-e$1 s_671)" -" s_671)))" -"(if(pair? s_672)" +"(let-values(((s_658)(cdr s_656)))" +"(let-values(((s_659)" +"(if(syntax?$1 s_658)" +"(syntax-e$1 s_658)" +" s_658)))" +"(if(pair? s_659)" "(let-values(((id366_0)" -"(let-values(((s_673)(car s_672)))" -"(if(let-values(((or-part_382)" -"(if(syntax?$1 s_673)" +"(let-values(((s_660)(car s_659)))" +"(if(let-values(((or-part_380)" +"(if(syntax?$1 s_660)" "(symbol?" "(syntax-e$1" -" s_673))" +" s_660))" " #f)))" -"(if or-part_382" -" or-part_382" -"(symbol? s_673)))" -" s_673" +"(if or-part_380" +" or-part_380" +"(symbol? s_660)))" +" s_660" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_58" -" s_673))))" +" orig-s_56" +" s_660))))" "((rhs367_0)" -"(let-values(((s_674)(cdr s_672)))" -"(let-values(((s_675)" -"(if(syntax?$1 s_674)" -"(syntax-e$1 s_674)" -" s_674)))" -"(if(pair? s_675)" +"(let-values(((s_661)(cdr s_659)))" +"(let-values(((s_662)" +"(if(syntax?$1 s_661)" +"(syntax-e$1 s_661)" +" s_661)))" +"(if(pair? s_662)" "(let-values(((rhs368_0)" -"(let-values(((s_676)" +"(let-values(((s_663)" "(car" -" s_675)))" -" s_676))" +" s_662)))" +" s_663))" "(()" -"(let-values(((s_677)" +"(let-values(((s_664)" "(cdr" -" s_675)))" -"(let-values(((s_678)" +" s_662)))" +"(let-values(((s_665)" "(if(syntax?$1" -" s_677)" +" s_664)" "(syntax-e$1" -" s_677)" -" s_677)))" -"(if(null? s_678)" +" s_664)" +" s_664)))" +"(if(null? s_665)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_58))))))" +" orig-s_56))))))" "(values rhs368_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_58))))))" +" orig-s_56))))))" "(values id366_0 rhs367_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_58))))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_56))))))" "(values set!363_0 id364_0 rhs365_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_58)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_56)))))" "(values #t set!360_1 id361_1 rhs362_1))))))" -"(let-values(((id_121) id361_0))" +"(let-values(((id_126) id361_0))" "((letrec-values(((rename-loop_0)" -"(lambda(id_122 from-rename?_0)" +"(lambda(id_127 from-rename?_0)" "(begin" " 'rename-loop" -"(let-values(((binding_29)" -"(let-values(((temp370_0)(expand-context-phase ctx_95))" +"(let-values(((binding_31)" +"(let-values(((id369_0) id_127)" +"((temp370_0)(expand-context-phase ctx_97))" "((temp371_0) 'ambiguous)" "((temp372_0) #t))" "(resolve+shift30.1" @@ -66275,70 +66555,70 @@ static const char *startup_source = " #t" " #f" " #f" -" id_122" +" id369_0" " temp370_0))))" "(let-values((()" "(begin" -"(if(eq? binding_29 'ambiguous)" -"(let-values()(raise-ambiguous-error id_122 ctx_95))" +"(if(eq? binding_31 'ambiguous)" +"(let-values()(raise-ambiguous-error id_127 ctx_97))" "(void))" "(values))))" -"(let-values(((t_57 primitive?_11 insp_23 protected?_12)" -"(if binding_29" -"(let-values(((binding373_0) binding_29)" -"((ctx374_0) ctx_95)" -"((s375_0) s_667))" +"(let-values(((t_57 primitive?_11 insp_24 protected?_12)" +"(if binding_31" +"(let-values(((binding373_0) binding_31)" +"((ctx374_0) ctx_97)" +"((s375_0) s_654))" "(lookup17.1 #f #f #f #f binding373_0 ctx374_0 s375_0))" "(values #f #f #f #f))))" "(begin" -"(let-values(((obs_117)(expand-context-observer ctx_95)))" -"(if obs_117" +"(let-values(((obs_122)(expand-context-observer ctx_97)))" +"(if obs_122" "(let-values()" -"(let-values()(call-expand-observe obs_117 'resolve id_122)))" +"(let-values()(call-expand-observe obs_122 'resolve id_127)))" "(void)))" -"(if(let-values(((or-part_383)(variable? t_57)))" -"(if or-part_383" -" or-part_383" -"(if(not binding_29)" -"(let-values(((or-part_384)" -"(register-eventual-variable!? id_122 ctx_95)))" -"(if or-part_384" -" or-part_384" -"(expand-context-allow-unbound? ctx_95)))" +"(if(let-values(((or-part_381)(variable? t_57)))" +"(if or-part_381" +" or-part_381" +"(if(not binding_31)" +"(let-values(((or-part_382)" +"(register-eventual-variable!? id_127 ctx_97)))" +"(if or-part_382" +" or-part_382" +"(expand-context-allow-unbound? ctx_97)))" " #f)))" "(let-values()" "(let-values((()" "(begin" -"(if(if(module-binding? binding_29)" +"(if(if(module-binding? binding_31)" "(not" "(eq?" -"(module-binding-module binding_29)" -"(root-expand-context-self-mpi ctx_95)))" +"(module-binding-module binding_31)" +"(root-expand-context-self-mpi ctx_97)))" " #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate module-required identifier\"" -" s_667" -" id_122))" +" s_654" +" id_127))" "(void))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_118)" -"(expand-context-observer ctx_95)))" -"(if obs_118" +"(let-values(((obs_123)" +"(expand-context-observer ctx_97)))" +"(if obs_123" "(let-values()" "(let-values()" -"(call-expand-observe obs_118 'next)))" +"(call-expand-observe obs_123 'next)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(register-variable-referenced-if-local! binding_29)" +"(register-variable-referenced-if-local! binding_31)" "(values))))" "(let-values(((rebuild-s_12)" -"(let-values(((ctx376_0) ctx_95)((s377_0) s_667))" +"(let-values(((ctx376_0) ctx_97)((s377_0) s_654))" "(keep-as-needed74.1" " #f" " #f" @@ -66348,219 +66628,221 @@ static const char *startup_source = " #f" " ctx376_0" " s377_0))))" -"(let-values(((exp-rhs_5)" +"(let-values(((exp-rhs_4)" "(let-values(((temp378_0) rhs362_0)" "((temp379_0)" -"(as-expression-context ctx_95)))" +"(as-expression-context ctx_97)))" "(expand7.1 #f #f #f #f temp378_0 temp379_0))))" -"(if(expand-context-to-parsed? ctx_95)" +"(if(expand-context-to-parsed? ctx_97)" "(parsed-set!9.1" " rebuild-s_12" -"(parsed-id2.1 id_122 binding_29 #f)" -" exp-rhs_5)" +"(parsed-id2.1 id_127 binding_31 #f)" +" exp-rhs_4)" "(let-values(((rebuild-s380_0) rebuild-s_12)" "((temp381_0)" "(list" " set!360_0" -"(let-values(((temp384_0)" +"(let-values(((id382_0) id_127)" +"((t383_0) t_57)" +"((temp384_0)" "(free-id-set-empty-or-just-module*?" "(expand-context-stops" -" ctx_95))))" +" ctx_97))))" "(substitute-variable6.1" " temp384_0" -" id_122" -" t_57))" -" exp-rhs_5)))" +" id382_0" +" t383_0))" +" exp-rhs_4)))" "(rebuild5.1 #f #f rebuild-s380_0 temp381_0)))))))))" -"(if(not binding_29)" +"(if(not binding_31)" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_667" -" id_122" +" s_654" +" id_127" " null" -"(syntax-debug-info-string id_122 ctx_95)))" +"(syntax-debug-info-string id_127 ctx_97)))" "(if(1/set!-transformer? t_57)" "(let-values()" -"(if(not-in-this-expand-context? t_57 ctx_95)" +"(if(not-in-this-expand-context? t_57 ctx_97)" "(let-values()" "(let-values(((temp385_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_667" +" s_654" " disarmed-s_18" " set!360_0" " rhs362_0" -" id_122" +" id_127" " from-rename?_0" -" ctx_95)" +" ctx_97)" " t_57" -" ctx_95))" -"((ctx386_0) ctx_95))" +" ctx_97))" +"((ctx386_0) ctx_97))" "(expand7.1 #f #f #f #f temp385_0 ctx386_0)))" "(let-values()" -"(let-values(((exp-s_13 re-ctx_1)" +"(let-values(((exp-s_14 re-ctx_1)" "(apply-transformer" " t_57" -" insp_23" -" s_667" -" id_122" -" ctx_95" -" binding_29)))" -"(if(expand-context-just-once? ctx_95)" -"(let-values() exp-s_13)" +" insp_24" +" s_654" +" id_127" +" ctx_97" +" binding_31)))" +"(if(expand-context-just-once? ctx_97)" +"(let-values() exp-s_14)" "(let-values()" -"(let-values(((exp-s387_0) exp-s_13)" +"(let-values(((exp-s387_0) exp-s_14)" "((re-ctx388_0) re-ctx_1))" "(expand7.1 #f #f #f #f exp-s387_0 re-ctx388_0))))))))" "(if(1/rename-transformer? t_57)" "(let-values()" -"(if(not-in-this-expand-context? t_57 ctx_95)" +"(if(not-in-this-expand-context? t_57 ctx_97)" "(let-values()" "(let-values(((temp389_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_667" +" s_654" " disarmed-s_18" " set!360_0" " rhs362_0" -" id_122" +" id_127" " from-rename?_0" -" ctx_95" +" ctx_97" " t_57)" " t_57" -" ctx_95))" -"((ctx390_0) ctx_95))" +" ctx_97))" +"((ctx390_0) ctx_97))" "(expand7.1 #f #f #f #f temp389_0 ctx390_0)))" "(let-values()" "(rename-loop_0" -"(rename-transformer-target-in-context t_57 ctx_95)" +"(rename-transformer-target-in-context t_57 ctx_97)" " #t))))" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate syntax identifier\"" -" s_667" -" id_122))))))))))))))" +" s_654" +" id_127))))))))))))))" " rename-loop_0)" -" id_121" +" id_126" " #f))))))))" "(define-values" "(substitute-set!-rename)" "(let-values(((substitute-set!-rename32_0)" -"(lambda(s25_0 disarmed-s26_0 set!-id27_0 id28_0 rhs-s29_0 from-rename?30_0 ctx31_0 t23_0 t24_0)" +"(lambda(s25_1 disarmed-s26_0 set!-id27_0 id28_0 rhs-s29_0 from-rename?30_0 ctx31_0 t23_0 t24_0)" "(begin" " 'substitute-set!-rename32" -"(let-values(((s_679) s25_0))" +"(let-values(((s_666) s25_1))" "(let-values(((disarmed-s_19) disarmed-s26_0))" "(let-values(((set!-id_0) set!-id27_0))" -"(let-values(((id_123) id28_0))" +"(let-values(((id_128) id28_0))" "(let-values(((rhs-s_0) rhs-s29_0))" "(let-values(((from-rename?_1) from-rename?30_0))" -"(let-values(((ctx_96) ctx31_0))" +"(let-values(((ctx_98) ctx31_0))" "(let-values(((t_58)(if t24_0 t23_0 #f)))" "(let-values()" -"(if(let-values(((or-part_385) t_58))" -"(if or-part_385 or-part_385 from-rename?_1))" +"(if(let-values(((or-part_383) t_58))" +"(if or-part_383 or-part_383 from-rename?_1))" "(let-values()" "(let-values(((new-id_1)" "(if t_58" -"(rename-transformer-target-in-context t_58 ctx_96)" -" id_123)))" +"(rename-transformer-target-in-context t_58 ctx_98)" +" id_128)))" "(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_679)))" -"(let-values() s_679)))))))))))))))" +" s_666)))" +"(let-values() s_666)))))))))))))))" "(case-lambda" -"((s_680 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_97)" -"(begin(substitute-set!-rename32_0 s_680 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_97 #f #f)))" -"((s_681 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_98 t23_1)" -"(substitute-set!-rename32_0 s_681 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_98 t23_1 #t)))))" +"((s_667 disarmed-s_20 set!-id_1 id_129 rhs-s_1 from-rename?_2 ctx_99)" +"(begin(substitute-set!-rename32_0 s_667 disarmed-s_20 set!-id_1 id_129 rhs-s_1 from-rename?_2 ctx_99 #f #f)))" +"((s_668 disarmed-s_21 set!-id_2 id_130 rhs-s_2 from-rename?_3 ctx_100 t23_1)" +"(substitute-set!-rename32_0 s_668 disarmed-s_21 set!-id_2 id_130 rhs-s_2 from-rename?_3 ctx_100 t23_1 #t)))))" "(void" "(add-core-form!*" " '#%variable-reference" -"(lambda(s_682 ctx_99)" +"(lambda(s_669 ctx_101)" "(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-#%variable-reference)))" +"(let-values(((obs_124)(expand-context-observer ctx_101)))" +"(if obs_124" +"(let-values()(let-values()(call-expand-observe obs_124 'prim-#%variable-reference)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_22)(syntax-disarm$1 s_682)))" -"(let-values(((ok?_54 #%variable-reference391_0 id392_0)" -"(let-values(((s_683) disarmed-s_22))" -"(if(let-values(((s_684)(if(syntax?$1 s_683)(syntax-e$1 s_683) s_683)))" -"(if(pair? s_684)" -"(if(let-values(((s_685)(car s_684))) #t)" -"(let-values(((s_686)(cdr s_684)))" -"(let-values(((s_687)(if(syntax?$1 s_686)(syntax-e$1 s_686) s_686)))" -"(if(pair? s_687)" -"(if(let-values(((s_688)(car s_687)))" -"(let-values(((or-part_386)" -"(if(syntax?$1 s_688)(symbol?(syntax-e$1 s_688)) #f)))" -"(if or-part_386 or-part_386(symbol? s_688))))" -"(let-values(((s_689)(cdr s_687)))" -"(let-values(((s_690)(if(syntax?$1 s_689)(syntax-e$1 s_689) s_689)))" -"(null? s_690)))" +"(let-values(((disarmed-s_22)(syntax-disarm$1 s_669)))" +"(let-values(((ok?_53 #%variable-reference391_0 id392_0)" +"(let-values(((s_670) disarmed-s_22))" +"(if(let-values(((s_671)(if(syntax?$1 s_670)(syntax-e$1 s_670) s_670)))" +"(if(pair? s_671)" +"(if(let-values(((s_672)(car s_671))) #t)" +"(let-values(((s_673)(cdr s_671)))" +"(let-values(((s_674)(if(syntax?$1 s_673)(syntax-e$1 s_673) s_673)))" +"(if(pair? s_674)" +"(if(let-values(((s_675)(car s_674)))" +"(let-values(((or-part_384)" +"(if(syntax?$1 s_675)(symbol?(syntax-e$1 s_675)) #f)))" +"(if or-part_384 or-part_384(symbol? s_675))))" +"(let-values(((s_676)(cdr s_674)))" +"(let-values(((s_677)(if(syntax?$1 s_676)(syntax-e$1 s_676) s_676)))" +"(null? s_677)))" " #f)" " #f)))" " #f)" " #f))" "(let-values()" "(let-values(((#%variable-reference391_1 id392_1)" -"(let-values(((s_691)(if(syntax?$1 s_683)(syntax-e$1 s_683) s_683)))" +"(let-values(((s_678)(if(syntax?$1 s_670)(syntax-e$1 s_670) s_670)))" "(let-values(((#%variable-reference393_0)" -"(let-values(((s_692)(car s_691))) s_692))" +"(let-values(((s_679)(car s_678))) s_679))" "((id394_0)" -"(let-values(((s_693)(cdr s_691)))" -"(let-values(((s_694)" -"(if(syntax?$1 s_693)" -"(syntax-e$1 s_693)" -" s_693)))" +"(let-values(((s_680)(cdr s_678)))" +"(let-values(((s_681)" +"(if(syntax?$1 s_680)" +"(syntax-e$1 s_680)" +" s_680)))" "(let-values(((id395_0)" -"(let-values(((s_695)(car s_694))) s_695))" +"(let-values(((s_682)(car s_681))) s_682))" "(()" -"(let-values(((s_696)(cdr s_694)))" -"(let-values(((s_697)" -"(if(syntax?$1 s_696)" -"(syntax-e$1 s_696)" -" s_696)))" +"(let-values(((s_683)(cdr s_681)))" +"(let-values(((s_684)" +"(if(syntax?$1 s_683)" +"(syntax-e$1 s_683)" +" s_683)))" "(values)))))" "(values id395_0))))))" "(values #%variable-reference393_0 id394_0)))))" "(values #t #%variable-reference391_1 id392_1)))" "(values #f #f #f)))))" -"(let-values(((ok?_55 #%variable-reference396_0 #%top397_0 id398_0)" -"(let-values(((s_698) disarmed-s_22))" -"(if(if(not ok?_54)" -"(let-values(((s_699)(if(syntax?$1 s_698)(syntax-e$1 s_698) s_698)))" -"(if(pair? s_699)" -"(if(let-values(((s_700)(car s_699))) #t)" -"(let-values(((s_701)(cdr s_699)))" -"(let-values(((s_702)(if(syntax?$1 s_701)(syntax-e$1 s_701) s_701)))" -"(if(pair? s_702)" -"(if(let-values(((s_703)(car s_702)))" -"(let-values(((s_704)" -"(if(syntax?$1 s_703)(syntax-e$1 s_703) s_703)))" -"(if(pair? s_704)" -"(if(let-values(((s_705)(car s_704))) #t)" -"(let-values(((s_706)(cdr s_704)))" -"(let-values(((or-part_387)" -"(if(syntax?$1 s_706)" -"(symbol?(syntax-e$1 s_706))" +"(let-values(((ok?_54 #%variable-reference396_0 #%top397_0 id398_0)" +"(let-values(((s_685) disarmed-s_22))" +"(if(if(not ok?_53)" +"(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)))" +"(if(pair? s_689)" +"(if(let-values(((s_690)(car s_689)))" +"(let-values(((s_691)" +"(if(syntax?$1 s_690)(syntax-e$1 s_690) s_690)))" +"(if(pair? s_691)" +"(if(let-values(((s_692)(car s_691))) #t)" +"(let-values(((s_693)(cdr s_691)))" +"(let-values(((or-part_385)" +"(if(syntax?$1 s_693)" +"(symbol?(syntax-e$1 s_693))" " #f)))" -"(if or-part_387 or-part_387(symbol? s_706))))" +"(if or-part_385 or-part_385(symbol? s_693))))" " #f)" " #f)))" -"(let-values(((s_707)(cdr s_702)))" -"(let-values(((s_708)(if(syntax?$1 s_707)(syntax-e$1 s_707) s_707)))" -"(null? s_708)))" +"(let-values(((s_694)(cdr s_689)))" +"(let-values(((s_695)(if(syntax?$1 s_694)(syntax-e$1 s_694) s_694)))" +"(null? s_695)))" " #f)" " #f)))" " #f)" @@ -66568,250 +66850,256 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values(((#%variable-reference396_1 #%top397_1 id398_1)" -"(let-values(((s_709)(if(syntax?$1 s_698)(syntax-e$1 s_698) s_698)))" +"(let-values(((s_696)(if(syntax?$1 s_685)(syntax-e$1 s_685) s_685)))" "(let-values(((#%variable-reference399_0)" -"(let-values(((s_710)(car s_709))) s_710))" +"(let-values(((s_697)(car s_696))) s_697))" "((#%top400_0 id401_0)" -"(let-values(((s_711)(cdr s_709)))" -"(let-values(((s_712)" -"(if(syntax?$1 s_711)" -"(syntax-e$1 s_711)" -" s_711)))" +"(let-values(((s_698)(cdr s_696)))" +"(let-values(((s_699)" +"(if(syntax?$1 s_698)" +"(syntax-e$1 s_698)" +" s_698)))" "(let-values(((#%top402_0 id403_0)" -"(let-values(((s_713)(car s_712)))" -"(let-values(((s_714)" -"(if(syntax?$1 s_713)" -"(syntax-e$1 s_713)" -" s_713)))" +"(let-values(((s_700)(car s_699)))" +"(let-values(((s_701)" +"(if(syntax?$1 s_700)" +"(syntax-e$1 s_700)" +" s_700)))" "(let-values(((#%top404_0)" -"(let-values(((s_715)" +"(let-values(((s_702)" "(car" -" s_714)))" -" s_715))" +" s_701)))" +" s_702))" "((id405_0)" -"(let-values(((s_716)" +"(let-values(((s_703)" "(cdr" -" s_714)))" -" s_716)))" +" s_701)))" +" s_703)))" "(values #%top404_0 id405_0)))))" "(()" -"(let-values(((s_717)(cdr s_712)))" -"(let-values(((s_718)" -"(if(syntax?$1 s_717)" -"(syntax-e$1 s_717)" -" s_717)))" +"(let-values(((s_704)(cdr s_699)))" +"(let-values(((s_705)" +"(if(syntax?$1 s_704)" +"(syntax-e$1 s_704)" +" s_704)))" "(values)))))" "(values #%top402_0 id403_0))))))" "(values #%variable-reference399_0 #%top400_0 id401_0)))))" "(values #t #%variable-reference396_1 #%top397_1 id398_1)))" "(values #f #f #f #f)))))" -"(let-values(((ok?_56 #%variable-reference406_0)" -"(let-values(((s_719) disarmed-s_22))" -"(if(if(not(let-values(((or-part_388) ok?_54))(if or-part_388 or-part_388 ok?_55)))" +"(let-values(((ok?_55 #%variable-reference406_0)" +"(let-values(((s_706) disarmed-s_22))" +"(if(if(not(let-values(((or-part_386) ok?_53))(if or-part_386 or-part_386 ok?_54)))" " #t" " #f)" -"(let-values(((orig-s_59) s_719))" +"(let-values(((orig-s_57) s_706))" "(let-values(((#%variable-reference406_1)" -"(let-values(((s_720)(if(syntax?$1 s_719)(syntax-e$1 s_719) s_719)))" -"(if(pair? s_720)" +"(let-values(((s_707)(if(syntax?$1 s_706)(syntax-e$1 s_706) s_706)))" +"(if(pair? s_707)" "(let-values(((#%variable-reference407_0)" -"(let-values(((s_721)(car s_720))) s_721))" +"(let-values(((s_708)(car s_707))) s_708))" "(()" -"(let-values(((s_722)(cdr s_720)))" -"(let-values(((s_723)" -"(if(syntax?$1 s_722)" -"(syntax-e$1 s_722)" -" s_722)))" -"(if(null? s_723)" +"(let-values(((s_709)(cdr s_707)))" +"(let-values(((s_710)" +"(if(syntax?$1 s_709)" +"(syntax-e$1 s_709)" +" s_709)))" +"(if(null? s_710)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_59))))))" +" orig-s_57))))))" "(values #%variable-reference407_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_59)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_57)))))" "(values #t #%variable-reference406_1)))" "(values #f #f)))))" -"(if(let-values(((or-part_389) ok?_54))(if or-part_389 or-part_389 ok?_55))" +"(if(let-values(((or-part_387) ok?_53))(if or-part_387 or-part_387 ok?_54))" "(let-values()" -"(let-values(((var-id_0)(if ok?_54 id392_0 id398_0)))" -"(let-values(((binding_30)" -"(let-values(((temp409_0)(expand-context-phase ctx_99))((temp410_0) 'ambiguous))" -"(resolve+shift30.1 temp410_0 #t #f #f #f #f #f #f #f #f var-id_0 temp409_0))))" +"(let-values(((var-id_0)(if ok?_53 id392_0 id398_0)))" +"(let-values(((binding_32)" +"(let-values(((var-id408_0) var-id_0)" +"((temp409_0)(expand-context-phase ctx_101))" +"((temp410_0) 'ambiguous))" +"(resolve+shift30.1 temp410_0 #t #f #f #f #f #f #f #f #f var-id408_0 temp409_0))))" "(let-values((()" "(begin" -"(if(eq? binding_30 'ambiguous)" -"(let-values()(raise-ambiguous-error var-id_0 ctx_99))" +"(if(eq? binding_32 'ambiguous)" +"(let-values()(raise-ambiguous-error var-id_0 ctx_101))" "(void))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_390) binding_30))" -"(if or-part_390 or-part_390(expand-context-allow-unbound? ctx_99)))" +"(if(let-values(((or-part_388) binding_32))" +"(if or-part_388 or-part_388(expand-context-allow-unbound? ctx_101)))" "(void)" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_682" +" s_669" " var-id_0" " null" -"(syntax-debug-info-string var-id_0 ctx_99))))" +"(syntax-debug-info-string var-id_0 ctx_101))))" "(values))))" "(let-values(((t_59 primitive?_12 insp-of-t_7 protected?_13)" -"(if binding_30" -"(let-values(((s414_0) s_682)" -"((temp415_0)(expand-context-in-local-expand? ctx_99)))" -"(lookup17.1 s414_0 #t temp415_0 #t binding_30 ctx_99 var-id_0))" +"(if binding_32" +"(let-values(((binding411_0) binding_32)" +"((ctx412_0) ctx_101)" +"((var-id413_0) var-id_0)" +"((s414_0) s_669)" +"((temp415_0)(expand-context-in-local-expand? ctx_101)))" +"(lookup17.1 s414_0 #t temp415_0 #t binding411_0 ctx412_0 var-id413_0))" "(values #f #f #f #f))))" "(begin" "(if(if t_59(not(variable? t_59)) #f)" "(let-values()" -" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_682))" +" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_669))" "(void))" -"(if(expand-context-to-parsed? ctx_99)" +"(if(expand-context-to-parsed? ctx_101)" "(parsed-#%variable-reference11.1" -"(keep-properties-only~ s_682)" -"(if ok?_55" -"(let-values()(parsed-top-id4.1 var-id_0 binding_30 #f))" -"(let-values()(parsed-id2.1 var-id_0 binding_30 #f))))" -" s_682))))))))" +"(keep-properties-only~ s_669)" +"(if ok?_54" +"(let-values()(parsed-top-id4.1 var-id_0 binding_32 #f))" +"(let-values()(parsed-id2.1 var-id_0 binding_32 #f))))" +" s_669))))))))" "(let-values()" -"(if(expand-context-to-parsed? ctx_99)" -"(parsed-#%variable-reference11.1(keep-properties-only~ s_682) #f)" -" s_682)))))))))))" +"(if(expand-context-to-parsed? ctx_101)" +"(parsed-#%variable-reference11.1(keep-properties-only~ s_669) #f)" +" s_669)))))))))))" "(void" "(add-core-form!*" " '#%expression" -"(lambda(s_724 ctx_100)" +"(lambda(s_711 ctx_102)" "(let-values((()" "(begin" -"(let-values(((obs_120)(expand-context-observer ctx_100)))" -"(if obs_120" -"(let-values()(let-values()(call-expand-observe obs_120 'prim-#%expression)))" +"(let-values(((obs_125)(expand-context-observer ctx_102)))" +"(if obs_125" +"(let-values()(let-values()(call-expand-observe obs_125 'prim-#%expression)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_23)(syntax-disarm$1 s_724)))" -"(let-values(((ok?_57 #%expression416_0 e417_0)" -"(let-values(((s_725) disarmed-s_23))" -"(let-values(((orig-s_60) s_725))" +"(let-values(((disarmed-s_23)(syntax-disarm$1 s_711)))" +"(let-values(((ok?_56 #%expression416_0 e417_0)" +"(let-values(((s_712) disarmed-s_23))" +"(let-values(((orig-s_58) s_712))" "(let-values(((#%expression416_1 e417_1)" -"(let-values(((s_726)(if(syntax?$1 s_725)(syntax-e$1 s_725) s_725)))" -"(if(pair? s_726)" +"(let-values(((s_713)(if(syntax?$1 s_712)(syntax-e$1 s_712) s_712)))" +"(if(pair? s_713)" "(let-values(((#%expression418_0)" -"(let-values(((s_727)(car s_726))) s_727))" +"(let-values(((s_714)(car s_713))) s_714))" "((e419_0)" -"(let-values(((s_728)(cdr s_726)))" -"(let-values(((s_729)" -"(if(syntax?$1 s_728)" -"(syntax-e$1 s_728)" -" s_728)))" -"(if(pair? s_729)" +"(let-values(((s_715)(cdr s_713)))" +"(let-values(((s_716)" +"(if(syntax?$1 s_715)" +"(syntax-e$1 s_715)" +" s_715)))" +"(if(pair? s_716)" "(let-values(((e420_0)" -"(let-values(((s_730)(car s_729)))" -" s_730))" +"(let-values(((s_717)(car s_716)))" +" s_717))" "(()" -"(let-values(((s_731)(cdr s_729)))" -"(let-values(((s_732)" -"(if(syntax?$1 s_731)" -"(syntax-e$1 s_731)" -" s_731)))" -"(if(null? s_732)" +"(let-values(((s_718)(cdr s_716)))" +"(let-values(((s_719)" +"(if(syntax?$1 s_718)" +"(syntax-e$1 s_718)" +" s_718)))" +"(if(null? s_719)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_60))))))" +" orig-s_58))))))" "(values e420_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_60))))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_58))))))" "(values #%expression418_0 e419_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_60)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_58)))))" "(values #t #%expression416_1 e417_1))))))" "(let-values(((rebuild-s_13)" -"(let-values(((temp423_0) #t))(keep-as-needed74.1 temp423_0 #t #f #f #f #f ctx_100 s_724))))" +"(let-values(((ctx421_0) ctx_102)((s422_0) s_711)((temp423_0) #t))" +"(keep-as-needed74.1 temp423_0 #t #f #f #f #f ctx421_0 s422_0))))" "(let-values(((exp-e_0)" "(let-values(((temp424_0) e417_0)" "((temp425_0)" -"(let-values(((temp426_0)(as-expression-context ctx_100))" -"((ctx427_0) ctx_100))" +"(let-values(((temp426_0)(as-expression-context ctx_102))" +"((ctx427_0) ctx_102))" "(as-tail-context23.1 ctx427_0 temp426_0))))" "(expand7.1 #f #f #f #f temp424_0 temp425_0))))" -"(if(expand-context-to-parsed? ctx_100)" +"(if(expand-context-to-parsed? ctx_102)" " exp-e_0" "(let-values(((tmp_62)" -"(if(not(expand-context-in-local-expand? ctx_100))" -"(expand-context-context ctx_100)" +"(if(not(expand-context-in-local-expand? ctx_102))" +"(expand-context-context ctx_102)" " #f)))" "(if(equal? tmp_62 'expression)" "(let-values()" "(let-values(((result-s_13)(syntax-track-origin$1 exp-e_0 rebuild-s_13)))" "(begin" -"(let-values(((obs_121)(expand-context-observer ctx_100)))" -"(if obs_121" -"(let-values()(let-values()(call-expand-observe obs_121 'tag result-s_13)))" +"(let-values(((obs_126)(expand-context-observer ctx_102)))" +"(if obs_126" +"(let-values()(let-values()(call-expand-observe obs_126 'tag result-s_13)))" "(void)))" " result-s_13)))" "(let-values()" "(let-values(((rebuild-s428_0) rebuild-s_13)((temp429_0)(list #%expression416_0 exp-e_0)))" "(rebuild5.1 #f #f rebuild-s428_0 temp429_0))))))))))))))" -" (void (add-core-form!* 'unquote (lambda (s_733 ctx_101) (raise-syntax-error$1 #f \"not in quasiquote\" s_733))))" -" (void (add-core-form!* 'unquote-splicing (lambda (s_734 ctx_102) (raise-syntax-error$1 #f \"not in quasiquote\" s_734))))" +" (void (add-core-form!* 'unquote (lambda (s_720 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_720))))" +" (void (add-core-form!* 'unquote-splicing (lambda (s_721 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_721))))" "(define-values" "(binding-for-transformer?)" -"(lambda(b_41 id_126 at-phase_12 ns_120)" +"(lambda(b_41 id_131 at-phase_12 ns_121)" "(begin" "(if(not at-phase_12)" "(let-values()" -"(let-values(((m_29)" -"(namespace->module ns_120(1/module-path-index-resolve(module-binding-nominal-module b_41)))))" +"(let-values(((m_30)" +"(namespace->module ns_121(1/module-path-index-resolve(module-binding-nominal-module b_41)))))" "(let-values(((b/p_4)" "(hash-ref" -"(hash-ref(module-provides m_29)(module-binding-nominal-phase b_41) '#hasheq())" +"(hash-ref(module-provides m_30)(module-binding-nominal-phase b_41) '#hasheq())" "(module-binding-nominal-sym b_41)" " #f)))" "(provided-as-transformer? b/p_4))))" "(let-values()" -"(let-values(((val_85 primitive?_13 insp_24 protected?_14)" +"(let-values(((val_81 primitive?_13 insp_25 protected?_14)" "(let-values(((b1_8) b_41)" "((empty-env2_0) empty-env)" "((null3_0) null)" -"((ns4_0) ns_120)" +"((ns4_0) ns_121)" "((at-phase5_0) at-phase_12)" -"((id6_0) id_126))" +"((id6_0) id_131))" "(binding-lookup48.1 #f #f #f #f b1_8 empty-env2_0 null3_0 ns4_0 at-phase5_0 id6_0))))" -"(not(variable? val_85))))))))" +"(not(variable? val_81))))))))" "(define-values(layers) '(raw phaseless id))" "(define-values(provide-form-name) 'provide)" "(define-values" "(parse-and-expand-provides!)" -"(lambda(specs_0 orig-s_61 rp_1 self_31 phase_41 ctx_103)" +"(lambda(specs_0 orig-s_59 rp_1 self_30 phase_43 ctx_105)" "(begin" -"(let-values(((ns_121)(expand-context-namespace ctx_103)))" -"((letrec-values(((loop_118)" +"(let-values(((ns_122)(expand-context-namespace ctx_105)))" +"((letrec-values(((loop_113)" "(lambda(specs_1 at-phase_13 protected?_15 layer_6)" "(begin" " 'loop" "(let-values(((track-stxess_0 exp-specss_0)" "(let-values(((track-stxes_0 exp-specs_0)" -"(let-values(((lst_74) specs_1))" +"(let-values(((lst_76) specs_1))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_74)))" +"(let-values()(check-list lst_76)))" "((letrec-values(((for-loop_92)" "(lambda(track-stxes_1" " exp-specs_1" -" lst_394)" +" lst_398)" "(begin" " 'for-loop" -"(if(pair? lst_394)" +"(if(pair? lst_398)" "(let-values(((spec_0)" "(unsafe-car" -" lst_394))" -"((rest_232)" +" lst_398))" +"((rest_227)" "(unsafe-cdr" -" lst_394)))" +" lst_398)))" "(let-values(((track-stxes_2" " exp-specs_2)" "(let-values(((track-stxes_3)" @@ -66857,7 +67145,7 @@ static const char *startup_source = "(format" " \"nested `~a' not allowed\"" " fm_2)" -" orig-s_61" +" orig-s_59" " spec_0)))))))" "(let-values(((tmp_63)" " fm_2))" @@ -66923,11 +67211,11 @@ static const char *startup_source = "(begin" "(parse-identifier!" " spec_0" -" orig-s_61" +" orig-s_59" "(syntax-e$1" " spec_0)" " at-phase_13" -" ns_121" +" ns_122" " rp_1" " protected?_15)" "(values" @@ -66938,7 +67226,7 @@ static const char *startup_source = "(raise-syntax-error$1" " provide-form-name" " \"bad syntax\"" -" orig-s_61" +" orig-s_59" " spec_0))))" "(let-values()" "(let-values((()" @@ -66946,68 +67234,68 @@ static const char *startup_source = "(check-nested_1" " 'raw)" "(values))))" -"(let-values(((ok?_58" +"(let-values(((ok?_57" " for-meta3_0" " phase-level4_0" " spec5_0)" -"(let-values(((s_306)" +"(let-values(((s_304)" " disarmed-spec_0))" -"(let-values(((orig-s_62)" -" s_306))" +"(let-values(((orig-s_60)" +" s_304))" "(let-values(((for-meta3_1" " phase-level4_1" " spec5_1)" -"(let-values(((s_471)" +"(let-values(((s_305)" "(if(syntax?$1" -" s_306)" +" s_304)" "(syntax-e$1" -" s_306)" -" s_306)))" +" s_304)" +" s_304)))" "(if(pair?" -" s_471)" +" s_305)" "(let-values(((for-meta6_0)" -"(let-values(((s_178)" +"(let-values(((s_176)" "(car" -" s_471)))" -" s_178))" +" s_305)))" +" s_176))" "((phase-level7_0" " spec8_0)" -"(let-values(((s_78)" +"(let-values(((s_76)" "(cdr" -" s_471)))" -"(let-values(((s_416)" +" s_305)))" +"(let-values(((s_722)" "(if(syntax?$1" -" s_78)" +" s_76)" "(syntax-e$1" -" s_78)" -" s_78)))" +" s_76)" +" s_76)))" "(if(pair?" -" s_416)" +" s_722)" "(let-values(((phase-level9_0)" -"(let-values(((s_180)" +"(let-values(((s_178)" "(car" -" s_416)))" -" s_180))" +" s_722)))" +" s_178))" "((spec10_0)" -"(let-values(((s_417)" +"(let-values(((s_460)" "(cdr" -" s_416)))" -"(let-values(((s_148)" +" s_722)))" +"(let-values(((s_467)" "(if(syntax?$1" -" s_417)" +" s_460)" "(syntax-e$1" -" s_417)" -" s_417)))" +" s_460)" +" s_460)))" "(let-values(((flat-s_42)" "(to-syntax-list.1" -" s_148)))" +" s_467)))" "(if(not" " flat-s_42)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_62))" +" orig-s_60))" "(let-values()" " flat-s_42)))))))" "(values" @@ -67016,7 +67304,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_62))))))" +" orig-s_60))))))" "(values" " for-meta6_0" " phase-level7_0" @@ -67024,33 +67312,33 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_62)))))" +" orig-s_60)))))" "(values" " #t" " for-meta3_1" " phase-level4_1" " spec5_1))))))" -"(let-values(((p_71)" +"(let-values(((p_69)" "(syntax-e$1" " phase-level4_0)))" "(let-values((()" "(begin" "(if(phase?" -" p_71)" +" p_69)" "(void)" "(let-values()" "(raise-syntax-error$1" " provide-form-name" " \"bad `for-meta' phase\"" -" orig-s_61" +" orig-s_59" " spec_0)))" "(values))))" "(let-values(((track-stxes_5" " exp-specs_5)" -"(loop_118" +"(loop_113" " spec5_0" "(phase+" -" p_71" +" p_69" " at-phase_13)" " protected?_15" " 'phaseless)))" @@ -67080,12 +67368,12 @@ static const char *startup_source = "(check-nested_1" " 'raw)" "(values))))" -"(let-values(((ok?_59" +"(let-values(((ok?_58" " for-syntax13_0" " spec14_0)" "(let-values(((s_20)" " disarmed-spec_0))" -"(let-values(((orig-s_63)" +"(let-values(((orig-s_61)" " s_20))" "(let-values(((for-syntax13_1" " spec14_1)" @@ -67098,15 +67386,15 @@ static const char *startup_source = "(if(pair?" " s_23)" "(let-values(((for-syntax15_0)" -"(let-values(((s_304)" +"(let-values(((s_426)" "(car" " s_23)))" -" s_304))" +" s_426))" "((spec16_0)" "(let-values(((s_25)" "(cdr" " s_23)))" -"(let-values(((s_735)" +"(let-values(((s_723)" "(if(syntax?$1" " s_25)" "(syntax-e$1" @@ -67114,14 +67402,14 @@ static const char *startup_source = " s_25)))" "(let-values(((flat-s_43)" "(to-syntax-list.1" -" s_735)))" +" s_723)))" "(if(not" " flat-s_43)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_63))" +" orig-s_61))" "(let-values()" " flat-s_43)))))))" "(values" @@ -67130,14 +67418,14 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_63)))))" +" orig-s_61)))))" "(values" " #t" " for-syntax13_1" " spec14_1))))))" "(let-values(((track-stxes_6" " exp-specs_6)" -"(loop_118" +"(loop_113" " spec14_0" "(phase+" " 1" @@ -67169,33 +67457,33 @@ static const char *startup_source = "(check-nested_1" " 'raw)" "(values))))" -"(let-values(((ok?_60" +"(let-values(((ok?_59" " for-label19_0" " spec20_0)" "(let-values(((s_44)" " disarmed-spec_0))" -"(let-values(((orig-s_24)" +"(let-values(((orig-s_62)" " s_44))" "(let-values(((for-label19_1" " spec20_1)" -"(let-values(((s_736)" +"(let-values(((s_477)" "(if(syntax?$1" " s_44)" "(syntax-e$1" " s_44)" " s_44)))" "(if(pair?" -" s_736)" +" s_477)" "(let-values(((for-label21_0)" -"(let-values(((s_487)" +"(let-values(((s_474)" "(car" -" s_736)))" -" s_487))" +" s_477)))" +" s_474))" "((spec22_0)" "(let-values(((s_45)" "(cdr" -" s_736)))" -"(let-values(((s_398)" +" s_477)))" +"(let-values(((s_306)" "(if(syntax?$1" " s_45)" "(syntax-e$1" @@ -67203,14 +67491,14 @@ static const char *startup_source = " s_45)))" "(let-values(((flat-s_44)" "(to-syntax-list.1" -" s_398)))" +" s_306)))" "(if(not" " flat-s_44)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_24))" +" orig-s_62))" "(let-values()" " flat-s_44)))))))" "(values" @@ -67219,14 +67507,14 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_24)))))" +" orig-s_62)))))" "(values" " #t" " for-label19_1" " spec20_1))))))" "(let-values(((track-stxes_7" " exp-specs_7)" -"(loop_118" +"(loop_113" " spec20_0" " #f" " protected?_15" @@ -67263,52 +67551,52 @@ static const char *startup_source = "(raise-syntax-error$1" " provide-form-name" " \"nested `protect' not allowed\"" -" orig-s_61" +" orig-s_59" " spec_0))" "(void))" "(values))))" -"(let-values(((ok?_61" +"(let-values(((ok?_60" " protect25_0" " p-spec26_0)" -"(let-values(((s_85)" +"(let-values(((s_83)" " disarmed-spec_0))" -"(let-values(((orig-s_40)" -" s_85))" +"(let-values(((orig-s_63)" +" s_83))" "(let-values(((protect25_1" " p-spec26_1)" "(let-values(((s_31)" "(if(syntax?$1" -" s_85)" +" s_83)" "(syntax-e$1" -" s_85)" -" s_85)))" +" s_83)" +" s_83)))" "(if(pair?" " s_31)" "(let-values(((protect27_0)" -"(let-values(((s_737)" +"(let-values(((s_724)" "(car" " s_31)))" -" s_737))" +" s_724))" "((p-spec28_0)" -"(let-values(((s_738)" +"(let-values(((s_309)" "(cdr" " s_31)))" -"(let-values(((s_394)" +"(let-values(((s_480)" "(if(syntax?$1" -" s_738)" +" s_309)" "(syntax-e$1" -" s_738)" -" s_738)))" +" s_309)" +" s_309)))" "(let-values(((flat-s_45)" "(to-syntax-list.1" -" s_394)))" +" s_480)))" "(if(not" " flat-s_45)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_40))" +" orig-s_63))" "(let-values()" " flat-s_45)))))))" "(values" @@ -67317,14 +67605,14 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_40)))))" +" orig-s_63)))))" "(values" " #t" " protect25_1" " p-spec26_1))))))" "(let-values(((track-stxes_8" " exp-specs_8)" -"(loop_118" +"(loop_113" " p-spec26_0" " at-phase_13" " #t" @@ -67336,7 +67624,7 @@ static const char *startup_source = " track-stxes_8" "(let-values(((spec29_0)" " spec_0)" -"((temp30_7)" +"((temp30_6)" "(list*" " protect25_0" " exp-specs_8)))" @@ -67344,116 +67632,116 @@ static const char *startup_source = " #f" " #f" " spec29_0" -" temp30_7))))))))))" +" temp30_6))))))))))" "(let-values()" "(let-values((()" "(begin" "(check-nested_1" " 'phaseless)" "(values))))" -"(let-values(((ok?_62" +"(let-values(((ok?_61" " rename31_0" " id:from32_0" " id:to33_0)" -"(let-values(((s_490)" +"(let-values(((s_725)" " disarmed-spec_0))" "(let-values(((orig-s_64)" -" s_490))" +" s_725))" "(let-values(((rename31_1" " id:from32_1" " id:to33_1)" -"(let-values(((s_316)" +"(let-values(((s_483)" "(if(syntax?$1" -" s_490)" +" s_725)" "(syntax-e$1" -" s_490)" -" s_490)))" +" s_725)" +" s_725)))" "(if(pair?" -" s_316)" +" s_483)" "(let-values(((rename34_0)" -"(let-values(((s_318)" +"(let-values(((s_315)" "(car" -" s_316)))" -" s_318))" +" s_483)))" +" s_315))" "((id:from35_0" " id:to36_0)" -"(let-values(((s_319)" +"(let-values(((s_395)" "(cdr" -" s_316)))" -"(let-values(((s_442)" +" s_483)))" +"(let-values(((s_316)" "(if(syntax?$1" -" s_319)" +" s_395)" "(syntax-e$1" -" s_319)" -" s_319)))" +" s_395)" +" s_395)))" "(if(pair?" -" s_442)" +" s_316)" "(let-values(((id:from37_0)" -"(let-values(((s_56)" +"(let-values(((s_33)" "(car" -" s_442)))" -"(if(let-values(((or-part_66)" +" s_316)))" +"(if(let-values(((or-part_58)" "(if(syntax?$1" -" s_56)" +" s_33)" "(symbol?" "(syntax-e$1" -" s_56))" +" s_33))" " #f)))" -"(if or-part_66" -" or-part_66" +"(if or-part_58" +" or-part_58" "(symbol?" -" s_56)))" -" s_56" +" s_33)))" +" s_33" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_64" -" s_56))))" +" s_33))))" "((id:to38_0)" -"(let-values(((s_390)" +"(let-values(((s_726)" "(cdr" -" s_442)))" -"(let-values(((s_739)" +" s_316)))" +"(let-values(((s_727)" "(if(syntax?$1" -" s_390)" +" s_726)" "(syntax-e$1" -" s_390)" -" s_390)))" +" s_726)" +" s_726)))" "(if(pair?" -" s_739)" +" s_727)" "(let-values(((id:to39_0)" -"(let-values(((s_391)" +"(let-values(((s_430)" "(car" -" s_739)))" -"(if(let-values(((or-part_110)" +" s_727)))" +"(if(let-values(((or-part_100)" "(if(syntax?$1" -" s_391)" +" s_430)" "(symbol?" "(syntax-e$1" -" s_391))" +" s_430))" " #f)))" -"(if or-part_110" -" or-part_110" +"(if or-part_100" +" or-part_100" "(symbol?" -" s_391)))" -" s_391" +" s_430)))" +" s_430" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_64" -" s_391))))" +" s_430))))" "(()" -"(let-values(((s_392)" +"(let-values(((s_728)" "(cdr" -" s_739)))" -"(let-values(((s_506)" +" s_727)))" +"(let-values(((s_382)" "(if(syntax?$1" -" s_392)" +" s_728)" "(syntax-e$1" -" s_392)" -" s_392)))" +" s_728)" +" s_728)))" "(if(null?" -" s_506)" +" s_382)" "(values)" "(raise-syntax-error$1" " #f" @@ -67488,11 +67776,11 @@ static const char *startup_source = "(begin" "(parse-identifier!" " id:from32_0" -" orig-s_61" +" orig-s_59" "(syntax-e$1" " id:to33_0)" " at-phase_13" -" ns_121" +" ns_122" " rp_1" " protected?_15)" "(values" @@ -67511,7 +67799,7 @@ static const char *startup_source = "(check-nested_1" " 'phaseless)" "(values))))" -"(let-values(((ok?_63" +"(let-values(((ok?_62" " struct40_0" " id:struct41_0" " id:field42_0)" @@ -67522,78 +67810,78 @@ static const char *startup_source = "(let-values(((struct40_1" " id:struct41_1" " id:field42_1)" -"(let-values(((s_740)" +"(let-values(((s_410)" "(if(syntax?$1" " s_36)" "(syntax-e$1" " s_36)" " s_36)))" "(if(pair?" -" s_740)" +" s_410)" "(let-values(((struct43_0)" -"(let-values(((s_199)" +"(let-values(((s_197)" "(car" -" s_740)))" -" s_199))" +" s_410)))" +" s_197))" "((id:struct44_0" " id:field45_0)" -"(let-values(((s_37)" +"(let-values(((s_729)" "(cdr" -" s_740)))" -"(let-values(((s_86)" +" s_410)))" +"(let-values(((s_84)" "(if(syntax?$1" -" s_37)" +" s_729)" "(syntax-e$1" -" s_37)" -" s_37)))" +" s_729)" +" s_729)))" "(if(pair?" -" s_86)" +" s_84)" "(let-values(((id:struct46_0)" -"(let-values(((s_445)" +"(let-values(((s_730)" "(car" -" s_86)))" -"(if(let-values(((or-part_266)" +" s_84)))" +"(if(let-values(((or-part_389)" "(if(syntax?$1" -" s_445)" +" s_730)" "(symbol?" "(syntax-e$1" -" s_445))" +" s_730))" " #f)))" -"(if or-part_266" -" or-part_266" +"(if or-part_389" +" or-part_389" "(symbol?" -" s_445)))" -" s_445" +" s_730)))" +" s_730" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_65" -" s_445))))" +" s_730))))" "((id:field47_0)" -"(let-values(((s_321)" +"(let-values(((s_731)" "(cdr" -" s_86)))" -"(let-values(((s_395)" +" s_84)))" +"(let-values(((s_389)" "(if(syntax?$1" -" s_321)" +" s_731)" "(syntax-e$1" -" s_321)" -" s_321)))" +" s_731)" +" s_731)))" "(if(pair?" -" s_395)" +" s_389)" "(let-values(((id:field48_0)" -"(let-values(((s_64)" +"(let-values(((s_62)" "(car" -" s_395)))" -"(let-values(((s_322)" +" s_389)))" +"(let-values(((s_732)" "(if(syntax?$1" -" s_64)" +" s_62)" "(syntax-e$1" -" s_64)" -" s_64)))" +" s_62)" +" s_62)))" "(let-values(((flat-s_46)" "(to-syntax-list.1" -" s_322)))" +" s_732)))" "(if(not" " flat-s_46)" "(let-values()" @@ -67603,7 +67891,7 @@ static const char *startup_source = " orig-s_65))" "(let-values()" "(let-values(((id:field_0)" -"(let-values(((lst_101)" +"(let-values(((lst_33)" " flat-s_46))" "(begin" "(if(variable-reference-from-unsafe?" @@ -67611,20 +67899,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_101)))" -"((letrec-values(((for-loop_117)" +" lst_33)))" +"((letrec-values(((for-loop_25)" "(lambda(id:field_1" -" lst_395)" +" lst_34)" "(begin" " 'for-loop" "(if(pair?" -" lst_395)" -"(let-values(((s_66)" +" lst_34)" +"(let-values(((s_38)" "(unsafe-car" -" lst_395))" -"((rest_233)" +" lst_34))" +"((rest_13)" "(unsafe-cdr" -" lst_395)))" +" lst_34)))" "(let-values(((id:field_2)" "(let-values(((id:field_3)" " id:field_1))" @@ -67632,23 +67920,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:field49_0)" "(let-values()" -"(if(let-values(((or-part_391)" +"(if(let-values(((or-part_390)" "(if(syntax?$1" -" s_66)" +" s_38)" "(symbol?" "(syntax-e$1" -" s_66))" +" s_38))" " #f)))" -"(if or-part_391" -" or-part_391" +"(if or-part_390" +" or-part_390" "(symbol?" -" s_66)))" -" s_66" +" s_38)))" +" s_38" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_65" -" s_66)))))" +" s_38)))))" "(cons" " id:field49_0" " id:field_3)))))" @@ -67656,28 +67944,28 @@ static const char *startup_source = " id:field_4)))))" "(if(not" " #f)" -"(for-loop_117" +"(for-loop_25" " id:field_2" -" rest_233)" +" rest_13)" " id:field_2)))" " id:field_1)))))" -" for-loop_117)" +" for-loop_25)" " null" -" lst_101)))))" +" lst_33)))))" "(reverse$1" " id:field_0))))))))" "(()" -"(let-values(((s_203)" +"(let-values(((s_201)" "(cdr" -" s_395)))" -"(let-values(((s_410)" +" s_389)))" +"(let-values(((s_733)" "(if(syntax?$1" -" s_203)" +" s_201)" "(syntax-e$1" -" s_203)" -" s_203)))" +" s_201)" +" s_201)))" "(if(null?" -" s_410)" +" s_733)" "(values)" "(raise-syntax-error$1" " #f" @@ -67712,10 +68000,10 @@ static const char *startup_source = "(begin" "(parse-struct!" " id:struct41_0" -" orig-s_61" +" orig-s_59" " id:field42_0" " at-phase_13" -" ns_121" +" ns_122" " rp_1" " protected?_15)" "(values" @@ -67731,57 +68019,57 @@ static const char *startup_source = "(check-nested_1" " 'phaseless)" "(values))))" -"(let-values(((ok?_64" +"(let-values(((ok?_63" " all-from50_0" " mod-path51_0)" -"(let-values(((s_413)" +"(let-values(((s_734)" " disarmed-spec_0))" "(let-values(((orig-s_66)" -" s_413))" +" s_734))" "(let-values(((all-from50_1" " mod-path51_1)" -"(let-values(((s_422)" +"(let-values(((s_735)" "(if(syntax?$1" -" s_413)" +" s_734)" "(syntax-e$1" -" s_413)" -" s_413)))" +" s_734)" +" s_734)))" "(if(pair?" -" s_422)" +" s_735)" "(let-values(((all-from52_0)" -"(let-values(((s_423)" +"(let-values(((s_736)" "(car" -" s_422)))" -" s_423))" +" s_735)))" +" s_736))" "((mod-path53_0)" -"(let-values(((s_206)" +"(let-values(((s_204)" "(cdr" -" s_422)))" -"(let-values(((s_207)" +" s_735)))" +"(let-values(((s_205)" "(if(syntax?$1" -" s_206)" +" s_204)" "(syntax-e$1" -" s_206)" -" s_206)))" +" s_204)" +" s_204)))" "(if(pair?" -" s_207)" +" s_205)" "(let-values(((mod-path54_0)" -"(let-values(((s_93)" +"(let-values(((s_91)" "(car" -" s_207)))" -" s_93))" +" s_205)))" +" s_91))" "(()" -"(let-values(((s_741)" +"(let-values(((s_407)" "(cdr" -" s_207)))" -"(let-values(((s_323)" +" s_205)))" +"(let-values(((s_321)" "(if(syntax?$1" -" s_741)" +" s_407)" "(syntax-e$1" -" s_741)" -" s_741)))" +" s_407)" +" s_407)))" "(if(null?" -" s_323)" +" s_321)" "(values)" "(raise-syntax-error$1" " #f" @@ -67807,14 +68095,14 @@ static const char *startup_source = "(begin" "(parse-all-from" " mod-path51_0" -" orig-s_61" -" self_31" +" orig-s_59" +" self_30" " null" " at-phase_13" -" ns_121" +" ns_122" " rp_1" " protected?_15" -" ctx_103)" +" ctx_105)" "(values" " null" "(list" @@ -67825,61 +68113,61 @@ static const char *startup_source = "(check-nested_1" " 'phaseless)" "(values))))" -"(let-values(((ok?_65" +"(let-values(((ok?_64" " all-from-except55_0" " mod-path56_0" " id57_0)" -"(let-values(((s_209)" +"(let-values(((s_207)" " disarmed-spec_0))" "(let-values(((orig-s_67)" -" s_209))" +" s_207))" "(let-values(((all-from-except55_1" " mod-path56_1" " id57_1)" -"(let-values(((s_98)" +"(let-values(((s_96)" "(if(syntax?$1" -" s_209)" +" s_207)" "(syntax-e$1" -" s_209)" -" s_209)))" +" s_207)" +" s_207)))" "(if(pair?" -" s_98)" +" s_96)" "(let-values(((all-from-except58_0)" -"(let-values(((s_742)" +"(let-values(((s_737)" "(car" -" s_98)))" -" s_742))" +" s_96)))" +" s_737))" "((mod-path59_0" " id60_0)" -"(let-values(((s_102)" +"(let-values(((s_100)" "(cdr" -" s_98)))" -"(let-values(((s_154)" +" s_96)))" +"(let-values(((s_487)" "(if(syntax?$1" -" s_102)" +" s_100)" "(syntax-e$1" -" s_102)" -" s_102)))" +" s_100)" +" s_100)))" "(if(pair?" -" s_154)" +" s_487)" "(let-values(((mod-path61_0)" -"(let-values(((s_496)" +"(let-values(((s_398)" "(car" -" s_154)))" -" s_496))" +" s_487)))" +" s_398))" "((id62_0)" -"(let-values(((s_497)" +"(let-values(((s_738)" "(cdr" -" s_154)))" -"(let-values(((s_403)" +" s_487)))" +"(let-values(((s_739)" "(if(syntax?$1" -" s_497)" +" s_738)" "(syntax-e$1" -" s_497)" -" s_497)))" +" s_738)" +" s_738)))" "(let-values(((flat-s_47)" "(to-syntax-list.1" -" s_403)))" +" s_739)))" "(if(not" " flat-s_47)" "(let-values()" @@ -67888,8 +68176,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_67))" "(let-values()" -"(let-values(((id_127)" -"(let-values(((lst_396)" +"(let-values(((id_132)" +"(let-values(((lst_399)" " flat-s_47))" "(begin" "(if(variable-reference-from-unsafe?" @@ -67897,61 +68185,61 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_396)))" -"((letrec-values(((for-loop_303)" -"(lambda(id_128" -" lst_397)" +" lst_399)))" +"((letrec-values(((for-loop_311)" +"(lambda(id_133" +" lst_400)" "(begin" " 'for-loop" "(if(pair?" -" lst_397)" -"(let-values(((s_326)" +" lst_400)" +"(let-values(((s_490)" "(unsafe-car" -" lst_397))" -"((rest_234)" +" lst_400))" +"((rest_228)" "(unsafe-cdr" -" lst_397)))" -"(let-values(((id_110)" -"(let-values(((id_129)" -" id_128))" -"(let-values(((id_130)" +" lst_400)))" +"(let-values(((id_134)" +"(let-values(((id_135)" +" id_133))" +"(let-values(((id_136)" "(let-values()" "(let-values(((id63_0)" "(let-values()" -"(if(let-values(((or-part_392)" +"(if(let-values(((or-part_391)" "(if(syntax?$1" -" s_326)" +" s_490)" "(symbol?" "(syntax-e$1" -" s_326))" +" s_490))" " #f)))" -"(if or-part_392" -" or-part_392" +"(if or-part_391" +" or-part_391" "(symbol?" -" s_326)))" -" s_326" +" s_490)))" +" s_490" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_67" -" s_326)))))" +" s_490)))))" "(cons" " id63_0" -" id_129)))))" +" id_135)))))" "(values" -" id_130)))))" +" id_136)))))" "(if(not" " #f)" -"(for-loop_303" -" id_110" -" rest_234)" -" id_110)))" -" id_128)))))" -" for-loop_303)" +"(for-loop_311" +" id_134" +" rest_228)" +" id_134)))" +" id_133)))))" +" for-loop_311)" " null" -" lst_396)))))" +" lst_399)))))" "(reverse$1" -" id_127)))))))))" +" id_132)))))))))" "(values" " mod-path61_0" " id62_0))" @@ -67975,14 +68263,14 @@ static const char *startup_source = "(begin" "(parse-all-from" " mod-path56_0" -" orig-s_61" -" self_31" +" orig-s_59" +" self_30" " id57_0" " at-phase_13" -" ns_121" +" ns_122" " rp_1" " protected?_15" -" ctx_103)" +" ctx_105)" "(values" " null" "(list" @@ -67999,38 +68287,38 @@ static const char *startup_source = "(check-nested_1" " 'phaseless)" "(values))))" -"(let-values(((ok?_66" +"(let-values(((ok?_65" " all-defined64_0)" -"(let-values(((s_213)" +"(let-values(((s_211)" " disarmed-spec_0))" "(let-values(((orig-s_68)" -" s_213))" +" s_211))" "(let-values(((all-defined64_1)" -"(let-values(((s_396)" +"(let-values(((s_391)" "(if(syntax?$1" -" s_213)" +" s_211)" "(syntax-e$1" -" s_213)" -" s_213)))" +" s_211)" +" s_211)))" "(if(pair?" -" s_396)" +" s_391)" "(let-values(((all-defined65_0)" -"(let-values(((s_743)" +"(let-values(((s_740)" "(car" -" s_396)))" -" s_743))" +" s_391)))" +" s_740))" "(()" -"(let-values(((s_507)" +"(let-values(((s_741)" "(cdr" -" s_396)))" -"(let-values(((s_111)" +" s_391)))" +"(let-values(((s_109)" "(if(syntax?$1" -" s_507)" +" s_741)" "(syntax-e$1" -" s_507)" -" s_507)))" +" s_741)" +" s_741)))" "(if(null?" -" s_111)" +" s_109)" "(values)" "(raise-syntax-error$1" " #f" @@ -68047,13 +68335,13 @@ static const char *startup_source = " all-defined64_1))))))" "(begin" "(parse-all-from-module" -" self_31" +" self_30" " spec_0" -" orig-s_61" +" orig-s_59" " null" " #f" " at-phase_13" -" ns_121" +" ns_122" " rp_1" " protected?_15)" "(values" @@ -68066,41 +68354,41 @@ static const char *startup_source = "(check-nested_1" " 'phaseless)" "(values))))" -"(let-values(((ok?_67" +"(let-values(((ok?_66" " all-defined-except66_0" " id67_0)" -"(let-values(((s_426)" +"(let-values(((s_414)" " disarmed-spec_0))" "(let-values(((orig-s_69)" -" s_426))" +" s_414))" "(let-values(((all-defined-except66_1" " id67_1)" +"(let-values(((s_214)" +"(if(syntax?$1" +" s_414)" +"(syntax-e$1" +" s_414)" +" s_414)))" +"(if(pair?" +" s_214)" +"(let-values(((all-defined-except68_0)" +"(let-values(((s_500)" +"(car" +" s_214)))" +" s_500))" +"((id69_0)" +"(let-values(((s_215)" +"(cdr" +" s_214)))" "(let-values(((s_216)" "(if(syntax?$1" -" s_426)" +" s_215)" "(syntax-e$1" -" s_426)" -" s_426)))" -"(if(pair?" -" s_216)" -"(let-values(((all-defined-except68_0)" -"(let-values(((s_331)" -"(car" -" s_216)))" -" s_331))" -"((id69_0)" -"(let-values(((s_217)" -"(cdr" -" s_216)))" -"(let-values(((s_218)" -"(if(syntax?$1" -" s_217)" -"(syntax-e$1" -" s_217)" -" s_217)))" +" s_215)" +" s_215)))" "(let-values(((flat-s_48)" "(to-syntax-list.1" -" s_218)))" +" s_216)))" "(if(not" " flat-s_48)" "(let-values()" @@ -68109,8 +68397,8 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_69))" "(let-values()" -"(let-values(((id_131)" -"(let-values(((lst_398)" +"(let-values(((id_137)" +"(let-values(((lst_401)" " flat-s_48))" "(begin" "(if(variable-reference-from-unsafe?" @@ -68118,61 +68406,61 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_398)))" -"((letrec-values(((for-loop_304)" -"(lambda(id_132" -" lst_399)" +" lst_401)))" +"((letrec-values(((for-loop_312)" +"(lambda(id_138" +" lst_402)" "(begin" " 'for-loop" "(if(pair?" -" lst_399)" -"(let-values(((s_509)" +" lst_402)" +"(let-values(((s_742)" "(unsafe-car" -" lst_399))" -"((rest_235)" +" lst_402))" +"((rest_229)" "(unsafe-cdr" -" lst_399)))" -"(let-values(((id_133)" -"(let-values(((id_134)" -" id_132))" -"(let-values(((id_30)" +" lst_402)))" +"(let-values(((id_139)" +"(let-values(((id_140)" +" id_138))" +"(let-values(((id_29)" "(let-values()" "(let-values(((id70_0)" "(let-values()" -"(if(let-values(((or-part_393)" +"(if(let-values(((or-part_392)" "(if(syntax?$1" -" s_509)" +" s_742)" "(symbol?" "(syntax-e$1" -" s_509))" +" s_742))" " #f)))" -"(if or-part_393" -" or-part_393" +"(if or-part_392" +" or-part_392" "(symbol?" -" s_509)))" -" s_509" +" s_742)))" +" s_742" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_69" -" s_509)))))" +" s_742)))))" "(cons" " id70_0" -" id_134)))))" +" id_140)))))" "(values" -" id_30)))))" +" id_29)))))" "(if(not" " #f)" -"(for-loop_304" -" id_133" -" rest_235)" -" id_133)))" -" id_132)))))" -" for-loop_304)" +"(for-loop_312" +" id_139" +" rest_229)" +" id_139)))" +" id_138)))))" +" for-loop_312)" " null" -" lst_398)))))" +" lst_401)))))" "(reverse$1" -" id_131)))))))))" +" id_137)))))))))" "(values" " all-defined-except68_0" " id69_0))" @@ -68186,13 +68474,13 @@ static const char *startup_source = " id67_1))))))" "(begin" "(parse-all-from-module" -" self_31" +" self_30" " spec_0" -" orig-s_61" +" orig-s_59" " id67_0" " #f" " at-phase_13" -" ns_121" +" ns_122" " rp_1" " protected?_15)" "(values" @@ -68208,73 +68496,73 @@ static const char *startup_source = "(check-nested_1" " 'phaseless)" "(values))))" -"(let-values(((ok?_68" +"(let-values(((ok?_67" " prefix-all-defined71_0" " id:prefix72_0)" -"(let-values(((s_404)" +"(let-values(((s_502)" " disarmed-spec_0))" "(let-values(((orig-s_70)" -" s_404))" +" s_502))" "(let-values(((prefix-all-defined71_1" " id:prefix72_1)" +"(let-values(((s_416)" +"(if(syntax?$1" +" s_502)" +"(syntax-e$1" +" s_502)" +" s_502)))" +"(if(pair?" +" s_416)" +"(let-values(((prefix-all-defined73_0)" +"(let-values(((s_743)" +"(car" +" s_416)))" +" s_743))" +"((id:prefix74_0)" +"(let-values(((s_503)" +"(cdr" +" s_416)))" "(let-values(((s_744)" "(if(syntax?$1" -" s_404)" +" s_503)" "(syntax-e$1" -" s_404)" -" s_404)))" +" s_503)" +" s_503)))" "(if(pair?" " s_744)" -"(let-values(((prefix-all-defined73_0)" -"(let-values(((s_517)" -"(car" -" s_744)))" -" s_517))" -"((id:prefix74_0)" -"(let-values(((s_745)" -"(cdr" -" s_744)))" -"(let-values(((s_746)" -"(if(syntax?$1" -" s_745)" -"(syntax-e$1" -" s_745)" -" s_745)))" -"(if(pair?" -" s_746)" "(let-values(((id:prefix75_0)" -"(let-values(((s_747)" +"(let-values(((s_745)" "(car" -" s_746)))" -"(if(let-values(((or-part_394)" +" s_744)))" +"(if(let-values(((or-part_393)" "(if(syntax?$1" -" s_747)" +" s_745)" "(symbol?" "(syntax-e$1" -" s_747))" +" s_745))" " #f)))" -"(if or-part_394" -" or-part_394" +"(if or-part_393" +" or-part_393" "(symbol?" -" s_747)))" -" s_747" +" s_745)))" +" s_745" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_70" -" s_747))))" +" s_745))))" "(()" -"(let-values(((s_748)" +"(let-values(((s_746)" "(cdr" -" s_746)))" -"(let-values(((s_474)" +" s_744)))" +"(let-values(((s_747)" "(if(syntax?$1" -" s_748)" +" s_746)" "(syntax-e$1" -" s_748)" -" s_748)))" +" s_746)" +" s_746)))" "(if(null?" -" s_474)" +" s_747)" "(values)" "(raise-syntax-error$1" " #f" @@ -68299,14 +68587,14 @@ static const char *startup_source = " id:prefix72_1))))))" "(begin" "(parse-all-from-module" -" self_31" +" self_30" " spec_0" -" orig-s_61" +" orig-s_59" " null" "(syntax-e$1" " id:prefix72_0)" " at-phase_13" -" ns_121" +" ns_122" " rp_1" " protected?_15)" "(values" @@ -68322,77 +68610,77 @@ static const char *startup_source = "(check-nested_1" " 'phaseless)" "(values))))" -"(let-values(((ok?_69" +"(let-values(((ok?_68" " prefix-all-defined-except76_0" " id:prefix77_0" " id78_0)" -"(let-values(((s_234)" +"(let-values(((s_232)" " disarmed-spec_0))" "(let-values(((orig-s_71)" -" s_234))" +" s_232))" "(let-values(((prefix-all-defined-except76_1" " id:prefix77_1" " id78_1)" -"(let-values(((s_340)" +"(let-values(((s_331)" "(if(syntax?$1" -" s_234)" +" s_232)" "(syntax-e$1" -" s_234)" -" s_234)))" +" s_232)" +" s_232)))" "(if(pair?" -" s_340)" +" s_331)" "(let-values(((prefix-all-defined-except79_0)" -"(let-values(((s_344)" +"(let-values(((s_334)" "(car" -" s_340)))" -" s_344))" +" s_331)))" +" s_334))" "((id:prefix80_0" " id81_0)" -"(let-values(((s_345)" +"(let-values(((s_335)" "(cdr" -" s_340)))" -"(let-values(((s_346)" +" s_331)))" +"(let-values(((s_336)" "(if(syntax?$1" -" s_345)" +" s_335)" "(syntax-e$1" -" s_345)" -" s_345)))" +" s_335)" +" s_335)))" "(if(pair?" -" s_346)" +" s_336)" "(let-values(((id:prefix82_0)" -"(let-values(((s_454)" +"(let-values(((s_339)" "(car" -" s_346)))" -"(if(let-values(((or-part_395)" +" s_336)))" +"(if(let-values(((or-part_394)" "(if(syntax?$1" -" s_454)" +" s_339)" "(symbol?" "(syntax-e$1" -" s_454))" +" s_339))" " #f)))" -"(if or-part_395" -" or-part_395" +"(if or-part_394" +" or-part_394" "(symbol?" -" s_454)))" -" s_454" +" s_339)))" +" s_339" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_71" -" s_454))))" -"((id83_0)" -"(let-values(((s_455)" +" s_339))))" +"((id83_1)" +"(let-values(((s_341)" "(cdr" -" s_346)))" -"(let-values(((s_519)" +" s_336)))" +"(let-values(((s_748)" "(if(syntax?$1" -" s_455)" +" s_341)" "(syntax-e$1" -" s_455)" -" s_455)))" +" s_341)" +" s_341)))" "(let-values(((flat-s_49)" "(to-syntax-list.1" -" s_519)))" +" s_748)))" "(if(not" " flat-s_49)" "(let-values()" @@ -68401,7 +68689,7 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_71))" "(let-values()" -"(let-values(((id_135)" +"(let-values(((id_141)" "(let-values(((lst_4)" " flat-s_49))" "(begin" @@ -68411,35 +68699,35 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_4)))" -"((letrec-values(((for-loop_305)" -"(lambda(id_136" -" lst_400)" +"((letrec-values(((for-loop_313)" +"(lambda(id_142" +" lst_403)" "(begin" " 'for-loop" "(if(pair?" -" lst_400)" +" lst_403)" "(let-values(((s_749)" "(unsafe-car" -" lst_400))" -"((rest_236)" +" lst_403))" +"((rest_187)" "(unsafe-cdr" -" lst_400)))" -"(let-values(((id_137)" -"(let-values(((id_82)" -" id_136))" -"(let-values(((id_138)" +" lst_403)))" +"(let-values(((id_143)" +"(let-values(((id_144)" +" id_142))" +"(let-values(((id_145)" "(let-values()" "(let-values(((id84_2)" "(let-values()" -"(if(let-values(((or-part_396)" +"(if(let-values(((or-part_395)" "(if(syntax?$1" " s_749)" "(symbol?" "(syntax-e$1" " s_749))" " #f)))" -"(if or-part_396" -" or-part_396" +"(if or-part_395" +" or-part_395" "(symbol?" " s_749)))" " s_749" @@ -68450,24 +68738,24 @@ static const char *startup_source = " s_749)))))" "(cons" " id84_2" -" id_82)))))" +" id_144)))))" "(values" -" id_138)))))" +" id_145)))))" "(if(not" " #f)" -"(for-loop_305" -" id_137" -" rest_236)" -" id_137)))" -" id_136)))))" -" for-loop_305)" +"(for-loop_313" +" id_143" +" rest_187)" +" id_143)))" +" id_142)))))" +" for-loop_313)" " null" " lst_4)))))" "(reverse$1" -" id_135)))))))))" +" id_141)))))))))" "(values" " id:prefix82_0" -" id83_0))" +" id83_1))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" @@ -68487,14 +68775,14 @@ static const char *startup_source = " id78_1))))))" "(begin" "(parse-all-from-module" -" self_31" +" self_30" " spec_0" -" orig-s_61" +" orig-s_59" " id78_0" "(syntax-e$1" " id:prefix77_0)" " at-phase_13" -" ns_121" +" ns_122" " rp_1" " protected?_15)" "(values" @@ -68502,69 +68790,69 @@ static const char *startup_source = "(list" " spec_0))))))" "(let-values()" -"(let-values(((ok?_70" +"(let-values(((ok?_69" " expand85_0" -" id86_0" +" id86_1" " datum87_0)" "(let-values(((s_750)" " disarmed-spec_0))" "(let-values(((orig-s_72)" " s_750))" "(let-values(((expand85_1" -" id86_1" +" id86_2" " datum87_1)" -"(let-values(((s_248)" +"(let-values(((s_246)" "(if(syntax?$1" " s_750)" "(syntax-e$1" " s_750)" " s_750)))" "(if(pair?" -" s_248)" +" s_246)" "(let-values(((expand88_0)" -"(let-values(((s_249)" +"(let-values(((s_247)" "(car" -" s_248)))" -" s_249))" +" s_246)))" +" s_247))" "((id89_1" " datum90_0)" -"(let-values(((s_477)" -"(cdr" -" s_248)))" -"(let-values(((s_250)" -"(if(syntax?$1" -" s_477)" -"(syntax-e$1" -" s_477)" -" s_477)))" -"(if(pair?" -" s_250)" -"(let-values(((id91_1" -" datum92_0)" "(let-values(((s_751)" -"(car" -" s_250)))" -"(let-values(((s_252)" +"(cdr" +" s_246)))" +"(let-values(((s_248)" "(if(syntax?$1" " s_751)" "(syntax-e$1" " s_751)" " s_751)))" "(if(pair?" -" s_252)" +" s_248)" +"(let-values(((id91_1" +" datum92_0)" +"(let-values(((s_516)" +"(car" +" s_248)))" +"(let-values(((s_250)" +"(if(syntax?$1" +" s_516)" +"(syntax-e$1" +" s_516)" +" s_516)))" +"(if(pair?" +" s_250)" "(let-values(((id93_0)" "(let-values(((s_752)" "(car" -" s_252)))" -"(if(let-values(((or-part_397)" +" s_250)))" +"(if(let-values(((or-part_396)" "(if(syntax?$1" " s_752)" "(symbol?" "(syntax-e$1" " s_752))" " #f)))" -"(if or-part_397" -" or-part_397" +"(if or-part_396" +" or-part_396" "(symbol?" " s_752)))" " s_752" @@ -68574,10 +68862,10 @@ static const char *startup_source = " orig-s_72" " s_752))))" "((datum94_0)" -"(let-values(((s_365)" +"(let-values(((s_446)" "(cdr" -" s_252)))" -" s_365)))" +" s_250)))" +" s_446)))" "(values" " id93_0" " datum94_0))" @@ -68586,17 +68874,17 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_72)))))" "(()" -"(let-values(((s_366)" +"(let-values(((s_447)" "(cdr" -" s_250)))" -"(let-values(((s_367)" +" s_248)))" +"(let-values(((s_359)" "(if(syntax?$1" -" s_366)" +" s_447)" "(syntax-e$1" -" s_366)" -" s_366)))" +" s_447)" +" s_447)))" "(if(null?" -" s_367)" +" s_359)" "(values)" "(raise-syntax-error$1" " #f" @@ -68620,59 +68908,59 @@ static const char *startup_source = "(values" " #t" " expand85_1" -" id86_1" +" id86_2" " datum87_1))))))" -"(let-values(((ok?_71" +"(let-values(((ok?_70" " expand95_0" " form96_0)" -"(let-values(((s_368)" +"(let-values(((s_360)" " disarmed-spec_0))" "(let-values(((orig-s_73)" -" s_368))" +" s_360))" "(let-values(((expand95_1" " form96_1)" -"(let-values(((s_371)" +"(let-values(((s_363)" "(if(syntax?$1" -" s_368)" +" s_360)" "(syntax-e$1" -" s_368)" -" s_368)))" +" s_360)" +" s_360)))" "(if(pair?" -" s_371)" +" s_363)" "(let-values(((expand97_0)" -"(let-values(((s_374)" +"(let-values(((s_366)" "(car" -" s_371)))" -" s_374))" +" s_363)))" +" s_366))" "((form98_0)" -"(let-values(((s_375)" +"(let-values(((s_367)" "(cdr" -" s_371)))" -"(let-values(((s_376)" +" s_363)))" +"(let-values(((s_368)" "(if(syntax?$1" -" s_375)" +" s_367)" "(syntax-e$1" -" s_375)" -" s_375)))" +" s_367)" +" s_367)))" "(if(pair?" -" s_376)" +" s_368)" "(let-values(((form99_0)" -"(let-values(((s_753)" +"(let-values(((s_370)" "(car" -" s_376)))" -" s_753))" +" s_368)))" +" s_370))" "(()" -"(let-values(((s_754)" +"(let-values(((s_371)" "(cdr" -" s_376)))" -"(let-values(((s_755)" +" s_368)))" +"(let-values(((s_753)" "(if(syntax?$1" -" s_754)" +" s_371)" "(syntax-e$1" -" s_754)" -" s_754)))" +" s_371)" +" s_371)))" "(if(null?" -" s_755)" +" s_753)" "(values)" "(raise-syntax-error$1" " #f" @@ -68699,10 +68987,10 @@ static const char *startup_source = "(let-values(((temp104_4)" " form96_0)" "((temp105_4)" -"(let-values(((v_253)" -" ctx_103))" +"(let-values(((v_258)" +" ctx_105))" "(let-values(((the-struct_99)" -" v_253))" +" v_258))" "(if(expand-context/outer?" " the-struct_99)" "(let-values(((def-ctx-scopes106_0)" @@ -68711,7 +68999,7 @@ static const char *startup_source = "((inner107_0)" "(let-values(((the-struct_100)" "(root-expand-context/outer-inner" -" v_253)))" +" v_258)))" "(if(expand-context/inner?" " the-struct_100)" "(let-values(((stops108_0)" @@ -68836,44 +69124,44 @@ static const char *startup_source = "(raise-syntax-error$1" " provide-form-name" " \"expansion was not a `begin' sequence\"" -" orig-s_61" +" orig-s_59" " spec_0)))" "(values))))" -"(let-values(((ok?_72" +"(let-values(((ok?_71" " begin100_0" " spec101_0)" -"(let-values(((s_380)" +"(let-values(((s_754)" " exp-spec_0))" "(let-values(((orig-s_74)" -" s_380))" +" s_754))" "(let-values(((begin100_1" " spec101_1)" -"(let-values(((s_381)" +"(let-values(((s_755)" "(if(syntax?$1" -" s_380)" +" s_754)" "(syntax-e$1" -" s_380)" -" s_380)))" +" s_754)" +" s_754)))" "(if(pair?" -" s_381)" +" s_755)" "(let-values(((begin102_0)" -"(let-values(((s_756)" +"(let-values(((s_376)" "(car" -" s_381)))" -" s_756))" +" s_755)))" +" s_376))" "((spec103_0)" -"(let-values(((s_478)" +"(let-values(((s_377)" "(cdr" -" s_381)))" -"(let-values(((s_383)" +" s_755)))" +"(let-values(((s_378)" "(if(syntax?$1" -" s_478)" +" s_377)" "(syntax-e$1" -" s_478)" -" s_478)))" +" s_377)" +" s_377)))" "(let-values(((flat-s_50)" "(to-syntax-list.1" -" s_383)))" +" s_378)))" "(if(not" " flat-s_50)" "(let-values()" @@ -68896,7 +69184,7 @@ static const char *startup_source = " spec101_1))))))" "(let-values(((track-stxes_9" " exp-specs_9)" -"(loop_118" +"(loop_113" " spec101_0" " at-phase_13" " protected?_15" @@ -68921,7 +69209,7 @@ static const char *startup_source = "(for-loop_92" " track-stxes_2" " exp-specs_2" -" rest_232)" +" rest_227)" "(values" " track-stxes_2" " exp-specs_2))))" @@ -68931,22 +69219,22 @@ static const char *startup_source = " for-loop_92)" " null" " null" -" lst_74)))))" +" lst_76)))))" "(values(reverse$1 track-stxes_0)(reverse$1 exp-specs_0)))))" "(values(apply append track-stxess_0)(apply append exp-specss_0)))))))" -" loop_118)" +" loop_113)" " specs_0" -" phase_41" +" phase_43" " #f" " 'raw)))))" "(define-values" "(parse-identifier!)" -"(lambda(spec_1 orig-s_75 sym_102 at-phase_14 ns_122 rp_2 protected?_16)" +"(lambda(spec_1 orig-s_75 sym_102 at-phase_5 ns_123 rp_2 protected?_16)" "(begin" -"(let-values(((b_91)(resolve+shift/extra-inspector spec_1 at-phase_14 ns_122)))" +"(let-values(((b_90)(resolve+shift/extra-inspector spec_1 at-phase_5 ns_123)))" "(let-values((()" "(begin" -"(if b_91" +"(if b_90" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -68955,24 +69243,32 @@ static const char *startup_source = " orig-s_75" " spec_1)))" "(values))))" -"(let-values(((as-transformer?_6)(binding-for-transformer? b_91 spec_1 at-phase_14 ns_122)))" +"(let-values(((as-transformer?_6)(binding-for-transformer? b_90 spec_1 at-phase_5 ns_123)))" "(let-values(((immed-b_0)" -"(let-values(((temp120_4) #t))" -"(resolve+shift30.1 #f #f #f #f #f #f temp120_4 #t #f #f spec_1 at-phase_14))))" -"(let-values(((protected?116_0) protected?_16)((as-transformer?117_0) as-transformer?_6))" +"(let-values(((spec118_0) spec_1)((at-phase119_0) at-phase_5)((temp120_4) #t))" +"(resolve+shift30.1 #f #f #f #f #f #f temp120_4 #t #f #f spec118_0 at-phase119_0))))" +"(let-values(((rp109_0) rp_2)" +"((sym110_0) sym_102)" +"((at-phase111_0) at-phase_5)" +"((b112_0) b_90)" +"((immed-b113_0) immed-b_0)" +"((spec114_0) spec_1)" +"((orig-s115_0) orig-s_75)" +"((protected?116_0) protected?_16)" +"((as-transformer?117_0) as-transformer?_6))" "(add-provide!107.1" " protected?116_0" " as-transformer?117_0" -" rp_2" -" sym_102" -" at-phase_14" -" b_91" -" immed-b_0" -" spec_1" -" orig-s_75)))))))))" +" rp109_0" +" sym110_0" +" at-phase111_0" +" b112_0" +" immed-b113_0" +" spec114_0" +" orig-s115_0)))))))))" "(define-values" "(parse-struct!)" -"(lambda(id:struct_0 orig-s_76 fields_0 at-phase_15 ns_123 rp_3 protected?_17)" +"(lambda(id:struct_0 orig-s_76 fields_0 at-phase_14 ns_124 rp_3 protected?_17)" "(begin" "(let-values(((mk_0)" "(lambda(fmt_1)" @@ -68989,50 +69285,50 @@ static const char *startup_source = "(format fmt_2(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))" "(datum->syntax$1 id:struct_0 sym_104 id:struct_0))))))" "(begin" -" (let-values (((lst_401) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" +" (let-values (((lst_404) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_401)))" -"((letrec-values(((for-loop_306)" -"(lambda(lst_402)" +"(let-values()(check-list lst_404)))" +"((letrec-values(((for-loop_314)" +"(lambda(lst_405)" "(begin" " 'for-loop" -"(if(pair? lst_402)" -"(let-values(((fmt_3)(unsafe-car lst_402))((rest_237)(unsafe-cdr lst_402)))" +"(if(pair? lst_405)" +"(let-values(((fmt_3)(unsafe-car lst_405))((rest_230)(unsafe-cdr lst_405)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((id_139)(mk_0 fmt_3)))" +"(let-values(((id_146)(mk_0 fmt_3)))" "(parse-identifier!" -" id_139" +" id_146" " orig-s_76" -"(syntax-e$1 id_139)" -" at-phase_15" -" ns_123" +"(syntax-e$1 id_146)" +" at-phase_14" +" ns_124" " rp_3" " protected?_17)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_306 rest_237)(values))))" +"(if(not #f)(for-loop_314 rest_230)(values))))" "(values))))))" -" for-loop_306)" -" lst_401)))" +" for-loop_314)" +" lst_404)))" "(void)" -"(let-values(((lst_403) fields_0))" +"(let-values(((lst_406) fields_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_403)))" -"((letrec-values(((for-loop_307)" -"(lambda(lst_404)" +"(let-values()(check-list lst_406)))" +"((letrec-values(((for-loop_315)" +"(lambda(lst_354)" "(begin" " 'for-loop" -"(if(pair? lst_404)" -"(let-values(((field_0)(unsafe-car lst_404))((rest_238)(unsafe-cdr lst_404)))" +"(if(pair? lst_354)" +"(let-values(((field_0)(unsafe-car lst_354))((rest_231)(unsafe-cdr lst_354)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69050,28 +69346,28 @@ static const char *startup_source = " get-id_0" " orig-s_76" "(syntax-e$1 get-id_0)" -" at-phase_15" -" ns_123" +" at-phase_14" +" ns_124" " rp_3" " protected?_17)" "(parse-identifier!" " set-id_0" " orig-s_76" "(syntax-e$1 set-id_0)" -" at-phase_15" -" ns_123" +" at-phase_14" +" ns_124" " rp_3" " protected?_17)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_307 rest_238)(values))))" +"(if(not #f)(for-loop_315 rest_231)(values))))" "(values))))))" -" for-loop_307)" -" lst_403)))" +" for-loop_315)" +" lst_406)))" "(void)))))))" "(define-values" "(parse-all-from)" -"(lambda(mod-path-stx_0 orig-s_77 self_32 except-ids_0 at-phase_16 ns_124 rp_4 protected?_18 ctx_104)" +"(lambda(mod-path-stx_0 orig-s_77 self_31 except-ids_0 at-phase_15 ns_125 rp_4 protected?_18 ctx_106)" "(begin" "(let-values(((mod-path_33)(syntax->datum$1 mod-path-stx_0)))" "(let-values((()" @@ -69081,22 +69377,22 @@ static const char *startup_source = "(let-values()" " (raise-syntax-error$1 provide-form-name \"not a module path\" orig-s_77 mod-path-stx_0)))" "(values))))" -"(let-values(((mpi_52)(module-path->mpi/context mod-path_33 ctx_104)))" -"(parse-all-from-module mpi_52 #f orig-s_77 except-ids_0 #f at-phase_16 ns_124 rp_4 protected?_18)))))))" +"(let-values(((mpi_51)(module-path->mpi/context mod-path_33 ctx_106)))" +"(parse-all-from-module mpi_51 #f orig-s_77 except-ids_0 #f at-phase_15 ns_125 rp_4 protected?_18)))))))" "(define-values" "(parse-all-from-module)" -"(lambda(mpi_53 matching-stx_0 orig-s_78 except-ids_1 prefix-sym_0 at-phase_17 ns_26 rp_5 protected?_19)" +"(lambda(mpi_52 matching-stx_0 orig-s_78 except-ids_1 prefix-sym_0 at-phase_16 ns_126 rp_5 protected?_19)" "(begin" -"(let-values(((requireds_2)(extract-module-requires rp_5 mpi_53 at-phase_17)))" +"(let-values(((requireds_2)(extract-module-requires rp_5 mpi_52 at-phase_16)))" "(let-values(((phase-desc_0)" "(lambda()" "(begin" " 'phase-desc" -"(if(zero-phase? at-phase_17)" +"(if(zero-phase? at-phase_16)" " (let-values () \"\")" -"(if(label-phase? at-phase_17)" +"(if(label-phase? at-phase_16)" " (let-values () \" for-label\")" -" (let-values () (format \" for phase ~a\" at-phase_17))))))))" +" (let-values () (format \" for phase ~a\" at-phase_16))))))))" "(let-values((()" "(begin" "(if requireds_2" @@ -69115,48 +69411,48 @@ static const char *startup_source = " (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_105)) sym_105)))))" "(let-values(((found_0)(make-hasheq)))" "(begin" -"(let-values(((lst_405) requireds_2))" +"(let-values(((lst_240) requireds_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_405)))" -"((letrec-values(((for-loop_308)" -"(lambda(lst_406)" +"(let-values()(check-list lst_240)))" +"((letrec-values(((for-loop_316)" +"(lambda(lst_407)" "(begin" " 'for-loop" -"(if(pair? lst_406)" -"(let-values(((i_193)(unsafe-car lst_406))" -"((rest_239)(unsafe-cdr lst_406)))" +"(if(pair? lst_407)" +"(let-values(((i_187)(unsafe-car lst_407))" +"((rest_232)(unsafe-cdr lst_407)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((id_140)" -"(required-id i_193)))" -"(let-values(((phase_149)" +"(let-values(((id_147)" +"(required-id i_187)))" +"(let-values(((phase_147)" "(required-phase" -" i_193)))" -"(if(let-values(((or-part_398)" +" i_187)))" +"(if(let-values(((or-part_397)" "(if matching-stx_0" "(not" "(if(eqv?" -" phase_149" -" at-phase_17)" +" phase_147" +" at-phase_16)" "(free-identifier=?$1" -" id_140" +" id_147" "(datum->syntax$1" " matching-stx_0" "(syntax-e$1" -" id_140))" -" phase_149" -" phase_149)" +" id_147))" +" phase_147" +" phase_147)" " #f))" " #f)))" -"(if or-part_398" -" or-part_398" -"(let-values(((lst_235)" +"(if or-part_397" +" or-part_397" +"(let-values(((lst_408)" " except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69164,61 +69460,65 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_235)))" -"((letrec-values(((for-loop_309)" -"(lambda(result_121" -" lst_407)" +" lst_408)))" +"((letrec-values(((for-loop_317)" +"(lambda(result_120" +" lst_122)" "(begin" " 'for-loop" "(if(pair?" -" lst_407)" +" lst_122)" "(let-values(((except-id_0)" "(unsafe-car" -" lst_407))" -"((rest_213)" +" lst_122))" +"((rest_233)" "(unsafe-cdr" -" lst_407)))" -"(let-values(((result_122)" +" lst_122)))" +"(let-values(((result_121)" "(let-values()" -"(let-values(((result_123)" +"(let-values(((result_122)" "(let-values()" "(let-values()" "(if(free-identifier=?$1" -" id_140" +" id_147" " except-id_0" -" phase_149" -" phase_149)" +" phase_147" +" phase_147)" "(hash-set!" " found_0" " except-id_0" " #t)" " #f)))))" "(values" -" result_123)))))" +" result_122)))))" "(if(if(not" "((lambda x_92" -" result_122)" +" result_121)" " except-id_0))" "(not" " #f)" " #f)" -"(for-loop_309" -" result_122" -" rest_213)" -" result_122)))" -" result_121)))))" -" for-loop_309)" +"(for-loop_317" +" result_121" +" rest_233)" +" result_121)))" +" result_120)))))" +" for-loop_317)" " #f" -" lst_235)))))" +" lst_408)))))" "(void)" "(let-values()" -"(let-values(((b_92)" +"(let-values(((b_91)" "(resolve+shift/extra-inspector" -" id_140" -" phase_149" -" ns_26)))" +" id_147" +" phase_147" +" ns_126)))" "(let-values(((immed-b_1)" -"(let-values(((temp132_2)" +"(let-values(((id130_0)" +" id_147)" +"((phase131_0)" +" phase_147)" +"((temp132_2)" " #t))" "(resolve+shift30.1" " #f" @@ -69231,31 +69531,33 @@ static const char *startup_source = " #t" " #f" " #f" -" id_140" -" phase_149))))" -"(let-values(((temp122_4)" +" id130_0" +" phase131_0))))" +"(let-values(((rp121_0)" +" rp_5)" +"((temp122_4)" "(add-prefix_1" "(syntax-e$1" -" id_140)))" +" id_147)))" "((phase123_0)" -" phase_149)" +" phase_147)" "((b124_0)" -" b_92)" +" b_91)" "((immed-b125_0)" " immed-b_1)" "((id126_0)" -" id_140)" +" id_147)" "((orig-s127_0)" " orig-s_78)" "((protected?128_0)" " protected?_19)" "((temp129_3)" "(required-as-transformer?" -" i_193)))" +" i_187)))" "(add-provide!107.1" " protected?128_0" " temp129_3" -" rp_5" +" rp121_0" " temp122_4" " phase123_0" " b124_0" @@ -69264,41 +69566,41 @@ static const char *startup_source = " orig-s127_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_308 rest_239)(values))))" +"(if(not #f)(for-loop_316 rest_232)(values))))" "(values))))))" -" for-loop_308)" -" lst_405)))" +" for-loop_316)" +" lst_240)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" "(void)" "(let-values()" "(begin" -"(let-values(((lst_364) except-ids_1))" +"(let-values(((lst_144) except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_364)))" -"((letrec-values(((for-loop_310)" -"(lambda(lst_366)" +"(let-values()(check-list lst_144)))" +"((letrec-values(((for-loop_171)" +"(lambda(lst_409)" "(begin" " 'for-loop" -"(if(pair? lst_366)" -"(let-values(((except-id_1)(unsafe-car lst_366))" -"((rest_240)(unsafe-cdr lst_366)))" +"(if(pair? lst_409)" +"(let-values(((except-id_1)(unsafe-car lst_409))" +"((rest_188)(unsafe-cdr lst_409)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(if(let-values(((or-part_162)" +"(if(let-values(((or-part_398)" "(hash-ref" " found_0" " except-id_1" " #f)))" -"(if or-part_162" -" or-part_162" -"(let-values(((lst_367)" +"(if or-part_398" +" or-part_398" +"(let-values(((lst_410)" " requireds_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -69306,53 +69608,53 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_367)))" -"((letrec-values(((for-loop_311)" -"(lambda(result_124" -" lst_142)" +" lst_410)))" +"((letrec-values(((for-loop_318)" +"(lambda(result_123" +" lst_411)" "(begin" " 'for-loop" "(if(pair?" -" lst_142)" -"(let-values(((i_194)" +" lst_411)" +"(let-values(((i_188)" "(unsafe-car" -" lst_142))" -"((rest_216)" +" lst_411))" +"((rest_234)" "(unsafe-cdr" -" lst_142)))" +" lst_411)))" +"(let-values(((result_124)" +"(let-values()" "(let-values(((result_125)" "(let-values()" -"(let-values(((result_126)" "(let-values()" -"(let-values()" -"(let-values(((id_141)" +"(let-values(((id_148)" "(required-id" -" i_194)))" -"(let-values(((phase_150)" +" i_188)))" +"(let-values(((phase_60)" "(required-phase" -" i_194)))" +" i_188)))" "(free-identifier=?$1" -" id_141" +" id_148" " except-id_1" -" phase_150" -" phase_150)))))))" +" phase_60" +" phase_60)))))))" "(values" -" result_126)))))" +" result_125)))))" "(if(if(not" "((lambda x_93" -" result_125)" -" i_194))" +" result_124)" +" i_188))" "(not" " #f)" " #f)" -"(for-loop_311" -" result_125" -" rest_216)" -" result_125)))" -" result_124)))))" -" for-loop_311)" +"(for-loop_318" +" result_124" +" rest_234)" +" result_124)))" +" result_123)))))" +" for-loop_318)" " #f" -" lst_367)))))" +" lst_410)))))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -69366,10 +69668,10 @@ static const char *startup_source = " except-id_1))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_310 rest_240)(values))))" +"(if(not #f)(for-loop_171 rest_188)(values))))" "(values))))))" -" for-loop_310)" -" lst_364)))" +" for-loop_171)" +" lst_144)))" "(void)))))))))))))" "(define-values" "(check-cross-phase-persistent-form)" @@ -69380,95 +69682,95 @@ static const char *startup_source = "(begin" " 'check-body" "(begin" -"(let-values(((lst_408) bodys_14))" +"(let-values(((lst_412) bodys_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_408)))" -"((letrec-values(((for-loop_312)" -"(lambda(lst_81)" +"(let-values()(check-list lst_412)))" +"((letrec-values(((for-loop_319)" +"(lambda(lst_83)" "(begin" " 'for-loop" -"(if(pair? lst_81)" -"(let-values(((body_21)(unsafe-car lst_81))" -"((rest_38)(unsafe-cdr lst_81)))" +"(if(pair? lst_83)" +"(let-values(((body_21)(unsafe-car lst_83))" +"((rest_39)(unsafe-cdr lst_83)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((p_38)" +"(let-values(((p_34)" "(if(expanded+parsed?" " body_21)" "(expanded+parsed-parsed" " body_21)" " body_21)))" "(if(parsed-define-values?" -" p_38)" +" p_34)" "(let-values()" "(check-expr_0" "(parsed-define-values-rhs" -" p_38)" +" p_34)" "(length" "(parsed-define-values-syms" -" p_38))" -" p_38))" -"(if(let-values(((or-part_223)" +" p_34))" +" p_34))" +"(if(let-values(((or-part_218)" "(parsed-#%declare?" -" p_38)))" -"(if or-part_223" -" or-part_223" +" p_34)))" +"(if or-part_218" +" or-part_218" "(let-values(((or-part_3)" "(parsed-module?" -" p_38)))" +" p_34)))" "(if or-part_3" " or-part_3" "(syntax?$1" -" p_38)))))" +" p_34)))))" "(let-values()" "(void))" "(let-values()" "(disallow" -" p_38))))))" +" p_34))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_312 rest_38)(values))))" +"(if(not #f)(for-loop_319 rest_39)(values))))" "(values))))))" -" for-loop_312)" -" lst_408)))" +" for-loop_319)" +" lst_412)))" "(void)))))" "((check-expr_0)" -"(lambda(e_86 num-results_0 enclosing_15)" +"(lambda(e_89 num-results_0 enclosing_15)" "(begin" " 'check-expr" -"(if(parsed-lambda? e_86)" +"(if(parsed-lambda? e_89)" "(let-values()" -"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_86)))" -"(if(parsed-case-lambda? e_86)" +"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_89)))" +"(if(parsed-case-lambda? e_89)" "(let-values()" -"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_86)))" -"(if(parsed-quote? e_86)" +"(begin(check-count 1 num-results_0 enclosing_15)(check-no-disallowed-expr_0 e_89)))" +"(if(parsed-quote? e_89)" "(let-values()" "(begin" -"(check-datum(parsed-quote-datum e_86) e_86)" +"(check-datum(parsed-quote-datum e_89) e_89)" "(check-count 1 num-results_0 enclosing_15)))" -"(if(parsed-app? e_86)" +"(if(parsed-app? e_89)" "(let-values()" -"(let-values(((rands_1)(parsed-app-rands e_86)))" +"(let-values(((rands_1)(parsed-app-rands e_89)))" "(begin" -"(let-values(((lst_75) rands_1))" +"(let-values(((lst_77) rands_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_75)))" -"((letrec-values(((for-loop_70)" -"(lambda(lst_82)" +"(let-values()(check-list lst_77)))" +"((letrec-values(((for-loop_69)" +"(lambda(lst_84)" "(begin" " 'for-loop" -"(if(pair? lst_82)" -"(let-values(((rand_0)(unsafe-car lst_82))" -"((rest_241)(unsafe-cdr lst_82)))" +"(if(pair? lst_84)" +"(let-values(((rand_0)(unsafe-car lst_84))" +"((rest_235)(unsafe-cdr lst_84)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69478,15 +69780,15 @@ static const char *startup_source = "(check-expr_0" " rand_0" " 1" -" e_86))" +" e_89))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_70 rest_241)(values))))" +"(if(not #f)(for-loop_69 rest_235)(values))))" "(values))))))" -" for-loop_70)" -" lst_75)))" +" for-loop_69)" +" lst_77)))" "(void)" -"(let-values(((tmp_64)(cross-phase-primitive-name(parsed-app-rator e_86))))" +"(let-values(((tmp_64)(cross-phase-primitive-name(parsed-app-rator e_89))))" "(if(if(equal? tmp_64 'cons) #t(equal? tmp_64 'list))" "(let-values()(check-count 1 num-results_0 enclosing_15))" "(if(equal? tmp_64 'make-struct-type)" @@ -69502,35 +69804,35 @@ static const char *startup_source = "(quoted-string?(car rands_1))" " #f)))" "(void)" -"(let-values()(disallow e_86))))" +"(let-values()(disallow e_89))))" "(if(equal? tmp_64 'string->uninterned-symbol)" "(let-values()" "(if(if(= 1(length rands_1))(quoted-string?(car rands_1)) #f)" "(void)" -"(let-values()(disallow e_86))))" -"(let-values()(disallow e_86)))))))))))" -"(let-values()(check-no-disallowed-expr_0 e_86)))))))))" +"(let-values()(disallow e_89))))" +"(let-values()(disallow e_89)))))))))))" +"(let-values()(check-no-disallowed-expr_0 e_89)))))))))" "((check-no-disallowed-expr_0)" -"(lambda(e_73)" +"(lambda(e_39)" "(begin" " 'check-no-disallowed-expr" -"(if(parsed-lambda? e_73)" -"(let-values()(check-body-no-disallowed-expr_0(parsed-lambda-body e_73)))" -"(if(parsed-case-lambda? e_73)" +"(if(parsed-lambda? e_39)" +"(let-values()(check-body-no-disallowed-expr_0(parsed-lambda-body e_39)))" +"(if(parsed-case-lambda? e_39)" "(let-values()" "(begin" -"(let-values(((lst_267)(parsed-case-lambda-clauses e_73)))" +"(let-values(((lst_270)(parsed-case-lambda-clauses e_39)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_267)))" -"((letrec-values(((for-loop_274)" -"(lambda(lst_409)" +"(let-values()(check-list lst_270)))" +"((letrec-values(((for-loop_235)" +"(lambda(lst_413)" "(begin" " 'for-loop" -"(if(pair? lst_409)" -"(let-values(((clause_4)(unsafe-car lst_409))" -"((rest_242)(unsafe-cdr lst_409)))" +"(if(pair? lst_413)" +"(let-values(((clause_4)(unsafe-car lst_413))" +"((rest_236)(unsafe-cdr lst_413)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69541,27 +69843,27 @@ static const char *startup_source = "(cadr clause_4)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_274 rest_242)(values))))" +"(if(not #f)(for-loop_235 rest_236)(values))))" "(values))))))" -" for-loop_274)" -" lst_267)))" +" for-loop_235)" +" lst_270)))" "(void)))" -"(if(parsed-app? e_73)" +"(if(parsed-app? e_39)" "(let-values()" "(begin" -"(check-no-disallowed-expr_0(parsed-app-rator e_73))" -"(let-values(((lst_218)(parsed-app-rands e_73)))" +"(check-no-disallowed-expr_0(parsed-app-rator e_39))" +"(let-values(((lst_222)(parsed-app-rands e_39)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_218)))" -"((letrec-values(((for-loop_101)" -"(lambda(lst_261)" +"(let-values()(check-list lst_222)))" +"((letrec-values(((for-loop_103)" +"(lambda(lst_266)" "(begin" " 'for-loop" -"(if(pair? lst_261)" -"(let-values(((e_87)(unsafe-car lst_261))" -"((rest_243)(unsafe-cdr lst_261)))" +"(if(pair? lst_266)" +"(let-values(((e_90)(unsafe-car lst_266))" +"((rest_189)(unsafe-cdr lst_266)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69569,64 +69871,64 @@ static const char *startup_source = "(begin" "(let-values()" "(check-no-disallowed-expr_0" -" e_87))" +" e_90))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_101 rest_243)(values))))" +"(if(not #f)(for-loop_103 rest_189)(values))))" "(values))))))" -" for-loop_101)" -" lst_218)))" +" for-loop_103)" +" lst_222)))" "(void)))" -"(if(parsed-if? e_73)" +"(if(parsed-if? e_39)" "(let-values()" "(begin" -"(check-no-disallowed-expr_0(parsed-if-tst e_73))" -"(check-no-disallowed-expr_0(parsed-if-thn e_73))" -"(check-no-disallowed-expr_0(parsed-if-els e_73))))" -"(if(parsed-set!? e_73)" +"(check-no-disallowed-expr_0(parsed-if-tst e_39))" +"(check-no-disallowed-expr_0(parsed-if-thn e_39))" +"(check-no-disallowed-expr_0(parsed-if-els e_39))))" +"(if(parsed-set!? e_39)" "(let-values()" -"(let-values(((id_142)(parsed-set!-id e_73)))" -"(let-values(((normal-b_1)(parsed-id-binding id_142)))" +"(let-values(((id_4)(parsed-set!-id e_39)))" +"(let-values(((normal-b_1)(parsed-id-binding id_4)))" "(begin" -"(if(let-values(((or-part_89)(not normal-b_1)))" -"(if or-part_89" -" or-part_89" -"(let-values(((or-part_90)(parsed-top-id? id_142)))" -"(if or-part_90" -" or-part_90" +"(if(let-values(((or-part_81)(not normal-b_1)))" +"(if or-part_81" +" or-part_81" +"(let-values(((or-part_82)(parsed-top-id? id_4)))" +"(if or-part_82" +" or-part_82" "(if(not(symbol? normal-b_1))" "(eq?(module-binding-module normal-b_1) self-mpi_6)" " #f)))))" -"(let-values()(disallow e_73))" +"(let-values()(disallow e_39))" "(void))" -"(check-no-disallowed-expr_0(parsed-set!-rhs e_73))))))" -"(if(parsed-with-continuation-mark? e_73)" +"(check-no-disallowed-expr_0(parsed-set!-rhs e_39))))))" +"(if(parsed-with-continuation-mark? e_39)" "(let-values()" "(begin" -"(check-no-disallowed-expr_0(parsed-with-continuation-mark-key e_73))" -"(check-no-disallowed-expr_0(parsed-with-continuation-mark-val e_73))" -"(check-no-disallowed-expr_0(parsed-with-continuation-mark-body e_73))))" -"(if(parsed-begin? e_73)" -"(let-values()(check-body-no-disallowed-expr_0(parsed-begin-body e_73)))" -"(if(parsed-begin0? e_73)" -"(let-values()(check-body-no-disallowed-expr_0(parsed-begin0-body e_73)))" -"(if(parsed-let_-values? e_73)" +"(check-no-disallowed-expr_0(parsed-with-continuation-mark-key e_39))" +"(check-no-disallowed-expr_0(parsed-with-continuation-mark-val e_39))" +"(check-no-disallowed-expr_0(parsed-with-continuation-mark-body e_39))))" +"(if(parsed-begin? e_39)" +"(let-values()(check-body-no-disallowed-expr_0(parsed-begin-body e_39)))" +"(if(parsed-begin0? e_39)" +"(let-values()(check-body-no-disallowed-expr_0(parsed-begin0-body e_39)))" +"(if(parsed-let_-values? e_39)" "(let-values()" "(begin" -"(let-values(((lst_24)(parsed-let_-values-clauses e_73)))" +"(let-values(((lst_24)(parsed-let_-values-clauses e_39)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_24)))" -"((letrec-values(((for-loop_241)" -"(lambda(lst_76)" +"((letrec-values(((for-loop_247)" +"(lambda(lst_88)" "(begin" " 'for-loop" -"(if(pair? lst_76)" +"(if(pair? lst_88)" "(let-values(((clause_5)" -"(unsafe-car lst_76))" -"((rest_244)" -"(unsafe-cdr lst_76)))" +"(unsafe-car lst_88))" +"((rest_151)" +"(unsafe-cdr lst_88)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69639,34 +69941,34 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_241 rest_244)" +"(for-loop_247 rest_151)" "(values))))" "(values))))))" -" for-loop_241)" +" for-loop_247)" " lst_24)))" "(void)" -"(check-body-no-disallowed-expr_0(parsed-let_-values-body e_73))))" -"(if(let-values(((or-part_103)(parsed-quote-syntax? e_73)))" -"(if or-part_103 or-part_103(parsed-#%variable-reference? e_73)))" -"(let-values()(disallow e_73))" +"(check-body-no-disallowed-expr_0(parsed-let_-values-body e_39))))" +"(if(let-values(((or-part_93)(parsed-quote-syntax? e_39)))" +"(if or-part_93 or-part_93(parsed-#%variable-reference? e_39)))" +"(let-values()(disallow e_39))" "(let-values()(void)))))))))))))))" "((check-body-no-disallowed-expr_0)" "(lambda(l_48)" "(begin" " 'check-body-no-disallowed-expr" "(begin" -"(let-values(((lst_79) l_48))" +"(let-values(((lst_80) l_48))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_79)))" -"((letrec-values(((for-loop_264)" -"(lambda(lst_17)" +"(let-values()(check-list lst_80)))" +"((letrec-values(((for-loop_320)" +"(lambda(lst_272)" "(begin" " 'for-loop" -"(if(pair? lst_17)" -"(let-values(((e_88)(unsafe-car lst_17))" -"((rest_36)(unsafe-cdr lst_17)))" +"(if(pair? lst_272)" +"(let-values(((e_91)(unsafe-car lst_272))" +"((rest_147)(unsafe-cdr lst_272)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -69674,13 +69976,13 @@ static const char *startup_source = "(begin" "(let-values()" "(check-no-disallowed-expr_0" -" e_88))" +" e_91))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_264 rest_36)(values))))" +"(if(not #f)(for-loop_320 rest_147)(values))))" "(values))))))" -" for-loop_264)" -" lst_79)))" +" for-loop_320)" +" lst_80)))" "(void))))))" "(check-body_0 bodys_13)))))" "(define-values" @@ -69689,36 +69991,36 @@ static const char *startup_source = "(begin(if(= is-num_0 expected-num_0)(void)(let-values()(disallow enclosing_16))))))" "(define-values" "(check-datum)" -"(lambda(d_38 e_89)" +"(lambda(d_37 e_92)" "(begin" -"(if(let-values(((or-part_167)(number? d_38)))" +"(if(let-values(((or-part_158)(number? d_37)))" +"(if or-part_158" +" or-part_158" +"(let-values(((or-part_165)(boolean? d_37)))" +"(if or-part_165" +" or-part_165" +"(let-values(((or-part_166)(symbol? d_37)))" +"(if or-part_166" +" or-part_166" +"(let-values(((or-part_167)(string? d_37)))" "(if or-part_167" " or-part_167" -"(let-values(((or-part_174)(boolean? d_38)))" -"(if or-part_174" -" or-part_174" -"(let-values(((or-part_175)(symbol? d_38)))" -"(if or-part_175" -" or-part_175" -"(let-values(((or-part_176)(string? d_38)))" -"(if or-part_176" -" or-part_176" -"(let-values(((or-part_177)(bytes? d_38)))(if or-part_177 or-part_177(null? d_38)))))))))))" +"(let-values(((or-part_168)(bytes? d_37)))(if or-part_168 or-part_168(null? d_37)))))))))))" "(let-values()(void))" -"(let-values()(disallow e_89))))))" +"(let-values()(disallow e_92))))))" "(define-values" "(quoted-string?)" -"(lambda(e_90)(begin(if(parsed-quote? e_90)(string?(parsed-quote-datum e_90)) #f))))" +"(lambda(e_93)(begin(if(parsed-quote? e_93)(string?(parsed-quote-datum e_93)) #f))))" "(define-values" "(cross-phase-primitive-name)" -"(lambda(id_143)" +"(lambda(id_149)" "(begin" -"(if(parsed-id? id_143)" +"(if(parsed-id? id_149)" "(let-values()" -"(let-values(((b_61)(parsed-id-binding id_143)))" -"(if(module-binding? b_61)" -"(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_61)))" -"(module-binding-sym b_61)" +"(let-values(((b_92)(parsed-id-binding id_149)))" +"(if(module-binding? b_92)" +"(if(eq? runtime-module-name(1/module-path-index-resolve(module-binding-module b_92)))" +"(module-binding-sym b_92)" " #f)" " #f)))" "(let-values() #f)))))" @@ -69733,46 +70035,46 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'module" -"(lambda(s_183 ctx_105)" +"(lambda(s_181 ctx_107)" "(begin" -"(if(eq?(expand-context-context ctx_105) 'top-level)" +"(if(eq?(expand-context-context ctx_107) 'top-level)" "(void)" "(let-values()" "(begin" -"(let-values(((obs_122)(expand-context-observer ctx_105)))" -"(if obs_122(let-values()(let-values()(call-expand-observe obs_122 'prim-module)))(void)))" -" (raise-syntax-error$1 #f \"allowed only at the top level\" s_183))))" +"(let-values(((obs_127)(expand-context-observer ctx_107)))" +"(if obs_127(let-values()(let-values()(call-expand-observe obs_127 'prim-module)))(void)))" +" (raise-syntax-error$1 #f \"allowed only at the top level\" s_181))))" "(let-values()" -"(let-values(((s223_0) s_183)((ctx224_0) ctx_105)((temp225_3) #f))" +"(let-values(((s223_0) s_181)((ctx224_0) ctx_107)((temp225_3) #f))" "(expand-module18.1 #f #f #f #f #f #f #f #f #f #f #f #f #f #f s223_0 ctx224_0 temp225_3)))))))" "(void" "(add-core-form!*" " 'module*" -"(lambda(s_306 ctx_106)" +"(lambda(s_304 ctx_108)" "(begin" -"(let-values(((obs_123)(expand-context-observer ctx_106)))" -"(if obs_123(let-values()(let-values()(call-expand-observe obs_123 'prim-module)))(void)))" -" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_306)))))" +"(let-values(((obs_128)(expand-context-observer ctx_108)))" +"(if obs_128(let-values()(let-values()(call-expand-observe obs_128 'prim-module)))(void)))" +" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_304)))))" "(void" "(add-core-form!*" " '#%module-begin" -"(lambda(s_83 ctx_107)" +"(lambda(s_81 ctx_109)" "(begin" -"(let-values(((obs_124)(expand-context-observer ctx_107)))" -"(if obs_124(let-values()(let-values()(call-expand-observe obs_124 'prim-module-begin)))(void)))" -"(if(eq?(expand-context-context ctx_107) 'module-begin)" +"(let-values(((obs_129)(expand-context-observer ctx_109)))" +"(if obs_129(let-values()(let-values()(call-expand-observe obs_129 'prim-module-begin)))(void)))" +"(if(eq?(expand-context-context ctx_109) 'module-begin)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_83)))" -"(if(expand-context-module-begin-k ctx_107)" +" (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_81)))" +"(if(expand-context-module-begin-k ctx_109)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_83)))" -"((expand-context-module-begin-k ctx_107)" -" s_83" -"(let-values(((v_38) ctx_107))" -"(let-values(((the-struct_101) v_38))" +" (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_81)))" +"((expand-context-module-begin-k ctx_109)" +" s_81" +"(let-values(((v_259) ctx_109))" +"(let-values(((the-struct_101) v_259))" "(if(expand-context/outer? the-struct_101)" "(let-values(((inner226_0)" -"(let-values(((the-struct_102)(root-expand-context/outer-inner v_38)))" +"(let-values(((the-struct_102)(root-expand-context/outer-inner v_259)))" "(if(expand-context/inner? the-struct_102)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" @@ -69822,11 +70124,11 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%declare" -"(lambda(s_416 ctx_108)" +"(lambda(s_722 ctx_110)" "(begin" -"(let-values(((obs_125)(expand-context-observer ctx_108)))" -"(if obs_125(let-values()(let-values()(call-expand-observe obs_125 'prim-declare)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_416)))))" +"(let-values(((obs_130)(expand-context-observer ctx_110)))" +"(if obs_130(let-values()(let-values()(call-expand-observe obs_130 'prim-declare)))(void)))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_722)))))" "(define-values" "(expand-module18.1)" "(lambda(always-produce-compiled?1_0" @@ -69869,89 +70171,89 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_18)(expand-context-observer init-ctx_0)))" -"(if obs_18" +"(let-values(((obs_14)(expand-context-observer init-ctx_0)))" +"(if obs_14" "(let-values()" -"(let-values()(call-expand-observe obs_18 'prim-module)))" +"(let-values()(call-expand-observe obs_14 'prim-module)))" "(void)))" "(values))))" "(let-values(((disarmed-s_24)(syntax-disarm$1 s_16)))" -"(let-values(((ok?_73 module228_0 id:module-name229_0 initial-require230_0 body231_0)" -"(let-values(((s_505) disarmed-s_24))" -"(let-values(((orig-s_79) s_505))" +"(let-values(((ok?_72 module228_0 id:module-name229_0 initial-require230_0 body231_0)" +"(let-values(((s_756) disarmed-s_24))" +"(let-values(((orig-s_79) s_756))" "(let-values(((module228_1" " id:module-name229_1" " initial-require230_1" " body231_1)" -"(let-values(((s_315)" -"(if(syntax?$1 s_505)" -"(syntax-e$1 s_505)" -" s_505)))" -"(if(pair? s_315)" +"(let-values(((s_312)" +"(if(syntax?$1 s_756)" +"(syntax-e$1 s_756)" +" s_756)))" +"(if(pair? s_312)" "(let-values(((module232_0)" -"(let-values(((s_440)(car s_315)))" -" s_440))" +"(let-values(((s_495)(car s_312)))" +" s_495))" "((id:module-name233_0" " initial-require234_0" " body235_0)" -"(let-values(((s_490)(cdr s_315)))" -"(let-values(((s_491)" -"(if(syntax?$1 s_490)" -"(syntax-e$1 s_490)" -" s_490)))" -"(if(pair? s_491)" +"(let-values(((s_725)(cdr s_312)))" +"(let-values(((s_757)" +"(if(syntax?$1 s_725)" +"(syntax-e$1 s_725)" +" s_725)))" +"(if(pair? s_757)" "(let-values(((id:module-name236_0)" -"(let-values(((s_316)" +"(let-values(((s_483)" "(car" -" s_491)))" -"(if(let-values(((or-part_371)" +" s_757)))" +"(if(let-values(((or-part_369)" "(if(syntax?$1" -" s_316)" +" s_483)" "(symbol?" "(syntax-e$1" -" s_316))" +" s_483))" " #f)))" -"(if or-part_371" -" or-part_371" +"(if or-part_369" +" or-part_369" "(symbol?" -" s_316)))" -" s_316" +" s_483)))" +" s_483" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_79" -" s_316))))" +" s_483))))" "((initial-require237_0" " body238_0)" -"(let-values(((s_55)" +"(let-values(((s_54)" "(cdr" -" s_491)))" -"(let-values(((s_317)" +" s_757)))" +"(let-values(((s_314)" "(if(syntax?$1" -" s_55)" +" s_54)" "(syntax-e$1" -" s_55)" -" s_55)))" +" s_54)" +" s_54)))" "(if(pair?" -" s_317)" +" s_314)" "(let-values(((initial-require239_0)" -"(let-values(((s_442)" +"(let-values(((s_316)" "(car" -" s_317)))" -" s_442))" +" s_314)))" +" s_316))" "((body240_0)" -"(let-values(((s_389)" +"(let-values(((s_317)" "(cdr" -" s_317)))" -"(let-values(((s_443)" +" s_314)))" +"(let-values(((s_318)" "(if(syntax?$1" -" s_389)" +" s_317)" "(syntax-e$1" -" s_389)" -" s_389)))" +" s_317)" +" s_317)))" "(let-values(((flat-s_51)" "(to-syntax-list.1" -" s_443)))" +" s_318)))" "(if(not" " flat-s_51)" "(let-values()" @@ -69989,7 +70291,10 @@ static const char *startup_source = " initial-require230_1" " body231_1))))))" "(let-values(((rebuild-s_14)" -"(let-values(((temp255_1) #t)((temp256_0) #t))" +"(let-values(((init-ctx253_0) init-ctx_0)" +"((s254_1) s_16)" +"((temp255_1) #t)" +"((temp256_0) #t))" "(keep-as-needed74.1" " #f" " #f" @@ -69997,14 +70302,14 @@ static const char *startup_source = " #t" " temp255_1" " #t" -" init-ctx_0" -" s_16))))" +" init-ctx253_0" +" s254_1))))" "(let-values(((initial-require_0)(syntax->datum$1 initial-require230_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_372) keep-enclosing-scope-at-phase_0))" -"(if or-part_372" -" or-part_372" +"(if(let-values(((or-part_100) keep-enclosing-scope-at-phase_0))" +"(if or-part_100" +" or-part_100" "(1/module-path? initial-require_0)))" "(void)" "(let-values()" @@ -70014,11 +70319,11 @@ static const char *startup_source = " s_16" " initial-require230_0)))" "(values))))" -"(let-values(((phase_151) 0))" +"(let-values(((phase_148) 0))" "(let-values(((module-name-sym_0)(syntax-e$1 id:module-name229_0)))" "(let-values(((outside-scope_1)(new-scope 'module)))" "(let-values(((inside-scope_0)(new-multi-scope module-name-sym_0)))" -"(let-values(((self_33)" +"(let-values(((self_32)" "(make-self-module-path-index" "(if enclosing-self_1" " module-name-sym_0" @@ -70027,7 +70332,7 @@ static const char *startup_source = " enclosing-self_1)))" "(let-values(((enclosing-mod_1)" "(if enclosing-self_1" -" (1/module-path-index-join '(submod \"..\") self_33)" +" (1/module-path-index-join '(submod \"..\") self_32)" " #f)))" "(let-values((()" "(begin" @@ -70048,7 +70353,7 @@ static const char *startup_source = " inside-scope_0" " init-ctx_0" " keep-enclosing-scope-at-phase_0" -" self_33" +" self_32" " enclosing-self_1" " enclosing-mod_1)))" "(let-values(((initial-require-s_0)" @@ -70061,7 +70366,7 @@ static const char *startup_source = " keep-enclosing-scope-at-phase_0))" " initial-require-s_0)))" "(let-values(((root-ctx_6)" -"(let-values(((self257_0) self_33)" +"(let-values(((self257_0) self_32)" "((temp258_0)" "(if keep-enclosing-scope-at-phase_0" "(root-expand-context-module-scopes" @@ -70095,7 +70400,7 @@ static const char *startup_source = " ns243_0)" "(begin" " 'make-m-ns244" -"(let-values(((ns_125) ns243_0))" +"(let-values(((ns_119) ns243_0))" "(let-values(((for-submodule?_1)" "(if for-submodule?242_0" " for-submodule?241_0" @@ -70103,8 +70408,10 @@ static const char *startup_source = " #t" " #f))))" "(let-values()" -"(let-values(((self263_0)" -" self_33)" +"(let-values(((ns262_0)" +" ns_119)" +"((self263_0)" +" self_32)" "((root-ctx264_0)" " root-ctx_6)" "((for-submodule?265_0)" @@ -70113,7 +70420,7 @@ static const char *startup_source = " for-submodule?265_0" " self263_0" " root-ctx264_0" -" ns_125)))))))))" +" ns262_0)))))))))" "(let-values()" "(let-values()" "(let-values(((m-ns_19)" @@ -70124,13 +70431,13 @@ static const char *startup_source = " #f" " #f" " temp266_0))))" -"(let-values(((ctx_109)" -"(let-values(((v_99)" +"(let-values(((ctx_82)" +"(let-values(((v_102)" "(copy-root-expand-context" " init-ctx_0" " root-ctx_6)))" "(let-values(((the-struct_103)" -" v_99))" +" v_102))" "(if(expand-context/outer?" " the-struct_103)" "(let-values(((post-expansion-scope-action267_0)" @@ -70138,7 +70445,7 @@ static const char *startup_source = "((inner268_0)" "(let-values(((the-struct_104)" "(root-expand-context/outer-inner" -" v_99)))" +" v_102)))" "(if(expand-context/inner?" " the-struct_104)" "(let-values(((allow-unbound?269_0)" @@ -70146,7 +70453,7 @@ static const char *startup_source = "((namespace270_0)" " m-ns_19)" "((phase271_0)" -" phase_151)" +" phase_148)" "((just-once?272_0)" " #f))" "(expand-context/inner2.1" @@ -70237,82 +70544,82 @@ static const char *startup_source = "(let-values(((scoped-s_0)" "(apply-module-scopes_0" " disarmed-s_24)))" -"(let-values(((ok?_74" +"(let-values(((ok?_73" " _273_0" " _274_0" " _275_0" " body276_0)" -"(let-values(((s_757)" +"(let-values(((s_758)" " scoped-s_0))" "(let-values(((orig-s_80)" -" s_757))" +" s_758))" "(let-values(((_273_1" " _274_1" " _275_1" " body276_1)" -"(let-values(((s_411)" +"(let-values(((s_88)" "(if(syntax?$1" -" s_757)" +" s_758)" "(syntax-e$1" -" s_757)" -" s_757)))" +" s_758)" +" s_758)))" "(if(pair?" -" s_411)" +" s_88)" "(let-values(((_277_0)" -"(let-values(((s_153)" +"(let-values(((s_735)" "(car" -" s_411)))" -" s_153))" +" s_88)))" +" s_735))" "((_278_0" " _279_0" " body280_0)" -"(let-values(((s_90)" +"(let-values(((s_203)" "(cdr" -" s_411)))" -"(let-values(((s_413)" +" s_88)))" +"(let-values(((s_390)" "(if(syntax?$1" -" s_90)" +" s_203)" "(syntax-e$1" -" s_90)" -" s_90)))" +" s_203)" +" s_203)))" "(if(pair?" -" s_413)" +" s_390)" "(let-values(((_281_0)" -"(let-values(((s_422)" +"(let-values(((s_90)" "(car" -" s_413)))" -" s_422))" +" s_390)))" +" s_90))" "((_282_0" " body283_0)" -"(let-values(((s_205)" +"(let-values(((s_91)" "(cdr" -" s_413)))" -"(let-values(((s_39)" +" s_390)))" +"(let-values(((s_407)" "(if(syntax?$1" -" s_205)" +" s_91)" "(syntax-e$1" -" s_205)" -" s_205)))" +" s_91)" +" s_91)))" "(if(pair?" -" s_39)" +" s_407)" "(let-values(((_284_0)" -"(let-values(((s_207)" +"(let-values(((s_39)" "(car" -" s_39)))" -" s_207))" +" s_407)))" +" s_39))" "((body285_0)" -"(let-values(((s_92)" -"(cdr" -" s_39)))" "(let-values(((s_93)" +"(cdr" +" s_407)))" +"(let-values(((s_322)" "(if(syntax?$1" -" s_92)" +" s_93)" "(syntax-e$1" -" s_92)" -" s_92)))" +" s_93)" +" s_93)))" "(let-values(((flat-s_52)" "(to-syntax-list.1" -" s_93)))" +" s_322)))" "(if(not" " flat-s_52)" "(let-values()" @@ -70355,7 +70662,7 @@ static const char *startup_source = " body276_0))))" "(let-values(((requires+provides_6)" "(let-values(((self286_0)" -" self_33))" +" self_32))" "(make-requires+provides8.1" " #f" " #f" @@ -70379,18 +70686,28 @@ static const char *startup_source = "(if(not" " keep-enclosing-scope-at-phase_0)" "(let-values()" -"(let-values(((bind?292_0)" +"(let-values(((initial-require287_0)" +" initial-require_0)" +"((self288_0)" +" self_32)" +"((all-scopes-s289_0)" +" all-scopes-s_0)" +"((m-ns290_0)" +" m-ns_19)" +"((requires+provides291_0)" +" requires+provides_6)" +"((bind?292_0)" " bind?_3)" "((temp293_0)" " 'module))" "(perform-initial-require!42.1" " bind?292_0" " temp293_0" -" initial-require_0" -" self_33" -" all-scopes-s_0" -" m-ns_19" -" requires+provides_6)))" +" initial-require287_0" +" self288_0" +" all-scopes-s289_0" +" m-ns290_0" +" requires+provides291_0)))" "(let-values()" "(begin" "(add-required-module!" @@ -70398,7 +70715,9 @@ static const char *startup_source = " enclosing-mod_1" " keep-enclosing-scope-at-phase_0" " enclosing-is-cross-phase-persistent?_0)" -"(let-values(((enclosing-r+p295_0)" +"(let-values(((requires+provides294_0)" +" requires+provides_6)" +"((enclosing-r+p295_0)" " enclosing-r+p_1)" "((enclosing-mod296_0)" " enclosing-mod_1)" @@ -70406,7 +70725,7 @@ static const char *startup_source = " keep-enclosing-scope-at-phase_0))" "(add-enclosing-module-defined-and-required!67.1" " enclosing-r+p295_0" -" requires+provides_6" +" requires+provides294_0" " enclosing-mod296_0" " keep-enclosing-scope-at-phase297_0))" "(let-values(((m-ns298_0)" @@ -70425,14 +70744,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_126)" +"(let-values(((obs_131)" "(expand-context-observer" " init-ctx_0)))" -"(if obs_126" +"(if obs_131" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_126" +" obs_131" " 'prepare-env)))" "(void)))" "(values))))" @@ -70473,31 +70792,33 @@ static const char *startup_source = "(set! again?_0" " #t)" "(values))))" -"(let-values(((ctx_110)" -"(let-values(((v_210)" +"(let-values(((ctx_111)" +"(let-values(((v_260)" " mb-init-ctx_0))" -"(let-values(((the-struct_80)" -" v_210))" -"(if(expand-context/outer?" -" the-struct_80)" -"(let-values(((inner306_0)" "(let-values(((the-struct_105)" -"(root-expand-context/outer-inner" -" v_210)))" -"(if(expand-context/inner?" +" v_260))" +"(if(expand-context/outer?" " the-struct_105)" +"(let-values(((inner306_0)" +"(let-values(((the-struct_106)" +"(root-expand-context/outer-inner" +" v_260)))" +"(if(expand-context/inner?" +" the-struct_106)" "(let-values(((module-begin-k307_0)" -"(lambda(s_214" -" ctx_111)" +"(lambda(s_113" +" ctx_112)" "(begin" " 'module-begin-k307" "(let-values(((new-requires+provides_0)" -"(let-values(((requires+provides315_0)" +"(let-values(((self314_0)" +" self_32)" +"((requires+provides315_0)" " requires+provides_6))" "(make-requires+provides8.1" " requires+provides315_0" " #t" -" self_33))))" +" self314_0))))" "(let-values(((requires+provides308_0)" " requires+provides_6)" "((compiled-submodules309_0)" @@ -70522,8 +70843,8 @@ static const char *startup_source = " compiled-module-box313_0)))" "(lambda()" "(module-begin-k_1" -" s_214" -" ctx_111))" +" s_113" +" ctx_112))" "(lambda()" "(begin" "(set! requires+provides_6" @@ -70534,106 +70855,106 @@ static const char *startup_source = " compiled-module-box310_0))))))))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_105)" +" the-struct_106)" "(root-expand-context/inner-module-scopes" -" the-struct_105)" +" the-struct_106)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_105)" +" the-struct_106)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_105)" +" the-struct_106)" "(root-expand-context/inner-defined-syms" -" the-struct_105)" +" the-struct_106)" "(root-expand-context/inner-counter" -" the-struct_105)" +" the-struct_106)" "(root-expand-context/inner-lift-key" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-to-parsed?" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-phase" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-namespace" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-just-once?" -" the-struct_105)" +" the-struct_106)" " module-begin-k307_0" "(expand-context/inner-allow-unbound?" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-in-local-expand?" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-stops" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-declared-submodule-names" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-lifts" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-lift-envs" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-module-lifts" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-require-lifts" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-to-module-lifts" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-requires+provides" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-observer" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-for-serializable?" -" the-struct_105)" +" the-struct_106)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_105)))" +" the-struct_106)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_105)))))" +" the-struct_106)))))" "(expand-context/outer1.1" " inner306_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_80)" +" the-struct_105)" "(root-expand-context/outer-use-site-scopes" -" the-struct_80)" +" the-struct_105)" "(root-expand-context/outer-frame-id" -" the-struct_80)" +" the-struct_105)" "(expand-context/outer-context" -" the-struct_80)" +" the-struct_105)" "(expand-context/outer-env" -" the-struct_80)" +" the-struct_105)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_80)" +" the-struct_105)" "(expand-context/outer-scopes" -" the-struct_80)" +" the-struct_105)" "(expand-context/outer-def-ctx-scopes" -" the-struct_80)" +" the-struct_105)" "(expand-context/outer-binding-layer" -" the-struct_80)" +" the-struct_105)" "(expand-context/outer-reference-records" -" the-struct_80)" +" the-struct_105)" "(expand-context/outer-only-immediate?" -" the-struct_80)" +" the-struct_105)" "(expand-context/outer-need-eventually-defined" -" the-struct_80)" +" the-struct_105)" "(expand-context/outer-current-introduction-scopes" -" the-struct_80)" +" the-struct_105)" "(expand-context/outer-name" -" the-struct_80)))" +" the-struct_105)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_80))))))" +" the-struct_105))))))" "(let-values(((added-s_2)" "(add-scope" " mb-s_0" " inside-scope_0)))" "(let-values((()" "(begin" -"(let-values(((obs_73)" +"(let-values(((obs_132)" "(expand-context-observer" -" ctx_110)))" -"(if obs_73" +" ctx_111)))" +"(if obs_132" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_73" +" obs_132" " 'rename-one" " added-s_2)))" "(void)))" @@ -70641,41 +70962,41 @@ static const char *startup_source = "(let-values(((disarmed-mb-s_0)" "(syntax-disarm$1" " added-s_2)))" -"(let-values(((ok?_75" +"(let-values(((ok?_74" " #%module-begin301_0" " body302_0)" -"(let-values(((s_449)" +"(let-values(((s_216)" " disarmed-mb-s_0))" "(let-values(((orig-s_81)" -" s_449))" +" s_216))" "(let-values(((#%module-begin301_1" " body302_1)" -"(let-values(((s_114)" +"(let-values(((s_218)" "(if(syntax?$1" -" s_449)" +" s_216)" "(syntax-e$1" -" s_449)" -" s_449)))" +" s_216)" +" s_216)))" "(if(pair?" -" s_114)" +" s_218)" "(let-values(((#%module-begin303_0)" -"(let-values(((s_758)" +"(let-values(((s_742)" "(car" -" s_114)))" -" s_758))" +" s_218)))" +" s_742))" "((body304_1)" -"(let-values(((s_215)" +"(let-values(((s_759)" "(cdr" -" s_114)))" -"(let-values(((s_426)" +" s_218)))" +"(let-values(((s_117)" "(if(syntax?$1" -" s_215)" +" s_759)" "(syntax-e$1" -" s_215)" -" s_215)))" +" s_759)" +" s_759)))" "(let-values(((flat-s_53)" "(to-syntax-list.1" -" s_426)))" +" s_117)))" "(if(not" " flat-s_53)" "(let-values()" @@ -70700,7 +71021,7 @@ static const char *startup_source = " body302_0))" "(let-values(((rebuild-mb-s_0)" "(let-values(((ctx316_0)" -" ctx_110)" +" ctx_111)" "((mb-s317_0)" " mb-s_0))" "(keep-as-needed74.1" @@ -70723,7 +71044,7 @@ static const char *startup_source = "(let-values(((expression-expanded-bodys_0)" "((letrec-values(((pass-1-and-2-loop_0)" "(lambda(bodys_17" -" phase_152)" +" phase_149)" "(begin" " 'pass-1-and-2-loop" "(let-values(((def-ctx-scopes_8)" @@ -70731,14 +71052,14 @@ static const char *startup_source = " null)))" "(let-values(((to-parsed?_5)" "(expand-context-to-parsed?" -" ctx_110)))" +" ctx_111)))" "(let-values(((partial-body-ctx_0)" -"(let-values(((v_254)" -" ctx_110))" -"(let-values(((the-struct_106)" -" v_254))" +"(let-values(((v_261)" +" ctx_111))" +"(let-values(((the-struct_107)" +" v_261))" "(if(expand-context/outer?" -" the-struct_106)" +" the-struct_107)" "(let-values(((context326_0)" " 'module)" "((def-ctx-scopes327_0)" @@ -70746,22 +71067,22 @@ static const char *startup_source = "((need-eventually-defined328_0)" " need-eventually-defined_1)" "((inner329_0)" -"(let-values(((the-struct_107)" +"(let-values(((the-struct_108)" "(root-expand-context/outer-inner" -" v_254)))" +" v_261)))" "(if(expand-context/inner?" -" the-struct_107)" +" the-struct_108)" "(let-values(((phase330_0)" -" phase_152)" +" phase_149)" "((namespace331_0)" "(namespace->namespace-at-phase" " m-ns_19" -" phase_152))" +" phase_149))" "((stops332_0)" "(free-id-set" -" phase_152" +" phase_149" "(module-expand-stop-ids" -" phase_152)))" +" phase_149)))" "((declared-submodule-names333_0)" " declared-submodule-names_3)" "((lift-key334_0)" @@ -70769,7 +71090,7 @@ static const char *startup_source = "((lifts335_0)" "(let-values(((temp339_0)" "(make-wrap-as-definition" -" self_33" +" self_32" " frame-id_16" " inside-scope_0" " all-scopes-s_0" @@ -70781,113 +71102,123 @@ static const char *startup_source = " temp339_0)))" "((module-lifts336_0)" "(make-module-lift-context" -" phase_152" +" phase_149" " #t))" "((require-lifts337_0)" "(make-require-lift-context" -" phase_152" -"(let-values(((declared-submodule-names343_0)" +" phase_149" +"(let-values(((m-ns340_0)" +" m-ns_19)" +"((self341_0)" +" self_32)" +"((requires+provides342_0)" +" requires+provides_6)" +"((declared-submodule-names343_0)" " declared-submodule-names_3))" "(make-parse-lifted-require220.1" " declared-submodule-names343_0" -" m-ns_19" -" self_33" -" requires+provides_6))))" +" m-ns340_0" +" self341_0" +" requires+provides342_0))))" "((to-module-lifts338_0)" -"(let-values(((module-ends345_0)" +"(let-values(((phase344_0)" +" phase_149)" +"((module-ends345_0)" " module-ends_0)" "((temp346_0)" " #f))" "(make-to-module-lift-context27.1" " temp346_0" " module-ends345_0" -" phase_152))))" +" phase344_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_107)" +" the-struct_108)" "(root-expand-context/inner-module-scopes" -" the-struct_107)" +" the-struct_108)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_107)" +" the-struct_108)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_107)" +" the-struct_108)" "(root-expand-context/inner-defined-syms" -" the-struct_107)" +" the-struct_108)" "(root-expand-context/inner-counter" -" the-struct_107)" +" the-struct_108)" " lift-key334_0" "(expand-context/inner-to-parsed?" -" the-struct_107)" +" the-struct_108)" " phase330_0" " namespace331_0" "(expand-context/inner-just-once?" -" the-struct_107)" +" the-struct_108)" "(expand-context/inner-module-begin-k" -" the-struct_107)" +" the-struct_108)" "(expand-context/inner-allow-unbound?" -" the-struct_107)" +" the-struct_108)" "(expand-context/inner-in-local-expand?" -" the-struct_107)" +" the-struct_108)" " stops332_0" " declared-submodule-names333_0" " lifts335_0" "(expand-context/inner-lift-envs" -" the-struct_107)" +" the-struct_108)" " module-lifts336_0" " require-lifts337_0" " to-module-lifts338_0" "(expand-context/inner-requires+provides" -" the-struct_107)" +" the-struct_108)" "(expand-context/inner-observer" -" the-struct_107)" +" the-struct_108)" "(expand-context/inner-for-serializable?" -" the-struct_107)" +" the-struct_108)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_107)))" +" the-struct_108)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_107)))))" +" the-struct_108)))))" "(expand-context/outer1.1" " inner329_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_106)" +" the-struct_107)" "(root-expand-context/outer-use-site-scopes" -" the-struct_106)" +" the-struct_107)" "(root-expand-context/outer-frame-id" -" the-struct_106)" +" the-struct_107)" " context326_0" "(expand-context/outer-env" -" the-struct_106)" +" the-struct_107)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_106)" +" the-struct_107)" "(expand-context/outer-scopes" -" the-struct_106)" +" the-struct_107)" " def-ctx-scopes327_0" "(expand-context/outer-binding-layer" -" the-struct_106)" +" the-struct_107)" "(expand-context/outer-reference-records" -" the-struct_106)" +" the-struct_107)" "(expand-context/outer-only-immediate?" -" the-struct_106)" +" the-struct_107)" " need-eventually-defined328_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_106)" +" the-struct_107)" "(expand-context/outer-name" -" the-struct_106)))" +" the-struct_107)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_106))))))" +" the-struct_107))))))" "(let-values(((partially-expanded-bodys_0)" -"(let-values(((phase348_0)" -" phase_152)" +"(let-values(((bodys347_0)" +" bodys_17)" +"((phase348_0)" +" phase_149)" "((partial-body-ctx349_0)" " partial-body-ctx_0)" "((m-ns350_0)" " m-ns_19)" "((self351_0)" -" self_33)" +" self_32)" "((frame-id352_0)" " frame-id_16)" "((requires+provides353_0)" @@ -70926,141 +71257,145 @@ static const char *startup_source = " phase348_0" " requires+provides353_0" " self351_0" -" bodys_17))))" +" bodys347_0))))" "(let-values((()" "(begin" -"(let-values(((obs_127)" +"(let-values(((obs_133)" "(expand-context-observer" " partial-body-ctx_0)))" -"(if obs_127" +"(if obs_133" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_127" +" obs_133" " 'next-group)))" "(void)))" "(values))))" "(let-values(((body-ctx_6)" -"(let-values(((v_255)" +"(let-values(((v_262)" "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" -"(let-values(((the-struct_108)" -" v_255))" +"(let-values(((the-struct_109)" +" v_262))" "(if(expand-context/outer?" -" the-struct_108)" +" the-struct_109)" "(let-values(((def-ctx-scopes363_0)" " #f)" "((post-expansion-scope364_0)" " #f)" "((inner365_0)" -"(let-values(((the-struct_109)" +"(let-values(((the-struct_110)" "(root-expand-context/outer-inner" -" v_255)))" +" v_262)))" "(if(expand-context/inner?" -" the-struct_109)" +" the-struct_110)" "(let-values(((stops366_0)" " empty-free-id-set)" "((to-module-lifts367_0)" -"(let-values(((module-ends369_0)" +"(let-values(((phase368_0)" +" phase_149)" +"((module-ends369_0)" " module-ends_0)" "((temp370_1)" " #t))" "(make-to-module-lift-context27.1" " temp370_1" " module-ends369_0" -" phase_152))))" +" phase368_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_109)" +" the-struct_110)" "(root-expand-context/inner-module-scopes" -" the-struct_109)" +" the-struct_110)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_109)" +" the-struct_110)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_109)" +" the-struct_110)" "(root-expand-context/inner-defined-syms" -" the-struct_109)" +" the-struct_110)" "(root-expand-context/inner-counter" -" the-struct_109)" +" the-struct_110)" "(root-expand-context/inner-lift-key" -" the-struct_109)" +" the-struct_110)" "(expand-context/inner-to-parsed?" -" the-struct_109)" +" the-struct_110)" "(expand-context/inner-phase" -" the-struct_109)" +" the-struct_110)" "(expand-context/inner-namespace" -" the-struct_109)" +" the-struct_110)" "(expand-context/inner-just-once?" -" the-struct_109)" +" the-struct_110)" "(expand-context/inner-module-begin-k" -" the-struct_109)" +" the-struct_110)" "(expand-context/inner-allow-unbound?" -" the-struct_109)" +" the-struct_110)" "(expand-context/inner-in-local-expand?" -" the-struct_109)" +" the-struct_110)" " stops366_0" "(expand-context/inner-declared-submodule-names" -" the-struct_109)" +" the-struct_110)" "(expand-context/inner-lifts" -" the-struct_109)" +" the-struct_110)" "(expand-context/inner-lift-envs" -" the-struct_109)" +" the-struct_110)" "(expand-context/inner-module-lifts" -" the-struct_109)" +" the-struct_110)" "(expand-context/inner-require-lifts" -" the-struct_109)" +" the-struct_110)" " to-module-lifts367_0" "(expand-context/inner-requires+provides" -" the-struct_109)" +" the-struct_110)" "(expand-context/inner-observer" -" the-struct_109)" +" the-struct_110)" "(expand-context/inner-for-serializable?" -" the-struct_109)" +" the-struct_110)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_109)))" +" the-struct_110)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_109)))))" +" the-struct_110)))))" "(expand-context/outer1.1" " inner365_0" " post-expansion-scope364_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_108)" +" the-struct_109)" "(root-expand-context/outer-frame-id" -" the-struct_108)" +" the-struct_109)" "(expand-context/outer-context" -" the-struct_108)" +" the-struct_109)" "(expand-context/outer-env" -" the-struct_108)" +" the-struct_109)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_108)" +" the-struct_109)" "(expand-context/outer-scopes" -" the-struct_108)" +" the-struct_109)" " def-ctx-scopes363_0" "(expand-context/outer-binding-layer" -" the-struct_108)" +" the-struct_109)" "(expand-context/outer-reference-records" -" the-struct_108)" +" the-struct_109)" "(expand-context/outer-only-immediate?" -" the-struct_108)" +" the-struct_109)" "(expand-context/outer-need-eventually-defined" -" the-struct_108)" +" the-struct_109)" "(expand-context/outer-current-introduction-scopes" -" the-struct_108)" +" the-struct_109)" "(expand-context/outer-name" -" the-struct_108)))" +" the-struct_109)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_108))))))" -"(let-values(((phase319_0)" -" phase_152)" +" the-struct_109))))))" +"(let-values(((partially-expanded-bodys318_0)" +" partially-expanded-bodys_0)" +"((phase319_0)" +" phase_149)" "((body-ctx320_0)" " body-ctx_6)" "((self321_0)" -" self_33)" +" self_32)" "((declared-submodule-names322_0)" " declared-submodule-names_3)" "((compiled-submodules323_0)" @@ -71077,43 +71412,45 @@ static const char *startup_source = " mpis-to-reset325_0" " phase319_0" " self321_0" -" partially-expanded-bodys_0))))))))))))" +" partially-expanded-bodys318_0))))))))))))" " pass-1-and-2-loop_0)" " bodys_16" -" phase_151)))" +" phase_148)))" "(let-values((()" "(begin" "(check-defined-by-now" " need-eventually-defined_1" -" self_33" -" ctx_110)" +" self_32" +" ctx_111)" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_128)" +"(let-values(((obs_134)" "(expand-context-observer" -" ctx_110)))" -"(if obs_128" +" ctx_111)))" +"(if obs_134" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_128" +" obs_134" " 'next-group)))" "(void)))" "(values))))" "(let-values(((fully-expanded-bodys-except-post-submodules_0)" -"(let-values(((requires+provides372_0)" +"(let-values(((expression-expanded-bodys371_0)" +" expression-expanded-bodys_0)" +"((requires+provides372_0)" " requires+provides_6)" "((declared-submodule-names373_0)" " declared-submodule-names_3)" "((m-ns374_0)" " m-ns_19)" "((phase375_0)" -" phase_151)" +" phase_148)" "((self376_0)" -" self_33)" +" self_32)" "((ctx377_0)" -" ctx_110))" +" ctx_111))" "(resolve-provides115.1" " ctx377_0" " declared-submodule-names373_0" @@ -71121,7 +71458,7 @@ static const char *startup_source = " phase375_0" " requires+provides372_0" " self376_0" -" expression-expanded-bodys_0))))" +" expression-expanded-bodys371_0))))" "(let-values(((is-cross-phase-persistent?_1)" "(hash-ref" " declared-keywords_0" @@ -71145,140 +71482,144 @@ static const char *startup_source = " '#:cross-phase-persistent))))" "(check-cross-phase-persistent-form" " fully-expanded-bodys-except-post-submodules_0" -" self_33)))" +" self_32)))" "(void))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_75)" +"(let-values(((obs_80)" "(expand-context-observer" -" ctx_110)))" -"(if obs_75" +" ctx_111)))" +"(if obs_80" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_75" +" obs_80" " 'next)))" "(void)))" "(values))))" "(let-values(((submod-m-ns_0)" -"(let-values(((temp379_1)" +"(let-values(((m-ns378_0)" +" m-ns_19)" +"((temp379_1)" " #t))" "(make-m-ns244_0" " temp379_1" " #t" -" m-ns_19))))" +" m-ns378_0))))" "(let-values(((submod-ctx_0)" -"(let-values(((v_256)" -" ctx_110))" -"(let-values(((the-struct_110)" -" v_256))" +"(let-values(((v_263)" +" ctx_111))" +"(let-values(((the-struct_111)" +" v_263))" "(if(expand-context/outer?" -" the-struct_110)" +" the-struct_111)" "(let-values(((frame-id380_0)" " #f)" "((post-expansion-scope381_0)" " #f)" "((inner382_0)" -"(let-values(((the-struct_111)" +"(let-values(((the-struct_112)" "(root-expand-context/outer-inner" -" v_256)))" +" v_263)))" "(if(expand-context/inner?" -" the-struct_111)" +" the-struct_112)" "(let-values(((namespace383_0)" " submod-m-ns_0))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_111)" +" the-struct_112)" "(root-expand-context/inner-module-scopes" -" the-struct_111)" +" the-struct_112)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_111)" +" the-struct_112)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_111)" +" the-struct_112)" "(root-expand-context/inner-defined-syms" -" the-struct_111)" +" the-struct_112)" "(root-expand-context/inner-counter" -" the-struct_111)" +" the-struct_112)" "(root-expand-context/inner-lift-key" -" the-struct_111)" +" the-struct_112)" "(expand-context/inner-to-parsed?" -" the-struct_111)" +" the-struct_112)" "(expand-context/inner-phase" -" the-struct_111)" +" the-struct_112)" " namespace383_0" "(expand-context/inner-just-once?" -" the-struct_111)" +" the-struct_112)" "(expand-context/inner-module-begin-k" -" the-struct_111)" +" the-struct_112)" "(expand-context/inner-allow-unbound?" -" the-struct_111)" +" the-struct_112)" "(expand-context/inner-in-local-expand?" -" the-struct_111)" +" the-struct_112)" "(expand-context/inner-stops" -" the-struct_111)" +" the-struct_112)" "(expand-context/inner-declared-submodule-names" -" the-struct_111)" +" the-struct_112)" "(expand-context/inner-lifts" -" the-struct_111)" +" the-struct_112)" "(expand-context/inner-lift-envs" -" the-struct_111)" +" the-struct_112)" "(expand-context/inner-module-lifts" -" the-struct_111)" +" the-struct_112)" "(expand-context/inner-require-lifts" -" the-struct_111)" +" the-struct_112)" "(expand-context/inner-to-module-lifts" -" the-struct_111)" +" the-struct_112)" "(expand-context/inner-requires+provides" -" the-struct_111)" +" the-struct_112)" "(expand-context/inner-observer" -" the-struct_111)" +" the-struct_112)" "(expand-context/inner-for-serializable?" -" the-struct_111)" +" the-struct_112)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_111)))" +" the-struct_112)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_111)))))" +" the-struct_112)))))" "(expand-context/outer1.1" " inner382_0" " post-expansion-scope381_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_110)" +" the-struct_111)" " frame-id380_0" "(expand-context/outer-context" -" the-struct_110)" +" the-struct_111)" "(expand-context/outer-env" -" the-struct_110)" +" the-struct_111)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_110)" +" the-struct_111)" "(expand-context/outer-scopes" -" the-struct_110)" +" the-struct_111)" "(expand-context/outer-def-ctx-scopes" -" the-struct_110)" +" the-struct_111)" "(expand-context/outer-binding-layer" -" the-struct_110)" +" the-struct_111)" "(expand-context/outer-reference-records" -" the-struct_110)" +" the-struct_111)" "(expand-context/outer-only-immediate?" -" the-struct_110)" +" the-struct_111)" "(expand-context/outer-need-eventually-defined" -" the-struct_110)" +" the-struct_111)" "(expand-context/outer-current-introduction-scopes" -" the-struct_110)" +" the-struct_111)" "(expand-context/outer-name" -" the-struct_110)))" +" the-struct_111)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_110))))))" +" the-struct_111))))))" "(let-values(((declare-enclosing-module_0)" "(delay" "(lambda()" "(begin" " 'declare-enclosing-module" -"(let-values(((temp385_1)" +"(let-values(((fully-expanded-bodys-except-post-submodules384_0)" +" fully-expanded-bodys-except-post-submodules_0)" +"((temp385_1)" " id:module-name229_0)" "((rebuild-s386_0)" " rebuild-s_14)" @@ -71287,7 +71628,7 @@ static const char *startup_source = "((submod-m-ns388_0)" " submod-m-ns_0)" "((self389_0)" -" self_33)" +" self_32)" "((enclosing-self390_0)" " enclosing-self_1)" "((root-ctx391_0)" @@ -71309,19 +71650,21 @@ static const char *startup_source = " requires+provides387_0" " root-ctx391_0" " self389_0" -" fully-expanded-bodys-except-post-submodules_0)))))))" +" fully-expanded-bodys-except-post-submodules384_0)))))))" "(let-values(((fully-expanded-bodys_0)" "(if(stop-at-module*?" " submod-ctx_0)" "(let-values()" " fully-expanded-bodys-except-post-submodules_0)" "(let-values()" -"(let-values(((declare-enclosing-module396_0)" +"(let-values(((fully-expanded-bodys-except-post-submodules395_0)" +" fully-expanded-bodys-except-post-submodules_0)" +"((declare-enclosing-module396_0)" " declare-enclosing-module_0)" "((phase397_0)" -" phase_151)" +" phase_148)" "((self398_0)" -" self_33)" +" self_32)" "((requires+provides399_0)" " requires+provides_6)" "((is-cross-phase-persistent?400_0)" @@ -71350,7 +71693,7 @@ static const char *startup_source = " phase397_0" " requires+provides399_0" " self398_0" -" fully-expanded-bodys-except-post-submodules_0))))))" +" fully-expanded-bodys-except-post-submodules395_0))))))" "(if(expand-context-to-parsed?" " submod-ctx_0)" "(let-values()" @@ -71385,110 +71728,110 @@ static const char *startup_source = "(let-values()" " mb-result-s_0)))))))))))))))))))))))))))))))))" "(let-values(((mb-ctx_0)" -"(let-values(((v_257)" -" ctx_109))" -"(let-values(((the-struct_112)" -" v_257))" +"(let-values(((v_264)" +" ctx_82))" +"(let-values(((the-struct_113)" +" v_264))" "(if(expand-context/outer?" -" the-struct_112)" +" the-struct_113)" "(let-values(((context409_0)" " 'module-begin)" "((inner410_0)" -"(let-values(((the-struct_113)" +"(let-values(((the-struct_114)" "(root-expand-context/outer-inner" -" v_257)))" +" v_264)))" "(if(expand-context/inner?" -" the-struct_113)" +" the-struct_114)" "(let-values(((module-begin-k411_0)" " module-begin-k_1)" "((in-local-expand?412_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_113)" +" the-struct_114)" "(root-expand-context/inner-module-scopes" -" the-struct_113)" +" the-struct_114)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_113)" +" the-struct_114)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_113)" +" the-struct_114)" "(root-expand-context/inner-defined-syms" -" the-struct_113)" +" the-struct_114)" "(root-expand-context/inner-counter" -" the-struct_113)" +" the-struct_114)" "(root-expand-context/inner-lift-key" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-to-parsed?" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-phase" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-namespace" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-just-once?" -" the-struct_113)" +" the-struct_114)" " module-begin-k411_0" "(expand-context/inner-allow-unbound?" -" the-struct_113)" +" the-struct_114)" " in-local-expand?412_0" "(expand-context/inner-stops" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-declared-submodule-names" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-lifts" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-lift-envs" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-module-lifts" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-require-lifts" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-to-module-lifts" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-requires+provides" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-observer" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-for-serializable?" -" the-struct_113)" +" the-struct_114)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_113)))" +" the-struct_114)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_113)))))" +" the-struct_114)))))" "(expand-context/outer1.1" " inner410_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_112)" +" the-struct_113)" "(root-expand-context/outer-use-site-scopes" -" the-struct_112)" +" the-struct_113)" "(root-expand-context/outer-frame-id" -" the-struct_112)" +" the-struct_113)" " context409_0" "(expand-context/outer-env" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-scopes" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-def-ctx-scopes" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-binding-layer" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-reference-records" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-only-immediate?" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-need-eventually-defined" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-current-introduction-scopes" -" the-struct_112)" +" the-struct_113)" "(expand-context/outer-name" -" the-struct_112)))" +" the-struct_113)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_112))))))" +" the-struct_113))))))" "(let-values(((mb-scopes-s_0)" "(if keep-enclosing-scope-at-phase_0" " disarmed-s_24" @@ -71497,7 +71840,9 @@ static const char *startup_source = "(box" " null)))" "(let-values(((mb_0)" -"(let-values(((module-name-sym414_0)" +"(let-values(((bodys413_0)" +" bodys_15)" +"((module-name-sym414_0)" " module-name-sym_0)" "((mb-scopes-s415_0)" " mb-scopes-s_0)" @@ -71508,7 +71853,7 @@ static const char *startup_source = "((mb-def-ctx-scopes418_0)" " mb-def-ctx-scopes_0)" "((phase419_0)" -" phase_151)" +" phase_148)" "((s420_0)" " s_16))" "(ensure-module-begin36.1" @@ -71519,7 +71864,7 @@ static const char *startup_source = " phase419_0" " s420_0" " mb-scopes-s415_0" -" bodys_15))))" +" bodys413_0))))" "(let-values(((expanded-mb_0)" "(let-values()" "(let-values(((mb421_0)" @@ -71539,28 +71884,28 @@ static const char *startup_source = " provides_13)" "(extract-requires-and-provides" " requires+provides_6" -" self_33" -" self_33)))" +" self_32" +" self_32)))" "(let-values(((result-form_0)" -"(if(let-values(((or-part_346)" +"(if(let-values(((or-part_347)" "(expand-context-to-parsed?" " init-ctx_0)))" -"(if or-part_346" -" or-part_346" +"(if or-part_347" +" or-part_347" " always-produce-compiled?_0))" "(parsed-module25.1" " rebuild-s_14" " #f" " id:module-name229_0" -" self_33" +" self_32" " requires_6" " provides_13" "(requires+provides-all-bindings-simple?" " requires+provides_6)" "(root-expand-context-encode-for-module" " root-ctx_6" -" self_33" -" self_33)" +" self_32" +" self_32)" "(parsed-#%module-begin-body" "(if(expanded+parsed?" " expanded-mb_0)" @@ -71578,11 +71923,11 @@ static const char *startup_source = "(let-values()" "(let-values(((generic-self_0)" "(make-generic-self-module-path-index" -" self_33)))" +" self_32)))" "(begin" "(imitate-generic-module-path-index!" -" self_33)" -"(let-values(((lst_410)" +" self_32)" +"(let-values(((lst_142)" "(unbox" " mpis-to-reset_0)))" "(begin" @@ -71591,19 +71936,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_410)))" -"((letrec-values(((for-loop_313)" -"(lambda(lst_411)" +" lst_142)))" +"((letrec-values(((for-loop_170)" +"(lambda(lst_414)" "(begin" " 'for-loop" "(if(pair?" -" lst_411)" -"(let-values(((mpi_54)" +" lst_414)" +"(let-values(((mpi_53)" "(unsafe-car" -" lst_411))" -"((rest_245)" +" lst_414))" +"((rest_237)" "(unsafe-cdr" -" lst_411)))" +" lst_414)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71611,17 +71956,17 @@ static const char *startup_source = "(begin" "(let-values()" "(imitate-generic-module-path-index!" -" mpi_54))" +" mpi_53))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_313" -" rest_245)" +"(for-loop_170" +" rest_237)" "(values))))" "(values))))))" -" for-loop_313)" -" lst_410)))" +" for-loop_170)" +" lst_142)))" "(void)" "(let-values(((result-s_15)" "(let-values(((rebuild-s423_0)" @@ -71642,7 +71987,7 @@ static const char *startup_source = "(let-values(((result-s425_0)" " result-s_15)" "((self426_0)" -" self_33)" +" self_32)" "((generic-self427_0)" " generic-self_0))" "(syntax-module-path-index-shift15.1" @@ -71657,7 +72002,7 @@ static const char *startup_source = "(attach-root-expand-context-properties" " result-s_16" " root-ctx_6" -" self_33" +" self_32" " generic-self_0)))" "(let-values(((result-s_18)" "(if(requires+provides-all-bindings-simple?" @@ -71668,14 +72013,14 @@ static const char *startup_source = " #t)" " result-s_17)))" "(begin" -"(let-values(((obs_129)" +"(let-values(((obs_135)" "(expand-context-observer" " init-ctx_0)))" -"(if obs_129" +"(if obs_135" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_129" +" obs_135" " 'rename-one" " result-s_18)))" "(void)))" @@ -71701,55 +72046,55 @@ static const char *startup_source = "(let-values(((module-name-sym_1) module-name-sym21_0))" "(let-values(((scopes-s_0) scopes-s22_0))" "(let-values()" -"(let-values(((ctx_112) ctx24_0))" +"(let-values(((ctx_113) ctx24_0))" "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" -"(let-values(((phase_153) phase26_2))" -"(let-values(((s_759) s27_2))" +"(let-values(((phase_150) phase26_2))" +"(let-values(((s_760) s27_2))" "(let-values()" "(let-values(((make-mb-ctx_0)" "(lambda()" "(begin" " 'make-mb-ctx" -"(let-values(((v_258) ctx_112))" -"(let-values(((the-struct_114) v_258))" -"(if(expand-context/outer? the-struct_114)" +"(let-values(((v_265) ctx_113))" +"(let-values(((the-struct_115) v_265))" +"(if(expand-context/outer? the-struct_115)" "(let-values(((context428_0) 'module-begin)" "((only-immediate?429_0) #t)" "((def-ctx-scopes430_0) def-ctx-scopes_9)" -"((inner431_0)(root-expand-context/outer-inner v_258)))" +"((inner431_0)(root-expand-context/outer-inner v_265)))" "(expand-context/outer1.1" " inner431_0" -"(root-expand-context/outer-post-expansion-scope the-struct_114)" -"(root-expand-context/outer-use-site-scopes the-struct_114)" -"(root-expand-context/outer-frame-id the-struct_114)" +"(root-expand-context/outer-post-expansion-scope the-struct_115)" +"(root-expand-context/outer-use-site-scopes the-struct_115)" +"(root-expand-context/outer-frame-id the-struct_115)" " context428_0" -"(expand-context/outer-env the-struct_114)" -"(expand-context/outer-post-expansion-scope-action the-struct_114)" -"(expand-context/outer-scopes the-struct_114)" +"(expand-context/outer-env the-struct_115)" +"(expand-context/outer-post-expansion-scope-action the-struct_115)" +"(expand-context/outer-scopes the-struct_115)" " def-ctx-scopes430_0" -"(expand-context/outer-binding-layer the-struct_114)" -"(expand-context/outer-reference-records the-struct_114)" +"(expand-context/outer-binding-layer the-struct_115)" +"(expand-context/outer-reference-records the-struct_115)" " only-immediate?429_0" -"(expand-context/outer-need-eventually-defined the-struct_114)" -"(expand-context/outer-current-introduction-scopes the-struct_114)" -"(expand-context/outer-name the-struct_114)))" +"(expand-context/outer-need-eventually-defined the-struct_115)" +"(expand-context/outer-current-introduction-scopes the-struct_115)" +"(expand-context/outer-name the-struct_115)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_114))))))))" +" the-struct_115))))))))" "(let-values(((mb_1)" "(if(= 1(length bodys_18))" "(let-values()" "(begin" -"(let-values(((obs_130)(expand-context-observer ctx_112)))" -"(if obs_130" +"(let-values(((obs_136)(expand-context-observer ctx_113)))" +"(if obs_136" "(let-values()" "(let-values()" -"(call-expand-observe obs_130 'rename-one(car bodys_18))))" +"(call-expand-observe obs_136 'rename-one(car bodys_18))))" "(void)))" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_153))" +"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_150))" "(let-values()(car bodys_18))" "(let-values()" "(let-values(((partly-expanded-body_0)" @@ -71764,13 +72109,13 @@ static const char *startup_source = " '#%module-begin" "(core-form-sym" "(syntax-disarm$1 partly-expanded-body_0)" -" phase_153))" +" phase_150))" "(let-values() partly-expanded-body_0)" "(let-values()" "(let-values(((temp434_0)(list partly-expanded-body_0))" -"((s435_0) s_759)" +"((s435_0) s_760)" "((scopes-s436_0) scopes-s_0)" -"((phase437_0) phase_153)" +"((phase437_0) phase_150)" "((module-name-sym438_0) module-name-sym_1)" "((temp439_0)(make-mb-ctx_0))" "((temp440_0) #f))" @@ -71785,9 +72130,9 @@ static const char *startup_source = " temp439_0)))))))))" "(let-values()" "(let-values(((bodys441_0) bodys_18)" -"((s442_0) s_759)" +"((s442_0) s_760)" "((scopes-s443_0) scopes-s_0)" -"((phase444_0) phase_153)" +"((phase444_0) phase_150)" "((module-name-sym445_0) module-name-sym_1)" "((temp446_0)(make-mb-ctx_0)))" "(add-module-begin47.1" @@ -71813,9 +72158,9 @@ static const char *startup_source = "(begin" " 'add-module-begin47" "(let-values(((bodys_19) bodys41_0))" -"(let-values(((s_760) s42_0))" +"(let-values(((s_761) s42_0))" "(let-values(((scopes-s_1) scopes-s43_0))" -"(let-values(((phase_154) phase44_1))" +"(let-values(((phase_151) phase44_1))" "(let-values(((module-name-sym_2) module-name-sym45_0))" "(let-values(((mb-ctx_1) mb-ctx46_0))" "(let-values(((log-rename-one?_0)(if log-rename-one?40_0 log-rename-one?39_0 #t)))" @@ -71824,34 +72169,34 @@ static const char *startup_source = "(let-values(((mb-id_0)(datum->syntax$1 disarmed-scopes-s_0 '#%module-begin)))" "(let-values((()" "(begin" -"(if(let-values(((mb-id447_0) mb-id_0)((phase448_0) phase_154))" +"(if(let-values(((mb-id447_0) mb-id_0)((phase448_0) phase_151))" "(resolve33.1 #f #f #f #f #f #f #f #f mb-id447_0 phase448_0))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"no #%module-begin binding in the module's language\"" -" s_760)))" +" s_761)))" "(values))))" "(let-values(((mb_2)" -"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_760 s_760)))" +"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_761 s_761)))" "(let-values((()" "(begin" -"(let-values(((obs_131)(expand-context-observer mb-ctx_1)))" -"(if obs_131" +"(let-values(((obs_137)(expand-context-observer mb-ctx_1)))" +"(if obs_137" "(let-values()" -"(let-values()(call-expand-observe obs_131 'tag mb_2)))" +"(let-values()(call-expand-observe obs_137 'tag mb_2)))" "(void)))" "(values))))" "(let-values((()" "(begin" "(if log-rename-one?_0" "(let-values()" -"(let-values(((obs_132)(expand-context-observer mb-ctx_1)))" -"(if obs_132" +"(let-values(((obs_138)(expand-context-observer mb-ctx_1)))" +"(if obs_138" "(let-values()" "(let-values()" -"(call-expand-observe obs_132 'rename-one mb_2)))" +"(call-expand-observe obs_138 'rename-one mb_2)))" "(void))))" "(void))" "(values))))" @@ -71864,13 +72209,13 @@ static const char *startup_source = "(begin" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_154))" +"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_151))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"expansion of #%module-begin is not a #%plain-module-begin form\"" -" s_760" +" s_761" " partly-expanded-mb_0)))" " partly-expanded-mb_0)))))))))))))))))))" "(define-values" @@ -71882,17 +72227,17 @@ static const char *startup_source = " outside-scope_2" " init-ctx_1" " keep-enclosing-scope-at-phase_1" -" self_34" +" self_33" " enclosing-self_2" " enclosing-mod_2)" "(begin" -"(lambda(s_761)" +"(lambda(s_762)" "(let-values()" "(let-values(((s-without-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" -" s_761" +" s_762" "(remove-use-site-scopes" -"(remove-scopes s_761(root-expand-context-module-scopes init-ctx_1))" +"(remove-scopes s_762(root-expand-context-module-scopes init-ctx_1))" " init-ctx_1))))" "(let-values(((s-with-edges_0)" "(add-scope(add-scope s-without-enclosing_0 outside-scope_2) inside-scope_1)))" @@ -71912,8 +72257,8 @@ static const char *startup_source = " #f)))" "(let-values() s-with-edges_0))))" "(let-values(((s-with-suitable-enclosing451_0) s-with-suitable-enclosing_0)" -"((temp452_0)(make-generic-self-module-path-index self_34))" -"((self453_0) self_34)" +"((temp452_0)(make-generic-self-module-path-index self_33))" +"((self453_0) self_33)" "((temp454_0)(current-code-inspector)))" "(syntax-module-path-index-shift15.1" " #f" @@ -71944,10 +72289,10 @@ static const char *startup_source = "(begin" " 'partially-expand-bodys81" "(let-values(((bodys_20) bodys80_0))" -"(let-values(((phase_155) phase50_0))" +"(let-values(((phase_152) phase50_0))" "(let-values(((partial-body-ctx_1) ctx51_0))" "(let-values(((m-ns_20) namespace52_0))" -"(let-values(((self_35) self53_0))" +"(let-values(((self_34) self53_0))" "(let-values(((frame-id_17) frame-id54_0))" "(let-values(((requires+provides_7) requires-and-provides55_0))" "(let-values(((need-eventually-defined_2) need-eventually-defined56_0))" @@ -71961,29 +72306,29 @@ static const char *startup_source = "(let-values(((pass-1-and-2-loop_1) loop64_0))" "(let-values()" "(begin" -"(namespace-visit-available-modules! m-ns_20 phase_155)" -"((letrec-values(((loop_131)" -"(lambda(tail?_53 bodys_21)" +"(namespace-visit-available-modules! m-ns_20 phase_152)" +"((letrec-values(((loop_124)" +"(lambda(tail?_52 bodys_21)" "(begin" " 'loop" "(if(null? bodys_21)" "(let-values()" -"(if(if tail?_53(not(zero? phase_155)) #f)" +"(if(if tail?_52(not(zero? phase_152)) #f)" "(let-values()" "(begin" -"(let-values(((obs_133)" +"(let-values(((obs_139)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_133" +"(if obs_139" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_133" +" obs_139" " 'module-lift-end-loop" " '())))" "(void)))" " null))" -"(if tail?_53" +"(if tail?_52" "(let-values()" "(let-values(((bodys_22)" "(append" @@ -71994,21 +72339,21 @@ static const char *startup_source = "(expand-context-to-module-lifts" " partial-body-ctx_1)))))" "(begin" -"(let-values(((obs_134)" +"(let-values(((obs_140)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_134" +"(if obs_140" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_134" +" obs_140" " 'module-lift-end-loop" " bodys_22)))" "(void)))" "(if(null? bodys_22)" "(let-values() null)" "(let-values()" -"(loop_131" +"(loop_124" " #t" "(add-post-expansion-scope" " bodys_22" @@ -72018,14 +72363,14 @@ static const char *startup_source = "(let-values(((rest-bodys_1)(cdr bodys_21)))" "(let-values((()" "(begin" -"(let-values(((obs_135)" +"(let-values(((obs_141)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_135" +"(if obs_141" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_135" +" obs_141" " 'next)))" "(void)))" "(values))))" @@ -72057,14 +72402,14 @@ static const char *startup_source = " exp-body_7" " rest-bodys_1))" "(void))" -"(let-values(((obs_136)" +"(let-values(((obs_142)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_136" +"(if obs_142" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_136" +" obs_142" " 'rename-one" " exp-body_7)))" "(void)))" @@ -72072,49 +72417,49 @@ static const char *startup_source = "(lambda()" "(begin" " 'finish" -"(let-values(((tmp_65)" +"(let-values(((tmp_23)" "(core-form-sym" " disarmed-exp-body_1" -" phase_155)))" +" phase_152)))" "(if(equal?" -" tmp_65" +" tmp_23" " 'begin)" "(let-values()" -"(let-values(((ok?_76" +"(let-values(((ok?_75" " begin460_0" " e461_0)" -"(let-values(((s_762)" +"(let-values(((s_763)" " disarmed-exp-body_1))" "(let-values(((orig-s_82)" -" s_762))" +" s_763))" "(let-values(((begin460_1" " e461_1)" -"(let-values(((s_763)" -"(if(syntax?$1" -" s_762)" -"(syntax-e$1" -" s_762)" -" s_762)))" -"(if(pair?" -" s_763)" -"(let-values(((begin462_0)" "(let-values(((s_764)" -"(car" -" s_763)))" -" s_764))" -"((e463_0)" -"(let-values(((s_765)" -"(cdr" -" s_763)))" -"(let-values(((s_766)" "(if(syntax?$1" -" s_765)" +" s_763)" "(syntax-e$1" -" s_765)" -" s_765)))" +" s_763)" +" s_763)))" +"(if(pair?" +" s_764)" +"(let-values(((begin462_0)" +"(let-values(((s_765)" +"(car" +" s_764)))" +" s_765))" +"((e463_0)" +"(let-values(((s_766)" +"(cdr" +" s_764)))" +"(let-values(((s_767)" +"(if(syntax?$1" +" s_766)" +"(syntax-e$1" +" s_766)" +" s_766)))" "(let-values(((flat-s_54)" "(to-syntax-list.1" -" s_766)))" +" s_767)))" "(if(not" " flat-s_54)" "(let-values()" @@ -72136,11 +72481,11 @@ static const char *startup_source = " begin460_1" " e461_1))))))" "(let-values(((track_1)" -"(lambda(e_91)" +"(lambda(e_94)" "(begin" " 'track" "(syntax-track-origin$1" -" e_91" +" e_94" " exp-body_7)))))" "(let-values(((spliced-bodys_0)" "(append" @@ -72149,42 +72494,42 @@ static const char *startup_source = " e461_0)" " rest-bodys_1)))" "(begin" -"(let-values(((obs_95)" +"(let-values(((obs_143)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_95" +"(if obs_143" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_95" +" obs_143" " 'splice" " spliced-bodys_0)))" "(void)))" -"(loop_131" -" tail?_53" +"(loop_124" +" tail?_52" " spliced-bodys_0))))))" "(if(equal?" -" tmp_65" +" tmp_23" " 'begin-for-syntax)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_137)" +"(let-values(((obs_144)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_137" +"(if obs_144" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_137" +" obs_144" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_137" +" obs_144" " 'prim-begin-for-syntax)" "(call-expand-observe" -" obs_137" +" obs_144" " 'prepare-env))))" "(void)))" "(values))))" @@ -72192,7 +72537,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " m-ns_20" "(add1" -" phase_155))))" +" phase_152))))" "(let-values((()" "(begin" "(prepare-next-phase-namespace" @@ -72200,52 +72545,52 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_138)" +"(let-values(((obs_145)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_138" +"(if obs_145" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_138" +" obs_145" " 'phase-up)))" "(void)))" "(values))))" -"(let-values(((ok?_77" +"(let-values(((ok?_76" " begin-for-syntax464_0" " e465_0)" -"(let-values(((s_767)" +"(let-values(((s_768)" " disarmed-exp-body_1))" "(let-values(((orig-s_83)" -" s_767))" +" s_768))" "(let-values(((begin-for-syntax464_1" " e465_1)" -"(let-values(((s_768)" -"(if(syntax?$1" -" s_767)" -"(syntax-e$1" -" s_767)" -" s_767)))" -"(if(pair?" -" s_768)" -"(let-values(((begin-for-syntax466_0)" "(let-values(((s_769)" -"(car" -" s_768)))" -" s_769))" -"((e467_0)" -"(let-values(((s_770)" -"(cdr" -" s_768)))" -"(let-values(((s_771)" "(if(syntax?$1" -" s_770)" +" s_768)" "(syntax-e$1" -" s_770)" -" s_770)))" +" s_768)" +" s_768)))" +"(if(pair?" +" s_769)" +"(let-values(((begin-for-syntax466_0)" +"(let-values(((s_770)" +"(car" +" s_769)))" +" s_770))" +"((e467_0)" +"(let-values(((s_771)" +"(cdr" +" s_769)))" +"(let-values(((s_772)" +"(if(syntax?$1" +" s_771)" +"(syntax-e$1" +" s_771)" +" s_771)))" "(let-values(((flat-s_55)" "(to-syntax-list.1" -" s_771)))" +" s_772)))" "(if(not" " flat-s_55)" "(let-values()" @@ -72270,44 +72615,44 @@ static const char *startup_source = "(pass-1-and-2-loop_1" " e465_0" "(add1" -" phase_155))))" +" phase_152))))" "(begin" -"(let-values(((obs_139)" +"(let-values(((obs_146)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_139" +"(if obs_146" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_139" +" obs_146" " 'next-group)))" "(void)))" "(namespace-run-available-modules!" " m-ns_20" "(add1" -" phase_155))" +" phase_152))" "(eval-nested-bodys" " nested-bodys_1" "(add1" -" phase_155)" +" phase_152)" " ct-m-ns_0" -" self_35" +" self_34" " partial-body-ctx_1)" "(namespace-visit-available-modules!" " m-ns_20" -" phase_155)" -"(let-values(((obs_140)" +" phase_152)" +"(let-values(((obs_147)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_140" +"(if obs_147" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_140" +" obs_147" " 'exit-prim" "(let-values(((s-nested-bodys_0)" "(reverse$1" -"(let-values(((lst_257)" +"(let-values(((lst_415)" " nested-bodys_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -72315,42 +72660,42 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_257)))" -"((letrec-values(((for-loop_143)" -"(lambda(fold-var_354" -" lst_412)" +" lst_415)))" +"((letrec-values(((for-loop_321)" +"(lambda(fold-var_365" +" lst_416)" "(begin" " 'for-loop" "(if(pair?" -" lst_412)" +" lst_416)" "(let-values(((nested-body_0)" "(unsafe-car" -" lst_412))" -"((rest_246)" +" lst_416))" +"((rest_238)" "(unsafe-cdr" -" lst_412)))" -"(let-values(((fold-var_125)" -"(let-values(((fold-var_358)" -" fold-var_354))" -"(let-values(((fold-var_359)" +" lst_416)))" +"(let-values(((fold-var_366)" +"(let-values(((fold-var_367)" +" fold-var_365))" +"(let-values(((fold-var_368)" "(let-values()" "(cons" "(let-values()" "(extract-syntax" " nested-body_0))" -" fold-var_358))))" +" fold-var_367))))" "(values" -" fold-var_359)))))" +" fold-var_368)))))" "(if(not" " #f)" -"(for-loop_143" -" fold-var_125" -" rest_246)" -" fold-var_125)))" -" fold-var_354)))))" -" for-loop_143)" +"(for-loop_321" +" fold-var_366" +" rest_238)" +" fold-var_366)))" +" fold-var_365)))))" +" for-loop_321)" " null" -" lst_257))))))" +" lst_415))))))" "(datum->syntax$1" " #f" "(cons" @@ -72362,182 +72707,182 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax3.1" " exp-body_7" " nested-bodys_1)" -"(loop_131" -" tail?_53" +"(loop_124" +" tail?_52" " rest-bodys_1))))))))))" "(if(equal?" -" tmp_65" +" tmp_23" " 'define-values)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_141)" +"(let-values(((obs_148)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_141" +"(if obs_148" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_141" +" obs_148" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_141" +" obs_148" " 'prim-define-values))))" "(void)))" "(values))))" -"(let-values(((ok?_78" +"(let-values(((ok?_77" " define-values468_0" " id469_0" " rhs470_0)" -"(let-values(((s_772)" +"(let-values(((s_773)" " disarmed-exp-body_1))" "(let-values(((orig-s_84)" -" s_772))" +" s_773))" "(let-values(((define-values468_1" " id469_1" " rhs470_1)" -"(let-values(((s_773)" -"(if(syntax?$1" -" s_772)" -"(syntax-e$1" -" s_772)" -" s_772)))" -"(if(pair?" -" s_773)" -"(let-values(((define-values471_0)" "(let-values(((s_774)" -"(car" +"(if(syntax?$1" +" s_773)" +"(syntax-e$1" +" s_773)" " s_773)))" -" s_774))" +"(if(pair?" +" s_774)" +"(let-values(((define-values471_0)" +"(let-values(((s_775)" +"(car" +" s_774)))" +" s_775))" "((id472_0" " rhs473_0)" -"(let-values(((s_534)" +"(let-values(((s_776)" "(cdr" -" s_773)))" -"(let-values(((s_775)" +" s_774)))" +"(let-values(((s_519)" "(if(syntax?$1" -" s_534)" +" s_776)" "(syntax-e$1" -" s_534)" -" s_534)))" +" s_776)" +" s_776)))" "(if(pair?" -" s_775)" +" s_519)" "(let-values(((id474_0)" -"(let-values(((s_536)" +"(let-values(((s_520)" "(car" -" s_775)))" -"(let-values(((s_537)" +" s_519)))" +"(let-values(((s_521)" "(if(syntax?$1" -" s_536)" +" s_520)" "(syntax-e$1" -" s_536)" -" s_536)))" -"(let-values(((flat-s_39)" +" s_520)" +" s_520)))" +"(let-values(((flat-s_56)" "(to-syntax-list.1" -" s_537)))" +" s_521)))" "(if(not" -" flat-s_39)" +" flat-s_56)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_84))" "(let-values()" -"(let-values(((id_144)" -"(let-values(((lst_413)" -" flat-s_39))" +"(let-values(((id_150)" +"(let-values(((lst_417)" +" flat-s_56))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_413)))" -"((letrec-values(((for-loop_314)" -"(lambda(id_145" -" lst_414)" +" lst_417)))" +"((letrec-values(((for-loop_322)" +"(lambda(id_151" +" lst_418)" "(begin" " 'for-loop" "(if(pair?" -" lst_414)" -"(let-values(((s_776)" +" lst_418)" +"(let-values(((s_777)" "(unsafe-car" -" lst_414))" -"((rest_247)" +" lst_418))" +"((rest_239)" "(unsafe-cdr" -" lst_414)))" -"(let-values(((id_146)" -"(let-values(((id_147)" -" id_145))" -"(let-values(((id_148)" +" lst_418)))" +"(let-values(((id_152)" +"(let-values(((id_153)" +" id_151))" +"(let-values(((id_154)" "(let-values()" "(let-values(((id484_0)" "(let-values()" "(if(let-values(((or-part_400)" "(if(syntax?$1" -" s_776)" +" s_777)" "(symbol?" "(syntax-e$1" -" s_776))" +" s_777))" " #f)))" "(if or-part_400" " or-part_400" "(symbol?" -" s_776)))" -" s_776" +" s_777)))" +" s_777" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_84" -" s_776)))))" +" s_777)))))" "(cons" " id484_0" -" id_147)))))" +" id_153)))))" "(values" -" id_148)))))" +" id_154)))))" "(if(not" " #f)" -"(for-loop_314" -" id_146" -" rest_247)" -" id_146)))" -" id_145)))))" -" for-loop_314)" +"(for-loop_322" +" id_152" +" rest_239)" +" id_152)))" +" id_151)))))" +" for-loop_322)" " null" -" lst_413)))))" +" lst_417)))))" "(reverse$1" -" id_144))))))))" +" id_150))))))))" "((rhs475_0)" -"(let-values(((s_777)" +"(let-values(((s_523)" "(cdr" -" s_775)))" +" s_519)))" "(let-values(((s_778)" "(if(syntax?$1" -" s_777)" +" s_523)" "(syntax-e$1" -" s_777)" -" s_777)))" +" s_523)" +" s_523)))" "(if(pair?" " s_778)" "(let-values(((rhs476_0)" -"(let-values(((s_190)" +"(let-values(((s_779)" "(car" " s_778)))" -" s_190))" +" s_779))" "(()" -"(let-values(((s_779)" +"(let-values(((s_780)" "(cdr" " s_778)))" -"(let-values(((s_780)" +"(let-values(((s_781)" "(if(syntax?$1" -" s_779)" -"(syntax-e$1" -" s_779)" -" s_779)))" -"(if(null?" " s_780)" +"(syntax-e$1" +" s_780)" +" s_780)))" +"(if(null?" +" s_781)" "(values)" "(raise-syntax-error$1" " #f" @@ -72578,7 +72923,7 @@ static const char *startup_source = "(let-values(((ids477_0)" " ids_41)" "((phase478_0)" -" phase_155)" +" phase_152)" "((exp-body479_0)" " exp-body_7))" "(check-no-duplicate-ids8.1" @@ -72592,16 +72937,32 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((exp-body483_0)" +"(let-values(((ids480_0)" +" ids_41)" +"((phase481_0)" +" phase_152)" +"((requires+provides482_0)" +" requires+provides_7)" +"((exp-body483_0)" " exp-body_7))" "(check-ids-unbound173.1" " exp-body483_0" -" ids_41" -" phase_155" -" requires+provides_7))" +" ids480_0" +" phase481_0" +" requires+provides482_0))" "(values))))" "(let-values(((syms_24)" -"(let-values(((frame-id490_0)" +"(let-values(((ids485_0)" +" ids_41)" +"((defined-syms486_0)" +" defined-syms_11)" +"((self487_0)" +" self_34)" +"((phase488_0)" +" phase_152)" +"((all-scopes-stx489_0)" +" all-scopes-stx_5)" +"((frame-id490_0)" " frame-id_17)" "((requires+provides491_0)" " requires+provides_7)" @@ -72617,24 +72978,24 @@ static const char *startup_source = " #t" " #f" " #f" -" ids_41" -" defined-syms_11" -" self_35" -" phase_155" -" all-scopes-stx_5))))" +" ids485_0" +" defined-syms486_0" +" self487_0" +" phase488_0" +" all-scopes-stx489_0))))" "(begin" "(add-defined-syms!" " requires+provides_7" " syms_24" -" phase_155)" -"(let-values(((obs_98)" +" phase_152)" +"(let-values(((obs_149)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_98" +"(if obs_149" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_98" +" obs_149" " 'exit-prim" "(datum->syntax$1" " #f" @@ -72650,31 +73011,31 @@ static const char *startup_source = " syms_24" " ids_41" " rhs470_0)" -"(loop_131" -" tail?_53" +"(loop_124" +" tail?_52" " rest-bodys_1))))))))))" "(if(equal?" -" tmp_65" +" tmp_23" " 'define-syntaxes)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_142)" +"(let-values(((obs_150)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_142" +"(if obs_150" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_142" +" obs_150" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_142" +" obs_150" " 'prim-define-syntaxes)" "(call-expand-observe" -" obs_142" +" obs_150" " 'prepare-env))))" "(void)))" "(values))))" @@ -72685,186 +73046,186 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_143)" +"(let-values(((obs_104)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_143" +"(if obs_104" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_143" +" obs_104" " 'phase-up)))" "(void)))" "(values))))" -"(let-values(((ok?_79" +"(let-values(((ok?_78" " define-syntaxes493_0" " id494_0" " rhs495_0)" -"(let-values(((s_781)" +"(let-values(((s_529)" " disarmed-exp-body_1))" -"(let-values(((orig-s_85)" -" s_781))" +"(let-values(((orig-s_47)" +" s_529))" "(let-values(((define-syntaxes493_1" " id494_1" " rhs495_1)" -"(let-values(((s_543)" +"(let-values(((s_782)" "(if(syntax?$1" -" s_781)" +" s_529)" "(syntax-e$1" -" s_781)" -" s_781)))" +" s_529)" +" s_529)))" "(if(pair?" -" s_543)" +" s_782)" "(let-values(((define-syntaxes496_0)" -"(let-values(((s_544)" +"(let-values(((s_533)" "(car" -" s_543)))" -" s_544))" +" s_782)))" +" s_533))" "((id497_0" " rhs498_0)" -"(let-values(((s_782)" -"(cdr" -" s_543)))" "(let-values(((s_783)" -"(if(syntax?$1" -" s_782)" -"(syntax-e$1" -" s_782)" +"(cdr" " s_782)))" -"(if(pair?" -" s_783)" -"(let-values(((id499_0)" -"(let-values(((s_547)" -"(car" -" s_783)))" "(let-values(((s_784)" "(if(syntax?$1" -" s_547)" +" s_783)" "(syntax-e$1" -" s_547)" -" s_547)))" -"(let-values(((flat-s_56)" -"(to-syntax-list.1" +" s_783)" +" s_783)))" +"(if(pair?" +" s_784)" +"(let-values(((id499_0)" +"(let-values(((s_785)" +"(car" " s_784)))" +"(let-values(((s_786)" +"(if(syntax?$1" +" s_785)" +"(syntax-e$1" +" s_785)" +" s_785)))" +"(let-values(((flat-s_57)" +"(to-syntax-list.1" +" s_786)))" "(if(not" -" flat-s_56)" +" flat-s_57)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_85))" +" orig-s_47))" "(let-values()" -"(let-values(((id_149)" -"(let-values(((lst_66)" -" flat-s_56))" +"(let-values(((id_155)" +"(let-values(((lst_419)" +" flat-s_57))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_66)))" -"((letrec-values(((for-loop_86)" -"(lambda(id_150" -" lst_67)" +" lst_419)))" +"((letrec-values(((for-loop_323)" +"(lambda(id_156" +" lst_420)" "(begin" " 'for-loop" "(if(pair?" -" lst_67)" -"(let-values(((s_785)" +" lst_420)" +"(let-values(((s_787)" "(unsafe-car" -" lst_67))" -"((rest_30)" +" lst_420))" +"((rest_240)" "(unsafe-cdr" -" lst_67)))" -"(let-values(((id_151)" -"(let-values(((id_152)" -" id_150))" -"(let-values(((id_153)" +" lst_420)))" +"(let-values(((id_157)" +"(let-values(((id_158)" +" id_156))" +"(let-values(((id_159)" "(let-values()" "(let-values(((id509_0)" "(let-values()" "(if(let-values(((or-part_401)" "(if(syntax?$1" -" s_785)" +" s_787)" "(symbol?" "(syntax-e$1" -" s_785))" +" s_787))" " #f)))" "(if or-part_401" " or-part_401" "(symbol?" -" s_785)))" -" s_785" +" s_787)))" +" s_787" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_85" -" s_785)))))" +" orig-s_47" +" s_787)))))" "(cons" " id509_0" -" id_152)))))" +" id_158)))))" "(values" -" id_153)))))" +" id_159)))))" "(if(not" " #f)" -"(for-loop_86" -" id_151" -" rest_30)" -" id_151)))" -" id_150)))))" -" for-loop_86)" +"(for-loop_323" +" id_157" +" rest_240)" +" id_157)))" +" id_156)))))" +" for-loop_323)" " null" -" lst_66)))))" +" lst_419)))))" "(reverse$1" -" id_149))))))))" +" id_155))))))))" "((rhs500_0)" -"(let-values(((s_786)" -"(cdr" -" s_783)))" -"(let-values(((s_787)" -"(if(syntax?$1" -" s_786)" -"(syntax-e$1" -" s_786)" -" s_786)))" -"(if(pair?" -" s_787)" -"(let-values(((rhs501_0)" "(let-values(((s_788)" -"(car" -" s_787)))" -" s_788))" -"(()" -"(let-values(((s_789)" "(cdr" -" s_787)))" -"(let-values(((s_790)" +" s_784)))" +"(let-values(((s_789)" "(if(syntax?$1" -" s_789)" +" s_788)" "(syntax-e$1" +" s_788)" +" s_788)))" +"(if(pair?" " s_789)" +"(let-values(((rhs501_0)" +"(let-values(((s_790)" +"(car" " s_789)))" +" s_790))" +"(()" +"(let-values(((s_791)" +"(cdr" +" s_789)))" +"(let-values(((s_792)" +"(if(syntax?$1" +" s_791)" +"(syntax-e$1" +" s_791)" +" s_791)))" "(if(null?" -" s_790)" +" s_792)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_85))))))" +" orig-s_47))))))" "(values" " rhs501_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_85))))))" +" orig-s_47))))))" "(values" " id499_0" " rhs500_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_85))))))" +" orig-s_47))))))" "(values" " define-syntaxes496_0" " id497_0" @@ -72872,7 +73233,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_85)))))" +" orig-s_47)))))" "(values" " #t" " define-syntaxes493_1" @@ -72887,7 +73248,7 @@ static const char *startup_source = "(let-values(((ids502_0)" " ids_42)" "((phase503_0)" -" phase_155)" +" phase_152)" "((exp-body504_0)" " exp-body_7))" "(check-no-duplicate-ids8.1" @@ -72901,16 +73262,32 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((exp-body508_0)" +"(let-values(((ids505_0)" +" ids_42)" +"((phase506_0)" +" phase_152)" +"((requires+provides507_0)" +" requires+provides_7)" +"((exp-body508_0)" " exp-body_7))" "(check-ids-unbound173.1" " exp-body508_0" -" ids_42" -" phase_155" -" requires+provides_7))" +" ids505_0" +" phase506_0" +" requires+provides507_0))" "(values))))" "(let-values(((syms_25)" -"(let-values(((frame-id515_0)" +"(let-values(((ids510_0)" +" ids_42)" +"((defined-syms511_0)" +" defined-syms_11)" +"((self512_0)" +" self_34)" +"((phase513_0)" +" phase_152)" +"((all-scopes-stx514_0)" +" all-scopes-stx_5)" +"((frame-id515_0)" " frame-id_17)" "((requires+provides516_0)" " requires+provides_7)" @@ -72928,19 +73305,19 @@ static const char *startup_source = " #t" " #f" " #f" -" ids_42" -" defined-syms_11" -" self_35" -" phase_155" -" all-scopes-stx_5))))" +" ids510_0" +" defined-syms511_0" +" self512_0" +" phase513_0" +" all-scopes-stx514_0))))" "(let-values((()" "(begin" "(add-defined-syms!" " requires+provides_7" " syms_25" -" phase_155)" +" phase_152)" "(values))))" -"(let-values(((exp-rhs_6" +"(let-values(((exp-rhs_5" " parsed-rhs_2" " vals_10)" "(let-values(((temp519_0)" @@ -72948,20 +73325,20 @@ static const char *startup_source = "((ids520_0)" " ids_42)" "((temp521_0)" -"(let-values(((v_259)" +"(let-values(((v_266)" " partial-body-ctx_1))" -"(let-values(((the-struct_115)" -" v_259))" +"(let-values(((the-struct_116)" +" v_266))" "(if(expand-context/outer?" -" the-struct_115)" +" the-struct_116)" "(let-values(((need-eventually-defined523_0)" " need-eventually-defined_2)" "((inner524_0)" -"(let-values(((the-struct_116)" +"(let-values(((the-struct_117)" "(root-expand-context/outer-inner" -" v_259)))" +" v_266)))" "(if(expand-context/inner?" -" the-struct_116)" +" the-struct_117)" "(let-values(((lifts525_0)" " #f)" "((module-lifts526_0)" @@ -72970,89 +73347,89 @@ static const char *startup_source = " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_116)" +" the-struct_117)" "(root-expand-context/inner-module-scopes" -" the-struct_116)" +" the-struct_117)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_116)" +" the-struct_117)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_116)" +" the-struct_117)" "(root-expand-context/inner-defined-syms" -" the-struct_116)" +" the-struct_117)" "(root-expand-context/inner-counter" -" the-struct_116)" +" the-struct_117)" "(root-expand-context/inner-lift-key" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-to-parsed?" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-phase" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-namespace" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-just-once?" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-module-begin-k" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-allow-unbound?" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-in-local-expand?" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-stops" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-declared-submodule-names" -" the-struct_116)" +" the-struct_117)" " lifts525_0" "(expand-context/inner-lift-envs" -" the-struct_116)" +" the-struct_117)" " module-lifts526_0" "(expand-context/inner-require-lifts" -" the-struct_116)" +" the-struct_117)" " to-module-lifts527_0" "(expand-context/inner-requires+provides" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-observer" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-for-serializable?" -" the-struct_116)" +" the-struct_117)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_116)))" +" the-struct_117)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_116)))))" +" the-struct_117)))))" "(expand-context/outer1.1" " inner524_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_115)" +" the-struct_116)" "(root-expand-context/outer-use-site-scopes" -" the-struct_115)" +" the-struct_116)" "(root-expand-context/outer-frame-id" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-context" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-env" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-scopes" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-def-ctx-scopes" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-binding-layer" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-reference-records" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-only-immediate?" -" the-struct_115)" +" the-struct_116)" " need-eventually-defined523_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_115)" +" the-struct_116)" "(expand-context/outer-name" -" the-struct_115)))" +" the-struct_116)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_115)))))" +" the-struct_116)))))" "((temp522_0)" " #f))" "(expand+eval-for-syntaxes-binding63.1" @@ -73063,11 +73440,11 @@ static const char *startup_source = " temp521_0))))" "(let-values((()" "(begin" -"(let-values(((lst_415)" +"(let-values(((lst_421)" " syms_25)" -"((lst_416)" +"((lst_422)" " vals_10)" -"((lst_417)" +"((lst_423)" " ids_42))" "(begin" "(if(variable-reference-from-unsafe?" @@ -73075,51 +73452,51 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_415)))" +" lst_421)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_416)))" +" lst_422)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_417)))" -"((letrec-values(((for-loop_315)" -"(lambda(lst_418" -" lst_419" -" lst_420)" +" lst_423)))" +"((letrec-values(((for-loop_324)" +"(lambda(lst_424" +" lst_425" +" lst_426)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_418)" +" lst_424)" "(if(pair?" -" lst_419)" +" lst_425)" "(pair?" -" lst_420)" +" lst_426)" " #f)" " #f)" "(let-values(((sym_106)" "(unsafe-car" -" lst_418))" -"((rest_248)" +" lst_424))" +"((rest_241)" "(unsafe-cdr" -" lst_418))" -"((val_86)" +" lst_424))" +"((val_82)" "(unsafe-car" -" lst_419))" -"((rest_249)" +" lst_425))" +"((rest_242)" "(unsafe-cdr" -" lst_419))" -"((id_154)" +" lst_425))" +"((id_160)" "(unsafe-car" -" lst_420))" -"((rest_250)" +" lst_426))" +"((rest_243)" "(unsafe-cdr" -" lst_420)))" +" lst_426)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -73128,48 +73505,48 @@ static const char *startup_source = "(let-values()" "(begin" "(maybe-install-free=id-in-context!" -" val_86" -" id_154" -" phase_155" +" val_82" +" id_160" +" phase_152" " partial-body-ctx_1)" "(namespace-set-transformer!" " m-ns_20" -" phase_155" +" phase_152" " sym_106" -" val_86)))" +" val_82)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_315" -" rest_248" -" rest_249" -" rest_250)" +"(for-loop_324" +" rest_241" +" rest_242" +" rest_243)" "(values))))" "(values))))))" -" for-loop_315)" -" lst_415" -" lst_416" -" lst_417)))" +" for-loop_324)" +" lst_421" +" lst_422" +" lst_423)))" "(values))))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_144)" +"(let-values(((obs_151)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_144" +"(if obs_151" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_144" +" obs_151" " 'exit-prim" "(datum->syntax$1" " #f" "(list" " define-syntaxes493_0" " ids_42" -" exp-rhs_6)))))" +" exp-rhs_5)))))" "(void)))" "(values))))" "(let-values(((parsed-body_0)" @@ -73190,35 +73567,35 @@ static const char *startup_source = "(list" " define-syntaxes493_0" " ids_42" -" exp-rhs_6)))" +" exp-rhs_5)))" "(rebuild5.1" " #f" " #f" " exp-body528_0" " temp529_0))" " parsed-body_0))" -"(loop_131" -" tail?_53" +"(loop_124" +" tail?_52" " rest-bodys_1)))))))))))))))))" "(if(equal?" -" tmp_65" +" tmp_23" " '#%require)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_145)" +"(let-values(((obs_152)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_145" +"(if obs_152" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_145" +" obs_152" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_145" +" obs_152" " 'prim-require))))" "(void)))" "(values))))" @@ -73226,57 +73603,57 @@ static const char *startup_source = "(remove-use-site-scopes" " disarmed-exp-body_1" " partial-body-ctx_1)))" -"(let-values(((ok?_80" +"(let-values(((ok?_79" " #%require530_0" " req531_0)" -"(let-values(((s_791)" +"(let-values(((s_793)" " ready-body_0))" -"(let-values(((orig-s_86)" -" s_791))" +"(let-values(((orig-s_85)" +" s_793))" "(let-values(((#%require530_1" " req531_1)" -"(let-values(((s_792)" -"(if(syntax?$1" -" s_791)" -"(syntax-e$1" -" s_791)" -" s_791)))" -"(if(pair?" -" s_792)" -"(let-values(((#%require532_0)" -"(let-values(((s_793)" -"(car" -" s_792)))" -" s_793))" -"((req533_0)" "(let-values(((s_794)" -"(cdr" -" s_792)))" -"(let-values(((s_795)" "(if(syntax?$1" -" s_794)" +" s_793)" "(syntax-e$1" +" s_793)" +" s_793)))" +"(if(pair?" " s_794)" +"(let-values(((#%require532_0)" +"(let-values(((s_795)" +"(car" " s_794)))" -"(let-values(((flat-s_57)" +" s_795))" +"((req533_0)" +"(let-values(((s_796)" +"(cdr" +" s_794)))" +"(let-values(((s_797)" +"(if(syntax?$1" +" s_796)" +"(syntax-e$1" +" s_796)" +" s_796)))" +"(let-values(((flat-s_58)" "(to-syntax-list.1" -" s_795)))" +" s_797)))" "(if(not" -" flat-s_57)" +" flat-s_58)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_86))" +" orig-s_85))" "(let-values()" -" flat-s_57)))))))" +" flat-s_58)))))))" "(values" " #%require532_0" " req533_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_86)))))" +" orig-s_85)))))" "(values" " #t" " #%require530_1" @@ -73287,13 +73664,13 @@ static const char *startup_source = "((exp-body535_0)" " exp-body_7)" "((self536_0)" -" self_35)" +" self_34)" "((m-ns537_0)" " m-ns_20)" "((phase538_0)" -" phase_155)" +" phase_152)" "((phase539_0)" -" phase_155)" +" phase_152)" "((requires+provides540_0)" " requires+provides_7)" "((declared-submodule-names541_0)" @@ -73325,33 +73702,33 @@ static const char *startup_source = " m-ns537_0" " phase538_0" " requires+provides540_0))" -"(let-values(((obs_146)" +"(let-values(((obs_153)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_146" +"(if obs_153" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_146" +" obs_153" " 'exit-prim" " ready-body_0)))" "(void)))" "(cons" " exp-body_7" -"(loop_131" -" tail?_53" +"(loop_124" +" tail?_52" " rest-bodys_1)))))))" "(if(equal?" -" tmp_65" +" tmp_23" " '#%provide)" "(let-values()" "(cons" " exp-body_7" -"(loop_131" -" tail?_53" +"(loop_124" +" tail?_52" " rest-bodys_1)))" "(if(equal?" -" tmp_65" +" tmp_23" " 'module)" "(let-values()" "(let-values(((ready-body_1)" @@ -73359,7 +73736,13 @@ static const char *startup_source = " exp-body_7" " partial-body-ctx_1)))" "(let-values(((submod_2)" -"(let-values(((temp546_0)" +"(let-values(((ready-body543_0)" +" ready-body_1)" +"((self544_0)" +" self_34)" +"((partial-body-ctx545_0)" +" partial-body-ctx_1)" +"((temp546_0)" " #f)" "((declared-submodule-names547_0)" " declared-submodule-names_4)" @@ -73383,105 +73766,105 @@ static const char *startup_source = " #f" " modules-being-compiled550_0" " mpis-to-reset548_0" -" ready-body_1" -" self_35" -" partial-body-ctx_1))))" +" ready-body543_0" +" self544_0" +" partial-body-ctx545_0))))" "(cons" " submod_2" -"(loop_131" -" tail?_53" +"(loop_124" +" tail?_52" " rest-bodys_1)))))" "(if(equal?" -" tmp_65" +" tmp_23" " 'module*)" "(let-values()" "(begin" -"(let-values(((obs_147)" +"(let-values(((obs_154)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_147" +"(if obs_154" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_147" +" obs_154" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_147" +" obs_154" " 'prim-submodule*)" "(call-expand-observe" -" obs_147" +" obs_154" " 'exit-prim" " exp-body_7))))" "(void)))" "(cons" " exp-body_7" -"(loop_131" -" tail?_53" +"(loop_124" +" tail?_52" " rest-bodys_1))))" "(if(equal?" -" tmp_65" +" tmp_23" " '#%declare)" "(let-values()" -"(let-values(((ok?_81" +"(let-values(((ok?_80" " #%declare551_0" " kw552_0)" -"(let-values(((s_796)" +"(let-values(((s_798)" " disarmed-exp-body_1))" -"(let-values(((orig-s_87)" -" s_796))" +"(let-values(((orig-s_86)" +" s_798))" "(let-values(((#%declare551_1" " kw552_1)" -"(let-values(((s_797)" +"(let-values(((s_569)" "(if(syntax?$1" -" s_796)" +" s_798)" "(syntax-e$1" -" s_796)" -" s_796)))" +" s_798)" +" s_798)))" "(if(pair?" -" s_797)" +" s_569)" "(let-values(((#%declare553_0)" -"(let-values(((s_576)" +"(let-values(((s_799)" "(car" -" s_797)))" -" s_576))" +" s_569)))" +" s_799))" "((kw554_0)" -"(let-values(((s_577)" +"(let-values(((s_572)" "(cdr" -" s_797)))" -"(let-values(((s_578)" +" s_569)))" +"(let-values(((s_573)" "(if(syntax?$1" -" s_577)" +" s_572)" "(syntax-e$1" -" s_577)" -" s_577)))" -"(let-values(((flat-s_58)" +" s_572)" +" s_572)))" +"(let-values(((flat-s_59)" "(to-syntax-list.1" -" s_578)))" +" s_573)))" "(if(not" -" flat-s_58)" +" flat-s_59)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_87))" +" orig-s_86))" "(let-values()" -" flat-s_58)))))))" +" flat-s_59)))))))" "(values" " #%declare553_0" " kw554_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_87)))))" +" orig-s_86)))))" "(values" " #t" " #%declare551_1" " kw552_1))))))" "(let-values((()" "(begin" -"(let-values(((lst_421)" +"(let-values(((lst_427)" " kw552_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -73489,19 +73872,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_421)))" -"((letrec-values(((for-loop_316)" -"(lambda(lst_422)" +" lst_427)))" +"((letrec-values(((for-loop_325)" +"(lambda(lst_428)" "(begin" " 'for-loop" "(if(pair?" -" lst_422)" -"(let-values(((kw_2)" +" lst_428)" +"(let-values(((kw_1)" "(unsafe-car" -" lst_422))" -"((rest_251)" +" lst_428))" +"((rest_244)" "(unsafe-cdr" -" lst_422)))" +" lst_428)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -73511,17 +73894,17 @@ static const char *startup_source = "(begin" "(if(keyword?" "(syntax-e$1" -" kw_2))" +" kw_1))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"expected a keyword\"" " exp-body_7" -" kw_2)))" +" kw_1)))" "(if(memq" "(syntax-e$1" -" kw_2)" +" kw_1)" " '(#:cross-phase-persistent" " #:empty-namespace))" "(void)" @@ -73530,34 +73913,34 @@ static const char *startup_source = " #f" " \"not an allowed declaration keyword\"" " exp-body_7" -" kw_2)))" +" kw_1)))" "(if(hash-ref" " declared-keywords_1" "(syntax-e$1" -" kw_2)" +" kw_1)" " #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"keyword declared multiple times\"" " exp-body_7" -" kw_2))" +" kw_1))" "(void))" "(hash-set!" " declared-keywords_1" "(syntax-e$1" -" kw_2)" -" kw_2)))" +" kw_1)" +" kw_1)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_316" -" rest_251)" +"(for-loop_325" +" rest_244)" "(values))))" "(values))))))" -" for-loop_316)" -" lst_421)))" +" for-loop_325)" +" lst_427)))" "(values))))" "(let-values()" "(let-values(((parsed-body_1)" @@ -73570,73 +73953,79 @@ static const char *startup_source = "(expanded+parsed1.1" " exp-body_7" " parsed-body_1))" -"(loop_131" -" tail?_53" +"(loop_124" +" tail?_52" " rest-bodys_1)))))))" "(let-values()" "(cons" " exp-body_7" -"(loop_131" -" tail?_53" +"(loop_124" +" tail?_52" " rest-bodys_1)))))))))))))))))" -"(let-values(((l_84)" +"(let-values(((l_83)" "(append" "(get-and-clear-require-lifts!" "(expand-context-require-lifts" " partial-body-ctx_1))" " lifted-defns_0" -"(loop_131" +"(loop_124" " #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_84)" +"(if(null? l_83)" "(finish_2)" "(append" -" l_84" +" l_83" "(finish_2)))))))))))))))))" -" loop_131)" +" loop_124)" " #t" " bodys_20))))))))))))))))))))))" "(define-values" "(make-wrap-as-definition)" -"(lambda(self_36 frame-id_18 inside-scope_2 all-scopes-stx_6 defined-syms_12 requires+provides_8)" +"(lambda(self_35 frame-id_18 inside-scope_2 all-scopes-stx_6 defined-syms_12 requires+provides_8)" "(begin" -"(lambda(ids_43 rhs_23 phase_156)" +"(lambda(ids_43 rhs_24 phase_153)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_423) ids_43))" +"(let-values(((lst_429) ids_43))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_423)))" -"((letrec-values(((for-loop_317)" -"(lambda(fold-var_360 lst_424)" +"(let-values()(check-list lst_429)))" +"((letrec-values(((for-loop_326)" +"(lambda(fold-var_369 lst_430)" "(begin" " 'for-loop" -"(if(pair? lst_424)" -"(let-values(((id_155)(unsafe-car lst_424))" -"((rest_252)(unsafe-cdr lst_424)))" -"(let-values(((fold-var_361)" -"(let-values(((fold-var_362) fold-var_360))" -"(let-values(((fold-var_363)" +"(if(pair? lst_430)" +"(let-values(((id_161)(unsafe-car lst_430))" +"((rest_245)(unsafe-cdr lst_430)))" +"(let-values(((fold-var_370)" +"(let-values(((fold-var_371) fold-var_369))" +"(let-values(((fold-var_372)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_155" +" id_161" " inside-scope_2))" -" fold-var_362))))" -"(values fold-var_363)))))" -"(if(not #f)(for-loop_317 fold-var_361 rest_252) fold-var_361)))" -" fold-var_360)))))" -" for-loop_317)" +" fold-var_371))))" +"(values fold-var_372)))))" +"(if(not #f)(for-loop_326 fold-var_370 rest_245) fold-var_370)))" +" fold-var_369)))))" +" for-loop_326)" " null" -" lst_423))))))" +" lst_429))))))" "(let-values(((syms_26)" -"(let-values(((frame-id560_0) frame-id_18)((requires+provides561_0) requires+provides_8))" +"(let-values(((scoped-ids555_0) scoped-ids_0)" +"((defined-syms556_0) defined-syms_12)" +"((self557_0) self_35)" +"((phase558_0) phase_153)" +"((all-scopes-stx559_0) all-scopes-stx_6)" +"((frame-id560_0) frame-id_18)" +"((requires+provides561_0) requires+provides_8))" "(select-defined-syms-and-bind!16.1" " #f" " #f" @@ -73647,50 +74036,50 @@ static const char *startup_source = " #t" " #f" " #f" -" scoped-ids_0" -" defined-syms_12" -" self_36" -" phase_156" -" all-scopes-stx_6))))" -"(let-values(((s_798)" +" scoped-ids555_0" +" defined-syms556_0" +" self557_0" +" phase558_0" +" all-scopes-stx559_0))))" +"(let-values(((s_288)" "(add-scope" "(datum->syntax$1" " #f" "(list" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_156) 'define-values)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_153) 'define-values)" " scoped-ids_0" -" rhs_23))" +" rhs_24))" " inside-scope_2)))" -"(values scoped-ids_0(semi-parsed-define-values2.1 s_798 syms_26 scoped-ids_0 rhs_23)))))))))" +"(values scoped-ids_0(semi-parsed-define-values2.1 s_288 syms_26 scoped-ids_0 rhs_24)))))))))" "(define-values" "(add-post-expansion-scope)" -"(lambda(bodys_23 ctx_113)" +"(lambda(bodys_23 ctx_114)" "(begin" -"(let-values(((sc_34)(root-expand-context-post-expansion-scope ctx_113)))" -"(if sc_34" +"(let-values(((sc_35)(root-expand-context-post-expansion-scope ctx_114)))" +"(if sc_35" "(reverse$1" -"(let-values(((lst_425) bodys_23))" +"(let-values(((lst_431) bodys_23))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_425)))" -"((letrec-values(((for-loop_318)" -"(lambda(fold-var_364 lst_426)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_431)))" +"((letrec-values(((for-loop_327)" +"(lambda(fold-var_373 lst_432)" "(begin" " 'for-loop" -"(if(pair? lst_426)" -"(let-values(((body_23)(unsafe-car lst_426))((rest_253)(unsafe-cdr lst_426)))" -"(let-values(((fold-var_365)" -"(let-values(((fold-var_366) fold-var_364))" -"(let-values(((fold-var_367)" +"(if(pair? lst_432)" +"(let-values(((body_23)(unsafe-car lst_432))((rest_246)(unsafe-cdr lst_432)))" +"(let-values(((fold-var_374)" +"(let-values(((fold-var_375) fold-var_373))" +"(let-values(((fold-var_376)" "(let-values()" "(cons" -"(let-values()(add-scope body_23 sc_34))" -" fold-var_366))))" -"(values fold-var_367)))))" -"(if(not #f)(for-loop_318 fold-var_365 rest_253) fold-var_365)))" -" fold-var_364)))))" -" for-loop_318)" +"(let-values()(add-scope body_23 sc_35))" +" fold-var_375))))" +"(values fold-var_376)))))" +"(if(not #f)(for-loop_327 fold-var_374 rest_246) fold-var_374)))" +" fold-var_373)))))" +" for-loop_327)" " null" -" lst_425))))" +" lst_431))))" " bodys_23)))))" "(define-values" "(finish-expanding-body-expressons99.1)" @@ -73705,34 +74094,34 @@ static const char *startup_source = "(begin" " 'finish-expanding-body-expressons99" "(let-values(((partially-expanded-bodys_1) partially-expanded-bodys98_0))" -"(let-values(((phase_157) phase84_0))" +"(let-values(((phase_154) phase84_0))" "(let-values(((body-ctx_7) ctx85_0))" -"(let-values(((self_37) self86_0))" +"(let-values(((self_36) self86_0))" "(let-values(((declared-submodule-names_5) declared-submodule-names87_0))" "(let-values(((compiled-submodules_3) compiled-submodules88_0))" "(let-values(((modules-being-compiled_5) modules-being-compiled89_0))" "(let-values(((mpis-to-reset_2) mpis-to-reset90_0))" "(let-values()" -"((letrec-values(((loop_132)" -"(lambda(tail?_54 bodys_24)" +"((letrec-values(((loop_125)" +"(lambda(tail?_53 bodys_24)" "(begin" " 'loop" "(if(null? bodys_24)" "(let-values()" -"(if(if tail?_54(not(zero? phase_157)) #f)" +"(if(if tail?_53(not(zero? phase_154)) #f)" "(let-values()" "(begin" -"(let-values(((obs_148)(expand-context-observer body-ctx_7)))" -"(if obs_148" +"(let-values(((obs_155)(expand-context-observer body-ctx_7)))" +"(if obs_155" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_148" +" obs_155" " 'module-lift-end-loop" " '())))" "(void)))" " null))" -"(if tail?_54" +"(if tail?_53" "(let-values()" "(let-values(((bodys_25)" "(append" @@ -73743,31 +74132,31 @@ static const char *startup_source = "(if(null? bodys_25)" "(let-values()" "(begin" -"(let-values(((obs_149)" +"(let-values(((obs_156)" "(expand-context-observer body-ctx_7)))" -"(if obs_149" +"(if obs_156" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_149" +" obs_156" " 'module-lift-end-loop" " '())))" "(void)))" " null))" "(let-values()" -"(loop_132" +"(loop_125" " #t" "(add-post-expansion-scope bodys_25 body-ctx_7))))))" "(let-values() null))))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_150)" +"(let-values(((obs_157)" "(expand-context-observer body-ctx_7)))" -"(if obs_150" +"(if obs_157" "(let-values()" "(let-values()" -"(call-expand-observe obs_150 'next)))" +"(call-expand-observe obs_157 'next)))" "(void)))" "(values))))" "(let-values(((body_24)(car bodys_24)))" @@ -73797,104 +74186,104 @@ static const char *startup_source = "(let-values(((syms_27)" "(semi-parsed-define-values-syms" " body_24)))" -"(let-values(((s_301)" +"(let-values(((s_800)" "(semi-parsed-define-values-s" " body_24)))" -"(let-values(((ok?_82" +"(let-values(((ok?_81" " define-values562_0" " _563_0" " _564_0)" -"(let-values(((s_799)" +"(let-values(((s_801)" "(syntax-disarm$1" -" s_301)))" +" s_800)))" "(if(if(not" "(expand-context-to-parsed?" " rhs-ctx_2))" " #t" " #f)" -"(let-values(((orig-s_88)" -" s_799))" +"(let-values(((orig-s_87)" +" s_801))" "(let-values(((define-values562_1" " _563_1" " _564_1)" -"(let-values(((s_800)" +"(let-values(((s_802)" "(if(syntax?$1" -" s_799)" +" s_801)" "(syntax-e$1" -" s_799)" -" s_799)))" +" s_801)" +" s_801)))" "(if(pair?" -" s_800)" +" s_802)" "(let-values(((define-values565_0)" -"(let-values(((s_801)" +"(let-values(((s_803)" "(car" -" s_800)))" -" s_801))" +" s_802)))" +" s_803))" "((_566_0" " _567_0)" -"(let-values(((s_802)" -"(cdr" -" s_800)))" -"(let-values(((s_803)" -"(if(syntax?$1" -" s_802)" -"(syntax-e$1" -" s_802)" -" s_802)))" -"(if(pair?" -" s_803)" -"(let-values(((_568_0)" "(let-values(((s_804)" -"(car" -" s_803)))" -" s_804))" -"((_569_0)" +"(cdr" +" s_802)))" "(let-values(((s_805)" -"(cdr" -" s_803)))" -"(let-values(((s_806)" "(if(syntax?$1" -" s_805)" +" s_804)" "(syntax-e$1" -" s_805)" -" s_805)))" +" s_804)" +" s_804)))" "(if(pair?" -" s_806)" -"(let-values(((_570_0)" -"(let-values(((s_807)" +" s_805)" +"(let-values(((_568_0)" +"(let-values(((s_806)" "(car" -" s_806)))" -" s_807))" -"(()" -"(let-values(((s_808)" +" s_805)))" +" s_806))" +"((_569_0)" +"(let-values(((s_807)" "(cdr" -" s_806)))" -"(let-values(((s_809)" +" s_805)))" +"(let-values(((s_613)" "(if(syntax?$1" -" s_808)" +" s_807)" "(syntax-e$1" -" s_808)" -" s_808)))" -"(if(null?" +" s_807)" +" s_807)))" +"(if(pair?" +" s_613)" +"(let-values(((_570_0)" +"(let-values(((s_808)" +"(car" +" s_613)))" +" s_808))" +"(()" +"(let-values(((s_809)" +"(cdr" +" s_613)))" +"(let-values(((s_810)" +"(if(syntax?$1" " s_809)" +"(syntax-e$1" +" s_809)" +" s_809)))" +"(if(null?" +" s_810)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_88))))))" +" orig-s_87))))))" "(values" " _570_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_88))))))" +" orig-s_87))))))" "(values" " _568_0" " _569_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_88))))))" +" orig-s_87))))))" "(values" " define-values565_0" " _566_0" @@ -73902,7 +74291,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_88)))))" +" orig-s_87)))))" "(values" " #t" " define-values562_1" @@ -73914,7 +74303,11 @@ static const char *startup_source = " #f" " #f)))))" "(let-values(((rebuild-s_15)" -"(let-values(((temp573_0)" +"(let-values(((rhs-ctx571_0)" +" rhs-ctx_2)" +"((s572_0)" +" s_800)" +"((temp573_0)" " #t))" "(keep-as-needed74.1" " #f" @@ -73923,15 +74316,15 @@ static const char *startup_source = " #f" " temp573_0" " #t" -" rhs-ctx_2" -" s_301))))" +" rhs-ctx571_0" +" s572_0))))" "(let-values((()" "(begin" "(log-defn-enter" " body-ctx_7" " body_24)" "(values))))" -"(let-values(((exp-rhs_7)" +"(let-values(((exp-rhs_6)" "(let-values()" "(let-values(((temp574_0)" "(semi-parsed-define-values-rhs" @@ -73950,7 +74343,7 @@ static const char *startup_source = "(log-defn-exit" " body-ctx_7" " body_24" -" exp-rhs_7)" +" exp-rhs_6)" "(values))))" "(let-values(((comp-form_0)" "(parsed-define-values19.1" @@ -73959,9 +74352,9 @@ static const char *startup_source = " syms_27" "(if(expand-context-to-parsed?" " rhs-ctx_2)" -" exp-rhs_7" +" exp-rhs_6" "(let-values(((exp-rhs576_0)" -" exp-rhs_7)" +" exp-rhs_6)" "((temp577_0)" "(as-to-parsed-context" " rhs-ctx_2)))" @@ -73982,7 +74375,7 @@ static const char *startup_source = "(list" " define-values562_0" " ids_44" -" exp-rhs_7)))" +" exp-rhs_6)))" "(rebuild5.1" " #f" " #f" @@ -73992,15 +74385,15 @@ static const char *startup_source = "(let-values()" "(let-values(((disarmed-body_0)" "(syntax-disarm$1 body_24)))" -"(let-values(((tmp_66)" +"(let-values(((tmp_65)" "(core-form-sym" " disarmed-body_0" -" phase_157)))" -"(if(if(equal? tmp_66 '#%require)" +" phase_154)))" +"(if(if(equal? tmp_65 '#%require)" " #t" -"(if(equal? tmp_66 '#%provide)" +"(if(equal? tmp_65 '#%provide)" " #t" -"(equal? tmp_66 'module*)))" +"(equal? tmp_65 'module*)))" "(let-values() body_24)" "(let-values()" "(let-values()" @@ -74054,14 +74447,14 @@ static const char *startup_source = "(if no-lifts?_0" "(void)" "(let-values()" -"(let-values(((obs_151)" +"(let-values(((obs_158)" "(expand-context-observer" " body-ctx_7)))" -"(if obs_151" +"(if obs_158" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_151" +" obs_158" " 'module-lift-loop" "(append" " lifted-requires_0" @@ -74073,7 +74466,13 @@ static const char *startup_source = "(void)))))" "(values))))" "(let-values(((exp-lifted-modules_0)" -"(let-values(((mpis-to-reset588_0)" +"(let-values(((lifted-modules584_0)" +" lifted-modules_0)" +"((phase585_0) phase_154)" +"((self586_0) self_36)" +"((body-ctx587_0)" +" body-ctx_7)" +"((mpis-to-reset588_0)" " mpis-to-reset_2)" "((declared-submodule-names589_0)" " declared-submodule-names_5)" @@ -74086,24 +74485,24 @@ static const char *startup_source = " declared-submodule-names589_0" " modules-being-compiled591_0" " mpis-to-reset588_0" -" lifted-modules_0" -" phase_157" -" self_37" -" body-ctx_7))))" +" lifted-modules584_0" +" phase585_0" +" self586_0" +" body-ctx587_0))))" "(let-values(((exp-lifted-defns_0)" -"(loop_132 #f lifted-defns_1)))" +"(loop_125 #f lifted-defns_1)))" "(begin" "(if no-lifts?_0" "(void)" "(let-values()" -"(let-values(((obs_152)" +"(let-values(((obs_159)" "(expand-context-observer" " body-ctx_7)))" -"(if obs_152" +"(if obs_159" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_152" +" obs_159" " 'next)))" "(void)))))" "(append" @@ -74112,26 +74511,26 @@ static const char *startup_source = " exp-lifted-modules_0" "(cons" " exp-body_8" -"(loop_132" -" tail?_54" +"(loop_125" +" tail?_53" " rest-bodys_2)))))))))))))))))))))" -" loop_132)" +" loop_125)" " #t" " partially-expanded-bodys_1)))))))))))))" "(define-values" "(check-defined-by-now)" -"(lambda(need-eventually-defined_3 self_38 ctx_114)" +"(lambda(need-eventually-defined_3 self_37 ctx_115)" "(begin" "(begin" "(let-values(((ht_165) need-eventually-defined_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_165)))" -"((letrec-values(((for-loop_319)" -"(lambda(i_195)" +"((letrec-values(((for-loop_328)" +"(lambda(i_189)" "(begin" " 'for-loop" -"(if i_195" -"(let-values(((phase_158 l_85)(hash-iterate-key+value ht_165 i_195)))" +"(if i_189" +"(let-values(((phase_155 l_84)(hash-iterate-key+value ht_165 i_189)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74139,24 +74538,24 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_427) l_85))" +"(let-values(((lst_433) l_84))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_427)))" -"((letrec-values(((for-loop_320)" -"(lambda(lst_428)" +"(let-values()(check-list lst_433)))" +"((letrec-values(((for-loop_329)" +"(lambda(lst_434)" "(begin" " 'for-loop" "(if(pair?" -" lst_428)" -"(let-values(((id_156)" +" lst_434)" +"(let-values(((id_162)" "(unsafe-car" -" lst_428))" -"((rest_254)" +" lst_434))" +"((rest_247)" "(unsafe-cdr" -" lst_428)))" +" lst_434)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74165,9 +74564,9 @@ static const char *startup_source = "(let-values()" "(let-values(((b_93)" "(let-values(((id592_0)" -" id_156)" +" id_162)" "((phase593_0)" -" phase_158))" +" phase_155))" "(resolve+shift30.1" " #f" " #f" @@ -74188,11 +74587,11 @@ static const char *startup_source = "(module-binding-sym" " b_93)" "(syntax-e$1" -" id_156))" +" id_162))" "(eq?" "(module-binding-module" " b_93)" -" self_38)" +" self_37)" " #f)" " #f)" " #f)" @@ -74201,27 +74600,27 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"reference to an unbound identifier\"" -" id_156" +" id_162" " #f" " null" "(syntax-debug-info-string" -" id_156" -" ctx_114))))))" +" id_162" +" ctx_115))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_320" -" rest_254)" +"(for-loop_329" +" rest_247)" "(values))))" "(values))))))" -" for-loop_320)" -" lst_427)))" +" for-loop_329)" +" lst_433)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_319(hash-iterate-next ht_165 i_195))(values))))" +"(if(not #f)(for-loop_328(hash-iterate-next ht_165 i_189))(values))))" "(values))))))" -" for-loop_319)" +" for-loop_328)" "(hash-iterate-first ht_165))))" "(void)))))" "(define-values" @@ -74239,13 +74638,13 @@ static const char *startup_source = "(let-values(((requires+provides_9) requires-and-provides102_0))" "(let-values(((declared-submodule-names_6) declared-submodule-names103_0))" "(let-values(((m-ns_21) namespace104_0))" -"(let-values(((phase_159) phase105_0))" -"(let-values(((self_39) self106_0))" -"(let-values(((ctx_115) ctx107_1))" +"(let-values(((phase_156) phase105_0))" +"(let-values(((self_38) self106_0))" +"(let-values(((ctx_116) ctx107_1))" "(let-values()" "(let-values()" -"((letrec-values(((loop_133)" -"(lambda(bodys_26 phase_160)" +"((letrec-values(((loop_126)" +"(lambda(bodys_26 phase_157)" "(begin" " 'loop" "(if(null? bodys_26)" @@ -74253,95 +74652,95 @@ static const char *startup_source = "(if(let-values(((or-part_404)(parsed?(car bodys_26))))" "(if or-part_404 or-part_404(expanded+parsed?(car bodys_26))))" "(let-values()" -"(cons(car bodys_26)(loop_133(cdr bodys_26) phase_160)))" +"(cons(car bodys_26)(loop_126(cdr bodys_26) phase_157)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" "(let-values()" "(let-values(((nested-bodys_2)" -"(loop_133" +"(loop_126" "(semi-parsed-begin-for-syntax-body(car bodys_26))" -"(add1 phase_160))))" +"(add1 phase_157))))" "(cons" -"(let-values(((the-struct_117)(car bodys_26)))" -"(if(semi-parsed-begin-for-syntax? the-struct_117)" +"(let-values(((the-struct_118)(car bodys_26)))" +"(if(semi-parsed-begin-for-syntax? the-struct_118)" "(let-values(((body594_0) nested-bodys_2))" "(semi-parsed-begin-for-syntax3.1" -"(semi-parsed-begin-for-syntax-s the-struct_117)" +"(semi-parsed-begin-for-syntax-s the-struct_118)" " body594_0))" "(raise-argument-error" " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" -" the-struct_117)))" -"(loop_133(cdr bodys_26) phase_160))))" +" the-struct_118)))" +"(loop_126(cdr bodys_26) phase_157))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))" -"(let-values(((tmp_67)" -"(core-form-sym disarmed-body_1 phase_160)))" -"(if(equal? tmp_67 '#%provide)" +"(let-values(((tmp_66)" +"(core-form-sym disarmed-body_1 phase_157)))" +"(if(equal? tmp_66 '#%provide)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_114)" +"(let-values(((obs_160)" "(expand-context-observer" -" ctx_115)))" -"(if obs_114" +" ctx_116)))" +"(if obs_160" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_114" +" obs_160" " 'enter-prim" "(car bodys_26))" "(call-expand-observe" -" obs_114" +" obs_160" " 'prim-provide))))" "(void)))" "(values))))" -"(let-values(((ok?_83 #%provide595_0 spec596_0)" -"(let-values(((s_810) disarmed-body_1))" -"(let-values(((orig-s_89) s_810))" +"(let-values(((ok?_82 #%provide595_0 spec596_0)" +"(let-values(((s_811) disarmed-body_1))" +"(let-values(((orig-s_88) s_811))" "(let-values(((#%provide595_1" " spec596_1)" -"(let-values(((s_811)" -"(if(syntax?$1" -" s_810)" -"(syntax-e$1" -" s_810)" -" s_810)))" -"(if(pair? s_811)" -"(let-values(((#%provide597_0)" "(let-values(((s_812)" -"(car" -" s_811)))" -" s_812))" -"((spec598_0)" -"(let-values(((s_813)" -"(cdr" -" s_811)))" -"(let-values(((s_814)" "(if(syntax?$1" -" s_813)" +" s_811)" "(syntax-e$1" -" s_813)" -" s_813)))" -"(let-values(((flat-s_59)" -"(to-syntax-list.1" +" s_811)" +" s_811)))" +"(if(pair? s_812)" +"(let-values(((#%provide597_0)" +"(let-values(((s_813)" +"(car" +" s_812)))" +" s_813))" +"((spec598_0)" +"(let-values(((s_814)" +"(cdr" +" s_812)))" +"(let-values(((s_815)" +"(if(syntax?$1" +" s_814)" +"(syntax-e$1" +" s_814)" " s_814)))" +"(let-values(((flat-s_60)" +"(to-syntax-list.1" +" s_815)))" "(if(not" -" flat-s_59)" +" flat-s_60)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_89))" +" orig-s_88))" "(let-values()" -" flat-s_59)))))))" +" flat-s_60)))))))" "(values" " #%provide597_0" " spec598_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_89)))))" +" orig-s_88)))))" "(values" " #t" " #%provide595_1" @@ -74351,118 +74750,118 @@ static const char *startup_source = " spec596_0" "(car bodys_26)" " requires+provides_9" -" self_39" -" phase_160" -"(let-values(((v_260) ctx_115))" -"(let-values(((the-struct_118)" -" v_260))" +" self_38" +" phase_157" +"(let-values(((v_267) ctx_116))" +"(let-values(((the-struct_119)" +" v_267))" "(if(expand-context/outer?" -" the-struct_118)" +" the-struct_119)" "(let-values(((context599_0)" " 'top-level)" "((inner600_0)" -"(let-values(((the-struct_119)" +"(let-values(((the-struct_120)" "(root-expand-context/outer-inner" -" v_260)))" +" v_267)))" "(if(expand-context/inner?" -" the-struct_119)" +" the-struct_120)" "(let-values(((phase601_0)" -" phase_160)" +" phase_157)" "((namespace602_0)" "(namespace->namespace-at-phase" " m-ns_21" -" phase_160))" +" phase_157))" "((requires+provides603_0)" " requires+provides_9)" "((declared-submodule-names604_0)" " declared-submodule-names_6))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_119)" +" the-struct_120)" "(root-expand-context/inner-module-scopes" -" the-struct_119)" +" the-struct_120)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_119)" +" the-struct_120)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_119)" +" the-struct_120)" "(root-expand-context/inner-defined-syms" -" the-struct_119)" +" the-struct_120)" "(root-expand-context/inner-counter" -" the-struct_119)" +" the-struct_120)" "(root-expand-context/inner-lift-key" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-to-parsed?" -" the-struct_119)" +" the-struct_120)" " phase601_0" " namespace602_0" "(expand-context/inner-just-once?" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-module-begin-k" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-allow-unbound?" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-in-local-expand?" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-stops" -" the-struct_119)" +" the-struct_120)" " declared-submodule-names604_0" "(expand-context/inner-lifts" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-lift-envs" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-module-lifts" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-require-lifts" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-to-module-lifts" -" the-struct_119)" +" the-struct_120)" " requires+provides603_0" "(expand-context/inner-observer" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-for-serializable?" -" the-struct_119)" +" the-struct_120)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_119)))" +" the-struct_120)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_119)))))" +" the-struct_120)))))" "(expand-context/outer1.1" " inner600_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_118)" +" the-struct_119)" "(root-expand-context/outer-use-site-scopes" -" the-struct_118)" +" the-struct_119)" "(root-expand-context/outer-frame-id" -" the-struct_118)" +" the-struct_119)" " context599_0" "(expand-context/outer-env" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-scopes" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-def-ctx-scopes" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-binding-layer" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-reference-records" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-only-immediate?" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-need-eventually-defined" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-current-introduction-scopes" -" the-struct_118)" +" the-struct_119)" "(expand-context/outer-name" -" the-struct_118)))" +" the-struct_119)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_118)))))))" -"(if(expand-context-to-parsed? ctx_115)" +" the-struct_119)))))))" +"(if(expand-context-to-parsed? ctx_116)" "(let-values()" -"(loop_133(cdr bodys_26) phase_160))" +"(loop_126(cdr bodys_26) phase_157))" "(let-values()" "(let-values(((new-s_10)" "(syntax-track-origin*" @@ -74479,29 +74878,29 @@ static const char *startup_source = " temp605_0" " temp606_0)))))" "(begin" -"(let-values(((obs_153)" +"(let-values(((obs_161)" "(expand-context-observer" -" ctx_115)))" -"(if obs_153" +" ctx_116)))" +"(if obs_161" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_153" +" obs_161" " 'exit-prim" " new-s_10)))" "(void)))" "(cons" " new-s_10" -"(loop_133" +"(loop_126" "(cdr bodys_26)" -" phase_160))))))))))" +" phase_157))))))))))" "(let-values()" "(cons" "(car bodys_26)" -"(loop_133(cdr bodys_26) phase_160))))))))))))))" -" loop_133)" +"(loop_126(cdr bodys_26) phase_157))))))))))))))" +" loop_126)" " expression-expanded-bodys_1" -" phase_159)))))))))))))" +" phase_156)))))))))))))" "(define-values" "(declare-module-for-expansion139.1)" "(lambda(ctx125_0" @@ -74522,34 +74921,35 @@ static const char *startup_source = "(let-values(((rebuild-s_16) rebuild-s119_0))" "(let-values(((requires+provides_10) requires-and-provides120_0))" "(let-values(((m-ns_22) namespace121_0))" -"(let-values(((self_40) self122_0))" +"(let-values(((self_39) self122_0))" "(let-values(((enclosing-self_3) enclosing123_0))" "(let-values(((root-ctx_7) root-ctx124_0))" -"(let-values(((ctx_116) ctx125_0))" +"(let-values(((ctx_117) ctx125_0))" "(let-values(((modules-being-compiled_6) modules-being-compiled126_0))" "(let-values(((compiled-module-box_1) fill127_0))" "(let-values()" "(let-values(((requires_7 provides_14)" -"(extract-requires-and-provides requires+provides_10 self_40 self_40)))" +"(extract-requires-and-provides requires+provides_10 self_39 self_39)))" "(let-values(((parsed-mod_0)" "(parsed-module25.1" " rebuild-s_16" " #f" " module-name-id_0" -" self_40" +" self_39" " requires_7" " provides_14" "(requires+provides-all-bindings-simple? requires+provides_10)" -"(root-expand-context-encode-for-module root-ctx_7 self_40 self_40)" +"(root-expand-context-encode-for-module root-ctx_7 self_39 self_39)" "(parsed-only fully-expanded-bodys-except-post-submodules_1)" " #f" "(hasheq))))" "(let-values(((module-name_2)" "(1/module-path-index-resolve" "(let-values(((or-part_405) enclosing-self_3))" -"(if or-part_405 or-part_405 self_40)))))" +"(if or-part_405 or-part_405 self_39)))))" "(let-values(((compiled-module_0)" -"(let-values(((temp608_0)" +"(let-values(((parsed-mod607_0) parsed-mod_0)" +"((temp608_0)" "(let-values(((m-ns612_0) m-ns_22)" "((enclosing-self613_0) enclosing-self_3)" "((temp614_0)" @@ -74570,7 +74970,7 @@ static const char *startup_source = " #f" " #f" " #f)))" -"((temp609_0)(expand-context-for-serializable? ctx_116))" +"((temp609_0)(expand-context-for-serializable? ctx_117))" "((modules-being-compiled610_0) modules-being-compiled_6)" "((temp611_0) #f))" "(compile-module13.1" @@ -74584,7 +74984,7 @@ static const char *startup_source = " #t" " #f" " #f" -" parsed-mod_0" +" parsed-mod607_0" " temp608_0))))" "(let-values((()" "(begin" @@ -74601,7 +75001,7 @@ static const char *startup_source = " 1/current-module-declare-name" "(1/make-resolved-module-path root-module-name_0))" "(let-values()" -"(let-values(((temp616_0) #f))" +"(let-values(((compiled-module615_0) compiled-module_0)((temp616_0) #f))" "(eval-module8.1" " #f" " #f" @@ -74609,19 +75009,19 @@ static const char *startup_source = " #f" " temp616_0" " #t" -" compiled-module_0)))))))))))))))))))))))))" +" compiled-module615_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_815 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_661 root-ctx_8 orig-self_1 new-self_2)" "(begin" -"(let-values(((s_816)" -"(syntax-property$1 s_815 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" -"(let-values(((s_817)" +"(let-values(((s_664)" +"(syntax-property$1 s_661 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_665)" "(syntax-property$1" -" s_816" +" s_664" " 'module-body-inside-context" "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" -" s_817)))))" +" s_665)))))" "(define-values" "(expand-post-submodules165.1)" "(lambda(all-scopes-s147_0" @@ -74640,8 +75040,8 @@ static const char *startup_source = " 'expand-post-submodules165" "(let-values(((fully-expanded-bodys-except-post-submodules_2) fully-expanded-bodys-except-post-submodules164_0))" "(let-values(((declare-enclosing-module_1) declare-enclosing142_0))" -"(let-values(((phase_161) phase143_0))" -"(let-values(((self_41) self144_0))" +"(let-values(((phase_158) phase143_0))" +"(let-values(((self_40) self144_0))" "(let-values(((requires+provides_11) requires-and-provides145_0))" "(let-values(((enclosing-is-cross-phase-persistent?_1) enclosing-is-cross-phase-persistent?146_0))" "(let-values(((all-scopes-s_1) all-scopes-s147_0))" @@ -74651,8 +75051,8 @@ static const char *startup_source = "(let-values(((modules-being-compiled_7) modules-being-compiled151_0))" "(let-values(((submod-ctx_1) ctx152_0))" "(let-values()" -"((letrec-values(((loop_134)" -"(lambda(bodys_27 phase_162)" +"((letrec-values(((loop_127)" +"(lambda(bodys_27 phase_159)" "(begin" " 'loop" "(if(null? bodys_27)" @@ -74665,54 +75065,54 @@ static const char *startup_source = "(let-values(((body-s_0)" "(semi-parsed-begin-for-syntax-s" " body_25)))" -"(let-values(((ok?_84 begin-for-syntax617_0 _618_0)" -"(let-values(((s_818)" +"(let-values(((ok?_83 begin-for-syntax617_0 _618_0)" +"(let-values(((s_666)" "(syntax-disarm$1" " body-s_0)))" -"(let-values(((orig-s_90) s_818))" +"(let-values(((orig-s_89) s_666))" "(let-values(((begin-for-syntax617_1" " _618_1)" +"(let-values(((s_816)" +"(if(syntax?$1" +" s_666)" +"(syntax-e$1" +" s_666)" +" s_666)))" +"(if(pair? s_816)" +"(let-values(((begin-for-syntax619_0)" +"(let-values(((s_817)" +"(car" +" s_816)))" +" s_817))" +"((_620_0)" +"(let-values(((s_818)" +"(cdr" +" s_816)))" "(let-values(((s_819)" "(if(syntax?$1" " s_818)" "(syntax-e$1" " s_818)" " s_818)))" -"(if(pair? s_819)" -"(let-values(((begin-for-syntax619_0)" -"(let-values(((s_820)" -"(car" -" s_819)))" -" s_820))" -"((_620_0)" -"(let-values(((s_821)" -"(cdr" -" s_819)))" -"(let-values(((s_822)" -"(if(syntax?$1" -" s_821)" -"(syntax-e$1" -" s_821)" -" s_821)))" -"(let-values(((flat-s_60)" +"(let-values(((flat-s_61)" "(to-syntax-list.1" -" s_822)))" +" s_819)))" "(if(not" -" flat-s_60)" +" flat-s_61)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_90))" +" orig-s_89))" "(let-values()" -" flat-s_60)))))))" +" flat-s_61)))))))" "(values" " begin-for-syntax619_0" " _620_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_90)))))" +" orig-s_89)))))" "(values" " #t" " begin-for-syntax617_1" @@ -74732,10 +75132,10 @@ static const char *startup_source = " submod-ctx621_0" " body-s622_0))))" "(let-values(((nested-bodys_3)" -"(loop_134" +"(loop_127" "(semi-parsed-begin-for-syntax-body" " body_25)" -"(add1 phase_162))))" +"(add1 phase_159))))" "(let-values(((parsed-bfs_0)" "(parsed-begin-for-syntax21.1" " rebuild-body-s_0" @@ -74758,21 +75158,21 @@ static const char *startup_source = " rebuild-body-s623_0" " temp624_0))" " parsed-bfs_0))" -"(loop_134 rest-bodys_3 phase_162))))))))" +"(loop_127 rest-bodys_3 phase_159))))))))" "(if(let-values(((or-part_406)(parsed? body_25)))" "(if or-part_406" " or-part_406" "(expanded+parsed? body_25)))" "(let-values()" -"(cons body_25(loop_134 rest-bodys_3 phase_162)))" +"(cons body_25(loop_127 rest-bodys_3 phase_159)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_25)))" -"(let-values(((tmp_68)" +"(let-values(((tmp_67)" "(core-form-sym" " disarmed-body_2" -" phase_162)))" -"(if(equal? tmp_68 'module*)" +" phase_159)))" +"(if(equal? tmp_67 'module*)" "(let-values()" "(let-values((()" "(begin" @@ -74783,64 +75183,64 @@ static const char *startup_source = "(remove-use-site-scopes" " body_25" " submod-ctx_1)))" -"(let-values(((ok?_85" +"(let-values(((ok?_84" " module*625_0" " name626_0" " _627_0)" -"(let-values(((s_681)" +"(let-values(((s_820)" " disarmed-body_2))" -"(if(let-values(((s_823)" +"(if(let-values(((s_821)" "(if(syntax?$1" -" s_681)" +" s_820)" "(syntax-e$1" -" s_681)" -" s_681)))" -"(if(pair? s_823)" -"(if(let-values(((s_824)" +" s_820)" +" s_820)))" +"(if(pair? s_821)" +"(if(let-values(((s_822)" "(car" -" s_823)))" +" s_821)))" " #t)" -"(let-values(((s_825)" +"(let-values(((s_823)" "(cdr" -" s_823)))" -"(let-values(((s_826)" +" s_821)))" +"(let-values(((s_824)" "(if(syntax?$1" -" s_825)" +" s_823)" "(syntax-e$1" -" s_825)" -" s_825)))" +" s_823)" +" s_823)))" "(if(pair?" -" s_826)" -"(if(let-values(((s_827)" +" s_824)" +"(if(let-values(((s_825)" "(car" -" s_826)))" +" s_824)))" " #t)" -"(let-values(((s_828)" +"(let-values(((s_826)" "(cdr" +" s_824)))" +"(let-values(((s_827)" +"(if(syntax?$1" +" s_826)" +"(syntax-e$1" +" s_826)" " s_826)))" +"(if(pair?" +" s_827)" +"(if(let-values(((s_828)" +"(car" +" s_827)))" "(let-values(((s_829)" "(if(syntax?$1" " s_828)" "(syntax-e$1" " s_828)" " s_828)))" -"(if(pair?" -" s_829)" -"(if(let-values(((s_682)" -"(car" -" s_829)))" -"(let-values(((s_830)" -"(if(syntax?$1" -" s_682)" -"(syntax-e$1" -" s_682)" -" s_682)))" "(eq?" " #f" -" s_830)))" -"(let-values(((s_831)" -"(cdr" " s_829)))" +"(let-values(((s_830)" +"(cdr" +" s_827)))" " #t)" " #f)" " #f)))" @@ -74852,59 +75252,59 @@ static const char *startup_source = "(let-values(((module*625_1" " name626_1" " _627_1)" -"(let-values(((s_832)" +"(let-values(((s_831)" "(if(syntax?$1" -" s_681)" +" s_820)" "(syntax-e$1" -" s_681)" -" s_681)))" +" s_820)" +" s_820)))" "(let-values(((module*628_0)" -"(let-values(((s_833)" +"(let-values(((s_832)" "(car" -" s_832)))" -" s_833))" +" s_831)))" +" s_832))" "((name629_0" " _630_0)" +"(let-values(((s_833)" +"(cdr" +" s_831)))" "(let-values(((s_834)" -"(cdr" -" s_832)))" -"(let-values(((s_835)" "(if(syntax?$1" -" s_834)" +" s_833)" "(syntax-e$1" -" s_834)" -" s_834)))" +" s_833)" +" s_833)))" "(let-values(((name631_0)" -"(let-values(((s_836)" +"(let-values(((s_835)" "(car" -" s_835)))" -" s_836))" +" s_834)))" +" s_835))" "((_632_0)" -"(let-values(((s_837)" +"(let-values(((s_836)" "(cdr" -" s_835)))" -"(let-values(((s_838)" +" s_834)))" +"(let-values(((s_837)" "(if(syntax?$1" -" s_837)" +" s_836)" "(syntax-e$1" -" s_837)" -" s_837)))" +" s_836)" +" s_836)))" "(let-values((()" -"(let-values(((s_839)" +"(let-values(((s_838)" "(car" -" s_838)))" -"(let-values(((s_840)" +" s_837)))" +"(let-values(((s_839)" "(if(syntax?$1" -" s_839)" +" s_838)" "(syntax-e$1" -" s_839)" -" s_839)))" +" s_838)" +" s_838)))" "(values))))" "((_633_0)" -"(let-values(((s_841)" +"(let-values(((s_840)" "(cdr" -" s_838)))" -" s_841)))" +" s_837)))" +" s_840)))" "(values" " _633_0))))))" "(values" @@ -74925,18 +75325,24 @@ static const char *startup_source = " #f" " #f)))))" "(let-values(((submod_3)" -"(if ok?_85" +"(if ok?_84" "(let-values()" "(let-values(((neg-phase_0)" "(phase-" " 0" -" phase_162)))" +" phase_159)))" "(let-values(((shifted-s_0)" "(syntax-shift-phase-level$1" " ready-body_2" " neg-phase_0)))" "(let-values(((submod_4)" -"(let-values(((temp637_0)" +"(let-values(((shifted-s634_0)" +" shifted-s_0)" +"((self635_0)" +" self_40)" +"((submod-ctx636_0)" +" submod-ctx_1)" +"((temp637_0)" " #t)" "((neg-phase638_0)" " neg-phase_0)" @@ -74968,9 +75374,9 @@ static const char *startup_source = " #t" " modules-being-compiled645_0" " mpis-to-reset642_0" -" shifted-s_0" -" self_41" -" submod-ctx_1))))" +" shifted-s634_0" +" self635_0" +" submod-ctx636_0))))" "(if(parsed?" " submod_4)" "(let-values()" @@ -74978,29 +75384,35 @@ static const char *startup_source = "(if(expanded+parsed?" " submod_4)" "(let-values()" -"(let-values(((the-struct_120)" +"(let-values(((the-struct_121)" " submod_4))" "(if(expanded+parsed?" -" the-struct_120)" +" the-struct_121)" "(let-values(((s646_0)" "(syntax-shift-phase-level$1" "(expanded+parsed-s" " submod_4)" -" phase_162)))" +" phase_159)))" "(expanded+parsed1.1" " s646_0" "(expanded+parsed-parsed" -" the-struct_120)))" +" the-struct_121)))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_120))))" +" the-struct_121))))" "(let-values()" "(syntax-shift-phase-level$1" " submod_4" -" phase_162))))))))" +" phase_159))))))))" "(let-values()" -"(let-values(((temp650_0)" +"(let-values(((ready-body647_0)" +" ready-body_2)" +"((self648_0)" +" self_40)" +"((submod-ctx649_0)" +" submod-ctx_1)" +"((temp650_0)" " #t)" "((mpis-to-reset651_0)" " mpis-to-reset_3)" @@ -75024,61 +75436,66 @@ static const char *startup_source = " #f" " modules-being-compiled654_0" " mpis-to-reset651_0" -" ready-body_2" -" self_41" -" submod-ctx_1))))))" +" ready-body647_0" +" self648_0" +" submod-ctx649_0))))))" "(cons" " submod_3" -"(loop_134" +"(loop_127" " rest-bodys_3" -" phase_162)))))))" +" phase_159)))))))" "(let-values()" "(cons" " body_25" -"(loop_134" +"(loop_127" " rest-bodys_3" -" phase_162)))))))))))))))))" -" loop_134)" +" phase_159)))))))))))))))))" +" loop_127)" " fully-expanded-bodys-except-post-submodules_2" -" phase_161)))))))))))))))))" +" phase_158)))))))))))))))))" "(define-values" "(stop-at-module*?)" -"(lambda(ctx_117)" +"(lambda(ctx_118)" "(begin" "(free-id-set-member?" -"(expand-context-stops ctx_117)" -"(expand-context-phase ctx_117)" -"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_117))))))" +"(expand-context-stops ctx_118)" +"(expand-context-phase ctx_118)" +"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_118))))))" "(define-values" "(check-ids-unbound173.1)" "(lambda(in168_0 ids170_0 phase171_1 requires+provides172_0)" "(begin" " 'check-ids-unbound173" "(let-values(((ids_45) ids170_0))" -"(let-values(((phase_163) phase171_1))" +"(let-values(((phase_160) phase171_1))" "(let-values(((requires+provides_12) requires+provides172_0))" -"(let-values(((s_842) in168_0))" +"(let-values(((s_841) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_429) ids_45))" +"(let-values(((lst_435) ids_45))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_429)))" -"((letrec-values(((for-loop_321)" -"(lambda(lst_430)" +"(let-values()(check-list lst_435)))" +"((letrec-values(((for-loop_330)" +"(lambda(lst_436)" "(begin" " 'for-loop" -"(if(pair? lst_430)" -"(let-values(((id_157)(unsafe-car lst_430))" -"((rest_255)(unsafe-cdr lst_430)))" +"(if(pair? lst_436)" +"(let-values(((id_163)(unsafe-car lst_436))" +"((rest_248)(unsafe-cdr lst_436)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((s658_0) s_842)" +"(let-values(((requires+provides655_0)" +" requires+provides_12)" +"((id656_0) id_163)" +"((phase657_0)" +" phase_160)" +"((s658_0) s_841)" "((temp659_0) 'module))" "(check-not-defined93.1" " #f" @@ -75091,108 +75508,108 @@ static const char *startup_source = " #f" " #f" " temp659_0" -" requires+provides_12" -" id_157" -" phase_163)))" +" requires+provides655_0" +" id656_0" +" phase657_0)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_321 rest_255)(values))))" +"(if(not #f)(for-loop_330 rest_248)(values))))" "(values))))))" -" for-loop_321)" -" lst_429)))" +" for-loop_330)" +" lst_435)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" -"(lambda(bodys_28 phase_164 m-ns_23 self_42 ctx_118)" +"(lambda(bodys_28 phase_161 m-ns_23 self_41 ctx_119)" "(begin" "(begin" -"(let-values(((lst_431) bodys_28))" +"(let-values(((lst_437) bodys_28))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_431)))" -"((letrec-values(((for-loop_322)" -"(lambda(lst_432)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_437)))" +"((letrec-values(((for-loop_331)" +"(lambda(lst_438)" "(begin" " 'for-loop" -"(if(pair? lst_432)" -"(let-values(((body_26)(unsafe-car lst_432))((rest_256)(unsafe-cdr lst_432)))" +"(if(pair? lst_438)" +"(let-values(((body_26)(unsafe-car lst_438))((rest_249)(unsafe-cdr lst_438)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((p_87)" +"(let-values(((p_84)" "(if(expanded+parsed? body_26)" "(expanded+parsed-parsed" " body_26)" " body_26)))" -"(if(parsed-define-values? p_87)" +"(if(parsed-define-values? p_84)" "(let-values()" "(let-values(((ids_46)" "(parsed-define-values-ids" -" p_87)))" +" p_84)))" "(let-values(((vals_11)" "(eval-for-bindings" " ids_46" "(parsed-define-values-rhs" -" p_87)" -" phase_164" +" p_84)" +" phase_161" " m-ns_23" -" ctx_118)))" +" ctx_119)))" "(begin" -"(let-values(((lst_433) ids_46)" -"((lst_434)" +"(let-values(((lst_439) ids_46)" +"((lst_440)" "(parsed-define-values-syms" -" p_87))" -"((lst_435) vals_11))" +" p_84))" +"((lst_441) vals_11))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_433)))" +"(check-list lst_439)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_434)))" +"(check-list lst_440)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_435)))" -"((letrec-values(((for-loop_323)" -"(lambda(lst_436" -" lst_437" -" lst_438)" +"(check-list lst_441)))" +"((letrec-values(((for-loop_332)" +"(lambda(lst_442" +" lst_443" +" lst_444)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_436)" +" lst_442)" "(if(pair?" -" lst_437)" +" lst_443)" "(pair?" -" lst_438)" +" lst_444)" " #f)" " #f)" -"(let-values(((id_158)" +"(let-values(((id_164)" "(unsafe-car" -" lst_436))" -"((rest_257)" +" lst_442))" +"((rest_250)" "(unsafe-cdr" -" lst_436))" +" lst_442))" "((sym_107)" "(unsafe-car" -" lst_437))" -"((rest_258)" +" lst_443))" +"((rest_251)" "(unsafe-cdr" -" lst_437))" -"((val_87)" +" lst_443))" +"((val_83)" "(unsafe-car" -" lst_438))" -"((rest_259)" +" lst_444))" +"((rest_252)" "(unsafe-cdr" -" lst_438)))" +" lst_444)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75201,38 +75618,38 @@ static const char *startup_source = "(let-values()" "(namespace-set-variable!" " m-ns_23" -" phase_164" +" phase_161" " sym_107" -" val_87))" +" val_83))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_323" -" rest_257" -" rest_258" -" rest_259)" +"(for-loop_332" +" rest_250" +" rest_251" +" rest_252)" "(values))))" "(values))))))" -" for-loop_323)" -" lst_433" -" lst_434" -" lst_435)))" +" for-loop_332)" +" lst_439" +" lst_440" +" lst_441)))" "(void)))))" "(if(let-values(((or-part_407)" "(parsed-define-syntaxes?" -" p_87)))" +" p_84)))" "(if or-part_407" " or-part_407" "(semi-parsed-begin-for-syntax?" -" p_87)))" +" p_84)))" "(let-values()(void))" "(if(let-values(((or-part_408)" "(parsed-#%declare?" -" p_87)))" +" p_84)))" "(if or-part_408" " or-part_408" -"(syntax?$1 p_87)))" +"(syntax?$1 p_84)))" "(let-values()(void))" "(let-values()" "(with-continuation-mark" @@ -75242,17 +75659,17 @@ static const char *startup_source = " #f" " parameterization-key)" " current-expand-context" -" ctx_118" +" ctx_119" " 1/current-namespace" " m-ns_23)" "(let-values()" "(eval-single-top" "(compile-single" -" p_87" +" p_84" "(let-values(((m-ns660_0)" " m-ns_23)" "((phase661_0)" -" phase_164))" +" phase_161))" "(make-compile-context14.1" " #f" " #f" @@ -75269,10 +75686,10 @@ static const char *startup_source = " m-ns_23)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_322 rest_256)(values))))" +"(if(not #f)(for-loop_331 rest_249)(values))))" "(values))))))" -" for-loop_322)" -" lst_431)))" +" for-loop_331)" +" lst_437)))" "(void)))))" "(define-values" "(expand-submodule197.1)" @@ -75289,14 +75706,14 @@ static const char *startup_source = " keep-enclosing-scope-at-phase186_0" " modules-being-compiled184_0" " mpis-to-reset181_0" -" s194_0" +" s194_1" " self195_0" " ctx196_0)" "(begin" " 'expand-submodule197" -"(let-values(((s_843) s194_0))" -"(let-values(((self_43) self195_0))" -"(let-values(((ctx_119) ctx196_0))" +"(let-values(((s_842) s194_1))" +"(let-values(((self_42) self195_0))" +"(let-values(((ctx_120) ctx196_0))" "(let-values(((is-star?_0) is-star?176_0))" "(let-values(((keep-enclosing-scope-at-phase_2)" "(if keep-enclosing-scope-at-phase186_0 keep-enclosing-scope-at-phase177_0 #f)))" @@ -75318,189 +75735,190 @@ static const char *startup_source = "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_154)(expand-context-observer ctx_119)))" -"(if obs_154" +"(let-values(((obs_162)(expand-context-observer ctx_120)))" +"(if obs_162" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_154 'enter-prim s_843)" +"(call-expand-observe obs_162 'enter-prim s_842)" "(call-expand-observe" -" obs_154" +" obs_162" "(if is-star?_0 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" -"(let-values(((ok?_86 module662_0 name663_0 _664_0)" -"(let-values(((s_844) s_843))" -"(let-values(((orig-s_91) s_844))" +"(let-values(((ok?_85 module662_0 name663_0 _664_0)" +"(let-values(((s_843) s_842))" +"(let-values(((orig-s_90) s_843))" "(let-values(((module662_1 name663_1 _664_1)" -"(let-values(((s_845)" -"(if(syntax?$1 s_844)" -"(syntax-e$1 s_844)" -" s_844)))" -"(if(pair? s_845)" +"(let-values(((s_844)" +"(if(syntax?$1 s_843)" +"(syntax-e$1 s_843)" +" s_843)))" +"(if(pair? s_844)" "(let-values(((module665_0)" -"(let-values(((s_846)(car s_845)))" -" s_846))" +"(let-values(((s_845)(car s_844)))" +" s_845))" "((name666_0 _667_0)" -"(let-values(((s_847)(cdr s_845)))" -"(let-values(((s_848)" +"(let-values(((s_846)(cdr s_844)))" +"(let-values(((s_847)" "(if(syntax?$1" -" s_847)" -"(syntax-e$1 s_847)" -" s_847)))" -"(if(pair? s_848)" +" s_846)" +"(syntax-e$1 s_846)" +" s_846)))" +"(if(pair? s_847)" "(let-values(((name668_0)" -"(let-values(((s_849)" +"(let-values(((s_848)" "(car" -" s_848)))" -" s_849))" +" s_847)))" +" s_848))" "((_669_0)" -"(let-values(((s_850)" +"(let-values(((s_849)" "(cdr" -" s_848)))" -" s_850)))" +" s_847)))" +" s_849)))" "(values name668_0 _669_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_91))))))" +" orig-s_90))))))" "(values module665_0 name666_0 _667_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_91)))))" +" orig-s_90)))))" "(values #t module662_1 name663_1 _664_1))))))" -"(let-values(((name_82)(syntax-e$1 name663_0)))" +"(let-values(((name_80)(syntax-e$1 name663_0)))" "(let-values((()" "(begin" -"(if(hash-ref declared-submodule-names_8 name_82 #f)" +"(if(hash-ref declared-submodule-names_8 name_80 #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" -" s_843" -" name_82))" +" s_842" +" name_80))" "(void))" "(values))))" "(let-values((()" "(begin" "(hash-set!" " declared-submodule-names_8" -" name_82" +" name_80" "(syntax-e$1 module662_0))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_155)(expand-context-observer ctx_119)))" -"(if obs_155" +"(let-values(((obs_163)(expand-context-observer ctx_120)))" +"(if obs_163" "(let-values()" "(let-values()" -"(call-expand-observe obs_155 'enter-prim s_843)))" +"(call-expand-observe obs_163 'enter-prim s_842)))" "(void)))" "(values))))" "(let-values(((submod_5)" -"(let-values(((temp671_0)" -"(let-values(((v_261) ctx_119))" -"(let-values(((the-struct_121) v_261))" -"(if(expand-context/outer? the-struct_121)" +"(let-values(((s670_0) s_842)" +"((temp671_0)" +"(let-values(((v_268) ctx_120))" +"(let-values(((the-struct_122) v_268))" +"(if(expand-context/outer? the-struct_122)" "(let-values(((context680_0) 'module)" "((post-expansion-scope681_0)" " #f)" "((inner682_0)" -"(let-values(((the-struct_122)" +"(let-values(((the-struct_123)" "(root-expand-context/outer-inner" -" v_261)))" +" v_268)))" "(if(expand-context/inner?" -" the-struct_122)" +" the-struct_123)" "(let-values(((stops683_0)" " empty-free-id-set))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_122)" +" the-struct_123)" "(root-expand-context/inner-module-scopes" -" the-struct_122)" +" the-struct_123)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_122)" +" the-struct_123)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_122)" +" the-struct_123)" "(root-expand-context/inner-defined-syms" -" the-struct_122)" +" the-struct_123)" "(root-expand-context/inner-counter" -" the-struct_122)" +" the-struct_123)" "(root-expand-context/inner-lift-key" -" the-struct_122)" +" the-struct_123)" "(expand-context/inner-to-parsed?" -" the-struct_122)" +" the-struct_123)" "(expand-context/inner-phase" -" the-struct_122)" +" the-struct_123)" "(expand-context/inner-namespace" -" the-struct_122)" +" the-struct_123)" "(expand-context/inner-just-once?" -" the-struct_122)" +" the-struct_123)" "(expand-context/inner-module-begin-k" -" the-struct_122)" +" the-struct_123)" "(expand-context/inner-allow-unbound?" -" the-struct_122)" +" the-struct_123)" "(expand-context/inner-in-local-expand?" -" the-struct_122)" +" the-struct_123)" " stops683_0" "(expand-context/inner-declared-submodule-names" -" the-struct_122)" +" the-struct_123)" "(expand-context/inner-lifts" -" the-struct_122)" +" the-struct_123)" "(expand-context/inner-lift-envs" -" the-struct_122)" +" the-struct_123)" "(expand-context/inner-module-lifts" -" the-struct_122)" +" the-struct_123)" "(expand-context/inner-require-lifts" -" the-struct_122)" +" the-struct_123)" "(expand-context/inner-to-module-lifts" -" the-struct_122)" +" the-struct_123)" "(expand-context/inner-requires+provides" -" the-struct_122)" +" the-struct_123)" "(expand-context/inner-observer" -" the-struct_122)" +" the-struct_123)" "(expand-context/inner-for-serializable?" -" the-struct_122)" +" the-struct_123)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_122)))" +" the-struct_123)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_122)))))" +" the-struct_123)))))" "(expand-context/outer1.1" " inner682_0" " post-expansion-scope681_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_121)" +" the-struct_122)" "(root-expand-context/outer-frame-id" -" the-struct_121)" +" the-struct_122)" " context680_0" "(expand-context/outer-env" -" the-struct_121)" +" the-struct_122)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_121)" +" the-struct_122)" "(expand-context/outer-scopes" -" the-struct_121)" +" the-struct_122)" "(expand-context/outer-def-ctx-scopes" -" the-struct_121)" +" the-struct_122)" "(expand-context/outer-binding-layer" -" the-struct_121)" +" the-struct_122)" "(expand-context/outer-reference-records" -" the-struct_121)" +" the-struct_122)" "(expand-context/outer-only-immediate?" -" the-struct_121)" +" the-struct_122)" "(expand-context/outer-need-eventually-defined" -" the-struct_121)" +" the-struct_122)" "(expand-context/outer-current-introduction-scopes" -" the-struct_121)" +" the-struct_122)" "(expand-context/outer-name" -" the-struct_121)))" +" the-struct_122)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_121)))))" -"((self672_0) self_43)" +" the-struct_122)))))" +"((self672_0) self_42)" "((temp673_0) #t)" "((keep-enclosing-scope-at-phase674_0)" " keep-enclosing-scope-at-phase_2)" @@ -75527,24 +75945,24 @@ static const char *startup_source = " #t" " mpis-to-reset678_0" " #t" -" s_843" +" s670_0" " temp671_0" " self672_0))))" "(let-values((()" "(begin" -"(let-values(((obs_156)" -"(expand-context-observer ctx_119)))" -"(if obs_156" +"(let-values(((obs_164)" +"(expand-context-observer ctx_120)))" +"(if obs_164" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_156" +" obs_164" " 'exit-prim" "(extract-syntax submod_5))))" "(void)))" "(values))))" -"(let-values(((ns_126)(expand-context-namespace ctx_119)))" -"(let-values(((module-name_3)(1/module-path-index-resolve self_43)))" +"(let-values(((ns_127)(expand-context-namespace ctx_120)))" +"(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)" @@ -75553,8 +75971,8 @@ static const char *startup_source = "(expanded+parsed-parsed submod_5)" " submod_5))" "((temp685_0)" -"(let-values(((ns690_0) ns_126)" -"((self691_0) self_43)" +"(let-values(((ns690_0) ns_127)" +"((self691_0) self_42)" "((temp692_0)" "(1/resolved-module-path-name" " module-name_3)))" @@ -75574,7 +75992,7 @@ static const char *startup_source = "((temp686_0) #t)" "((temp687_0)" "(expand-context-for-serializable?" -" ctx_119))" +" ctx_120))" "((modules-being-compiled688_0)" " modules-being-compiled_8)" "((temp689_0) #f))" @@ -75594,18 +76012,20 @@ static const char *startup_source = "(begin" "(hash-set!" " compiled-submodules_5" -" name_82" +" name_80" "(cons is-star?_0 compiled-submodule_0))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " 1/current-namespace" -" ns_126" +" ns_127" " 1/current-module-declare-name" "(1/make-resolved-module-path root-module-name_1))" "(let-values()" -"(let-values(((temp694_0) #f))" +"(let-values(((compiled-submodule693_0)" +" compiled-submodule_0)" +"((temp694_0) #f))" "(eval-module8.1" " #f" " #f" @@ -75613,17 +76033,17 @@ static const char *startup_source = " #f" " temp694_0" " #t" -" compiled-submodule_0))))" +" compiled-submodule693_0))))" "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_157)" -"(expand-context-observer ctx_119)))" -"(if obs_157" +"(let-values(((obs_165)" +"(expand-context-observer ctx_120)))" +"(if obs_165" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_157" +" obs_165" " 'exit-prim" "(extract-syntax submod_5))))" "(void)))))" @@ -75631,67 +76051,67 @@ static const char *startup_source = "(let-values() submod_5)" "(if(expanded+parsed? submod_5)" "(let-values()" -"(let-values(((the-struct_123) submod_5))" -"(if(expanded+parsed? the-struct_123)" +"(let-values(((the-struct_124) submod_5))" +"(if(expanded+parsed? the-struct_124)" "(let-values(((parsed695_0)" -"(let-values(((the-struct_124)" +"(let-values(((the-struct_125)" "(expanded+parsed-parsed" " submod_5)))" -"(if(parsed-module? the-struct_124)" +"(if(parsed-module? the-struct_125)" "(let-values(((star?696_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_124)" +"(parsed-s the-struct_125)" " star?696_0" "(parsed-module-name-id" -" the-struct_124)" +" the-struct_125)" "(parsed-module-self" -" the-struct_124)" +" the-struct_125)" "(parsed-module-requires" -" the-struct_124)" +" the-struct_125)" "(parsed-module-provides" -" the-struct_124)" +" the-struct_125)" "(parsed-module-root-ctx-simple?" -" the-struct_124)" +" the-struct_125)" "(parsed-module-encoded-root-ctx" -" the-struct_124)" +" the-struct_125)" "(parsed-module-body" -" the-struct_124)" +" the-struct_125)" "(parsed-module-compiled-module" -" the-struct_124)" -"(parsed-module-compiled-submodules" -" the-struct_124)))" -"(raise-argument-error" -" 'struct-copy" -" \"parsed-module?\"" -" the-struct_124)))))" -"(expanded+parsed1.1" -"(expanded+parsed-s the-struct_123)" -" parsed695_0))" -"(raise-argument-error" -" 'struct-copy" -" \"expanded+parsed?\"" -" the-struct_123))))" -"(let-values()" -"(let-values(((the-struct_125) submod_5))" -"(if(parsed-module? the-struct_125)" -"(let-values(((star?697_0) #t))" -"(parsed-module25.1" -"(parsed-s the-struct_125)" -" star?697_0" -"(parsed-module-name-id the-struct_125)" -"(parsed-module-self the-struct_125)" -"(parsed-module-requires the-struct_125)" -"(parsed-module-provides the-struct_125)" -"(parsed-module-root-ctx-simple? the-struct_125)" -"(parsed-module-encoded-root-ctx the-struct_125)" -"(parsed-module-body the-struct_125)" -"(parsed-module-compiled-module the-struct_125)" +" the-struct_125)" "(parsed-module-compiled-submodules" " the-struct_125)))" "(raise-argument-error" " 'struct-copy" +" \"parsed-module?\"" +" the-struct_125)))))" +"(expanded+parsed1.1" +"(expanded+parsed-s the-struct_124)" +" parsed695_0))" +"(raise-argument-error" +" 'struct-copy" +" \"expanded+parsed?\"" +" the-struct_124))))" +"(let-values()" +"(let-values(((the-struct_126) submod_5))" +"(if(parsed-module? the-struct_126)" +"(let-values(((star?697_0) #t))" +"(parsed-module25.1" +"(parsed-s the-struct_126)" +" star?697_0" +"(parsed-module-name-id the-struct_126)" +"(parsed-module-self the-struct_126)" +"(parsed-module-requires the-struct_126)" +"(parsed-module-provides the-struct_126)" +"(parsed-module-root-ctx-simple? the-struct_126)" +"(parsed-module-encoded-root-ctx the-struct_126)" +"(parsed-module-body the-struct_126)" +"(parsed-module-compiled-module the-struct_126)" +"(parsed-module-compiled-submodules" +" the-struct_126)))" +"(raise-argument-error" +" 'struct-copy" " \"parsed-module?\"" -" the-struct_125)))))))))))))))))))))))))))))))))))" +" the-struct_126)))))))))))))))))))))))))))))))))))" "(define-values" "(expand-non-module*-submodules212.1)" "(lambda(compiled-submodules202_0" @@ -75705,41 +76125,47 @@ static const char *startup_source = "(begin" " 'expand-non-module*-submodules212" "(let-values(((bodys_29) bodys208_0))" -"(let-values(((phase_165) phase209_0))" -"(let-values(((self_44) self210_0))" -"(let-values(((ctx_120) ctx211_0))" +"(let-values(((phase_162) phase209_0))" +"(let-values(((self_43) self210_0))" +"(let-values(((ctx_121) ctx211_0))" "(let-values(((mpis-to-reset_5) mpis-to-reset200_0))" "(let-values(((declared-submodule-names_9) declared-submodule-names201_0))" "(let-values(((compiled-submodules_6) compiled-submodules202_0))" "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))" "(let-values()" "(reverse$1" -"(let-values(((lst_439) bodys_29))" +"(let-values(((lst_445) bodys_29))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_439)))" -"((letrec-values(((for-loop_324)" -"(lambda(fold-var_368 lst_440)" +"(let-values()(check-list lst_445)))" +"((letrec-values(((for-loop_333)" +"(lambda(fold-var_377 lst_446)" "(begin" " 'for-loop" -"(if(pair? lst_440)" -"(let-values(((body_27)(unsafe-car lst_440))" -"((rest_260)(unsafe-cdr lst_440)))" -"(let-values(((fold-var_369)" -"(let-values(((fold-var_370) fold-var_368))" -"(let-values(((fold-var_371)" +"(if(pair? lst_446)" +"(let-values(((body_27)(unsafe-car lst_446))" +"((rest_253)(unsafe-cdr lst_446)))" +"(let-values(((fold-var_378)" +"(let-values(((fold-var_379) fold-var_377))" +"(let-values(((fold-var_380)" "(let-values()" "(cons" "(let-values()" -"(let-values(((tmp_69)" +"(let-values(((tmp_68)" "(core-form-sym" "(syntax-disarm$1" " body_27)" -" phase_165)))" -"(if(equal? tmp_69 'module)" +" phase_162)))" +"(if(equal? tmp_68 'module)" "(let-values()" -"(let-values(((temp701_0)" +"(let-values(((body698_0)" +" body_27)" +"((self699_0)" +" self_43)" +"((ctx700_0)" +" ctx_121)" +"((temp701_0)" " #f)" "((mpis-to-reset702_0)" " mpis-to-reset_5)" @@ -75763,79 +76189,79 @@ static const char *startup_source = " #f" " modules-being-compiled705_0" " mpis-to-reset702_0" -" body_27" -" self_44" -" ctx_120)))" +" body698_0" +" self699_0" +" ctx700_0)))" "(let-values() body_27))))" -" fold-var_370))))" -"(values fold-var_371)))))" +" fold-var_379))))" +"(values fold-var_380)))))" "(if(not #f)" -"(for-loop_324 fold-var_369 rest_260)" -" fold-var_369)))" -" fold-var_368)))))" -" for-loop_324)" +"(for-loop_333 fold-var_378 rest_253)" +" fold-var_378)))" +" fold-var_377)))))" +" for-loop_333)" " null" -" lst_439))))))))))))))))" +" lst_445))))))))))))))))" "(define-values" "(make-parse-lifted-require220.1)" -"(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)" +"(lambda(declared-submodule-names215_0 m-ns217_0 self218_1 requires+provides219_0)" "(begin" " 'make-parse-lifted-require220" "(let-values(((m-ns_24) m-ns217_0))" -"(let-values(((self_45) self218_0))" +"(let-values(((self_44) self218_1))" "(let-values(((requires+provides_13) requires+provides219_0))" "(let-values(((declared-submodule-names_10) declared-submodule-names215_0))" "(let-values()" -"(lambda(s_851 phase_166)" -"(let-values(((ok?_87 #%require706_0 req707_0)" -"(let-values(((s_852)(syntax-disarm$1 s_851)))" -"(let-values(((orig-s_92) s_852))" +"(lambda(s_850 phase_163)" +"(let-values(((ok?_86 #%require706_0 req707_0)" +"(let-values(((s_851)(syntax-disarm$1 s_850)))" +"(let-values(((orig-s_91) s_851))" "(let-values(((#%require706_1 req707_1)" -"(let-values(((s_853)" -"(if(syntax?$1 s_852)(syntax-e$1 s_852) s_852)))" -"(if(pair? s_853)" +"(let-values(((s_852)" +"(if(syntax?$1 s_851)(syntax-e$1 s_851) s_851)))" +"(if(pair? s_852)" "(let-values(((#%require708_0)" -"(let-values(((s_854)(car s_853))) s_854))" +"(let-values(((s_853)(car s_852))) s_853))" "((req709_0)" -"(let-values(((s_855)(cdr s_853)))" -"(let-values(((s_856)" -"(if(syntax?$1 s_855)" -"(syntax-e$1 s_855)" -" s_855)))" -"(if(pair? s_856)" +"(let-values(((s_854)(cdr s_852)))" +"(let-values(((s_855)" +"(if(syntax?$1 s_854)" +"(syntax-e$1 s_854)" +" s_854)))" +"(if(pair? s_855)" "(let-values(((req710_0)" -"(let-values(((s_857)" -"(car s_856)))" -" s_857))" +"(let-values(((s_856)" +"(car s_855)))" +" s_856))" "(()" +"(let-values(((s_857)" +"(cdr s_855)))" "(let-values(((s_858)" -"(cdr s_856)))" -"(let-values(((s_859)" "(if(syntax?$1" -" s_858)" +" s_857)" "(syntax-e$1" -" s_858)" -" s_858)))" -"(if(null? s_859)" +" s_857)" +" s_857)))" +"(if(null? s_858)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_92))))))" +" orig-s_91))))))" "(values req710_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_92))))))" +" orig-s_91))))))" "(values #%require708_0 req709_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_92)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_91)))))" "(values #t #%require706_1 req707_1))))))" "(let-values(((temp711_0)(list req707_0))" -"((s712_0) s_851)" -"((self713_0) self_45)" +"((s712_0) s_850)" +"((self713_0) self_44)" "((m-ns714_0) m-ns_24)" -"((phase715_0) phase_166)" -"((phase716_0) phase_166)" +"((phase715_0) phase_163)" +"((phase716_0) phase_163)" "((requires+provides717_0) requires+provides_13)" "((declared-submodule-names718_0) declared-submodule-names_10)" "((temp719_0) 'require))" @@ -75877,249 +76303,249 @@ static const char *startup_source = "(lambda(lifted-defns_2)" "(begin" "(reverse$1" -"(let-values(((lst_441) lifted-defns_2))" +"(let-values(((lst_447) lifted-defns_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_441)))" -"((letrec-values(((for-loop_325)" -"(lambda(fold-var_372 lst_442)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_447)))" +"((letrec-values(((for-loop_334)" +"(lambda(fold-var_381 lst_448)" "(begin" " 'for-loop" -"(if(pair? lst_442)" -"(let-values(((lifted-defn_0)(unsafe-car lst_442))" -"((rest_261)(unsafe-cdr lst_442)))" -"(let-values(((fold-var_373)" -"(let-values(((fold-var_374) fold-var_372))" -"(let-values(((fold-var_375)" +"(if(pair? lst_448)" +"(let-values(((lifted-defn_0)(unsafe-car lst_448))" +"((rest_254)(unsafe-cdr lst_448)))" +"(let-values(((fold-var_382)" +"(let-values(((fold-var_383) fold-var_381))" +"(let-values(((fold-var_384)" "(let-values()" "(cons" "(let-values()" "(defn-extract-syntax lifted-defn_0))" -" fold-var_374))))" -"(values fold-var_375)))))" -"(if(not #f)(for-loop_325 fold-var_373 rest_261) fold-var_373)))" -" fold-var_372)))))" -" for-loop_325)" +" fold-var_383))))" +"(values fold-var_384)))))" +"(if(not #f)(for-loop_334 fold-var_382 rest_254) fold-var_382)))" +" fold-var_381)))))" +" for-loop_334)" " null" -" lst_441)))))))" +" lst_447)))))))" "(define-values" "(log-lifted-defns)" "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" "(begin" -"(let-values(((obs_158)(expand-context-observer partial-body-ctx_2)))" -"(if obs_158" +"(let-values(((obs_166)(expand-context-observer partial-body-ctx_2)))" +"(if obs_166" "(let-values()" "(let-values(((s-lifted-defns_0)(lifted-defns-extract-syntax lifted-defns_3)))" "(let-values((()" "(begin" -"(call-expand-observe obs_158 'rename-list(cons exp-body_10 rest-bodys_4))" +"(call-expand-observe obs_166 'rename-list(cons exp-body_10 rest-bodys_4))" "(values))))" -"(let-values((()(begin(call-expand-observe obs_158 'module-lift-loop s-lifted-defns_0)(values))))" +"(let-values((()(begin(call-expand-observe obs_166 'module-lift-loop s-lifted-defns_0)(values))))" "(let-values((()" "(begin" -"(let-values(((lst_443) s-lifted-defns_0))" +"(let-values(((lst_449) s-lifted-defns_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_443)))" -"((letrec-values(((for-loop_326)" -"(lambda(lst_444)" +"(let-values()(check-list lst_449)))" +"((letrec-values(((for-loop_335)" +"(lambda(lst_450)" "(begin" " 'for-loop" -"(if(pair? lst_444)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_444))" -"((rest_262)(unsafe-cdr lst_444)))" +"(if(pair? lst_450)" +"(let-values(((s-lifted-defn_0)(unsafe-car lst_450))" +"((rest_255)(unsafe-cdr lst_450)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((ok?_88" +"(let-values(((ok?_87" " define-values724_0" " _725_0)" -"(let-values(((s_860)" +"(let-values(((s_859)" " s-lifted-defn_0))" -"(let-values(((orig-s_93)" -" s_860))" +"(let-values(((orig-s_92)" +" s_859))" "(let-values(((define-values724_1" " _725_1)" -"(let-values(((s_861)" +"(let-values(((s_860)" "(if(syntax?$1" -" s_860)" +" s_859)" "(syntax-e$1" -" s_860)" -" s_860)))" +" s_859)" +" s_859)))" "(if(pair?" -" s_861)" +" s_860)" "(let-values(((define-values726_0)" -"(let-values(((s_862)" +"(let-values(((s_861)" "(car" -" s_861)))" -" s_862))" +" s_860)))" +" s_861))" "((_727_0)" -"(let-values(((s_863)" +"(let-values(((s_862)" "(cdr" -" s_861)))" -"(let-values(((s_864)" +" s_860)))" +"(let-values(((s_863)" "(if(syntax?$1" -" s_863)" +" s_862)" "(syntax-e$1" -" s_863)" -" s_863)))" -"(let-values(((flat-s_61)" +" s_862)" +" s_862)))" +"(let-values(((flat-s_62)" "(to-syntax-list.1" -" s_864)))" +" s_863)))" "(if(not" -" flat-s_61)" +" flat-s_62)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_93))" +" orig-s_92))" "(let-values()" -" flat-s_61)))))))" +" flat-s_62)))))))" "(values" " define-values726_0" " _727_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_93)))))" +" orig-s_92)))))" "(values" " #t" " define-values724_1" " _725_1))))))" "(begin" "(call-expand-observe" -" obs_158" +" obs_166" " 'next)" "(call-expand-observe" -" obs_158" +" obs_166" " 'visit" " s-lifted-defn_0)" "(call-expand-observe" -" obs_158" +" obs_166" " 'resolve" " define-values724_0)" "(call-expand-observe" -" obs_158" +" obs_166" " 'enter-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_158" +" obs_166" " 'prim-stop)" "(call-expand-observe" -" obs_158" +" obs_166" " 'exit-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_158" +" obs_166" " 'return" " s-lifted-defn_0)" "(call-expand-observe" -" obs_158" +" obs_166" " 'rename-one" " s-lifted-defn_0)" "(call-expand-observe" -" obs_158" +" obs_166" " 'enter-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_158" +" obs_166" " 'prim-define-values)" "(call-expand-observe" -" obs_158" +" obs_166" " 'exit-prim" " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_326 rest_262)(values))))" +"(if(not #f)(for-loop_335 rest_255)(values))))" "(values))))))" -" for-loop_326)" -" lst_443)))" +" for-loop_335)" +" lst_449)))" "(values))))" "(let-values()" -"(let-values(((ok?_89 form-id720_0 _721_0)" -"(let-values(((s_865) exp-body_10))" -"(let-values(((orig-s_94) s_865))" +"(let-values(((ok?_88 form-id720_0 _721_0)" +"(let-values(((s_864) exp-body_10))" +"(let-values(((orig-s_93) s_864))" "(let-values(((form-id720_1 _721_1)" -"(let-values(((s_866)" -"(if(syntax?$1 s_865)(syntax-e$1 s_865) s_865)))" -"(if(pair? s_866)" +"(let-values(((s_865)" +"(if(syntax?$1 s_864)(syntax-e$1 s_864) s_864)))" +"(if(pair? s_865)" "(let-values(((form-id722_0)" -"(let-values(((s_867)(car s_866))) s_867))" +"(let-values(((s_866)(car s_865))) s_866))" "((_723_0)" -"(let-values(((s_868)(cdr s_866))) s_868)))" +"(let-values(((s_867)(cdr s_865))) s_867)))" "(values form-id722_0 _723_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_94)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_93)))))" "(values #t form-id720_1 _721_1))))))" "(begin" -"(call-expand-observe obs_158 'next)" -"(call-expand-observe obs_158 'visit exp-body_10)" -"(call-expand-observe obs_158 'resolve form-id720_0)" -"(call-expand-observe obs_158 'enter-prim exp-body_10)" -"(call-expand-observe obs_158 'prim-stop)" -"(call-expand-observe obs_158 'exit-prim exp-body_10)" -"(call-expand-observe obs_158 'return exp-body_10)))))))))" +"(call-expand-observe obs_166 'next)" +"(call-expand-observe obs_166 'visit exp-body_10)" +"(call-expand-observe obs_166 'resolve form-id720_0)" +"(call-expand-observe obs_166 'enter-prim exp-body_10)" +"(call-expand-observe obs_166 'prim-stop)" +"(call-expand-observe obs_166 'exit-prim exp-body_10)" +"(call-expand-observe obs_166 'return exp-body_10)))))))))" "(void))))))" "(define-values" "(log-defn-enter)" -"(lambda(ctx_121 defn_1)" +"(lambda(ctx_122 defn_1)" "(begin" -"(let-values(((obs_159)(expand-context-observer ctx_121)))" -"(if obs_159" +"(let-values(((obs_167)(expand-context-observer ctx_122)))" +"(if obs_167" "(let-values()" "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))" -"(let-values(((ok?_90 define-values728_0 _729_0)" -"(let-values(((s_869) s-defn_0))" -"(let-values(((orig-s_95) s_869))" +"(let-values(((ok?_89 define-values728_0 _729_0)" +"(let-values(((s_868) s-defn_0))" +"(let-values(((orig-s_94) s_868))" "(let-values(((define-values728_1 _729_1)" -"(let-values(((s_870)(if(syntax?$1 s_869)(syntax-e$1 s_869) s_869)))" -"(if(pair? s_870)" +"(let-values(((s_869)(if(syntax?$1 s_868)(syntax-e$1 s_868) s_868)))" +"(if(pair? s_869)" "(let-values(((define-values730_0)" -"(let-values(((s_871)(car s_870))) s_871))" +"(let-values(((s_870)(car s_869))) s_870))" "((_731_0)" -"(let-values(((s_872)(cdr s_870)))" -"(let-values(((s_873)" -"(if(syntax?$1 s_872)" -"(syntax-e$1 s_872)" -" s_872)))" -"(let-values(((flat-s_62)(to-syntax-list.1 s_873)))" -"(if(not flat-s_62)" +"(let-values(((s_871)(cdr s_869)))" +"(let-values(((s_872)" +"(if(syntax?$1 s_871)" +"(syntax-e$1 s_871)" +" s_871)))" +"(let-values(((flat-s_63)(to-syntax-list.1 s_872)))" +"(if(not flat-s_63)" "(let-values()" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_95))" -"(let-values() flat-s_62)))))))" +" orig-s_94))" +"(let-values() flat-s_63)))))))" "(values define-values730_0 _731_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_95)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_94)))))" "(values #t define-values728_1 _729_1))))))" "(begin" -"(call-expand-observe obs_159 'visit s-defn_0)" -"(call-expand-observe obs_159 'resolve define-values728_0)" -"(call-expand-observe obs_159 'enter-prim s-defn_0)" -"(call-expand-observe obs_159 'prim-define-values)))))" +"(call-expand-observe obs_167 'visit s-defn_0)" +"(call-expand-observe obs_167 'resolve define-values728_0)" +"(call-expand-observe obs_167 'enter-prim s-defn_0)" +"(call-expand-observe obs_167 'prim-define-values)))))" "(void))))))" "(define-values" "(log-defn-exit)" -"(lambda(ctx_122 defn_2 exp-rhs_8)" +"(lambda(ctx_123 defn_2 exp-rhs_7)" "(begin" -"(let-values(((obs_160)(expand-context-observer ctx_122)))" -"(if obs_160" +"(let-values(((obs_168)(expand-context-observer ctx_123)))" +"(if obs_168" "(let-values()" "(let-values(((s-defn_1)" "(datum->syntax$1" " #f" -"(list 'define-values(semi-parsed-define-values-ids defn_2) exp-rhs_8)" +"(list 'define-values(semi-parsed-define-values-ids defn_2) exp-rhs_7)" "(semi-parsed-define-values-s defn_2))))" -"(begin(call-expand-observe obs_160 'exit-prim s-defn_1)(call-expand-observe obs_160 'return s-defn_1))))" +"(begin(call-expand-observe obs_168 'exit-prim s-defn_1)(call-expand-observe obs_168 'return s-defn_1))))" "(void))))))" "(define-values" "(as-expand-time-top-level-bindings)" -"(lambda(ids_47 s_156 ctx_123)" +"(lambda(ids_47 s_154 ctx_124)" "(begin" -"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_123)))" +"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_124)))" "(let-values(((tl-ids_2)" "(reverse$1" "(let-values(((lst_6) ids_47))" @@ -76127,76 +76553,76 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_6)))" -"((letrec-values(((for-loop_99)" -"(lambda(fold-var_376 lst_81)" +"((letrec-values(((for-loop_101)" +"(lambda(fold-var_385 lst_83)" "(begin" " 'for-loop" -"(if(pair? lst_81)" -"(let-values(((id_159)(unsafe-car lst_81))" -"((rest_38)(unsafe-cdr lst_81)))" -"(let-values(((fold-var_60)" -"(let-values(((fold-var_61) fold-var_376))" -"(let-values(((fold-var_377)" +"(if(pair? lst_83)" +"(let-values(((id_165)(unsafe-car lst_83))" +"((rest_39)(unsafe-cdr lst_83)))" +"(let-values(((fold-var_61)" +"(let-values(((fold-var_62) fold-var_385))" +"(let-values(((fold-var_386)" "(let-values()" "(cons" "(let-values()" "(remove-use-site-scopes" -" id_159" -" ctx_123))" -" fold-var_61))))" -"(values fold-var_377)))))" -"(if(not #f)(for-loop_99 fold-var_60 rest_38) fold-var_60)))" -" fold-var_376)))))" -" for-loop_99)" +" id_165" +" ctx_124))" +" fold-var_62))))" +"(values fold-var_386)))))" +"(if(not #f)(for-loop_101 fold-var_61 rest_39) fold-var_61)))" +" fold-var_385)))))" +" for-loop_101)" " null" " lst_6))))))" "(let-values((()" "(begin" -"(let-values(((tl-ids1_0) tl-ids_2)((temp2_8)(expand-context-phase ctx_123))((s3_3) s_156))" -"(check-no-duplicate-ids8.1 #f #f tl-ids1_0 temp2_8 s3_3 #f #f))" +"(let-values(((tl-ids1_0) tl-ids_2)((temp2_8)(expand-context-phase ctx_124))((s3_4) s_154))" +"(check-no-duplicate-ids8.1 #f #f tl-ids1_0 temp2_8 s3_4 #f #f))" "(values))))" "(let-values(((tmp-bind-ids_0)" "(reverse$1" -"(let-values(((lst_95) tl-ids_2))" +"(let-values(((lst_98) tl-ids_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_95)))" -"((letrec-values(((for-loop_327)" -"(lambda(fold-var_217 lst_82)" +"(let-values()(check-list lst_98)))" +"((letrec-values(((for-loop_336)" +"(lambda(fold-var_217 lst_84)" "(begin" " 'for-loop" -"(if(pair? lst_82)" -"(let-values(((id_3)(unsafe-car lst_82))" -"((rest_241)(unsafe-cdr lst_82)))" -"(let-values(((fold-var_221)" +"(if(pair? lst_84)" +"(let-values(((id_166)(unsafe-car lst_84))" +"((rest_235)(unsafe-cdr lst_84)))" +"(let-values(((fold-var_227)" "(let-values(((fold-var_31) fold-var_217))" "(let-values(((fold-var_32)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" id_3" +" id_166" " top-level-bind-scope_6))" " fold-var_31))))" "(values fold-var_32)))))" "(if(not #f)" -"(for-loop_327 fold-var_221 rest_241)" -" fold-var_221)))" +"(for-loop_336 fold-var_227 rest_235)" +" fold-var_227)))" " fold-var_217)))))" -" for-loop_327)" +" for-loop_336)" " null" -" lst_95))))))" -"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_123)))))))))" +" lst_98))))))" +"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_124)))))))))" "(void" "(add-core-form!*" " 'define-values" "(lambda(s_0 ctx_7)" "(let-values((()" "(begin" -"(let-values(((obs_161)(expand-context-observer ctx_7)))" -"(if obs_161" -"(let-values()(let-values()(call-expand-observe obs_161 'prim-define-values)))" +"(let-values(((obs_169)(expand-context-observer ctx_7)))" +"(if obs_169" +"(let-values()(let-values()(call-expand-observe obs_169 'prim-define-values)))" "(void)))" "(values))))" "(let-values((()" @@ -76206,203 +76632,39 @@ static const char *startup_source = " (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?_25 define-values1_0 id2_1 rhs3_0)" -"(let-values(((s_171) s_0))" -"(let-values(((orig-s_96) s_171))" +"(let-values(((ok?_24 define-values1_0 id2_1 rhs3_0)" +"(let-values(((s_169) s_0))" +"(let-values(((orig-s_95) s_169))" "(let-values(((define-values1_1 id2_2 rhs3_1)" -"(let-values(((s_40)(if(syntax?$1 s_171)(syntax-e$1 s_171) s_171)))" +"(let-values(((s_40)(if(syntax?$1 s_169)(syntax-e$1 s_169) s_169)))" "(if(pair? s_40)" "(let-values(((define-values4_0)" -"(let-values(((s_181)(car s_40))) s_181))" +"(let-values(((s_179)(car s_40))) s_179))" "((id5_0 rhs6_0)" "(let-values(((s_41)(cdr s_40)))" -"(let-values(((s_173)" +"(let-values(((s_171)" "(if(syntax?$1 s_41)" "(syntax-e$1 s_41)" " s_41)))" -"(if(pair? s_173)" +"(if(pair? s_171)" "(let-values(((id7_0)" -"(let-values(((s_160)(car s_173)))" +"(let-values(((s_159)(car s_171)))" "(let-values(((s_5)" -"(if(syntax?$1 s_160)" -"(syntax-e$1 s_160)" -" s_160)))" -"(let-values(((flat-s_63)" -"(to-syntax-list.1" -" s_5)))" -"(if(not flat-s_63)" -"(let-values()" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_96))" -"(let-values()" -"(let-values(((id_160)" -"(let-values(((lst_24)" -" flat-s_63))" -"(begin" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_24)))" -"((letrec-values(((for-loop_241)" -"(lambda(id_161" -" lst_77)" -"(begin" -" 'for-loop" -"(if(pair?" -" lst_77)" -"(let-values(((s_182)" -"(unsafe-car" -" lst_77))" -"((rest_140)" -"(unsafe-cdr" -" lst_77)))" -"(let-values(((id_162)" -"(let-values(((id_52)" -" id_161))" -"(let-values(((id_163)" -"(let-values()" -"(let-values(((id10_1)" -"(let-values()" -"(if(let-values(((or-part_62)" -"(if(syntax?$1" -" s_182)" -"(symbol?" -"(syntax-e$1" -" s_182))" -" #f)))" -"(if or-part_62" -" or-part_62" -"(symbol?" -" s_182)))" -" s_182" -"(raise-syntax-error$1" -" #f" -" \"not an identifier\"" -" orig-s_96" -" s_182)))))" -"(cons" -" id10_1" -" id_52)))))" -"(values" -" id_163)))))" -"(if(not" -" #f)" -"(for-loop_241" -" id_162" -" rest_140)" -" id_162)))" -" id_161)))))" -" for-loop_241)" -" null" -" lst_24)))))" -"(reverse$1 id_160))))))))" -"((rhs8_0)" -"(let-values(((s_82)(cdr s_173)))" -"(let-values(((s_305)" -"(if(syntax?$1 s_82)" -"(syntax-e$1 s_82)" -" s_82)))" -"(if(pair? s_305)" -"(let-values(((rhs9_0)" -"(let-values(((s_43)" -"(car" -" s_305)))" -" s_43))" -"(()" -"(let-values(((s_306)" -"(cdr" -" s_305)))" -"(let-values(((s_35)" -"(if(syntax?$1" -" s_306)" -"(syntax-e$1" -" s_306)" -" s_306)))" -"(if(null?" -" s_35)" -"(values)" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_96))))))" -"(values rhs9_0))" -"(raise-syntax-error$1" -" #f" -" \"bad syntax\"" -" orig-s_96))))))" -"(values id7_0 rhs8_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_96))))))" -"(values define-values4_0 id5_0 rhs6_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_96)))))" -"(values #t define-values1_1 id2_2 rhs3_1))))))" -"(let-values(((ids_48 syms_28)(as-expand-time-top-level-bindings id2_1 s_0 ctx_7)))" -"(let-values(((exp-rhs_9)" -"(let-values(((temp11_7) rhs3_0)((temp12_7)(as-named-context ctx_7 ids_48)))" -"(expand7.1 #f #f #f #f temp11_7 temp12_7))))" -"(if(expand-context-to-parsed? ctx_7)" -"(parsed-define-values19.1 s_0 ids_48 syms_28 exp-rhs_9)" -"(let-values(((s13_0) s_0)((temp14_7)(list define-values1_0 ids_48 exp-rhs_9)))" -"(rebuild5.1 #f #f s13_0 temp14_7))))))))))))" -"(void" -"(add-core-form!*" -" 'define-syntaxes" -"(lambda(s_472 ctx_124)" -"(let-values((()" -"(begin" -"(let-values(((obs_162)(expand-context-observer ctx_124)))" -"(if obs_162" -"(let-values()(let-values()(call-expand-observe obs_162 'prim-define-syntaxes)))" -"(void)))" -"(values))))" -"(let-values((()" -"(begin" -"(let-values(((obs_163)(expand-context-observer ctx_124)))" -"(if obs_163(let-values()(let-values()(call-expand-observe obs_163 'prepare-env)))(void)))" -"(values))))" -"(let-values((()" -"(begin" -"(if(eq?(expand-context-context ctx_124) 'top-level)" -"(void)" -" (let-values () (raise-syntax-error$1 #f \"not allowed in an expression position\" s_472)))" -"(values))))" -"(let-values(((disarmed-s_26)(syntax-disarm$1 s_472)))" -"(let-values(((ok?_91 define-syntaxes15_0 id16_2 rhs17_0)" -"(let-values(((s_874) disarmed-s_26))" -"(let-values(((orig-s_97) s_874))" -"(let-values(((define-syntaxes15_1 id16_3 rhs17_1)" -"(let-values(((s_20)(if(syntax?$1 s_874)(syntax-e$1 s_874) s_874)))" -"(if(pair? s_20)" -"(let-values(((define-syntaxes18_0)" -"(let-values(((s_23)(car s_20))) s_23))" -"((id19_0 rhs20_0)" -"(let-values(((s_437)(cdr s_20)))" -"(let-values(((s_24)" -"(if(syntax?$1 s_437)" -"(syntax-e$1 s_437)" -" s_437)))" -"(if(pair? s_24)" -"(let-values(((id21_0)" -"(let-values(((s_735)(car s_24)))" -"(let-values(((s_481)" -"(if(syntax?$1 s_735)" -"(syntax-e$1 s_735)" -" s_735)))" +"(if(syntax?$1 s_159)" +"(syntax-e$1 s_159)" +" s_159)))" "(let-values(((flat-s_64)" "(to-syntax-list.1" -" s_481)))" +" s_5)))" "(if(not flat-s_64)" "(let-values()" "(raise-syntax-error$1" " #f" -" \"bad syntax\"" -" orig-s_97))" +" \"bad syntax\"" +" orig-s_95))" "(let-values()" -"(let-values(((id_92)" -"(let-values(((lst_178)" +"(let-values(((id_167)" +"(let-values(((lst_24)" " flat-s_64))" "(begin" "(if(variable-reference-from-unsafe?" @@ -76410,189 +76672,353 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_178)))" -"((letrec-values(((for-loop_265)" -"(lambda(id_164" -" lst_445)" +" lst_24)))" +"((letrec-values(((for-loop_247)" +"(lambda(id_6" +" lst_78)" "(begin" " 'for-loop" "(if(pair?" -" lst_445)" -"(let-values(((s_503)" +" lst_78)" +"(let-values(((s_180)" "(unsafe-car" -" lst_445))" -"((rest_263)" +" lst_78))" +"((rest_142)" "(unsafe-cdr" -" lst_445)))" -"(let-values(((id_94)" -"(let-values(((id_74)" -" id_164))" -"(let-values(((id_165)" +" lst_78)))" +"(let-values(((id_168)" +"(let-values(((id_52)" +" id_6))" +"(let-values(((id_169)" +"(let-values()" +"(let-values(((id10_1)" +"(let-values()" +"(if(let-values(((or-part_53)" +"(if(syntax?$1" +" s_180)" +"(symbol?" +"(syntax-e$1" +" s_180))" +" #f)))" +"(if or-part_53" +" or-part_53" +"(symbol?" +" s_180)))" +" s_180" +"(raise-syntax-error$1" +" #f" +" \"not an identifier\"" +" orig-s_95" +" s_180)))))" +"(cons" +" id10_1" +" id_52)))))" +"(values" +" id_169)))))" +"(if(not" +" #f)" +"(for-loop_247" +" id_168" +" rest_142)" +" id_168)))" +" id_6)))))" +" for-loop_247)" +" null" +" lst_24)))))" +"(reverse$1 id_167))))))))" +"((rhs8_0)" +"(let-values(((s_80)(cdr s_171)))" +"(let-values(((s_381)" +"(if(syntax?$1 s_80)" +"(syntax-e$1 s_80)" +" s_80)))" +"(if(pair? s_381)" +"(let-values(((rhs9_0)" +"(let-values(((s_43)" +"(car" +" s_381)))" +" s_43))" +"(()" +"(let-values(((s_304)" +"(cdr" +" s_381)))" +"(let-values(((s_35)" +"(if(syntax?$1" +" s_304)" +"(syntax-e$1" +" s_304)" +" s_304)))" +"(if(null?" +" s_35)" +"(values)" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_95))))))" +"(values rhs9_0))" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_95))))))" +"(values id7_0 rhs8_0))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_95))))))" +"(values define-values4_0 id5_0 rhs6_0))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_95)))))" +"(values #t define-values1_1 id2_2 rhs3_1))))))" +"(let-values(((ids_48 syms_28)(as-expand-time-top-level-bindings id2_1 s_0 ctx_7)))" +"(let-values(((exp-rhs_8)" +"(let-values(((temp11_8) rhs3_0)((temp12_7)(as-named-context ctx_7 ids_48)))" +"(expand7.1 #f #f #f #f temp11_8 temp12_7))))" +"(if(expand-context-to-parsed? ctx_7)" +"(parsed-define-values19.1 s_0 ids_48 syms_28 exp-rhs_8)" +"(let-values(((s13_0) s_0)((temp14_9)(list define-values1_0 ids_48 exp-rhs_8)))" +"(rebuild5.1 #f #f s13_0 temp14_9))))))))))))" +"(void" +"(add-core-form!*" +" 'define-syntaxes" +"(lambda(s_873 ctx_125)" +"(let-values((()" +"(begin" +"(let-values(((obs_170)(expand-context-observer ctx_125)))" +"(if obs_170" +"(let-values()(let-values()(call-expand-observe obs_170 'prim-define-syntaxes)))" +"(void)))" +"(values))))" +"(let-values((()" +"(begin" +"(let-values(((obs_171)(expand-context-observer ctx_125)))" +"(if obs_171(let-values()(let-values()(call-expand-observe obs_171 'prepare-env)))(void)))" +"(values))))" +"(let-values((()" +"(begin" +"(if(eq?(expand-context-context ctx_125) 'top-level)" +"(void)" +" (let-values () (raise-syntax-error$1 #f \"not allowed in an expression position\" s_873)))" +"(values))))" +"(let-values(((disarmed-s_26)(syntax-disarm$1 s_873)))" +"(let-values(((ok?_90 define-syntaxes15_0 id16_2 rhs17_0)" +"(let-values(((s_425) disarmed-s_26))" +"(let-values(((orig-s_96) s_425))" +"(let-values(((define-syntaxes15_1 id16_3 rhs17_1)" +"(let-values(((s_20)(if(syntax?$1 s_425)(syntax-e$1 s_425) s_425)))" +"(if(pair? s_20)" +"(let-values(((define-syntaxes18_0)" +"(let-values(((s_23)(car s_20))) s_23))" +"((id19_1 rhs20_0)" +"(let-values(((s_461)(cdr s_20)))" +"(let-values(((s_24)" +"(if(syntax?$1 s_461)" +"(syntax-e$1 s_461)" +" s_461)))" +"(if(pair? s_24)" +"(let-values(((id21_0)" +"(let-values(((s_723)(car s_24)))" +"(let-values(((s_468)" +"(if(syntax?$1 s_723)" +"(syntax-e$1 s_723)" +" s_723)))" +"(let-values(((flat-s_65)" +"(to-syntax-list.1" +" s_468)))" +"(if(not flat-s_65)" +"(let-values()" +"(raise-syntax-error$1" +" #f" +" \"bad syntax\"" +" orig-s_96))" +"(let-values()" +"(let-values(((id_78)" +"(let-values(((lst_179)" +" flat-s_65))" +"(begin" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" +" lst_179)))" +"((letrec-values(((for-loop_337)" +"(lambda(id_170" +" lst_451)" +"(begin" +" 'for-loop" +"(if(pair?" +" lst_451)" +"(let-values(((s_146)" +"(unsafe-car" +" lst_451))" +"((rest_256)" +"(unsafe-cdr" +" lst_451)))" +"(let-values(((id_101)" +"(let-values(((id_102)" +" id_170))" +"(let-values(((id_171)" "(let-values()" "(let-values(((id24_1)" "(let-values()" -"(if(let-values(((or-part_354)" +"(if(let-values(((or-part_353)" "(if(syntax?$1" -" s_503)" +" s_146)" "(symbol?" "(syntax-e$1" -" s_503))" +" s_146))" " #f)))" -"(if or-part_354" -" or-part_354" +"(if or-part_353" +" or-part_353" "(symbol?" -" s_503)))" -" s_503" +" s_146)))" +" s_146" "(raise-syntax-error$1" " #f" " \"not an identifier\"" -" orig-s_97" -" s_503)))))" +" orig-s_96" +" s_146)))))" "(cons" " id24_1" -" id_74)))))" +" id_102)))))" "(values" -" id_165)))))" +" id_171)))))" "(if(not" " #f)" -"(for-loop_265" -" id_94" -" rest_263)" -" id_94)))" -" id_164)))))" -" for-loop_265)" +"(for-loop_337" +" id_101" +" rest_256)" +" id_101)))" +" id_170)))))" +" for-loop_337)" " null" -" lst_178)))))" -"(reverse$1 id_92))))))))" +" lst_179)))))" +"(reverse$1 id_78))))))))" "((rhs22_0)" -"(let-values(((s_875)(cdr s_24)))" -"(let-values(((s_489)" -"(if(syntax?$1 s_875)" -"(syntax-e$1 s_875)" -" s_875)))" -"(if(pair? s_489)" +"(let-values(((s_874)(cdr s_24)))" +"(let-values(((s_476)" +"(if(syntax?$1 s_874)" +"(syntax-e$1 s_874)" +" s_874)))" +"(if(pair? s_476)" "(let-values(((rhs23_2)" -"(let-values(((s_504)" +"(let-values(((s_164)" "(car" -" s_489)))" -" s_504))" +" s_476)))" +" s_164))" "(()" "(let-values(((s_44)" "(cdr" -" s_489)))" -"(let-values(((s_166)" +" s_476)))" +"(let-values(((s_457)" "(if(syntax?$1" " s_44)" "(syntax-e$1" " s_44)" " s_44)))" "(if(null?" -" s_166)" +" s_457)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_97))))))" +" orig-s_96))))))" "(values rhs23_2))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_97))))))" +" orig-s_96))))))" "(values id21_0 rhs22_0))" "(raise-syntax-error$1" " #f" " \"bad syntax\"" -" orig-s_97))))))" -"(values define-syntaxes18_0 id19_0 rhs20_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_97)))))" +" orig-s_96))))))" +"(values define-syntaxes18_0 id19_1 rhs20_0))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_96)))))" "(values #t define-syntaxes15_1 id16_3 rhs17_1))))))" -"(let-values(((ids_49 syms_29)(as-expand-time-top-level-bindings id16_2 s_472 ctx_124)))" -"(let-values(((exp-rhs_10)" -"(let-values(((temp25_8) rhs17_0)((temp26_7)(as-named-context ctx_124 ids_49)))" +"(let-values(((ids_49 syms_29)(as-expand-time-top-level-bindings id16_2 s_873 ctx_125)))" +"(let-values(((exp-rhs_9)" +"(let-values(((temp25_8) rhs17_0)((temp26_7)(as-named-context ctx_125 ids_49)))" "(expand-transformer47.1 #f #f #f #f #f #f #f #f #f #f #f #f temp25_8 temp26_7))))" -"(if(expand-context-to-parsed? ctx_124)" -"(parsed-define-syntaxes20.1 s_472 ids_49 syms_29 exp-rhs_10)" -"(let-values(((s27_3) s_472)((temp28_5)(list define-syntaxes15_0 ids_49 exp-rhs_10)))" -"(rebuild5.1 #f #f s27_3 temp28_5)))))))))))))" +"(if(expand-context-to-parsed? ctx_125)" +"(parsed-define-syntaxes20.1 s_873 ids_49 syms_29 exp-rhs_9)" +"(let-values(((s27_3) s_873)((temp28_6)(list define-syntaxes15_0 ids_49 exp-rhs_9)))" +"(rebuild5.1 #f #f s27_3 temp28_6)))))))))))))" "(void" "(add-core-form!*" " 'begin-for-syntax" -" (lambda (s_307 ctx_125) (raise-syntax-error$1 #f \"not allowed in an expression position\" s_307))))" +" (lambda (s_479 ctx_10) (raise-syntax-error$1 #f \"not allowed in an expression position\" s_479))))" "(void" "(add-core-form!*" " '#%require" -"(lambda(s_45 ctx_126)" +"(lambda(s_45 ctx_18)" "(let-values((()" "(begin" -"(let-values(((obs_164)(expand-context-observer ctx_126)))" -"(if obs_164(let-values()(let-values()(call-expand-observe obs_164 'prim-require)))(void)))" +"(let-values(((obs_172)(expand-context-observer ctx_18)))" +"(if obs_172(let-values()(let-values()(call-expand-observe obs_172 'prim-require)))(void)))" "(values))))" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_126) 'top-level)" +"(if(eq?(expand-context-context ctx_18) 'top-level)" "(void)" " (let-values () (raise-syntax-error$1 #f \"allowed only in a module or the top level\" s_45)))" "(values))))" "(let-values(((disarmed-s_27)(syntax-disarm$1 s_45)))" -"(let-values(((ok?_92 #%require29_0 req30_0)" -"(let-values(((s_400) disarmed-s_27))" -"(let-values(((orig-s_98) s_400))" +"(let-values(((ok?_91 #%require29_0 req30_0)" +"(let-values(((s_394) disarmed-s_27))" +"(let-values(((orig-s_97) s_394))" "(let-values(((#%require29_1 req30_1)" -"(let-values(((s_876)(if(syntax?$1 s_400)(syntax-e$1 s_400) s_400)))" -"(if(pair? s_876)" -"(let-values(((#%require31_0)(let-values(((s_46)(car s_876))) s_46))" +"(let-values(((s_875)(if(syntax?$1 s_394)(syntax-e$1 s_394) s_394)))" +"(if(pair? s_875)" +"(let-values(((#%require31_0)(let-values(((s_46)(car s_875))) s_46))" "((req32_0)" -"(let-values(((s_32)(cdr s_876)))" -"(let-values(((s_737)" -"(if(syntax?$1 s_32)" -"(syntax-e$1 s_32)" -" s_32)))" -"(let-values(((flat-s_65)(to-syntax-list.1 s_737)))" -"(if(not flat-s_65)" +"(let-values(((s_147)(cdr s_875)))" +"(let-values(((s_724)" +"(if(syntax?$1 s_147)" +"(syntax-e$1 s_147)" +" s_147)))" +"(let-values(((flat-s_66)(to-syntax-list.1 s_724)))" +"(if(not flat-s_66)" "(let-values()" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_98))" -"(let-values() flat-s_65)))))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_97))" +"(let-values() flat-s_66)))))))" "(values #%require31_0 req32_0))" -" (raise-syntax-error$1 #f \"bad syntax\" orig-s_98)))))" +" (raise-syntax-error$1 #f \"bad syntax\" orig-s_97)))))" "(values #t #%require29_1 req30_1))))))" -"(let-values(((sc_35)(new-scope 'macro)))" +"(let-values(((sc_36)(new-scope 'macro)))" "(begin" "(let-values(((temp33_4)" "(reverse$1" -"(let-values(((lst_12) req30_0))" +"(let-values(((lst_452) req30_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_12)))" -"((letrec-values(((for-loop_328)" -"(lambda(fold-var_378 lst_446)" +"(let-values()(check-list lst_452)))" +"((letrec-values(((for-loop_338)" +"(lambda(fold-var_163 lst_453)" "(begin" " 'for-loop" -"(if(pair? lst_446)" -"(let-values(((req_24)(unsafe-car lst_446))" -"((rest_264)(unsafe-cdr lst_446)))" -"(let-values(((fold-var_379)" -"(let-values(((fold-var_380) fold-var_378))" -"(let-values(((fold-var_36)" +"(if(pair? lst_453)" +"(let-values(((req_20)(unsafe-car lst_453))" +"((rest_257)(unsafe-cdr lst_453)))" +"(let-values(((fold-var_387)" +"(let-values(((fold-var_178) fold-var_163))" +"(let-values(((fold-var_179)" "(let-values()" "(cons" "(let-values()" "(add-scope" -" req_24" -" sc_35))" -" fold-var_380))))" -"(values fold-var_36)))))" +" req_20" +" sc_36))" +" fold-var_178))))" +"(values fold-var_179)))))" "(if(not #f)" -"(for-loop_328 fold-var_379 rest_264)" -" fold-var_379)))" -" fold-var_378)))))" -" for-loop_328)" +"(for-loop_338 fold-var_387 rest_257)" +" fold-var_387)))" +" fold-var_163)))))" +" for-loop_338)" " null" -" lst_12)))))" +" lst_452)))))" "((s34_0) s_45)" "((temp35_3) #f)" -"((temp36_7)(expand-context-namespace ctx_126))" -"((temp37_5)(expand-context-phase ctx_126))" +"((temp36_8)(expand-context-namespace ctx_18))" +"((temp37_5)(expand-context-phase ctx_18))" "((temp38_3)(let-values(((temp41_5) #f))(make-requires+provides8.1 #f #f temp41_5)))" "((temp39_8) 'require)" "((temp40_4) #t))" @@ -76618,171 +77044,173 @@ static const char *startup_source = " temp39_8" " temp33_4" " s34_0" -" temp36_7" +" temp36_8" " temp37_5" " temp38_3))" -"(if(expand-context-to-parsed? ctx_126)(parsed-require23.1 s_45) s_45))))))))))" +"(if(expand-context-to-parsed? ctx_18)(parsed-require23.1 s_45) s_45))))))))))" "(void" "(add-core-form!*" " '#%provide" -"(lambda(s_439 ctx_127)" +"(lambda(s_495 ctx_126)" "(begin" -"(let-values(((obs_165)(expand-context-observer ctx_127)))" -"(if obs_165(let-values()(let-values()(call-expand-observe obs_165 'prim-provide)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_439)))))" +"(let-values(((obs_17)(expand-context-observer ctx_126)))" +"(if obs_17(let-values()(let-values()(call-expand-observe obs_17 'prim-provide)))(void)))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_495)))))" "(define-values(ns)(make-namespace))" "(void" "(begin" "(declare-core-module! ns)" -"(let-values(((temp1_5) '#%read)((read-primitives2_0) read-primitives)((ns3_1) ns))" -"(declare-hash-based-module!41.1 ns3_1 #f #f #f #f #f #f #f #f temp1_5 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 #f #f #f #f #f #f #f temp4_8 main-primitives5_0))" +"(let-values(((temp1_3) '#%read)((read-primitives2_0) read-primitives)((ns3_1) ns))" +"(declare-hash-based-module!41.1 ns3_1 #f #f #f #f #f #f #f #f temp1_3 read-primitives2_0))" +"(let-values(((temp4_10) '#%main)((main-primitives5_0) main-primitives)((ns6_2) ns))" +"(declare-hash-based-module!41.1 ns6_2 #f #f #f #f #f #f #f #f temp4_10 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 #f #f #f #f #f #f #f temp7_5 utils-primitives8_0))" -"(let-values(((temp10_6) '#%place-struct)" +"(let-values(((temp10_8) '#%place-struct)" "((place-struct-primitives11_0) place-struct-primitives)" "((ns12_1) ns)" "((temp13_3) '(dynamic-place)))" -"(declare-hash-based-module!41.1 ns12_1 #f #f temp13_3 #t #f #f #f #f temp10_6 place-struct-primitives11_0))" -"(let-values(((temp14_8) '#%boot)((boot-primitives15_0) boot-primitives)((ns16_1) ns))" -"(declare-hash-based-module!41.1 ns16_1 #f #f #f #f #f #f #f #f temp14_8 boot-primitives15_0))" +"(declare-hash-based-module!41.1 ns12_1 #f #f temp13_3 #t #f #f #f #f temp10_8 place-struct-primitives11_0))" +"(let-values(((temp14_10) '#%boot)((boot-primitives15_0) boot-primitives)((ns16_1) ns))" +"(declare-hash-based-module!41.1 ns16_1 #f #f #f #f #f #f #f #f temp14_10 boot-primitives15_0))" "(let-values(((linklet-primitives_0)" "(hash-remove(hash-remove linklet-primitives 'variable-reference?) 'variable-reference-constant?)))" -"(let-values(((temp17_4) '#%linklet)" +"(let-values(((temp17_5) '#%linklet)" "((linklet-primitives18_0) linklet-primitives_0)" -"((ns19_1) ns)" +"((ns19_2) ns)" "((temp20_5) #t)" "((temp21_2) #t))" -"(declare-hash-based-module!41.1 ns19_1 temp20_5 #t #f #f #f #f temp21_2 #t temp17_4 linklet-primitives18_0)))" +"(declare-hash-based-module!41.1 ns19_2 temp20_5 #t #f #f #f #f temp21_2 #t temp17_5 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 #f #f #f temp25_9 #t #f #f temp22_6 expobs-primitives23_0))" -"(let-values(((eval27_0) 1/eval)" -"((temp28_6)" -"(let-values(((ht_67) main-primitives))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-in-hash-keys ht_67)))" -"((letrec-values(((for-loop_78)" -"(lambda(table_218 i_81)" -"(begin" -" 'for-loop" -"(if i_81" -"(let-values(((name_83)(hash-iterate-key ht_67 i_81)))" -"(let-values(((table_105)" -"(let-values(((table_219) table_218))" -"(let-values(((table_220)" -"(let-values()" -"(let-values(((key_67 val_88)" -"(let-values()" -"(values" -"(let-values() name_83)" -" #t))))" -"(hash-set table_219 key_67 val_88)))))" -"(values table_220)))))" -"(if(not #f)" -"(for-loop_78 table_105(hash-iterate-next ht_67 i_81))" -" table_105)))" -" table_218)))))" -" for-loop_78)" -" '#hash()" -"(hash-iterate-first ht_67)))))" -"((temp29_4)" -"(let-values(((ht_166) read-primitives))" +"(let-values(((ns26_3) ns)" +"((eval27_0) 1/eval)" +"((temp28_7)" +"(let-values(((ht_166) main-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_166)))" -"((letrec-values(((for-loop_268)" -"(lambda(table_204 i_36)" +"((letrec-values(((for-loop_20)" +"(lambda(table_217 i_3)" "(begin" " 'for-loop" -"(if i_36" -"(let-values(((name_84)(hash-iterate-key ht_166 i_36)))" -"(let-values(((table_221)" -"(let-values(((table_178) table_204))" -"(let-values(((table_98)" +"(if i_3" +"(let-values(((name_81)(hash-iterate-key ht_166 i_3)))" +"(let-values(((table_206)" +"(let-values(((table_218) table_217))" +"(let-values(((table_178)" "(let-values()" -"(let-values(((key_95 val_89)" +"(let-values(((key_93 val_84)" "(let-values()" "(values" -"(let-values() name_84)" +"(let-values() name_81)" " #t))))" -"(hash-set table_178 key_95 val_89)))))" -"(values table_98)))))" +"(hash-set table_218 key_93 val_84)))))" +"(values table_178)))))" "(if(not #f)" -"(for-loop_268 table_221(hash-iterate-next ht_166 i_36))" -" table_221)))" -" table_204)))))" -" for-loop_268)" +"(for-loop_20 table_206(hash-iterate-next ht_166 i_3))" +" table_206)))" +" table_217)))))" +" for-loop_20)" " '#hash()" -"(hash-iterate-first ht_166))))))" -"(declare-kernel-module!8.1 eval27_0 temp28_6 temp29_4 ns))" +"(hash-iterate-first ht_166)))))" +"((temp29_4)" +"(let-values(((ht_167) read-primitives))" "(begin" -"(let-values(((lst_268) runtime-instances))" -"(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_268)))" -"((letrec-values(((for-loop_329)" -"(lambda(lst_54)" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +"(let-values()(check-in-hash-keys ht_167)))" +"((letrec-values(((for-loop_320)" +"(lambda(table_180 i_183)" "(begin" " 'for-loop" -"(if(pair? lst_54)" -"(let-values(((name_85)(unsafe-car lst_54))((rest_169)(unsafe-cdr lst_54)))" +"(if i_183" +"(let-values(((name_82)(hash-iterate-key ht_167 i_183)))" +"(let-values(((table_219)" +"(let-values(((table_99) table_180))" +"(let-values(((table_100)" +"(let-values()" +"(let-values(((key_94 val_85)" +"(let-values()" +"(values" +"(let-values() name_82)" +" #t))))" +"(hash-set table_99 key_94 val_85)))))" +"(values table_100)))))" +"(if(not #f)" +"(for-loop_320 table_219(hash-iterate-next ht_167 i_183))" +" table_219)))" +" table_180)))))" +" for-loop_320)" +" '#hash()" +"(hash-iterate-first ht_167))))))" +"(declare-kernel-module!8.1 eval27_0 temp28_7 temp29_4 ns26_3))" +"(begin" +"(let-values(((lst_17) 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)" +"(begin" +" 'for-loop" +"(if(pair? lst_20)" +"(let-values(((name_83)(unsafe-car lst_20))((rest_6)(unsafe-cdr lst_20)))" "(let-values((()" "(let-values()" -"(if(eq? name_85 '#%kernel)" +"(if(eq? name_83 '#%kernel)" "(values)" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((ns31_4) ns)" -"((temp32_1)" -"(let-values(((or-part_59)" +"(let-values(((name30_0) name_83)" +"((ns31_5) ns)" +"((temp32_6)" +"(let-values(((or-part_290)" "(eq?" -" name_85" +" name_83" " '#%foreign)))" -"(if or-part_59" -" or-part_59" -"(let-values(((or-part_27)" +"(if or-part_290" +" or-part_290" +"(let-values(((or-part_95)" "(eq?" -" name_85" +" name_83" " '#%futures)))" -"(if or-part_27" -" or-part_27" +"(if or-part_95" +" or-part_95" "(eq?" -" name_85" +" name_83" " '#%unsafe)))))))" "(copy-runtime-module!26.1" " #f" " #f" " #f" " #f" -" ns31_4" +" ns31_5" " #f" " #f" -" temp32_1" +" temp32_6" " #t" " #f" " #f" " #f" " #f" -" name_85)))" +" name30_0)))" "(values)))))" "(values)))))))" -"(if(not #f)(for-loop_329 rest_169)(values))))" +"(if(not #f)(for-loop_10 rest_6)(values))))" "(values))))))" -" for-loop_329)" -" lst_268)))" +" for-loop_10)" +" lst_17)))" "(void))" "(let-values(((temp33_5) '#%builtin)" "((temp34_4)(list* '#%place-struct '#%utils '#%boot '#%expobs '#%linklet runtime-instances))" "((ns35_1) ns)" -"((temp36_8) #f))" -"(declare-reexporting-module!50.1 ns35_1 temp36_8 #t temp33_5 temp34_4))" +"((temp36_9) #f))" +"(declare-reexporting-module!50.1 ns35_1 temp36_9 #t temp33_5 temp34_4))" "(1/current-namespace ns)" "(1/dynamic-require ''#%kernel 0)))" -"(define-values(datum->kernel-syntax)(lambda(s_472)(begin(1/datum->syntax core-stx s_472)))))" +"(define-values(datum->kernel-syntax)(lambda(s_876)(begin(1/datum->syntax core-stx s_876)))))" ;