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)))))" ;