From f138469464927a4b82f796fa3c00b03d53b2f743 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 19 Mar 2018 10:11:48 -0600 Subject: [PATCH] reverse and map: skip checks in unsafe mode Since only the expander is compiled in unsafe mode right now, the checks are skipped only when the implementations of `reverse`, `map`, etc., are part of the flattened expander. --- racket/collects/racket/private/map.rkt | 96 +- racket/collects/racket/private/reverse.rkt | 6 +- racket/src/expander/expand/free-id-set.rkt | 2 +- racket/src/expander/expand/main.rkt | 27 +- racket/src/expander/syntax/syntax.rkt | 4 + racket/src/racket/src/startup.inc | 18561 ++++++++++--------- 6 files changed, 9375 insertions(+), 9321 deletions(-) diff --git a/racket/collects/racket/private/map.rkt b/racket/collects/racket/private/map.rkt index 0f40f37f76..39d68a9e8c 100644 --- a/racket/collects/racket/private/map.rkt +++ b/racket/collects/racket/private/map.rkt @@ -5,13 +5,26 @@ (module map '#%kernel (#%require "small-scheme.rkt" "define.rkt" "performance-hint.rkt" - '#%paramz) + '#%paramz + (for-syntax '#%kernel)) (#%provide (rename map2 map) (rename for-each2 for-each) (rename andmap2 andmap) (rename ormap2 ormap)) - + + (define-syntaxes (or-unsafe) + (lambda (stx) + (let-values ([(es) (cdr (syntax-e stx))]) + (let-values ([(e) (car (if (syntax? es) + (syntax-e es) + es))]) + (datum->syntax #f + (list (quote-syntax if) + (quote-syntax (variable-reference-from-unsafe? (#%variable-reference))) + (quote-syntax #t) + e)))))) + ;; ------------------------------------------------------------------------- (begin-encourage-inline @@ -20,9 +33,9 @@ (let ([map (case-lambda [(f l) - (if (and (procedure? f) - (procedure-arity-includes? f 1) - (list? l)) + (if (or-unsafe (and (procedure? f) + (procedure-arity-includes? f 1) + (list? l))) (let loop ([l l]) (cond [(null? l) null] @@ -31,11 +44,12 @@ (cons (f (car l)) (loop r)))])) (gen-map f (list l)))] [(f l1 l2) - (if (and (procedure? f) - (procedure-arity-includes? f 2) - (list? l1) - (list? l2) - (= (length l1) (length l2))) + (if (or-unsafe + (and (procedure? f) + (procedure-arity-includes? f 2) + (list? l1) + (list? l2) + (= (length l1) (length l2)))) (let loop ([l1 l1] [l2 l2]) (cond [(null? l1) null] @@ -52,9 +66,10 @@ (let ([for-each (case-lambda [(f l) - (if (and (procedure? f) - (procedure-arity-includes? f 1) - (list? l)) + (if (or-unsafe + (and (procedure? f) + (procedure-arity-includes? f 1) + (list? l))) (let loop ([l l]) (cond [(null? l) (void)] @@ -63,11 +78,12 @@ (begin (f (car l)) (loop r)))])) (gen-for-each f (list l)))] [(f l1 l2) - (if (and (procedure? f) - (procedure-arity-includes? f 2) - (list? l1) - (list? l2) - (= (length l1) (length l2))) + (if (or-unsafe + (and (procedure? f) + (procedure-arity-includes? f 2) + (list? l1) + (list? l2) + (= (length l1) (length l2)))) (let loop ([l1 l1] [l2 l2]) (cond [(null? l1) (void)] @@ -84,9 +100,10 @@ (let ([andmap (case-lambda [(f l) - (if (and (procedure? f) - (procedure-arity-includes? f 1) - (list? l)) + (if (or-unsafe + (and (procedure? f) + (procedure-arity-includes? f 1) + (list? l))) (if (null? l) #t (let loop ([l l]) @@ -98,11 +115,12 @@ (loop r)))]))) (gen-andmap f (list l)))] [(f l1 l2) - (if (and (procedure? f) - (procedure-arity-includes? f 2) - (list? l1) - (list? l2) - (= (length l1) (length l2))) + (if (or-unsafe + (and (procedure? f) + (procedure-arity-includes? f 2) + (list? l1) + (list? l2) + (= (length l1) (length l2)))) (if (null? l1) #t (let loop ([l1 l1] [l2 l2]) @@ -121,9 +139,10 @@ (let ([ormap (case-lambda [(f l) - (if (and (procedure? f) - (procedure-arity-includes? f 1) - (list? l)) + (if (or-unsafe + (and (procedure? f) + (procedure-arity-includes? f 1) + (list? l))) (if (null? l) #f (let loop ([l l]) @@ -134,11 +153,12 @@ (or (f (car l)) (loop r)))]))) (gen-ormap f (list l)))] [(f l1 l2) - (if (and (procedure? f) - (procedure-arity-includes? f 2) - (list? l1) - (list? l2) - (= (length l1) (length l2))) + (if (or-unsafe + (and (procedure? f) + (procedure-arity-includes? f 2) + (list? l1) + (list? l2) + (= (length l1) (length l2)))) (if (null? l1) #f (let loop ([l1 l1] [l2 l2]) @@ -209,7 +229,7 @@ null)))))) (define (gen-map f ls) - (check-args 'map f ls) + (or-unsafe (check-args 'map f ls)) (let loop ([ls ls]) (cond [(null? (car ls)) null] @@ -219,7 +239,7 @@ (loop next-ls)))]))) (define (gen-for-each f ls) - (check-args 'for-each f ls) + (or-unsafe (check-args 'for-each f ls)) (let loop ([ls ls]) (unless (null? (car ls)) (let ([next-ls (map2 cdr ls)]) @@ -227,7 +247,7 @@ (loop next-ls))))) (define (gen-andmap f ls) - (check-args 'andmap f ls) + (or-unsafe (check-args 'andmap f ls)) (let loop ([ls ls]) (cond [(null? (car ls)) #t] @@ -237,7 +257,7 @@ (loop next-ls)))]))) (define (gen-ormap f ls) - (check-args 'ormap f ls) + (or-unsafe (check-args 'ormap f ls)) (let loop ([ls ls]) (cond [(null? (car ls)) #f] diff --git a/racket/collects/racket/private/reverse.rkt b/racket/collects/racket/private/reverse.rkt index 40ef640924..6fc6c52dd2 100644 --- a/racket/collects/racket/private/reverse.rkt +++ b/racket/collects/racket/private/reverse.rkt @@ -3,9 +3,11 @@ (define-values (reverse) (lambda (l) - (if (list? l) + (if (variable-reference-from-unsafe? (#%variable-reference)) (void) - (raise-argument-error 'reverse "list?" l)) + (if (list? l) + (void) + (raise-argument-error 'reverse "list?" l))) (letrec-values ([(loop) (lambda (a l) (if (null? l) diff --git a/racket/src/expander/expand/free-id-set.rkt b/racket/src/expander/expand/free-id-set.rkt index 6be6eb3627..3f5df0faba 100644 --- a/racket/src/expander/expand/free-id-set.rkt +++ b/racket/src/expander/expand/free-id-set.rkt @@ -22,7 +22,7 @@ (eq? fs empty-free-id-set)) (define (free-id-set-member? fs phase given-id) - (if (zero? (hash-count fs)) + (if (free-id-set-empty? fs) #f (for/or ([id (in-list-ish (hash-ref fs (identifier-binding-symbol given-id phase) diff --git a/racket/src/expander/expand/main.rkt b/racket/src/expander/expand/main.rkt index 553ba7fc0a..3ad24683d7 100644 --- a/racket/src/expander/expand/main.rkt +++ b/racket/src/expander/expand/main.rkt @@ -72,10 +72,10 @@ #:skip-log? [skip-log? #f]) (log-expand* ctx #:unless skip-log? [(if (expand-context-only-immediate? ctx) 'enter-check 'visit) s]) (cond - [(identifier? s) + [(syntax-identifier? s) (expand-identifier s ctx alternate-id)] [(and (pair? (syntax-content s)) - (identifier? (car (syntax-content s)))) + (syntax-identifier? (car (syntax-content s)))) (expand-id-application-form s ctx alternate-id)] [(or (pair? (syntax-content s)) (null? (syntax-content s))) @@ -369,7 +369,7 @@ ;; any expansion result (define post-s (maybe-add-post-expansion-scope result-s ctx)) ;; Track expansion: - (define tracked-s (syntax-track-origin post-s cleaned-s (or origin-id (if (identifier? s) s (car (syntax-e s)))))) + (define tracked-s (syntax-track-origin post-s cleaned-s (or origin-id (if (syntax-identifier? s) s (car (syntax-e s)))))) (define rearmed-s (taint-dispatch tracked-s (lambda (t-s) (syntax-rearm t-s s)) (expand-context-phase ctx))) (log-expand ctx 'exit-macro rearmed-s) (values rearmed-s @@ -476,19 +476,20 @@ (define-syntax-rule (guard-stop id ctx s otherwise ...) (cond - [(free-id-set-member? (expand-context-stops ctx) - (expand-context-phase ctx) - id) - (log-expand* ctx #:unless (expand-context-only-immediate? ctx) - ['resolve id] ['enter-prim s] ['prim-stop] ['exit-prim s] ['return s]) - s] - [else - otherwise ...])) + [(and (not (free-id-set-empty? (expand-context-stops ctx))) + (free-id-set-member? (expand-context-stops ctx) + (expand-context-phase ctx) + id)) + (log-expand* ctx #:unless (expand-context-only-immediate? ctx) + ['resolve id] ['enter-prim s] ['prim-stop] ['exit-prim s] ['return s]) + s] + [else + otherwise ...])) (define (substitute-alternate-id s alternate-id) (cond [(not alternate-id) s] - [(identifier? s) (syntax-rearm (syntax-track-origin alternate-id s) s)] + [(syntax-identifier? s) (syntax-rearm (syntax-track-origin alternate-id s) s)] [else (define disarmed-s (syntax-disarm s)) (syntax-rearm (syntax-track-origin (datum->syntax @@ -686,7 +687,7 @@ (define d (syntax-e s)) (define keep-e (cond [(symbol? d) d] - [(and (pair? d) (identifier? (car d))) (syntax-e (car d))] + [(and (pair? d) (syntax-identifier? (car d))) (syntax-e (car d))] [else #f])) (cond [(expand-context-to-parsed? ctx) diff --git a/racket/src/expander/syntax/syntax.rkt b/racket/src/expander/syntax/syntax.rkt index 36a130c436..88f7a940f7 100644 --- a/racket/src/expander/syntax/syntax.rkt +++ b/racket/src/expander/syntax/syntax.rkt @@ -12,6 +12,7 @@ syntax-tamper empty-syntax identifier? + syntax-identifier? syntax->datum datum->syntax @@ -177,6 +178,9 @@ (define (identifier? s) (and (syntax? s) (symbol? (syntax-content s)))) +(define (syntax-identifier? s) ; assumes that `s` is syntax + (symbol? (syntax-content s))) + (define (syntax->datum s) (syntax-map s (lambda (tail? x) x) (lambda (s d) d) syntax-content)) diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index ccd47fb8d0..83482dd784 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -620,7 +620,9 @@ static const char *startup_source = "(begin" " 'reverse" "(begin" -" (if (list? l_3) (void) (raise-argument-error 'reverse \"list?\" l_3))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" +" (if (list? l_3) (void) (raise-argument-error 'reverse \"list?\" l_3)))" "(letrec-values(((loop_8)" "(lambda(a_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))))))" @@ -1932,25 +1934,29 @@ static const char *startup_source = "((f_0 l_6)" "(begin" " 'map" -"(if(if(procedure? f_0)(if(procedure-arity-includes? f_0 1)(list? l_6) #f) #f)" +"(if(if(variable-reference-from-unsafe?(#%variable-reference))" +" #t" +"(if(procedure? f_0)(if(procedure-arity-includes? f_0 1)(list? l_6) #f) #f))" "((letrec-values(((loop_33)" -"(lambda(l_2)" +"(lambda(l_7)" "(begin" " 'loop" -"(if(null? l_2)" +"(if(null? l_7)" "(let-values() null)" "(let-values()" -"(let-values(((r_4)(cdr l_2)))" -"(cons(f_0(car l_2))(loop_33 r_4)))))))))" +"(let-values(((r_4)(cdr l_7)))" +"(cons(f_0(car l_7))(loop_33 r_4)))))))))" " loop_33)" " l_6)" "(gen-map f_0(list l_6)))))" "((f_1 l1_0 l2_0)" -"(if(if(procedure? f_1)" +"(if(if(variable-reference-from-unsafe?(#%variable-reference))" +" #t" +"(if(procedure? f_1)" "(if(procedure-arity-includes? f_1 2)" "(if(list? l1_0)(if(list? l2_0)(=(length l1_0)(length l2_0)) #f) #f)" " #f)" -" #f)" +" #f))" "((letrec-values(((loop_34)" "(lambda(l1_1 l2_1)" "(begin" @@ -1964,34 +1970,38 @@ static const char *startup_source = " 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))))))" +"((f_2 l_8 . args_0)(gen-map f_2(cons l_8 args_0))))))" " map_0))" "(define-values" "(for-each2)" "(let-values(((for-each_0)" "(case-lambda" -"((f_3 l_8)" +"((f_3 l_9)" "(begin" " 'for-each" -"(if(if(procedure? f_3)(if(procedure-arity-includes? f_3 1)(list? l_8) #f) #f)" +"(if(if(variable-reference-from-unsafe?(#%variable-reference))" +" #t" +"(if(procedure? f_3)(if(procedure-arity-includes? f_3 1)(list? l_9) #f) #f))" "((letrec-values(((loop_35)" -"(lambda(l_9)" +"(lambda(l_10)" "(begin" " 'loop" -"(if(null? l_9)" +"(if(null? l_10)" "(let-values()(void))" "(let-values()" -"(let-values(((r_5)(cdr l_9)))" -"(begin(f_3(car l_9))(loop_35 r_5)))))))))" +"(let-values(((r_5)(cdr l_10)))" +"(begin(f_3(car l_10))(loop_35 r_5)))))))))" " loop_35)" -" l_8)" -"(gen-for-each f_3(list l_8)))))" +" l_9)" +"(gen-for-each f_3(list l_9)))))" "((f_4 l1_2 l2_2)" -"(if(if(procedure? f_4)" +"(if(if(variable-reference-from-unsafe?(#%variable-reference))" +" #t" +"(if(procedure? f_4)" "(if(procedure-arity-includes? f_4 2)" "(if(list? l1_2)(if(list? l2_2)(=(length l1_2)(length l2_2)) #f) #f)" " #f)" -" #f)" +" #f))" "((letrec-values(((loop_36)" "(lambda(l1_3 l2_3)" "(begin" @@ -2005,36 +2015,40 @@ static const char *startup_source = " 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))))))" +"((f_5 l_11 . args_1)(gen-for-each f_5(cons l_11 args_1))))))" " for-each_0))" "(define-values" "(andmap2)" "(let-values(((andmap_0)" "(case-lambda" -"((f_6 l_11)" +"((f_6 l_12)" "(begin" " 'andmap" -"(if(if(procedure? f_6)(if(procedure-arity-includes? f_6 1)(list? l_11) #f) #f)" -"(if(null? l_11)" +"(if(if(variable-reference-from-unsafe?(#%variable-reference))" +" #t" +"(if(procedure? f_6)(if(procedure-arity-includes? f_6 1)(list? l_12) #f) #f))" +"(if(null? l_12)" " #t" "((letrec-values(((loop_37)" -"(lambda(l_12)" +"(lambda(l_13)" "(begin" " 'loop" -"(if(null?(cdr l_12))" -"(let-values()(f_6(car l_12)))" +"(if(null?(cdr l_13))" +"(let-values()(f_6(car l_13)))" "(let-values()" -"(let-values(((r_6)(cdr l_12)))" -"(if(f_6(car l_12))(loop_37 r_6) #f))))))))" +"(let-values(((r_6)(cdr l_13)))" +"(if(f_6(car l_13))(loop_37 r_6) #f))))))))" " loop_37)" -" l_11))" -"(gen-andmap f_6(list l_11)))))" +" l_12))" +"(gen-andmap f_6(list l_12)))))" "((f_7 l1_4 l2_4)" -"(if(if(procedure? f_7)" +"(if(if(variable-reference-from-unsafe?(#%variable-reference))" +" #t" +"(if(procedure? f_7)" "(if(procedure-arity-includes? f_7 2)" "(if(list? l1_4)(if(list? l2_4)(=(length l1_4)(length l2_4)) #f) #f)" " #f)" -" #f)" +" #f))" "(if(null? l1_4)" " #t" "((letrec-values(((loop_38)" @@ -2050,37 +2064,41 @@ static const char *startup_source = " 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))))))" +"((f_8 l_14 . args_2)(gen-andmap f_8(cons l_14 args_2))))))" " andmap_0))" "(define-values" "(ormap2)" "(let-values(((ormap_0)" "(case-lambda" -"((f_9 l_14)" +"((f_9 l_15)" "(begin" " 'ormap" -"(if(if(procedure? f_9)(if(procedure-arity-includes? f_9 1)(list? l_14) #f) #f)" -"(if(null? l_14)" +"(if(if(variable-reference-from-unsafe?(#%variable-reference))" +" #t" +"(if(procedure? f_9)(if(procedure-arity-includes? f_9 1)(list? l_15) #f) #f))" +"(if(null? l_15)" " #f" "((letrec-values(((loop_39)" -"(lambda(l_15)" +"(lambda(l_16)" "(begin" " 'loop" -"(if(null?(cdr l_15))" -"(let-values()(f_9(car l_15)))" +"(if(null?(cdr l_16))" +"(let-values()(f_9(car l_16)))" "(let-values()" -"(let-values(((r_7)(cdr l_15)))" -"(let-values(((or-part_21)(f_9(car l_15))))" +"(let-values(((r_7)(cdr l_16)))" +"(let-values(((or-part_21)(f_9(car l_16))))" "(if or-part_21 or-part_21(loop_39 r_7))))))))))" " loop_39)" -" l_14))" -"(gen-ormap f_9(list l_14)))))" +" l_15))" +"(gen-ormap f_9(list l_15)))))" "((f_10 l1_6 l2_6)" -"(if(if(procedure? f_10)" +"(if(if(variable-reference-from-unsafe?(#%variable-reference))" +" #t" +"(if(procedure? f_10)" "(if(procedure-arity-includes? f_10 2)" "(if(list? l1_6)(if(list? l2_6)(=(length l1_6)(length l2_6)) #f) #f)" " #f)" -" #f)" +" #f))" "(if(null? l1_6)" " #f" "((letrec-values(((loop_40)" @@ -2097,7 +2115,7 @@ static const char *startup_source = " 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))))))" +"((f_11 l_17 . args_3)(gen-ormap f_11(cons l_17 args_3))))))" " ormap_0))" "(define-values" "(check-args)" @@ -2112,10 +2130,10 @@ static const char *startup_source = "(if(null? ls_5)" "(void)" "(let-values()" -"(let-values(((l_17)(car ls_5)))" +"(let-values(((l_18)(car ls_5)))" "(begin" -" (if (list? l_17) (void) (let-values () (raise-argument-error who_5 \"list?\" l_17)))" -"(let-values(((len_2)(length l_17)))" +" (if (list? l_18) (void) (let-values () (raise-argument-error who_5 \"list?\" l_18)))" +"(let-values(((len_2)(length l_18)))" "(begin" "(if(if prev-len_0(not(= len_2 prev-len_0)) #f)" "(let-values()" @@ -2186,7 +2204,7 @@ static const char *startup_source = "(lambda(f_13 ls_7)" "(begin" "(begin" -"(check-args 'map f_13 ls_7)" +"(if(variable-reference-from-unsafe?(#%variable-reference)) #t(check-args 'map f_13 ls_7))" "((letrec-values(((loop_43)" "(lambda(ls_8)" "(begin" @@ -2203,7 +2221,7 @@ static const char *startup_source = "(lambda(f_14 ls_9)" "(begin" "(begin" -"(check-args 'for-each f_14 ls_9)" +"(if(variable-reference-from-unsafe?(#%variable-reference)) #t(check-args 'for-each f_14 ls_9))" "((letrec-values(((loop_44)" "(lambda(ls_10)" "(begin" @@ -2220,7 +2238,7 @@ static const char *startup_source = "(lambda(f_15 ls_11)" "(begin" "(begin" -"(check-args 'andmap f_15 ls_11)" +"(if(variable-reference-from-unsafe?(#%variable-reference)) #t(check-args 'andmap f_15 ls_11))" "((letrec-values(((loop_45)" "(lambda(ls_12)" "(begin" @@ -2239,7 +2257,7 @@ static const char *startup_source = "(lambda(f_16 ls_13)" "(begin" "(begin" -"(check-args 'ormap f_16 ls_13)" +"(if(variable-reference-from-unsafe?(#%variable-reference)) #t(check-args 'ormap f_16 ls_13))" "((letrec-values(((loop_46)" "(lambda(ls_14)" "(begin" @@ -2297,198 +2315,198 @@ static const char *startup_source = "(let-values()" "(let-values()" "(let-values(((assq_0)" -"(lambda(x_9 l_18)" +"(lambda(x_9 l_19)" "(begin" " 'assq" -"((letrec-values(((loop_46)" -"(lambda(l_19 t_0)" +"((letrec-values(((loop_47)" +"(lambda(l_20 t_0)" "(begin" " 'loop" -"(if(pair? l_19)" +"(if(pair? l_20)" "(let-values()" -"(let-values(((a_0)(unsafe-car l_19)))" +"(let-values(((a_0)(unsafe-car l_20)))" "(if(pair? a_0)" "(if(eq? x_9(unsafe-car a_0))" " a_0" -"(let-values(((l_20)(unsafe-cdr l_19)))" -"(if(pair? l_20)" +"(let-values(((l_21)(unsafe-cdr l_20)))" +"(if(pair? l_21)" "(let-values()" -"(let-values(((a_11)(unsafe-car l_20)))" +"(let-values(((a_11)(unsafe-car l_21)))" "(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_46 l_21 t_1))))" -"(bad-item 'assq a_11 l_18))))" +"((l_22)(unsafe-cdr l_21)))" +"(if(eq? l_22 t_1)" +"(bad-list 'assq l_19)" +"(loop_47 l_22 t_1))))" +"(bad-item 'assq a_11 l_19))))" +"(if(null? l_21)" +"(let-values() #f)" +"(let-values()(bad-list 'assq l_19))))))" +"(bad-item 'assq a_0 l_19))))" "(if(null? l_20)" "(let-values() #f)" -"(let-values()(bad-list 'assq l_18))))))" -"(bad-item 'assq a_0 l_18))))" -"(if(null? l_19)" -"(let-values() #f)" -"(let-values()(bad-list 'assq l_18))))))))" -" loop_46)" -" l_18" -" l_18))))" +"(let-values()(bad-list 'assq l_19))))))))" +" loop_47)" +" l_19" +" l_19))))" "((assv_0)" -"(lambda(x_10 l_22)" +"(lambda(x_10 l_23)" "(begin" " 'assv" -"((letrec-values(((loop_47)" -"(lambda(l_23 t_2)" +"((letrec-values(((loop_48)" +"(lambda(l_24 t_2)" "(begin" " 'loop" -"(if(pair? l_23)" +"(if(pair? l_24)" "(let-values()" -"(let-values(((a_12)(unsafe-car l_23)))" +"(let-values(((a_12)(unsafe-car l_24)))" "(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(((l_25)(unsafe-cdr l_24)))" +"(if(pair? l_25)" "(let-values()" -"(let-values(((a_13)(unsafe-car l_24)))" +"(let-values(((a_13)(unsafe-car l_25)))" "(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_47 l_25 t_3))))" -"(bad-item 'assv a_13 l_22))))" +"((l_26)(unsafe-cdr l_25)))" +"(if(eq? l_26 t_3)" +"(bad-list 'assv l_23)" +"(loop_48 l_26 t_3))))" +"(bad-item 'assv a_13 l_23))))" +"(if(null? l_25)" +"(let-values() #f)" +"(let-values()(bad-list 'assv l_23))))))" +"(bad-item 'assv a_12 l_23))))" "(if(null? l_24)" "(let-values() #f)" -"(let-values()(bad-list 'assv l_22))))))" -"(bad-item 'assv a_12 l_22))))" -"(if(null? l_23)" -"(let-values() #f)" -"(let-values()(bad-list 'assv l_22))))))))" -" loop_47)" -" l_22" -" l_22))))" +"(let-values()(bad-list 'assv l_23))))))))" +" loop_48)" +" l_23" +" l_23))))" "((assoc_0)" "(case-lambda" -"((x_11 l_26)" +"((x_11 l_27)" "(begin" " 'assoc" -"((letrec-values(((loop_48)" -"(lambda(l_27 t_4)" +"((letrec-values(((loop_49)" +"(lambda(l_28 t_4)" "(begin" " 'loop" -"(if(pair? l_27)" +"(if(pair? l_28)" "(let-values()" -"(let-values(((a_14)(unsafe-car l_27)))" +"(let-values(((a_14)(unsafe-car l_28)))" "(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(((l_29)(unsafe-cdr l_28)))" +"(if(pair? l_29)" "(let-values()" -"(let-values(((a_15)(unsafe-car l_28)))" +"(let-values(((a_15)(unsafe-car l_29)))" "(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_48 l_29 t_5))))" -"(bad-item 'assoc a_15 l_26))))" +"((l_30)(unsafe-cdr l_29)))" +"(if(eq? l_30 t_5)" +"(bad-list 'assoc l_27)" +"(loop_49 l_30 t_5))))" +"(bad-item 'assoc a_15 l_27))))" +"(if(null? l_29)" +"(let-values() #f)" +"(let-values()(bad-list 'assoc l_27))))))" +"(bad-item 'assoc a_14 l_27))))" "(if(null? l_28)" "(let-values() #f)" -"(let-values()(bad-list 'assoc l_26))))))" -"(bad-item 'assoc a_14 l_26))))" -"(if(null? l_27)" -"(let-values() #f)" -"(let-values()(bad-list 'assoc l_26))))))))" -" loop_48)" -" l_26" -" l_26)))" -"((x_12 l_30 is-equal?_0)" +"(let-values()(bad-list 'assoc l_27))))))))" +" loop_49)" +" l_27" +" l_27)))" +"((x_12 l_31 is-equal?_0)" "(begin" "(if(if(procedure? is-equal?_0)(procedure-arity-includes? is-equal?_0 2) #f)" "(void)" " (let-values () (raise-argument-error 'assoc \"(any/c any/c . -> . any/c)\" is-equal?_0)))" -"((letrec-values(((loop_49)" -"(lambda(l_31 t_6)" +"((letrec-values(((loop_50)" +"(lambda(l_32 t_6)" "(begin" " 'loop" -"(if(pair? l_31)" +"(if(pair? l_32)" "(let-values()" -"(let-values(((a_16)(unsafe-car l_31)))" +"(let-values(((a_16)(unsafe-car l_32)))" "(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(((l_33)(unsafe-cdr l_32)))" +"(if(pair? l_33)" "(let-values()" -"(let-values(((a_17)(unsafe-car l_32)))" +"(let-values(((a_17)(unsafe-car l_33)))" "(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_49 l_33 t_7))))" -"(bad-item 'assoc a_17 l_30))))" +"((l_34)(unsafe-cdr l_33)))" +"(if(eq? l_34 t_7)" +"(bad-list 'assoc l_31)" +"(loop_50 l_34 t_7))))" +"(bad-item 'assoc a_17 l_31))))" +"(if(null? l_33)" +"(let-values() #f)" +"(let-values()(bad-list 'assoc l_31))))))" +"(bad-item 'assoc a_16 l_31))))" "(if(null? l_32)" "(let-values() #f)" -"(let-values()(bad-list 'assoc l_30))))))" -"(bad-item 'assoc a_16 l_30))))" -"(if(null? l_31)" -"(let-values() #f)" -"(let-values()(bad-list 'assoc l_30))))))))" -" loop_49)" -" l_30" -" l_30)))))" +"(let-values()(bad-list 'assoc l_31))))))))" +" loop_50)" +" l_31" +" l_31)))))" "((assf_0)" -"(lambda(f_17 l_34)" +"(lambda(f_17 l_35)" "(begin" " 'assf" "(begin" "(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_50)" -"(lambda(l_35 t_8)" +"((letrec-values(((loop_51)" +"(lambda(l_36 t_8)" "(begin" " 'loop" -"(if(pair? l_35)" +"(if(pair? l_36)" "(let-values()" -"(let-values(((a_18)(unsafe-car l_35)))" +"(let-values(((a_18)(unsafe-car l_36)))" "(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(((l_37)(unsafe-cdr l_36)))" +"(if(pair? l_37)" "(let-values()" -"(let-values(((a_20)(unsafe-car l_36)))" +"(let-values(((a_20)(unsafe-car l_37)))" "(if(pair? a_20)" "(if((lambda(__1 a_21)(f_17 a_21))" " #f" "(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_50 l_37 t_9))))" -"(bad-item 'assf a_20 l_34))))" +"((l_38)(unsafe-cdr l_37)))" +"(if(eq? l_38 t_9)" +"(bad-list 'assf l_35)" +"(loop_51 l_38 t_9))))" +"(bad-item 'assf a_20 l_35))))" +"(if(null? l_37)" +"(let-values() #f)" +"(let-values()(bad-list 'assf l_35))))))" +"(bad-item 'assf a_18 l_35))))" "(if(null? l_36)" "(let-values() #f)" -"(let-values()(bad-list 'assf l_34))))))" -"(bad-item 'assf a_18 l_34))))" -"(if(null? l_35)" -"(let-values() #f)" -"(let-values()(bad-list 'assf l_34))))))))" -" loop_50)" -" l_34" -" l_34))))))" +"(let-values()(bad-list 'assf l_35))))))))" +" loop_51)" +" l_35" +" l_35))))))" "(values assq_0 assv_0 assoc_0 assf_0)))))" "(define-values" "(filter)" @@ -2499,14 +2517,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_51)" -"(lambda(l_38 result_0)" +"((letrec-values(((loop_52)" +"(lambda(l_39 result_0)" "(begin" " 'loop" -"(if(null? l_38)" +"(if(null? l_39)" "(reverse$1 result_0)" -"(loop_51(cdr l_38)(if(f_18(car l_38))(cons(car l_38) result_0) result_0)))))))" -" loop_51)" +"(loop_52(cdr l_39)(if(f_18(car l_39))(cons(car l_39) result_0) result_0)))))))" +" loop_52)" " list_0" " null)))))" "(define-values(no-empty-edge-table)(make-hash))" @@ -2576,8 +2594,8 @@ static const char *startup_source = "(set)" "(case-lambda" "(()(begin the-empty-hash))" -"(l_39" -"(let-values(((lst_7) l_39))" +"(l_40" +"(let-values(((lst_7) l_40))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_7)))" "((letrec-values(((for-loop_0)" @@ -2599,8 +2617,8 @@ static const char *startup_source = "(seteq)" "(case-lambda" "(()(begin the-empty-hasheq))" -"(l_40" -"(let-values(((lst_9) l_40))" +"(l_18" +"(let-values(((lst_9) l_18))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_9)))" "((letrec-values(((for-loop_1)" @@ -2937,7 +2955,7 @@ static const char *startup_source = "(begin" "(if(list? v_31)" "(if(pair?(cdr v_31))" -"((letrec-values(((loop_52)" +"((letrec-values(((loop_53)" "(lambda(v_32 first?_0)" "(begin" " 'loop" @@ -2949,10 +2967,10 @@ static const char *startup_source = "((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_52(cdr v_32) #f)" +"(loop_53(cdr v_32) #f)" " #f)" " #f)))))))" -" loop_52)" +" loop_53)" "(cdr v_31)" " #t)" " #f)" @@ -2994,9 +3012,9 @@ static const char *startup_source = "(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" +"(let-values(((or-part_32)(null?(cddr pkg_0))))" +"(if or-part_32" +" or-part_32" "(planet-version-minor-spec?(cadddr pkg_0))))))))" " #f)" " #f)" @@ -3050,9 +3068,9 @@ static const char *startup_source = "(planet-version-minor-spec?)" "(lambda(v_35)" "(begin" -"(let-values(((or-part_32)(planet-version-number? v_35)))" -"(if or-part_32" -" or-part_32" +"(let-values(((or-part_33)(planet-version-number? v_35)))" +"(if or-part_33" +" or-part_33" "(if(pair? v_35)" "(if(list? v_35)" "(if(= 2(length v_35))" @@ -3089,7 +3107,7 @@ static const char *startup_source = "(let-values(((start-package-version-pos_0 end-package-version-pos_0)" "(if for-planet?_0(check-planet-part v_36 len_3)(values 0 0))))" "(if start-package-version-pos_0" -"((letrec-values(((loop_53)" +"((letrec-values(((loop_43)" "(lambda(i_26 prev-was-slash?_0 saw-slash?_0 saw-dot?_0)" "(begin" " 'loop" @@ -3099,7 +3117,7 @@ static const char *startup_source = "(if(char=? c_6 '#\\/)" "(let-values()" "(if(not prev-was-slash?_0)" -"(loop_53(sub1 i_26) #t #t saw-dot?_0)" +"(loop_43(sub1 i_26) #t #t saw-dot?_0)" " #f))" "(if(char=? c_6 '#\\.)" "(let-values()" @@ -3111,33 +3129,33 @@ static const char *startup_source = " #f)" " #f)" "(if(not saw-slash?_0)" -"(loop_53(sub1 i_26) #f saw-slash?_0 #t)" +"(loop_43(sub1 i_26) #f saw-slash?_0 #t)" " #f)" -"(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" +"(loop_43(sub1 i_26) #f saw-slash?_0 saw-dot?_0)))" +"(if(let-values(((or-part_34)(plain-char? c_6)))" +"(if or-part_34" +" or-part_34" "(if(char=? c_6 '#\\%)" "(if(<(+ i_26 2) len_3)" "(hex-sequence? v_36(add1 i_26))" " #f)" " #f)))" "(let-values()" -"(loop_53(sub1 i_26) #f saw-slash?_0 saw-dot?_0))" +"(loop_43(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_53(sub1 i_26) #f saw-slash?_0 saw-dot?_0))" +"(loop_43(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_34) dots-dir-ok?_0))" -"(if or-part_34" -" or-part_34" +"(let-values(((or-part_35) dots-dir-ok?_0))" +"(if or-part_35" +" or-part_35" "((letrec-values(((loop_54)" "(lambda(i_27)" "(begin" @@ -3149,13 +3167,13 @@ static const char *startup_source = " '#\\.)" "(let-values()" "(if(not" -"(let-values(((or-part_35)" +"(let-values(((or-part_36)" "(=" " len_3" "(add1" " i_27))))" -"(if or-part_35" -" or-part_35" +"(if or-part_36" +" or-part_36" "(char=?" "(string-ref" " v_36" @@ -3167,14 +3185,14 @@ static const char *startup_source = " v_36" "(add1 i_27))" " '#\\.)" -"(let-values(((or-part_36)" +"(let-values(((or-part_37)" "(=" " len_3" "(+" " i_27" " 2))))" -"(if or-part_36" -" or-part_36" +"(if or-part_37" +" or-part_37" "(char=?" "(string-ref" " v_36" @@ -3182,7 +3200,7 @@ static const char *startup_source = " '#\\/)))" " #f))" "(loop_54" -"((letrec-values(((loop_46)" +"((letrec-values(((loop_47)" "(lambda(i_28)" "(begin" " 'loop" @@ -3191,11 +3209,11 @@ static const char *startup_source = "(string-ref" " v_36" " i_28))" -"(loop_46" +"(loop_47" "(add1" " i_28))" " i_28)))))" -" loop_46)" +" loop_47)" " i_27))" " #f)" " #f))" @@ -3204,7 +3222,7 @@ static const char *startup_source = " loop_54)" " 0)))" " #f)))))))" -" loop_53)" +" loop_43)" "(sub1 len_3)" " #f" "(not file-end-ok?_0)" @@ -3240,14 +3258,14 @@ static const char *startup_source = "(let-values(((result_9)" "(let-values()" "(let-values()" -"(let-values(((or-part_37)" -"(plain-char? c_7)))" -"(if or-part_37" -" or-part_37" "(let-values(((or-part_38)" -"(char=? '#\\. c_7)))" +"(plain-char? c_7)))" "(if or-part_38" " or-part_38" +"(let-values(((or-part_39)" +"(char=? '#\\. c_7)))" +"(if or-part_39" +" or-part_39" "(if(char=? '#\\% c_7)" "(if(< i_29(- len_4 2))" "(hex-sequence? v_37(add1 i_29))" @@ -3270,20 +3288,20 @@ static const char *startup_source = "(plain-char?)" "(lambda(c_8)" "(begin" -"(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)))" +"(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)))" +"(let-values(((or-part_41)(char<=? '#\\A c_8 '#\\Z)))" "(if or-part_41" " or-part_41" -"(let-values(((or-part_42)(char=? '#\\- c_8)))" +"(let-values(((or-part_42)(char<=? '#\\0 c_8 '#\\9)))" "(if or-part_42" " or-part_42" -"(let-values(((or-part_43)(char=? '#\\_ c_8)))" -"(if or-part_43 or-part_43(char=? '#\\+ c_8))))))))))))))" +"(let-values(((or-part_43)(char=? '#\\- c_8)))" +"(if or-part_43" +" or-part_43" +"(let-values(((or-part_44)(char=? '#\\_ c_8)))" +"(if or-part_44 or-part_44(char=? '#\\+ c_8))))))))))))))" "(define-values" "(hex-sequence?)" "(lambda(s_32 i_30)" @@ -3299,7 +3317,7 @@ static const char *startup_source = "(define-values" "(hex-char?)" "(lambda(c_10)" -"(begin(let-values(((or-part_44)(char<=? '#\\a c_10 '#\\f)))(if or-part_44 or-part_44(char<=? '#\\0 c_10 '#\\9))))))" +"(begin(let-values(((or-part_45)(char<=? '#\\a c_10 '#\\f)))(if or-part_45 or-part_45(char<=? '#\\0 c_10 '#\\9))))))" "(define-values" "(hex-char->integer)" "(lambda(c_11)" @@ -3326,8 +3344,8 @@ static const char *startup_source = "(let-values()" "(values" " start-package-version-pos_2" -"(let-values(((or-part_45) end-package-version-pos_2))" -"(if or-part_45 or-part_45 j_2))" +"(let-values(((or-part_46) end-package-version-pos_2))" +"(if or-part_46 or-part_46 j_2))" " colon1-pos_1" " colon2-pos_1))" "(let-values()" @@ -3336,11 +3354,11 @@ static const char *startup_source = "(let-values()" "(loop_55" "(add1 j_2)" -"(let-values(((or-part_46) start-package-version-pos_2))" -"(if or-part_46 or-part_46(add1 j_2)))" +"(let-values(((or-part_47) start-package-version-pos_2))" +"(if or-part_47 or-part_47(add1 j_2)))" "(if start-package-version-pos_2" -"(let-values(((or-part_47) end-package-version-pos_2))" -"(if or-part_47 or-part_47 j_2))" +"(let-values(((or-part_48) end-package-version-pos_2))" +"(if or-part_48 or-part_48 j_2))" " #f)" " colon1-pos_1" " colon2-pos_1))" @@ -3378,20 +3396,20 @@ 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_48)(not colon2-pos_0)))" -"(if or-part_48 or-part_48(<(add1 colon2-pos_0) end-package-version-pos_1)))" +"(let-values(((or-part_49)(not colon2-pos_0)))" +"(if or-part_49 or-part_49(<(add1 colon2-pos_0) end-package-version-pos_1)))" " #f)" " #f)" "(let-values()" "(if colon1-pos_0" "(let-values()" "(let-values(((colon1-end_0)" -"(let-values(((or-part_49) colon2-pos_0))" -"(if or-part_49 or-part_49 end-package-version-pos_1))))" +"(let-values(((or-part_50) colon2-pos_0))" +"(if or-part_50 or-part_50 end-package-version-pos_1))))" "(if(if(integer-sequence? v_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(((or-part_51)(not colon2-pos_0)))" +"(if or-part_51" +" or-part_51" "(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))" @@ -3465,10 +3483,10 @@ static const char *startup_source = "(let-values()" "(let-values(((c_12)" "(string-ref s_34 i_32)))" -"(let-values(((or-part_51)" +"(let-values(((or-part_52)" "(char=? c_12 '#\\-)))" -"(if or-part_51" -" or-part_51" +"(if or-part_52" +" or-part_52" "(char<=? '#\\0 c_12 '#\\9))))))))" "(values result_15)))))" "(if(if(not((lambda x_18(not result_14)) i_32))(not #f) #f)" @@ -3601,8 +3619,8 @@ static const char *startup_source = "(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_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)))))))))))))))" +"(let-values(((or-part_33)(if(box-cas! b_8 t_10 new-t_0) v_39 #f)))" +"(if or-part_33 or-part_33(weak-intern! tt_0 v_39)))))))))))))))" "(define-values" "(prune-table)" "(lambda(t_11)" @@ -3829,12 +3847,12 @@ static const char *startup_source = "(begin" " 'make-resolved-module-path" "(begin" -"(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(let-values(((or-part_53)(symbol? p_5)))" "(if or-part_53" " or-part_53" +"(let-values(((or-part_54)(if(path? p_5)(complete-path? p_5) #f)))" +"(if or-part_54" +" or-part_54" "(if(pair? p_5)" "(if(pair?(cdr p_5))" "(if(list? p_5)" @@ -4071,9 +4089,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_54)(module-path-index-resolved mpi_0)))" -"(if or-part_54" -" or-part_54" +"(let-values(((or-part_55)(module-path-index-resolved mpi_0)))" +"(if or-part_55" +" or-part_55" "(let-values(((mod-name_0)" "((1/current-module-name-resolver)" "(module-path-index-path mpi_0)" @@ -4118,8 +4136,8 @@ static const char *startup_source = "(let-values()" "(begin" "(if((lambda(x_15)" -"(let-values(((or-part_55)(not x_15)))" -"(if or-part_55 or-part_55(1/module-path? x_15))))" +"(let-values(((or-part_56)(not x_15)))" +"(if or-part_56 or-part_56(1/module-path? x_15))))" " mod-path_0)" "(void)" "(let-values()" @@ -4127,20 +4145,20 @@ static const char *startup_source = " 'module-path-index-join" " \"(or/c #f module-path?)\"" " mod-path_0)))" -"(if(let-values(((or-part_56)(not base_8)))" -"(if or-part_56" -" or-part_56" -"(let-values(((or-part_39)(1/resolved-module-path? base_8)))" -"(if or-part_39 or-part_39(1/module-path-index? base_8)))))" +"(if(let-values(((or-part_57)(not base_8)))" +"(if or-part_57" +" or-part_57" +"(let-values(((or-part_40)(1/resolved-module-path? base_8)))" +"(if or-part_40 or-part_40(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_40)(not submod_0)))" -"(if or-part_40" -" or-part_40" +"(if(let-values(((or-part_41)(not submod_0)))" +"(if or-part_41" +" or-part_41" "(if(pair? submod_0)(if(list? submod_0)(andmap2 symbol? submod_0) #f) #f)))" "(void)" "(let-values()" @@ -4242,10 +4260,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_45)" +"(let-values(((or-part_46)" "(let-values(((e_9)(hash-ref generic-self-mpis r_15 #f)))(if e_9(ephemeron-value e_9) #f))))" -"(if or-part_45" -" or-part_45" +"(if or-part_46" +" or-part_46" "(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" @@ -4291,11 +4309,11 @@ static const char *startup_source = "(module-path-index-shift-cache!)" "(lambda(mpi_9)" "(begin" -"(let-values(((or-part_57)" +"(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_57" -" or-part_57" +"(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" @@ -4321,8 +4339,8 @@ static const char *startup_source = "(if(1/module-path? p_7)" "(void)" " (let-values () (raise-argument-error 'core-module-name-resolver \"module-path?\" p_7)))" -"(if(let-values(((or-part_58)(not enclosing_1)))" -"(if or-part_58 or-part_58(1/resolved-module-path? enclosing_1)))" +"(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_7)(if(=(length p_7) 2)(if(eq? 'quote(car p_7))(symbol?(cadr p_7)) #f) #f) #f)" @@ -4464,7 +4482,7 @@ static const char *startup_source = " #f" "(lambda(r_19)" "(begin" -"(if(let-values(((or-part_59)(not r_19)))(if or-part_59 or-part_59(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))))" @@ -4474,11 +4492,11 @@ static const char *startup_source = " #f" "(lambda(s_39)" "(begin" -"(if(let-values(((or-part_60)(not s_39)))" -"(if or-part_60" -" or-part_60" -"(let-values(((or-part_61)(symbol? s_39)))" -"(if or-part_61 or-part_61(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)))" @@ -4506,7 +4524,7 @@ static const char *startup_source = "(call-with-exception-handler" "(lambda(e_10)(begin(unsafe-struct-set! root_1 0(make-reraise e_10)) e_10))" "(lambda()" -"((letrec-values(((loop_59)" +"((letrec-values(((loop_45)" "(lambda(v_45)" "(begin" " 'loop" @@ -4516,15 +4534,15 @@ static const char *startup_source = "(begin" "(unsafe-struct-set! v_45 0 root_1)" "(if(procedure? v*_0)" -"(let-values()(loop_59(v*_0)))" +"(let-values()(loop_45(v*_0)))" "(if(pair? v*_0)" "(let-values()" "(begin(unsafe-struct-set! root_1 0 v*_0)(unsafe-car v*_0)))" -"(let-values()(loop_59 v*_0)))))))" +"(let-values()(loop_45 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)" +" loop_45)" "(v_44))))))" "(if(pair? v_44)" "(let-values()(if(null?(unsafe-cdr v_44))(unsafe-car v_44)(apply values v_44)))" @@ -4568,7 +4586,7 @@ static const char *startup_source = "(promise-printer)" "(lambda(promise_2 port_2 write?_0)" "(begin" -"((letrec-values(((loop_47)" +"((letrec-values(((loop_48)" "(lambda(v_48)" "(begin" " 'loop" @@ -4594,7 +4612,7 @@ static const char *startup_source = " ((lambda (n_18) (fprintf port_2 \"#\" n_18)) c1_18)" " (let-values () (display \"#\" port_2)))))" "(if(promise? v_48)" -"(let-values()(loop_47(unsafe-struct-ref v_48 0)))" +"(let-values()(loop_48(unsafe-struct-ref v_48 0)))" "(if(null? v_48)" " (let-values () (fprintf port_2 \"#\"))" "(if(null?(cdr v_48))" @@ -4606,7 +4624,7 @@ static const char *startup_source = " (let-values (((fmt_0) (if write?_0 \" ~s\" \" ~a\")))" "(for-each(lambda(x_21)(fprintf port_2 fmt_0 x_21)) v_48))" " (display \")>\" port_2)))))))))))))" -" loop_47)" +" loop_48)" "(unsafe-struct-ref promise_2 0)))))" "(define-values" "(prop:force promise-forcer)" @@ -5037,15 +5055,15 @@ static const char *startup_source = "(intern-scopes)" "(lambda(scs_0 state_2)" "(begin" -"(let-values(((or-part_62)(hash-ref(serialize-state-scopes state_2) scs_0 #f)))" -"(if or-part_62 or-part_62(begin(hash-set!(serialize-state-scopes state_2) scs_0 scs_0) scs_0))))))" +"(let-values(((or-part_63)(hash-ref(serialize-state-scopes state_2) scs_0 #f)))" +"(if or-part_63 or-part_63(begin(hash-set!(serialize-state-scopes state_2) scs_0 scs_0) scs_0))))))" "(define-values" "(intern-shifted-multi-scopes)" "(lambda(sms_0 state_3)" "(begin" -"(let-values(((or-part_63)(hash-ref(serialize-state-shifted-multi-scopes state_3) sms_0 #f)))" -"(if or-part_63" -" or-part_63" +"(let-values(((or-part_64)(hash-ref(serialize-state-shifted-multi-scopes state_3) sms_0 #f)))" +"(if or-part_64" +" or-part_64" "(begin(hash-set!(serialize-state-shifted-multi-scopes state_3) sms_0 sms_0) sms_0))))))" "(define-values" "(intern-mpi-shifts)" @@ -5056,14 +5074,14 @@ static const char *startup_source = "(let-values()" "(let-values(((tail_0)(intern-mpi-shifts(cdr mpi-shifts_0) state_4)))" "(let-values(((tail-table_0)" -"(let-values(((or-part_64)(hash-ref(serialize-state-mpi-shifts state_4) tail_0 #f)))" -"(if or-part_64" -" or-part_64" -"(let-values(((ht_25)(make-hasheq)))" -"(begin(hash-set!(serialize-state-mpi-shifts state_4) tail_0 ht_25) ht_25))))))" -"(let-values(((or-part_65)(hash-ref tail-table_0(car mpi-shifts_0) #f)))" +"(let-values(((or-part_65)(hash-ref(serialize-state-mpi-shifts state_4) tail_0 #f)))" "(if or-part_65" " or-part_65" +"(let-values(((ht_25)(make-hasheq)))" +"(begin(hash-set!(serialize-state-mpi-shifts state_4) tail_0 ht_25) ht_25))))))" +"(let-values(((or-part_66)(hash-ref tail-table_0(car mpi-shifts_0) #f)))" +"(if or-part_66" +" or-part_66" "(let-values(((v_55)(cons(car mpi-shifts_0) tail_0)))" "(begin(hash-set! tail-table_0(car mpi-shifts_0) v_55) v_55)))))))))))" "(define-values" @@ -5071,19 +5089,19 @@ static const char *startup_source = "(lambda(scs_1 sms_1 mpi-shifts_1 state_5)" "(begin" "(let-values(((scs-ht_0)" -"(let-values(((or-part_66)(hash-ref(serialize-state-context-triples state_5) scs_1 #f)))" -"(if or-part_66" -" or-part_66" +"(let-values(((or-part_67)(hash-ref(serialize-state-context-triples state_5) scs_1 #f)))" +"(if or-part_67" +" or-part_67" "(let-values(((ht_26)(make-hasheq)))" "(begin(hash-set!(serialize-state-context-triples state_5) scs_1 ht_26) ht_26))))))" "(let-values(((sms-ht_0)" -"(let-values(((or-part_35)(hash-ref scs-ht_0 sms_1 #f)))" -"(if or-part_35" -" or-part_35" +"(let-values(((or-part_36)(hash-ref scs-ht_0 sms_1 #f)))" +"(if or-part_36" +" or-part_36" "(let-values(((ht_24)(make-hasheq)))(begin(hash-set! scs-ht_0 sms_1 ht_24) ht_24))))))" -"(let-values(((or-part_67)(hash-ref sms-ht_0 mpi-shifts_1 #f)))" -"(if or-part_67" -" or-part_67" +"(let-values(((or-part_68)(hash-ref sms-ht_0 mpi-shifts_1 #f)))" +"(if or-part_68" +" or-part_68" "(let-values(((vec_13)(vector-immutable scs_1 sms_1 mpi-shifts_1)))" "(begin(hash-set! sms-ht_0 mpi-shifts_1 vec_13) vec_13)))))))))" "(define-values" @@ -5150,9 +5168,9 @@ static const char *startup_source = " (define-values (not-an-fX.1) (lambda (who_8 v_57) (begin 'not-an-fX (raise-argument-error who_8 \"fixnum?\" v_57))))" "(define-values" "(datum-map-slow)" -"(lambda(tail?_0 s_40 f_7 seen_0)" +"(lambda(tail?_0 s_40 f_19 seen_0)" "(begin" -"((letrec-values(((loop_60)" +"((letrec-values(((loop_59)" "(lambda(tail?_1 s_7 prev-seen_0)" "(begin" " 'loop" @@ -5164,19 +5182,19 @@ static const char *startup_source = "(let-values()(hash-set prev-seen_0 s_7 #t))))" "(let-values() prev-seen_0))))" "(if(null? s_7)" -"(let-values()(f_7 tail?_1 s_7))" +"(let-values()(f_19 tail?_1 s_7))" "(if(pair? s_7)" "(let-values()" -"(f_7 tail?_1(cons(loop_60 #f(car s_7) seen_1)(loop_60 #t(cdr s_7) seen_1))))" -"(if(let-values(((or-part_68)(symbol? s_7)))" -"(if or-part_68" -" or-part_68" -"(let-values(((or-part_69)(boolean? s_7)))" -"(if or-part_69 or-part_69(number? s_7)))))" -"(let-values()(f_7 #f s_7))" +"(f_19 tail?_1(cons(loop_59 #f(car s_7) seen_1)(loop_59 #t(cdr s_7) seen_1))))" +"(if(let-values(((or-part_69)(symbol? s_7)))" +"(if or-part_69" +" or-part_69" +"(let-values(((or-part_70)(boolean? s_7)))" +"(if or-part_70 or-part_70(number? s_7)))))" +"(let-values()(f_19 #f s_7))" "(if(vector? s_7)" "(let-values()" -"(f_7" +"(f_19" " #f" "(vector->immutable-vector" "(let-values(((len_7)(vector-length s_7)))" @@ -5221,7 +5239,7 @@ static const char *startup_source = " v_58" " i_40" "(let-values()" -"(loop_60" +"(loop_59" " #f" " e_13" " seen_1)))" @@ -5247,11 +5265,11 @@ static const char *startup_source = " 0)))))" " v_58)))))))" "(if(box? s_7)" -"(let-values()(f_7 #f(box-immutable(loop_60 #f(unbox s_7) seen_1))))" +"(let-values()(f_19 #f(box-immutable(loop_59 #f(unbox s_7) seen_1))))" "(let-values(((c1_20)(immutable-prefab-struct-key s_7)))" "(if c1_20" "((lambda(key_13)" -"(f_7" +"(f_19" " #f" "(apply" " make-prefab-struct" @@ -5285,7 +5303,7 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(loop_60" +"(loop_59" " #f" " e_14" " seen_1))" @@ -5306,7 +5324,7 @@ static const char *startup_source = "(let-values()" "(if(hash-eq? s_7)" "(let-values()" -"(f_7" +"(f_19" " #f" "(let-values(((ht_27) s_7))" "(begin" @@ -5332,7 +5350,7 @@ static const char *startup_source = "(let-values()" "(values" " k_10" -"(loop_60" +"(loop_59" " #f" " v_36" " seen_1)))))" @@ -5353,7 +5371,7 @@ static const char *startup_source = "(hash-iterate-first ht_27))))))" "(if(hash-eqv? s_7)" "(let-values()" -"(f_7" +"(f_19" " #f" "(let-values(((ht_28) s_7))" "(begin" @@ -5379,7 +5397,7 @@ static const char *startup_source = "(let-values()" "(values" " k_11" -"(loop_60" +"(loop_59" " #f" " v_59" " seen_1)))))" @@ -5401,7 +5419,7 @@ static const char *startup_source = " '#hasheqv()" "(hash-iterate-first ht_28))))))" "(let-values()" -"(f_7" +"(f_19" " #f" "(let-values(((ht_26) s_7))" "(begin" @@ -5427,7 +5445,7 @@ static const char *startup_source = "(let-values()" "(values" " k_12" -"(loop_60" +"(loop_59" " #f" " v_60" " seen_1)))))" @@ -5448,8 +5466,8 @@ static const char *startup_source = " for-loop_29)" " '#hash()" "(hash-iterate-first ht_26)))))))))" -"(let-values()(f_7 #f s_7)))))))))))))))" -" loop_60)" +"(let-values()(f_19 #f s_7)))))))))))))))" +" loop_59)" " tail?_0" " s_40" " seen_0))))" @@ -5457,18 +5475,18 @@ static const char *startup_source = "(datum-has-elements?)" "(lambda(d_0)" "(begin" -"(let-values(((or-part_70)(pair? d_0)))" -"(if or-part_70" -" or-part_70" -"(let-values(((or-part_71)(vector? d_0)))" +"(let-values(((or-part_71)(pair? d_0)))" "(if or-part_71" " or-part_71" -"(let-values(((or-part_72)(box? d_0)))" +"(let-values(((or-part_72)(vector? d_0)))" "(if or-part_72" " or-part_72" -"(let-values(((or-part_73)(immutable-prefab-struct-key d_0)))" +"(let-values(((or-part_73)(box? d_0)))" "(if or-part_73" " or-part_73" +"(let-values(((or-part_74)(immutable-prefab-struct-key d_0)))" +"(if or-part_74" +" or-part_74" "(if(hash? d_0)(if(immutable? d_0)(positive?(hash-count d_0)) #f) #f))))))))))))" "(define-values" "(struct:preserved-property-value" @@ -5503,45 +5521,45 @@ static const char *startup_source = "(begin" " 'check-preserve" "(begin" -"(if(let-values(((or-part_74)(null? v_63)))" -"(if or-part_74" -" or-part_74" -"(let-values(((or-part_75)(boolean? v_63)))" +"(if(let-values(((or-part_75)(null? v_63)))" "(if or-part_75" " or-part_75" -"(let-values(((or-part_76)(symbol? v_63)))" +"(let-values(((or-part_76)(boolean? v_63)))" "(if or-part_76" " or-part_76" -"(let-values(((or-part_77)(number? v_63)))" +"(let-values(((or-part_77)(symbol? v_63)))" "(if or-part_77" " or-part_77" -"(let-values(((or-part_78)(char? v_63)))" +"(let-values(((or-part_78)(number? v_63)))" "(if or-part_78" " or-part_78" -"(let-values(((or-part_79)(string? v_63)))" +"(let-values(((or-part_79)(char? v_63)))" "(if or-part_79" " or-part_79" +"(let-values(((or-part_80)(string? v_63)))" +"(if or-part_80" +" or-part_80" "(let-values(((or-part_29)(bytes? v_63)))" "(if or-part_29" " or-part_29" -"(let-values(((or-part_80)(regexp? v_63)))" -"(if or-part_80" -" or-part_80" -"(let-values(((or-part_81)(syntax?_0 v_63)))" +"(let-values(((or-part_81)(regexp? v_63)))" "(if or-part_81" " or-part_81" -"(let-values(((or-part_82)(pair? v_63)))" +"(let-values(((or-part_82)(syntax?_0 v_63)))" "(if or-part_82" " or-part_82" -"(let-values(((or-part_83)(vector? v_63)))" +"(let-values(((or-part_83)(pair? v_63)))" "(if or-part_83" " or-part_83" -"(let-values(((or-part_84)(box? v_63)))" +"(let-values(((or-part_84)(vector? v_63)))" "(if or-part_84" " or-part_84" -"(let-values(((or-part_85)(hash? v_63)))" +"(let-values(((or-part_85)(box? v_63)))" "(if or-part_85" " or-part_85" +"(let-values(((or-part_86)(hash? v_63)))" +"(if or-part_86" +" or-part_86" "(immutable-prefab-struct-key" " v_63)))))))))))))))))))))))))))" "(void)" @@ -5552,8 +5570,8 @@ static const char *startup_source = " \"value\"" " v_63)))" " v_63)))))" -"(let-values(((s_41) v_62)((f_19) check-preserve_0)((gf_0) check-preserve_0)((seen_2) disallow-cycles$1))" -"((letrec-values(((loop_61)" +"(let-values(((s_41) v_62)((f_20) check-preserve_0)((gf_0) check-preserve_0)((seen_2) disallow-cycles$1))" +"((letrec-values(((loop_60)" "(lambda(tail?_3 s_42 prev-depth_0)" "(begin" " 'loop" @@ -5562,21 +5580,21 @@ static const char *startup_source = "(let-values()" "(datum-map-slow tail?_3 s_42(lambda(tail?_4 s_43)(gf_0 tail?_4 s_43)) seen_2))" "(if(null? s_42)" -"(let-values()(f_19 tail?_3 s_42))" +"(let-values()(f_20 tail?_3 s_42))" "(if(pair? s_42)" "(let-values()" -"(f_19" +"(f_20" " tail?_3" -"(cons(loop_61 #f(car s_42) depth_0)(loop_61 #t(cdr s_42) depth_0))))" +"(cons(loop_60 #f(car s_42) depth_0)(loop_60 #t(cdr s_42) depth_0))))" "(if(symbol? s_42)" -"(let-values()(f_19 #f s_42))" +"(let-values()(f_20 #f s_42))" "(if(boolean? s_42)" -"(let-values()(f_19 #f s_42))" +"(let-values()(f_20 #f s_42))" "(if(number? s_42)" -"(let-values()(f_19 #f s_42))" -"(if(let-values(((or-part_53)(vector? s_42)))" -"(if or-part_53" -" or-part_53" +"(let-values()(f_20 #f s_42))" +"(if(let-values(((or-part_54)(vector? s_42)))" +"(if or-part_54" +" or-part_54" "(let-values(((or-part_7)(box? s_42)))" "(if or-part_7" " or-part_7" @@ -5589,7 +5607,7 @@ static const char *startup_source = "(lambda(tail?_5 s_44)(gf_0 tail?_5 s_44))" " seen_2))" "(let-values()(gf_0 #f s_42))))))))))))))" -" loop_61)" +" loop_60)" " #f" " s_41" " 0))))))" @@ -5756,7 +5774,7 @@ static const char *startup_source = "(intern-mpi-shifts(syntax-mpi-shifts s_46) state_10)" " state_10)))" "(let-values(((stx-state_0)(get-syntax-context state_10)))" -"(if(let-values(((or-part_86) properties_0))(if or-part_86 or-part_86 tamper_0))" +"(if(let-values(((or-part_87) properties_0))(if or-part_87 or-part_87 tamper_0))" "(let-values()" "(begin" "(ser-push!_1 'tag '#:syntax+props)" @@ -5890,32 +5908,33 @@ static const char *startup_source = "(empty-syntax)" "(syntax1.1 #f empty-scopes empty-shifted-multi-scopes #f empty-mpi-shifts #f empty-props #f))" "(define-values(identifier?)(lambda(s_49)(begin(if(syntax?$1 s_49)(symbol?(syntax-content s_49)) #f))))" +"(define-values(syntax-identifier?)(lambda(s_50)(begin(symbol?(syntax-content s_50)))))" "(define-values" "(syntax->datum$1)" -"(lambda(s_50)" +"(lambda(s_32)" "(begin" " 'syntax->datum" -"(let-values(((s_32) s_50)" -"((f_20)(lambda(tail?_6 x_24)(begin 'f x_24)))" -"((d->s_0)(lambda(s_51 d_1)(begin 'd->s d_1)))" +"(let-values(((s_51) s_32)" +"((f_21)(lambda(tail?_6 x_24)(begin 'f x_24)))" +"((d->s_0)(lambda(s_52 d_1)(begin 'd->s d_1)))" "((s-e_0) syntax-content)" "((seen_3) #f))" -"((letrec-values(((loop_62)" -"(lambda(s_52)" +"((letrec-values(((loop_61)" +"(lambda(s_53)" "(begin" " 'loop" -"(let-values(((s_53) s_52)" -"((f_21) f_20)" +"(let-values(((s_54) s_53)" +"((f_22) f_21)" "((gf_1)" -"(lambda(tail?_7 v_72)" +"(lambda(tail?_7 v_57)" "(begin" " 'gf" -"(if(syntax?$1 v_72)" -"(let-values()(d->s_0 v_72(loop_62(s-e_0 v_72))))" -"(let-values()(f_20 tail?_7 v_72))))))" +"(if(syntax?$1 v_57)" +"(let-values()(d->s_0 v_57(loop_61(s-e_0 v_57))))" +"(let-values()(f_21 tail?_7 v_57))))))" "((seen_4) seen_3))" -"((letrec-values(((loop_63)" -"(lambda(tail?_8 s_54 prev-depth_1)" +"((letrec-values(((loop_62)" +"(lambda(tail?_8 s_55 prev-depth_1)" "(begin" " 'loop" "(let-values(((depth_1)(fx+ 1 prev-depth_1)))" @@ -5923,48 +5942,48 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_8" -" s_54" -"(lambda(tail?_9 s_55)(gf_1 tail?_9 s_55))" +" s_55" +"(lambda(tail?_9 s_56)(gf_1 tail?_9 s_56))" " seen_4))" -"(if(null? s_54)" -"(let-values()(f_21 tail?_8 s_54))" -"(if(pair? s_54)" +"(if(null? s_55)" +"(let-values()(f_22 tail?_8 s_55))" +"(if(pair? s_55)" "(let-values()" -"(f_21" +"(f_22" " tail?_8" "(cons" -"(loop_63 #f(car s_54) depth_1)" -"(loop_63 #t(cdr s_54) depth_1))))" -"(if(symbol? s_54)" -"(let-values()(f_21 #f s_54))" -"(if(boolean? s_54)" -"(let-values()(f_21 #f s_54))" -"(if(number? s_54)" -"(let-values()(f_21 #f s_54))" -"(if(let-values(((or-part_48)(vector? s_54)))" -"(if or-part_48" -" or-part_48" -"(let-values(((or-part_87)(box? s_54)))" -"(if or-part_87" -" or-part_87" -"(let-values(((or-part_49)" -"(prefab-struct-key s_54)))" -"(if or-part_49" -" or-part_49" -"(hash? s_54)))))))" +"(loop_62 #f(car s_55) depth_1)" +"(loop_62 #t(cdr s_55) depth_1))))" +"(if(symbol? s_55)" +"(let-values()(f_22 #f s_55))" +"(if(boolean? s_55)" +"(let-values()(f_22 #f s_55))" +"(if(number? s_55)" +"(let-values()(f_22 #f s_55))" +"(if(let-values(((or-part_88)(vector? s_55)))" +"(if or-part_88" +" or-part_88" +"(let-values(((or-part_50)(box? s_55)))" +"(if or-part_50" +" or-part_50" +"(let-values(((or-part_51)" +"(prefab-struct-key s_55)))" +"(if or-part_51" +" or-part_51" +"(hash? s_55)))))))" "(let-values()" "(datum-map-slow" " tail?_8" -" s_54" -"(lambda(tail?_10 s_56)(gf_1 tail?_10 s_56))" +" s_55" +"(lambda(tail?_10 s_33)(gf_1 tail?_10 s_33))" " seen_4))" -"(let-values()(gf_1 #f s_54))))))))))))))" -" loop_63)" -" #f" -" s_53" -" 0))))))" +"(let-values()(gf_1 #f s_55))))))))))))))" " loop_62)" -" s_32)))))" +" #f" +" s_54" +" 0))))))" +" loop_61)" +" s_51)))))" "(define-values" "(datum->syntax$1)" "(let-values(((datum->syntax8_0)" @@ -5999,24 +6018,24 @@ 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_34) s_57)" -"((f_22)" +"(let-values(((s_58) s_57)" +"((f_23)" "(lambda(tail?_11 x_25)" "(begin 'f(if tail?_11 x_25(wrap_0 x_25)))))" -"((s->_0)(lambda(s_58)(begin 's-> s_58)))" +"((s->_0)(lambda(s_59)(begin 's-> s_59)))" "((seen_5) disallow-cycles))" -"(let-values(((s_59) s_34)" -"((f_23) f_22)" +"(let-values(((s_60) s_58)" +"((f_24) f_23)" "((gf_2)" -"(lambda(tail?_12 v_73)" +"(lambda(tail?_12 v_72)" "(begin" " 'gf" -"(if(syntax?$1 v_73)" -"(let-values()(s->_0 v_73))" -"(let-values()(f_22 tail?_12 v_73))))))" +"(if(syntax?$1 v_72)" +"(let-values()(s->_0 v_72))" +"(let-values()(f_23 tail?_12 v_72))))))" "((seen_6) seen_5))" -"((letrec-values(((loop_64)" -"(lambda(tail?_13 s_60 prev-depth_2)" +"((letrec-values(((loop_63)" +"(lambda(tail?_13 s_61 prev-depth_2)" "(begin" " 'loop" "(let-values(((depth_2)" @@ -6025,59 +6044,59 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_13" -" s_60" -"(lambda(tail?_14 s_61)" -"(gf_2 tail?_14 s_61))" +" s_61" +"(lambda(tail?_14 s_62)" +"(gf_2 tail?_14 s_62))" " seen_6))" -"(if(null? s_60)" -"(let-values()(f_23 tail?_13 s_60))" -"(if(pair? s_60)" +"(if(null? s_61)" +"(let-values()(f_24 tail?_13 s_61))" +"(if(pair? s_61)" "(let-values()" -"(f_23" +"(f_24" " tail?_13" "(cons" -"(loop_64 #f(car s_60) depth_2)" -"(loop_64" +"(loop_63 #f(car s_61) depth_2)" +"(loop_63" " #t" -"(cdr s_60)" +"(cdr s_61)" " depth_2))))" -"(if(symbol? s_60)" -"(let-values()(f_23 #f s_60))" -"(if(boolean? s_60)" -"(let-values()(f_23 #f s_60))" -"(if(number? s_60)" -"(let-values()(f_23 #f s_60))" -"(if(let-values(((or-part_88)" +"(if(symbol? s_61)" +"(let-values()(f_24 #f s_61))" +"(if(boolean? s_61)" +"(let-values()(f_24 #f s_61))" +"(if(number? s_61)" +"(let-values()(f_24 #f s_61))" +"(if(let-values(((or-part_89)" "(vector?" -" s_60)))" -"(if or-part_88" -" or-part_88" -"(let-values(((or-part_89)" -"(box?" -" s_60)))" +" s_61)))" "(if or-part_89" " or-part_89" "(let-values(((or-part_90)" -"(prefab-struct-key" -" s_60)))" +"(box?" +" s_61)))" "(if or-part_90" " or-part_90" +"(let-values(((or-part_91)" +"(prefab-struct-key" +" s_61)))" +"(if or-part_91" +" or-part_91" "(hash?" -" s_60)))))))" +" s_61)))))))" "(let-values()" "(datum-map-slow" " tail?_13" -" s_60" -"(lambda(tail?_15 s_62)" -"(gf_2 tail?_15 s_62))" +" s_61" +"(lambda(tail?_15 s_63)" +"(gf_2 tail?_15 s_63))" " seen_6))" "(let-values()" "(gf_2" " #f" -" s_60))))))))))))))" -" loop_64)" +" s_61))))))))))))))" +" loop_63)" " #f" -" s_59" +" s_60" " 0)))))" "(if(if stx-p_0(not(eq?(syntax-props stx-p_0) empty-props)) #f)" "(let-values(((the-struct_0) result-s_0))" @@ -6095,14 +6114,14 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_0)))" " result-s_0))))))))))))))" "(case-lambda" -"((stx-c_1 s_63)(begin 'datum->syntax(datum->syntax8_0 stx-c_1 s_63 #f #f #f #f)))" -"((stx-c_2 s_37 stx-l_1 stx-p3_1)(datum->syntax8_0 stx-c_2 s_37 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)))))" +"((stx-c_1 s_64)(begin 'datum->syntax(datum->syntax8_0 stx-c_1 s_64 #f #f #f #f)))" +"((stx-c_2 s_65 stx-l_1 stx-p3_1)(datum->syntax8_0 stx-c_2 s_65 stx-l_1 stx-p3_1 #t #t))" +"((stx-c_3 s_66 stx-l2_1)(datum->syntax8_0 stx-c_3 s_66 stx-l2_1 #f #t #f)))))" "(define-values" "(disallow-cycles)" "(hasheq" " 'cycle-fail" -" (lambda (s_65) (raise-arguments-error 'datum->syntax \"cannot create syntax from cyclic datum\" \"datum\" s_65))))" +" (lambda (s_67) (raise-arguments-error 'datum->syntax \"cannot create syntax from cyclic datum\" \"datum\" s_67))))" "(define-values" "(struct:syntax-state" " syntax-state19.1" @@ -6129,16 +6148,16 @@ static const char *startup_source = "(begin" "(if(pair? content_2)" "(let-values()" -"((letrec-values(((loop_65)" +"((letrec-values(((loop_64)" "(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_65(cdr content_3)))" +"(let-values()(loop_64(cdr content_3)))" "(let-values() #t)))))))" -" loop_65)" +" loop_64)" "(cdr content_2)))" "(let-values() #t)))))" "(define-values" @@ -6163,7 +6182,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if i_46" -"(let-values(((k_15 v_74)(unsafe-immutable-hash-iterate-key+value ht_31 i_46)))" +"(let-values(((k_15 v_73)(unsafe-immutable-hash-iterate-key+value ht_31 i_46)))" "(let-values(((table_30)" "(let-values(((table_31) table_29))" "(let-values(((table_32)" @@ -6173,7 +6192,7 @@ static const char *startup_source = "(values" " k_15" "(preserved-property-value1.1" -" v_74)))))" +" v_73)))))" "(hash-set table_31 key_18 val_8)))))" "(values table_32)))))" "(if(not #f)" @@ -6189,8 +6208,8 @@ static const char *startup_source = "(deserialize-datum->syntax)" "(lambda(content_5 context-triple_2 srcloc_2 inspector_1)" "(begin" -"(let-values(((s_66)(deserialize-syntax #f context-triple_2 srcloc_2 #f #f inspector_1)))" -"(datum->syntax$1 s_66 content_5 s_66 s_66)))))" +"(let-values(((s_68)(deserialize-syntax #f context-triple_2 srcloc_2 #f #f inspector_1)))" +"(datum->syntax$1 s_68 content_5 s_68 s_68)))))" "(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)" @@ -6260,12 +6279,12 @@ static const char *startup_source = "(if(let-values(((or-part_29) frame-id_0))" "(if or-part_29" " or-part_29" -"(let-values(((or-part_80) free=id_0))" -"(if or-part_80" -" or-part_80" -"(let-values(((or-part_81) extra-inspector_0))" +"(let-values(((or-part_81) free=id_0))" "(if or-part_81" " or-part_81" +"(let-values(((or-part_82) extra-inspector_0))" +"(if or-part_82" +" or-part_82" "(not" "(if(eqv? nominal-phase_0 phase_0)" "(if(eq? nominal-sym_0 sym_0)" @@ -6704,11 +6723,11 @@ static const char *startup_source = "(make-struct-field-accessor -ref_11 1 'create))))" "(define-values" "(bulk-binding-symbols)" -"(lambda(b_12 s_67 extra-shifts_0)" +"(lambda(b_12 s_69 extra-shifts_0)" "(begin" "((bulk-binding-class-get-symbols(bulk-binding-ref b_12))" " b_12" -"(append extra-shifts_0(if s_67(syntax-mpi-shifts s_67) null))))))" +"(append extra-shifts_0(if s_69(syntax-mpi-shifts s_69) null))))))" "(define-values(bulk-binding-create)(lambda(b_36)(begin(bulk-binding-class-create(bulk-binding-ref b_36)))))" "(define-values(binding-table-empty?)(lambda(bt_0)(begin(if(hash? bt_0)(zero?(hash-count bt_0)) #f))))" "(define-values" @@ -6915,32 +6934,32 @@ static const char *startup_source = "(let-values()(hash-set syms_11 sym_7(hash-remove sym-bindings_2 scopes_4)))))))))))))" "(define-values" "(binding-table-symbols)" -"(lambda(table_33 scs_2 s_68 extra-shifts_1)" +"(lambda(table_33 scs_2 s_70 extra-shifts_1)" "(begin" -"(let-values(((ht_34 bulk-bindings_1)" +"(let-values(((ht_31 bulk-bindings_1)" "(if(hash? table_33)" "(values table_33 null)" "(values" "(table-with-bulk-bindings-syms table_33)" "(table-with-bulk-bindings-bulk-bindings table_33)))))" "(set-union" -"(let-values(((ht_35) ht_34))" +"(let-values(((ht_34) ht_31))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_35)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_34)))" "((letrec-values(((for-loop_35)" "(lambda(table_34 i_48)" "(begin" " 'for-loop" "(if i_48" -"(let-values(((sym_8 at-sym_0)(hash-iterate-key+value ht_35 i_48)))" -"(let-values(((table_35)" -"(let-values(((table_36) table_34))" -"(if(let-values(((ht_36) at-sym_0))" +"(let-values(((sym_8 at-sym_0)(hash-iterate-key+value ht_34 i_48)))" +"(let-values(((table_32)" +"(let-values(((table_35) table_34))" +"(if(let-values(((ht_35) at-sym_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_36)))" +"(let-values()(check-in-hash-keys ht_35)))" "((letrec-values(((for-loop_36)" "(lambda(result_29 i_49)" "(begin" @@ -6948,7 +6967,7 @@ static const char *startup_source = "(if i_49" "(let-values(((an-scs_0)" "(hash-iterate-key" -" ht_36" +" ht_35" " i_49)))" "(let-values(((result_30)" "(let-values()" @@ -6969,64 +6988,64 @@ static const char *startup_source = "(for-loop_36" " result_30" "(hash-iterate-next" -" ht_36" +" ht_35" " i_49))" " result_30)))" " result_29)))))" " for-loop_36)" " #f" -"(hash-iterate-first ht_36))))" -"(let-values(((table_37) table_36))" -"(let-values(((table_38)" +"(hash-iterate-first ht_35))))" +"(let-values(((table_36) table_35))" +"(let-values(((table_37)" "(let-values()" "(let-values(((key_19 val_9)" "(let-values()" "(values" "(let-values() sym_8)" " #t))))" -"(hash-set table_37 key_19 val_9)))))" -"(values table_38)))" -" table_36))))" -"(if(not #f)(for-loop_35 table_35(hash-iterate-next ht_35 i_48)) table_35)))" +"(hash-set table_36 key_19 val_9)))))" +"(values table_37)))" +" table_35))))" +"(if(not #f)(for-loop_35 table_32(hash-iterate-next ht_34 i_48)) table_32)))" " table_34)))))" " for-loop_35)" " '#hasheq()" -"(hash-iterate-first ht_35))))" +"(hash-iterate-first ht_34))))" "(let-values(((lst_35) bulk-bindings_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_35)))" "((letrec-values(((for-loop_37)" -"(lambda(table_39 lst_36)" +"(lambda(table_38 lst_36)" "(begin" " 'for-loop" "(if(pair? lst_36)" "(let-values(((bba_1)(unsafe-car lst_36))((rest_14)(unsafe-cdr lst_36)))" -"(let-values(((table_40)" -"(let-values(((table_41) table_39))" +"(let-values(((table_39)" +"(let-values(((table_40) table_38))" "(if(subset?(bulk-binding-at-scopes bba_1) scs_2)" -"(let-values(((ht_37)" +"(let-values(((ht_36)" "(bulk-binding-symbols" "(bulk-binding-at-bulk bba_1)" -" s_68" +" s_70" " extra-shifts_1)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_37)))" +"(let-values()(check-in-hash-keys ht_36)))" "((letrec-values(((for-loop_38)" -"(lambda(table_42 i_50)" +"(lambda(table_41 i_50)" "(begin" " 'for-loop" "(if i_50" "(let-values(((sym_9)" "(hash-iterate-key" -" ht_37" +" ht_36" " i_50)))" +"(let-values(((table_42)" "(let-values(((table_43)" +" table_41))" "(let-values(((table_44)" -" table_42))" -"(let-values(((table_45)" "(let-values()" "(let-values(((key_20" " val_10)" @@ -7036,25 +7055,25 @@ static const char *startup_source = " sym_9)" " #t))))" "(hash-set" -" table_44" +" table_43" " key_20" " val_10)))))" "(values" -" table_45)))))" +" table_44)))))" "(if(not #f)" "(for-loop_38" -" table_43" +" table_42" "(hash-iterate-next" -" ht_37" +" ht_36" " i_50))" -" table_43)))" -" table_42)))))" +" table_42)))" +" table_41)))))" " for-loop_38)" -" table_41" -"(hash-iterate-first ht_37))))" -" table_41))))" -"(if(not #f)(for-loop_37 table_40 rest_14) table_40)))" -" table_39)))))" +" table_40" +"(hash-iterate-first ht_36))))" +" table_40))))" +"(if(not #f)(for-loop_37 table_39 rest_14) table_39)))" +" table_38)))))" " for-loop_37)" " '#hasheq()" " lst_35))))))))" @@ -7062,28 +7081,28 @@ static const char *startup_source = "(binding-table-prune-to-reachable)" "(lambda(bt_3 state_15)" "(begin" -"(let-values(((or-part_91)(hash-ref(serialize-state-bindings-intern state_15) bt_3 #f)))" -"(if or-part_91" -" or-part_91" +"(let-values(((or-part_92)(hash-ref(serialize-state-bindings-intern state_15) bt_3 #f)))" +"(if or-part_92" +" or-part_92" "(let-values(((reachable-scopes_1)(serialize-state-reachable-scopes state_15)))" "(let-values(((new-syms_2)" -"(let-values(((ht_38)(if(hash? bt_3) bt_3(table-with-bulk-bindings-syms/serialize bt_3))))" +"(let-values(((ht_37)(if(hash? bt_3) bt_3(table-with-bulk-bindings-syms/serialize bt_3))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_38)))" +"(let-values()(check-in-immutable-hash ht_37)))" "((letrec-values(((for-loop_39)" -"(lambda(table_46 i_51)" +"(lambda(table_45 i_51)" "(begin" " 'for-loop" "(if i_51" "(let-values(((sym_2 bindings-for-sym_0)" "(unsafe-immutable-hash-iterate-key+value" -" ht_38" +" ht_37" " i_51)))" -"(let-values(((table_47)" +"(let-values(((table_46)" "(let-values(((new-bindings-for-sym_0)" -"(let-values(((ht_39)" +"(let-values(((ht_38)" " bindings-for-sym_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -7091,9 +7110,9 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash" -" ht_39)))" +" ht_38)))" "((letrec-values(((for-loop_40)" -"(lambda(table_48" +"(lambda(table_47" " i_52)" "(begin" " 'for-loop" @@ -7101,17 +7120,17 @@ static const char *startup_source = "(let-values(((scopes_5" " binding_1)" "(unsafe-immutable-hash-iterate-key+value" -" ht_39" +" ht_38" " i_52)))" +"(let-values(((table_48)" "(let-values(((table_49)" -"(let-values(((table_50)" -" table_48))" +" table_47))" "(if(subset?" " scopes_5" " reachable-scopes_1)" +"(let-values(((table_50)" +" table_49))" "(let-values(((table_51)" -" table_50))" -"(let-values(((table_52)" "(let-values()" "(let-values(((key_21" " val_11)" @@ -7122,41 +7141,41 @@ static const char *startup_source = " state_15)" " binding_1))))" "(hash-set" -" table_51" +" table_50" " key_21" " val_11)))))" "(values" -" table_52)))" -" table_50))))" +" table_51)))" +" table_49))))" "(if(not" " #f)" "(for-loop_40" -" table_49" +" table_48" "(unsafe-immutable-hash-iterate-next" -" ht_39" +" ht_38" " i_52))" -" table_49)))" -" table_48)))))" +" table_48)))" +" table_47)))))" " for-loop_40)" " '#hash()" "(unsafe-immutable-hash-iterate-first" -" ht_39))))))" +" ht_38))))))" "(begin" " #t" "((letrec-values(((for-loop_41)" -"(lambda(table_53)" +"(lambda(table_52)" "(begin" " 'for-loop" "(let-values()" +"(let-values(((table_53)" "(let-values(((table_54)" -"(let-values(((table_55)" -" table_53))" +" table_52))" "(if(positive?" "(hash-count" " new-bindings-for-sym_0))" +"(let-values(((table_55)" +" table_54))" "(let-values(((table_56)" -" table_55))" -"(let-values(((table_57)" "(let-values()" "(let-values(((key_22" " val_12)" @@ -7165,24 +7184,24 @@ static const char *startup_source = " sym_2" " new-bindings-for-sym_0))))" "(hash-set" -" table_56" +" table_55" " key_22" " val_12)))))" "(values" -" table_57)))" -" table_55))))" -" table_54))))))" +" table_56)))" +" table_54))))" +" table_53))))))" " for-loop_41)" -" table_46)))))" +" table_45)))))" "(if(not #f)" "(for-loop_39" -" table_47" -"(unsafe-immutable-hash-iterate-next ht_38 i_51))" -" table_47)))" -" table_46)))))" +" table_46" +"(unsafe-immutable-hash-iterate-next ht_37 i_51))" +" table_46)))" +" table_45)))))" " for-loop_39)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_38))))))" +"(unsafe-immutable-hash-iterate-first ht_37))))))" "(let-values(((new-bulk-bindings_0)" "(if(hash? bt_3)" " null" @@ -7246,24 +7265,24 @@ static const char *startup_source = "(lambda(bt_4 get-reachable-scopes_0 reach_2 register-trigger_0)" "(begin" "(begin" -"(let-values(((ht_40)(if(hash? bt_4) bt_4(table-with-bulk-bindings-syms/serialize bt_4))))" +"(let-values(((ht_39)(if(hash? bt_4) bt_4(table-with-bulk-bindings-syms/serialize bt_4))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_40)))" +"(let-values()(check-in-immutable-hash ht_39)))" "((letrec-values(((for-loop_43)" "(lambda(i_53)" "(begin" " 'for-loop" "(if i_53" "(let-values(((sym_10 bindings-for-sym_1)" -"(unsafe-immutable-hash-iterate-key+value ht_40 i_53)))" +"(unsafe-immutable-hash-iterate-key+value ht_39 i_53)))" "(let-values((()" -"(let-values(((ht_41) bindings-for-sym_1))" +"(let-values(((ht_40) bindings-for-sym_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_41)))" +"(let-values()(check-in-immutable-hash ht_40)))" "((letrec-values(((for-loop_44)" "(lambda(i_54)" "(begin" @@ -7271,7 +7290,7 @@ static const char *startup_source = "(if i_54" "(let-values(((scopes_6 binding_2)" "(unsafe-immutable-hash-iterate-key+value" -" ht_41" +" ht_40" " i_54)))" "(let-values((()" "(let-values()" @@ -7279,7 +7298,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(let-values(((v_75)" +"(let-values(((v_74)" "(if(binding-reach-scopes?" " binding_2)" "((binding-reach-scopes-ref" @@ -7288,7 +7307,7 @@ static const char *startup_source = " #f)))" "(scopes-register-reachable" " scopes_6" -" v_75" +" v_74" " get-reachable-scopes_0" " reach_2" " register-trigger_0)))" @@ -7297,18 +7316,18 @@ static const char *startup_source = "(if(not #f)" "(for-loop_44" "(unsafe-immutable-hash-iterate-next" -" ht_41" +" ht_40" " i_54))" "(values))))" "(values))))))" " for-loop_44)" -"(unsafe-immutable-hash-iterate-first ht_41))))))" +"(unsafe-immutable-hash-iterate-first ht_40))))))" "(if(not #f)" -"(for-loop_43(unsafe-immutable-hash-iterate-next ht_40 i_53))" +"(for-loop_43(unsafe-immutable-hash-iterate-next ht_39 i_53))" "(values))))" "(values))))))" " for-loop_43)" -"(unsafe-immutable-hash-iterate-first ht_40))))" +"(unsafe-immutable-hash-iterate-first ht_39))))" "(void)" "(if(table-with-bulk-bindings? bt_4)" "(let-values()" @@ -7346,37 +7365,37 @@ static const char *startup_source = "(void))))))" "(define-values" "(scopes-register-reachable)" -"(lambda(scopes_7 v_76 get-reachable-scopes_1 reach_3 register-trigger_1)" +"(lambda(scopes_7 v_75 get-reachable-scopes_1 reach_3 register-trigger_1)" "(begin" "(let-values(((reachable-scopes_2)(get-reachable-scopes_1)))" "(if(subset? scopes_7 reachable-scopes_2)" -"(let-values()(reach_3 v_76))" +"(let-values()(reach_3 v_75))" "(let-values()" "(let-values(((pending-scopes_0)" -"(let-values(((ht_42) scopes_7))" +"(let-values(((ht_41) scopes_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_42)))" +"(let-values()(check-in-immutable-hash-keys ht_41)))" "((letrec-values(((for-loop_46)" -"(lambda(table_58 i_55)" +"(lambda(table_57 i_55)" "(begin" " 'for-loop" "(if i_55" "(let-values(((sc_0)" -"(unsafe-immutable-hash-iterate-key ht_42 i_55)))" -"(let-values(((table_59)" -"(let-values(((table_60) table_58))" -"(if(let-values(((or-part_92)" +"(unsafe-immutable-hash-iterate-key ht_41 i_55)))" +"(let-values(((table_58)" +"(let-values(((table_59) table_57))" +"(if(let-values(((or-part_93)" "(set-member?" " reachable-scopes_2" " sc_0)))" -"(if or-part_92" -" or-part_92" +"(if or-part_93" +" or-part_93" "(implicitly-reachable? sc_0)))" -" table_60" -"(let-values(((table_61) table_60))" -"(let-values(((table_62)" +" table_59" +"(let-values(((table_60) table_59))" +"(let-values(((table_61)" "(let-values()" "(let-values(((key_23" " val_13)" @@ -7386,19 +7405,19 @@ static const char *startup_source = " sc_0)" " #t))))" "(hash-set" -" table_61" +" table_60" " key_23" " val_13)))))" -"(values table_62)))))))" +"(values table_61)))))))" "(if(not #f)" "(for-loop_46" -" table_59" -"(unsafe-immutable-hash-iterate-next ht_42 i_55))" -" table_59)))" -" table_58)))))" +" table_58" +"(unsafe-immutable-hash-iterate-next ht_41 i_55))" +" table_58)))" +" table_57)))))" " for-loop_46)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_42))))))" +"(unsafe-immutable-hash-iterate-first ht_41))))))" "(let-values(((check-trigger_0)" "(lambda(reach_4)" "(begin" @@ -7406,12 +7425,12 @@ static const char *startup_source = "(if(zero?(hash-count pending-scopes_0))" "(let-values()" "(begin" -"(reach_4 v_76)" -"(let-values(((ht_43) scopes_7))" +"(reach_4 v_75)" +"(let-values(((ht_42) scopes_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_43)))" +"(let-values()(check-in-immutable-hash-keys ht_42)))" "((letrec-values(((for-loop_47)" "(lambda(i_56)" "(begin" @@ -7419,7 +7438,7 @@ static const char *startup_source = "(if i_56" "(let-values(((sc_1)" "(unsafe-immutable-hash-iterate-key" -" ht_43" +" ht_42" " i_56)))" "(let-values((()" "(let-values()" @@ -7438,26 +7457,26 @@ static const char *startup_source = "(if(not #f)" "(for-loop_47" "(unsafe-immutable-hash-iterate-next" -" ht_43" +" ht_42" " i_56))" "(values))))" "(values))))))" " for-loop_47)" -"(unsafe-immutable-hash-iterate-first ht_43))))" +"(unsafe-immutable-hash-iterate-first ht_42))))" "(void)))" "(void))))))" "(begin" -"(let-values(((ht_44) pending-scopes_0))" +"(let-values(((ht_43) pending-scopes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_44)))" +"(let-values()(check-in-immutable-hash-keys ht_43)))" "((letrec-values(((for-loop_48)" "(lambda(i_8)" "(begin" " 'for-loop" "(if i_8" -"(let-values(((sc_2)(unsafe-immutable-hash-iterate-key ht_44 i_8)))" +"(let-values(((sc_2)(unsafe-immutable-hash-iterate-key ht_43 i_8)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -7476,11 +7495,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_48(unsafe-immutable-hash-iterate-next ht_44 i_8))" +"(for-loop_48(unsafe-immutable-hash-iterate-next ht_43 i_8))" "(values))))" "(values))))))" " for-loop_48)" -"(unsafe-immutable-hash-iterate-first ht_44))))" +"(unsafe-immutable-hash-iterate-first ht_43))))" "(void)" "(check-trigger_0 reach_3))))))))))" "(define-values" @@ -7488,27 +7507,27 @@ static const char *startup_source = "(let-values()" "(let-values()" "(case-lambda" -"((s_69 key_24)" +"((s_71 key_24)" "(begin" " 'syntax-property" "(let-values((()" "(begin" -"(if(syntax?$1 s_69)" +"(if(syntax?$1 s_71)" "(void)" -" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_69)))" +" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_71)))" "(values))))" -"(let-values(((v_65)(hash-ref(syntax-props s_69) key_24 #f)))(plain-property-value v_65)))))" -"((s_70 key_25 val_14)" +"(let-values(((v_65)(hash-ref(syntax-props s_71) key_24 #f)))(plain-property-value v_65)))))" +"((s_72 key_25 val_14)" "(let-values((()" "(begin" -"(if(syntax?$1 s_70)" +"(if(syntax?$1 s_72)" "(void)" -" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_70)))" +" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_72)))" "(values))))" "(let-values(((pval_0)(if(eq? key_25 'paren-shape)(preserved-property-value1.1 val_14) val_14)))" -"(let-values(((the-struct_3) s_70))" +"(let-values(((the-struct_3) s_72))" "(if(syntax?$1 the-struct_3)" -"(let-values(((props2_0)(hash-set(syntax-props s_70) key_25 pval_0)))" +"(let-values(((props2_0)(hash-set(syntax-props s_72) key_25 pval_0)))" "(syntax1.1" "(syntax-content the-struct_3)" "(syntax-scopes the-struct_3)" @@ -7519,12 +7538,12 @@ static const char *startup_source = " props2_0" "(syntax-inspector the-struct_3)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_3))))))" -"((s_71 key_26 val_15 preserved?_0)" +"((s_73 key_26 val_15 preserved?_0)" "(let-values((()" "(begin" -"(if(syntax?$1 s_71)" +"(if(syntax?$1 s_73)" "(void)" -" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_71)))" +" (let-values () (raise-argument-error 'syntax-property \"syntax?\" s_73)))" "(values))))" "(let-values((()" "(begin" @@ -7543,9 +7562,9 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((pval_1)(if preserved?_0(preserved-property-value1.1 val_15) val_15)))" -"(let-values(((the-struct_4) s_71))" +"(let-values(((the-struct_4) s_73))" "(if(syntax?$1 the-struct_4)" -"(let-values(((props3_0)(hash-set(syntax-props s_71) key_26 pval_1)))" +"(let-values(((props3_0)(hash-set(syntax-props s_73) key_26 pval_1)))" "(syntax1.1" "(syntax-content the-struct_4)" "(syntax-scopes the-struct_4)" @@ -7558,20 +7577,20 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_4)))))))))))" "(define-values" "(1/syntax-property-preserved?)" -"(lambda(s_72 key_27)" +"(lambda(s_74 key_27)" "(begin" " 'syntax-property-preserved?" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_72)" +"(if(syntax?$1 s_74)" "(void)" -" (let-values () (raise-argument-error 'syntax-property-preserved? \"syntax?\" s_72)))" +" (let-values () (raise-argument-error 'syntax-property-preserved? \"syntax?\" s_74)))" "(if(if(symbol? key_27)(symbol-interned? key_27) #f)" "(void)" "(let-values()" " (raise-argument-error 'syntax-property-preserved? \"(and/c symbol? symbol-interned?)\" key_27)))" -"(preserved-property-value?(hash-ref(syntax-props s_72) key_27 #f))))))))" +"(preserved-property-value?(hash-ref(syntax-props s_74) key_27 #f))))))))" "(define-values" "(1/syntax-property-symbol-keys)" "(lambda(s_10)" @@ -7584,18 +7603,18 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'syntax-property-symbol-keys \"syntax\" s_10)))" "(reverse$1" -"(let-values(((ht_45)(syntax-props s_10)))" +"(let-values(((ht_44)(syntax-props s_10)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_45)))" +"(let-values()(check-in-immutable-hash ht_44)))" "((letrec-values(((for-loop_49)" "(lambda(fold-var_26 i_57)" "(begin" " 'for-loop" "(if i_57" "(let-values(((k_16 v_30)" -"(unsafe-immutable-hash-iterate-key+value ht_45 i_57)))" +"(unsafe-immutable-hash-iterate-key+value ht_44 i_57)))" "(let-values(((fold-var_27)" "(let-values(((fold-var_28) fold-var_26))" "(if(if(symbol? k_16)(symbol-interned? k_16) #f)" @@ -7608,25 +7627,25 @@ static const char *startup_source = "(values fold-var_30)))" " fold-var_28))))" "(if(not #f)" -"(for-loop_49 fold-var_27(unsafe-immutable-hash-iterate-next ht_45 i_57))" +"(for-loop_49 fold-var_27(unsafe-immutable-hash-iterate-next ht_44 i_57))" " fold-var_27)))" " fold-var_26)))))" " for-loop_49)" " null" -"(unsafe-immutable-hash-iterate-first ht_45)))))))))))" +"(unsafe-immutable-hash-iterate-first ht_44)))))))))))" "(define-values" "(1/syntax-property-remove)" -"(lambda(s_73 key_28)" +"(lambda(s_75 key_28)" "(begin" " 'syntax-property-remove" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_73) (void) (let-values () (raise-argument-error 'syntax-property-remove \"syntax?\" s_73)))" -"(if(hash-ref(syntax-props s_73) key_28 #f)" -"(let-values(((the-struct_5) s_73))" +" (if (syntax?$1 s_75) (void) (let-values () (raise-argument-error 'syntax-property-remove \"syntax?\" s_75)))" +"(if(hash-ref(syntax-props s_75) key_28 #f)" +"(let-values(((the-struct_5) s_75))" "(if(syntax?$1 the-struct_5)" -"(let-values(((props7_0)(hash-remove(syntax-props s_73) key_28)))" +"(let-values(((props7_0)(hash-remove(syntax-props s_75) key_28)))" "(syntax1.1" "(syntax-content the-struct_5)" "(syntax-scopes the-struct_5)" @@ -7637,13 +7656,13 @@ static const char *startup_source = " props7_0" "(syntax-inspector the-struct_5)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_5)))" -" s_73)))))))" +" s_75)))))))" "(define-values" "(taint-content)" "(lambda(d_2)" "(begin" -"(let-values(((s_71) d_2)" -"((f_24)(lambda(tail?_16 x_27)(begin 'f x_27)))" +"(let-values(((s_73) d_2)" +"((f_25)(lambda(tail?_16 x_27)(begin 'f x_27)))" "((s->_1)" "(lambda(sub-s_0)" "(begin" @@ -7672,16 +7691,16 @@ static const char *startup_source = "(syntax-inspector the-struct_6)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_6)))))))))" "((seen_7) #f))" -"(let-values(((s_74) s_71)" -"((f_4) f_24)" +"(let-values(((s_76) s_73)" +"((f_26) f_25)" "((gf_3)" "(lambda(tail?_17 v_30)" "(begin" " 'gf" -"(if(syntax?$1 v_30)(let-values()(s->_1 v_30))(let-values()(f_24 tail?_17 v_30))))))" +"(if(syntax?$1 v_30)(let-values()(s->_1 v_30))(let-values()(f_25 tail?_17 v_30))))))" "((seen_8) seen_7))" -"((letrec-values(((loop_66)" -"(lambda(tail?_18 s_75 prev-depth_3)" +"((letrec-values(((loop_65)" +"(lambda(tail?_18 s_77 prev-depth_3)" "(begin" " 'loop" "(let-values(((depth_3)(fx+ 1 prev-depth_3)))" @@ -7689,43 +7708,43 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_18" -" s_75" -"(lambda(tail?_19 s_76)(gf_3 tail?_19 s_76))" +" s_77" +"(lambda(tail?_19 s_78)(gf_3 tail?_19 s_78))" " seen_8))" -"(if(null? s_75)" -"(let-values()(f_4 tail?_18 s_75))" -"(if(pair? s_75)" +"(if(null? s_77)" +"(let-values()(f_26 tail?_18 s_77))" +"(if(pair? s_77)" "(let-values()" -"(f_4" +"(f_26" " tail?_18" -"(cons(loop_66 #f(car s_75) depth_3)(loop_66 #t(cdr s_75) depth_3))))" -"(if(symbol? s_75)" -"(let-values()(f_4 #f s_75))" -"(if(boolean? s_75)" -"(let-values()(f_4 #f s_75))" -"(if(number? s_75)" -"(let-values()(f_4 #f s_75))" -"(if(let-values(((or-part_81)(vector? s_75)))" -"(if or-part_81" -" or-part_81" -"(let-values(((or-part_82)(box? s_75)))" +"(cons(loop_65 #f(car s_77) depth_3)(loop_65 #t(cdr s_77) depth_3))))" +"(if(symbol? s_77)" +"(let-values()(f_26 #f s_77))" +"(if(boolean? s_77)" +"(let-values()(f_26 #f s_77))" +"(if(number? s_77)" +"(let-values()(f_26 #f s_77))" +"(if(let-values(((or-part_82)(vector? s_77)))" "(if or-part_82" " or-part_82" -"(let-values(((or-part_83)(prefab-struct-key s_75)))" -"(if or-part_83 or-part_83(hash? s_75)))))))" +"(let-values(((or-part_83)(box? s_77)))" +"(if or-part_83" +" or-part_83" +"(let-values(((or-part_84)(prefab-struct-key s_77)))" +"(if or-part_84 or-part_84(hash? s_77)))))))" "(let-values()" "(datum-map-slow" " tail?_18" -" s_75" +" s_77" "(lambda(tail?_0 s_40)(gf_3 tail?_0 s_40))" " seen_8))" -"(let-values()(gf_3 #f s_75))))))))))))))" -" loop_66)" +"(let-values()(gf_3 #f s_77))))))))))))))" +" loop_65)" " #f" -" s_74" +" s_76" " 0))))))" "(define-values(syntax-tainted?$1)(lambda(s_41)(begin 'syntax-tainted?(tamper-tainted?(syntax-tamper s_41)))))" -"(define-values(syntax-clean?)(lambda(s_77)(begin(tamper-clean?(syntax-tamper s_77)))))" +"(define-values(syntax-clean?)(lambda(s_79)(begin(tamper-clean?(syntax-tamper s_79)))))" "(define-values" "(syntax-arm$1)" "(lambda(s_6 insp_0)" @@ -7735,21 +7754,21 @@ static const char *startup_source = "(if(tamper-tainted? t_17)" "(let-values() s_6)" "(if(if t_17" -"(let-values(((or-part_93)(set-member? t_17 insp_0)))" -"(if or-part_93" -" or-part_93" -"(let-values(((ht_46) t_17))" +"(let-values(((or-part_94)(set-member? t_17 insp_0)))" +"(if or-part_94" +" or-part_94" +"(let-values(((ht_45) t_17))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_46)))" +"(let-values()(check-in-immutable-hash-keys ht_45)))" "((letrec-values(((for-loop_50)" "(lambda(result_32 i_58)" "(begin" " 'for-loop" "(if i_58" "(let-values(((already-insp_0)" -"(unsafe-immutable-hash-iterate-key ht_46 i_58)))" +"(unsafe-immutable-hash-iterate-key ht_45 i_58)))" "(let-values(((result_33)" "(let-values()" "(let-values(((result_34)" @@ -7762,12 +7781,12 @@ static const char *startup_source = "(if(if(not((lambda x_28 result_33) already-insp_0))(not #f) #f)" "(for-loop_50" " result_33" -"(unsafe-immutable-hash-iterate-next ht_46 i_58))" +"(unsafe-immutable-hash-iterate-next ht_45 i_58))" " result_33)))" " result_32)))))" " for-loop_50)" " #f" -"(unsafe-immutable-hash-iterate-first ht_46))))))" +"(unsafe-immutable-hash-iterate-first ht_45))))))" " #f)" "(let-values() s_6)" "(let-values()" @@ -7792,38 +7811,38 @@ static const char *startup_source = "(remove-inferior)" "(lambda(t_19 insp_1)" "(begin" -"(let-values(((ht_47) t_19))" +"(let-values(((ht_46) t_19))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_47)))" +"(let-values()(check-in-immutable-hash-keys ht_46)))" "((letrec-values(((for-loop_51)" -"(lambda(table_63 i_59)" +"(lambda(table_62 i_59)" "(begin" " 'for-loop" "(if i_59" -"(let-values(((already-insp_1)(unsafe-immutable-hash-iterate-key ht_47 i_59)))" -"(let-values(((table_64)" -"(let-values(((table_65) table_63))" +"(let-values(((already-insp_1)(unsafe-immutable-hash-iterate-key ht_46 i_59)))" +"(let-values(((table_63)" +"(let-values(((table_64) table_62))" "(if(inspector-superior-or-same? insp_1 already-insp_1)" -" table_65" -"(let-values(((table_66) table_65))" -"(let-values(((table_67)" +" table_64" +"(let-values(((table_65) table_64))" +"(let-values(((table_66)" "(let-values()" "(let-values(((key_29 val_16)" "(let-values()" "(values" "(let-values() already-insp_1)" " #t))))" -"(hash-set table_66 key_29 val_16)))))" -"(values table_67)))))))" +"(hash-set table_65 key_29 val_16)))))" +"(values table_66)))))))" "(if(not #f)" -"(for-loop_51 table_64(unsafe-immutable-hash-iterate-next ht_47 i_59))" -" table_64)))" -" table_63)))))" +"(for-loop_51 table_63(unsafe-immutable-hash-iterate-next ht_46 i_59))" +" table_63)))" +" table_62)))))" " for-loop_51)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_47)))))))" +"(unsafe-immutable-hash-iterate-first ht_46)))))))" "(define-values" "(syntax-disarm$1)" "(let-values(((syntax-disarm4_0)" @@ -7937,11 +7956,11 @@ static const char *startup_source = "(if(syntax?$1 the-struct_12)" "(let-values(((scope-propagations+tamper12_0)" "(let-values(((t_26)" -"(let-values(((ht_48) from-t_0))" +"(let-values(((ht_47) from-t_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_48)))" +"(let-values()(check-in-immutable-hash-keys ht_47)))" "((letrec-values(((for-loop_52)" "(lambda(t_27 i_60)" "(begin" @@ -7949,7 +7968,7 @@ static const char *startup_source = "(if i_60" "(let-values(((from-i_0)" "(unsafe-immutable-hash-iterate-key" -" ht_48" +" ht_47" " i_60)))" "(let-values(((t_3)" "(let-values(((t_28)" @@ -7978,13 +7997,13 @@ static const char *startup_source = "(for-loop_52" " t_3" "(unsafe-immutable-hash-iterate-next" -" ht_48" +" ht_47" " i_60))" " t_3)))" " t_27)))))" " for-loop_52)" " t_23" -"(unsafe-immutable-hash-iterate-first ht_48)))))" +"(unsafe-immutable-hash-iterate-first ht_47)))))" "((p_11)(syntax-scope-propagations+tamper stx_6)))" "(if(tamper? p_11) t_26((propagation-set-tamper-ref p_11) p_11 t_26)))))" "(syntax1.1" @@ -7999,16 +8018,16 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_12)))))))))))))))" "(define-values" "(syntax-taint$1)" -"(lambda(s_67)" +"(lambda(s_69)" "(begin" " 'syntax-taint" -"(if(tamper-tainted?(syntax-tamper s_67))" -" s_67" -"(let-values(((stx_7) s_67))" +"(if(tamper-tainted?(syntax-tamper s_69))" +" s_69" +"(let-values(((stx_7) s_69))" "(let-values(((the-struct_13) stx_7))" "(if(syntax?$1 the-struct_13)" "(let-values(((scope-propagations+tamper13_0)" -"(let-values(((t_30)(tamper-tainted-for-content(syntax-content s_67)))" +"(let-values(((t_30)(tamper-tainted-for-content(syntax-content s_69)))" "((p_25)(syntax-scope-propagations+tamper stx_7)))" "(if(tamper? p_25) t_30((propagation-set-tamper-ref p_25) p_25 t_30)))))" "(syntax1.1" @@ -8025,17 +8044,17 @@ static const char *startup_source = "(any-superior?)" "(lambda(t_31 from-i_1)" "(begin" -"(let-values(((ht_49) t_31))" +"(let-values(((ht_48) t_31))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_49)))" +"(let-values()(check-in-immutable-hash-keys ht_48)))" "((letrec-values(((for-loop_53)" "(lambda(result_35 i_61)" "(begin" " 'for-loop" "(if i_61" -"(let-values(((i_62)(unsafe-immutable-hash-iterate-key ht_49 i_61)))" +"(let-values(((i_62)(unsafe-immutable-hash-iterate-key ht_48 i_61)))" "(let-values(((result_36)" "(let-values()" "(let-values(((result_37)" @@ -8044,17 +8063,17 @@ static const char *startup_source = "(inspector-superior-or-same? i_62 from-i_1)))))" "(values result_37)))))" "(if(if(not((lambda x_29 result_36) i_62))(not #f) #f)" -"(for-loop_53 result_36(unsafe-immutable-hash-iterate-next ht_49 i_61))" +"(for-loop_53 result_36(unsafe-immutable-hash-iterate-next ht_48 i_61))" " result_36)))" " result_35)))))" " for-loop_53)" " #f" -"(unsafe-immutable-hash-iterate-first ht_49)))))))" +"(unsafe-immutable-hash-iterate-first ht_48)))))))" "(define-values" "(inspector-superior-or-same?)" "(lambda(sup-i_0 i_45)" "(begin" -"(let-values(((or-part_94)(eq? sup-i_0 i_45)))(if or-part_94 or-part_94(inspector-superior? sup-i_0 i_45))))))" +"(let-values(((or-part_95)(eq? sup-i_0 i_45)))(if or-part_95 or-part_95(inspector-superior? sup-i_0 i_45))))))" "(define-values" "(struct:fallback fallback1.1 fallback? fallback-search-list)" "(let-values(((struct:_0 make-_0 ?_0 -ref_0 -set!_0)" @@ -8068,8 +8087,7 @@ static const char *startup_source = "(fallback-rest)" "(lambda(smss_1)" "(begin" -"(let-values(((l_44)(cdr(fallback-search-list smss_1))))" -"(if(null?(cdr l_44))(car l_44)(fallback1.1 l_44))))))" +"(let-values(((l_9)(cdr(fallback-search-list smss_1))))(if(null?(cdr l_9))(car l_9)(fallback1.1 l_9))))))" "(define-values" "(fallback-push)" "(lambda(smss_2 smss/maybe-fallback_0)" @@ -8082,14 +8100,14 @@ static const char *startup_source = "(list smss/maybe-fallback_0)))))))" "(define-values" "(fallback-update-first)" -"(lambda(smss_3 f_25)" +"(lambda(smss_3 f_4)" "(begin" "(if(fallback? smss_3)" -"(let-values(((l_45)(fallback-search-list smss_3)))(fallback1.1(cons(f_25(car l_45))(cdr l_45))))" -"(f_25 smss_3)))))" +"(let-values(((l_44)(fallback-search-list smss_3)))(fallback1.1(cons(f_4(car l_44))(cdr l_44))))" +"(f_4 smss_3)))))" "(define-values" "(fallback-map)" -"(lambda(smss_4 f_26)" +"(lambda(smss_4 f_27)" "(begin" "(if(fallback? smss_4)" "(fallback1.1" @@ -8108,7 +8126,7 @@ static const char *startup_source = "(let-values(((fold-var_34)" "(let-values()" "(cons" -"(let-values()(f_26 smss_5))" +"(let-values()(f_27 smss_5))" " fold-var_33))))" "(values fold-var_34)))))" "(if(not #f)(for-loop_54 fold-var_32 rest_17) fold-var_32)))" @@ -8116,7 +8134,7 @@ static const char *startup_source = " for-loop_54)" " null" " lst_41)))))" -"(f_26 smss_4)))))" +"(f_27 smss_4)))))" "(define-values" "(fallback->list)" "(lambda(smss_6)(begin(if(fallback? smss_6)(fallback-search-list smss_6)(list smss_6)))))" @@ -8162,10 +8180,10 @@ static const char *startup_source = "(begin" "(let-values(((c_15)(weak-box-value(unbox* cache))))" "(if c_15" -"(let-values(((v_77)(hash-ref c_15 sym_12 #f)))" -"(if v_77" -"(if(eqv? phase_4(entry-phase v_77))" -"(if(set=? scs_3(entry-scs v_77))(if(set=? smss_7(entry-smss v_77))(entry-binding v_77) #f) #f)" +"(let-values(((v_76)(hash-ref c_15 sym_12 #f)))" +"(if v_76" +"(if(eqv? phase_4(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)))))" @@ -8221,7 +8239,7 @@ static const char *startup_source = "(begin(set-box*! shifted-cache(make-weak-box vec_17)) vec_17)))))))))" "(define-values" "(resolve+shift-cache-get)" -"(lambda(s_78 phase_6)" +"(lambda(s_80 phase_6)" "(begin" "(let-values(((vec_18)(shifted-cache-vector)))" "(let-values(((vec_13 len_9)" @@ -8241,7 +8259,7 @@ static const char *startup_source = "(let-values()" "(let-values()" "(if e_15" -"(if(eq? s_78(shifted-entry-s e_15))" +"(if(eq? s_80(shifted-entry-s e_15))" "(if(eqv?" " phase_6" "(shifted-entry-phase e_15))" @@ -8259,12 +8277,12 @@ static const char *startup_source = " 0)))))))" "(define-values" "(resolve+shift-cache-set!)" -"(lambda(s_79 phase_7 b_19)" +"(lambda(s_81 phase_7 b_19)" "(begin" "(let-values(((vec_20)(shifted-cache-vector)))" "(let-values(((p_26) shifted-cache-pos))" "(begin" -"(vector*-set! vec_20 p_26(shifted-entry2.1 s_79 phase_7 b_19))" +"(vector*-set! vec_20 p_26(shifted-entry2.1 s_81 phase_7 b_19))" "(set! shifted-cache-pos(fxand(fx+ 1 p_26)(fx- SHIFTED-CACHE-SIZE 1)))))))))" "(define-values(NUM-CACHE-SLOTS) 8)" "(define-values(cached-sets)(make-weak-box(make-vector NUM-CACHE-SLOTS #f)))" @@ -8276,12 +8294,12 @@ static const char *startup_source = "(lambda(s_45)" "(begin" "(let-values(((vec_21)" -"(let-values(((or-part_95)(weak-box-value cached-sets)))" -"(if or-part_95" -" or-part_95" +"(let-values(((or-part_96)(weak-box-value cached-sets)))" +"(if or-part_96" +" or-part_96" "(let-values(((vec_22)(make-vector NUM-CACHE-SLOTS #f)))" "(begin(set! cached-sets(make-weak-box vec_22)) vec_22))))))" -"(let-values(((or-part_96)" +"(let-values(((or-part_97)" "(let-values(((vec_23 len_10)" "(let-values(((vec_24) vec_21))" "(begin(check-vector vec_24)(values vec_24(unsafe-vector-length vec_24))))))" @@ -8309,8 +8327,8 @@ static const char *startup_source = " for-loop_56)" " #f" " 0)))))" -"(if or-part_96" -" or-part_96" +"(if or-part_97" +" or-part_97" "(begin" "(vector*-set! vec_21 cached-sets-pos s_45)" "(set! cached-sets-pos(fxand(fx+ 1 cached-sets-pos)(fx- NUM-CACHE-SLOTS 1)))" @@ -8320,12 +8338,12 @@ static const char *startup_source = "(lambda(s_30)" "(begin" "(let-values(((vec_25)" -"(let-values(((or-part_97)(weak-box-value cached-hashes)))" -"(if or-part_97" -" or-part_97" +"(let-values(((or-part_98)(weak-box-value cached-hashes)))" +"(if or-part_98" +" or-part_98" "(let-values(((vec_11)(make-vector NUM-CACHE-SLOTS #f)))" "(begin(set! cached-hashes(make-weak-box vec_11)) vec_11))))))" -"(let-values(((or-part_98)" +"(let-values(((or-part_99)" "(let-values(((vec_26 len_11)" "(let-values(((vec_27) vec_25))" "(begin(check-vector vec_27)(values vec_27(unsafe-vector-length vec_27))))))" @@ -8353,8 +8371,8 @@ static const char *startup_source = " for-loop_57)" " #f" " 0)))))" -"(if or-part_98" -" or-part_98" +"(if or-part_99" +" or-part_99" "(begin" "(vector*-set! vec_25 cached-hashes-pos s_30)" "(set! cached-hashes-pos(fxand(fx+ 1 cached-hashes-pos)(fx- NUM-CACHE-SLOTS 1)))" @@ -8374,33 +8392,33 @@ static const char *startup_source = "(cons prop:authentic #t)" "(cons" " prop:scope-with-bindings" -"(lambda(s_80 get-reachable-scopes_2 reach_6 register-trigger_2)" +"(lambda(s_82 get-reachable-scopes_2 reach_6 register-trigger_2)" "(binding-table-register-reachable" -"(scope-binding-table s_80)" +"(scope-binding-table s_82)" " get-reachable-scopes_2" " reach_6" " register-trigger_2)))" -"(cons prop:reach-scopes(lambda(s_81 reach_7)(void)))" +"(cons prop:reach-scopes(lambda(s_83 reach_7)(void)))" "(cons" " prop:serialize-fill!" -"(lambda(s_82 ser-push!_6 state_16)" -"(if(binding-table-empty?(scope-binding-table s_82))" +"(lambda(s_84 ser-push!_6 state_16)" +"(if(binding-table-empty?(scope-binding-table s_84))" "(let-values()(ser-push!_6 'tag #f))" "(let-values()" "(begin" "(ser-push!_6 'tag '#:scope-fill!)" -"(ser-push!_6(binding-table-prune-to-reachable(scope-binding-table s_82) state_16)))))))" +"(ser-push!_6(binding-table-prune-to-reachable(scope-binding-table s_84) state_16)))))))" "(cons" " prop:serialize" -"(lambda(s_83 ser-push!_7 state_17)" +"(lambda(s_85 ser-push!_7 state_17)" "(begin" -"(if(set-member?(serialize-state-reachable-scopes state_17) s_83)" +"(if(set-member?(serialize-state-reachable-scopes state_17) s_85)" "(void)" " (let-values () (error \"internal error: found supposedly unreachable scope\")))" -"(if(eq? s_83 top-level-common-scope)" +"(if(eq? s_85 top-level-common-scope)" "(let-values()(ser-push!_7 'tag '#:scope))" "(let-values()" -"(begin(ser-push!_7 'tag '#:scope+kind)(ser-push!_7(scope-kind s_83))))))))" +"(begin(ser-push!_7 'tag '#:scope+kind)(ser-push!_7(scope-kind s_85))))))))" "(cons" " prop:custom-write" "(lambda(sc_3 port_6 mode_6)" @@ -8428,7 +8446,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_84 bt_5)(begin(set-scope-binding-table! s_84 bt_5))))" +"(define-values(deserialize-scope-fill!)(lambda(s_86 bt_5)(begin(set-scope-binding-table! s_86 bt_5))))" "(define-values" "(struct:multi-scope" " multi-scope2.1" @@ -8453,17 +8471,17 @@ static const char *startup_source = " prop:scope-with-bindings" "(lambda(ms_0 get-reachable-scopes_3 reach_8 register-trigger_3)" "(begin" -"(let-values(((ht_50)(multi-scope-scopes ms_0)))" +"(let-values(((ht_49)(multi-scope-scopes ms_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-values ht_50)))" +"(let-values()(check-in-hash-values ht_49)))" "((letrec-values(((for-loop_55)" "(lambda(i_63)" "(begin" " 'for-loop" "(if i_63" -"(let-values(((sc_4)(hash-iterate-value ht_50 i_63)))" +"(let-values(((sc_4)(hash-iterate-value ht_49 i_63)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -8479,13 +8497,13 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_55(hash-iterate-next ht_50 i_63))" +"(for-loop_55(hash-iterate-next ht_49 i_63))" "(values))))" "(values))))))" " for-loop_55)" -"(hash-iterate-first ht_50))))" +"(hash-iterate-first ht_49))))" "(void))))" -"(cons prop:reach-scopes(lambda(s_85 reach_9)(void)))" +"(cons prop:reach-scopes(lambda(s_87 reach_9)(void)))" "(cons" " prop:serialize" "(lambda(ms_1 ser-push!_8 state_18)" @@ -8493,11 +8511,11 @@ static const char *startup_source = "(let-values((()(begin(ser-push!_8(multi-scope-name ms_1))(values))))" "(let-values(((multi-scope-tables_0)(serialize-state-multi-scope-tables state_18)))" "(ser-push!_8" -"(let-values(((or-part_99)" +"(let-values(((or-part_100)" "(hash-ref multi-scope-tables_0(multi-scope-scopes ms_1) #f)))" -"(if or-part_99" -" or-part_99" -"(let-values(((ht_51)(make-hasheqv)))" +"(if or-part_100" +" or-part_100" +"(let-values(((ht_50)(make-hasheqv)))" "(begin" "(let-values(((ht_18)(multi-scope-scopes ms_1)))" "(begin" @@ -8523,7 +8541,7 @@ static const char *startup_source = " sc_5)" "(let-values()" "(hash-set!" -" ht_51" +" ht_50" " phase_8" " sc_5))" "(void)))" @@ -8536,8 +8554,8 @@ static const char *startup_source = " for-loop_3)" "(hash-iterate-first ht_18))))" "(void)" -"(hash-set! multi-scope-tables_0(multi-scope-scopes ms_1) ht_51)" -" ht_51)))))))))))" +"(hash-set! multi-scope-tables_0(multi-scope-scopes ms_1) ht_50)" +" ht_50)))))))))))" "(current-inspector)" " #f" " '(0 1 2 3 4)" @@ -8576,7 +8594,7 @@ static const char *startup_source = "(list" "(cons prop:authentic #t)" "(cons prop:implicitly-reachable #t)" -"(cons prop:reach-scopes(lambda(s_86 reach_10)(reach_10(representative-scope-owner s_86))))" +"(cons prop:reach-scopes(lambda(s_88 reach_10)(reach_10(representative-scope-owner s_88))))" "(cons" " prop:serialize-fill!" "(lambda(s_31 ser-push!_9 state_19)" @@ -8586,11 +8604,11 @@ static const char *startup_source = "(ser-push!_9(representative-scope-owner s_31)))))" "(cons" " prop:serialize" -"(lambda(s_87 ser-push!_10 state_20)" +"(lambda(s_89 ser-push!_10 state_20)" "(begin" "(ser-push!_10 'tag '#:representative-scope)" -"(ser-push!_10(scope-kind s_87))" -"(ser-push!_10(representative-scope-phase s_87)))))" +"(ser-push!_10(scope-kind s_89))" +"(ser-push!_10(representative-scope-phase s_89)))))" "(cons" " prop:custom-write" "(lambda(sc_6 port_7 mode_7)" @@ -8622,11 +8640,11 @@ static const char *startup_source = "(define-values" "(deserialize-representative-scope)" "(lambda(kind_1 phase_9)" -"(begin(let-values(((v_78)(representative-scope3.1(new-deserialize-scope-id!) kind_1 #f #f phase_9))) v_78))))" +"(begin(let-values(((v_77)(representative-scope3.1(new-deserialize-scope-id!) kind_1 #f #f phase_9))) v_77))))" "(define-values" "(deserialize-representative-scope-fill!)" -"(lambda(s_88 bt_6 owner_0)" -"(begin(begin(deserialize-scope-fill! s_88 bt_6)(set-representative-scope-owner! s_88 owner_0)))))" +"(lambda(s_90 bt_6 owner_0)" +"(begin(begin(deserialize-scope-fill! s_90 bt_6)(set-representative-scope-owner! s_90 owner_0)))))" "(define-values" "(struct:shifted-multi-scope" " shifted-multi-scope4.1" @@ -8685,9 +8703,9 @@ static const char *startup_source = "(lambda(boxed-table_0 key_30 make_0)" "(begin" " 'transaction-loop" -"(let-values(((or-part_100)(hash-ref(unbox boxed-table_0) phase_11 #f)))" -"(if or-part_100" -" or-part_100" +"(let-values(((or-part_101)(hash-ref(unbox boxed-table_0) phase_11 #f)))" +"(if or-part_101" +" or-part_101" "(let-values(((val_17)(make_0)))" "(let-values(((current_0)(unbox boxed-table_0)))" "(let-values(((next_3)(hash-set current_0 key_30 val_17)))" @@ -8696,17 +8714,17 @@ static const char *startup_source = "(transaction-loop_0 boxed-table_0 key_30 make_0)))))))))))" "(if(phase? phase_11)" "(let-values()" -"(let-values(((or-part_101)(hash-ref(unbox(multi-scope-shifted multi-scope_1)) phase_11 #f)))" -"(if or-part_101" -" or-part_101" +"(let-values(((or-part_102)(hash-ref(unbox(multi-scope-shifted multi-scope_1)) phase_11 #f)))" +"(if or-part_102" +" or-part_102" "(transaction-loop_0" "(multi-scope-shifted multi-scope_1)" " phase_11" "(lambda()(shifted-multi-scope4.1 phase_11 multi-scope_1))))))" "(let-values()" -"(let-values(((or-part_102)(hash-ref(unbox(multi-scope-label-shifted multi-scope_1)) phase_11 #f)))" -"(if or-part_102" -" or-part_102" +"(let-values(((or-part_103)(hash-ref(unbox(multi-scope-label-shifted multi-scope_1)) phase_11 #f)))" +"(if or-part_103" +" or-part_103" "(transaction-loop_0" "(multi-scope-label-shifted multi-scope_1)" " phase_11" @@ -8751,17 +8769,17 @@ static const char *startup_source = "(multi-scope-to-scope-at-phase)" "(lambda(ms_2 phase_12)" "(begin" -"(let-values(((or-part_103)(hash-ref(multi-scope-scopes ms_2) phase_12 #f)))" -"(if or-part_103" -" or-part_103" -"(let-values(((s_89)" +"(let-values(((or-part_104)(hash-ref(multi-scope-scopes ms_2) phase_12 #f)))" +"(if or-part_104" +" or-part_104" +"(let-values(((s_91)" "(representative-scope3.1" "(if(deserialized-scope-id?(multi-scope-id ms_2))(new-deserialize-scope-id!)(new-scope-id!))" " 'module" " empty-binding-table" " ms_2" " phase_12)))" -"(begin(hash-set!(multi-scope-scopes ms_2) phase_12 s_89) s_89)))))))" +"(begin(hash-set!(multi-scope-scopes ms_2) phase_12 s_91) s_91)))))))" "(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)" "(begin" @@ -8797,17 +8815,17 @@ static const char *startup_source = "(let-values(((the-struct_14) sub-s_1))" "(if(syntax?$1 the-struct_14)" "(let-values(((scopes48_1)" -"(propagation-apply prop_3(syntax-scopes sub-s_1) s_90))" +"(propagation-apply prop_3(syntax-scopes sub-s_1) s_92))" "((shifted-multi-scopes49_0)" "(propagation-apply-shifted" " prop_3" "(syntax-shifted-multi-scopes sub-s_1)" -" s_90))" +" s_92))" "((mpi-shifts50_0)" "(propagation-apply-mpi-shifts" " prop_3" "(syntax-mpi-shifts sub-s_1)" -" s_90))" +" s_92))" "((inspector51_0)" "(propagation-apply-inspector" " prop_3" @@ -8853,18 +8871,18 @@ static const char *startup_source = "(syntax-inspector the-struct_15)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_15))))))))" "((seen_9) #f))" -"(let-values(((s_92) s_91)" -"((f_28) f_27)" +"(let-values(((s_94) s_93)" +"((f_29) f_28)" "((gf_4)" -"(lambda(tail?_21 v_79)" +"(lambda(tail?_21 v_78)" "(begin" " 'gf" -"(if(syntax?$1 v_79)" -"(let-values()(s->_2 v_79))" -"(let-values()(f_27 tail?_21 v_79))))))" +"(if(syntax?$1 v_78)" +"(let-values()(s->_2 v_78))" +"(let-values()(f_28 tail?_21 v_78))))))" "((seen_10) seen_9))" -"((letrec-values(((loop_67)" -"(lambda(tail?_22 s_93 prev-depth_4)" +"((letrec-values(((loop_66)" +"(lambda(tail?_22 s_95 prev-depth_4)" "(begin" " 'loop" "(let-values(((depth_4)(fx+ 1 prev-depth_4)))" @@ -8872,64 +8890,64 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_22" -" s_93" -"(lambda(tail?_23 s_94)(gf_4 tail?_23 s_94))" +" s_95" +"(lambda(tail?_23 s_96)(gf_4 tail?_23 s_96))" " seen_10))" -"(if(null? s_93)" -"(let-values()(f_28 tail?_22 s_93))" -"(if(pair? s_93)" +"(if(null? s_95)" +"(let-values()(f_29 tail?_22 s_95))" +"(if(pair? s_95)" "(let-values()" -"(f_28" +"(f_29" " tail?_22" "(cons" -"(loop_67 #f(car s_93) depth_4)" -"(loop_67 #t(cdr s_93) depth_4))))" -"(if(symbol? s_93)" -"(let-values()(f_28 #f s_93))" -"(if(boolean? s_93)" -"(let-values()(f_28 #f s_93))" -"(if(number? s_93)" -"(let-values()(f_28 #f s_93))" -"(if(let-values(((or-part_105)(vector? s_93)))" -"(if or-part_105" -" or-part_105" -"(let-values(((or-part_106)(box? s_93)))" +"(loop_66 #f(car s_95) depth_4)" +"(loop_66 #t(cdr s_95) depth_4))))" +"(if(symbol? s_95)" +"(let-values()(f_29 #f s_95))" +"(if(boolean? s_95)" +"(let-values()(f_29 #f s_95))" +"(if(number? s_95)" +"(let-values()(f_29 #f s_95))" +"(if(let-values(((or-part_106)(vector? s_95)))" "(if or-part_106" " or-part_106" -"(let-values(((or-part_107)" -"(prefab-struct-key s_93)))" +"(let-values(((or-part_107)(box? s_95)))" "(if or-part_107" " or-part_107" -"(hash? s_93)))))))" +"(let-values(((or-part_108)" +"(prefab-struct-key s_95)))" +"(if or-part_108" +" or-part_108" +"(hash? s_95)))))))" "(let-values()" "(datum-map-slow" " tail?_22" -" s_93" -"(lambda(tail?_24 s_95)(gf_4 tail?_24 s_95))" +" s_95" +"(lambda(tail?_24 s_97)(gf_4 tail?_24 s_97))" " seen_10))" -"(let-values()(gf_4 #f s_93))))))))))))))" -" loop_67)" +"(let-values()(gf_4 #f s_95))))))))))))))" +" loop_66)" " #f" -" s_92" +" s_94" " 0)))))" "(begin" -"(set-syntax-content! s_90 new-content_0)" +"(set-syntax-content! s_92 new-content_0)" "(set-syntax-scope-propagations+tamper!" -" s_90" +" s_92" "(tamper-propagated(if(propagation? prop_3)(propagation-tamper prop_3) prop_3)))" " new-content_0))" -"(syntax-content s_90))))))" +"(syntax-content s_92))))))" "(define-values" "(syntax-e$1)" -"(lambda(s_96)" +"(lambda(s_98)" "(begin" " 'syntax-e" -"(let-values(((e_16)(syntax-content s_96)))" +"(let-values(((e_16)(syntax-content s_98)))" "(if(symbol? e_16)" "(let-values() e_16)" "(let-values()" -"(let-values(((content_6)(syntax-e/no-taint s_96)))" -"(if(not(tamper-armed?(syntax-scope-propagations+tamper s_96)))" +"(let-values(((content_6)(syntax-e/no-taint s_98)))" +"(if(not(tamper-armed?(syntax-scope-propagations+tamper s_98)))" "(let-values() content_6)" "(if(datum-has-elements? content_6)" "(let-values()(taint-content content_6))" @@ -8943,25 +8961,25 @@ static const char *startup_source = " sc_7))))" "(define-values" "(add-scope)" -"(lambda(s_97 sc_8)" +"(lambda(s_99 sc_8)" "(begin" -"(let-values(((s_98) s_97)((sc_9)(generalize-scope sc_8))((op_0) set-add)((prop-op_0) propagation-add))" +"(let-values(((s_100) s_99)((sc_9)(generalize-scope sc_8))((op_0) set-add)((prop-op_0) propagation-add))" "(if(shifted-multi-scope? sc_9)" -"(let-values(((the-struct_16) s_98))" +"(let-values(((the-struct_16) s_100))" "(if(syntax?$1 the-struct_16)" "(let-values(((shifted-multi-scopes54_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_98)" +"(syntax-shifted-multi-scopes s_100)" "(lambda(smss_9)(op_0(fallback-first smss_9) sc_9))))" "((scope-propagations+tamper55_0)" -"(if(datum-has-elements?(syntax-content s_98))" +"(if(datum-has-elements?(syntax-content s_100))" "(prop-op_0" -"(syntax-scope-propagations+tamper s_98)" +"(syntax-scope-propagations+tamper s_100)" " sc_9" -"(syntax-scopes s_98)" -"(syntax-shifted-multi-scopes s_98)" -"(syntax-mpi-shifts s_98))" -"(syntax-scope-propagations+tamper s_98))))" +"(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)" "(syntax-scopes the-struct_16)" @@ -8972,18 +8990,18 @@ static const char *startup_source = "(syntax-props the-struct_16)" "(syntax-inspector the-struct_16)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_16)))" -"(let-values(((the-struct_17) s_98))" +"(let-values(((the-struct_17) s_100))" "(if(syntax?$1 the-struct_17)" -"(let-values(((scopes56_0)(op_0(syntax-scopes s_98) sc_9))" +"(let-values(((scopes56_0)(op_0(syntax-scopes s_100) sc_9))" "((scope-propagations+tamper57_0)" -"(if(datum-has-elements?(syntax-content s_98))" +"(if(datum-has-elements?(syntax-content s_100))" "(prop-op_0" -"(syntax-scope-propagations+tamper s_98)" +"(syntax-scope-propagations+tamper s_100)" " sc_9" -"(syntax-scopes s_98)" -"(syntax-shifted-multi-scopes s_98)" -"(syntax-mpi-shifts s_98))" -"(syntax-scope-propagations+tamper s_98))))" +"(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_17)" " scopes56_0" @@ -8996,50 +9014,50 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_17))))))))" "(define-values" "(add-scopes)" -"(lambda(s_99 scs_5)" +"(lambda(s_101 scs_5)" "(begin" "(let-values(((lst_43) scs_5))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_43)))" "((letrec-values(((for-loop_58)" -"(lambda(s_100 lst_44)" +"(lambda(s_102 lst_44)" "(begin" " 'for-loop" "(if(pair? lst_44)" "(let-values(((sc_10)(unsafe-car lst_44))((rest_18)(unsafe-cdr lst_44)))" -"(let-values(((s_101)" -"(let-values(((s_102) s_100))" -"(let-values(((s_103)(let-values()(add-scope s_102 sc_10))))" -"(values s_103)))))" -"(if(not #f)(for-loop_58 s_101 rest_18) s_101)))" -" s_100)))))" +"(let-values(((s_103)" +"(let-values(((s_104) s_102))" +"(let-values(((s_105)(let-values()(add-scope s_104 sc_10))))" +"(values s_105)))))" +"(if(not #f)(for-loop_58 s_103 rest_18) s_103)))" +" s_102)))))" " for-loop_58)" -" s_99" +" s_101" " lst_43))))))" "(define-values" "(remove-scope)" -"(lambda(s_104 sc_11)" +"(lambda(s_106 sc_11)" "(begin" -"(let-values(((s_105) s_104)" +"(let-values(((s_107) s_106)" "((sc_12)(generalize-scope sc_11))" "((op_1) set-remove)" "((prop-op_1) propagation-remove))" "(if(shifted-multi-scope? sc_12)" -"(let-values(((the-struct_18) s_105))" +"(let-values(((the-struct_18) s_107))" "(if(syntax?$1 the-struct_18)" "(let-values(((shifted-multi-scopes58_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_105)" +"(syntax-shifted-multi-scopes s_107)" "(lambda(smss_10)(op_1(fallback-first smss_10) sc_12))))" "((scope-propagations+tamper59_0)" -"(if(datum-has-elements?(syntax-content s_105))" +"(if(datum-has-elements?(syntax-content s_107))" "(prop-op_1" -"(syntax-scope-propagations+tamper s_105)" +"(syntax-scope-propagations+tamper s_107)" " sc_12" -"(syntax-scopes s_105)" -"(syntax-shifted-multi-scopes s_105)" -"(syntax-mpi-shifts s_105))" -"(syntax-scope-propagations+tamper s_105))))" +"(syntax-scopes s_107)" +"(syntax-shifted-multi-scopes s_107)" +"(syntax-mpi-shifts s_107))" +"(syntax-scope-propagations+tamper s_107))))" "(syntax1.1" "(syntax-content the-struct_18)" "(syntax-scopes the-struct_18)" @@ -9050,18 +9068,18 @@ static const char *startup_source = "(syntax-props the-struct_18)" "(syntax-inspector the-struct_18)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_18)))" -"(let-values(((the-struct_19) s_105))" +"(let-values(((the-struct_19) s_107))" "(if(syntax?$1 the-struct_19)" -"(let-values(((scopes60_0)(op_1(syntax-scopes s_105) sc_12))" +"(let-values(((scopes60_0)(op_1(syntax-scopes s_107) sc_12))" "((scope-propagations+tamper61_0)" -"(if(datum-has-elements?(syntax-content s_105))" +"(if(datum-has-elements?(syntax-content s_107))" "(prop-op_1" -"(syntax-scope-propagations+tamper s_105)" +"(syntax-scope-propagations+tamper s_107)" " sc_12" -"(syntax-scopes s_105)" -"(syntax-shifted-multi-scopes s_105)" -"(syntax-mpi-shifts s_105))" -"(syntax-scope-propagations+tamper s_105))))" +"(syntax-scopes s_107)" +"(syntax-shifted-multi-scopes s_107)" +"(syntax-mpi-shifts s_107))" +"(syntax-scope-propagations+tamper s_107))))" "(syntax1.1" "(syntax-content the-struct_19)" " scopes60_0" @@ -9074,50 +9092,50 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_19))))))))" "(define-values" "(remove-scopes)" -"(lambda(s_106 scs_6)" +"(lambda(s_108 scs_6)" "(begin" "(let-values(((lst_45) scs_6))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_45)))" "((letrec-values(((for-loop_40)" -"(lambda(s_107 lst_46)" +"(lambda(s_109 lst_46)" "(begin" " 'for-loop" "(if(pair? lst_46)" "(let-values(((sc_13)(unsafe-car lst_46))((rest_19)(unsafe-cdr lst_46)))" -"(let-values(((s_108)" -"(let-values(((s_109) s_107))" -"(let-values(((s_110)(let-values()(remove-scope s_109 sc_13))))" -"(values s_110)))))" -"(if(not #f)(for-loop_40 s_108 rest_19) s_108)))" -" s_107)))))" +"(let-values(((s_110)" +"(let-values(((s_111) s_109))" +"(let-values(((s_112)(let-values()(remove-scope s_111 sc_13))))" +"(values s_112)))))" +"(if(not #f)(for-loop_40 s_110 rest_19) s_110)))" +" s_109)))))" " for-loop_40)" -" s_106" +" s_108" " lst_45))))))" "(define-values" "(set-flip)" -"(lambda(s_111 e_17)(begin(if(set-member? s_111 e_17)(set-remove s_111 e_17)(set-add s_111 e_17)))))" +"(lambda(s_113 e_17)(begin(if(set-member? s_113 e_17)(set-remove s_113 e_17)(set-add s_113 e_17)))))" "(define-values" "(flip-scope)" -"(lambda(s_112 sc_14)" +"(lambda(s_114 sc_14)" "(begin" -"(let-values(((s_113) s_112)((sc_15)(generalize-scope sc_14))((op_2) set-flip)((prop-op_2) propagation-flip))" +"(let-values(((s_115) s_114)((sc_15)(generalize-scope sc_14))((op_2) set-flip)((prop-op_2) propagation-flip))" "(if(shifted-multi-scope? sc_15)" -"(let-values(((the-struct_20) s_113))" +"(let-values(((the-struct_20) s_115))" "(if(syntax?$1 the-struct_20)" "(let-values(((shifted-multi-scopes62_0)" "(fallback-update-first" -"(syntax-shifted-multi-scopes s_113)" +"(syntax-shifted-multi-scopes s_115)" "(lambda(smss_11)(op_2(fallback-first smss_11) sc_15))))" "((scope-propagations+tamper63_0)" -"(if(datum-has-elements?(syntax-content s_113))" +"(if(datum-has-elements?(syntax-content s_115))" "(prop-op_2" -"(syntax-scope-propagations+tamper s_113)" +"(syntax-scope-propagations+tamper s_115)" " sc_15" -"(syntax-scopes s_113)" -"(syntax-shifted-multi-scopes s_113)" -"(syntax-mpi-shifts s_113))" -"(syntax-scope-propagations+tamper s_113))))" +"(syntax-scopes s_115)" +"(syntax-shifted-multi-scopes s_115)" +"(syntax-mpi-shifts s_115))" +"(syntax-scope-propagations+tamper s_115))))" "(syntax1.1" "(syntax-content the-struct_20)" "(syntax-scopes the-struct_20)" @@ -9128,18 +9146,18 @@ static const char *startup_source = "(syntax-props the-struct_20)" "(syntax-inspector the-struct_20)))" " (raise-argument-error 'struct-copy \"syntax?\" the-struct_20)))" -"(let-values(((the-struct_21) s_113))" +"(let-values(((the-struct_21) s_115))" "(if(syntax?$1 the-struct_21)" -"(let-values(((scopes64_0)(op_2(syntax-scopes s_113) sc_15))" +"(let-values(((scopes64_0)(op_2(syntax-scopes s_115) sc_15))" "((scope-propagations+tamper65_0)" -"(if(datum-has-elements?(syntax-content s_113))" +"(if(datum-has-elements?(syntax-content s_115))" "(prop-op_2" -"(syntax-scope-propagations+tamper s_113)" +"(syntax-scope-propagations+tamper s_115)" " sc_15" -"(syntax-scopes s_113)" -"(syntax-shifted-multi-scopes s_113)" -"(syntax-mpi-shifts s_113))" -"(syntax-scope-propagations+tamper s_113))))" +"(syntax-scopes s_115)" +"(syntax-shifted-multi-scopes s_115)" +"(syntax-mpi-shifts s_115))" +"(syntax-scope-propagations+tamper s_115))))" "(syntax1.1" "(syntax-content the-struct_21)" " scopes64_0" @@ -9152,29 +9170,29 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_21))))))))" "(define-values" "(flip-scopes)" -"(lambda(s_114 scs_7)" +"(lambda(s_116 scs_7)" "(begin" "(let-values(((lst_47) scs_7))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_47)))" "((letrec-values(((for-loop_59)" -"(lambda(s_115 lst_48)" +"(lambda(s_117 lst_48)" "(begin" " 'for-loop" "(if(pair? lst_48)" "(let-values(((sc_16)(unsafe-car lst_48))((rest_20)(unsafe-cdr lst_48)))" -"(let-values(((s_116)" -"(let-values(((s_117) s_115))" -"(let-values(((s_118)(let-values()(flip-scope s_117 sc_16))))" -"(values s_118)))))" -"(if(not #f)(for-loop_59 s_116 rest_20) s_116)))" -" s_115)))))" +"(let-values(((s_118)" +"(let-values(((s_119) s_117))" +"(let-values(((s_120)(let-values()(flip-scope s_119 sc_16))))" +"(values s_120)))))" +"(if(not #f)(for-loop_59 s_118 rest_20) s_118)))" +" s_117)))))" " for-loop_59)" -" s_114" +" s_116" " lst_47))))))" "(define-values" "(push-scope)" -"(lambda(s_119 sms_6)" +"(lambda(s_121 sms_6)" "(begin" "(let-values(((smss/maybe-fallbacks66_0) #f))" "(let-values(((prev-result_0) #f))" @@ -9200,17 +9218,17 @@ static const char *startup_source = "(set! smss/maybe-fallbacks66_0 smss/maybe-fallbacks_0)" "(set! prev-result_0 r_22)" " r_22))))))))" -"(let-values(((s_120) s_119)" -"((f_29)(lambda(tail?_25 x_34)(begin 'f x_34)))" +"(let-values(((s_122) s_121)" +"((f_30)(lambda(tail?_25 x_34)(begin 'f x_34)))" "((d->s_1)" -"(lambda(s_121 d_3)" +"(lambda(s_123 d_3)" "(begin" " 'd->s" -"(let-values(((the-struct_22) s_121))" +"(let-values(((the-struct_22) s_123))" "(if(syntax?$1 the-struct_22)" "(let-values(((content67_0) d_3)" "((shifted-multi-scopes68_0)" -"(push_0(syntax-shifted-multi-scopes s_121))))" +"(push_0(syntax-shifted-multi-scopes s_123))))" "(syntax1.1" " content67_0" "(syntax-scopes the-struct_22)" @@ -9223,22 +9241,22 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_22))))))" "((s-e_1) syntax-e/no-taint)" "((seen_11) #f))" -"((letrec-values(((loop_68)" -"(lambda(s_122)" +"((letrec-values(((loop_67)" +"(lambda(s_124)" "(begin" " 'loop" -"(let-values(((s_123) s_122)" -"((f_30) f_29)" +"(let-values(((s_125) s_124)" +"((f_31) f_30)" "((gf_5)" -"(lambda(tail?_26 v_80)" +"(lambda(tail?_26 v_79)" "(begin" " 'gf" -"(if(syntax?$1 v_80)" -"(let-values()(d->s_1 v_80(loop_68(s-e_1 v_80))))" -"(let-values()(f_29 tail?_26 v_80))))))" +"(if(syntax?$1 v_79)" +"(let-values()(d->s_1 v_79(loop_67(s-e_1 v_79))))" +"(let-values()(f_30 tail?_26 v_79))))))" "((seen_12) seen_11))" -"((letrec-values(((loop_69)" -"(lambda(tail?_27 s_124 prev-depth_5)" +"((letrec-values(((loop_68)" +"(lambda(tail?_27 s_126 prev-depth_5)" "(begin" " 'loop" "(let-values(((depth_5)(fx+ 1 prev-depth_5)))" @@ -9246,52 +9264,52 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_27" -" s_124" -"(lambda(tail?_28 s_125)(gf_5 tail?_28 s_125))" +" s_126" +"(lambda(tail?_28 s_127)(gf_5 tail?_28 s_127))" " seen_12))" -"(if(null? s_124)" -"(let-values()(f_30 tail?_27 s_124))" -"(if(pair? s_124)" +"(if(null? s_126)" +"(let-values()(f_31 tail?_27 s_126))" +"(if(pair? s_126)" "(let-values()" -"(f_30" +"(f_31" " tail?_27" "(cons" -"(loop_69 #f(car s_124) depth_5)" -"(loop_69 #t(cdr s_124) depth_5))))" -"(if(symbol? s_124)" -"(let-values()(f_30 #f s_124))" -"(if(boolean? s_124)" -"(let-values()(f_30 #f s_124))" -"(if(number? s_124)" -"(let-values()(f_30 #f s_124))" -"(if(let-values(((or-part_108)" -"(vector? s_124)))" -"(if or-part_108" -" or-part_108" -"(let-values(((or-part_109)" -"(box? s_124)))" +"(loop_68 #f(car s_126) depth_5)" +"(loop_68 #t(cdr s_126) depth_5))))" +"(if(symbol? s_126)" +"(let-values()(f_31 #f s_126))" +"(if(boolean? s_126)" +"(let-values()(f_31 #f s_126))" +"(if(number? s_126)" +"(let-values()(f_31 #f s_126))" +"(if(let-values(((or-part_109)" +"(vector? s_126)))" "(if or-part_109" " or-part_109" "(let-values(((or-part_110)" -"(prefab-struct-key" -" s_124)))" +"(box? s_126)))" "(if or-part_110" " or-part_110" -"(hash? s_124)))))))" +"(let-values(((or-part_111)" +"(prefab-struct-key" +" s_126)))" +"(if or-part_111" +" or-part_111" +"(hash? s_126)))))))" "(let-values()" "(datum-map-slow" " tail?_27" -" s_124" -"(lambda(tail?_29 s_126)" -"(gf_5 tail?_29 s_126))" +" s_126" +"(lambda(tail?_29 s_128)" +"(gf_5 tail?_29 s_128))" " seen_12))" -"(let-values()(gf_5 #f s_124))))))))))))))" -" loop_69)" -" #f" -" s_123" -" 0))))))" +"(let-values()(gf_5 #f s_126))))))))))))))" " loop_68)" -" s_120))))))))" +" #f" +" s_125" +" 0))))))" +" loop_67)" +" s_122))))))))" "(define-values" "(struct:propagation" " propagation14.1" @@ -9314,7 +9332,7 @@ static const char *startup_source = " #f" "(list" "(cons prop:authentic #t)" -"(cons prop:propagation-set-tamper(lambda(p_28 v_81)(propagation-set-tamper p_28 v_81)))" +"(cons prop:propagation-set-tamper(lambda(p_28 v_80)(propagation-set-tamper p_28 v_80)))" "(cons prop:propagation-tamper(lambda(p_29)(propagation-tamper p_29)))" "(cons prop:propagation syntax-e$1))" "(current-inspector)" @@ -9416,10 +9434,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-shifts73(add_0(base-add_0 mss_0))))" -"(let-values(((or-part_111) add_0))(if or-part_111 or-part_111 base-add_0)))))" +"(let-values(((or-part_112) add_0))(if or-part_112 or-part_112 base-add_0)))))" "((inspector74_0)" -"(let-values(((or-part_112)(propagation-inspector prop_7)))" -"(if or-part_112 or-part_112 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_26)" "(propagation-prev-smss the-struct_26)" @@ -9438,18 +9456,18 @@ static const char *startup_source = "(let-values()(syntax-scopes parent-s_0))" "(let-values()" "(let-values(((new-scs_0)" -"(let-values(((ht_52)(propagation-scope-ops prop_8)))" +"(let-values(((ht_51)(propagation-scope-ops prop_8)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_52)))" +"(let-values()(check-in-immutable-hash ht_51)))" "((letrec-values(((for-loop_60)" "(lambda(scs_9 i_65)" "(begin" " 'for-loop" "(if i_65" "(let-values(((sc_20 op_3)" -"(unsafe-immutable-hash-iterate-key+value ht_52 i_65)))" +"(unsafe-immutable-hash-iterate-key+value ht_51 i_65)))" "(let-values(((scs_10)" "(let-values(((scs_11) scs_9))" "(if(not(shifted-multi-scope? sc_20))" @@ -9476,12 +9494,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_60" " scs_10" -"(unsafe-immutable-hash-iterate-next ht_52 i_65))" +"(unsafe-immutable-hash-iterate-next ht_51 i_65))" " scs_10)))" " scs_9)))))" " for-loop_60)" " scs_8" -"(unsafe-immutable-hash-iterate-first ht_52))))))" +"(unsafe-immutable-hash-iterate-first ht_51))))))" "(if(set=? new-scs_0(syntax-scopes parent-s_0))" "(syntax-scopes parent-s_0)" "(cache-or-reuse-set new-scs_0))))))))" @@ -9493,18 +9511,18 @@ static const char *startup_source = "(let-values()(syntax-shifted-multi-scopes parent-s_1))" "(let-values()" "(let-values(((new-smss_0)" -"(let-values(((ht_53)(propagation-scope-ops prop_9)))" +"(let-values(((ht_52)(propagation-scope-ops prop_9)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_53)))" +"(let-values()(check-in-immutable-hash ht_52)))" "((letrec-values(((for-loop_61)" "(lambda(smss_14 i_66)" "(begin" " 'for-loop" "(if i_66" "(let-values(((sms_7 op_4)" -"(unsafe-immutable-hash-iterate-key+value ht_53 i_66)))" +"(unsafe-immutable-hash-iterate-key+value ht_52 i_66)))" "(let-values(((smss_15)" "(let-values(((smss_16) smss_14))" "(if(shifted-multi-scope? sms_7)" @@ -9537,12 +9555,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_61" " smss_15" -"(unsafe-immutable-hash-iterate-next ht_53 i_66))" +"(unsafe-immutable-hash-iterate-next ht_52 i_66))" " smss_15)))" " smss_14)))))" " for-loop_61)" " smss_13" -"(unsafe-immutable-hash-iterate-first ht_53))))))" +"(unsafe-immutable-hash-iterate-first ht_52))))))" "(let-values(((parent-smss_0)(syntax-shifted-multi-scopes parent-s_1)))" "(if(if(set? new-smss_0)(if(set? parent-smss_0)(set=? new-smss_0 parent-smss_0) #f) #f)" " parent-smss_0" @@ -9557,7 +9575,7 @@ static const char *startup_source = "(define-values" "(propagation-apply-inspector)" "(lambda(prop_11 i_67)" -"(begin(let-values(((or-part_113) i_67))(if or-part_113 or-part_113(propagation-inspector prop_11))))))" +"(begin(let-values(((or-part_114) i_67))(if or-part_114 or-part_114(propagation-inspector prop_11))))))" "(define-values" "(propagation-set-tamper)" "(lambda(prop_12 t_33)" @@ -9603,11 +9621,11 @@ static const char *startup_source = "(if(tamper-tainted?(propagation-tamper prop_13)) 'tainted/need-propagate base-prop_0)))))" "(let-values()" "(let-values(((new-ops_0)" -"(let-values(((ht_54)(propagation-scope-ops prop_13)))" +"(let-values(((ht_53)(propagation-scope-ops prop_13)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_54)))" +"(let-values()(check-in-immutable-hash ht_53)))" "((letrec-values(((for-loop_62)" "(lambda(ops_1 i_68)" "(begin" @@ -9615,7 +9633,7 @@ static const char *startup_source = "(if i_68" "(let-values(((sc_21 op_5)" "(unsafe-immutable-hash-iterate-key+value" -" ht_54" +" ht_53" " i_68)))" "(let-values(((ops_2)" "(let-values(((ops_3) ops_1))" @@ -9674,17 +9692,17 @@ static const char *startup_source = "(if(not #f)" "(for-loop_62" " ops_2" -"(unsafe-immutable-hash-iterate-next ht_54 i_68))" +"(unsafe-immutable-hash-iterate-next ht_53 i_68))" " ops_2)))" " ops_1)))))" " for-loop_62)" "(propagation-scope-ops base-prop_0)" -"(unsafe-immutable-hash-iterate-first ht_54))))))" +"(unsafe-immutable-hash-iterate-first ht_53))))))" "(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_114)(tamper-tainted?(propagation-tamper prop_13))))" -"(if or-part_114 or-part_114(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))" @@ -9701,10 +9719,10 @@ static const char *startup_source = "((add-mpi-shifts77_0)" "(if(if add_2 base-add_1 #f)" "(lambda(mss_2)(begin 'add-mpi-shifts77(add_2(base-add_1 mss_2))))" -"(let-values(((or-part_115) add_2))(if or-part_115 or-part_115 base-add_1))))" +"(let-values(((or-part_116) add_2))(if or-part_116 or-part_116 base-add_1))))" "((inspector78_0)" -"(let-values(((or-part_116)(propagation-inspector base-prop_0)))" -"(if or-part_116 or-part_116(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))))" "((tamper79_0) new-tamper_0))" "(propagation14.1" "(propagation-prev-scs the-struct_28)" @@ -9737,11 +9755,11 @@ static const char *startup_source = "(shifted-multi-scope-multi-scope sms_8)))))))))" "(define-values" "(syntax-shift-phase-level$1)" -"(lambda(s_127 phase_13)" +"(lambda(s_129 phase_13)" "(begin" " 'syntax-shift-phase-level" "(if(eqv? phase_13 0)" -" s_127" +" s_129" "(let-values()" "(let-values(((smss80_0) #f))" "(let-values(((prev-result_1) #f))" @@ -9757,21 +9775,21 @@ static const char *startup_source = "(fallback-map" " smss_20" "(lambda(smss_21)" -"(let-values(((ht_55) smss_21))" +"(let-values(((ht_54) smss_21))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_55)))" +"(let-values()(check-in-immutable-hash-keys ht_54)))" "((letrec-values(((for-loop_63)" -"(lambda(table_68 i_69)" +"(lambda(table_67 i_69)" "(begin" " 'for-loop" "(if i_69" "(let-values(((sms_9)" "(unsafe-immutable-hash-iterate-key" -" ht_55" +" ht_54" " i_69)))" -"(let-values(((table_69)" +"(let-values(((table_68)" "(let-values(((new-sms_0)" "(shift-multi-scope" " sms_9" @@ -9779,17 +9797,17 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_64)" -"(lambda(table_70)" +"(lambda(table_69)" "(begin" " 'for-loop" "(let-values()" +"(let-values(((table_70)" "(let-values(((table_71)" -"(let-values(((table_72)" -" table_70))" +" table_69))" "(if new-sms_0" +"(let-values(((table_72)" +" table_71))" "(let-values(((table_73)" -" table_72))" -"(let-values(((table_74)" "(let-values()" "(let-values(((key_31" " val_18)" @@ -9799,38 +9817,38 @@ static const char *startup_source = " new-sms_0)" " #t))))" "(hash-set" -" table_73" +" table_72" " key_31" " val_18)))))" "(values" -" table_74)))" -" table_72))))" -" table_71))))))" +" table_73)))" +" table_71))))" +" table_70))))))" " for-loop_64)" -" table_68)))))" +" table_67)))))" "(if(not #f)" "(for-loop_63" -" table_69" +" table_68" "(unsafe-immutable-hash-iterate-next" -" ht_55" +" ht_54" " i_69))" -" table_69)))" -" table_68)))))" +" table_68)))" +" table_67)))))" " for-loop_63)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_55)))))))))" +"(unsafe-immutable-hash-iterate-first ht_54)))))))))" "(begin(set! smss80_0 smss_20)(set! prev-result_1 r_23) r_23))))))))" -"(let-values(((s_128) s_127)" -"((f_31)(lambda(tail?_30 d_4)(begin 'f d_4)))" +"(let-values(((s_130) s_129)" +"((f_32)(lambda(tail?_30 d_4)(begin 'f d_4)))" "((d->s_2)" -"(lambda(s_129 d_5)" +"(lambda(s_131 d_5)" "(begin" " 'd->s" -"(let-values(((the-struct_29) s_129))" +"(let-values(((the-struct_29) s_131))" "(if(syntax?$1 the-struct_29)" "(let-values(((content81_0) d_5)" "((shifted-multi-scopes82_0)" -"(shift-all_0(syntax-shifted-multi-scopes s_129))))" +"(shift-all_0(syntax-shifted-multi-scopes s_131))))" "(syntax1.1" " content81_0" "(syntax-scopes the-struct_29)" @@ -9843,22 +9861,22 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_29))))))" "((s-e_2) syntax-e/no-taint)" "((seen_13) #f))" -"((letrec-values(((loop_70)" -"(lambda(s_130)" +"((letrec-values(((loop_69)" +"(lambda(s_132)" "(begin" " 'loop" -"(let-values(((s_131) s_130)" -"((f_32) f_31)" +"(let-values(((s_133) s_132)" +"((f_33) f_32)" "((gf_6)" -"(lambda(tail?_31 v_82)" +"(lambda(tail?_31 v_81)" "(begin" " 'gf" -"(if(syntax?$1 v_82)" -"(let-values()(d->s_2 v_82(loop_70(s-e_2 v_82))))" -"(let-values()(f_31 tail?_31 v_82))))))" +"(if(syntax?$1 v_81)" +"(let-values()(d->s_2 v_81(loop_69(s-e_2 v_81))))" +"(let-values()(f_32 tail?_31 v_81))))))" "((seen_14) seen_13))" -"((letrec-values(((loop_71)" -"(lambda(tail?_32 s_132 prev-depth_6)" +"((letrec-values(((loop_70)" +"(lambda(tail?_32 s_134 prev-depth_6)" "(begin" " 'loop" "(let-values(((depth_6)(fx+ 1 prev-depth_6)))" @@ -9866,76 +9884,76 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_32" -" s_132" -"(lambda(tail?_33 s_133)(gf_6 tail?_33 s_133))" +" s_134" +"(lambda(tail?_33 s_135)(gf_6 tail?_33 s_135))" " seen_14))" -"(if(null? s_132)" -"(let-values()(f_32 tail?_32 s_132))" -"(if(pair? s_132)" +"(if(null? s_134)" +"(let-values()(f_33 tail?_32 s_134))" +"(if(pair? s_134)" "(let-values()" -"(f_32" +"(f_33" " tail?_32" "(cons" -"(loop_71 #f(car s_132) depth_6)" -"(loop_71 #t(cdr s_132) depth_6))))" -"(if(symbol? s_132)" -"(let-values()(f_32 #f s_132))" -"(if(boolean? s_132)" -"(let-values()(f_32 #f s_132))" -"(if(number? s_132)" -"(let-values()(f_32 #f s_132))" -"(if(let-values(((or-part_117)" -"(vector? s_132)))" -"(if or-part_117" -" or-part_117" -"(let-values(((or-part_118)" -"(box? s_132)))" +"(loop_70 #f(car s_134) depth_6)" +"(loop_70 #t(cdr s_134) depth_6))))" +"(if(symbol? s_134)" +"(let-values()(f_33 #f s_134))" +"(if(boolean? s_134)" +"(let-values()(f_33 #f s_134))" +"(if(number? s_134)" +"(let-values()(f_33 #f s_134))" +"(if(let-values(((or-part_118)" +"(vector? s_134)))" "(if or-part_118" " or-part_118" "(let-values(((or-part_119)" -"(prefab-struct-key" -" s_132)))" +"(box? s_134)))" "(if or-part_119" " or-part_119" -"(hash? s_132)))))))" +"(let-values(((or-part_120)" +"(prefab-struct-key" +" s_134)))" +"(if or-part_120" +" or-part_120" +"(hash? s_134)))))))" "(let-values()" "(datum-map-slow" " tail?_32" -" s_132" -"(lambda(tail?_34 s_134)" -"(gf_6 tail?_34 s_134))" +" s_134" +"(lambda(tail?_34 s_136)" +"(gf_6 tail?_34 s_136))" " seen_14))" "(let-values()" -"(gf_6 #f s_132))))))))))))))" -" loop_71)" -" #f" -" s_131" -" 0))))))" +"(gf_6 #f s_134))))))))))))))" " loop_70)" -" s_128))))))))))" +" #f" +" s_133" +" 0))))))" +" loop_69)" +" s_130))))))))))" "(define-values" "(syntax-swap-scopes)" -"(lambda(s_135 src-scopes_0 dest-scopes_0)" +"(lambda(s_137 src-scopes_0 dest-scopes_0)" "(begin" "(if(equal? src-scopes_0 dest-scopes_0)" -" s_135" +" s_137" "(let-values(((src-smss_0 src-scs_0)" "(set-partition" -"(let-values(((ht_56) src-scopes_0))" +"(let-values(((ht_55) src-scopes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_56)))" +"(let-values()(check-in-immutable-hash-keys ht_55)))" "((letrec-values(((for-loop_65)" -"(lambda(table_75 i_70)" +"(lambda(table_74 i_70)" "(begin" " 'for-loop" "(if i_70" "(let-values(((sc_22)" -"(unsafe-immutable-hash-iterate-key ht_56 i_70)))" -"(let-values(((table_76)" -"(let-values(((table_77) table_75))" -"(let-values(((table_78)" +"(unsafe-immutable-hash-iterate-key ht_55 i_70)))" +"(let-values(((table_75)" +"(let-values(((table_76) table_74))" +"(let-values(((table_77)" "(let-values()" "(let-values(((key_32 val_19)" "(let-values()" @@ -9945,39 +9963,39 @@ static const char *startup_source = " sc_22))" " #t))))" "(hash-set" -" table_77" +" table_76" " key_32" " val_19)))))" -"(values table_78)))))" +"(values table_77)))))" "(if(not #f)" "(for-loop_65" -" table_76" -"(unsafe-immutable-hash-iterate-next ht_56 i_70))" -" table_76)))" -" table_75)))))" +" table_75" +"(unsafe-immutable-hash-iterate-next ht_55 i_70))" +" table_75)))" +" table_74)))))" " for-loop_65)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_56))))" +"(unsafe-immutable-hash-iterate-first ht_55))))" " shifted-multi-scope?" "(seteq)" "(seteq)))" "((dest-smss_0 dest-scs_0)" "(set-partition" -"(let-values(((ht_57) dest-scopes_0))" +"(let-values(((ht_56) dest-scopes_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_57)))" +"(let-values()(check-in-immutable-hash-keys ht_56)))" "((letrec-values(((for-loop_66)" -"(lambda(table_79 i_71)" +"(lambda(table_78 i_71)" "(begin" " 'for-loop" "(if i_71" "(let-values(((sc_23)" -"(unsafe-immutable-hash-iterate-key ht_57 i_71)))" -"(let-values(((table_80)" -"(let-values(((table_81) table_79))" -"(let-values(((table_82)" +"(unsafe-immutable-hash-iterate-key ht_56 i_71)))" +"(let-values(((table_79)" +"(let-values(((table_80) table_78))" +"(let-values(((table_81)" "(let-values()" "(let-values(((key_33 val_20)" "(let-values()" @@ -9987,19 +10005,19 @@ static const char *startup_source = " sc_23))" " #t))))" "(hash-set" -" table_81" +" table_80" " key_33" " val_20)))))" -"(values table_82)))))" +"(values table_81)))))" "(if(not #f)" "(for-loop_66" -" table_80" -"(unsafe-immutable-hash-iterate-next ht_57 i_71))" -" table_80)))" -" table_79)))))" +" table_79" +"(unsafe-immutable-hash-iterate-next ht_56 i_71))" +" table_79)))" +" table_78)))))" " for-loop_66)" " '#hasheq()" -"(unsafe-immutable-hash-iterate-first ht_57))))" +"(unsafe-immutable-hash-iterate-first ht_56))))" " shifted-multi-scope?" "(seteq)" "(seteq))))" @@ -10036,18 +10054,18 @@ static const char *startup_source = "(set-union(set-subtract smss_23 src-smss_0) dest-smss_0)" " smss_23))))))" "(begin(set! smss84_0 smss_22)(set! prev-result_3 r_25) r_25))))))))" -"(let-values(((s_136) s_135)" -"((f_33)(lambda(tail?_35 d_6)(begin 'f d_6)))" +"(let-values(((s_138) s_137)" +"((f_34)(lambda(tail?_35 d_6)(begin 'f d_6)))" "((d->s_3)" -"(lambda(s_137 d_7)" +"(lambda(s_139 d_7)" "(begin" " 'd->s" -"(let-values(((the-struct_30) s_137))" +"(let-values(((the-struct_30) s_139))" "(if(syntax?$1 the-struct_30)" "(let-values(((content85_0) d_7)" -"((scopes86_0)(swap-scs_0(syntax-scopes s_137)))" +"((scopes86_0)(swap-scs_0(syntax-scopes s_139)))" "((shifted-multi-scopes87_0)" -"(swap-smss_0(syntax-shifted-multi-scopes s_137))))" +"(swap-smss_0(syntax-shifted-multi-scopes s_139))))" "(syntax1.1" " content85_0" " scopes86_0" @@ -10060,22 +10078,22 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"syntax?\" the-struct_30))))))" "((s-e_3) syntax-e/no-taint)" "((seen_15) #f))" -"((letrec-values(((loop_72)" -"(lambda(s_138)" +"((letrec-values(((loop_71)" +"(lambda(s_140)" "(begin" " 'loop" -"(let-values(((s_139) s_138)" -"((f_34) f_33)" +"(let-values(((s_141) s_140)" +"((f_35) f_34)" "((gf_7)" -"(lambda(tail?_36 v_83)" +"(lambda(tail?_36 v_82)" "(begin" " 'gf" -"(if(syntax?$1 v_83)" -"(let-values()(d->s_3 v_83(loop_72(s-e_3 v_83))))" -"(let-values()(f_33 tail?_36 v_83))))))" +"(if(syntax?$1 v_82)" +"(let-values()(d->s_3 v_82(loop_71(s-e_3 v_82))))" +"(let-values()(f_34 tail?_36 v_82))))))" "((seen_16) seen_15))" -"((letrec-values(((loop_73)" -"(lambda(tail?_37 s_140 prev-depth_7)" +"((letrec-values(((loop_72)" +"(lambda(tail?_37 s_142 prev-depth_7)" "(begin" " 'loop" "(let-values(((depth_7)(fx+ 1 prev-depth_7)))" @@ -10083,78 +10101,78 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_37" -" s_140" -"(lambda(tail?_38 s_141)" -"(gf_7 tail?_38 s_141))" +" s_142" +"(lambda(tail?_38 s_143)" +"(gf_7 tail?_38 s_143))" " seen_16))" -"(if(null? s_140)" -"(let-values()(f_34 tail?_37 s_140))" -"(if(pair? s_140)" +"(if(null? s_142)" +"(let-values()(f_35 tail?_37 s_142))" +"(if(pair? s_142)" "(let-values()" -"(f_34" +"(f_35" " tail?_37" "(cons" -"(loop_73 #f(car s_140) depth_7)" -"(loop_73 #t(cdr s_140) depth_7))))" -"(if(symbol? s_140)" -"(let-values()(f_34 #f s_140))" -"(if(boolean? s_140)" -"(let-values()(f_34 #f s_140))" -"(if(number? s_140)" -"(let-values()(f_34 #f s_140))" -"(if(let-values(((or-part_120)" -"(vector? s_140)))" -"(if or-part_120" -" or-part_120" -"(let-values(((or-part_121)" -"(box? s_140)))" +"(loop_72 #f(car s_142) depth_7)" +"(loop_72 #t(cdr s_142) depth_7))))" +"(if(symbol? s_142)" +"(let-values()(f_35 #f s_142))" +"(if(boolean? s_142)" +"(let-values()(f_35 #f s_142))" +"(if(number? s_142)" +"(let-values()(f_35 #f s_142))" +"(if(let-values(((or-part_121)" +"(vector? s_142)))" "(if or-part_121" " or-part_121" "(let-values(((or-part_122)" -"(prefab-struct-key" -" s_140)))" +"(box? s_142)))" "(if or-part_122" " or-part_122" -"(hash? s_140)))))))" +"(let-values(((or-part_123)" +"(prefab-struct-key" +" s_142)))" +"(if or-part_123" +" or-part_123" +"(hash? s_142)))))))" "(let-values()" "(datum-map-slow" " tail?_37" -" s_140" -"(lambda(tail?_39 s_142)" -"(gf_7 tail?_39 s_142))" +" s_142" +"(lambda(tail?_39 s_144)" +"(gf_7 tail?_39 s_144))" " seen_16))" "(let-values()" -"(gf_7 #f s_140))))))))))))))" -" loop_73)" -" #f" -" s_139" -" 0))))))" +"(gf_7 #f s_142))))))))))))))" " loop_72)" -" s_136)))))))))))))" +" #f" +" s_141" +" 0))))))" +" loop_71)" +" s_138)))))))))))))" "(define-values" "(syntax-scope-set)" -"(lambda(s_143 phase_14)" -"(begin(scope-set-at-fallback s_143(fallback-first(syntax-shifted-multi-scopes s_143)) phase_14))))" +"(lambda(s_145 phase_14)" +"(begin(scope-set-at-fallback s_145(fallback-first(syntax-shifted-multi-scopes s_145)) phase_14))))" "(define-values" "(scope-set-at-fallback)" -"(lambda(s_144 smss_24 phase_15)" +"(lambda(s_146 smss_24 phase_15)" "(begin" -"(let-values(((ht_58) smss_24))" +"(let-values(((ht_57) smss_24))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_58)))" +"(let-values()(check-in-immutable-hash-keys ht_57)))" "((letrec-values(((for-loop_67)" "(lambda(scopes_9 i_72)" "(begin" " 'for-loop" "(if i_72" -"(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_58 i_72)))" +"(let-values(((sms_10)(unsafe-immutable-hash-iterate-key ht_57 i_72)))" "(let-values(((scopes_10)" "(let-values(((scopes_11) scopes_9))" -"(if(let-values(((or-part_123)(label-phase? phase_15)))" -"(if or-part_123" -" or-part_123" +"(if(let-values(((or-part_124)(label-phase? phase_15)))" +"(if or-part_124" +" or-part_124" "(not" "(shifted-to-label-phase?" "(shifted-multi-scope-phase sms_10)))))" @@ -10174,29 +10192,29 @@ static const char *startup_source = "(values scopes_13)))" " scopes_11))))" "(if(not #f)" -"(for-loop_67 scopes_10(unsafe-immutable-hash-iterate-next ht_58 i_72))" +"(for-loop_67 scopes_10(unsafe-immutable-hash-iterate-next ht_57 i_72))" " scopes_10)))" " scopes_9)))))" " for-loop_67)" -"(syntax-scopes s_144)" -"(unsafe-immutable-hash-iterate-first ht_58)))))))" +"(syntax-scopes s_146)" +"(unsafe-immutable-hash-iterate-first ht_57)))))))" "(define-values" "(find-max-scope)" "(lambda(scopes_14)" "(begin" "(begin" " (if (set-empty? scopes_14) (let-values () (error \"cannot bind in empty scope set\")) (void))" -"(let-values(((ht_59) scopes_14))" +"(let-values(((ht_58) scopes_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_59)))" +"(let-values()(check-in-immutable-hash-keys ht_58)))" "((letrec-values(((for-loop_68)" "(lambda(max-sc_0 i_73)" "(begin" " 'for-loop" "(if i_73" -"(let-values(((sc_24)(unsafe-immutable-hash-iterate-key ht_59 i_73)))" +"(let-values(((sc_24)(unsafe-immutable-hash-iterate-key ht_58 i_73)))" "(let-values(((max-sc_1)" "(let-values(((max-sc_2) max-sc_0))" "(let-values(((max-sc_3)" @@ -10204,12 +10222,12 @@ static const char *startup_source = "(if(scope>? sc_24 max-sc_2) sc_24 max-sc_2))))" "(values max-sc_3)))))" "(if(not #f)" -"(for-loop_68 max-sc_1(unsafe-immutable-hash-iterate-next ht_59 i_73))" +"(for-loop_68 max-sc_1(unsafe-immutable-hash-iterate-next ht_58 i_73))" " max-sc_1)))" " max-sc_0)))))" " for-loop_68)" "(set-first scopes_14)" -"(unsafe-immutable-hash-iterate-first ht_59))))))))" +"(unsafe-immutable-hash-iterate-first ht_58))))))))" "(define-values" "(add-binding-in-scopes!20.1)" "(lambda(just-for-nominal?15_0 just-for-nominal?16_0 scopes17_0 sym18_0 binding19_0)" @@ -10248,19 +10266,19 @@ 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_145)" +"(lambda(s_147)" "(begin" -"(let-values(((ht_60)(syntax-scopes s_145)))" +"(let-values(((ht_59)(syntax-scopes s_147)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_60)))" +"(let-values()(check-in-immutable-hash-keys ht_59)))" "((letrec-values(((for-loop_69)" "(lambda(result_45 i_74)" "(begin" " 'for-loop" "(if i_74" -"(let-values(((sc_25)(unsafe-immutable-hash-iterate-key ht_60 i_74)))" +"(let-values(((sc_25)(unsafe-immutable-hash-iterate-key ht_59 i_74)))" "(let-values(((result_46)" "(let-values()" "(let-values(((result_47)" @@ -10268,12 +10286,12 @@ static const char *startup_source = "(let-values()(eq?(scope-kind sc_25) 'macro)))))" "(values result_47)))))" "(if(if(not((lambda x_35 result_46) sc_25))(not #f) #f)" -"(for-loop_69 result_46(unsafe-immutable-hash-iterate-next ht_60 i_74))" +"(for-loop_69 result_46(unsafe-immutable-hash-iterate-next ht_59 i_74))" " result_46)))" " result_45)))))" " for-loop_69)" " #f" -"(unsafe-immutable-hash-iterate-first ht_60)))))))" +"(unsafe-immutable-hash-iterate-first ht_59)))))))" "(define-values" "(resolve40.1)" "(lambda(ambiguous-value30_0" @@ -10288,14 +10306,14 @@ static const char *startup_source = " phase39_0)" "(begin" " 'resolve40" -"(let-values(((s_146) s38_0))" +"(let-values(((s_148) s38_0))" "(let-values(((phase_16) phase39_0))" "(let-values(((ambiguous-value_0)(if ambiguous-value34_0 ambiguous-value30_0 #f)))" "(let-values(((exactly?_0)(if exactly?35_0 exactly?31_0 #f)))" "(let-values(((get-scopes?_0)(if get-scopes?36_0 get-scopes?32_0 #f)))" "(let-values(((extra-shifts_2)(if extra-shifts37_0 extra-shifts33_0 null)))" "(let-values()" -"(let-values(((sym_15)(syntax-content s_146)))" +"(let-values(((sym_15)(syntax-content s_148)))" "((letrec-values(((fallback-loop_0)" "(lambda(smss_25)" "(begin" @@ -10306,7 +10324,7 @@ static const char *startup_source = "(resolve-cache-get" " sym_15" " phase_16" -"(syntax-scopes s_146)" +"(syntax-scopes s_148)" "(fallback-first smss_25))" " #f)" " #f)))" @@ -10322,17 +10340,17 @@ static const char *startup_source = "(let-values()" "(let-values(((scopes_17)" "(scope-set-at-fallback" -" s_146" +" s_148" "(fallback-first smss_25)" " phase_16)))" "(let-values(((best-scopes_0 best-binding_0)" -"(let-values(((ht_61) scopes_17))" +"(let-values(((ht_60) scopes_17))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-immutable-hash-keys ht_61)))" +"(check-in-immutable-hash-keys ht_60)))" "((letrec-values(((for-loop_70)" "(lambda(best-scopes_1" " best-binding_1" @@ -10342,33 +10360,33 @@ static const char *startup_source = "(if i_75" "(let-values(((sc_26)" "(unsafe-immutable-hash-iterate-key" -" ht_61" +" ht_60" " i_75)))" "(let-values(((best-scopes_2" " best-binding_2)" -"(let-values(((ht_62" +"(let-values(((ht_61" " bulk-bindings_2)" -"(let-values(((table_83)" +"(let-values(((table_82)" "(scope-binding-table" " sc_26)))" "(if(hash?" -" table_83)" +" table_82)" "(values" "(hash-ref" -" table_83" +" table_82" " sym_15" " '#hash())" " null)" "(values" "(hash-ref" "(table-with-bulk-bindings-syms" -" table_83)" +" table_82)" " sym_15" " '#hash())" "(table-with-bulk-bindings-bulk-bindings" -" table_83)))))" -"((s_147)" -" s_146)" +" table_82)))))" +"((s_149)" +" s_148)" "((extra-shifts_3)" " extra-shifts_2))" "(begin" @@ -10391,7 +10409,7 @@ static const char *startup_source = " i_76)))" "(let-values()" "(hash-iterate-key" -" ht_62" +" ht_61" " i_76))))" "((binding_4)" "(if(pair?" @@ -10407,7 +10425,7 @@ static const char *startup_source = "(hash-ref" "(bulk-binding-symbols" " bulk_3" -" s_147" +" s_149" " extra-shifts_3)" " sym_15" " #f)" @@ -10421,7 +10439,7 @@ static const char *startup_source = " #f))))" "(let-values()" "(hash-iterate-value" -" ht_62" +" ht_61" " i_76)))))" "(let-values(((best-scopes_4" " best-binding_4)" @@ -10547,12 +10565,12 @@ static const char *startup_source = "(cdr" " i_76))" "(let-values()" -"(let-values(((or-part_124)" +"(let-values(((or-part_125)" "(hash-iterate-next" -" ht_62" +" ht_61" " i_76)))" -"(if or-part_124" -" or-part_124" +"(if or-part_125" +" or-part_125" " bulk-bindings_2)))))" "(values" " best-scopes_4" @@ -10563,18 +10581,18 @@ static const char *startup_source = " for-loop_71)" " best-scopes_1" " best-binding_1" -"(let-values(((or-part_125)" +"(let-values(((or-part_126)" "(hash-iterate-first" -" ht_62)))" -"(if or-part_125" -" or-part_125" +" ht_61)))" +"(if or-part_126" +" or-part_126" " bulk-bindings_2)))))))" "(if(not #f)" "(for-loop_70" " best-scopes_2" " best-binding_2" "(unsafe-immutable-hash-iterate-next" -" ht_61" +" ht_60" " i_75))" "(values" " best-scopes_2" @@ -10585,7 +10603,7 @@ static const char *startup_source = " for-loop_70)" " #f" " #f" -"(unsafe-immutable-hash-iterate-first ht_61))))))" +"(unsafe-immutable-hash-iterate-first ht_60))))))" "(if(pair? best-scopes_0)" "(let-values()" "(if(fallback? smss_25)" @@ -10597,12 +10615,12 @@ static const char *startup_source = "(resolve-cache-set!" " sym_15" " phase_16" -"(syntax-scopes s_146)" +"(syntax-scopes s_148)" "(fallback-first smss_25)" " best-binding_0)" -"(if(let-values(((or-part_126)(not exactly?_0)))" -"(if or-part_126" -" or-part_126" +"(if(let-values(((or-part_127)(not exactly?_0)))" +"(if or-part_127" +" or-part_127" "(eqv?" "(set-count scopes_17)" "(set-count best-scopes_0))))" @@ -10613,14 +10631,14 @@ static const char *startup_source = "(resolve-cache-set!" " sym_15" " phase_16" -"(syntax-scopes s_146)" +"(syntax-scopes s_148)" "(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_146)))))))))))))" +"(syntax-shifted-multi-scopes s_148)))))))))))))" "(define-values" "(bound-identifier=?$1)" "(lambda(a_32 b_40 phase_17)" @@ -10955,35 +10973,35 @@ static const char *startup_source = "(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_148) s12_0))" +"(let-values(((s_150) 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_148 inspector_3) s_148))" +"(let-values()(if inspector_3(syntax-set-inspector s_150 inspector_3) s_150))" "(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_11) s_148))" +"(let-values(((the-struct_11) s_150))" "(if(syntax?$1 the-struct_11)" -"(let-values(((mpi-shifts70_0)(cons shift_0(syntax-mpi-shifts s_148)))" +"(let-values(((mpi-shifts70_0)(cons shift_0(syntax-mpi-shifts s_150)))" "((inspector71_0)" -"(let-values(((or-part_127)(syntax-inspector s_148)))" -"(if or-part_127 or-part_127 inspector_3)))" +"(let-values(((or-part_24)(syntax-inspector s_150)))" +"(if or-part_24 or-part_24 inspector_3)))" "((scope-propagations+tamper72_0)" -"(if(datum-has-elements?(syntax-content s_148))" +"(if(datum-has-elements?(syntax-content s_150))" "(propagation-mpi-shift" -"(syntax-scope-propagations+tamper s_148)" -"(lambda(s_85)(cons shift_0 s_85))" +"(syntax-scope-propagations+tamper s_150)" +"(lambda(s_87)(cons shift_0 s_87))" " inspector_3" -"(syntax-scopes s_148)" -"(syntax-shifted-multi-scopes s_148)" -"(syntax-mpi-shifts s_148))" -"(syntax-scope-propagations+tamper s_148))))" +"(syntax-scopes s_150)" +"(syntax-shifted-multi-scopes s_150)" +"(syntax-mpi-shifts s_150))" +"(syntax-scope-propagations+tamper s_150))))" "(syntax1.1" "(syntax-content the-struct_11)" "(syntax-scopes the-struct_11)" @@ -11010,7 +11028,7 @@ static const char *startup_source = " phase29_0)" "(begin" " 'resolve+shift30" -"(let-values(((s_87) s28_0))" +"(let-values(((s_89) s28_0))" "(let-values(((phase_23) phase29_0))" "(let-values(((ambiguous-value_1)(if ambiguous-value23_0 ambiguous-value18_0 #f)))" "(let-values(((exactly?_1)(if exactly?24_0 exactly?19_0 #f)))" @@ -11020,13 +11038,13 @@ static const char *startup_source = "(let-values()" "(let-values(((can-cache?_0)" "(if(not exactly?_1)(if(not immediate?_0)(null? extra-shifts_4) #f) #f)))" -"(let-values(((c1_23)(if can-cache?_0(resolve+shift-cache-get s_87 phase_23) #f)))" +"(let-values(((c1_23)(if can-cache?_0(resolve+shift-cache-get s_89 phase_23) #f)))" "(if c1_23" -"((lambda(b_50)(if(eq? b_50 '#:none)(if unbound-sym?_0(syntax-content s_87) #f) b_50))" +"((lambda(b_50)(if(eq? b_50 '#:none)(if unbound-sym?_0(syntax-content s_89) #f) b_50))" " c1_23)" "(let-values()" "(let-values(((immediate-b_0)" -"(let-values(((s73_0) s_87)" +"(let-values(((s73_0) s_89)" "((phase74_0) phase_23)" "((ambiguous-value75_0) ambiguous-value_1)" "((exactly?76_0) exactly?_1)" @@ -11049,7 +11067,7 @@ static const char *startup_source = "(let-values(((temp78_0)(binding-free=id immediate-b_0))" "((phase79_0) phase_23)" "((temp80_0)" -"(append extra-shifts_4(syntax-mpi-shifts s_87)))" +"(append extra-shifts_4(syntax-mpi-shifts s_89)))" "((ambiguous-value81_0) ambiguous-value_1)" "((exactly?82_0) exactly?_1)" "((unbound-sym?83_0) unbound-sym?_0))" @@ -11069,7 +11087,7 @@ static const char *startup_source = " immediate-b_0)))" "(if(module-binding? b_51)" "(let-values()" -"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_87)))" +"(let-values(((mpi-shifts_2)(syntax-mpi-shifts s_89)))" "(if(null? mpi-shifts_2)" "(let-values() b_51)" "(let-values()" @@ -11100,7 +11118,7 @@ static const char *startup_source = "(let-values(((temp89_0)" "(binding-free=id" " b_51))" -"((s90_0) s_87))" +"((s90_0) s_89))" "(syntax-transfer-shifts39.1" " #f" " #f" @@ -11183,7 +11201,7 @@ static const char *startup_source = "(begin" "(if can-cache?_0" "(let-values()" -"(resolve+shift-cache-set! s_87 phase_23 result-b_0))" +"(resolve+shift-cache-set! s_89 phase_23 result-b_0))" "(void))" " result-b_0))))))))))" "(let-values()" @@ -11191,14 +11209,14 @@ static const char *startup_source = "(if can-cache?_0" "(let-values()" "(resolve+shift-cache-set!" -" s_87" +" s_89" " phase_23" "(let-values(((or-part_128) b_51))(if or-part_128 or-part_128 '#:none))))" "(void))" "(let-values(((or-part_129) b_51))" "(if or-part_129" " or-part_129" -"(if unbound-sym?_0(syntax-content s_87) #f)))))))))))))))))))))))" +"(if unbound-sym?_0(syntax-content s_89) #f)))))))))))))))))))))))" "(define-values" "(apply-syntax-shifts)" "(lambda(mpi_12 shifts_0)" @@ -11291,12 +11309,12 @@ static const char *startup_source = " 'syntax-transfer-shifts39" "(let-values(((to-s_0) to-s37_0))" "(let-values(((from-s_1) from-s38_0))" -"(let-values(((inspector_4)(if inspector36_0 inspector35_0 #f)))" +"(let-values(((inspector_0)(if inspector36_0 inspector35_0 #f)))" "(let-values(((non-source?_1)(if non-source?34_0 non-source?33_0 #f)))" "(let-values()" "(let-values(((shifts_2)(syntax-mpi-shifts from-s_1)))" -"(if(if(null? shifts_2) inspector_4 #f)" -"(let-values()(syntax-set-inspector to-s_0 inspector_4))" +"(if(if(null? shifts_2) inspector_0 #f)" +"(let-values()(syntax-set-inspector to-s_0 inspector_0))" "(let-values()" "(let-values(((lst_55)(reverse$1 shifts_2))((start_12) 0))" "(begin" @@ -11307,25 +11325,25 @@ static const char *startup_source = "(void)" "(let-values()(check-naturals start_12)))" "((letrec-values(((for-loop_75)" -"(lambda(s_149 lst_56 pos_9)" +"(lambda(s_151 lst_56 pos_9)" "(begin" " 'for-loop" "(if(if(pair? lst_56) #t #f)" "(let-values(((shift_3)(unsafe-car lst_56))" "((rest_24)(unsafe-cdr lst_56))" "((i_77) pos_9))" -"(let-values(((s_150)" -"(let-values(((s_95) s_149))" -"(let-values(((s_96)" +"(let-values(((s_152)" +"(let-values(((s_97) s_151))" +"(let-values(((s_98)" "(let-values()" -"(let-values(((s95_0) s_95)" +"(let-values(((s95_0) s_97)" "((temp96_0)" "(shift-from shift_3))" "((temp97_0)" "(shift-to shift_3))" "((temp98_0)" "(if(zero? i_77)" -" inspector_4" +" inspector_0" " #f))" "((non-source?99_0)" " non-source?_1))" @@ -11337,31 +11355,31 @@ static const char *startup_source = " temp97_0" " temp98_0" " #t)))))" -"(values s_96)))))" -"(if(not #f)(for-loop_75 s_150 rest_24(+ pos_9 1)) s_150)))" -" s_149)))))" +"(values s_98)))))" +"(if(not #f)(for-loop_75 s_152 rest_24(+ pos_9 1)) s_152)))" +" s_151)))))" " for-loop_75)" " to-s_0" " lst_55" " start_12))))))))))))))" "(define-values" "(syntax-set-inspector)" -"(lambda(s_151 insp_3)" +"(lambda(s_153 insp_3)" "(begin" -"(let-values(((the-struct_31) s_151))" +"(let-values(((the-struct_31) s_153))" "(if(syntax?$1 the-struct_31)" "(let-values(((inspector100_0)" -"(let-values(((or-part_130)(syntax-inspector s_151)))(if or-part_130 or-part_130 insp_3)))" +"(let-values(((or-part_130)(syntax-inspector s_153)))(if or-part_130 or-part_130 insp_3)))" "((scope-propagations+tamper101_0)" -"(if(datum-has-elements?(syntax-content s_151))" +"(if(datum-has-elements?(syntax-content s_153))" "(propagation-mpi-shift" -"(syntax-scope-propagations+tamper s_151)" +"(syntax-scope-propagations+tamper s_153)" " #f" " insp_3" -"(syntax-scopes s_151)" -"(syntax-shifted-multi-scopes s_151)" -"(syntax-mpi-shifts s_151))" -"(syntax-scope-propagations+tamper s_151))))" +"(syntax-scopes s_153)" +"(syntax-shifted-multi-scopes s_153)" +"(syntax-mpi-shifts s_153))" +"(syntax-scope-propagations+tamper s_153))))" "(syntax1.1" "(syntax-content the-struct_31)" "(syntax-scopes the-struct_31)" @@ -11378,14 +11396,14 @@ static const char *startup_source = "(lambda(s44_0 source?42_0 source?43_0)" "(begin" " 'syntax-source-module45" -"(let-values(((s_152) s44_0))" +"(let-values(((s_154) s44_0))" "(let-values(((source?_0)(if source?43_0 source?42_0 #f)))" "(let-values()" "(begin" -"(if(syntax?$1 s_152)" +"(if(syntax?$1 s_154)" "(void)" -" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_152)))" -"(let-values(((lst_46)(reverse$1(syntax-mpi-shifts s_152))))" +" (let-values () (raise-argument-error 'syntax-track-origin \"syntax?\" s_154)))" +"(let-values(((lst_46)(reverse$1(syntax-mpi-shifts s_154))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -11419,7 +11437,7 @@ static const char *startup_source = "(apply-syntax-shifts" " from-mpi_3" "(syntax-mpi-shifts" -" s_152))))" +" s_154))))" "(if source?_0" "(1/resolved-module-path-name" "(1/module-path-index-resolve" @@ -11437,8 +11455,8 @@ static const char *startup_source = " #f" " lst_46)))))))))))" "(case-lambda" -"((s_153)(begin 'syntax-source-module(syntax-source-module45_0 s_153 #f #f)))" -"((s_154 source?42_1)(syntax-source-module45_0 s_154 source?42_1 #t)))))" +"((s_155)(begin 'syntax-source-module(syntax-source-module45_0 s_155 #f #f)))" +"((s_156 source?42_1)(syntax-source-module45_0 s_156 source?42_1 #t)))))" "(define-values" "(1/identifier-prune-to-source-module)" "(lambda(id_7)" @@ -11494,9 +11512,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_84)(begin(if(provided? v_84)(provided-binding v_84) v_84))))" +"(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_85)(begin(if(provided? v_85)(provided-syntax? v_85) #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_5 protected?_0 syntax?_1)(begin(provided1.1 binding_5 protected?_0 syntax?_1))))" @@ -11604,10 +11622,10 @@ static const char *startup_source = " \"namespace mismatch: no bulk-binding registry available:\"" " mod-name_1)))" "(values))))" -"(let-values(((table_84)" +"(let-values(((table_83)" "(bulk-binding-registry-table" "(bulk-binding-bulk-binding-registry b_56))))" -"(let-values(((bulk-provide_0)(hash-ref table_84 mod-name_1 #f)))" +"(let-values(((bulk-provide_0)(hash-ref table_83 mod-name_1 #f)))" "(let-values((()" "(begin" "(if bulk-provide_0" @@ -11689,23 +11707,23 @@ static const char *startup_source = "(bulk-provides-add-prefix-remove-exceptions)" "(lambda(provides_1 prefix_2 excepts_2)" "(begin" -"(let-values(((ht_63) provides_1))" +"(let-values(((ht_62) provides_1))" "(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_62)))" "((letrec-values(((for-loop_77)" -"(lambda(table_85 i_78)" +"(lambda(table_84 i_78)" "(begin" " 'for-loop" "(if i_78" -"(let-values(((sym_17 val_23)(hash-iterate-key+value ht_63 i_78)))" -"(let-values(((table_86)" -"(let-values(((table_87) table_85))" +"(let-values(((sym_17 val_23)(hash-iterate-key+value ht_62 i_78)))" +"(let-values(((table_85)" +"(let-values(((table_86) table_84))" "(if(hash-ref excepts_2 sym_17 #f)" -" table_87" -"(let-values(((table_88) table_87))" +" table_86" +"(let-values(((table_87) table_86))" "(if(symbol-interned? sym_17)" -"(let-values(((table_89) table_88))" -"(let-values(((table_90)" +"(let-values(((table_88) table_87))" +"(let-values(((table_89)" "(let-values()" "(let-values(((key_36 val_24)" "(let-values()" @@ -11718,14 +11736,14 @@ static const char *startup_source = " sym_17))" " sym_17)" " val_23))))" -"(hash-set table_89 key_36 val_24)))))" -"(values table_90)))" -" table_88))))))" -"(if(not #f)(for-loop_77 table_86(hash-iterate-next ht_63 i_78)) table_86)))" -" table_85)))))" +"(hash-set table_88 key_36 val_24)))))" +"(values table_89)))" +" table_87))))))" +"(if(not #f)(for-loop_77 table_85(hash-iterate-next ht_62 i_78)) table_85)))" +" table_84)))))" " for-loop_77)" " '#hash()" -"(hash-iterate-first ht_63)))))))" +"(hash-iterate-first ht_62)))))))" "(define-values" "(struct:bulk-provide bulk-provide15.1 bulk-provide? bulk-provide-self bulk-provide-provides)" "(let-values(((struct:_5 make-_5 ?_5 -ref_5 -set!_5)" @@ -11868,7 +11886,7 @@ static const char *startup_source = "(lambda(v_45)(begin(root-expand-context/outer-post-expansion-scope v_45))))" "(define-values" "(root-expand-context-use-site-scopes)" -"(lambda(v_86)(begin(root-expand-context/outer-use-site-scopes v_86))))" +"(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)" @@ -11878,19 +11896,19 @@ static const char *startup_source = "(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_87)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_87)))))" +"(lambda(v_86)(begin(root-expand-context/inner-top-level-bind-scope(root-expand-context/outer-inner v_86)))))" "(define-values" "(root-expand-context-all-scopes-stx)" "(lambda(v_56)(begin(root-expand-context/inner-all-scopes-stx(root-expand-context/outer-inner v_56)))))" "(define-values" "(root-expand-context-defined-syms)" -"(lambda(v_88)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_88)))))" +"(lambda(v_87)(begin(root-expand-context/inner-defined-syms(root-expand-context/outer-inner v_87)))))" "(define-values" "(root-expand-context-counter)" "(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_89)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_89)))))" +"(lambda(v_88)(begin(root-expand-context/inner-lift-key(root-expand-context/outer-inner v_88)))))" "(define-values" "(make-root-expand-context13.1)" "(lambda(all-scopes-stx7_0" @@ -11938,29 +11956,29 @@ 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_64)(root-expand-context-defined-syms ctx_0)))" +"(let-values(((ht_63)(root-expand-context-defined-syms ctx_0)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_64)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_63)))" "((letrec-values(((for-loop_78)" -"(lambda(table_91 i_79)" +"(lambda(table_90 i_79)" "(begin" " 'for-loop" "(if i_79" -"(let-values(((phase_24 ht_65)(hash-iterate-key+value ht_64 i_79)))" -"(let-values(((table_92)" -"(let-values(((table_93) table_91))" -"(let-values(((table_94)" +"(let-values(((phase_24 ht_64)(hash-iterate-key+value ht_63 i_79)))" +"(let-values(((table_91)" +"(let-values(((table_92) table_90))" +"(let-values(((table_93)" "(let-values()" "(let-values(((key_37 val_25)" "(let-values()" -"(values phase_24 ht_65))))" -"(hash-set table_93 key_37 val_25)))))" -"(values table_94)))))" -"(if(not #f)(for-loop_78 table_92(hash-iterate-next ht_64 i_79)) table_92)))" -" table_91)))))" +"(values phase_24 ht_64))))" +"(hash-set table_92 key_37 val_25)))))" +"(values table_93)))))" +"(if(not #f)(for-loop_78 table_91(hash-iterate-next ht_63 i_79)) table_91)))" +" table_90)))))" " for-loop_78)" " '#hasheqv()" -"(hash-iterate-first ht_64))))" +"(hash-iterate-first ht_63))))" "(root-expand-context-frame-id ctx_0)" "(unbox(root-expand-context-counter ctx_0)))))))" "(define-values" @@ -12001,17 +12019,17 @@ static const char *startup_source = "(generate-lift-key)))))))" "(define-values" "(defined-syms-hash?)" -"(lambda(v_90)" +"(lambda(v_89)" "(begin" -"(let-values(((ht_66) v_90))" +"(let-values(((ht_65) v_89))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_66)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_65)))" "((letrec-values(((for-loop_8)" "(lambda(result_55 i_80)" "(begin" " 'for-loop" "(if i_80" -"(let-values(((phase_25 ht-s_0)(hash-iterate-key+value ht_66 i_80)))" +"(let-values(((phase_25 ht-s_0)(hash-iterate-key+value ht_65 i_80)))" "(let-values(((result_56)" "(let-values()" "(let-values(((result_57)" @@ -12019,12 +12037,12 @@ static const char *startup_source = "(let-values()" "(if(phase? phase_25)" "(if(hash?(syntax-e$1 ht-s_0))" -"(let-values(((ht_67)(syntax-e$1 ht-s_0)))" +"(let-values(((ht_66)(syntax-e$1 ht-s_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_67)))" +"(let-values()(check-in-hash ht_66)))" "((letrec-values(((for-loop_79)" "(lambda(result_58 i_81)" "(begin" @@ -12033,7 +12051,7 @@ static const char *startup_source = "(let-values(((sym_18" " id_8)" "(hash-iterate-key+value" -" ht_67" +" ht_66" " i_81)))" "(let-values(((result_59)" "(let-values()" @@ -12058,23 +12076,23 @@ static const char *startup_source = "(for-loop_79" " result_59" "(hash-iterate-next" -" ht_67" +" ht_66" " i_81))" " result_59)))" " result_58)))))" " for-loop_79)" " #t" -"(hash-iterate-first ht_67))))" +"(hash-iterate-first ht_66))))" " #f)" " #f)))))" "(values result_57)))))" "(if(if(not((lambda x_39(not result_56)) phase_25 ht-s_0))(not #f) #f)" -"(for-loop_8 result_56(hash-iterate-next ht_66 i_80))" +"(for-loop_8 result_56(hash-iterate-next ht_65 i_80))" " result_56)))" " result_55)))))" " for-loop_8)" " #t" -"(hash-iterate-first ht_66)))))))" +"(hash-iterate-first ht_65)))))))" "(define-values" "(extract-scope-list)" "(lambda(stx_9)(begin(map2 generalize-scope(set->list(syntax-scope-set stx_9 0))))))" @@ -12083,31 +12101,31 @@ static const char *startup_source = "(lambda(stx_10)(begin(if(syntax?$1 stx_10)(= 1(set-count(syntax-scope-set stx_10 0))) #f))))" "(define-values" "(extract-scope)" -"(lambda(stx_11)(begin(let-values(((s_155)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_155))))))" +"(lambda(stx_11)(begin(let-values(((s_157)(syntax-scope-set stx_11 0)))(generalize-scope(set-first s_157))))))" "(define-values" "(unpack-defined-syms)" -"(lambda(v_91)" +"(lambda(v_90)" "(begin" "(hash-copy" -"(let-values(((ht_68)(syntax-e$1 v_91)))" +"(let-values(((ht_67)(syntax-e$1 v_90)))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_68)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_67)))" "((letrec-values(((for-loop_80)" -"(lambda(table_95 i_82)" +"(lambda(table_94 i_82)" "(begin" " 'for-loop" "(if i_82" -"(let-values(((phase_26 ht-s_1)(hash-iterate-key+value ht_68 i_82)))" -"(let-values(((table_96)" -"(let-values(((table_97) table_95))" -"(let-values(((table_98)" +"(let-values(((phase_26 ht-s_1)(hash-iterate-key+value ht_67 i_82)))" +"(let-values(((table_95)" +"(let-values(((table_96) table_94))" +"(let-values(((table_97)" "(let-values()" "(let-values(((key_38 val_17)" "(let-values()" "(values" " phase_26" "(hash-copy" -"(let-values(((ht_69)" +"(let-values(((ht_68)" "(syntax-e$1" " ht-s_1)))" "(begin" @@ -12115,9 +12133,9 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_69)))" +"(check-in-hash ht_68)))" "((letrec-values(((for-loop_13)" -"(lambda(table_99" +"(lambda(table_98" " i_83)" "(begin" " 'for-loop" @@ -12125,12 +12143,12 @@ static const char *startup_source = "(let-values(((sym_19" " id_9)" "(hash-iterate-key+value" -" ht_69" +" ht_68" " i_83)))" +"(let-values(((table_99)" "(let-values(((table_100)" +" table_98))" "(let-values(((table_101)" -" table_99))" -"(let-values(((table_102)" "(let-values()" "(let-values(((key_39" " val_26)" @@ -12139,31 +12157,31 @@ static const char *startup_source = " sym_19" " id_9))))" "(hash-set" -" table_101" +" table_100" " key_39" " val_26)))))" "(values" -" table_102)))))" +" table_101)))))" "(if(not" " #f)" "(for-loop_13" -" table_100" +" table_99" "(hash-iterate-next" -" ht_69" +" ht_68" " i_83))" -" table_100)))" -" table_99)))))" +" table_99)))" +" table_98)))))" " for-loop_13)" " '#hash()" "(hash-iterate-first" -" ht_69)))))))))" -"(hash-set table_97 key_38 val_17)))))" -"(values table_98)))))" -"(if(not #f)(for-loop_80 table_96(hash-iterate-next ht_68 i_82)) table_96)))" -" table_95)))))" +" ht_68)))))))))" +"(hash-set table_96 key_38 val_17)))))" +"(values table_97)))))" +"(if(not #f)(for-loop_80 table_95(hash-iterate-next ht_67 i_82)) table_95)))" +" table_94)))))" " for-loop_80)" " '#hasheqv()" -"(hash-iterate-first ht_68))))))))" +"(hash-iterate-first ht_67))))))))" "(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)" @@ -12224,16 +12242,16 @@ 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_2)" +"(lambda(r_5 proc_2)" "(begin" -"(let-values(((lock-box_0)(module-registry-lock-box r_26)))" -"((letrec-values(((loop_66)" +"(let-values(((lock-box_0)(module-registry-lock-box r_5)))" +"((letrec-values(((loop_65)" "(lambda()" "(begin" " 'loop" "(let-values(((v_31)(unbox lock-box_0)))" -"(if(let-values(((or-part_77)(not v_31)))" -"(if or-part_77 or-part_77(sync/timeout 0(car v_31)(cdr v_31))))" +"(if(let-values(((or-part_78)(not v_31)))" +"(if or-part_78 or-part_78(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))))" @@ -12242,12 +12260,12 @@ static const char *startup_source = "(lambda()" "(if(box-cas! lock-box_0 v_31 lock_0)" "(let-values()(begin(proc_2) void))" -"(let-values()(lambda()(loop_66)))))" +"(let-values()(lambda()(loop_65)))))" "(lambda()(semaphore-post sema_0)))))))" "(if(eq?(current-thread)(cdr v_31))" "(let-values()(proc_2))" -"(let-values()(begin(sync(car v_31)(cdr v_31))(loop_66))))))))))" -" loop_66))))))" +"(let-values()(begin(sync(car v_31)(cdr v_31))(loop_65))))))))))" +" loop_65))))))" "(define-values" "(struct:namespace" " namespace1.1" @@ -12452,14 +12470,14 @@ static const char *startup_source = "(lambda(ns_7)" "(begin" "(let-values(((n_20)(namespace-source-name ns_7)))" -"(let-values(((s_156)" +"(let-values(((s_158)" "(if(not n_20)" "(let-values() 'top-level)" "(if(symbol? n_20)" " (let-values () (format \"'~s\" n_20))" " (let-values () (string-append \"\\\"\" (path->string n_20) \"\\\"\"))))))" -"(let-values(((r_27)(1/resolved-module-path-name(1/module-path-index-resolve(namespace-mpi ns_7)))))" -" (if (pair? r_27) (string-append \"(submod \" s_156 \" \" (substring (format \"~s\" (cdr r_27)) 1)) s_156)))))))" +"(let-values(((r_26)(1/resolved-module-path-name(1/module-path-index-resolve(namespace-mpi ns_7)))))" +" (if (pair? r_26) (string-append \"(submod \" s_158 \" \" (substring (format \"~s\" (cdr r_26)) 1)) s_158)))))))" "(define-values" "(namespace->definitions)" "(lambda(ns_8 phase-level_1)" @@ -12548,19 +12566,19 @@ static const char *startup_source = "(lambda(s_0)" "(begin" " 'syntax->list" -"(let-values(((l_46)" -"((letrec-values(((loop_74)" +"(let-values(((l_45)" +"((letrec-values(((loop_73)" "(lambda(s_1)" "(begin" " 'loop" "(if(pair? s_1)" -"(let-values()(cons(car s_1)(loop_74(cdr s_1))))" +"(let-values()(cons(car s_1)(loop_73(cdr s_1))))" "(if(syntax?$1 s_1)" -"(let-values()(loop_74(syntax-e$1 s_1)))" +"(let-values()(loop_73(syntax-e$1 s_1)))" "(let-values() s_1)))))))" -" loop_74)" +" loop_73)" " s_0)))" -"(if(list? l_46) l_46 #f)))))" +"(if(list? l_45) l_45 #f)))))" "(define-values(missing$1)(gensym))" "(define-values" "(syntax-track-origin$1)" @@ -12575,8 +12593,8 @@ static const char *startup_source = " id1_0" "(if(identifier? old-stx_0)" " old-stx_0" -"(let-values(((v_92)(syntax-e/no-taint old-stx_0)))" -"(if(pair? v_92)(car v_92) #f))))))" +"(let-values(((v_91)(syntax-e/no-taint old-stx_0)))" +"(if(pair? v_91)(car v_91) #f))))))" "(let-values()" "(let-values(((old-props_0)(syntax-props old-stx_0)))" "(if(zero?(hash-count old-props_0))" @@ -12640,20 +12658,20 @@ static const char *startup_source = "(hash-count old-props-with-origin_0)" "(hash-count new-props_0))" "(let-values()" -"(let-values(((ht_70) old-props-with-origin_0))" +"(let-values(((ht_69) old-props-with-origin_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_70)))" +"(let-values()(check-in-immutable-hash ht_69)))" "((letrec-values(((for-loop_81)" "(lambda(new-props_1 i_84)" "(begin" " 'for-loop" "(if i_84" -"(let-values(((k_17 v_93)" +"(let-values(((k_17 v_92)" "(unsafe-immutable-hash-iterate-key+value" -" ht_70" +" ht_69" " i_84)))" "(let-values(((new-props_2)" "(let-values(((new-props_3)" @@ -12671,30 +12689,30 @@ static const char *startup_source = "(if(eq?" " new-v_0" " missing$1)" -" v_93" +" v_92" "(cons/preserve" " new-v_0" -" v_93)))))))" +" v_92)))))))" "(values" " new-props_4)))))" "(if(not #f)" "(for-loop_81" " new-props_2" "(unsafe-immutable-hash-iterate-next" -" ht_70" +" ht_69" " i_84))" " new-props_2)))" " new-props_1)))))" " for-loop_81)" " new-props_0" -"(unsafe-immutable-hash-iterate-first ht_70)))))" +"(unsafe-immutable-hash-iterate-first ht_69)))))" "(let-values()" -"(let-values(((ht_71) new-props_0))" +"(let-values(((ht_70) new-props_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash ht_71)))" +"(let-values()(check-in-immutable-hash ht_70)))" "((letrec-values(((for-loop_82)" "(lambda(old-props_1 i_85)" "(begin" @@ -12702,7 +12720,7 @@ static const char *startup_source = "(if i_85" "(let-values(((k_18 v_5)" "(unsafe-immutable-hash-iterate-key+value" -" ht_71" +" ht_70" " i_85)))" "(let-values(((old-props_2)" "(let-values(((old-props_3)" @@ -12730,13 +12748,13 @@ static const char *startup_source = "(for-loop_82" " old-props_2" "(unsafe-immutable-hash-iterate-next" -" ht_71" +" ht_70" " i_85))" " old-props_2)))" " old-props_1)))))" " for-loop_82)" " old-props-with-origin_0" -"(unsafe-immutable-hash-iterate-first ht_71))))))))" +"(unsafe-immutable-hash-iterate-first ht_70))))))))" "(let-values(((the-struct_35) new-stx_0))" "(if(syntax?$1 the-struct_35)" "(let-values(((props9_0) updated-props_0))" @@ -12760,8 +12778,8 @@ static const char *startup_source = "(cons/preserve)" "(lambda(a_34 b_48)" "(begin" -"(if(let-values(((or-part_69)(preserved-property-value? a_34)))" -"(if or-part_69 or-part_69(preserved-property-value? b_48)))" +"(if(let-values(((or-part_70)(preserved-property-value? a_34)))" +"(if or-part_70 or-part_70(preserved-property-value? b_48)))" "(preserved-property-value1.1(cons(plain-property-value a_34)(plain-property-value b_48)))" "(cons a_34 b_48)))))" "(define-values" @@ -12983,12 +13001,12 @@ static const char *startup_source = " #f)))" " (if or-part_141 or-part_141 \"\"))))" "(let-values(((src-loc-str_0)" -"(let-values(((or-part_54)" +"(let-values(((or-part_55)" "(if(error-print-source-location)" -"(let-values(((or-part_97)(extract-source-location sub-expr_6)))" -"(if or-part_97 or-part_97(extract-source-location expr_8)))" +"(let-values(((or-part_98)(extract-source-location sub-expr_6)))" +"(if or-part_98 or-part_98(extract-source-location expr_8)))" " #f)))" -" (if or-part_54 or-part_54 \"\"))))" +" (if or-part_55 or-part_55 \"\"))))" "(raise" "(exn:fail:syntax_0" " (string-append src-loc-str_0 name_27 \": \" message_12 at-message_0 in-message_0 message-suffix_2)" @@ -12999,16 +13017,16 @@ static const char *startup_source = "(cons" "(datum->syntax$1" " #f" -"(let-values(((or-part_98) sub-expr_6))(if or-part_98 or-part_98 expr_8)))" +"(let-values(((or-part_99) sub-expr_6))(if or-part_99 or-part_99 expr_8)))" " extra-sources_4)" " extra-sources_4)))))))))))))))" "(define-values" "(extract-form-name)" -"(lambda(s_157)" +"(lambda(s_159)" "(begin" -"(if(syntax?$1 s_157)" +"(if(syntax?$1 s_159)" "(let-values()" -"(let-values(((e_19)(syntax-e$1 s_157)))" +"(let-values(((e_19)(syntax-e$1 s_159)))" "(if(symbol? e_19)" "(let-values() e_19)" "(if(if(pair? e_19)(identifier?(car e_19)) #f)" @@ -13017,11 +13035,11 @@ static const char *startup_source = "(let-values() #f)))))" "(define-values" "(extract-source-location)" -"(lambda(s_158)" +"(lambda(s_160)" "(begin" -"(if(syntax?$1 s_158)" -"(if(syntax-srcloc s_158)" -" (let-values (((str_2) (srcloc->string (syntax-srcloc s_158)))) (if str_2 (string-append str_2 \": \") #f))" +"(if(syntax?$1 s_160)" +"(if(syntax-srcloc s_160)" +" (let-values (((str_2) (srcloc->string (syntax-srcloc s_160)))) (if str_2 (string-append str_2 \": \") #f))" " #f)" " #f))))" "(define-values" @@ -14161,10 +14179,10 @@ static const char *startup_source = "(namespace-available-module-instances" " ns_33)" " phase_32" -"(lambda(l_47)" +"(lambda(l_46)" "(cons" " mi_7" -" l_47))" +" l_46))" " null)" "(small-hash-set!" "(module-instance-phase-level-to-state" @@ -14218,7 +14236,7 @@ static const char *startup_source = "(registry-call-with-lock" "(namespace-module-registry$1 ns_37)" "(lambda()" -"((letrec-values(((loop_75)" +"((letrec-values(((loop_74)" "(lambda()" "(begin" " 'loop" @@ -14285,8 +14303,8 @@ static const char *startup_source = " for-loop_89)" " lst_68)))" "(void)" -"(loop_75)))))))))" -" loop_75)))))))))))))" +"(loop_74)))))))))" +" loop_74)))))))))))))" "(case-lambda" "((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)))))" @@ -14420,27 +14438,27 @@ static const char *startup_source = "(lambda(m_10)" "(begin" "(let-values(((access_0)" -"(let-values(((ht_72)(module-provides m_10)))" +"(let-values(((ht_71)(module-provides m_10)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_72)))" +"(let-values()(check-in-hash ht_71)))" "((letrec-values(((for-loop_92)" -"(lambda(table_103 i_86)" +"(lambda(table_102 i_86)" "(begin" " 'for-loop" "(if i_86" "(let-values(((phase_33 at-phase_6)" -"(hash-iterate-key+value ht_72 i_86)))" -"(let-values(((table_104)" -"(let-values(((table_105) table_103))" -"(let-values(((table_106)" +"(hash-iterate-key+value ht_71 i_86)))" +"(let-values(((table_103)" +"(let-values(((table_104) table_102))" +"(let-values(((table_105)" "(let-values()" "(let-values(((key_40 val_32)" "(let-values()" "(values" " phase_33" -"(let-values(((ht_73)" +"(let-values(((ht_72)" " at-phase_6))" "(begin" "(if(variable-reference-from-unsafe?" @@ -14448,9 +14466,9 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_73)))" +" ht_72)))" "((letrec-values(((for-loop_93)" -"(lambda(table_107" +"(lambda(table_106" " i_87)" "(begin" " 'for-loop" @@ -14458,12 +14476,12 @@ static const char *startup_source = "(let-values(((sym_20" " binding/p_1)" "(hash-iterate-key+value" -" ht_73" +" ht_72" " i_87)))" +"(let-values(((table_107)" "(let-values(((table_108)" +" table_106))" "(let-values(((table_109)" -" table_107))" -"(let-values(((table_110)" "(let-values()" "(let-values(((key_41" " val_33)" @@ -14477,36 +14495,36 @@ static const char *startup_source = " 'protected" " 'provided)))))" "(hash-set" -" table_109" +" table_108" " key_41" " val_33)))))" "(values" -" table_110)))))" +" table_109)))))" "(if(not" " #f)" "(for-loop_93" -" table_108" +" table_107" "(hash-iterate-next" -" ht_73" +" ht_72" " i_87))" -" table_108)))" -" table_107)))))" +" table_107)))" +" table_106)))))" " for-loop_93)" " '#hash()" "(hash-iterate-first" -" ht_73))))))))" +" ht_72))))))))" "(hash-set" -" table_105" +" table_104" " key_40" " val_32)))))" -"(values table_106)))))" +"(values table_105)))))" "(if(not #f)" -"(for-loop_92 table_104(hash-iterate-next ht_72 i_86))" -" table_104)))" -" table_103)))))" +"(for-loop_92 table_103(hash-iterate-next ht_71 i_86))" +" table_103)))" +" table_102)))))" " for-loop_92)" " '#hasheqv()" -"(hash-iterate-first ht_72))))))" +"(hash-iterate-first ht_71))))))" "(begin(set-module-access! m_10 access_0) access_0)))))" "(define-values" "(binding->module-instance)" @@ -14614,7 +14632,7 @@ static const char *startup_source = "(resolve+shift/extra-inspector)" "(lambda(id_13 phase_35 ns_43)" "(begin" -"((letrec-values(((loop_76)" +"((letrec-values(((loop_75)" "(lambda(id_14 in-s_1)" "(begin" " 'loop" @@ -14641,10 +14659,10 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((next-b_0)" -"(loop_76" +"(loop_75" " next-id_0" -"(let-values(((or-part_77) in-s_1))" -"(if or-part_77 or-part_77 id_14)))))" +"(let-values(((or-part_78) in-s_1))" +"(if or-part_78 or-part_78 id_14)))))" "(if(not next-b_0)" "(let-values() b_58)" "(if(if(module-binding? next-b_0)" @@ -14681,7 +14699,7 @@ static const char *startup_source = "(let-values() next-b_0))))))" " c1_24)" "(let-values() b_58))))))))" -" loop_76)" +" loop_75)" " id_13" " #f))))" "(define-values" @@ -14774,8 +14792,8 @@ static const char *startup_source = "(lambda(t_37)" "(begin" " 'set!-transformer-procedure" -"(let-values(((v_94)((set!-transformer-value t_37) t_37)))" -"(if(procedure-arity-includes? v_94 1) v_94(lambda(s_159)(v_94 t_37 s_159)))))))" +"(let-values(((v_93)((set!-transformer-value t_37) t_37)))" +"(if(procedure-arity-includes? v_93 1) v_93(lambda(s_161)(v_93 t_37 s_161)))))))" "(define-values(empty-env) '#hasheq())" "(define-values(env-extend)(lambda(env_0 key_42 val_21)(begin(hash-set env_0 key_42 val_21))))" "(define-values(variable)(gensym 'variable))" @@ -14821,9 +14839,9 @@ static const char *startup_source = "(transformer?)" "(lambda(t_39)" "(begin" -"(let-values(((or-part_21)(procedure? t_39)))" -"(if or-part_21" -" or-part_21" +"(let-values(((or-part_32)(procedure? t_39)))" +"(if or-part_32" +" or-part_32" "(let-values(((or-part_156)(1/set!-transformer? t_39)))" "(if or-part_156 or-part_156(1/rename-transformer? t_39))))))))" "(define-values" @@ -14832,7 +14850,7 @@ static const char *startup_source = "(begin" "(if(1/set!-transformer? t_40)" "(let-values()(1/set!-transformer-procedure t_40))" -"(if(1/rename-transformer? t_40)(let-values()(lambda(s_160) s_160))(let-values() t_40))))))" +"(if(1/rename-transformer? t_40)(let-values()(lambda(s_162) s_162))(let-values() t_40))))))" "(define-values" "(struct:core-form core-form9.1 core-form? core-form-expander core-form-name)" "(let-values(((struct:_23 make-_23 ?_23 -ref_23 -set!_23)" @@ -14879,17 +14897,17 @@ static const char *startup_source = "(lambda(in20_0 in22_0 shadow-except21_0 shadow-except23_1 s24_0 binding25_0 phase26_1)" "(begin" " 'add-bulk-binding!27" -"(let-values(((s_161) s24_0))" +"(let-values(((s_163) s24_0))" "(let-values(((binding_9) binding25_0))" "(let-values(((phase_37) phase26_1))" "(let-values(((in-s_3)(if in22_0 in20_0 #f)))" "(let-values(((shadow-except_2)(if shadow-except23_1 shadow-except21_0 #f)))" "(let-values()" "(begin" -"(if(syntax-tainted?$1 s_161)" -" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_161))" +"(if(syntax-tainted?$1 s_163)" +" (let-values () (raise-syntax-error$1 #f \"cannot bind from tainted syntax\" in-s_3 s_163))" "(void))" -"(let-values(((temp59_1)(syntax-scope-set s_161 phase_37))" +"(let-values(((temp59_1)(syntax-scope-set s_163 phase_37))" "((binding60_0) binding_9)" "((shadow-except61_0) shadow-except_2))" "(add-bulk-binding-in-scopes!27.1 shadow-except61_0 #t temp59_1 binding60_0))))))))))))" @@ -15054,28 +15072,28 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_76)))" "((letrec-values(((for-loop_95)" -"(lambda(ht_74 lst_77)" +"(lambda(ht_73 lst_77)" "(begin" " 'for-loop" "(if(pair? lst_77)" "(let-values(((id_21)(unsafe-car lst_77))((rest_35)(unsafe-cdr lst_77)))" -"(let-values(((ht_75)" -"(let-values(((ht_76) ht_74))" -"(let-values(((ht_77)" +"(let-values(((ht_74)" +"(let-values(((ht_75) ht_73))" +"(let-values(((ht_76)" "(let-values()" "(let-values(((sym_21)" "(identifier-binding-symbol$1" " id_21" " phase_40)))" "(hash-set" -" ht_76" +" ht_75" " sym_21" "(cons-ish" " id_21" -"(hash-ref ht_76 sym_21 null)))))))" -"(values ht_77)))))" -"(if(not #f)(for-loop_95 ht_75 rest_35) ht_75)))" -" ht_74)))))" +"(hash-ref ht_75 sym_21 null)))))))" +"(values ht_76)))))" +"(if(not #f)(for-loop_95 ht_74 rest_35) ht_74)))" +" ht_73)))))" " for-loop_95)" " '#hasheq()" " lst_76))))))" @@ -15085,7 +15103,7 @@ static const char *startup_source = "(free-id-set-member?)" "(lambda(fs_1 phase_41 given-id_0)" "(begin" -"(if(zero?(hash-count fs_1))" +"(if(free-id-set-empty? fs_1)" " #f" "(let-values(((lst_78)(hash-ref fs_1(identifier-binding-symbol$1 given-id_0 phase_41) null)))" "(begin" @@ -15305,79 +15323,79 @@ static const char *startup_source = " need-eventually-defined_0" " current-introduction-scopes_0" " name_36))))" -"(define-values(expand-context-context)(lambda(v_95)(begin(expand-context/outer-context v_95))))" -"(define-values(expand-context-env)(lambda(v_96)(begin(expand-context/outer-env v_96))))" +"(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_97)(begin(expand-context/outer-post-expansion-scope-action v_97))))" -"(define-values(expand-context-scopes)(lambda(v_98)(begin(expand-context/outer-scopes v_98))))" -"(define-values(expand-context-def-ctx-scopes)(lambda(v_99)(begin(expand-context/outer-def-ctx-scopes v_99))))" -"(define-values(expand-context-binding-layer)(lambda(v_100)(begin(expand-context/outer-binding-layer v_100))))" +"(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_101)(begin(expand-context/outer-reference-records v_101))))" -"(define-values(expand-context-only-immediate?)(lambda(v_102)(begin(expand-context/outer-only-immediate? v_102))))" +"(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_103)(begin(expand-context/outer-need-eventually-defined v_103))))" +"(lambda(v_102)(begin(expand-context/outer-need-eventually-defined v_102))))" "(define-values" "(expand-context-current-introduction-scopes)" -"(lambda(v_104)(begin(expand-context/outer-current-introduction-scopes v_104))))" -"(define-values(expand-context-name)(lambda(v_105)(begin(expand-context/outer-name v_105))))" +"(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_106)(begin(expand-context/inner-to-parsed?(root-expand-context/outer-inner v_106)))))" +"(lambda(v_105)(begin(expand-context/inner-to-parsed?(root-expand-context/outer-inner v_105)))))" "(define-values" "(expand-context-phase)" -"(lambda(v_107)(begin(expand-context/inner-phase(root-expand-context/outer-inner v_107)))))" +"(lambda(v_106)(begin(expand-context/inner-phase(root-expand-context/outer-inner v_106)))))" "(define-values" "(expand-context-namespace)" -"(lambda(v_108)(begin(expand-context/inner-namespace(root-expand-context/outer-inner v_108)))))" +"(lambda(v_107)(begin(expand-context/inner-namespace(root-expand-context/outer-inner v_107)))))" "(define-values" "(expand-context-just-once?)" -"(lambda(v_109)(begin(expand-context/inner-just-once?(root-expand-context/outer-inner v_109)))))" +"(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_110)(begin(expand-context/inner-module-begin-k(root-expand-context/outer-inner v_110)))))" +"(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_111)(begin(expand-context/inner-allow-unbound?(root-expand-context/outer-inner v_111)))))" +"(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_112)(begin(expand-context/inner-in-local-expand?(root-expand-context/outer-inner v_112)))))" +"(lambda(v_111)(begin(expand-context/inner-in-local-expand?(root-expand-context/outer-inner v_111)))))" "(define-values" "(expand-context-stops)" -"(lambda(v_113)(begin(expand-context/inner-stops(root-expand-context/outer-inner v_113)))))" +"(lambda(v_112)(begin(expand-context/inner-stops(root-expand-context/outer-inner v_112)))))" "(define-values" "(expand-context-declared-submodule-names)" -"(lambda(v_114)(begin(expand-context/inner-declared-submodule-names(root-expand-context/outer-inner v_114)))))" +"(lambda(v_113)(begin(expand-context/inner-declared-submodule-names(root-expand-context/outer-inner v_113)))))" "(define-values" "(expand-context-lifts)" -"(lambda(v_115)(begin(expand-context/inner-lifts(root-expand-context/outer-inner v_115)))))" +"(lambda(v_114)(begin(expand-context/inner-lifts(root-expand-context/outer-inner v_114)))))" "(define-values" "(expand-context-lift-envs)" -"(lambda(v_116)(begin(expand-context/inner-lift-envs(root-expand-context/outer-inner v_116)))))" +"(lambda(v_115)(begin(expand-context/inner-lift-envs(root-expand-context/outer-inner v_115)))))" "(define-values" "(expand-context-module-lifts)" -"(lambda(v_117)(begin(expand-context/inner-module-lifts(root-expand-context/outer-inner v_117)))))" +"(lambda(v_116)(begin(expand-context/inner-module-lifts(root-expand-context/outer-inner v_116)))))" "(define-values" "(expand-context-require-lifts)" -"(lambda(v_118)(begin(expand-context/inner-require-lifts(root-expand-context/outer-inner v_118)))))" +"(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_119)(begin(expand-context/inner-to-module-lifts(root-expand-context/outer-inner v_119)))))" +"(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_120)(begin(expand-context/inner-requires+provides(root-expand-context/outer-inner v_120)))))" +"(lambda(v_119)(begin(expand-context/inner-requires+provides(root-expand-context/outer-inner v_119)))))" "(define-values" "(expand-context-observer)" -"(lambda(v_121)(begin(expand-context/inner-observer(root-expand-context/outer-inner v_121)))))" +"(lambda(v_120)(begin(expand-context/inner-observer(root-expand-context/outer-inner v_120)))))" "(define-values" "(expand-context-for-serializable?)" -"(lambda(v_122)(begin(expand-context/inner-for-serializable?(root-expand-context/outer-inner v_122)))))" +"(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_123)(begin(expand-context/inner-should-not-encounter-macros?(root-expand-context/outer-inner v_123)))))" +"(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)" @@ -15433,15 +15451,15 @@ static const char *startup_source = "(copy-root-expand-context)" "(lambda(ctx_1 root-ctx_2)" "(begin" -"(let-values(((v_124) ctx_1))" -"(let-values(((the-struct_39) v_124))" +"(let-values(((v_123) ctx_1))" +"(let-values(((the-struct_39) v_123))" "(if(expand-context/outer? the-struct_39)" "(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_40)(root-expand-context/outer-inner v_124)))" +"(let-values(((the-struct_40)(root-expand-context/outer-inner v_123)))" "(if(expand-context/inner? the-struct_40)" "(let-values(((self-mpi33_0)(root-expand-context-self-mpi root-ctx_2))" "((module-scopes34_0)(root-expand-context-module-scopes root-ctx_2))" @@ -15512,14 +15530,14 @@ static const char *startup_source = "(current-expand-observe)" "(make-parameter" " #f" -"(lambda(v_125)" +"(lambda(v_124)" "(begin" -"(if(let-values(((or-part_159)(not v_125)))" -"(if or-part_159 or-part_159(if(procedure? v_125)(procedure-arity-includes? v_125 2) #f)))" +"(if(let-values(((or-part_159)(not v_124)))" +"(if or-part_159 or-part_159(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_125)))" -" v_125))))" +" (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)" @@ -15527,13 +15545,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_126) ctx_2))" -"(let-values(((the-struct_19) v_126))" +"(let-values(((v_125) ctx_2))" +"(let-values(((the-struct_19) v_125))" "(if(expand-context/outer? the-struct_19)" "(let-values(((context40_0) 'expression)" "((name41_0) #f)" "((post-expansion-scope42_0) #f)" -"((inner43_0)(root-expand-context/outer-inner v_126)))" +"((inner43_0)(root-expand-context/outer-inner v_125)))" "(expand-context/outer1.1" " inner43_0" " post-expansion-scope42_0" @@ -15558,10 +15576,10 @@ static const char *startup_source = "(if(not(expand-context-name ctx_3))" "(let-values() ctx_3)" "(let-values()" -"(let-values(((v_127) ctx_3))" -"(let-values(((the-struct_41) v_127))" +"(let-values(((v_126) ctx_3))" +"(let-values(((the-struct_41) v_126))" "(if(expand-context/outer? the-struct_41)" -"(let-values(((name44_0) #f)((inner45_0)(root-expand-context/outer-inner v_127)))" +"(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_41)" @@ -15589,11 +15607,11 @@ static const char *startup_source = "(let-values()" "(if(expand-context-name wrt-ctx_0)" "(let-values()" -"(let-values(((v_128) ctx_4))" -"(let-values(((the-struct_42) v_128))" +"(let-values(((v_127) ctx_4))" +"(let-values(((the-struct_42) v_127))" "(if(expand-context/outer? the-struct_42)" "(let-values(((name46_0)(expand-context-name wrt-ctx_0))" -"((inner47_0)(root-expand-context/outer-inner v_128)))" +"((inner47_0)(root-expand-context/outer-inner v_127)))" "(expand-context/outer1.1" " inner47_0" "(root-expand-context/outer-post-expansion-scope the-struct_42)" @@ -15618,10 +15636,10 @@ static const char *startup_source = "(begin" "(if(if(pair? ids_1)(null?(cdr ids_1)) #f)" "(let-values()" -"(let-values(((v_129) ctx_5))" -"(let-values(((the-struct_2) v_129))" +"(let-values(((v_128) ctx_5))" +"(let-values(((the-struct_2) v_128))" "(if(expand-context/outer? the-struct_2)" -"(let-values(((name48_0)(car ids_1))((inner49_0)(root-expand-context/outer-inner v_129)))" +"(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_2)" @@ -15644,11 +15662,11 @@ static const char *startup_source = "(as-to-parsed-context)" "(lambda(ctx_6)" "(begin" -"(let-values(((v_130) ctx_6))" -"(let-values(((the-struct_43) v_130))" +"(let-values(((v_129) ctx_6))" +"(let-values(((the-struct_43) v_129))" "(if(expand-context/outer? the-struct_43)" "(let-values(((inner50_0)" -"(let-values(((the-struct_44)(root-expand-context/outer-inner v_130)))" +"(let-values(((the-struct_44)(root-expand-context/outer-inner v_129)))" "(if(expand-context/inner? the-struct_44)" "(let-values(((to-parsed?51_0) #t)" "((observer52_0) #f)" @@ -15699,14 +15717,14 @@ static const char *startup_source = " (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_43)))))))" "(define-values" "(to-syntax-list.1)" -"(lambda(s_162)" +"(lambda(s_164)" "(begin" " 'to-syntax-list" -"(if(list? s_162)" -"(let-values() s_162)" -"(if(pair? s_162)" -"(let-values()(let-values(((r_28)(to-syntax-list.1(cdr s_162))))(if r_28(cons(car s_162) r_28) #f)))" -"(if(syntax?$1 s_162)(let-values()(to-syntax-list.1(syntax-e$1 s_162)))(let-values() #f)))))))" +"(if(list? s_164)" +"(let-values() s_164)" +"(if(pair? s_164)" +"(let-values()(let-values(((r_27)(to-syntax-list.1(cdr s_164))))(if r_27(cons(car s_164) r_27) #f)))" +"(if(syntax?$1 s_164)(let-values()(to-syntax-list.1(syntax-e$1 s_164)))(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))" @@ -15722,8 +15740,8 @@ static const char *startup_source = "(let-values(((or-part_6)(hash-ref id-cache-0 sym_11 #f)))" "(if or-part_6" " or-part_6" -"(let-values(((s_163)(datum->syntax$1 core-stx sym_11)))" -"(begin(hash-set! id-cache-0 sym_11 s_163) s_163)))))" +"(let-values(((s_165)(datum->syntax$1 core-stx sym_11)))" +"(begin(hash-set! id-cache-0 sym_11 s_165) s_165)))))" "(if(eq? phase_35 1)" "(let-values()" "(let-values(((or-part_28)(hash-ref id-cache-1 sym_11 #f)))" @@ -15795,7 +15813,7 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_81)))" "((letrec-values(((for-loop_97)" -"(lambda(table_111 lst_82 lst_83)" +"(lambda(table_110 lst_82 lst_83)" "(begin" " 'for-loop" "(if(if(pair? lst_82)(pair? lst_83) #f)" @@ -15803,29 +15821,29 @@ static const char *startup_source = "((rest_37)(unsafe-cdr lst_82))" "((syntax?_2)(unsafe-car lst_83))" "((rest_38)(unsafe-cdr lst_83)))" -"(let-values(((table_112)" -"(let-values(((table_113) table_111))" -"(let-values(((ht_78) syms_12))" +"(let-values(((table_111)" +"(let-values(((table_112) table_110))" +"(let-values(((ht_77) syms_12))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash-keys ht_78)))" +"(check-in-hash-keys ht_77)))" "((letrec-values(((for-loop_98)" -"(lambda(table_114" +"(lambda(table_113" " i_40)" "(begin" " 'for-loop" "(if i_40" "(let-values(((sym_24)" "(hash-iterate-key" -" ht_78" +" ht_77" " i_40)))" +"(let-values(((table_114)" "(let-values(((table_115)" +" table_113))" "(let-values(((table_116)" -" table_114))" -"(let-values(((table_117)" "(let-values()" "(let-values(((key_44" " val_35)" @@ -15868,27 +15886,27 @@ static const char *startup_source = " #t)" " b_61))))))" "(hash-set" -" table_116" +" table_115" " key_44" " val_35)))))" "(values" -" table_117)))))" +" table_116)))))" "(if(not" " #f)" "(for-loop_98" -" table_115" +" table_114" "(hash-iterate-next" -" ht_78" +" ht_77" " i_40))" -" table_115)))" -" table_114)))))" +" table_114)))" +" table_113)))))" " for-loop_98)" -" table_113" -"(hash-iterate-first ht_78)))))))" +" table_112" +"(hash-iterate-first ht_77)))))))" "(if(not #f)" -"(for-loop_97 table_112 rest_37 rest_38)" -" table_112)))" -" table_111)))))" +"(for-loop_97 table_111 rest_37 rest_38)" +" table_111)))" +" table_110)))))" " for-loop_97)" " '#hasheq()" " lst_80" @@ -15926,11 +15944,11 @@ static const char *startup_source = "(if(equal? tmp_14 0)" "(let-values()" "(begin" -"(let-values(((ht_79) core-primitives))" +"(let-values(((ht_78) core-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_79)))" +"(let-values()(check-in-hash ht_78)))" "((letrec-values(((for-loop_99)" "(lambda(i_88)" "(begin" @@ -15938,7 +15956,7 @@ static const char *startup_source = "(if i_88" "(let-values(((sym_25 val_36)" "(hash-iterate-key+value" -" ht_79" +" ht_78" " i_88)))" "(let-values((()" "(let-values()" @@ -15955,17 +15973,17 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_99" -"(hash-iterate-next ht_79 i_88))" +"(hash-iterate-next ht_78 i_88))" "(values))))" "(values))))))" " for-loop_99)" -"(hash-iterate-first ht_79))))" +"(hash-iterate-first ht_78))))" "(void)" -"(let-values(((ht_80) core-forms))" +"(let-values(((ht_79) core-forms))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_80)))" +"(let-values()(check-in-hash ht_79)))" "((letrec-values(((for-loop_100)" "(lambda(i_89)" "(begin" @@ -15973,7 +15991,7 @@ static const char *startup_source = "(if i_89" "(let-values(((sym_26 proc_5)" "(hash-iterate-key+value" -" ht_80" +" ht_79" " i_89)))" "(let-values((()" "(let-values()" @@ -15996,11 +16014,11 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_100" -"(hash-iterate-next ht_80 i_89))" +"(hash-iterate-next ht_79 i_89))" "(values))))" "(values))))))" " for-loop_100)" -"(hash-iterate-first ht_80))))" +"(hash-iterate-first ht_79))))" "(void)))" "(let-values()(void)))))))" "(make-module39.1" @@ -16044,20 +16062,20 @@ static const char *startup_source = "(lambda(s_23 phase_44)" "(begin" "(let-values(((ok?_0 id23_0 _24_0)" -"(let-values(((s_164) s_23))" -"(if(let-values(((s_165)(if(syntax?$1 s_164)(syntax-e$1 s_164) s_164)))" -"(if(pair? s_165)" -"(if(let-values(((s_166)(car s_165)))" -"(let-values(((or-part_72)(if(syntax?$1 s_166)(symbol?(syntax-e$1 s_166)) #f)))" -"(if or-part_72 or-part_72(symbol? s_166))))" -"(let-values(((s_79)(cdr s_165))) #t)" +"(let-values(((s_166) s_23))" +"(if(let-values(((s_167)(if(syntax?$1 s_166)(syntax-e$1 s_166) s_166)))" +"(if(pair? s_167)" +"(if(let-values(((s_168)(car s_167)))" +"(let-values(((or-part_73)(if(syntax?$1 s_168)(symbol?(syntax-e$1 s_168)) #f)))" +"(if or-part_73 or-part_73(symbol? s_168))))" +"(let-values(((s_81)(cdr s_167))) #t)" " #f)" " #f))" "(let-values()" "(let-values(((id23_1 _24_1)" -"(let-values(((s_167)(if(syntax?$1 s_164)(syntax-e$1 s_164) s_164)))" -"(let-values(((id25_0)(let-values(((s_67)(car s_167))) s_67))" -"((_26_0)(let-values(((s_168)(cdr s_167))) s_168)))" +"(let-values(((s_169)(if(syntax?$1 s_166)(syntax-e$1 s_166) s_166)))" +"(let-values(((id25_0)(let-values(((s_69)(car s_169))) s_69))" +"((_26_0)(let-values(((s_170)(cdr s_169))) s_170)))" "(values id25_0 _26_0)))))" "(values #t id23_1 _24_1)))" "(values #f #f #f)))))" @@ -16075,39 +16093,39 @@ static const char *startup_source = "(taint-dispatch)" "(lambda(s_0 proc_6 phase_34)" "(begin" -"((letrec-values(((loop_33)" -"(lambda(s_70 mode_10)" +"((letrec-values(((loop_76)" +"(lambda(s_72 mode_10)" "(begin" " 'loop" "(let-values(((tmp_4) mode_10))" "(if(equal? tmp_4 'none)" -"(let-values() s_70)" +"(let-values() s_72)" "(if(equal? tmp_4 'opaque)" -"(let-values()(proc_6 s_70))" +"(let-values()(proc_6 s_72))" "(if(equal? tmp_4 'transparent)" "(let-values()" "(let-values(((c_18)" -"(let-values(((s_169)" -"(let-values(((or-part_13)(syntax->list$1 s_70)))" -"(if or-part_13 or-part_13(syntax-e$1 s_70))))" -"((f_35)(lambda(tail?_40 d_18)(begin 'f d_18)))" +"(let-values(((s_171)" +"(let-values(((or-part_13)(syntax->list$1 s_72)))" +"(if or-part_13 or-part_13(syntax-e$1 s_72))))" +"((f_1)(lambda(tail?_40 d_18)(begin 'f d_18)))" "((s->_3)" -"(lambda(s_170)" +"(lambda(s_172)" "(begin" " 's->" -"(loop_33" -" s_170" -"(syntax-taint-mode-property s_170)))))" +"(loop_76" +" s_172" +"(syntax-taint-mode-property s_172)))))" "((seen_19) #f))" -"(let-values(((s_171) s_169)" -"((f_36) f_35)" +"(let-values(((s_173) s_171)" +"((f_2) f_1)" "((gf_8)" "(lambda(tail?_41 v_29)" "(begin" " 'gf" "(if(syntax?$1 v_29)" "(let-values()(s->_3 v_29))" -"(let-values()(f_35 tail?_41 v_29))))))" +"(let-values()(f_1 tail?_41 v_29))))))" "((seen_20) seen_19))" "((letrec-values(((loop_77)" "(lambda(tail?_42 s_4 prev-depth_8)" @@ -16120,14 +16138,14 @@ static const char *startup_source = "(datum-map-slow" " tail?_42" " s_4" -"(lambda(tail?_43 s_172)" -"(gf_8 tail?_43 s_172))" +"(lambda(tail?_43 s_174)" +"(gf_8 tail?_43 s_174))" " seen_20))" "(if(null? s_4)" -"(let-values()(f_36 tail?_42 s_4))" +"(let-values()(f_2 tail?_42 s_4))" "(if(pair? s_4)" "(let-values()" -"(f_36" +"(f_2" " tail?_42" "(cons" "(loop_77 #f(car s_4) depth_8)" @@ -16136,27 +16154,26 @@ static const char *startup_source = "(cdr s_4)" " depth_8))))" "(if(symbol? s_4)" -"(let-values()(f_36 #f s_4))" +"(let-values()(f_2 #f s_4))" "(if(boolean? s_4)" -"(let-values()(f_36 #f s_4))" +"(let-values()(f_2 #f s_4))" "(if(number? s_4)" -"(let-values()" -"(f_36 #f s_4))" -"(if(let-values(((or-part_76)" +"(let-values()(f_2 #f s_4))" +"(if(let-values(((or-part_77)" "(vector?" " s_4)))" -"(if or-part_76" -" or-part_76" -"(let-values(((or-part_77)" -"(box?" -" s_4)))" "(if or-part_77" " or-part_77" "(let-values(((or-part_78)" -"(prefab-struct-key" +"(box?" " s_4)))" "(if or-part_78" " or-part_78" +"(let-values(((or-part_79)" +"(prefab-struct-key" +" s_4)))" +"(if or-part_79" +" or-part_79" "(hash?" " s_4)))))))" "(let-values()" @@ -16164,10 +16181,10 @@ static const char *startup_source = " tail?_42" " s_4" "(lambda(tail?_44" -" s_173)" +" s_175)" "(gf_8" " tail?_44" -" s_173))" +" s_175))" " seen_20))" "(let-values()" "(gf_8" @@ -16175,58 +16192,58 @@ static const char *startup_source = " s_4))))))))))))))" " loop_77)" " #f" -" s_171" +" s_173" " 0)))))" "(datum->syntax$1" " #f" " c_18" -" s_70" -"(if(syntax-any-macro-scopes? s_70)" -"(1/syntax-property-remove s_70 original-property-sym)" -" s_70))))" +" s_72" +"(if(syntax-any-macro-scopes? s_72)" +"(1/syntax-property-remove s_72 original-property-sym)" +" s_72))))" "(if(equal? tmp_4 'transparent-binding)" "(let-values()" -"(let-values(((c_19)(syntax-e$1 s_70)))" +"(let-values(((c_19)(syntax-e$1 s_72)))" "(if(pair? c_19)" "(let-values()" "(let-values(((cd_0)(cdr c_19)))" -"(if(let-values(((or-part_82)(pair? cd_0)))" -"(if or-part_82" -" or-part_82" +"(if(let-values(((or-part_83)(pair? cd_0)))" +"(if or-part_83" +" or-part_83" "(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_33(car c_19)(syntax-taint-mode-property(car c_19)))" +"(loop_76(car c_19)(syntax-taint-mode-property(car c_19)))" "(cons" -"(loop_33(car d_19) 'transparent)" +"(loop_76(car d_19) 'transparent)" "(let-values(((s_5)" "(let-values(((or-part_160)" "(syntax->list$1(cdr d_19))))" "(if or-part_160 or-part_160(cdr d_19))))" -"((f_37)(lambda(tail?_1 d_20)(begin 'f d_20)))" +"((f_36)(lambda(tail?_1 d_20)(begin 'f d_20)))" "((s->_4)" -"(lambda(s_174)" +"(lambda(s_176)" "(begin" " 's->" -"(loop_33" -" s_174" -"(syntax-taint-mode-property s_174)))))" +"(loop_76" +" s_176" +"(syntax-taint-mode-property s_176)))))" "((seen_0) #f))" "(let-values(((s_42) s_5)" -"((f_38) f_37)" +"((f_37) f_36)" "((gf_9)" "(lambda(tail?_45 v_39)" "(begin" " 'gf" "(if(syntax?$1 v_39)" "(let-values()(s->_4 v_39))" -"(let-values()(f_37 tail?_45 v_39))))))" +"(let-values()(f_36 tail?_45 v_39))))))" "((seen_21) seen_0))" "((letrec-values(((loop_78)" -"(lambda(tail?_46 s_175 prev-depth_9)" +"(lambda(tail?_46 s_177 prev-depth_9)" "(begin" " 'loop" "(let-values(((depth_9)" @@ -16237,102 +16254,102 @@ static const char *startup_source = "(let-values()" "(datum-map-slow" " tail?_46" -" s_175" -"(lambda(tail?_47 s_176)" -"(gf_9 tail?_47 s_176))" +" s_177" +"(lambda(tail?_47 s_178)" +"(gf_9 tail?_47 s_178))" " seen_21))" -"(if(null? s_175)" +"(if(null? s_177)" "(let-values()" -"(f_38 tail?_46 s_175))" -"(if(pair? s_175)" +"(f_37 tail?_46 s_177))" +"(if(pair? s_177)" "(let-values()" -"(f_38" +"(f_37" " tail?_46" "(cons" "(loop_78" " #f" -"(car s_175)" +"(car s_177)" " depth_9)" "(loop_78" " #t" -"(cdr s_175)" +"(cdr s_177)" " depth_9))))" -"(if(symbol? s_175)" +"(if(symbol? s_177)" "(let-values()" -"(f_38 #f s_175))" -"(if(boolean? s_175)" +"(f_37 #f s_177))" +"(if(boolean? s_177)" "(let-values()" -"(f_38 #f s_175))" -"(if(number? s_175)" +"(f_37 #f s_177))" +"(if(number? s_177)" "(let-values()" -"(f_38 #f s_175))" +"(f_37 #f s_177))" "(if(let-values(((or-part_161)" "(vector?" -" s_175)))" +" s_177)))" "(if or-part_161" " or-part_161" -"(let-values(((or-part_162)" +"(let-values(((or-part_21)" "(box?" -" s_175)))" +" s_177)))" +"(if or-part_21" +" or-part_21" +"(let-values(((or-part_162)" +"(prefab-struct-key" +" s_177)))" "(if or-part_162" " or-part_162" -"(let-values(((or-part_163)" -"(prefab-struct-key" -" s_175)))" -"(if or-part_163" -" or-part_163" "(hash?" -" s_175)))))))" +" s_177)))))))" "(let-values()" "(datum-map-slow" " tail?_46" -" s_175" +" s_177" "(lambda(tail?_48" -" s_177)" +" s_179)" "(gf_9" " tail?_48" -" s_177))" +" s_179))" " seen_21))" "(let-values()" "(gf_9" " #f" -" s_175))))))))))))))" +" s_177))))))))))))))" " loop_78)" " #f" " s_42" " 0)))))" -" s_70" -"(if(syntax-any-macro-scopes? s_70)" -"(1/syntax-property-remove s_70 original-property-sym)" -" s_70))))" -"(let-values()(loop_33 s_70 'transparent)))))" -"(let-values()(loop_33 s_70 'transparent)))))" +" s_72" +"(if(syntax-any-macro-scopes? s_72)" +"(1/syntax-property-remove s_72 original-property-sym)" +" s_72))))" +"(let-values()(loop_76 s_72 'transparent)))))" +"(let-values()(loop_76 s_72 'transparent)))))" "(let-values()" -"(let-values(((c_20)(syntax-e$1 s_70)))" +"(let-values(((c_20)(syntax-e$1 s_72)))" "(let-values(((tmp_15)(core-form-sym c_20 phase_34)))" "(if(if(equal? tmp_15 'begin)" " #t" "(if(equal? tmp_15 'begin-for-syntax)" " #t" "(equal? tmp_15 '#%module-begin)))" -"(let-values()(loop_33 s_70 'transparent))" +"(let-values()(loop_76 s_72 'transparent))" "(if(if(equal? tmp_15 'define-values)" " #t" "(equal? tmp_15 'define-syntaxes))" -"(let-values()(loop_33 s_70 'transparent-binding))" -"(let-values()(loop_33 s_70 'opaque))))))))))))))))" -" loop_33)" +"(let-values()(loop_76 s_72 'transparent-binding))" +"(let-values()(loop_76 s_72 'opaque))))))))))))))))" +" loop_76)" " s_0" "(syntax-taint-mode-property s_0)))))" "(define-values" "(syntax-taint-mode-property)" -"(lambda(s_178)" +"(lambda(s_180)" "(begin" -"(let-values(((or-part_164)(syntax-property$1 s_178 'taint-mode)))" -"(if or-part_164 or-part_164(syntax-property$1 s_178 'certify-mode))))))" +"(let-values(((or-part_163)(syntax-property$1 s_180 'taint-mode)))" +"(if or-part_163 or-part_163(syntax-property$1 s_180 'certify-mode))))))" "(define-values" "(syntax-remove-taint-dispatch-properties)" -"(lambda(s_179)(begin(1/syntax-property-remove(1/syntax-property-remove s_179 'taint-mode) 'certify-mode))))" +"(lambda(s_181)(begin(1/syntax-property-remove(1/syntax-property-remove s_181 'taint-mode) 'certify-mode))))" "(define-values(current-module-code-inspector)(make-parameter #f))" "(define-values" "(syntax-debug-info$1)" @@ -16388,7 +16405,7 @@ static const char *startup_source = "(let-values()" "(let-values(((bindings_1" " covered-scopess_0)" -"(let-values(((ht_45)" +"(let-values(((ht_44)" " s-scs_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -16396,7 +16413,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash-keys" -" ht_45)))" +" ht_44)))" "((letrec-values(((for-loop_49)" "(lambda(bindings_2" " covered-scope-sets_0" @@ -16406,32 +16423,32 @@ static const char *startup_source = "(if i_90" "(let-values(((sc_27)" "(unsafe-immutable-hash-iterate-key" -" ht_45" +" ht_44" " i_90)))" "(let-values(((bindings_3" " covered-scope-sets_1)" -"(let-values(((ht_81" +"(let-values(((ht_80" " bulk-bindings_3)" -"(let-values(((table_118)" +"(let-values(((table_117)" "(scope-binding-table" " sc_27)))" "(if(hash?" -" table_118)" +" table_117)" "(values" "(hash-ref" -" table_118" +" table_117" " sym_16" " '#hash())" " null)" "(values" "(hash-ref" "(table-with-bulk-bindings-syms" -" table_118)" +" table_117)" " sym_16" " '#hash())" "(table-with-bulk-bindings-bulk-bindings" -" table_118)))))" -"((s_73)" +" table_117)))))" +"((s_75)" " s_0)" "((extra-shifts_5)" " null))" @@ -16455,7 +16472,7 @@ static const char *startup_source = " i_91)))" "(let-values()" "(hash-iterate-key" -" ht_81" +" ht_80" " i_91))))" "((b_62)" "(if(pair?" @@ -16471,7 +16488,7 @@ static const char *startup_source = "(hash-ref" "(bulk-binding-symbols" " bulk_4" -" s_73" +" s_75" " extra-shifts_5)" " sym_16" " #f)" @@ -16485,7 +16502,7 @@ static const char *startup_source = " #f))))" "(let-values()" "(hash-iterate-value" -" ht_81" +" ht_80" " i_91)))))" "(let-values(((bindings_5" " covered-scope-sets_3)" @@ -16495,10 +16512,10 @@ static const char *startup_source = " covered-scope-sets_2))" "(if(if scs_15" "(if b_62" -"(if(let-values(((or-part_68)" +"(if(let-values(((or-part_69)" " all-bindings?_0))" -"(if or-part_68" -" or-part_68" +"(if or-part_69" +" or-part_69" "(subset?" " scs_15" " s-scs_0)))" @@ -16567,7 +16584,7 @@ static const char *startup_source = "(let-values()" "(let-values(((or-part_7)" "(hash-iterate-next" -" ht_81" +" ht_80" " i_91)))" "(if or-part_7" " or-part_7" @@ -16583,7 +16600,7 @@ static const char *startup_source = " covered-scope-sets_0" "(let-values(((or-part_8)" "(hash-iterate-first" -" ht_81)))" +" ht_80)))" "(if or-part_8" " or-part_8" " bulk-bindings_3)))))))" @@ -16593,7 +16610,7 @@ static const char *startup_source = " bindings_3" " covered-scope-sets_1" "(unsafe-immutable-hash-iterate-next" -" ht_45" +" ht_44" " i_90))" "(values" " bindings_3" @@ -16605,7 +16622,7 @@ static const char *startup_source = " null" "(set)" "(unsafe-immutable-hash-iterate-first" -" ht_45))))))" +" ht_44))))))" " bindings_1))" "(let-values()" " null))))" @@ -16622,24 +16639,24 @@ static const char *startup_source = " for-loop_101)" " null" " lst_77))))))" -"(let-values(((ht_74)(car hts_0)))(if(null?(cdr hts_0)) ht_74(hash-set ht_74 'fallbacks(cdr hts_0))))))))" +"(let-values(((ht_73)(car hts_0)))(if(null?(cdr hts_0)) ht_73(hash-set ht_73 'fallbacks(cdr hts_0))))))))" "(define-values" "(scope-set->context)" "(lambda(scs_16)" "(begin" "(let-values(((temp1_1)" "(reverse$1" -"(let-values(((ht_82) scs_16))" +"(let-values(((ht_81) scs_16))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_82)))" +"(let-values()(check-in-immutable-hash-keys ht_81)))" "((letrec-values(((for-loop_103)" "(lambda(fold-var_63 i_92)" "(begin" " 'for-loop" "(if i_92" -"(let-values(((sc_28)(unsafe-immutable-hash-iterate-key ht_82 i_92)))" +"(let-values(((sc_28)(unsafe-immutable-hash-iterate-key ht_81 i_92)))" "(let-values(((fold-var_64)" "(let-values(((fold-var_65) fold-var_63))" "(let-values(((fold-var_66)" @@ -16661,14 +16678,14 @@ static const char *startup_source = "(if(not #f)" "(for-loop_103" " fold-var_64" -"(unsafe-immutable-hash-iterate-next ht_82 i_92))" +"(unsafe-immutable-hash-iterate-next ht_81 i_92))" " fold-var_64)))" " fold-var_63)))))" " for-loop_103)" " null" -"(unsafe-immutable-hash-iterate-first ht_82))))))" +"(unsafe-immutable-hash-iterate-first ht_81))))))" "((<2_0) <)" -"((temp3_2)(lambda(v_131)(vector-ref v_131 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)" @@ -16683,9 +16700,9 @@ static const char *startup_source = "(syntax-debug-info-string id_22 ctx_7)))))" "(define-values" "(syntax-debug-info-string)" -"(lambda(s_180 ctx_8)" +"(lambda(s_182 ctx_8)" "(begin" -"(let-values(((info_3)(syntax-debug-info$1 s_180(expand-context-phase ctx_8) #t)))" +"(let-values(((info_3)(syntax-debug-info$1 s_182(expand-context-phase ctx_8) #t)))" "(if(not" "(let-values(((or-part_26)(pair?(hash-ref info_3 'bindings null))))" "(if or-part_26" @@ -16723,7 +16740,7 @@ static const char *startup_source = " (let-values () \"\")" "(let-values()" "(let-values(((relevant-scope-sets_0)" -"((letrec-values(((loop_76)" +"((letrec-values(((loop_75)" "(lambda(info_4 layer_0)" "(begin" " 'loop" @@ -16792,7 +16809,7 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(loop_76" +"(loop_75" " fallback_0" " layer_1))" " fold-var_70))))" @@ -16809,7 +16826,7 @@ static const char *startup_source = " null" " lst_88" " start_14))))))))))" -" loop_76)" +" loop_75)" " info_3" " 0)))" "(let-values(((common-scopes_0)" @@ -16821,22 +16838,22 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_90)))" "((letrec-values(((for-loop_107)" -"(lambda(s_174 lst_91)" +"(lambda(s_176 lst_91)" "(begin" " 'for-loop" "(if(pair? lst_91)" -"(let-values(((l_48)(unsafe-car lst_91))" +"(let-values(((l_47)(unsafe-car lst_91))" "((rest_43)(unsafe-cdr lst_91)))" -"(let-values(((s_82)" -"(let-values(((s_43) s_174))" -"(let-values(((s_181)" +"(let-values(((s_84)" +"(let-values(((s_43) s_176))" +"(let-values(((s_183)" "(let-values()" "(set-intersect" " s_43" -"(list->set l_48)))))" -"(values s_181)))))" -"(if(not #f)(for-loop_107 s_82 rest_43) s_82)))" -" s_174)))))" +"(list->set l_47)))))" +"(values s_183)))))" +"(if(not #f)(for-loop_107 s_84 rest_43) s_84)))" +" s_176)))))" " for-loop_107)" "(list->set(car relevant-scope-sets_0))" " lst_90))))))" @@ -16981,16 +16998,16 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_10)" -"(let-values(((s_182)(unsafe-car lst_10))" +"(let-values(((s_184)(unsafe-car lst_10))" "((rest_1)(unsafe-cdr lst_10)))" "(let-values(((fold-var_78)" "(let-values(((fold-var_79) fold-var_77))" -"(if(set-member? common-scopes_0 s_182)" +"(if(set-member? common-scopes_0 s_184)" "(let-values(((fold-var_5) fold-var_79))" "(let-values(((fold-var_6)" "(let-values()" "(cons" -"(let-values() s_182)" +"(let-values() s_184)" " fold-var_5))))" "(values fold-var_6)))" " fold-var_79))))" @@ -17036,16 +17053,16 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_97)" -"(let-values(((s_183)(unsafe-car lst_97))" +"(let-values(((s_185)(unsafe-car lst_97))" "((rest_45)(unsafe-cdr lst_97)))" "(let-values(((fold-var_81)" "(let-values(((fold-var_82) fold-var_80))" -"(if(not(set-member? common-scopes_1 s_183))" +"(if(not(set-member? common-scopes_1 s_185))" "(let-values(((fold-var_83) fold-var_82))" "(let-values(((fold-var_84)" "(let-values()" "(cons" -"(let-values() s_183)" +"(let-values() s_185)" " fold-var_83))))" "(values fold-var_84)))" " fold-var_82))))" @@ -17137,19 +17154,19 @@ static const char *startup_source = " 'check-no-duplicate-ids8" "(let-values(((ids_2) ids5_0))" "(let-values(((phase_47) phase6_0))" -"(let-values(((s_184) s7_1))" -"(let-values(((ht_77)(if ht4_0 ht3_0(make-check-no-duplicate-table))))" +"(let-values(((s_186) s7_1))" +"(let-values(((ht_76)(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_80)" -"(lambda(v_132 ht_83)" +"((letrec-values(((loop_34)" +"(lambda(v_131 ht_82)" "(begin" " 'loop" -"(if(identifier? v_132)" +"(if(identifier? v_131)" "(let-values()" -"(let-values(((l_7)(hash-ref ht_83(syntax-e$1 v_132) null)))" +"(let-values(((l_48)(hash-ref ht_82(syntax-e$1 v_131) null)))" "(begin" -"(let-values(((lst_78) l_7))" +"(let-values(((lst_78) l_48))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -17170,7 +17187,7 @@ static const char *startup_source = "(let-values()" "(if(bound-identifier=?$1" " id_14" -" v_132" +" v_131" " phase_47)" "(let-values()" "(raise-syntax-error$1" @@ -17178,8 +17195,8 @@ static const char *startup_source = "(string-append" " \"duplicate \"" " what_2)" -" s_184" -" v_132))" +" s_186" +" v_131))" "(void)))" "(values)))))" "(values)))))" @@ -17190,13 +17207,13 @@ static const char *startup_source = " for-loop_96)" " lst_78)))" "(void)" -"(hash-set ht_83(syntax-e$1 v_132)(cons v_132 l_7)))))" -"(if(pair? v_132)" -"(let-values()(loop_80(cdr v_132)(loop_80(car v_132) ht_83)))" -"(let-values() ht_83)))))))" -" loop_80)" +"(hash-set ht_82(syntax-e$1 v_131)(cons v_131 l_48)))))" +"(if(pair? v_131)" +"(let-values()(loop_34(cdr v_131)(loop_34(car v_131) ht_82)))" +"(let-values() ht_82)))))))" +" loop_34)" " ids_2" -" ht_77))))))))))" +" ht_76))))))))))" "(define-values" "(remove-use-site-scopes)" "(lambda(s_0 ctx_7)" @@ -17335,9 +17352,9 @@ static const char *startup_source = "(intern-module-path-index!)" "(lambda(t_43 mpi_21)" "(begin" -"(let-values(((or-part_74)(hash-ref(mpi-intern-table-fast t_43) mpi_21 #f)))" -"(if or-part_74" -" or-part_74" +"(let-values(((or-part_75)(hash-ref(mpi-intern-table-fast t_43) mpi_21 #f)))" +"(if or-part_75" +" or-part_75" "(let-values(((name_2 base_15)(1/module-path-index-split mpi_21)))" "(if(not name_2)" "(let-values()(begin(hash-set!(mpi-intern-table-fast t_43) mpi_21 mpi_21) mpi_21))" @@ -17350,9 +17367,9 @@ static const char *startup_source = "(let-values(((at-name_1)(make-hasheq)))" "(begin(hash-set!(mpi-intern-table-normal t_43) name_2 at-name_1) at-name_1))))))" "(let-values(((i-mpi_0)" -"(let-values(((or-part_81)(hash-ref at-name_0 interned-base_0 #f)))" -"(if or-part_81" -" or-part_81" +"(let-values(((or-part_82)(hash-ref at-name_0 interned-base_0 #f)))" +"(if or-part_82" +" or-part_82" "(let-values(((mpi_22)" "(if(eq? base_15 interned-base_0)" " mpi_21" @@ -17372,12 +17389,12 @@ static const char *startup_source = "(begin(hash-set!(mpi-intern-table-fast t_43) mpi_21 i-mpi_0) i-mpi_0))))))))))))" "(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_69)(begin(hash-ref built-in-symbols s_69 #f))))" +"(define-values(built-in-symbol?)(lambda(s_71)(begin(hash-ref built-in-symbols s_71 #f))))" "(define-values" "(make-built-in-symbol!)" -"(lambda(s_180)" +"(lambda(s_182)" "(begin" -" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_180))))" +" (let-values (((built-in-s_0) (string->symbol (format \".~s\" s_182))))" "(begin(register-built-in-symbol! built-in-s_0) built-in-s_0)))))" "(void" "(begin" @@ -17477,9 +17494,9 @@ static const char *startup_source = "(let-values()" "(let-values(((mpi_24)(intern-module-path-index!(module-path-index-table-intern mpis_1) mpi_23))" "((positions_0)(module-path-index-table-positions mpis_1)))" -"(let-values(((or-part_79)(hash-ref positions_0 mpi_24 #f)))" -"(if or-part_79" -" or-part_79" +"(let-values(((or-part_80)(hash-ref positions_0 mpi_24 #f)))" +"(if or-part_80" +" or-part_80" "(let-values(((pos_14)(hash-count positions_0)))" "(begin(hash-set! positions_0 mpi_24 pos_14) pos_14))))))" "(void))))))" @@ -17488,12 +17505,12 @@ static const char *startup_source = "(lambda(mpis_2)" "(begin" "(let-values(((unique-list_0)" -"(lambda(v_133)" +"(lambda(v_132)" "(begin" " 'unique-list" -"(if(pair? v_133)" +"(if(pair? v_132)" "(reverse$1" -"(let-values(((lst_102) v_133))" +"(let-values(((lst_102) v_132))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -17520,24 +17537,24 @@ static const char *startup_source = " for-loop_112)" " null" " lst_102))))" -" v_133)))))" +" v_132)))))" "(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_84) positions_1))" +"(let-values(((ht_83) positions_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_84)))" +"(let-values()(check-in-hash ht_83)))" "((letrec-values(((for-loop_83)" -"(lambda(table_119 i_94)" +"(lambda(table_118 i_94)" "(begin" " 'for-loop" "(if i_94" -"(let-values(((k_19 v_64)(hash-iterate-key+value ht_84 i_94)))" +"(let-values(((k_19 v_64)(hash-iterate-key+value ht_83 i_94)))" +"(let-values(((table_119)" +"(let-values(((table_113) table_118))" "(let-values(((table_120)" -"(let-values(((table_114) table_119))" -"(let-values(((table_121)" "(let-values()" "(let-values(((key_45 val_37)" "(let-values()" @@ -17545,17 +17562,17 @@ static const char *startup_source = " v_64" " k_19))))" "(hash-set" -" table_114" +" table_113" " key_45" " val_37)))))" -"(values table_121)))))" +"(values table_120)))))" "(if(not #f)" -"(for-loop_83 table_120(hash-iterate-next ht_84 i_94))" -" table_120)))" -" table_119)))))" +"(for-loop_83 table_119(hash-iterate-next ht_83 i_94))" +" table_119)))" +" table_118)))))" " for-loop_83)" " '#hasheqv()" -"(hash-iterate-first ht_84))))))" +"(hash-iterate-first ht_83))))))" "(let-values((()" "(begin" "(let-values(((start_16) 0)((end_10)(hash-count rev-positions_0))((inc_4) 1))" @@ -17579,7 +17596,7 @@ static const char *startup_source = "(hash-ref" " rev-positions_0" " i_95)))" -"((letrec-values(((loop_81)" +"((letrec-values(((loop_80)" "(lambda(mpi_26)" "(begin" " 'loop" @@ -17596,7 +17613,7 @@ static const char *startup_source = "(begin" "(if base_16" "(let-values()" -"(loop_81" +"(loop_80" " base_16))" "(void))" "(hash-set!" @@ -17604,7 +17621,7 @@ static const char *startup_source = " mpi_26" "(hash-count" " gen-order_0))))))))))" -" loop_81)" +" loop_80)" " mpi_25)))" "(values)))))" "(values)))))" @@ -17615,40 +17632,40 @@ static const char *startup_source = "(values))))" "(let-values()" "(let-values(((rev-gen-order_0)" -"(let-values(((ht_85) gen-order_0))" +"(let-values(((ht_84) gen-order_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_85)))" +"(let-values()(check-in-hash ht_84)))" "((letrec-values(((for-loop_114)" -"(lambda(table_122 i_20)" +"(lambda(table_121 i_96)" "(begin" " 'for-loop" -"(if i_20" -"(let-values(((k_20 v_134)" -"(hash-iterate-key+value ht_85 i_20)))" +"(if i_96" +"(let-values(((k_20 v_133)" +"(hash-iterate-key+value ht_84 i_96)))" "(let-values(((table_15)" -"(let-values(((table_123) table_122))" +"(let-values(((table_122) table_121))" "(let-values(((table_9)" "(let-values()" "(let-values(((key_46" " val_38)" "(let-values()" "(values" -" v_134" +" v_133" " k_20))))" "(hash-set" -" table_123" +" table_122" " key_46" " val_38)))))" "(values table_9)))))" "(if(not #f)" -"(for-loop_114 table_15(hash-iterate-next ht_85 i_20))" +"(for-loop_114 table_15(hash-iterate-next ht_84 i_96))" " table_15)))" -" table_122)))))" +" table_121)))))" " for-loop_114)" " '#hasheqv()" -"(hash-iterate-first ht_85))))))" +"(hash-iterate-first ht_84))))))" "(let-values(((gens_0)" "(let-values(((len_12)(hash-count gen-order_0)))" "(begin" @@ -17656,7 +17673,7 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_12)))" -"(let-values(((v_135)(make-vector len_12 0)))" +"(let-values(((v_134)(make-vector len_12 0)))" "(begin" "(if(zero? len_12)" "(void)" @@ -17669,19 +17686,19 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_17 end_11 inc_5)))" "((letrec-values(((for-loop_28)" -"(lambda(i_96 pos_16)" +"(lambda(i_97 pos_16)" "(begin" " 'for-loop" "(if(< pos_16 end_11)" "(let-values(((i_89) pos_16))" -"(let-values(((i_97)" -"(let-values(((i_98) i_96))" -"(let-values(((i_99)" +"(let-values(((i_98)" +"(let-values(((i_99) i_97))" +"(let-values(((i_100)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_135" -" i_98" +" v_134" +" i_99" "(let-values()" "(let-values(((mpi_27)" "(hash-ref" @@ -17699,13 +17716,13 @@ static const char *startup_source = " path_6)" "(let-values()" "(box" -"(let-values(((or-part_165)" +"(let-values(((or-part_164)" "(unique-list_0" "(1/resolved-module-path-name" "(module-path-index-resolved" " mpi_27)))))" -"(if or-part_165" -" or-part_165" +"(if or-part_164" +" or-part_164" " 'self))))" "(if(not" " base_17)" @@ -17722,21 +17739,21 @@ static const char *startup_source = "(void)))))))))" "(unsafe-fx+" " 1" -" i_98)))))" -"(values i_99)))))" +" i_99)))))" +"(values i_100)))))" "(if(if(not" "((lambda x_9" -"(unsafe-fx= i_97 len_12))" +"(unsafe-fx= i_98 len_12))" " i_89))" "(not #f)" " #f)" -"(for-loop_28 i_97(+ pos_16 inc_5))" -" i_97)))" -" i_96)))))" +"(for-loop_28 i_98(+ pos_16 inc_5))" +" i_98)))" +" i_97)))))" " for-loop_28)" " 0" " start_17)))))" -" v_135))))))" +" v_134))))))" "(list" " 'deserialize-module-path-indexes" "(list 'quote gens_0)" @@ -17749,14 +17766,14 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_18 end_12 inc_6)))" "((letrec-values(((for-loop_55)" -"(lambda(vec_30 i_100 pos_17)" +"(lambda(vec_30 i_101 pos_17)" "(begin" " 'for-loop" "(if(< pos_17 end_12)" "(let-values(((i_21) pos_17))" -"(let-values(((vec_31 i_101)" +"(let-values(((vec_31 i_102)" "(let-values(((vec_32) vec_30)" -"((i_37) i_100))" +"((i_37) i_101))" "(let-values(((vec_33 i_60)" "(let-values()" "(let-values(((new-vec_2)" @@ -17784,9 +17801,9 @@ static const char *startup_source = " 1)))))))" "(values vec_33 i_60)))))" "(if(not #f)" -"(for-loop_55 vec_31 i_101(+ pos_17 inc_6))" -"(values vec_31 i_101))))" -"(values vec_30 i_100))))))" +"(for-loop_55 vec_31 i_102(+ pos_17 inc_6))" +"(values vec_31 i_102))))" +"(values vec_30 i_101))))))" " for-loop_55)" "(make-vector 16)" " 0" @@ -17812,7 +17829,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(if(unsafe-fx< pos_18 len_13) #t #f)" -"(let-values(((d_21)(unsafe-vector-ref vec_34 pos_18))((i_102) pos_19))" +"(let-values(((d_21)(unsafe-vector-ref vec_34 pos_18))((i_103) pos_19))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17821,7 +17838,7 @@ static const char *startup_source = "(let-values()" "(vector-set!" " gen_0" -" i_102" +" i_103" "(if(eq? d_21 'top)" "(let-values()" "(deserialize-module-path-index))" @@ -17850,7 +17867,7 @@ static const char *startup_source = "(if(exact-nonnegative-integer? len_14)" "(void)" " (let-values () (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_14)))" -"(let-values(((v_136)(make-vector len_14 0)))" +"(let-values(((v_135)(make-vector len_14 0)))" "(begin" "(if(zero? len_14)" "(void)" @@ -17861,33 +17878,33 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_116)" -"(lambda(i_103 pos_20)" +"(lambda(i_104 pos_20)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_20 len_15)" "(let-values(((p_32)(unsafe-vector-ref vec_35 pos_20)))" "(let-values(((i_45)" -"(let-values(((i_104) i_103))" -"(let-values(((i_105)" +"(let-values(((i_105) i_104))" +"(let-values(((i_106)" "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_136" -" i_104" +" v_135" +" i_105" "(let-values()" "(vector*-ref gen_0 p_32)))" -"(unsafe-fx+ 1 i_104)))))" -"(values i_105)))))" +"(unsafe-fx+ 1 i_105)))))" +"(values i_106)))))" "(if(if(not((lambda x_42(unsafe-fx= i_45 len_14)) p_32))" "(not #f)" " #f)" "(for-loop_116 i_45(unsafe-fx+ 1 pos_20))" " i_45)))" -" i_103)))))" +" i_104)))))" " for-loop_116)" " 0" " 0)))))" -" v_136)))))))))" +" v_135)))))))))" "(define-values" "(mpis-as-vector)" "(lambda(mpis_3)" @@ -17895,17 +17912,17 @@ static const char *startup_source = "(let-values(((positions_2)(module-path-index-table-positions mpis_3)))" "(let-values(((vec_37)(make-vector(hash-count positions_2) #f)))" "(begin" -"(let-values(((ht_86) positions_2))" +"(let-values(((ht_85) positions_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_86)))" +"(let-values()(check-in-hash ht_85)))" "((letrec-values(((for-loop_117)" -"(lambda(i_106)" +"(lambda(i_107)" "(begin" " 'for-loop" -"(if i_106" -"(let-values(((mpi_28 pos_21)(hash-iterate-key+value ht_86 i_106)))" +"(if i_107" +"(let-values(((mpi_28 pos_21)(hash-iterate-key+value ht_85 i_107)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -17915,10 +17932,10 @@ static const char *startup_source = "(vector-set! vec_37 pos_21 mpi_28))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_117(hash-iterate-next ht_86 i_106))(values))))" +"(if(not #f)(for-loop_117(hash-iterate-next ht_85 i_107))(values))))" "(values))))))" " for-loop_117)" -"(hash-iterate-first ht_86))))" +"(hash-iterate-first ht_85))))" "(void)" " vec_37))))))" "(define-values" @@ -17956,23 +17973,23 @@ static const char *startup_source = " lst_103)))))))" "(define-values" "(interned-literal?)" -"(lambda(v_90)" +"(lambda(v_89)" "(begin" -"(let-values(((or-part_166)(null? v_90)))" +"(let-values(((or-part_165)(null? v_89)))" +"(if or-part_165" +" or-part_165" +"(let-values(((or-part_166)(boolean? v_89)))" "(if or-part_166" " or-part_166" -"(let-values(((or-part_167)(boolean? v_90)))" +"(let-values(((or-part_167)" +"(if(fixnum? v_89)(if(< v_89(sub1(expt 2 30)))(> v_89(-(expt 2 30))) #f) #f)))" "(if or-part_167" " or-part_167" -"(let-values(((or-part_168)" -"(if(fixnum? v_90)(if(< v_90(sub1(expt 2 30)))(> v_90(-(expt 2 30))) #f) #f)))" +"(let-values(((or-part_168)(symbol? v_89)))" "(if or-part_168" " or-part_168" -"(let-values(((or-part_169)(symbol? v_90)))" -"(if or-part_169" -" or-part_169" -"(let-values(((or-part_170)(char? v_90)))" -"(if or-part_170 or-part_170(keyword? v_90))))))))))))))" +"(let-values(((or-part_169)(char? v_89)))" +"(if or-part_169 or-part_169(keyword? v_89))))))))))))))" "(define-values" "(serialize-phase-to-link-module-uses)" "(lambda(phase-to-link-module-uses_0 mpis_5)" @@ -18021,11 +18038,11 @@ static const char *startup_source = "(lambda(syntax-support?2_0 syntax-support?3_0 v4_0 mpis5_0)" "(begin" " 'generate-deserialize6" -"(let-values(((v_137) 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_4)(find-reachable-scopes v_137)))" +"(let-values(((reachable-scopes_4)(find-reachable-scopes v_136)))" "(let-values(((state_24)(make-serialize-state reachable-scopes_4)))" "(let-values(((mutables_0)(make-hasheq)))" "(let-values(((objs_0)(make-hasheq)))" @@ -18034,99 +18051,99 @@ static const char *startup_source = "(let-values(((frontier_0) null))" "(letrec-values(((add-frontier!_0)" "(case-lambda" -"((v_100)(begin 'add-frontier!(set! frontier_0(cons v_100 frontier_0))))" -"((kind_3 v_102)(add-frontier!_0 v_102)))))" +"((v_99)(begin 'add-frontier!(set! frontier_0(cons v_99 frontier_0))))" +"((kind_3 v_101)(add-frontier!_0 v_101)))))" "(let-values((()" "(begin" "((letrec-values(((frontier-loop_0)" -"(lambda(v_104)" +"(lambda(v_103)" "(begin" " 'frontier-loop" "(begin" -"((letrec-values(((loop_82)" -"(lambda(v_106)" +"((letrec-values(((loop_81)" +"(lambda(v_105)" "(begin" " 'loop" -"(if(let-values(((or-part_171)" +"(if(let-values(((or-part_170)" "(interned-literal?" -" v_106)))" -"(if or-part_171" -" or-part_171" +" v_105)))" +"(if or-part_170" +" or-part_170" "(1/module-path-index?" -" v_106)))" +" v_105)))" "(let-values()(void))" "(if(hash-ref" " objs_0" -" v_106" +" v_105" " #f)" "(let-values()" "(if(hash-ref" " mutables_0" -" v_106" +" v_105" " #f)" "(void)" "(let-values()" "(hash-set!" " shares_0" -" v_106" +" v_105" " #t))))" "(let-values()" "(begin" "(if(serialize-fill!?" -" v_106)" +" v_105)" "(let-values()" "(begin" "(hash-set!" " mutables_0" -" v_106" +" v_105" "(hash-count" " mutables_0))" "((serialize-fill!-ref" -" v_106)" -" v_106" +" v_105)" +" v_105" " add-frontier!_0" " state_24)))" "(if(serialize?" -" v_106)" +" v_105)" "(let-values()" "((serialize-ref" -" v_106)" -" v_106" +" v_105)" +" v_105" "(case-lambda" "((sub-v_0)" -"(loop_82" +"(loop_81" " sub-v_0))" "((kind_2" " sub-v_1)" -"(loop_82" +"(loop_81" " sub-v_1)))" " state_24))" "(if(pair?" -" v_106)" +" v_105)" "(let-values()" "(begin" -"(loop_82" +"(loop_81" "(car" -" v_106))" -"(loop_82" +" v_105))" +"(loop_81" "(cdr" -" v_106))))" +" v_105))))" "(if(vector?" -" v_106)" +" v_105)" "(let-values()" -"(if(let-values(((or-part_172)" +"(if(let-values(((or-part_171)" "(immutable?" -" v_106)))" -"(if or-part_172" -" or-part_172" +" v_105)))" +"(if or-part_171" +" or-part_171" "(zero?" "(vector-length" -" v_106))))" +" v_105))))" "(begin" "(let-values(((vec_38" " len_16)" "(let-values(((vec_39)" -" v_106))" +" v_105))" "(begin" "(check-vector" " vec_39)" @@ -18153,7 +18170,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_82" +"(loop_81" " e_20))" "(values)))))" "(values)))))" @@ -18171,14 +18188,14 @@ static const char *startup_source = "(begin" "(hash-set!" " mutables_0" -" v_106" +" v_105" "(hash-count" " mutables_0))" "(begin" "(let-values(((vec_40" " len_17)" "(let-values(((vec_41)" -" v_106))" +" v_105))" "(begin" "(check-vector" " vec_41)" @@ -18221,31 +18238,31 @@ static const char *startup_source = " 0)))" "(void)))))" "(if(box?" -" v_106)" +" v_105)" "(let-values()" "(if(immutable?" -" v_106)" -"(loop_82" +" v_105)" +"(loop_81" "(unbox" -" v_106))" +" v_105))" "(begin" "(hash-set!" " mutables_0" -" v_106" +" v_105" "(hash-count" " mutables_0))" "(add-frontier!_0" "(unbox" -" v_106)))))" +" v_105)))))" "(if(hash?" -" v_106)" +" v_105)" "(let-values()" "(if(immutable?" -" v_106)" +" v_105)" "(begin" "(let-values(((lst_75)" "(sorted-hash-keys" -" v_106)))" +" v_105)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -18272,11 +18289,11 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(loop_82" +"(loop_81" " k_21)" -"(loop_82" +"(loop_81" "(hash-ref" -" v_106" +" v_105" " k_21))))" "(values)))))" "(values)))))" @@ -18292,13 +18309,13 @@ static const char *startup_source = "(begin" "(hash-set!" " mutables_0" -" v_106" +" v_105" "(hash-count" " mutables_0))" "(begin" "(let-values(((lst_108)" "(sorted-hash-keys" -" v_106)))" +" v_105)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -18329,7 +18346,7 @@ static const char *startup_source = " k_22)" "(add-frontier!_0" "(hash-ref" -" v_106" +" v_105" " k_22))))" "(values)))))" "(values)))))" @@ -18343,7 +18360,7 @@ static const char *startup_source = " lst_108)))" "(void)))))" "(if(prefab-struct-key" -" v_106)" +" v_105)" "(let-values()" "(begin" "(let-values(((v*_2" @@ -18360,7 +18377,7 @@ static const char *startup_source = "(unsafe-vector-length" " x_43))" "(struct->vector" -" v_106)" +" v_105)" " 1" " #f" " 1)))" @@ -18383,7 +18400,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_82" +"(loop_81" " e_22))" "(values)))))" "(values)))))" @@ -18399,7 +18416,7 @@ static const char *startup_source = " start*_1)))" "(void)))" "(if(srcloc?" -" v_106)" +" v_105)" "(let-values()" "(begin" "(let-values(((v*_3" @@ -18416,7 +18433,7 @@ static const char *startup_source = "(unsafe-vector-length" " x_45))" "(struct->vector" -" v_106)" +" v_105)" " 1" " #f" " 1)))" @@ -18439,7 +18456,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_82" +"(loop_81" " e_23))" "(values)))))" "(values)))))" @@ -18458,13 +18475,13 @@ static const char *startup_source = "(void))))))))))" "(hash-set!" " objs_0" -" v_106" +" v_105" " obj-step_0)" "(set! obj-step_0" "(add1" " obj-step_0))))))))))" -" loop_82)" -" v_104)" +" loop_81)" +" v_103)" "(if(null? frontier_0)" "(void)" "(let-values()" @@ -18484,7 +18501,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_111)" -"(let-values(((v_79)" +"(let-values(((v_78)" "(unsafe-car" " lst_111))" "((rest_54)" @@ -18497,7 +18514,7 @@ static const char *startup_source = "(begin" "(let-values()" "(frontier-loop_0" -" v_79))" +" v_78))" "(values)))))" "(values)))))" "(if(not" @@ -18510,27 +18527,27 @@ static const char *startup_source = " lst_110)))" "(void))))))))))" " frontier-loop_0)" -" v_137)" +" 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_87) shares_0))" +"(let-values(((ht_86) shares_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_87)))" +"(let-values()(check-in-hash-keys ht_86)))" "((letrec-values(((for-loop_75)" -"(lambda(fold-var_102 i_107)" +"(lambda(fold-var_102 i_108)" "(begin" " 'for-loop" -"(if i_107" +"(if i_108" "(let-values(((obj_0)" "(hash-iterate-key" -" ht_87" -" i_107)))" +" ht_86" +" i_108)))" "(let-values(((fold-var_103)" "(let-values(((fold-var_104)" " fold-var_102))" @@ -18548,13 +18565,13 @@ static const char *startup_source = "(for-loop_75" " fold-var_103" "(hash-iterate-next" -" ht_87" -" i_107))" +" ht_86" +" i_108))" " fold-var_103)))" " fold-var_102)))))" " for-loop_75)" " null" -"(hash-iterate-first ht_87)))))))" +"(hash-iterate-first ht_86)))))))" "(let-values(((lst_112)" "(let-values(((share-steps12_0) share-steps_0)" "((<13_0) <))" @@ -18568,7 +18585,7 @@ static const char *startup_source = "(void)" "(let-values()(check-naturals start_20)))" "((letrec-values(((for-loop_127)" -"(lambda(table_124 lst_113 pos_24)" +"(lambda(table_123 lst_113 pos_24)" "(begin" " 'for-loop" "(if(if(pair? lst_113) #t #f)" @@ -18577,10 +18594,10 @@ static const char *startup_source = "((rest_55)" "(unsafe-cdr lst_113))" "((pos_25) pos_24))" +"(let-values(((table_124)" "(let-values(((table_125)" +" table_123))" "(let-values(((table_126)" -" table_124))" -"(let-values(((table_127)" "(let-values()" "(let-values(((key_47" " val_39)" @@ -18589,17 +18606,17 @@ static const char *startup_source = " step_3" " pos_25))))" "(hash-set" -" table_126" +" table_125" " key_47" " val_39)))))" -"(values table_127)))))" +"(values table_126)))))" "(if(not #f)" "(for-loop_127" -" table_125" +" table_124" " rest_55" "(+ pos_24 1))" -" table_125)))" -" table_124)))))" +" table_124)))" +" table_123)))))" " for-loop_127)" " '#hasheqv()" " lst_112" @@ -18612,12 +18629,12 @@ static const char *startup_source = "(lambda(pos_26)" "(begin" " 'quoted?" -"(let-values(((v_138)" +"(let-values(((v_137)" "(list-ref" " stream_0" "(- stream-size_0(add1 pos_26)))))" -"(let-values(((or-part_158)(not(keyword? v_138))))" -"(if or-part_158 or-part_158(eq? '#:quote v_138))))))))" +"(let-values(((or-part_158)(not(keyword? v_137))))" +"(if or-part_158 or-part_158(eq? '#:quote v_137))))))))" "(let-values(((ser-reset!_0)" "(lambda(pos_27)" "(begin" @@ -18636,20 +18653,20 @@ static const char *startup_source = "(set! stream-size_0 0))))))" "(letrec-values(((ser-push!_15)" "(case-lambda" -"((v_139)" +"((v_138)" "(begin" " 'ser-push!" -"(if(hash-ref shares_0 v_139 #f)" +"(if(hash-ref shares_0 v_138 #f)" "(let-values()" "(let-values(((n_21)" "(hash-ref" " share-step-positions_0" -"(hash-ref objs_0 v_139))))" +"(hash-ref objs_0 v_138))))" "(begin" "(ser-push!_15 'tag '#:ref)" "(ser-push!_15 'exact n_21))))" "(let-values(((c1_25)" -"(hash-ref mutables_0 v_139 #f)))" +"(hash-ref mutables_0 v_138 #f)))" "(if c1_25" "((lambda(n_22)" "(begin" @@ -18657,49 +18674,49 @@ static const char *startup_source = "(ser-push!_15 'exact n_22)))" " c1_25)" "(let-values()" -"(ser-push-encoded!_0 v_139)))))))" -"((kind_4 v_140)" +"(ser-push-encoded!_0 v_138)))))))" +"((kind_4 v_139)" "(let-values(((tmp_18) kind_4))" "(if(equal? tmp_18 'exact)" "(let-values()" "(begin" -"(set! stream_0(cons v_140 stream_0))" +"(set! stream_0(cons v_139 stream_0))" "(set! stream-size_0(add1 stream-size_0))))" "(if(equal? tmp_18 'tag)" -"(let-values()(ser-push!_15 'exact v_140))" +"(let-values()(ser-push!_15 'exact v_139))" "(if(equal? tmp_18 'reference)" "(let-values()" -"(if(hash-ref shares_0 v_140 #f)" +"(if(hash-ref shares_0 v_139 #f)" "(let-values()" "(let-values(((n_23)" "(hash-ref" " share-step-positions_0" "(hash-ref" " objs_0" -" v_140))))" +" v_139))))" "(ser-push!_15 'exact n_23)))" "(let-values(((c2_1)" "(hash-ref" " mutables_0" -" v_140" +" v_139" " #f)))" "(if c2_1" "((lambda(n_24)" "(ser-push!_15 'exact n_24))" " c2_1)" "(let-values()" -"(ser-push!_15 v_140))))))" -"(let-values()(ser-push!_15 v_140)))))))))" +"(ser-push!_15 v_139))))))" +"(let-values()(ser-push!_15 v_139)))))))))" "((ser-push-encoded!_0)" -"(lambda(v_141)" +"(lambda(v_140)" "(begin" " 'ser-push-encoded!" -"(if(keyword? v_141)" +"(if(keyword? v_140)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:quote)" -"(ser-push!_15 'exact v_141)))" -"(if(1/module-path-index? v_141)" +"(ser-push!_15 'exact v_140)))" +"(if(1/module-path-index? v_140)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:mpi)" @@ -18707,16 +18724,16 @@ static const char *startup_source = " 'exact" "(add-module-path-index!/pos" " mpis_6" -" v_141))))" -"(if(serialize? v_141)" +" v_140))))" +"(if(serialize? v_140)" "(let-values()" -"((serialize-ref v_141)" -" v_141" +"((serialize-ref v_140)" +" v_140" " ser-push!_15" " state_24))" -"(if(if(list? v_141)" -"(if(pair? v_141)" -"(pair?(cdr v_141))" +"(if(if(list? v_140)" +"(if(pair? v_140)" +"(pair?(cdr v_140))" " #f)" " #f)" "(let-values()" @@ -18732,11 +18749,11 @@ static const char *startup_source = "(begin" "(ser-push!_15" " 'exact" -"(length v_141))" +"(length v_140))" "(values))))" "(let-values(((all-quoted?_0)" "(let-values(((lst_114)" -" v_141))" +" v_140))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -18751,7 +18768,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_115)" -"(let-values(((i_108)" +"(let-values(((i_109)" "(unsafe-car" " lst_115))" "((rest_56)" @@ -18766,7 +18783,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_15" -" i_108)" +" i_109)" "(if all-quoted?_3" "(quoted?_0" " i-pos_0)" @@ -18790,9 +18807,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_141)))" +" v_140)))" "(void)))))))" -"(if(pair? v_141)" +"(if(pair? v_140)" "(let-values()" "(let-values(((start-pos_1)" "(next-push-position_0)))" @@ -18807,12 +18824,12 @@ static const char *startup_source = "(let-values((()" "(begin" "(ser-push!_15" -"(car v_141))" +"(car v_140))" "(values))))" "(let-values(((d-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_15(cdr v_141))" +"(ser-push!_15(cdr v_140))" "(if(if(quoted?_0 a-pos_0)" "(quoted?_0 d-pos_0)" " #f)" @@ -18823,9 +18840,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_141)))" +" v_140)))" "(void)))))))))" -"(if(box? v_141)" +"(if(box? v_140)" "(let-values()" "(let-values(((start-pos_2)" "(next-push-position_0)))" @@ -18838,7 +18855,7 @@ static const char *startup_source = "(let-values(((v-pos_0)" "(next-push-position_0)))" "(begin" -"(ser-push!_15(unbox v_141))" +"(ser-push!_15(unbox v_140))" "(if(quoted?_0 v-pos_0)" "(let-values()" "(begin" @@ -18847,9 +18864,9 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_141)))" +" v_140)))" "(void)))))))" -"(if(vector? v_141)" +"(if(vector? v_140)" "(let-values()" "(let-values(((start-pos_3)" "(next-push-position_0)))" @@ -18864,13 +18881,13 @@ static const char *startup_source = "(ser-push!_15" " 'exact" "(vector-length" -" v_141))" +" v_140))" "(values))))" "(let-values(((all-quoted?_5)" "(let-values(((vec_42" " len_18)" "(let-values(((vec_43)" -" v_141))" +" v_140))" "(begin" "(check-vector" " vec_43)" @@ -18888,7 +18905,7 @@ static const char *startup_source = "(if(unsafe-fx<" " pos_28" " len_18)" -"(let-values(((i_109)" +"(let-values(((i_110)" "(unsafe-vector-ref" " vec_42" " pos_28)))" @@ -18901,7 +18918,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_15" -" i_109)" +" i_110)" "(if all-quoted?_8" "(quoted?_0" " i-pos_1)" @@ -18928,32 +18945,32 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_141)))" +" v_140)))" "(void)))))))" -"(if(hash? v_141)" +"(if(hash? v_140)" "(let-values()" "(let-values(((start-pos_4)" "(next-push-position_0)))" "(let-values(((as-set?_0)" -"(let-values(((ht_88)" -" v_141))" +"(let-values(((ht_87)" +" v_140))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-in-hash-values" -" ht_88)))" +" ht_87)))" "((letrec-values(((for-loop_42)" "(lambda(result_68" -" i_110)" +" i_111)" "(begin" " 'for-loop" -"(if i_110" +"(if i_111" "(let-values(((val_40)" "(hash-iterate-value" -" ht_88" -" i_110)))" +" ht_87" +" i_111)))" "(let-values(((result_69)" "(let-values()" "(let-values(((result_70)" @@ -18975,35 +18992,35 @@ static const char *startup_source = "(for-loop_42" " result_69" "(hash-iterate-next" -" ht_88" -" i_110))" +" ht_87" +" i_111))" " result_69)))" " result_68)))))" " for-loop_42)" " #t" "(hash-iterate-first" -" ht_88))))))" +" ht_87))))))" "(let-values((()" "(begin" "(ser-push!_15" " 'tag" "(if as-set?_0" "(if(hash-eq?" -" v_141)" +" v_140)" "(let-values()" " '#:seteq)" "(if(hash-eqv?" -" v_141)" +" v_140)" "(let-values()" " '#:seteqv)" "(let-values()" " '#:set)))" "(if(hash-eq?" -" v_141)" +" v_140)" "(let-values()" " '#:hasheq)" "(if(hash-eqv?" -" v_141)" +" v_140)" "(let-values()" " '#:hasheqv)" "(let-values()" @@ -19014,11 +19031,11 @@ static const char *startup_source = "(ser-push!_15" " 'exact" "(hash-count" -" v_141))" +" v_140))" "(values))))" "(let-values(((ks_0)" "(sorted-hash-keys" -" v_141)))" +" v_140)))" "(let-values(((all-quoted?_10)" "(let-values(((lst_48)" " ks_0))" @@ -19062,15 +19079,15 @@ static const char *startup_source = "(let-values()" "(ser-push!_15" "(hash-ref" -" v_141" +" v_140" " k_23))))" "(if all-quoted?_13" "(if(quoted?_0" " k-pos_0)" -"(let-values(((or-part_173)" +"(let-values(((or-part_172)" " as-set?_0))" -"(if or-part_173" -" or-part_173" +"(if or-part_172" +" or-part_172" "(quoted?_0" " v-pos_1)))" " #f)" @@ -19095,16 +19112,16 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_141)))" +" v_140)))" "(void)))))))))" "(let-values(((c3_0)" "(prefab-struct-key" -" v_141)))" +" v_140)))" "(if c3_0" "((lambda(k_24)" "(let-values(((vec_44)" "(struct->vector" -" v_141)))" +" v_140)))" "(let-values(((start-pos_5)" "(next-push-position_0)))" "(let-values((()" @@ -19155,7 +19172,7 @@ static const char *startup_source = "(if(unsafe-fx<" " idx_3" " stop*_4)" -"(let-values(((i_111)" +"(let-values(((i_112)" "(unsafe-vector-ref" " v*_4" " idx_3)))" @@ -19168,7 +19185,7 @@ static const char *startup_source = "(next-push-position_0)))" "(begin" "(ser-push!_15" -" i_111)" +" i_112)" "(if all-quoted?_18" "(quoted?_0" " i-pos_2)" @@ -19195,91 +19212,91 @@ static const char *startup_source = "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_141)))" +" v_140)))" "(void)))))))))" " c3_0)" -"(if(srcloc? v_141)" +"(if(srcloc? v_140)" "(let-values()" "(begin" "(ser-push!_15" " 'tag" " '#:srcloc)" "(ser-push!_15" -"(srcloc-source v_141))" +"(srcloc-source v_140))" "(ser-push!_15" -"(srcloc-line v_141))" +"(srcloc-line v_140))" "(ser-push!_15" -"(srcloc-column v_141))" +"(srcloc-column v_140))" "(ser-push!_15" -"(srcloc-position v_141))" +"(srcloc-position v_140))" "(ser-push!_15" -"(srcloc-span v_141))))" +"(srcloc-span v_140))))" "(let-values()" "(begin" "(ser-push-optional-quote!_0)" "(ser-push!_15" " 'exact" -" v_141)))))))))))))))))" +" v_140)))))))))))))))))" "((ser-push-optional-quote!_0)" "(lambda()(begin 'ser-push-optional-quote!(void)))))" "(let-values(((ser-shell!_0)" -"(lambda(v_142)" +"(lambda(v_141)" "(begin" " 'ser-shell!" -"(if(serialize-fill!? v_142)" +"(if(serialize-fill!? v_141)" "(let-values()" -"((serialize-ref v_142)" -" v_142" +"((serialize-ref v_141)" +" v_141" " ser-push!_15" " state_24))" -"(if(box? v_142)" +"(if(box? v_141)" "(let-values()(ser-push!_15 'tag '#:box))" -"(if(vector? v_142)" +"(if(vector? v_141)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:vector)" "(ser-push!_15" " 'exact" -"(vector-length v_142))))" -"(if(hash? v_142)" +"(vector-length v_141))))" +"(if(hash? v_141)" "(let-values()" "(ser-push!_15" " 'tag" -"(if(hash-eq? v_142)" +"(if(hash-eq? v_141)" "(let-values() '#:hasheq)" -"(if(hash-eqv? v_142)" +"(if(hash-eqv? v_141)" "(let-values() '#:hasheqv)" "(let-values() '#:hash)))))" "(let-values()" "(error" " 'ser-shell" " \"unknown mutable: ~e\"" -" v_142))))))))))" +" v_141))))))))))" "(let-values(((ser-shell-fill!_0)" -"(lambda(v_143)" +"(lambda(v_142)" "(begin" " 'ser-shell-fill!" -"(if(serialize-fill!? v_143)" +"(if(serialize-fill!? v_142)" "(let-values()" -"((serialize-fill!-ref v_143)" -" v_143" +"((serialize-fill!-ref v_142)" +" v_142" " ser-push!_15" " state_24))" -"(if(box? v_143)" +"(if(box? v_142)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:set-box!)" -"(ser-push!_15(unbox v_143))))" -"(if(vector? v_143)" +"(ser-push!_15(unbox v_142))))" +"(if(vector? v_142)" "(let-values()" "(begin" "(ser-push!_15 'tag '#:set-vector!)" "(ser-push!_15" " 'exact" -"(vector-length v_143))" +"(vector-length v_142))" "(let-values(((vec_45 len_19)" "(let-values(((vec_46)" -" v_143))" +" v_142))" "(begin" "(check-vector vec_46)" "(values" @@ -19295,7 +19312,7 @@ static const char *startup_source = "(if(unsafe-fx<" " pos_29" " len_19)" -"(let-values(((v_144)" +"(let-values(((v_143)" "(unsafe-vector-ref" " vec_45" " pos_29)))" @@ -19306,7 +19323,7 @@ static const char *startup_source = "(begin" "(let-values()" "(ser-push!_15" -" v_144))" +" v_143))" "(values)))))" "(values)))))" "(if(not" @@ -19320,7 +19337,7 @@ static const char *startup_source = " for-loop_132)" " 0)))" "(void)))" -"(if(hash? v_143)" +"(if(hash? v_142)" "(let-values()" "(let-values((()" "(begin" @@ -19332,11 +19349,11 @@ static const char *startup_source = "(begin" "(ser-push!_15" " 'exact" -"(hash-count v_143))" +"(hash-count v_142))" "(values))))" "(let-values(((ks_1)" "(sorted-hash-keys" -" v_143)))" +" v_142)))" "(begin" "(let-values(((lst_117) ks_1))" "(begin" @@ -19368,7 +19385,7 @@ static const char *startup_source = " k_25)" "(ser-push!_15" "(hash-ref" -" v_143" +" v_142" " k_25))))" "(values)))))" "(values)))))" @@ -19385,52 +19402,52 @@ static const char *startup_source = "(error" " 'ser-shell-fill" " \"unknown mutable: ~e\"" -" v_143))))))))))" +" v_142))))))))))" "(let-values(((rev-mutables_0)" -"(let-values(((ht_89) mutables_0))" +"(let-values(((ht_88) mutables_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_89)))" +"(let-values()(check-in-hash ht_88)))" "((letrec-values(((for-loop_134)" -"(lambda(table_128 i_7)" +"(lambda(table_127 i_7)" "(begin" " 'for-loop" "(if i_7" "(let-values(((k_26" -" v_145)" +" v_144)" "(hash-iterate-key+value" -" ht_89" +" ht_88" " i_7)))" +"(let-values(((table_128)" "(let-values(((table_129)" +" table_127))" "(let-values(((table_130)" -" table_128))" -"(let-values(((table_131)" "(let-values()" "(let-values(((key_48" " val_41)" "(let-values()" "(values" -" v_145" +" v_144" " k_26))))" "(hash-set" -" table_130" +" table_129" " key_48" " val_41)))))" "(values" -" table_131)))))" +" table_130)))))" "(if(not #f)" "(for-loop_134" -" table_129" +" table_128" "(hash-iterate-next" -" ht_89" +" ht_88" " i_7))" -" table_129)))" -" table_128)))))" +" table_128)))" +" table_127)))))" " for-loop_134)" " '#hasheqv()" -"(hash-iterate-first ht_89))))))" +"(hash-iterate-first ht_88))))))" "(let-values(((mutable-shell-bindings_0)" "(begin" "(begin" @@ -19451,7 +19468,7 @@ static const char *startup_source = "(if(<" " pos_30" " end_13)" -"(let-values(((i_112)" +"(let-values(((i_113)" " pos_30))" "(let-values((()" "(let-values()" @@ -19462,7 +19479,7 @@ static const char *startup_source = "(ser-shell!_0" "(hash-ref" " rev-mutables_0" -" i_112)))" +" i_113)))" "(values)))))" "(values)))))" "(if(not #f)" @@ -19477,26 +19494,26 @@ static const char *startup_source = "(void))" "(reap-stream!_0))))" "(let-values(((rev-shares_0)" -"(let-values(((ht_90) shares_0))" +"(let-values(((ht_89) shares_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash-keys ht_90)))" +"(check-in-hash-keys ht_89)))" "((letrec-values(((for-loop_136)" -"(lambda(table_132 i_113)" +"(lambda(table_131 i_114)" "(begin" " 'for-loop" -"(if i_113" +"(if i_114" "(let-values(((obj_1)" "(hash-iterate-key" -" ht_90" -" i_113)))" +" ht_89" +" i_114)))" +"(let-values(((table_132)" "(let-values(((table_133)" +" table_131))" "(let-values(((table_134)" -" table_132))" -"(let-values(((table_135)" "(let-values()" "(let-values(((key_49" " val_42)" @@ -19509,22 +19526,22 @@ static const char *startup_source = " obj_1))" " obj_1))))" "(hash-set" -" table_134" +" table_133" " key_49" " val_42)))))" "(values" -" table_135)))))" +" table_134)))))" "(if(not #f)" "(for-loop_136" -" table_133" +" table_132" "(hash-iterate-next" -" ht_90" -" i_113))" -" table_133)))" -" table_132)))))" +" ht_89" +" i_114))" +" table_132)))" +" table_131)))))" " for-loop_136)" " '#hasheqv()" -"(hash-iterate-first ht_90))))))" +"(hash-iterate-first ht_89))))))" "(let-values(((shared-bindings_0)" "(begin" "(begin" @@ -19550,7 +19567,7 @@ static const char *startup_source = "(if(<" " pos_31" " end_14)" -"(let-values(((i_114)" +"(let-values(((i_115)" " pos_31))" "(let-values((()" "(let-values()" @@ -19561,7 +19578,7 @@ static const char *startup_source = "(ser-push-encoded!_0" "(hash-ref" " rev-shares_0" -" i_114)))" +" i_115)))" "(values)))))" "(values)))))" "(if(not" @@ -19599,7 +19616,7 @@ static const char *startup_source = "(if(<" " pos_32" " end_15)" -"(let-values(((i_115)" +"(let-values(((i_116)" " pos_32))" "(let-values((()" "(let-values()" @@ -19610,7 +19627,7 @@ static const char *startup_source = "(ser-shell-fill!_0" "(hash-ref" " rev-mutables_0" -" i_115)))" +" i_116)))" "(values)))))" "(values)))))" "(if(not" @@ -19638,13 +19655,13 @@ static const char *startup_source = "(list" " 'quote" "(begin" -"(ser-push!_15 v_137)" +"(ser-push!_15 v_136)" "(reap-stream!_0))))))))))))))))))))))))))))))))))))" "(define-values" "(sorted-hash-keys)" -"(lambda(ht_91)" +"(lambda(ht_90)" "(begin" -"(let-values(((ks_2)(hash-keys ht_91)))" +"(let-values(((ks_2)(hash-keys ht_90)))" "(if(null? ks_2)" "(let-values() ks_2)" "(if(null?(cdr ks_2))" @@ -19665,7 +19682,7 @@ static const char *startup_source = "(define-values" "(deserialize)" "(lambda(mpis_7" -" inspector_5" +" inspector_4" " bulk-binding-registry_5" " num-mutables_1" " mutable-vec_0" @@ -19687,7 +19704,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_34 end_16)" -"(let-values(((i_116) pos_34))" +"(let-values(((i_117) pos_34))" "(let-values(((pos_35)" "(let-values(((pos_36) pos_33))" "(let-values(((pos_37)" @@ -19697,13 +19714,13 @@ static const char *startup_source = " mutable-vec_0" " pos_36" " mpis_7" -" inspector_5" +" inspector_4" " bulk-binding-registry_5" " shared_0)))" "(begin" "(vector-set!" " shared_0" -" i_116" +" i_117" " d_22)" " next-pos_0)))))" "(values pos_37)))))" @@ -19727,7 +19744,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_39 end_17)" -"(let-values(((i_117) pos_39))" +"(let-values(((i_118) pos_39))" "(let-values(((pos_40)" "(let-values(((pos_41) pos_38))" "(let-values(((pos_42)" @@ -19737,13 +19754,13 @@ static const char *startup_source = " shared-vec_0" " pos_41" " mpis_7" -" inspector_5" +" inspector_4" " bulk-binding-registry_5" " shared_0)))" "(begin" "(vector-set!" " shared_0" -" i_117" +" i_118" " d_23)" " next-pos_1)))))" "(values pos_42)))))" @@ -19773,17 +19790,17 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(if(< pos_44 end_18)(unsafe-fx< pos_45 len_20) #f)" -"(let-values(((v_146)(unsafe-vector-ref vec_47 pos_45)))" +"(let-values(((v_145)(unsafe-vector-ref vec_47 pos_45)))" "(let-values(((pos_46)" "(let-values(((pos_47) pos_43))" "(let-values(((pos_48)" "(let-values()" "(decode-fill!" -" v_146" +" v_145" " mutable-fill-vec_0" " pos_47" " mpis_7" -" inspector_5" +" inspector_4" " bulk-binding-registry_5" " shared_0))))" "(values pos_48)))))" @@ -19800,11 +19817,11 @@ static const char *startup_source = " 0)))" "(values))))" "(let-values(((result_71 done-pos_0)" -"(decode result-vec_0 0 mpis_7 inspector_5 bulk-binding-registry_5 shared_0)))" +"(decode result-vec_0 0 mpis_7 inspector_4 bulk-binding-registry_5 shared_0)))" " result_71))))))))" "(define-values" "(decode-shell)" -"(lambda(vec_49 pos_49 mpis_8 inspector_6 bulk-binding-registry_6 shared_1)" +"(lambda(vec_49 pos_49 mpis_8 inspector_5 bulk-binding-registry_6 shared_1)" "(begin" "(let-values(((tmp_19)(vector*-ref vec_49 pos_49)))" "(if(equal? tmp_19 '#:box)" @@ -19817,10 +19834,10 @@ static const char *startup_source = "(let-values()(values(make-hasheq)(add1 pos_49)))" "(if(equal? tmp_19 '#:hasheqv)" "(let-values()(values(make-hasheqv)(add1 pos_49)))" -"(let-values()(decode vec_49 pos_49 mpis_8 inspector_6 bulk-binding-registry_6 shared_1)))))))))))" +"(let-values()(decode vec_49 pos_49 mpis_8 inspector_5 bulk-binding-registry_6 shared_1)))))))))))" "(define-values" "(decode)" -"(lambda(vec_50 pos_50 mpis_9 inspector_7 bulk-binding-registry_7 shared_2)" +"(lambda(vec_50 pos_50 mpis_9 inspector_6 bulk-binding-registry_7 shared_2)" "(begin" "(let-values()" "(let-values(((tmp_20)(vector*-ref vec_50 pos_50)))" @@ -19869,7 +19886,7 @@ static const char *startup_source = "(let-values()(values(vector*-ref vec_50 pos_50)(add1 pos_50)))" "(let-values()(values(vector*-ref shared_2(vector*-ref vec_50(add1 pos_50)))(+ pos_50 2))))" "(if(unsafe-fx< index_0 3)" -"(let-values()(values inspector_7(add1 pos_50)))" +"(let-values()(values inspector_6(add1 pos_50)))" "(if(unsafe-fx< index_0 4)" "(let-values()(values bulk-binding-registry_7(add1 pos_50)))" "(if(unsafe-fx< index_0 5)" @@ -19879,33 +19896,33 @@ static const char *startup_source = " vec_50" "(add1 pos_50)" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((context_2 next-pos_3)" -"(let-values(((i_118)(vector*-ref vec_50 next-pos_2)))" -"(if(exact-integer? i_118)" -"(values(vector*-ref shared_2 i_118)(add1 next-pos_2))" +"(let-values(((i_119)(vector*-ref vec_50 next-pos_2)))" +"(if(exact-integer? i_119)" +"(values(vector*-ref shared_2 i_119)(add1 next-pos_2))" "(decode" " vec_50" " next-pos_2" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_3 next-pos_4)" -"(let-values(((i_119)(vector*-ref vec_50 next-pos_3)))" -"(if(exact-integer? i_119)" -"(values(vector*-ref shared_2 i_119)(add1 next-pos_3))" +"(let-values(((i_120)(vector*-ref vec_50 next-pos_3)))" +"(if(exact-integer? i_120)" +"(values(vector*-ref shared_2 i_120)(add1 next-pos_3))" "(decode" " vec_50" " next-pos_3" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))))" "(values" -"(deserialize-syntax content_8 context_2 srcloc_3 #f #f inspector_7)" +"(deserialize-syntax content_8 context_2 srcloc_3 #f #f inspector_6)" " next-pos_4)))))" "(let-values()" "(let-values(((content_9 next-pos_5)" @@ -19913,59 +19930,59 @@ static const char *startup_source = " vec_50" "(add1 pos_50)" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((context_3 next-pos_6)" -"(let-values(((i_120)(vector*-ref vec_50 next-pos_5)))" -"(if(exact-integer? i_120)" -"(values(vector*-ref shared_2 i_120)(add1 next-pos_5))" +"(let-values(((i_121)(vector*-ref vec_50 next-pos_5)))" +"(if(exact-integer? i_121)" +"(values(vector*-ref shared_2 i_121)(add1 next-pos_5))" "(decode" " vec_50" " next-pos_5" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_4 next-pos_7)" -"(let-values(((i_121)(vector*-ref vec_50 next-pos_6)))" -"(if(exact-integer? i_121)" -"(values(vector*-ref shared_2 i_121)(add1 next-pos_6))" +"(let-values(((i_122)(vector*-ref vec_50 next-pos_6)))" +"(if(exact-integer? i_122)" +"(values(vector*-ref shared_2 i_122)(add1 next-pos_6))" "(decode" " vec_50" " next-pos_6" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))))" "(values" -"(deserialize-datum->syntax content_9 context_3 srcloc_4 inspector_7)" +"(deserialize-datum->syntax content_9 context_3 srcloc_4 inspector_6)" " next-pos_7)))))))))" "(if(unsafe-fx< index_0 9)" "(if(unsafe-fx< index_0 7)" "(let-values()" "(let-values(((content_10 next-pos_8)" -"(decode vec_50(add1 pos_50) mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))" +"(decode vec_50(add1 pos_50) mpis_9 inspector_6 bulk-binding-registry_7 shared_2)))" "(let-values(((context_4 next-pos_9)" -"(let-values(((i_122)(vector*-ref vec_50 next-pos_8)))" -"(if(exact-integer? i_122)" -"(values(vector*-ref shared_2 i_122)(add1 next-pos_8))" +"(let-values(((i_123)(vector*-ref vec_50 next-pos_8)))" +"(if(exact-integer? i_123)" +"(values(vector*-ref shared_2 i_123)(add1 next-pos_8))" "(decode" " vec_50" " next-pos_8" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))))" "(let-values(((srcloc_5 next-pos_10)" -"(let-values(((i_123)(vector*-ref vec_50 next-pos_9)))" -"(if(exact-integer? i_123)" -"(values(vector*-ref shared_2 i_123)(add1 next-pos_9))" +"(let-values(((i_124)(vector*-ref vec_50 next-pos_9)))" +"(if(exact-integer? i_124)" +"(values(vector*-ref shared_2 i_124)(add1 next-pos_9))" "(decode" " vec_50" " next-pos_9" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))))" "(let-values(((props_1 next-pos_11)" @@ -19973,7 +19990,7 @@ static const char *startup_source = " vec_50" " next-pos_10" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((tamper_2 next-pos_12)" @@ -19981,11 +19998,11 @@ static const char *startup_source = " vec_50" " next-pos_11" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(values" -"(deserialize-syntax content_10 context_4 srcloc_5 props_1 tamper_2 inspector_7)" +"(deserialize-syntax content_10 context_4 srcloc_5 props_1 tamper_2 inspector_6)" " next-pos_12)))))))" "(if(unsafe-fx< index_0 8)" "(let-values()" @@ -19994,7 +20011,7 @@ static const char *startup_source = " vec_50" "(add1 pos_50)" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((line_0 next-pos_14)" @@ -20002,7 +20019,7 @@ static const char *startup_source = " vec_50" " next-pos_13" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((column_0 next-pos_15)" @@ -20010,7 +20027,7 @@ static const char *startup_source = " vec_50" " next-pos_14" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((position_0 next-pos_16)" @@ -20018,7 +20035,7 @@ static const char *startup_source = " vec_50" " next-pos_15" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((span_0 next-pos_17)" @@ -20026,7 +20043,7 @@ static const char *startup_source = " vec_50" " next-pos_16" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(values(srcloc source_0 line_0 column_0 position_0 span_0) next-pos_17)))))))" @@ -20035,15 +20052,15 @@ static const char *startup_source = "(let-values()(values(vector*-ref mpis_9(vector*-ref vec_50(add1 pos_50)))(+ pos_50 2)))" "(if(unsafe-fx< index_0 11)" "(let-values()" -"(let-values(((v_147 next-pos_18)" +"(let-values(((v_146 next-pos_18)" "(decode" " vec_50" "(add1 pos_50)" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(values(box-immutable v_147) next-pos_18)))" +"(values(box-immutable v_146) next-pos_18)))" "(if(unsafe-fx< index_0 12)" "(let-values()" "(let-values(((a_38 next-pos_19)" @@ -20051,7 +20068,7 @@ static const char *startup_source = " vec_50" "(add1 pos_50)" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((d_24 next-pos_20)" @@ -20059,13 +20076,13 @@ static const char *startup_source = " vec_50" " next-pos_19" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(values(cons a_38 d_24) next-pos_20))))" "(let-values()" "(let-values(((len_21)(vector*-ref vec_50(add1 pos_50))))" -"(let-values(((r_29)(make-vector len_21)))" +"(let-values(((r_28)(make-vector len_21)))" "(let-values(((next-pos_21)" "(let-values(((start_27) 0)((end_19) len_21)((inc_13) 1))" "(begin" @@ -20077,30 +20094,30 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_52 end_19)" -"(let-values(((i_124) pos_52))" +"(let-values(((i_125) pos_52))" "(let-values(((pos_53)" "(let-values(((pos_54) pos_51))" "(let-values(((pos_55)" "(let-values()" -"(let-values(((v_148" +"(let-values(((v_147" " next-pos_22)" -"(let-values(((v_149" +"(let-values(((v_148" " next-pos_23)" "(decode" " vec_50" " pos_54" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(values" -" v_149" +" v_148" " next-pos_23))))" "(begin" "(vector-set!" -" r_29" -" i_124" -" v_148)" +" r_28" +" i_125" +" v_147)" " next-pos_22)))))" "(values pos_55)))))" "(if(not #f)" @@ -20112,14 +20129,14 @@ static const char *startup_source = " start_27)))))" "(values" "(if(eq?(vector*-ref vec_50 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_92)" +"(let-values(((ht_91)" "(let-values(((tmp_21)(vector*-ref vec_50 pos_50)))" "(if(equal? tmp_21 '#:hash)" "(let-values()(hash))" @@ -20135,47 +20152,47 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_28 end_20 inc_14)))" "((letrec-values(((for-loop_143)" -"(lambda(ht_93 pos_56 pos_57)" +"(lambda(ht_92 pos_56 pos_57)" "(begin" " 'for-loop" "(if(< pos_57 end_20)" "(let-values()" -"(let-values(((ht_94 pos_58)" -"(let-values(((ht_95) ht_93)((pos_59) pos_56))" -"(let-values(((ht_96 pos_60)" +"(let-values(((ht_93 pos_58)" +"(let-values(((ht_94) ht_92)((pos_59) pos_56))" +"(let-values(((ht_95 pos_60)" "(let-values()" "(let-values(((k_27 next-pos_24)" "(decode" " vec_50" " pos_59" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" -"(let-values(((v_150" +"(let-values(((v_149" " next-pos_25)" "(decode" " vec_50" " next-pos_24" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(values" -"(hash-set ht_95 k_27 v_150)" +"(hash-set ht_94 k_27 v_149)" " next-pos_25))))))" -"(values ht_96 pos_60)))))" +"(values ht_95 pos_60)))))" "(if(not #f)" -"(for-loop_143 ht_94 pos_58(+ pos_57 inc_14))" -"(values ht_94 pos_58))))" -"(values ht_93 pos_56))))))" +"(for-loop_143 ht_93 pos_58(+ pos_57 inc_14))" +"(values ht_93 pos_58))))" +"(values ht_92 pos_56))))))" " for-loop_143)" -" ht_92" +" ht_91" "(+ pos_50 2)" " start_28))))))" "(if(unsafe-fx< index_0 15)" "(let-values()" -"(let-values(((s_139)" +"(let-values(((s_141)" "(let-values(((tmp_22)(vector*-ref vec_50 pos_50)))" "(if(equal? tmp_22 '#:set)" "(let-values()(set))" @@ -20191,14 +20208,14 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_29 end_21 inc_15)))" "((letrec-values(((for-loop_144)" -"(lambda(s_185 pos_61 pos_62)" +"(lambda(s_187 pos_61 pos_62)" "(begin" " 'for-loop" "(if(< pos_62 end_21)" "(let-values()" -"(let-values(((s_186 pos_63)" -"(let-values(((s_187) s_185)((pos_64) pos_61))" -"(let-values(((s_188 pos_65)" +"(let-values(((s_188 pos_63)" +"(let-values(((s_189) s_187)((pos_64) pos_61))" +"(let-values(((s_190 pos_65)" "(let-values()" "(let-values(((k_28" " next-pos_26)" @@ -20206,19 +20223,19 @@ static const char *startup_source = " vec_50" " pos_64" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(values" -"(set-add s_187 k_28)" +"(set-add s_189 k_28)" " next-pos_26)))))" -"(values s_188 pos_65)))))" +"(values s_190 pos_65)))))" "(if(not #f)" -"(for-loop_144 s_186 pos_63(+ pos_62 inc_15))" -"(values s_186 pos_63))))" -"(values s_185 pos_61))))))" +"(for-loop_144 s_188 pos_63(+ pos_62 inc_15))" +"(values s_188 pos_63))))" +"(values s_187 pos_61))))))" " for-loop_144)" -" s_139" +" s_141" "(+ pos_50 2)" " start_29))))))" "(let-values()" @@ -20228,52 +20245,52 @@ static const char *startup_source = " vec_50" "(add1 pos_50)" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(values k_29 next-pos_28))))" "(let-values(((len_24)(vector*-ref vec_50 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_24)((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_145)" -"(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_151" +"(let-values(((v_150" " next-pos_29)" "(decode" " vec_50" " pos_69" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(values" "(cons" -" v_151" -" r_33)" +" v_150" +" r_32)" " next-pos_29)))))" -"(values r_34 pos_70)))))" +"(values r_33 pos_70)))))" "(if(not #f)" -"(for-loop_145 r_32 pos_68(+ pos_67 inc_16))" -"(values r_32 pos_68))))" -"(values r_31 pos_66))))))" +"(for-loop_145 r_31 pos_68(+ pos_67 inc_16))" +"(values r_31 pos_68))))" +"(values r_30 pos_66))))))" " for-loop_145)" " null" "(add1 next-pos_27)" " start_30)))))" -"(values(apply make-prefab-struct key_50(reverse$1 r_30)) done-pos_1)))))))" +"(values(apply make-prefab-struct key_50(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)" @@ -20283,7 +20300,7 @@ static const char *startup_source = " vec_50" "(add1 pos_50)" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(values(deserialize-scope kind_5) next-pos_30)))" @@ -20294,7 +20311,7 @@ static const char *startup_source = " vec_50" "(add1 pos_50)" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((scopes_21 next-pos_32)" @@ -20302,7 +20319,7 @@ static const char *startup_source = " vec_50" " next-pos_31" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(values(deserialize-multi-scope name_38 scopes_21) next-pos_32))))" @@ -20312,7 +20329,7 @@ static const char *startup_source = " vec_50" "(add1 pos_50)" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((multi-scope_2 next-pos_34)" @@ -20320,7 +20337,7 @@ static const char *startup_source = " vec_50" " next-pos_33" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(values(deserialize-shifted-multi-scope phase_50 multi-scope_2) next-pos_34))))))))" @@ -20328,9 +20345,9 @@ static const char *startup_source = "(if(unsafe-fx< index_0 21)" "(let-values()" "(let-values(((syms_13 next-pos_35)" -"(decode vec_50(add1 pos_50) mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))" +"(decode vec_50(add1 pos_50) mpis_9 inspector_6 bulk-binding-registry_7 shared_2)))" "(let-values(((bulk-bindings_4 next-pos_36)" -"(decode vec_50 next-pos_35 mpis_9 inspector_7 bulk-binding-registry_7 shared_2)))" +"(decode vec_50 next-pos_35 mpis_9 inspector_6 bulk-binding-registry_7 shared_2)))" "(values(deserialize-table-with-bulk-bindings syms_13 bulk-bindings_4) next-pos_36))))" "(if(unsafe-fx< index_0 22)" "(let-values()" @@ -20339,7 +20356,7 @@ static const char *startup_source = " vec_50" "(add1 pos_50)" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((bulk_5 next-pos_38)" @@ -20347,7 +20364,7 @@ static const char *startup_source = " vec_50" " next-pos_37" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(values(deserialize-bulk-binding-at scopes_22 bulk_5) next-pos_38))))" @@ -20357,7 +20374,7 @@ static const char *startup_source = " vec_50" "(add1 pos_50)" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((phase_51 next-pos_40)" @@ -20365,7 +20382,7 @@ static const char *startup_source = " vec_50" " next-pos_39" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(values(deserialize-representative-scope kind_6 phase_51) next-pos_40))))))" @@ -20377,7 +20394,7 @@ static const char *startup_source = " vec_50" "(add1 pos_50)" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((sym_28 next-pos_42)" @@ -20385,7 +20402,7 @@ static const char *startup_source = " vec_50" " next-pos_41" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((phase_52 next-pos_43)" @@ -20393,7 +20410,7 @@ static const char *startup_source = " vec_50" " next-pos_42" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((nominal-module_4 next-pos_44)" @@ -20401,7 +20418,7 @@ static const char *startup_source = " vec_50" " next-pos_43" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((nominal-phase_3 next-pos_45)" @@ -20409,7 +20426,7 @@ static const char *startup_source = " vec_50" " next-pos_44" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((nominal-sym_3 next-pos_46)" @@ -20417,7 +20434,7 @@ static const char *startup_source = " vec_50" " next-pos_45" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((nominal-require-phase_3 next-pos_47)" @@ -20425,7 +20442,7 @@ static const char *startup_source = " vec_50" " next-pos_46" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((free=id_8 next-pos_48)" @@ -20433,7 +20450,7 @@ static const char *startup_source = " vec_50" " next-pos_47" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((extra-inspector_3 next-pos_49)" @@ -20441,7 +20458,7 @@ static const char *startup_source = " vec_50" " next-pos_48" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((extra-nominal-bindings_3 next-pos_50)" @@ -20449,7 +20466,7 @@ static const char *startup_source = " vec_50" " next-pos_49" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(values" @@ -20471,7 +20488,7 @@ static const char *startup_source = " vec_50" "(add1 pos_50)" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((sym_29 next-pos_52)" @@ -20479,7 +20496,7 @@ static const char *startup_source = " vec_50" " next-pos_51" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((phase_53 next-pos_53)" @@ -20487,7 +20504,7 @@ static const char *startup_source = " vec_50" " next-pos_52" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((nominal-module_5 next-pos_54)" @@ -20495,7 +20512,7 @@ static const char *startup_source = " vec_50" " next-pos_53" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(values" @@ -20508,7 +20525,7 @@ static const char *startup_source = " vec_50" "(add1 pos_50)" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((free=id_9 next-pos_56)" @@ -20516,7 +20533,7 @@ static const char *startup_source = " vec_50" " next-pos_55" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(values(deserialize-full-local-binding key_51 free=id_9) next-pos_56))))" @@ -20527,7 +20544,7 @@ static const char *startup_source = " vec_50" "(add1 pos_50)" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((excepts_3 next-pos_58)" @@ -20535,7 +20552,7 @@ static const char *startup_source = " vec_50" " next-pos_57" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((mpi_29 next-pos_59)" @@ -20543,7 +20560,7 @@ static const char *startup_source = " vec_50" " next-pos_58" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((provide-phase-level_2 next-pos_60)" @@ -20551,7 +20568,7 @@ static const char *startup_source = " vec_50" " next-pos_59" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((phase-shift_5 next-pos_61)" @@ -20559,7 +20576,7 @@ static const char *startup_source = " vec_50" " next-pos_60" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((bulk-binding-registry_8 next-pos_62)" @@ -20567,7 +20584,7 @@ static const char *startup_source = " vec_50" " next-pos_61" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(values" @@ -20585,7 +20602,7 @@ static const char *startup_source = " vec_50" "(add1 pos_50)" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((protected?_2 next-pos_64)" @@ -20593,7 +20610,7 @@ static const char *startup_source = " vec_50" " next-pos_63" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(let-values(((syntax?_3 next-pos_65)" @@ -20601,7 +20618,7 @@ static const char *startup_source = " vec_50" " next-pos_64" " mpis_9" -" inspector_7" +" inspector_6" " bulk-binding-registry_7" " shared_2)))" "(values" @@ -20609,7 +20626,7 @@ static const char *startup_source = " next-pos_65)))))))))))))))))" "(define-values" "(decode-fill!)" -"(lambda(v_152 vec_51 pos_71 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)" +"(lambda(v_151 vec_51 pos_71 mpis_10 inspector_7 bulk-binding-registry_9 shared_3)" "(begin" "(let-values(((tmp_23)(vector*-ref vec_51 pos_71)))" "(if(equal? tmp_23 #f)" @@ -20617,8 +20634,8 @@ static const char *startup_source = "(if(equal? tmp_23 '#:set-box!)" "(let-values()" "(let-values(((c_21 next-pos_66)" -"(decode vec_51(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(set-box! v_152 c_21) next-pos_66)))" +"(decode vec_51(add1 pos_71) mpis_10 inspector_7 bulk-binding-registry_9 shared_3)))" +"(begin(set-box! v_151 c_21) next-pos_66)))" "(if(equal? tmp_23 '#:set-vector!)" "(let-values()" "(let-values(((len_25)(vector*-ref vec_51(add1 pos_71))))" @@ -20632,7 +20649,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(< pos_73 end_23)" -"(let-values(((i_125) pos_73))" +"(let-values(((i_126) pos_73))" "(let-values(((pos_74)" "(let-values(((pos_75) pos_72))" "(let-values(((pos_76)" @@ -20642,11 +20659,11 @@ static const char *startup_source = " vec_51" " pos_75" " mpis_10" -" inspector_8" +" inspector_7" " bulk-binding-registry_9" " shared_3)))" "(begin" -"(vector-set! v_152 i_125 c_22)" +"(vector-set! v_151 i_126 c_22)" " next-pos_67)))))" "(values pos_76)))))" "(if(not #f)(for-loop_146 pos_74(+ pos_73 inc_17)) pos_74)))" @@ -20677,7 +20694,7 @@ static const char *startup_source = " vec_51" " pos_80" " mpis_10" -" inspector_8" +" inspector_7" " bulk-binding-registry_9" " shared_3)))" "(let-values(((val_43 done-pos_2)" @@ -20685,11 +20702,11 @@ static const char *startup_source = " vec_51" " next-pos_68" " mpis_10" -" inspector_8" +" inspector_7" " bulk-binding-registry_9" " shared_3)))" "(begin" -"(hash-set! v_152 key_52 val_43)" +"(hash-set! v_151 key_52 val_43)" " done-pos_2))))))" "(values pos_81)))))" "(if(not #f)(for-loop_70 pos_79(+ pos_78 inc_18)) pos_79)))" @@ -20700,42 +20717,42 @@ static const char *startup_source = "(if(equal? tmp_23 '#:scope-fill!)" "(let-values()" "(let-values(((c_23 next-pos_69)" -"(decode vec_51(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-scope-fill! v_152 c_23) next-pos_69)))" +"(decode vec_51(add1 pos_71) mpis_10 inspector_7 bulk-binding-registry_9 shared_3)))" +"(begin(deserialize-scope-fill! v_151 c_23) next-pos_69)))" "(if(equal? tmp_23 '#:representative-scope-fill!)" "(let-values()" "(let-values(((a_39 next-pos_70)" -"(decode vec_51(add1 pos_71) mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" +"(decode vec_51(add1 pos_71) mpis_10 inspector_7 bulk-binding-registry_9 shared_3)))" "(let-values(((d_25 done-pos_3)" -"(decode vec_51 next-pos_70 mpis_10 inspector_8 bulk-binding-registry_9 shared_3)))" -"(begin(deserialize-representative-scope-fill! v_152 a_39 d_25) done-pos_3))))" +"(decode vec_51 next-pos_70 mpis_10 inspector_7 bulk-binding-registry_9 shared_3)))" +"(begin(deserialize-representative-scope-fill! v_151 a_39 d_25) done-pos_3))))" " (let-values () (error 'deserialize \"bad fill encoding: ~v\" (vector*-ref vec_51 pos_71)))))))))))))" "(define-values" "(find-reachable-scopes)" -"(lambda(v_153)" +"(lambda(v_152)" "(begin" "(let-values(((seen_22)(make-hasheq)))" "(let-values(((reachable-scopes_5)(seteq)))" "(let-values(((get-reachable-scopes_4)(lambda()(begin 'get-reachable-scopes reachable-scopes_5))))" "(let-values(((scope-triggers_0)(make-hasheq)))" "(begin" -"((letrec-values(((loop_83)" -"(lambda(v_154)" +"((letrec-values(((loop_82)" +"(lambda(v_153)" "(begin" " 'loop" -"(if(interned-literal? v_154)" +"(if(interned-literal? v_153)" "(let-values()(void))" -"(if(hash-ref seen_22 v_154 #f)" +"(if(hash-ref seen_22 v_153 #f)" "(let-values()(void))" "(let-values()" "(begin" -"(hash-set! seen_22 v_154 #t)" -"(if(scope-with-bindings? v_154)" +"(hash-set! seen_22 v_153 #t)" +"(if(scope-with-bindings? v_153)" "(let-values()" "(begin" -"(set! reachable-scopes_5(set-add reachable-scopes_5 v_154))" -"((reach-scopes-ref v_154) v_154 loop_83)" -"(let-values(((lst_119)(hash-ref scope-triggers_0 v_154 null)))" +"(set! reachable-scopes_5(set-add reachable-scopes_5 v_153))" +"((reach-scopes-ref v_153) v_153 loop_82)" +"(let-values(((lst_119)(hash-ref scope-triggers_0 v_153 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -20756,7 +20773,7 @@ static const char *startup_source = "(begin" "(let-values()" "(proc_7" -" loop_83))" +" loop_82))" "(values)))))" "(values)))))" "(if(not #f)" @@ -20766,26 +20783,26 @@ static const char *startup_source = " for-loop_147)" " lst_119)))" "(void)" -"(hash-remove! scope-triggers_0 v_154)" -"((scope-with-bindings-ref v_154)" -" v_154" +"(hash-remove! scope-triggers_0 v_153)" +"((scope-with-bindings-ref v_153)" +" v_153" " get-reachable-scopes_4" -" loop_83" +" loop_82" "(lambda(sc-unreachable_0 b_64)" "(hash-update!" " scope-triggers_0" " sc-unreachable_0" "(lambda(l_50)(cons b_64 l_50))" " null)))))" -"(if(reach-scopes? v_154)" -"(let-values()((reach-scopes-ref v_154) v_154 loop_83))" -"(if(pair? v_154)" -"(let-values()(begin(loop_83(car v_154))(loop_83(cdr v_154))))" -"(if(vector? v_154)" +"(if(reach-scopes? v_153)" +"(let-values()((reach-scopes-ref v_153) v_153 loop_82))" +"(if(pair? v_153)" +"(let-values()(begin(loop_82(car v_153))(loop_82(cdr v_153))))" +"(if(vector? v_153)" "(let-values()" "(begin" "(let-values(((vec_52 len_27)" -"(let-values(((vec_53) v_154))" +"(let-values(((vec_53) v_153))" "(begin" "(check-vector vec_53)" "(values" @@ -20808,7 +20825,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_83" +"(loop_82" " e_24))" "(values)))))" "(values)))))" @@ -20820,26 +20837,26 @@ static const char *startup_source = " for-loop_148)" " 0)))" "(void)))" -"(if(box? v_154)" -"(let-values()(loop_83(unbox v_154)))" -"(if(hash? v_154)" +"(if(box? v_153)" +"(let-values()(loop_82(unbox v_153)))" +"(if(hash? v_153)" "(let-values()" "(begin" -"(let-values(((ht_97) v_154))" +"(let-values(((ht_96) v_153))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_97)))" +"(let-values()(check-in-hash ht_96)))" "((letrec-values(((for-loop_149)" -"(lambda(i_126)" +"(lambda(i_127)" "(begin" " 'for-loop" -"(if i_126" -"(let-values(((k_30 v_155)" +"(if i_127" +"(let-values(((k_30 v_154)" "(hash-iterate-key+value" -" ht_97" -" i_126)))" +" ht_96" +" i_127)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -20847,23 +20864,23 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(loop_83" +"(loop_82" " k_30)" -"(loop_83" -" v_155)))" +"(loop_82" +" v_154)))" "(values)))))" "(values)))))" "(if(not #f)" "(for-loop_149" "(hash-iterate-next" -" ht_97" -" i_126))" +" ht_96" +" i_127))" "(values))))" "(values))))))" " for-loop_149)" -"(hash-iterate-first ht_97))))" +"(hash-iterate-first ht_96))))" "(void)))" -"(if(prefab-struct-key v_154)" +"(if(prefab-struct-key v_153)" "(let-values()" "(begin" "(let-values(((v*_5 start*_4 stop*_5 step*_4)" @@ -20873,7 +20890,7 @@ static const char *startup_source = "(lambda(x_49)(vector? x_49))" "(lambda(x_50)" "(unsafe-vector-length x_50))" -"(struct->vector v_154)" +"(struct->vector v_153)" " 1" " #f" " 1)))" @@ -20894,7 +20911,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_83" +"(loop_82" " e_25))" "(values)))))" "(values)))))" @@ -20906,11 +20923,11 @@ static const char *startup_source = " for-loop_150)" " start*_4)))" "(void)))" -"(if(srcloc? v_154)" -"(let-values()(loop_83(srcloc-source v_154)))" +"(if(srcloc? v_153)" +"(let-values()(loop_82(srcloc-source v_153)))" "(let-values()(void))))))))))))))))))" -" loop_83)" -" v_153)" +" loop_82)" +" v_152)" " reachable-scopes_5))))))))" "(define-values" "(deserialize-imports)" @@ -20922,15 +20939,15 @@ static const char *startup_source = "(lambda(s24_1 from-mpi25_0 to-mpi26_0 inspector22_0 inspector23_0)" "(begin" " 'core27" -"(let-values(((s_189) s24_1))" +"(let-values(((s_191) s24_1))" "(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(((inspector_8)(if inspector23_0 inspector22_0 #f)))" "(let-values()" -"(let-values(((s29_1) s_189)" +"(let-values(((s29_1) s_191)" "((from-mpi30_0) from-mpi_4)" "((to-mpi31_0) to-mpi_3)" -"((inspector32_0) inspector_9))" +"((inspector32_0) inspector_8))" "(syntax-module-path-index-shift15.1" " #f" " #f" @@ -20940,9 +20957,9 @@ static const char *startup_source = " inspector32_0" " #t)))))))))))" "(case-lambda" -"((s_190 from-mpi_5 to-mpi_4)" -"(begin 'syntax-module-path-index-shift(core27_0 s_190 from-mpi_5 to-mpi_4 #f #f)))" -"((s_191 from-mpi_6 to-mpi_5 inspector22_1)(core27_0 s_191 from-mpi_6 to-mpi_5 inspector22_1 #t))))))" +"((s_192 from-mpi_5 to-mpi_4)" +"(begin 'syntax-module-path-index-shift(core27_0 s_192 from-mpi_5 to-mpi_4 #f #f)))" +"((s_193 from-mpi_6 to-mpi_5 inspector22_1)(core27_0 s_193 from-mpi_6 to-mpi_5 inspector22_1 #t))))))" " syntax-module-path-index-shift_0))" "(define-values" "(deserialize-instance)" @@ -21545,17 +21562,17 @@ static const char *startup_source = "(lambda(s_0 phase_45)" "(begin" "(let-values(((s-scs_1)(syntax-scope-set s_0 phase_45)))" -"(let-values(((ht_98) s-scs_1))" +"(let-values(((ht_97) s-scs_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_98)))" +"(let-values()(check-in-immutable-hash-keys ht_97)))" "((letrec-values(((for-loop_111)" -"(lambda(syms_14 i_127)" +"(lambda(syms_14 i_128)" "(begin" " 'for-loop" -"(if i_127" -"(let-values(((sc_29)(unsafe-immutable-hash-iterate-key ht_98 i_127)))" +"(if i_128" +"(let-values(((sc_29)(unsafe-immutable-hash-iterate-key ht_97 i_128)))" "(let-values(((syms_15)" "(let-values(((syms_16) syms_14))" "(let-values(((syms_17)" @@ -21569,12 +21586,12 @@ static const char *startup_source = " null)))))" "(values syms_17)))))" "(if(not #f)" -"(for-loop_111 syms_15(unsafe-immutable-hash-iterate-next ht_98 i_127))" +"(for-loop_111 syms_15(unsafe-immutable-hash-iterate-next ht_97 i_128))" " syms_15)))" " syms_14)))))" " for-loop_111)" "(seteq)" -"(unsafe-immutable-hash-iterate-first ht_98))))))))" +"(unsafe-immutable-hash-iterate-first ht_97))))))))" "(define-values" "(struct:requires+provides" " requires+provides1.1" @@ -21843,7 +21860,7 @@ static const char *startup_source = "(begin" " 'add-bulk-required-ids!59" "(let-values(((r+p_5) r+p52_0))" -"(let-values(((s_192) s53_0))" +"(let-values(((s_194) s53_0))" "(let-values(((self_9) self54_0))" "(let-values(((nominal-module_7) nominal-module55_0))" "(let-values(((phase-shift_7) phase-shift56_0))" @@ -21862,7 +21879,7 @@ static const char *startup_source = "(let-values(((shortcut-table_0)" "(if check-and-remove?_0" "(if(>(hash-count provides_4) 64)" -"(syntax-mapped-names s_192 phase_56)" +"(syntax-mapped-names s_194 phase_56)" " #f)" " #f)))" "(let-values(((mpi_32)(intern-mpi r+p_5 nominal-module_7)))" @@ -21881,23 +21898,23 @@ static const char *startup_source = "(bulk-required4.1" " provides_4" " prefix-len_0" -" s_192" +" s_194" " provide-phase-level_3" " can-be-shadowed?_2)))" -"(let-values(((ht_99) provides_4))" +"(let-values(((ht_98) provides_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_99)))" +"(let-values()(check-in-hash ht_98)))" "((letrec-values(((for-loop_151)" -"(lambda(result_72 i_128)" +"(lambda(result_72 i_129)" "(begin" " 'for-loop" -"(if i_128" +"(if i_129" "(let-values(((out-sym_0 binding/p_2)" "(hash-iterate-key+value" -" ht_99" -" i_128)))" +" ht_98" +" i_129)))" "(let-values(((result_73)" "(let-values(((result_74)" " result_72))" @@ -21937,11 +21954,11 @@ static const char *startup_source = " out-sym_0))))))" "(let-values(((already-defined?_0)" "(if(if check-and-remove?_0" -"(let-values(((or-part_174)" +"(let-values(((or-part_173)" "(not" " shortcut-table_0)))" -"(if or-part_174" -" or-part_174" +"(if or-part_173" +" or-part_173" "(hash-ref" " shortcut-table_0" " sym_31" @@ -21956,9 +21973,9 @@ static const char *startup_source = " r+p_5)" "((temp126_0)" "(datum->syntax$1" -" s_192" +" s_194" " sym_31" -" s_192))" +" s_194))" "((phase127_0)" " phase_56)" "((orig-s128_0)" @@ -22032,12 +22049,12 @@ static const char *startup_source = " #f)" "(for-loop_151" " result_73" -"(hash-iterate-next ht_99 i_128))" +"(hash-iterate-next ht_98 i_129))" " result_73)))" " result_72)))))" " for-loop_151)" " #f" -"(hash-iterate-first ht_99))))))))))))))))))))))))))))))" +"(hash-iterate-first ht_98))))))))))))))))))))))))))))))" "(define-values" "(bulk-required->required)" "(lambda(br_1 nominal-module_8 phase_57 sym_32)" @@ -22055,8 +22072,8 @@ static const char *startup_source = "(provided-as-transformer? binding/p_3))))))))" "(define-values" "(normalize-required)" -"(lambda(r_35 mod-name_9 phase_58 sym_33)" -"(begin(if(bulk-required? r_35)(bulk-required->required r_35 mod-name_9 phase_58 sym_33) r_35))))" +"(lambda(r_34 mod-name_9 phase_58 sym_33)" +"(begin(if(bulk-required? r_34)(bulk-required->required r_34 mod-name_9 phase_58 sym_33) 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)" @@ -22069,18 +22086,18 @@ static const char *startup_source = "(let-values()" "(begin" "(set-requires+provides-all-bindings-simple?! r+p_6 #f)" -"(let-values(((ht_100)(requires+provides-requires enclosing-r+p_0)))" +"(let-values(((ht_99)(requires+provides-requires enclosing-r+p_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_100)))" +"(let-values()(check-in-hash ht_99)))" "((letrec-values(((for-loop_152)" -"(lambda(i_129)" +"(lambda(i_130)" "(begin" " 'for-loop" -"(if i_129" +"(if i_130" "(let-values(((mod-name_10 at-mod_2)" -"(hash-iterate-key+value ht_100 i_129)))" +"(hash-iterate-key+value ht_99 i_130)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -22088,25 +22105,25 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((ht_101) at-mod_2))" +"(let-values(((ht_100) at-mod_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_101)))" +"(check-in-hash ht_100)))" "((letrec-values(((for-loop_153)" -"(lambda(i_130)" +"(lambda(i_131)" "(begin" " 'for-loop" -"(if i_130" +"(if i_131" "(let-values(((phase_59" " at-phase_8)" "(hash-iterate-key+value" -" ht_101" -" i_130)))" +" ht_100" +" i_131)))" "(let-values((()" -"(let-values(((ht_52)" +"(let-values(((ht_51)" " at-phase_8))" "(begin" "(if(variable-reference-from-unsafe?" @@ -22114,17 +22131,17 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_52)))" +" ht_51)))" "((letrec-values(((for-loop_60)" -"(lambda(i_131)" +"(lambda(i_132)" "(begin" " 'for-loop" -"(if i_131" +"(if i_132" "(let-values(((sym_34" " reqds_0)" "(hash-iterate-key+value" -" ht_52" -" i_131)))" +" ht_51" +" i_132)))" "(let-values((()" "(let-values(((lst_121)" " reqds_0))" @@ -22218,33 +22235,33 @@ static const char *startup_source = " #f)" "(for-loop_60" "(hash-iterate-next" -" ht_52" -" i_131))" +" ht_51" +" i_132))" "(values))))" "(values))))))" " for-loop_60)" "(hash-iterate-first" -" ht_52))))))" +" ht_51))))))" "(if(not" " #f)" "(for-loop_153" "(hash-iterate-next" -" ht_101" -" i_130))" +" ht_100" +" i_131))" "(values))))" "(values))))))" " for-loop_153)" "(hash-iterate-first" -" ht_101))))" +" ht_100))))" "(void)))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_152(hash-iterate-next ht_100 i_129))" +"(for-loop_152(hash-iterate-next ht_99 i_130))" "(values))))" "(values))))))" " for-loop_152)" -"(hash-iterate-first ht_100))))" +"(hash-iterate-first ht_99))))" "(void))))))))))" "(define-values" "(remove-required-id!75.1)" @@ -22303,12 +22320,12 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(not(null? lst_124))" -"(let-values(((r_36)(if(pair? lst_124)(car lst_124) lst_124))" +"(let-values(((r_35)(if(pair? lst_124)(car lst_124) lst_124))" "((rest_61)(if(pair? lst_124)(cdr lst_124) null)))" "(let-values(((fold-var_107)" -"(let-values(((r_37)" +"(let-values(((r_36)" "(normalize-required" -" r_36" +" r_35" " mpi_34" " nominal-phase_5" " sym_36)))" @@ -22325,9 +22342,9 @@ static const char *startup_source = "(if(if(eqv?" " phase_61" "(required-phase" -" r_37))" +" r_36))" "(free-identifier=?$1" -"(required-id r_37)" +"(required-id r_36)" " id_26" " phase_61" " phase_61)" @@ -22339,7 +22356,7 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -" r_37)" +" r_36)" " fold-var_111))))" "(values" " fold-var_112)))))))" @@ -22681,17 +22698,17 @@ static const char *startup_source = "(let-values(((at-mod_5)(hash-ref(requires+provides-requires r+p_10) mpi_36 #f)))" "(if at-mod_5" "(reverse$1" -"(let-values(((ht_102)(hash-ref at-mod_5 phase_64 '#hasheq())))" +"(let-values(((ht_101)(hash-ref at-mod_5 phase_64 '#hasheq())))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_102)))" +"(let-values()(check-in-hash ht_101)))" "((letrec-values(((for-loop_158)" -"(lambda(fold-var_113 i_132)" +"(lambda(fold-var_113 i_133)" "(begin" " 'for-loop" -"(if i_132" -"(let-values(((sym_38 reqds_3)(hash-iterate-key+value ht_102 i_132)))" +"(if i_133" +"(let-values(((sym_38 reqds_3)(hash-iterate-key+value ht_101 i_133)))" "(let-values(((fold-var_114)" "(let-values(((lst_129) reqds_3))" "(begin" @@ -22734,19 +22751,19 @@ static const char *startup_source = " fold-var_113" " lst_129)))))" "(if(not #f)" -"(for-loop_158 fold-var_114(hash-iterate-next ht_102 i_132))" +"(for-loop_158 fold-var_114(hash-iterate-next ht_101 i_133))" " fold-var_114)))" " fold-var_113)))))" " for-loop_158)" " null" -"(hash-iterate-first ht_102)))))" +"(hash-iterate-first ht_101)))))" " #f))))))" "(define-values" "(extract-module-definitions)" "(lambda(r+p_11)" "(begin" -"(let-values(((or-part_175)(extract-module-requires r+p_11(requires+provides-self r+p_11) 0)))" -"(if or-part_175 or-part_175 null)))))" +"(let-values(((or-part_174)(extract-module-requires r+p_11(requires+provides-self r+p_11) 0)))" +"(if or-part_174 or-part_174 null)))))" "(define-values" "(extract-all-module-requires)" "(lambda(r+p_12 mod-name_12 phase_51)" @@ -22814,7 +22831,7 @@ static const char *startup_source = "(unsafe-cdr" " lst_134)))" "(let-values(((fold-var_125)" -"(let-values(((ht_103)" +"(let-values(((ht_102)" "(hash-ref" " phase-to-requireds_0" " phase_65" @@ -22827,18 +22844,18 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_103)))" +" ht_102)))" "((letrec-values(((for-loop_163)" "(lambda(fold-var_126" -" i_133)" +" i_134)" "(begin" " 'for-loop" -"(if i_133" +"(if i_134" "(let-values(((sym_39" " reqds_4)" "(hash-iterate-key+value" -" ht_103" -" i_133)))" +" ht_102" +" i_134)))" "(let-values(((fold-var_127)" "(let-values(((lst_135)" " reqds_4))" @@ -22894,14 +22911,14 @@ static const char *startup_source = "(for-loop_163" " fold-var_127" "(hash-iterate-next" -" ht_103" -" i_133))" +" ht_102" +" i_134))" " fold-var_127)))" " fold-var_126)))))" " for-loop_163)" " fold-var_124" "(hash-iterate-first" -" ht_103))))))" +" ht_102))))))" "(if(not" " #f)" "(for-loop_162" @@ -22989,8 +23006,8 @@ static const char *startup_source = "(hash-set" " at-phase_9" " sym_40" -"(if(let-values(((or-part_176) as-protected?_0))" -"(if or-part_176 or-part_176 as-transformer?_2))" +"(if(let-values(((or-part_175) as-protected?_0))" +"(if or-part_175 or-part_175 as-transformer?_2))" "(provided1.1 plain-binding_0 as-protected?_0 as-transformer?_2)" " plain-binding_0))))" "(if(same-binding? b_67 binding_13)" @@ -23114,46 +23131,46 @@ static const char *startup_source = "(shift-provides-module-path-index)" "(lambda(provides_5 from-mpi_7 to-mpi_6)" "(begin" -"(let-values(((ht_104) provides_5))" +"(let-values(((ht_103) provides_5))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_104)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_103)))" "((letrec-values(((for-loop_167)" -"(lambda(table_136 i_134)" +"(lambda(table_135 i_135)" "(begin" " 'for-loop" -"(if i_134" -"(let-values(((phase_68 at-phase_10)(hash-iterate-key+value ht_104 i_134)))" -"(let-values(((table_137)" -"(let-values(((table_138) table_136))" -"(let-values(((table_139)" +"(if i_135" +"(let-values(((phase_68 at-phase_10)(hash-iterate-key+value ht_103 i_135)))" +"(let-values(((table_136)" +"(let-values(((table_137) table_135))" +"(let-values(((table_138)" "(let-values()" "(let-values(((key_53 val_44)" "(let-values()" "(values" " phase_68" -"(let-values(((ht_105)" +"(let-values(((ht_104)" " at-phase_10))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_105)))" +"(check-in-hash ht_104)))" "((letrec-values(((for-loop_168)" -"(lambda(table_140" -" i_135)" +"(lambda(table_139" +" i_136)" "(begin" " 'for-loop" -"(if i_135" +"(if i_136" "(let-values(((sym_41" " binding_14)" "(hash-iterate-key+value" -" ht_105" -" i_135)))" +" ht_104" +" i_136)))" +"(let-values(((table_140)" "(let-values(((table_141)" +" table_139))" "(let-values(((table_142)" -" table_140))" -"(let-values(((table_143)" "(let-values()" "(let-values(((key_54" " val_45)" @@ -23166,7 +23183,7 @@ static const char *startup_source = "(let-values()" " binding_14)" "(let-values()" -"((letrec-values(((loop_84)" +"((letrec-values(((loop_83)" "(lambda(binding_15)" "(begin" " 'loop" @@ -23174,7 +23191,7 @@ static const char *startup_source = " binding_15)" "(let-values()" "(provided1.1" -"(loop_84" +"(loop_83" "(provided-binding" " binding_15))" "(provided-protected?" @@ -23186,36 +23203,36 @@ static const char *startup_source = " binding_15" " from-mpi_7" " to-mpi_6)))))))" -" loop_84)" +" loop_83)" " binding_14)))))))" "(hash-set" -" table_142" +" table_141" " key_54" " val_45)))))" "(values" -" table_143)))))" +" table_142)))))" "(if(not" " #f)" "(for-loop_168" -" table_141" +" table_140" "(hash-iterate-next" -" ht_105" -" i_135))" -" table_141)))" -" table_140)))))" +" ht_104" +" i_136))" +" table_140)))" +" table_139)))))" " for-loop_168)" " '#hasheq()" "(hash-iterate-first" -" ht_105))))))))" -"(hash-set table_138 key_53 val_44)))))" -"(values table_139)))))" +" ht_104))))))))" +"(hash-set table_137 key_53 val_44)))))" +"(values table_138)))))" "(if(not #f)" -"(for-loop_167 table_137(hash-iterate-next ht_104 i_134))" -" table_137)))" -" table_136)))))" +"(for-loop_167 table_136(hash-iterate-next ht_103 i_135))" +" table_136)))" +" table_135)))))" " for-loop_167)" " '#hasheqv()" -"(hash-iterate-first ht_104)))))))" +"(hash-iterate-first ht_103)))))))" "(define-values" "(struct:adjust-only adjust-only1.1 adjust-only? adjust-only-syms)" "(let-values(((struct:_1 make-_1 ?_1 -ref_1 -set!_1)" @@ -23314,7 +23331,7 @@ static const char *startup_source = "(let-values(((initial-require?_0)(if initial-require?23_0 initial-require?13_0 #f)))" "(let-values(((who_14) who14_0))" "(let-values()" -"((letrec-values(((loop_85)" +"((letrec-values(((loop_84)" "(lambda(reqs_1" " top-req_0" " phase-shift_10" @@ -23419,57 +23436,57 @@ static const char *startup_source = " for-meta119_0" " phase-level120_0" " spec121_0)" -"(let-values(((s_193)" +"(let-values(((s_195)" " req_0))" "(let-values(((orig-s_4)" -" s_193))" +" s_195))" "(let-values(((for-meta119_1" " phase-level120_1" " spec121_1)" -"(let-values(((s_194)" -"(if(syntax?$1" -" s_193)" -"(syntax-e$1" -" s_193)" -" s_193)))" -"(if(pair?" -" s_194)" -"(let-values(((for-meta122_0)" -"(let-values(((s_195)" -"(car" -" s_194)))" -" s_195))" -"((phase-level123_0" -" spec124_0)" "(let-values(((s_196)" -"(cdr" -" s_194)))" -"(let-values(((s_60)" "(if(syntax?$1" -" s_196)" +" s_195)" "(syntax-e$1" -" s_196)" -" s_196)))" +" s_195)" +" s_195)))" "(if(pair?" -" s_60)" -"(let-values(((phase-level125_0)" +" s_196)" +"(let-values(((for-meta122_0)" "(let-values(((s_197)" "(car" -" s_60)))" +" s_196)))" " s_197))" -"((spec126_0)" -"(let-values(((s_61)" -"(cdr" -" s_60)))" +"((phase-level123_0" +" spec124_0)" "(let-values(((s_198)" +"(cdr" +" s_196)))" +"(let-values(((s_199)" "(if(syntax?$1" -" s_61)" +" s_198)" "(syntax-e$1" -" s_61)" -" s_61)))" +" s_198)" +" s_198)))" +"(if(pair?" +" s_199)" +"(let-values(((phase-level125_0)" +"(let-values(((s_200)" +"(car" +" s_199)))" +" s_200))" +"((spec126_0)" +"(let-values(((s_201)" +"(cdr" +" s_199)))" +"(let-values(((s_62)" +"(if(syntax?$1" +" s_201)" +"(syntax-e$1" +" s_201)" +" s_201)))" "(let-values(((flat-s_0)" "(to-syntax-list.1" -" s_198)))" +" s_62)))" "(if(not" " flat-s_0)" "(let-values()" @@ -23512,7 +23529,7 @@ static const char *startup_source = " \"bad phase\"" " orig-s_3" " req_0)))" -"(loop_85" +"(loop_84" " spec121_0" "(let-values(((or-part_90)" " top-req_0))" @@ -23540,30 +23557,30 @@ static const char *startup_source = "(let-values(((ok?_3" " for-syntax127_0" " spec128_0)" -"(let-values(((s_65)" +"(let-values(((s_202)" " req_0))" "(let-values(((orig-s_5)" -" s_65))" +" s_202))" "(let-values(((for-syntax127_1" " spec128_1)" -"(let-values(((s_199)" +"(let-values(((s_203)" "(if(syntax?$1" -" s_65)" +" s_202)" "(syntax-e$1" -" s_65)" -" s_65)))" +" s_202)" +" s_202)))" "(if(pair?" -" s_199)" +" s_203)" "(let-values(((for-syntax129_0)" -"(let-values(((s_200)" +"(let-values(((s_204)" "(car" -" s_199)))" -" s_200))" +" s_203)))" +" s_204))" "((spec130_0)" "(let-values(((s_38)" "(cdr" -" s_199)))" -"(let-values(((s_201)" +" s_203)))" +"(let-values(((s_205)" "(if(syntax?$1" " s_38)" "(syntax-e$1" @@ -23571,7 +23588,7 @@ static const char *startup_source = " s_38)))" "(let-values(((flat-s_1)" "(to-syntax-list.1" -" s_201)))" +" s_205)))" "(if(not" " flat-s_1)" "(let-values()" @@ -23592,12 +23609,12 @@ static const char *startup_source = " #t" " for-syntax127_1" " spec128_1))))))" -"(loop_85" +"(loop_84" " spec128_0" -"(let-values(((or-part_177)" +"(let-values(((or-part_176)" " top-req_0))" -"(if or-part_177" -" or-part_177" +"(if or-part_176" +" or-part_176" " req_0))" "(phase+" " phase-shift_10" @@ -23620,38 +23637,38 @@ static const char *startup_source = "(let-values(((ok?_4" " for-template131_0" " spec132_0)" -"(let-values(((s_202)" +"(let-values(((s_206)" " req_0))" "(let-values(((orig-s_6)" -" s_202))" +" s_206))" "(let-values(((for-template131_1" " spec132_1)" -"(let-values(((s_203)" +"(let-values(((s_207)" "(if(syntax?$1" -" s_202)" +" s_206)" "(syntax-e$1" -" s_202)" -" s_202)))" +" s_206)" +" s_206)))" "(if(pair?" -" s_203)" +" s_207)" "(let-values(((for-template133_0)" -"(let-values(((s_204)" +"(let-values(((s_208)" "(car" -" s_203)))" -" s_204))" +" s_207)))" +" s_208))" "((spec134_0)" -"(let-values(((s_205)" +"(let-values(((s_209)" "(cdr" -" s_203)))" -"(let-values(((s_206)" +" s_207)))" +"(let-values(((s_210)" "(if(syntax?$1" -" s_205)" +" s_209)" "(syntax-e$1" -" s_205)" -" s_205)))" +" s_209)" +" s_209)))" "(let-values(((flat-s_2)" "(to-syntax-list.1" -" s_206)))" +" s_210)))" "(if(not" " flat-s_2)" "(let-values()" @@ -23672,12 +23689,12 @@ static const char *startup_source = " #t" " for-template131_1" " spec132_1))))))" -"(loop_85" +"(loop_84" " spec132_0" -"(let-values(((or-part_178)" +"(let-values(((or-part_177)" " top-req_0))" -"(if or-part_178" -" or-part_178" +"(if or-part_177" +" or-part_177" " req_0))" "(phase+" " phase-shift_10" @@ -23700,38 +23717,38 @@ static const char *startup_source = "(let-values(((ok?_5" " for-label135_0" " spec136_0)" -"(let-values(((s_207)" +"(let-values(((s_211)" " req_0))" "(let-values(((orig-s_7)" -" s_207))" +" s_211))" "(let-values(((for-label135_1" " spec136_1)" -"(let-values(((s_96)" +"(let-values(((s_98)" "(if(syntax?$1" -" s_207)" +" s_211)" "(syntax-e$1" -" s_207)" -" s_207)))" +" s_211)" +" s_211)))" "(if(pair?" -" s_96)" +" s_98)" "(let-values(((for-label137_0)" -"(let-values(((s_208)" +"(let-values(((s_212)" "(car" -" s_96)))" -" s_208))" +" s_98)))" +" s_212))" "((spec138_0)" -"(let-values(((s_97)" +"(let-values(((s_99)" "(cdr" -" s_96)))" -"(let-values(((s_209)" +" s_98)))" +"(let-values(((s_213)" "(if(syntax?$1" -" s_97)" +" s_99)" "(syntax-e$1" -" s_97)" -" s_97)))" +" s_99)" +" s_99)))" "(let-values(((flat-s_3)" "(to-syntax-list.1" -" s_209)))" +" s_213)))" "(if(not" " flat-s_3)" "(let-values()" @@ -23752,12 +23769,12 @@ static const char *startup_source = " #t" " for-label135_1" " spec136_1))))))" -"(loop_85" +"(loop_84" " spec136_0" -"(let-values(((or-part_179)" +"(let-values(((or-part_178)" " top-req_0))" -"(if or-part_179" -" or-part_179" +"(if or-part_178" +" or-part_178" " req_0))" "(phase+" " phase-shift_10" @@ -23781,57 +23798,57 @@ static const char *startup_source = " just-meta139_0" " phase-level140_0" " spec141_0)" -"(let-values(((s_101)" +"(let-values(((s_103)" " req_0))" "(let-values(((orig-s_8)" -" s_101))" +" s_103))" "(let-values(((just-meta139_1" " phase-level140_1" " spec141_1)" -"(let-values(((s_105)" +"(let-values(((s_107)" "(if(syntax?$1" -" s_101)" +" s_103)" "(syntax-e$1" -" s_101)" -" s_101)))" +" s_103)" +" s_103)))" "(if(pair?" -" s_105)" +" s_107)" "(let-values(((just-meta142_0)" -"(let-values(((s_151)" +"(let-values(((s_153)" "(car" -" s_105)))" -" s_151))" +" s_107)))" +" s_153))" "((phase-level143_0" " spec144_0)" -"(let-values(((s_210)" +"(let-values(((s_214)" "(cdr" -" s_105)))" -"(let-values(((s_211)" +" s_107)))" +"(let-values(((s_215)" "(if(syntax?$1" -" s_210)" +" s_214)" "(syntax-e$1" -" s_210)" -" s_210)))" +" s_214)" +" s_214)))" "(if(pair?" -" s_211)" +" s_215)" "(let-values(((phase-level145_0)" -"(let-values(((s_212)" +"(let-values(((s_216)" "(car" -" s_211)))" -" s_212))" +" s_215)))" +" s_216))" "((spec146_0)" -"(let-values(((s_213)" +"(let-values(((s_217)" "(cdr" -" s_211)))" -"(let-values(((s_106)" +" s_215)))" +"(let-values(((s_108)" "(if(syntax?$1" -" s_213)" +" s_217)" "(syntax-e$1" -" s_213)" -" s_213)))" +" s_217)" +" s_217)))" "(let-values(((flat-s_4)" "(to-syntax-list.1" -" s_106)))" +" s_108)))" "(if(not" " flat-s_4)" "(let-values()" @@ -23874,12 +23891,12 @@ static const char *startup_source = " \"bad phase\"" " orig-s_3" " req_0)))" -"(loop_85" +"(loop_84" " spec141_0" -"(let-values(((or-part_180)" +"(let-values(((or-part_179)" " top-req_0))" -"(if or-part_180" -" or-part_180" +"(if or-part_179" +" or-part_179" " req_0))" " phase-shift_10" " p_34" @@ -23900,57 +23917,57 @@ static const char *startup_source = " only147_0" " spec148_0" " id149_1)" -"(let-values(((s_214)" +"(let-values(((s_218)" " req_0))" "(let-values(((orig-s_9)" -" s_214))" +" s_218))" "(let-values(((only147_1" " spec148_1" " id149_2)" -"(let-values(((s_215)" +"(let-values(((s_219)" "(if(syntax?$1" -" s_214)" +" s_218)" "(syntax-e$1" -" s_214)" -" s_214)))" +" s_218)" +" s_218)))" "(if(pair?" -" s_215)" +" s_219)" "(let-values(((only150_0)" -"(let-values(((s_216)" +"(let-values(((s_220)" "(car" -" s_215)))" -" s_216))" +" s_219)))" +" s_220))" "((spec151_0" " id152_1)" -"(let-values(((s_217)" +"(let-values(((s_221)" "(cdr" -" s_215)))" -"(let-values(((s_115)" -"(if(syntax?$1" -" s_217)" -"(syntax-e$1" -" s_217)" -" s_217)))" -"(if(pair?" -" s_115)" -"(let-values(((spec153_0)" -"(let-values(((s_218)" -"(car" -" s_115)))" -" s_218))" -"((id154_0)" -"(let-values(((s_116)" -"(cdr" -" s_115)))" +" s_219)))" "(let-values(((s_117)" "(if(syntax?$1" -" s_116)" +" s_221)" "(syntax-e$1" -" s_116)" -" s_116)))" +" s_221)" +" s_221)))" +"(if(pair?" +" s_117)" +"(let-values(((spec153_0)" +"(let-values(((s_222)" +"(car" +" s_117)))" +" s_222))" +"((id154_0)" +"(let-values(((s_118)" +"(cdr" +" s_117)))" +"(let-values(((s_119)" +"(if(syntax?$1" +" s_118)" +"(syntax-e$1" +" s_118)" +" s_118)))" "(let-values(((flat-s_5)" "(to-syntax-list.1" -" s_117)))" +" s_119)))" "(if(not" " flat-s_5)" "(let-values()" @@ -23976,7 +23993,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_0)" -"(let-values(((s_219)" +"(let-values(((s_223)" "(unsafe-car" " lst_0))" "((rest_71)" @@ -23989,23 +24006,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id155_0)" "(let-values()" -"(if(let-values(((or-part_181)" +"(if(let-values(((or-part_180)" "(if(syntax?$1" -" s_219)" +" s_223)" "(symbol?" "(syntax-e$1" -" s_219))" +" s_223))" " #f)))" -"(if or-part_181" -" or-part_181" +"(if or-part_180" +" or-part_180" "(symbol?" -" s_219)))" -" s_219" +" s_223)))" +" s_223" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_9" -" s_219)))))" +" s_223)))))" "(cons" " id155_0" " id_32)))))" @@ -24043,13 +24060,13 @@ static const char *startup_source = " only147_1" " spec148_1" " id149_2))))))" -"(loop_85" +"(loop_84" "(list" " spec148_0)" -"(let-values(((or-part_182)" +"(let-values(((or-part_181)" " top-req_0))" -"(if or-part_182" -" or-part_182" +"(if or-part_181" +" or-part_181" " req_0))" " phase-shift_10" " just-meta_0" @@ -24072,89 +24089,89 @@ static const char *startup_source = " prefix156_0" " id:prefix157_0" " spec158_0)" -"(let-values(((s_220)" +"(let-values(((s_224)" " req_0))" "(let-values(((orig-s_10)" -" s_220))" +" s_224))" "(let-values(((prefix156_1" " id:prefix157_1" " spec158_1)" -"(let-values(((s_125)" -"(if(syntax?$1" -" s_220)" -"(syntax-e$1" -" s_220)" -" s_220)))" -"(if(pair?" -" s_125)" -"(let-values(((prefix159_0)" -"(let-values(((s_221)" -"(car" -" s_125)))" -" s_221))" -"((id:prefix160_0" -" spec161_0)" -"(let-values(((s_126)" -"(cdr" -" s_125)))" -"(let-values(((s_222)" -"(if(syntax?$1" -" s_126)" -"(syntax-e$1" -" s_126)" -" s_126)))" -"(if(pair?" -" s_222)" -"(let-values(((id:prefix162_0)" -"(let-values(((s_223)" -"(car" -" s_222)))" -"(if(let-values(((or-part_183)" -"(if(syntax?$1" -" s_223)" -"(symbol?" -"(syntax-e$1" -" s_223))" -" #f)))" -"(if or-part_183" -" or-part_183" -"(symbol?" -" s_223)))" -" s_223" -"(raise-syntax-error$1" -" #f" -" \"not an identifier\"" -" orig-s_10" -" s_223))))" -"((spec163_0)" -"(let-values(((s_224)" -"(cdr" -" s_222)))" -"(let-values(((s_225)" +"(let-values(((s_127)" "(if(syntax?$1" " s_224)" "(syntax-e$1" " s_224)" " s_224)))" "(if(pair?" -" s_225)" -"(let-values(((spec164_0)" -"(let-values(((s_226)" +" s_127)" +"(let-values(((prefix159_0)" +"(let-values(((s_225)" "(car" -" s_225)))" -" s_226))" -"(()" -"(let-values(((s_227)" +" s_127)))" +" s_225))" +"((id:prefix160_0" +" spec161_0)" +"(let-values(((s_128)" "(cdr" -" s_225)))" -"(let-values(((s_228)" +" s_127)))" +"(let-values(((s_226)" +"(if(syntax?$1" +" s_128)" +"(syntax-e$1" +" s_128)" +" s_128)))" +"(if(pair?" +" s_226)" +"(let-values(((id:prefix162_0)" +"(let-values(((s_227)" +"(car" +" s_226)))" +"(if(let-values(((or-part_182)" "(if(syntax?$1" " s_227)" +"(symbol?" "(syntax-e$1" -" s_227)" +" s_227))" +" #f)))" +"(if or-part_182" +" or-part_182" +"(symbol?" " s_227)))" -"(if(null?" +" s_227" +"(raise-syntax-error$1" +" #f" +" \"not an identifier\"" +" orig-s_10" +" s_227))))" +"((spec163_0)" +"(let-values(((s_228)" +"(cdr" +" s_226)))" +"(let-values(((s_229)" +"(if(syntax?$1" " s_228)" +"(syntax-e$1" +" s_228)" +" s_228)))" +"(if(pair?" +" s_229)" +"(let-values(((spec164_0)" +"(let-values(((s_230)" +"(car" +" s_229)))" +" s_230))" +"(()" +"(let-values(((s_231)" +"(cdr" +" s_229)))" +"(let-values(((s_232)" +"(if(syntax?$1" +" s_231)" +"(syntax-e$1" +" s_231)" +" s_231)))" +"(if(null?" +" s_232)" "(values)" "(raise-syntax-error$1" " #f" @@ -24186,13 +24203,13 @@ static const char *startup_source = " prefix156_1" " id:prefix157_1" " spec158_1))))))" -"(loop_85" +"(loop_84" "(list" " spec158_0)" -"(let-values(((or-part_184)" +"(let-values(((or-part_183)" " top-req_0))" -"(if or-part_184" -" or-part_184" +"(if or-part_183" +" or-part_183" " req_0))" " phase-shift_10" " just-meta_0" @@ -24215,57 +24232,57 @@ static const char *startup_source = " all-except165_0" " spec166_0" " id167_0)" -"(let-values(((s_229)" +"(let-values(((s_233)" " req_0))" "(let-values(((orig-s_11)" -" s_229))" +" s_233))" "(let-values(((all-except165_1" " spec166_1" " id167_1)" -"(let-values(((s_230)" +"(let-values(((s_234)" "(if(syntax?$1" -" s_229)" +" s_233)" "(syntax-e$1" -" s_229)" -" s_229)))" +" s_233)" +" s_233)))" "(if(pair?" -" s_230)" +" s_234)" "(let-values(((all-except168_0)" -"(let-values(((s_231)" +"(let-values(((s_235)" "(car" -" s_230)))" -" s_231))" +" s_234)))" +" s_235))" "((spec169_0" " id170_0)" -"(let-values(((s_232)" -"(cdr" -" s_230)))" -"(let-values(((s_233)" -"(if(syntax?$1" -" s_232)" -"(syntax-e$1" -" s_232)" -" s_232)))" -"(if(pair?" -" s_233)" -"(let-values(((spec171_0)" -"(let-values(((s_234)" -"(car" -" s_233)))" -" s_234))" -"((id172_0)" -"(let-values(((s_235)" -"(cdr" -" s_233)))" "(let-values(((s_236)" +"(cdr" +" s_234)))" +"(let-values(((s_237)" "(if(syntax?$1" -" s_235)" +" s_236)" "(syntax-e$1" -" s_235)" -" s_235)))" +" s_236)" +" s_236)))" +"(if(pair?" +" s_237)" +"(let-values(((spec171_0)" +"(let-values(((s_238)" +"(car" +" s_237)))" +" s_238))" +"((id172_0)" +"(let-values(((s_239)" +"(cdr" +" s_237)))" +"(let-values(((s_240)" +"(if(syntax?$1" +" s_239)" +"(syntax-e$1" +" s_239)" +" s_239)))" "(let-values(((flat-s_6)" "(to-syntax-list.1" -" s_236)))" +" s_240)))" "(if(not" " flat-s_6)" "(let-values()" @@ -24291,7 +24308,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_144)" -"(let-values(((s_237)" +"(let-values(((s_241)" "(unsafe-car" " lst_144))" "((rest_72)" @@ -24304,23 +24321,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id173_0)" "(let-values()" -"(if(let-values(((or-part_185)" +"(if(let-values(((or-part_184)" "(if(syntax?$1" -" s_237)" +" s_241)" "(symbol?" "(syntax-e$1" -" s_237))" +" s_241))" " #f)))" -"(if or-part_185" -" or-part_185" +"(if or-part_184" +" or-part_184" "(symbol?" -" s_237)))" -" s_237" +" s_241)))" +" s_241" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_11" -" s_237)))))" +" s_241)))))" "(cons" " id173_0" " id_37)))))" @@ -24358,13 +24375,13 @@ static const char *startup_source = " all-except165_1" " spec166_1" " id167_1))))))" -"(loop_85" +"(loop_84" "(list" " spec166_0)" -"(let-values(((or-part_186)" +"(let-values(((or-part_185)" " top-req_0))" -"(if or-part_186" -" or-part_186" +"(if or-part_185" +" or-part_185" " req_0))" " phase-shift_10" " just-meta_0" @@ -24389,93 +24406,93 @@ static const char *startup_source = " id:prefix175_0" " spec176_0" " id177_0)" -"(let-values(((s_238)" +"(let-values(((s_242)" " req_0))" "(let-values(((orig-s_12)" -" s_238))" +" s_242))" "(let-values(((prefix-all-except174_1" " id:prefix175_1" " spec176_1" " id177_1)" -"(let-values(((s_239)" +"(let-values(((s_243)" "(if(syntax?$1" -" s_238)" +" s_242)" "(syntax-e$1" -" s_238)" -" s_238)))" +" s_242)" +" s_242)))" "(if(pair?" -" s_239)" +" s_243)" "(let-values(((prefix-all-except178_0)" -"(let-values(((s_240)" +"(let-values(((s_244)" "(car" -" s_239)))" -" s_240))" +" s_243)))" +" s_244))" "((id:prefix179_0" " spec180_0" " id181_0)" -"(let-values(((s_241)" +"(let-values(((s_245)" "(cdr" -" s_239)))" -"(let-values(((s_242)" -"(if(syntax?$1" -" s_241)" -"(syntax-e$1" -" s_241)" -" s_241)))" -"(if(pair?" -" s_242)" -"(let-values(((id:prefix182_0)" -"(let-values(((s_243)" -"(car" -" s_242)))" -"(if(let-values(((or-part_187)" -"(if(syntax?$1" -" s_243)" -"(symbol?" -"(syntax-e$1" -" s_243))" -" #f)))" -"(if or-part_187" -" or-part_187" -"(symbol?" " s_243)))" -" s_243" +"(let-values(((s_246)" +"(if(syntax?$1" +" s_245)" +"(syntax-e$1" +" s_245)" +" s_245)))" +"(if(pair?" +" s_246)" +"(let-values(((id:prefix182_0)" +"(let-values(((s_247)" +"(car" +" s_246)))" +"(if(let-values(((or-part_186)" +"(if(syntax?$1" +" s_247)" +"(symbol?" +"(syntax-e$1" +" s_247))" +" #f)))" +"(if or-part_186" +" or-part_186" +"(symbol?" +" s_247)))" +" s_247" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_12" -" s_243))))" +" s_247))))" "((spec183_0" " id184_0)" -"(let-values(((s_244)" -"(cdr" -" s_242)))" -"(let-values(((s_245)" -"(if(syntax?$1" -" s_244)" -"(syntax-e$1" -" s_244)" -" s_244)))" -"(if(pair?" -" s_245)" -"(let-values(((spec185_0)" -"(let-values(((s_246)" -"(car" -" s_245)))" -" s_246))" -"((id186_0)" -"(let-values(((s_247)" -"(cdr" -" s_245)))" "(let-values(((s_248)" +"(cdr" +" s_246)))" +"(let-values(((s_249)" "(if(syntax?$1" -" s_247)" +" s_248)" "(syntax-e$1" -" s_247)" -" s_247)))" +" s_248)" +" s_248)))" +"(if(pair?" +" s_249)" +"(let-values(((spec185_0)" +"(let-values(((s_250)" +"(car" +" s_249)))" +" s_250))" +"((id186_0)" +"(let-values(((s_251)" +"(cdr" +" s_249)))" +"(let-values(((s_252)" +"(if(syntax?$1" +" s_251)" +"(syntax-e$1" +" s_251)" +" s_251)))" "(let-values(((flat-s_7)" "(to-syntax-list.1" -" s_248)))" +" s_252)))" "(if(not" " flat-s_7)" "(let-values()" @@ -24501,7 +24518,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_146)" -"(let-values(((s_249)" +"(let-values(((s_253)" "(unsafe-car" " lst_146))" "((rest_73)" @@ -24514,23 +24531,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id187_0)" "(let-values()" -"(if(let-values(((or-part_188)" +"(if(let-values(((or-part_187)" "(if(syntax?$1" -" s_249)" +" s_253)" "(symbol?" "(syntax-e$1" -" s_249))" +" s_253))" " #f)))" -"(if or-part_188" -" or-part_188" +"(if or-part_187" +" or-part_187" "(symbol?" -" s_249)))" -" s_249" +" s_253)))" +" s_253" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_12" -" s_249)))))" +" s_253)))))" "(cons" " id187_0" " id_42)))))" @@ -24578,13 +24595,13 @@ static const char *startup_source = " id:prefix175_1" " spec176_1" " id177_1))))))" -"(loop_85" +"(loop_84" "(list" " spec176_0)" -"(let-values(((or-part_189)" +"(let-values(((or-part_188)" " top-req_0))" -"(if or-part_189" -" or-part_189" +"(if or-part_188" +" or-part_188" " req_0))" " phase-shift_10" " just-meta_0" @@ -24610,125 +24627,125 @@ static const char *startup_source = " spec189_0" " id:to190_0" " id:from191_0)" -"(let-values(((s_250)" +"(let-values(((s_254)" " req_0))" "(let-values(((orig-s_13)" -" s_250))" +" s_254))" "(let-values(((rename188_1" " spec189_1" " id:to190_1" " id:from191_1)" -"(let-values(((s_251)" +"(let-values(((s_255)" "(if(syntax?$1" -" s_250)" +" s_254)" "(syntax-e$1" -" s_250)" -" s_250)))" +" s_254)" +" s_254)))" "(if(pair?" -" s_251)" +" s_255)" "(let-values(((rename192_0)" -"(let-values(((s_252)" +"(let-values(((s_256)" "(car" -" s_251)))" -" s_252))" +" s_255)))" +" s_256))" "((spec193_0" " id:to194_0" " id:from195_0)" -"(let-values(((s_253)" +"(let-values(((s_257)" "(cdr" -" s_251)))" -"(let-values(((s_254)" +" s_255)))" +"(let-values(((s_258)" "(if(syntax?$1" -" s_253)" +" s_257)" "(syntax-e$1" -" s_253)" -" s_253)))" +" s_257)" +" s_257)))" "(if(pair?" -" s_254)" +" s_258)" "(let-values(((spec196_0)" -"(let-values(((s_255)" +"(let-values(((s_259)" "(car" -" s_254)))" -" s_255))" +" s_258)))" +" s_259))" "((id:to197_0" " id:from198_0)" -"(let-values(((s_256)" +"(let-values(((s_260)" "(cdr" -" s_254)))" -"(let-values(((s_257)" -"(if(syntax?$1" -" s_256)" -"(syntax-e$1" -" s_256)" -" s_256)))" -"(if(pair?" -" s_257)" -"(let-values(((id:to199_0)" -"(let-values(((s_258)" -"(car" -" s_257)))" -"(if(let-values(((or-part_190)" -"(if(syntax?$1" -" s_258)" -"(symbol?" -"(syntax-e$1" -" s_258))" -" #f)))" -"(if or-part_190" -" or-part_190" -"(symbol?" " s_258)))" -" s_258" +"(let-values(((s_261)" +"(if(syntax?$1" +" s_260)" +"(syntax-e$1" +" s_260)" +" s_260)))" +"(if(pair?" +" s_261)" +"(let-values(((id:to199_0)" +"(let-values(((s_262)" +"(car" +" s_261)))" +"(if(let-values(((or-part_189)" +"(if(syntax?$1" +" s_262)" +"(symbol?" +"(syntax-e$1" +" s_262))" +" #f)))" +"(if or-part_189" +" or-part_189" +"(symbol?" +" s_262)))" +" s_262" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_13" -" s_258))))" +" s_262))))" "((id:from200_0)" -"(let-values(((s_259)" +"(let-values(((s_263)" "(cdr" -" s_257)))" -"(let-values(((s_260)" -"(if(syntax?$1" -" s_259)" -"(syntax-e$1" -" s_259)" -" s_259)))" -"(if(pair?" -" s_260)" -"(let-values(((id:from201_0)" -"(let-values(((s_261)" -"(car" -" s_260)))" -"(if(let-values(((or-part_191)" -"(if(syntax?$1" -" s_261)" -"(symbol?" -"(syntax-e$1" -" s_261))" -" #f)))" -"(if or-part_191" -" or-part_191" -"(symbol?" " s_261)))" -" s_261" +"(let-values(((s_264)" +"(if(syntax?$1" +" s_263)" +"(syntax-e$1" +" s_263)" +" s_263)))" +"(if(pair?" +" s_264)" +"(let-values(((id:from201_0)" +"(let-values(((s_265)" +"(car" +" s_264)))" +"(if(let-values(((or-part_190)" +"(if(syntax?$1" +" s_265)" +"(symbol?" +"(syntax-e$1" +" s_265))" +" #f)))" +"(if or-part_190" +" or-part_190" +"(symbol?" +" s_265)))" +" s_265" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_13" -" s_261))))" +" s_265))))" "(()" -"(let-values(((s_127)" +"(let-values(((s_129)" "(cdr" -" s_260)))" -"(let-values(((s_262)" +" s_264)))" +"(let-values(((s_266)" "(if(syntax?$1" -" s_127)" +" s_129)" "(syntax-e$1" -" s_127)" -" s_127)))" +" s_129)" +" s_129)))" "(if(null?" -" s_262)" +" s_266)" "(values)" "(raise-syntax-error$1" " #f" @@ -24770,13 +24787,13 @@ static const char *startup_source = " spec189_1" " id:to190_1" " id:from191_1))))))" -"(loop_85" +"(loop_84" "(list" " spec189_0)" -"(let-values(((or-part_192)" +"(let-values(((or-part_191)" " top-req_0))" -"(if or-part_192" -" or-part_192" +"(if or-part_191" +" or-part_191" " req_0))" " phase-shift_10" " just-meta_0" @@ -24793,11 +24810,11 @@ static const char *startup_source = " req_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_193)" +"(if(let-values(((or-part_192)" "(1/module-path?" " maybe-mp_0)))" -"(if or-part_193" -" or-part_193" +"(if or-part_192" +" or-part_192" "(1/resolved-module-path?" " maybe-mp_0)))" "(void)" @@ -24810,10 +24827,10 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_194)" +"(if(let-values(((or-part_193)" " adjust_0))" -"(if or-part_194" -" or-part_194" +"(if or-part_193" +" or-part_193" "(not" "(eq?" " just-meta_0" @@ -24850,10 +24867,10 @@ static const char *startup_source = "((self204_0)" " self_11)" "((temp205_0)" -"(let-values(((or-part_195)" +"(let-values(((or-part_194)" " req_0))" -"(if or-part_195" -" or-part_195" +"(if or-part_194" +" or-part_194" " top-req_0)))" "((m-ns206_0)" " m-ns_8)" @@ -24930,7 +24947,7 @@ static const char *startup_source = " for-loop_169)" " #t" " lst_141)))))))" -" loop_85)" +" loop_84)" " reqs_0" " #f" " phase-shift_9" @@ -24947,24 +24964,24 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_147)))" "((letrec-values(((for-loop_171)" -"(lambda(table_144 lst_148)" +"(lambda(table_143 lst_148)" "(begin" " 'for-loop" "(if(pair? lst_148)" "(let-values(((id_44)(unsafe-car lst_148))((rest_74)(unsafe-cdr lst_148)))" -"(let-values(((table_145)" -"(let-values(((table_146) table_144))" -"(let-values(((table_147)" +"(let-values(((table_144)" +"(let-values(((table_145) table_143))" +"(let-values(((table_146)" "(let-values()" "(let-values(((key_55 val_46)" "(let-values()" "(values" "(let-values()(syntax-e$1 id_44))" " #t))))" -"(hash-set table_146 key_55 val_46)))))" -"(values table_147)))))" -"(if(not #f)(for-loop_171 table_145 rest_74) table_145)))" -" table_144)))))" +"(hash-set table_145 key_55 val_46)))))" +"(values table_146)))))" +"(if(not #f)(for-loop_171 table_144 rest_74) table_144)))" +" table_143)))))" " for-loop_171)" " '#hash()" " lst_147))))))" @@ -25159,10 +25176,10 @@ static const char *startup_source = "(let-values((()" "(begin" "(if(not" -"(let-values(((or-part_196)" +"(let-values(((or-part_195)" " visit?_2))" -"(if or-part_196" -" or-part_196" +"(if or-part_195" +" or-part_195" " run?_2)))" "(let-values()" "(let-values(((m-ns260_0) m-ns_10)" @@ -25181,15 +25198,15 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((can-bulk-bind?_0)" -"(if(let-values(((or-part_197)" +"(if(let-values(((or-part_196)" "(not adjust_1)))" -"(if or-part_197" -" or-part_197" -"(let-values(((or-part_198)" +"(if or-part_196" +" or-part_196" +"(let-values(((or-part_197)" "(adjust-prefix?" " adjust_1)))" -"(if or-part_198" -" or-part_198" +"(if or-part_197" +" or-part_197" "(adjust-all-except?" " adjust_1)))))" "(not skip-variable-phase-level_1)" @@ -25320,11 +25337,11 @@ static const char *startup_source = " #f)" " #f))" "((temp251_0)" -"(if(let-values(((or-part_199)" +"(if(let-values(((or-part_198)" "(not" " can-bulk-bind?_0)))" -"(if or-part_199" -" or-part_199" +"(if or-part_198" +" or-part_198" " copy-variable-phase-level_1))" "(lambda(binding_16" " as-transformer?_3)" @@ -25420,7 +25437,7 @@ static const char *startup_source = " requires+provides_3" " #f)" "(let-values()" -"(let-values(((s_263)" +"(let-values(((s_267)" "(datum->syntax$1" " bind-in-stx_0" " adjusted-sym_0)))" @@ -25440,7 +25457,7 @@ static const char *startup_source = "((requires+provides281_0)" " requires+provides_3)" "((s282_0)" -" s_263)" +" s_267)" "((bind-phase283_0)" " bind-phase_0)" "((binding284_0)" @@ -25474,7 +25491,7 @@ static const char *startup_source = "(let-values(((requires+provides288_0)" " requires+provides_3)" "((s289_0)" -" s_263)" +" s_267)" "((bind-phase290_0)" " bind-phase_0)" "((binding291_0)" @@ -25608,7 +25625,7 @@ static const char *startup_source = " #f)" "(let-values()" "(begin" -"(let-values(((ht_106)" +"(let-values(((ht_105)" " need-syms_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -25616,16 +25633,16 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-immutable-hash-keys" -" ht_106)))" +" ht_105)))" "((letrec-values(((for-loop_173)" -"(lambda(i_136)" +"(lambda(i_137)" "(begin" " 'for-loop" -"(if i_136" +"(if i_137" "(let-values(((sym_43)" "(unsafe-immutable-hash-iterate-key" -" ht_106" -" i_136)))" +" ht_105" +" i_137)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -25649,13 +25666,13 @@ static const char *startup_source = " #f)" "(for-loop_173" "(unsafe-immutable-hash-iterate-next" -" ht_106" -" i_136))" +" ht_105" +" i_137))" "(values))))" "(values))))))" " for-loop_173)" "(unsafe-immutable-hash-iterate-first" -" ht_106))))" +" ht_105))))" "(void)))" "(void))))))))))))))))))))))))))))))))))))))))))" "(define-values" @@ -25697,28 +25714,28 @@ static const char *startup_source = "(let-values()" "(let-values(((self_13)(module-self m_14)))" "(begin" -"(let-values(((ht_107)(module-provides m_14)))" +"(let-values(((ht_106)(module-provides m_14)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_107)))" +"(let-values()(check-in-hash ht_106)))" "((letrec-values(((for-loop_174)" -"(lambda(i_137)" +"(lambda(i_138)" "(begin" " 'for-loop" -"(if i_137" +"(if i_138" "(let-values(((provide-phase-level_5 provides_7)" "(hash-iterate-key+value" -" ht_107" -" i_137)))" +" ht_106" +" i_138)))" "(let-values((()" "(let-values()" -"(if(let-values(((or-part_200)" +"(if(let-values(((or-part_199)" "(eq?" " just-meta_2" " 'all)))" -"(if or-part_200" -" or-part_200" +"(if or-part_199" +" or-part_199" "(eqv?" " just-meta_2" " provide-phase-level_5)))" @@ -25744,10 +25761,10 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values(((lst_151)" -"(let-values(((or-part_201)" +"(let-values(((or-part_200)" " only-syms_0))" -"(if or-part_201" -" or-part_201" +"(if or-part_200" +" or-part_200" "(hash-keys" " provides_7)))))" "(begin" @@ -25851,7 +25868,7 @@ static const char *startup_source = " in-stx_2)" "((temp304_0)" "(bulk-binding14.1" -"(let-values(((or-part_202)" +"(let-values(((or-part_201)" "(if(not" " bulk-prefix_2)" "(if(zero?" @@ -25860,8 +25877,8 @@ static const char *startup_source = " provides_7" " #f)" " #f)))" -"(if or-part_202" -" or-part_202" +"(if or-part_201" +" or-part_201" "(if(not" "(registered-bulk-provide?" " bulk-binding-registry_10" @@ -25901,11 +25918,11 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_174" -"(hash-iterate-next ht_107 i_137))" +"(hash-iterate-next ht_106 i_138))" "(values))))" "(values))))))" " for-loop_174)" -"(hash-iterate-first ht_107))))" +"(hash-iterate-first ht_106))))" "(void)))))))))))))))))))))))" "(define-values" "(require-spec-shift-for-syntax)" @@ -25913,7 +25930,7 @@ static const char *startup_source = "(begin" "(let-values(((rebuild-req_0)" "(lambda(req_2 new-req_0)(begin 'rebuild-req(datum->syntax$1 req_2 new-req_0 req_2 req_2)))))" -"(letrec-values(((loop_86)" +"(letrec-values(((loop_85)" "(lambda(shifted?_0)" "(begin" " 'loop" @@ -25928,46 +25945,46 @@ static const char *startup_source = "(if(equal? tmp_25 'for-meta)" "(let-values()" "(let-values(((ok?_12 for-meta308_0 phase-level309_0 spec310_0)" -"(let-values(((s_264) req_3))" -"(let-values(((orig-s_16) s_264))" +"(let-values(((s_268) req_3))" +"(let-values(((orig-s_16) s_268))" "(let-values(((for-meta308_1 phase-level309_1 spec310_1)" -"(let-values(((s_265)" -"(if(syntax?$1 s_264)" -"(syntax-e$1 s_264)" -" s_264)))" -"(if(pair? s_265)" -"(let-values(((for-meta311_0)" -"(let-values(((s_266)" -"(car s_265)))" -" s_266))" -"((phase-level312_0 spec313_0)" -"(let-values(((s_267)" -"(cdr s_265)))" -"(let-values(((s_268)" -"(if(syntax?$1" -" s_267)" -"(syntax-e$1" -" s_267)" -" s_267)))" -"(if(pair? s_268)" -"(let-values(((phase-level314_0)" "(let-values(((s_269)" -"(car" +"(if(syntax?$1 s_268)" +"(syntax-e$1 s_268)" " s_268)))" -" s_269))" -"((spec315_0)" +"(if(pair? s_269)" +"(let-values(((for-meta311_0)" "(let-values(((s_270)" -"(cdr" -" s_268)))" +"(car s_269)))" +" s_270))" +"((phase-level312_0 spec313_0)" "(let-values(((s_271)" +"(cdr s_269)))" +"(let-values(((s_272)" "(if(syntax?$1" -" s_270)" +" s_271)" "(syntax-e$1" -" s_270)" -" s_270)))" +" s_271)" +" s_271)))" +"(if(pair? s_272)" +"(let-values(((phase-level314_0)" +"(let-values(((s_273)" +"(car" +" s_272)))" +" s_273))" +"((spec315_0)" +"(let-values(((s_274)" +"(cdr" +" s_272)))" +"(let-values(((s_275)" +"(if(syntax?$1" +" s_274)" +"(syntax-e$1" +" s_274)" +" s_274)))" "(let-values(((flat-s_8)" "(to-syntax-list.1" -" s_271)))" +" s_275)))" "(if(not" " flat-s_8)" "(let-values()" @@ -26000,34 +26017,34 @@ static const char *startup_source = " (let-values () (raise-syntax-error$1 #f \"bad phase\" req_3)))" "(rebuild-req_0" " req_3" -"(list* for-meta308_0(phase+ p_35 1)(map2(loop_86 #t) spec310_0)))))))" +"(list* for-meta308_0(phase+ p_35 1)(map2(loop_85 #t) spec310_0)))))))" "(if(equal? tmp_25 'for-syntax)" "(let-values()" "(let-values(((ok?_13 for-syntax316_0 spec317_0)" -"(let-values(((s_272) req_3))" -"(let-values(((orig-s_17) s_272))" +"(let-values(((s_276) req_3))" +"(let-values(((orig-s_17) s_276))" "(let-values(((for-syntax316_1 spec317_1)" -"(let-values(((s_273)" -"(if(syntax?$1 s_272)" -"(syntax-e$1 s_272)" -" s_272)))" -"(if(pair? s_273)" +"(let-values(((s_277)" +"(if(syntax?$1 s_276)" +"(syntax-e$1 s_276)" +" s_276)))" +"(if(pair? s_277)" "(let-values(((for-syntax318_0)" -"(let-values(((s_274)" -"(car s_273)))" -" s_274))" +"(let-values(((s_278)" +"(car s_277)))" +" s_278))" "((spec319_0)" -"(let-values(((s_275)" -"(cdr s_273)))" -"(let-values(((s_276)" +"(let-values(((s_279)" +"(cdr s_277)))" +"(let-values(((s_280)" "(if(syntax?$1" -" s_275)" +" s_279)" "(syntax-e$1" -" s_275)" -" s_275)))" +" s_279)" +" s_279)))" "(let-values(((flat-s_9)" "(to-syntax-list.1" -" s_276)))" +" s_280)))" "(if(not flat-s_9)" "(let-values()" "(raise-syntax-error$1" @@ -26042,34 +26059,34 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_17)))))" "(values #t for-syntax316_1 spec317_1))))))" -"(rebuild-req_0 req_3(list* 'for-meta 2(map2(loop_86 #t) spec317_0)))))" +"(rebuild-req_0 req_3(list* 'for-meta 2(map2(loop_85 #t) spec317_0)))))" "(if(equal? tmp_25 'for-template)" "(let-values()" "(let-values(((ok?_14 for-template320_0 spec321_0)" -"(let-values(((s_277) req_3))" -"(let-values(((orig-s_18) s_277))" +"(let-values(((s_281) req_3))" +"(let-values(((orig-s_18) s_281))" "(let-values(((for-template320_1 spec321_1)" -"(let-values(((s_278)" -"(if(syntax?$1 s_277)" -"(syntax-e$1 s_277)" -" s_277)))" -"(if(pair? s_278)" +"(let-values(((s_282)" +"(if(syntax?$1 s_281)" +"(syntax-e$1 s_281)" +" s_281)))" +"(if(pair? s_282)" "(let-values(((for-template322_0)" -"(let-values(((s_279)" -"(car s_278)))" -" s_279))" +"(let-values(((s_283)" +"(car s_282)))" +" s_283))" "((spec323_0)" -"(let-values(((s_280)" -"(cdr s_278)))" -"(let-values(((s_281)" +"(let-values(((s_284)" +"(cdr s_282)))" +"(let-values(((s_285)" "(if(syntax?$1" -" s_280)" +" s_284)" "(syntax-e$1" -" s_280)" -" s_280)))" +" s_284)" +" s_284)))" "(let-values(((flat-s_10)" "(to-syntax-list.1" -" s_281)))" +" s_285)))" "(if(not flat-s_10)" "(let-values()" "(raise-syntax-error$1" @@ -26084,36 +26101,36 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_18)))))" "(values #t for-template320_1 spec321_1))))))" -"(rebuild-req_0 req_3(list* 'for-meta 0(map2(loop_86 #t) spec321_0)))))" +"(rebuild-req_0 req_3(list* 'for-meta 0(map2(loop_85 #t) spec321_0)))))" "(if(equal? tmp_25 'for-label)" "(let-values()" "(let-values(((ok?_15 for-label324_0 spec325_0)" -"(let-values(((s_282) req_3))" -"(let-values(((orig-s_19) s_282))" +"(let-values(((s_286) req_3))" +"(let-values(((orig-s_19) s_286))" "(let-values(((for-label324_1 spec325_1)" -"(let-values(((s_283)" -"(if(syntax?$1 s_282)" -"(syntax-e$1 s_282)" -" s_282)))" -"(if(pair? s_283)" +"(let-values(((s_287)" +"(if(syntax?$1 s_286)" +"(syntax-e$1 s_286)" +" s_286)))" +"(if(pair? s_287)" "(let-values(((for-label326_0)" -"(let-values(((s_284)" +"(let-values(((s_288)" "(car" -" s_283)))" -" s_284))" +" s_287)))" +" s_288))" "((spec327_0)" -"(let-values(((s_285)" +"(let-values(((s_289)" "(cdr" -" s_283)))" -"(let-values(((s_286)" +" s_287)))" +"(let-values(((s_290)" "(if(syntax?$1" -" s_285)" +" s_289)" "(syntax-e$1" -" s_285)" -" s_285)))" +" s_289)" +" s_289)))" "(let-values(((flat-s_11)" "(to-syntax-list.1" -" s_286)))" +" s_290)))" "(if(not flat-s_11)" "(let-values()" "(raise-syntax-error$1" @@ -26130,55 +26147,55 @@ static const char *startup_source = "(values #t for-label324_1 spec325_1))))))" "(rebuild-req_0" " req_3" -"(list* for-label324_0(map2(loop_86 #t) spec325_0)))))" +"(list* for-label324_0(map2(loop_85 #t) spec325_0)))))" "(if(equal? tmp_25 'just-meta)" "(let-values()" "(let-values(((ok?_16 just-meta328_0 phase-level329_0 spec330_0)" -"(let-values(((s_287) req_3))" -"(let-values(((orig-s_20) s_287))" +"(let-values(((s_291) req_3))" +"(let-values(((orig-s_20) s_291))" "(let-values(((just-meta328_1" " phase-level329_1" " spec330_1)" -"(let-values(((s_288)" -"(if(syntax?$1 s_287)" -"(syntax-e$1 s_287)" -" s_287)))" -"(if(pair? s_288)" +"(let-values(((s_292)" +"(if(syntax?$1 s_291)" +"(syntax-e$1 s_291)" +" s_291)))" +"(if(pair? s_292)" "(let-values(((just-meta331_0)" -"(let-values(((s_289)" +"(let-values(((s_293)" "(car" -" s_288)))" -" s_289))" +" s_292)))" +" s_293))" "((phase-level332_0" " spec333_0)" -"(let-values(((s_290)" -"(cdr" -" s_288)))" -"(let-values(((s_291)" -"(if(syntax?$1" -" s_290)" -"(syntax-e$1" -" s_290)" -" s_290)))" -"(if(pair? s_291)" -"(let-values(((phase-level334_0)" -"(let-values(((s_292)" -"(car" -" s_291)))" -" s_292))" -"((spec335_0)" -"(let-values(((s_293)" -"(cdr" -" s_291)))" "(let-values(((s_294)" +"(cdr" +" s_292)))" +"(let-values(((s_295)" "(if(syntax?$1" -" s_293)" +" s_294)" "(syntax-e$1" -" s_293)" -" s_293)))" +" s_294)" +" s_294)))" +"(if(pair? s_295)" +"(let-values(((phase-level334_0)" +"(let-values(((s_296)" +"(car" +" s_295)))" +" s_296))" +"((spec335_0)" +"(let-values(((s_297)" +"(cdr" +" s_295)))" +"(let-values(((s_298)" +"(if(syntax?$1" +" s_297)" +"(syntax-e$1" +" s_297)" +" s_297)))" "(let-values(((flat-s_12)" "(to-syntax-list.1" -" s_294)))" +" s_298)))" "(if(not" " flat-s_12)" "(let-values()" @@ -26213,12 +26230,12 @@ static const char *startup_source = "(list*" " just-meta328_0" " phase-level329_0" -"(map2(loop_86 #f) spec330_0)))))" +"(map2(loop_85 #f) spec330_0)))))" "(let-values()" "(if shifted?_0" " req_3" "(datum->syntax$1 #f(list 'for-syntax req_3))))))))))))))))" -"((loop_86 #f) req_1))))))" +"((loop_85 #f) req_1))))))" "(define-values" "(copy-namespace-value)" "(lambda(m-ns_11 adjusted-sym_1 binding_17 phase-level_16 phase-shift_13 as-constant?_1)" @@ -26398,7 +26415,7 @@ static const char *startup_source = "(make-struct-field-accessor -ref_0 1 'other))))" "(define-values" "(swap-top-level-scopes)" -"(lambda(s_295 original-scopes-s_0 new-ns_0)" +"(lambda(s_299 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)" @@ -26406,7 +26423,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_295 old-scs-post_0 new-scs-post_0)" +"(syntax-swap-scopes s_299 old-scs-post_0 new-scs-post_0)" " old-scs-other_0" " new-scs-other_0))))))" "(define-values" @@ -26702,21 +26719,21 @@ static const char *startup_source = "(lambda(sym_47 header_0)" "(begin" "(if(symbol-conflicts? sym_47 header_0)" -"((letrec-values(((loop_87)" +"((letrec-values(((loop_86)" "(lambda(pos_88)" "(begin" " 'loop" " (let-values (((new-sym_0) (string->symbol (format \"~a/~a\" pos_88 sym_47))))" -"(if(symbol-conflicts? new-sym_0 header_0)(loop_87(add1 pos_88)) new-sym_0))))))" -" loop_87)" +"(if(symbol-conflicts? new-sym_0 header_0)(loop_86(add1 pos_88)) new-sym_0))))))" +" loop_86)" " 1)" " sym_47))))" "(define-values" "(symbol-conflicts?)" "(lambda(sym_48 header_1)" "(begin" -"(let-values(((or-part_166)(built-in-symbol? sym_48)))" -"(if or-part_166 or-part_166(hash-ref(header-define-and-import-syms header_1) sym_48 #f))))))" +"(let-values(((or-part_165)(built-in-symbol? sym_48)))" +"(if or-part_165 or-part_165(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)" @@ -26733,9 +26750,9 @@ static const char *startup_source = "(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_56 #f)))" "(let-values(((var-sym_0)" -"(let-values(((or-part_203) prev-var-sym_0))" -"(if or-part_203" -" or-part_203" +"(let-values(((or-part_202) prev-var-sym_0))" +"(if or-part_202" +" or-part_202" "(let-values(((sym_50)(select-fresh(variable-use-sym key_56) header_2)))" "(begin" "(hash-set! variable-uses_0 key_56 sym_50)" @@ -26754,7 +26771,7 @@ static const char *startup_source = "(hash-update!" " extra-inspectors_0" " var-sym_0" -"(lambda(s_296)(set-add s_296 extra-inspector_4))" +"(lambda(s_300)(set-add s_300 extra-inspector_4))" " '#hasheq())))" "(void))" " var-sym_0)))))))))))))))" @@ -26776,47 +26793,47 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_153)))" "((letrec-values(((for-loop_177)" -"(lambda(ht_108 link-mod-uses_1 lst_154)" +"(lambda(ht_107 link-mod-uses_1 lst_154)" "(begin" " 'for-loop" "(if(pair? lst_154)" "(let-values(((vu_0)(unsafe-car lst_154))" "((rest_77)(unsafe-cdr lst_154)))" -"(let-values(((ht_109 link-mod-uses_2)" -"(let-values(((ht_110) ht_108)" +"(let-values(((ht_108 link-mod-uses_2)" +"(let-values(((ht_109) ht_107)" "((link-mod-uses_3) link-mod-uses_1))" -"(let-values(((ht_111 link-mod-uses_4)" +"(let-values(((ht_110 link-mod-uses_4)" "(let-values()" "(let-values(((mu_2)" "(variable-use-module-use" " vu_0)))" "(if(let-values(((or-part_157)" "(hash-ref" -" ht_110" +" ht_109" " mu_2" " #f)))" "(if or-part_157" " or-part_157" -"(let-values(((or-part_204)" +"(let-values(((or-part_203)" "(eq?" "(module-use-module" " mu_2)" "(compile-context-self" " cctx_0))))" -"(if or-part_204" -" or-part_204" +"(if or-part_203" +" or-part_203" "(top-level-module-path-index?" "(module-use-module" " mu_2))))))" -"(values ht_110 link-mod-uses_3)" +"(values ht_109 link-mod-uses_3)" "(values" -"(hash-set ht_110 mu_2 #t)" +"(hash-set ht_109 mu_2 #t)" "(cons mu_2 link-mod-uses_3)))))))" -"(values ht_111 link-mod-uses_4)))))" +"(values ht_110 link-mod-uses_4)))))" "(if(not #f)" -"(for-loop_177 ht_109 link-mod-uses_2 rest_77)" -"(values ht_109 link-mod-uses_2))))" -"(values ht_108 link-mod-uses_1))))))" +"(for-loop_177 ht_108 link-mod-uses_2 rest_77)" +"(values ht_108 link-mod-uses_2))))" +"(values ht_107 link-mod-uses_1))))))" " for-loop_177)" " '#hash()" " null" @@ -26936,7 +26953,7 @@ static const char *startup_source = "(let-values()" "(check-list lst_110)))" "((letrec-values(((for-loop_126)" -"(lambda(table_148" +"(lambda(table_147" " lst_159)" "(begin" " 'for-loop" @@ -26948,9 +26965,9 @@ static const char *startup_source = "((rest_81)" "(unsafe-cdr" " lst_159)))" -"(let-values(((table_149)" +"(let-values(((table_148)" "(let-values(((table_34)" -" table_148))" +" table_147))" "(if(equal?" " mu_4" "(variable-use-module-use" @@ -26963,11 +26980,11 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_181)" -"(lambda(table_32)" +"(lambda(table_31)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_35)" +"(let-values(((table_32)" "(let-values(((extra-inspectors_1)" "(hash-ref" "(header-import-sym-to-extra-inspectors" @@ -26977,21 +26994,21 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_182)" -"(lambda(table_150)" +"(lambda(table_149)" "(begin" " 'for-loop" "(let-values()" +"(let-values(((table_150)" "(let-values(((table_151)" -"(let-values(((table_152)" -" table_150))" -"(if(let-values(((or-part_205)" +" table_149))" +"(if(let-values(((or-part_204)" " extra-inspectors_1))" -"(if or-part_205" -" or-part_205" +"(if or-part_204" +" or-part_204" " cross-linklet-inlining?_0))" -"(let-values(((table_153)" -" table_152))" -"(let-values(((table_124)" +"(let-values(((table_152)" +" table_151))" +"(let-values(((table_123)" "(let-values()" "(let-values(((key_57" " val_48)" @@ -27000,26 +27017,26 @@ static const char *startup_source = " var-sym_3" " extra-inspectors_1))))" "(hash-set" -" table_153" +" table_152" " key_57" " val_48)))))" "(values" -" table_124)))" -" table_152))))" -" table_151))))))" +" table_123)))" +" table_151))))" +" table_150))))))" " for-loop_182)" -" table_32)))))" -" table_35))))))" +" table_31)))))" +" table_32))))))" " for-loop_181)" " table_34)))" " table_34))))" "(if(not" " #f)" "(for-loop_126" -" table_149" +" table_148" " rest_81)" -" table_149)))" -" table_148)))))" +" table_148)))" +" table_147)))))" " for-loop_126)" " '#hash()" " lst_110)))))" @@ -27048,10 +27065,10 @@ static const char *startup_source = "(if(let-values(((mod_2)" "(module-use-module" "(variable-use-module-use vu_3))))" -"(let-values(((or-part_206)" +"(let-values(((or-part_205)" "(eq? mod_2(compile-context-self cctx_0))))" -"(if or-part_206" -" or-part_206" +"(if or-part_205" +" or-part_205" "(top-level-module-path-index? mod_2))))" "(let-values(((fold-var_155) fold-var_154))" "(let-values(((fold-var_156)" @@ -27087,7 +27104,7 @@ static const char *startup_source = "(let-values(((ns_55) namespace1_0))" "(let-values(((phase-shift_15) phase-shift2_0))" "(let-values(((self_16) self3_0))" -"(let-values(((inspector_10) inspector4_0))" +"(let-values(((inspector_9) inspector4_0))" "(let-values(((bulk-binding-registry_11) bulk-binding-registry5_0))" "(let-values(((set-transformer!_0) set-transformer!6_0))" "(let-values()" @@ -27102,7 +27119,7 @@ static const char *startup_source = " self-id" " self_16" " inspector-id" -" inspector_10" +" inspector_9" " bulk-binding-registry-id" " bulk-binding-registry_11" " set-transformer!-id" @@ -27142,7 +27159,7 @@ static const char *startup_source = "(let-values(((dest-phase_0) dest-phase2_0))" "(let-values(((self_17) self3_1))" "(let-values(((bulk-binding-registry_12) bulk-binding-registry4_0))" -"(let-values(((inspector_11) inspector5_0))" +"(let-values(((inspector_10) inspector5_0))" "(let-values()" "(1/make-instance" " 'instance" @@ -27157,7 +27174,7 @@ static const char *startup_source = " bulk-binding-registry-id" " bulk-binding-registry_12" " inspector-id" -" inspector_11" +" inspector_10" " 'swap-top-level-scopes" " swap-top-level-scopes))))))))))" "(define-values" @@ -27201,42 +27218,42 @@ static const char *startup_source = "(correlated->list)" "(lambda(e_30)" "(begin" -"((letrec-values(((loop_88)" +"((letrec-values(((loop_87)" "(lambda(e_31)" "(begin" " 'loop" "(if(list? e_31)" "(let-values() e_31)" "(if(pair? e_31)" -"(let-values()(cons(car e_31)(loop_88(cdr e_31))))" +"(let-values()(cons(car e_31)(loop_87(cdr e_31))))" "(if(null? e_31)" "(let-values() null)" "(if(1/syntax? e_31)" -"(let-values()(loop_88(syntax-e$2 e_31)))" +"(let-values()(loop_87(syntax-e$2 e_31)))" " (let-values () (error 'correlated->list \"not a list\"))))))))))" -" loop_88)" +" loop_87)" " e_30))))" "(define-values" "(correlated-property)" "(case-lambda" "((e_17 k_31)(begin(syntax-property$2 e_17 k_31)))" -"((e_32 k_32 v_156)(syntax-property$2 e_32 k_32 v_156))))" +"((e_32 k_32 v_155)(syntax-property$2 e_32 k_32 v_155))))" "(define-values" "(to-syntax-list.1$1)" -"(lambda(s_297)" +"(lambda(s_301)" "(begin" " 'to-syntax-list" -"(if(list? s_297)" -"(let-values() s_297)" -"(if(pair? s_297)" -"(let-values()(let-values(((r_38)(to-syntax-list.1$1(cdr s_297))))(if r_38(cons(car s_297) r_38) #f)))" -"(if(1/syntax? s_297)(let-values()(to-syntax-list.1$1(syntax-e$2 s_297)))(let-values() #f)))))))" +"(if(list? s_301)" +"(let-values() s_301)" +"(if(pair? s_301)" +"(let-values()(let-values(((r_37)(to-syntax-list.1$1(cdr s_301))))(if r_37(cons(car s_301) r_37) #f)))" +"(if(1/syntax? s_301)(let-values()(to-syntax-list.1$1(syntax-e$2 s_301)))(let-values() #f)))))))" "(define-values" "(srcloc->vector)" -"(lambda(s_77)" +"(lambda(s_79)" "(begin" -"(if s_77" -"(vector(srcloc-source s_77)(srcloc-line s_77)(srcloc-column s_77)(srcloc-position s_77)(srcloc-span s_77))" +"(if s_79" +"(vector(srcloc-source s_79)(srcloc-line s_79)(srcloc-column s_79)(srcloc-position s_79)(srcloc-span s_79))" " #f))))" "(define-values" "(correlate*)" @@ -27351,7 +27368,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_164)" -"(let-values(((r_39)(unsafe-car lst_164))" +"(let-values(((r_38)(unsafe-car lst_164))" "((rest_42)" "(unsafe-cdr lst_164)))" "(let-values(((fold-var_159)" @@ -27362,7 +27379,7 @@ static const char *startup_source = "(cons" "(let-values()" "(compile_0" -" r_39" +" r_38" " #f" " #t))" " fold-var_9))))" @@ -27597,36 +27614,36 @@ static const char *startup_source = " start_33)))))))))" "(define-values" "(add-lambda-properties)" -"(lambda(s_298 inferred-name_0 orig-s_21)" +"(lambda(s_302 inferred-name_0 orig-s_21)" "(begin" "(letrec-values(((simplify-name_0)" -"(lambda(v_157)" +"(lambda(v_156)" "(begin" " 'simplify-name" -"(if(pair? v_157)" +"(if(pair? v_156)" "(let-values()" -"(let-values(((n1_0)(simplify-name_0(car v_157))))" -"(let-values(((n2_0)(simplify-name_0(cdr v_157))))(if(eq? n1_0 n2_0) n1_0 v_157))))" -"(let-values() v_157))))))" +"(let-values(((n1_0)(simplify-name_0(car v_156))))" +"(let-values(((n2_0)(simplify-name_0(cdr v_156))))(if(eq? n1_0 n2_0) n1_0 v_156))))" +"(let-values() v_156))))))" "(let-values(((name_45)" -"(let-values(((or-part_207)" -"(let-values(((v_158)" +"(let-values(((or-part_206)" +"(let-values(((v_157)" "(simplify-name_0(syntax-property$1 orig-s_21 'inferred-name))))" -"(if(let-values(((or-part_131)(symbol? v_158)))" +"(if(let-values(((or-part_131)(symbol? v_157)))" "(if or-part_131" " or-part_131" -"(let-values(((or-part_208)(syntax?$1 v_158)))" -"(if or-part_208 or-part_208(void? v_158)))))" -" v_158" +"(let-values(((or-part_207)(syntax?$1 v_157)))" +"(if or-part_207 or-part_207(void? v_157)))))" +" v_157" " #f))))" -"(if or-part_207 or-part_207 inferred-name_0))))" +"(if or-part_206 or-part_206 inferred-name_0))))" "(let-values(((named-s_0)" "(if name_45" "(correlated-property" -"(->correlated s_298)" +"(->correlated s_302)" " 'inferred-name" "(if(syntax?$1 name_45)(syntax-e$1 name_45) name_45))" -" s_298)))" +" 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)" @@ -27767,8 +27784,8 @@ static const char *startup_source = "(correlated-property" "(->correlated id_47)" " 'undefined-error-name" -"(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))))))))" +"(let-values(((or-part_50)(syntax-property$1 orig-id_0 'undefined-error-name)))" +"(if or-part_50 or-part_50(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)" @@ -27781,9 +27798,9 @@ static const char *startup_source = "(let-values()" "(let-values(((normal-b_0)(parsed-id-binding p_42)))" "(let-values(((b_70)" -"(let-values(((or-part_209) normal-b_0))" -"(if or-part_209" -" or-part_209" +"(let-values(((or-part_208) normal-b_0))" +"(if or-part_208" +" or-part_208" "(let-values(((temp45_0)(compile-context-self cctx_9))" "((temp46_0)(compile-context-phase cctx_9))" "((temp47_0)(syntax-e$1(parsed-s p_42))))" @@ -27844,14 +27861,14 @@ static const char *startup_source = "((temp50_0)(module-binding-phase b_70))" "((temp51_0)(module-binding-sym b_70))" "((temp52_1)" -"(let-values(((or-part_102)" +"(let-values(((or-part_103)" "(module-binding-extra-inspector b_70)))" -"(if or-part_102" -" or-part_102" -"(let-values(((or-part_210)" +"(if or-part_103" +" or-part_103" +"(let-values(((or-part_209)" "(parsed-id-inspector p_42)))" -"(if or-part_210" -" or-part_210" +"(if or-part_209" +" or-part_209" "(if(parsed-s p_42)" "(syntax-inspector(parsed-s p_42))" " #f)))))))" @@ -27885,17 +27902,17 @@ static const char *startup_source = "(let-values() #f)" "(if(set? extra-inspectors_2)" "(let-values()" -"(let-values(((ht_112) extra-inspectors_2))" +"(let-values(((ht_111) extra-inspectors_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_112)))" +"(let-values()(check-in-immutable-hash-keys ht_111)))" "((letrec-values(((for-loop_95)" -"(lambda(result_79 i_138)" +"(lambda(result_79 i_139)" "(begin" " 'for-loop" -"(if i_138" -"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_112 i_138)))" +"(if i_139" +"(let-values(((extra-insp_0)(unsafe-immutable-hash-iterate-key ht_111 i_139)))" "(let-values(((result_80)" "(let-values()" "(let-values(((result_81)" @@ -27906,12 +27923,12 @@ static const char *startup_source = " guard-insp_0)))))" "(values result_81)))))" "(if(if(not((lambda x_53(not result_80)) extra-insp_0))(not #f) #f)" -"(for-loop_95 result_80(unsafe-immutable-hash-iterate-next ht_112 i_138))" +"(for-loop_95 result_80(unsafe-immutable-hash-iterate-next ht_111 i_139))" " result_80)))" " result_79)))))" " for-loop_95)" " #t" -"(unsafe-immutable-hash-iterate-first ht_112)))))" +"(unsafe-immutable-hash-iterate-first ht_111)))))" "(if(procedure? extra-inspectors_2)" "(let-values()(extra-inspectors_2 guard-insp_0))" "(let-values()" @@ -27923,8 +27940,8 @@ static const char *startup_source = "(extra-inspectors-merge)" "(lambda(extra-inspectors-1_0 extra-inspectors-2_0)" "(begin" -"(if(let-values(((or-part_211)(not extra-inspectors-1_0)))" -"(if or-part_211 or-part_211(not extra-inspectors-2_0)))" +"(if(let-values(((or-part_210)(not extra-inspectors-1_0)))" +"(if or-part_210 or-part_210(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))" @@ -28180,14 +28197,14 @@ static const char *startup_source = "(lambda(mu*_3 insp_9)(begin(set-module-use*-self-inspector! mu*_3 insp_9))))" "(define-values" "(module-use+extra-inspectors)" -"(lambda(mpi_44 phase_72 imports_1 inspector_12 extra-inspector_5 extra-inspectorss_7)" +"(lambda(mpi_44 phase_72 imports_1 inspector_11 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-insp?_0)(if inspector_11(inspector-superior? inspector_11 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_212) add-insp?_0))(if or-part_212 or-part_212 add-extra-insp?_0))" +"(if(let-values(((or-part_211) add-insp?_0))(if or-part_211 or-part_211 add-extra-insp?_0))" "(let-values()" "(let-values(((lst_183) imports_1))" "(begin" @@ -28195,15 +28212,15 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_183)))" "((letrec-values(((for-loop_192)" -"(lambda(table_154 lst_184)" +"(lambda(table_153 lst_184)" "(begin" " 'for-loop" "(if(pair? lst_184)" "(let-values(((import_1)(unsafe-car lst_184))" "((rest_96)(unsafe-cdr lst_184)))" -"(let-values(((table_155)" -"(let-values(((table_156) table_154))" -"(let-values(((table_157)" +"(let-values(((table_154)" +"(let-values(((table_155) table_153))" +"(let-values(((table_156)" "(let-values()" "(let-values(((key_58" " val_50)" @@ -28218,32 +28235,32 @@ static const char *startup_source = " #f)" " #f)))" "(lambda(guard-insp_2)" -"(let-values(((or-part_54)" +"(let-values(((or-part_55)" "(if add-insp?_0" "(inspector-superior?" -" inspector_12" +" inspector_11" " guard-insp_2)" " #f)))" -"(if or-part_54" -" or-part_54" -"(let-values(((or-part_97)" +"(if or-part_55" +" or-part_55" +"(let-values(((or-part_98)" "(if add-extra-insp?_0" "(inspector-superior?" " extra-inspector_5" " guard-insp_2)" " #f)))" -"(if or-part_97" -" or-part_97" +"(if or-part_98" +" or-part_98" "(extra-inspectors-allow?" " extra-inspectors_3" " guard-insp_2)))))))))))" "(hash-set" -" table_156" +" table_155" " key_58" " val_50)))))" -"(values table_157)))))" -"(if(not #f)(for-loop_192 table_155 rest_96) table_155)))" -" table_154)))))" +"(values table_156)))))" +"(if(not #f)(for-loop_192 table_154 rest_96) table_154)))" +" table_153)))))" " for-loop_192)" " '#hash()" " lst_183))))" @@ -28280,8 +28297,8 @@ static const char *startup_source = " extra-inspectorss_9)))" " extra-inspectorss_8)))))" " for-loop_193)" -"(let-values(((or-part_213) extra-inspectorss_7))" -"(if or-part_213 or-part_213(seteq)))" +"(let-values(((or-part_212) extra-inspectorss_7))" +"(if or-part_212 or-part_212(seteq)))" " lst_185)))))))" "(module-use*1.1 mpi_44 phase_72 new-extra-inspectorss_0 #f))))))))" "(define-values" @@ -28291,18 +28308,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_113) extra-inspectorss_12))" +"(let-values(((ht_112) extra-inspectorss_12))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_113)))" +"(let-values()(check-in-hash ht_112)))" "((letrec-values(((for-loop_194)" -"(lambda(new-extra-inspectorss_2 i_139)" +"(lambda(new-extra-inspectorss_2 i_140)" "(begin" " 'for-loop" -"(if i_139" +"(if i_140" "(let-values(((sym_52 extra-inspectors_4)" -"(hash-iterate-key+value ht_113 i_139)))" +"(hash-iterate-key+value ht_112 i_140)))" "(let-values(((new-extra-inspectorss_3)" "(let-values(((new-extra-inspectorss_4)" " new-extra-inspectorss_2))" @@ -28321,12 +28338,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_194" " new-extra-inspectorss_3" -"(hash-iterate-next ht_113 i_139))" +"(hash-iterate-next ht_112 i_140))" " new-extra-inspectorss_3)))" " new-extra-inspectorss_2)))))" " for-loop_194)" " existing-extra-inspectorss_0" -"(hash-iterate-first ht_113))))))" +"(hash-iterate-first ht_112))))))" "(set-module-use*-extra-inspectorss! existing-mu*_0 new-extra-inspectorss_1)))))))" "(define-values" "(struct:link-info" @@ -28423,13 +28440,13 @@ static const char *startup_source = "(lambda(phase_74)" "(begin" " 'find-or-create-header!" -"(let-values(((or-part_207)" +"(let-values(((or-part_206)" "(hash-ref" " phase-to-header_0" " phase_74" " #f)))" -"(if or-part_207" -" or-part_207" +"(if or-part_206" +" or-part_206" "(let-values(((header_7)" "(make-header" " mpis_15" @@ -28662,7 +28679,7 @@ static const char *startup_source = "((rest_86)" "(unsafe-cdr" " lst_194))" -"((i_140)" +"((i_141)" " pos_92))" "(let-values((()" "(let-values()" @@ -28852,11 +28869,11 @@ static const char *startup_source = " rhs_1))" "(parsed-s" " body_3)))" -"(if(let-values(((or-part_48)" +"(if(let-values(((or-part_49)" "(compile-context-module-self" " cctx_3)))" -"(if or-part_48" -" or-part_48" +"(if or-part_49" +" or-part_49" "(null?" " ids_5)))" "(void)" @@ -29158,31 +29175,31 @@ static const char *startup_source = "(compile-top-level-bind" " ids_6" " binding-syms_1" -"(let-values(((the-struct_49)" +"(let-values(((the-struct_0)" " cctx_3))" "(if(compile-context?" -" the-struct_49)" +" the-struct_0)" "(let-values(((phase47_0)" " phase_77)" "((header48_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_49)" +" the-struct_0)" " phase47_0" "(compile-context-self" -" the-struct_49)" +" the-struct_0)" "(compile-context-module-self" -" the-struct_49)" +" the-struct_0)" "(compile-context-full-module-name" -" the-struct_49)" +" the-struct_0)" "(compile-context-lazy-syntax-literals?" -" the-struct_49)" +" the-struct_0)" " header48_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_49)))" +" the-struct_0)))" " gen-syms_0)))))" "(set! saw-define-syntaxes?_0" " #t)))))))))))" @@ -29197,47 +29214,47 @@ static const char *startup_source = "(find-or-create-header!_0" "(add1" " phase_77))))" -"(if(let-values(((or-part_214)" +"(if(let-values(((or-part_213)" "(parsed-#%declare?" " body_3)))" +"(if or-part_213" +" or-part_213" +"(let-values(((or-part_214)" +"(parsed-module?" +" body_3)))" "(if or-part_214" " or-part_214" -"(let-values(((or-part_215)" -"(parsed-module?" -" body_3)))" -"(if or-part_215" -" or-part_215" "(parsed-require?" " body_3)))))" "(let-values()" "(let-values(((e_35)" "(other-form-callback_0" " body_3" -"(let-values(((the-struct_50)" +"(let-values(((the-struct_49)" " cctx_3))" "(if(compile-context?" -" the-struct_50)" +" the-struct_49)" "(let-values(((phase49_0)" " phase_77)" "((header50_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_50)" +" the-struct_49)" " phase49_0" "(compile-context-self" -" the-struct_50)" +" the-struct_49)" "(compile-context-module-self" -" the-struct_50)" +" the-struct_49)" "(compile-context-full-module-name" -" the-struct_50)" +" the-struct_49)" "(compile-context-lazy-syntax-literals?" -" the-struct_50)" +" the-struct_49)" " header50_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_50))))))" +" the-struct_49))))))" "(if e_35" "(let-values()" "(begin" @@ -29255,34 +29272,34 @@ static const char *startup_source = "(let-values(((e_36)" "(compile$2" " body_3" -"(let-values(((the-struct_51)" +"(let-values(((the-struct_50)" " cctx_3))" "(if(compile-context?" -" the-struct_51)" +" the-struct_50)" "(let-values(((phase51_0)" " phase_77)" "((header52_0)" " header_10))" "(compile-context1.1" "(compile-context-namespace" -" the-struct_51)" +" the-struct_50)" " phase51_0" "(compile-context-self" -" the-struct_51)" +" the-struct_50)" "(compile-context-module-self" -" the-struct_51)" +" the-struct_50)" "(compile-context-full-module-name" -" the-struct_51)" +" the-struct_50)" "(compile-context-lazy-syntax-literals?" -" the-struct_51)" +" the-struct_50)" " header52_0))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_51)))" +" the-struct_50)))" " #f" "(=" -" i_140" +" i_141" " last-i_0))))" "(begin" "(compiled-expression-callback_0" @@ -29365,7 +29382,7 @@ static const char *startup_source = "(let-values()" "(check-list lst_203)))" "((letrec-values(((for-loop_121)" -"(lambda(table_158" +"(lambda(table_157" " lst_204)" "(begin" " 'for-loop" @@ -29377,10 +29394,10 @@ static const char *startup_source = "((rest_106)" "(unsafe-cdr" " lst_204)))" +"(let-values(((table_158)" "(let-values(((table_159)" +" table_157))" "(let-values(((table_160)" -" table_158))" -"(let-values(((table_161)" "(let-values()" "(let-values(((key_59" " val_51)" @@ -29407,18 +29424,18 @@ static const char *startup_source = " extra-inspectorsss_1" " def-decls_0)))))))" "(hash-set" -" table_160" +" table_159" " key_59" " val_51)))))" "(values" -" table_161)))))" +" table_160)))))" "(if(not" " #f)" "(for-loop_121" -" table_159" +" table_158" " rest_106)" -" table_159)))" -" table_158)))))" +" table_158)))" +" table_157)))))" " for-loop_121)" " '#hash()" " lst_203)))))" @@ -29433,7 +29450,7 @@ static const char *startup_source = "(check-list" " lst_205)))" "((letrec-values(((for-loop_203)" -"(lambda(table_162" +"(lambda(table_161" " lst_206)" "(begin" " 'for-loop" @@ -29445,10 +29462,10 @@ static const char *startup_source = "((rest_107)" "(unsafe-cdr" " lst_206)))" +"(let-values(((table_162)" "(let-values(((table_163)" +" table_161))" "(let-values(((table_164)" -" table_162))" -"(let-values(((table_165)" "(let-values()" "(let-values(((key_60" " val_52)" @@ -29586,23 +29603,23 @@ static const char *startup_source = "(length" " body-imports_0))))))))))))" "(hash-set" -" table_164" +" table_163" " key_60" " val_52)))))" "(values" -" table_165)))))" +" table_164)))))" "(if(not" " #f)" "(for-loop_203" -" table_163" +" table_162" " rest_107)" -" table_163)))" -" table_162)))))" +" table_162)))" +" table_161)))))" " for-loop_203)" " '#hasheq()" " lst_205)))))" "(let-values(((body-linklets_0)" -"(let-values(((ht_114)" +"(let-values(((ht_113)" " body-linklets+module-use*s_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29610,22 +29627,22 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_114)))" +" ht_113)))" "((letrec-values(((for-loop_204)" -"(lambda(table_166" -" i_141)" +"(lambda(table_165" +" i_142)" "(begin" " 'for-loop" -"(if i_141" +"(if i_142" "(let-values(((phase_55" " l+mu*s_0)" "(hash-iterate-key+value" -" ht_114" -" i_141)))" -"(let-values(((table_167)" +" ht_113" +" i_142)))" +"(let-values(((table_166)" +"(let-values(((table_124)" +" table_165))" "(let-values(((table_125)" -" table_166))" -"(let-values(((table_126)" "(let-values()" "(let-values(((key_61" " val_53)" @@ -29635,26 +29652,26 @@ static const char *startup_source = "(car" " l+mu*s_0)))))" "(hash-set" -" table_125" +" table_124" " key_61" " val_53)))))" "(values" -" table_126)))))" +" table_125)))))" "(if(not" " #f)" "(for-loop_204" -" table_167" +" table_166" "(hash-iterate-next" -" ht_114" -" i_141))" -" table_167)))" -" table_166)))))" +" ht_113" +" i_142))" +" table_166)))" +" table_165)))))" " for-loop_204)" " '#hasheq()" "(hash-iterate-first" -" ht_114))))))" +" ht_113))))))" "(let-values(((phase-to-link-module-uses_1)" -"(let-values(((ht_115)" +"(let-values(((ht_114)" " body-linklets+module-use*s_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29662,22 +29679,22 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_115)))" +" ht_114)))" "((letrec-values(((for-loop_205)" -"(lambda(table_168" -" i_142)" +"(lambda(table_167" +" i_143)" "(begin" " 'for-loop" -"(if i_142" +"(if i_143" "(let-values(((phase_80" " l+mu*s_1)" "(hash-iterate-key+value" -" ht_115" -" i_142)))" +" ht_114" +" i_143)))" +"(let-values(((table_168)" +"(let-values(((table_41)" +" table_167))" "(let-values(((table_169)" -"(let-values(((table_42)" -" table_168))" -"(let-values(((table_170)" "(let-values()" "(let-values(((key_62" " val_54)" @@ -29688,30 +29705,30 @@ static const char *startup_source = "(cdr" " l+mu*s_1))))))" "(hash-set" -" table_42" +" table_41" " key_62" " val_54)))))" "(values" -" table_170)))))" +" table_169)))))" "(if(not" " #f)" "(for-loop_205" -" table_169" +" table_168" "(hash-iterate-next" -" ht_115" -" i_142))" -" table_169)))" -" table_168)))))" +" ht_114" +" i_143))" +" table_168)))" +" table_167)))))" " for-loop_205)" " '#hasheq()" "(hash-iterate-first" -" ht_115))))))" +" ht_114))))))" "(let-values(((phase-to-link-module-uses-expr_0)" "(serialize-phase-to-link-module-uses" " phase-to-link-module-uses_1" " mpis_15)))" "(let-values(((phase-to-link-extra-inspectorsss_0)" -"(let-values(((ht_116)" +"(let-values(((ht_115)" " body-linklets+module-use*s_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -29719,19 +29736,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_116)))" +" ht_115)))" "((letrec-values(((for-loop_206)" -"(lambda(table_171" -" i_143)" +"(lambda(table_170" +" i_144)" "(begin" " 'for-loop" -"(if i_143" +"(if i_144" "(let-values(((phase_81" " l+mu*s_2)" "(hash-iterate-key+value" -" ht_116" -" i_143)))" -"(let-values(((table_172)" +" ht_115" +" i_144)))" +"(let-values(((table_171)" "(let-values(((extra-inspectorsss_2)" "(module-uses-extract-extra-inspectorsss" "(cdr" @@ -29744,17 +29761,17 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_128)" -"(lambda(table_173)" +"(lambda(table_172)" "(begin" " 'for-loop" "(let-values()" +"(let-values(((table_173)" "(let-values(((table_174)" -"(let-values(((table_175)" -" table_173))" +" table_172))" "(if extra-inspectorsss_2" -"(let-values(((table_176)" -" table_175))" -"(let-values(((table_46)" +"(let-values(((table_175)" +" table_174))" +"(let-values(((table_45)" "(let-values()" "(let-values(((key_63" " val_55)" @@ -29763,28 +29780,28 @@ static const char *startup_source = " phase_81" " extra-inspectorsss_2))))" "(hash-set" -" table_176" +" table_175" " key_63" " val_55)))))" "(values" -" table_46)))" -" table_175))))" -" table_174))))))" +" table_45)))" +" table_174))))" +" table_173))))))" " for-loop_128)" -" table_171)))))" +" table_170)))))" "(if(not" " #f)" "(for-loop_206" -" table_172" +" table_171" "(hash-iterate-next" -" ht_116" -" i_143))" -" table_172)))" -" table_171)))))" +" ht_115" +" i_144))" +" table_171)))" +" table_170)))))" " for-loop_206)" " '#hash()" "(hash-iterate-first" -" ht_116))))))" +" ht_115))))))" "(values" " body-linklets_0" " min-phase_0" @@ -29812,9 +29829,9 @@ static const char *startup_source = "(let-values(((lst_209) ids_7)" "((lst_210) binding-syms_2)" "((lst_117)" -"(let-values(((or-part_108) trans-exprs_0))" -"(if or-part_108" -" or-part_108" +"(let-values(((or-part_109) trans-exprs_0))" +"(if or-part_109" +" or-part_109" "(reverse$1" "(let-values(((lst_118) ids_7))" "(begin" @@ -29929,7 +29946,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_215)" -"(let-values(((s_299)(unsafe-car lst_215))((rest_113)(unsafe-cdr lst_215)))" +"(let-values(((s_303)(unsafe-car lst_215))((rest_113)(unsafe-cdr lst_215)))" "(let-values(((fold-var_210)" "(let-values(((fold-var_211) fold-var_209))" "(let-values(((fold-var_212)" @@ -29947,8 +29964,8 @@ static const char *startup_source = "(propagate-inline-property)" "(lambda(e_37 orig-s_22)" "(begin" -"(let-values(((v_159)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" -"(if v_159(correlated-property e_37 'compiler-hint:cross-module-inline v_159) e_37)))))" +"(let-values(((v_158)(syntax-property$1 orig-s_22 'compiler-hint:cross-module-inline)))" +"(if v_158(correlated-property e_37 'compiler-hint:cross-module-inline v_158) e_37)))))" "(define-values" "(make-module-use-to-linklet)" "(lambda(cross-linklet-inlining?_2 ns_57 get-module-linklet-info_1 init-mu*s_0)" @@ -30003,10 +30020,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_216)" +"(let-values(((or-part_215)" "(get-module-linklet-info_1 mod-name_16(module-use-phase mu*_7))))" -"(if or-part_216" -" or-part_216" +"(if or-part_215" +" or-part_215" "(namespace->module-linklet-info" " ns_57" " mod-name_16" @@ -30032,8 +30049,8 @@ static const char *startup_source = "(1/linklet-import-variables" "(module-linklet-info-linklet-or-instance mli_0)))" "((lst_219)" -"(let-values(((or-part_217) extra-inspectorsss_3))" -"(if or-part_217 or-part_217 mus_2))))" +"(let-values(((or-part_216) extra-inspectorsss_3))" +"(if or-part_216 or-part_216 mus_2))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -30111,7 +30128,7 @@ static const char *startup_source = "(map-cim-tree" " cims_0" "(lambda(cim_1)" -"(let-values(((vec_58 i_144)" +"(let-values(((vec_58 i_145)" "(let-values(((vec_59 len_29)" "(let-values(((vec_60)(compiled-in-memory-mpis cim_1)))" "(begin" @@ -30120,16 +30137,16 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_96)" -"(lambda(vec_61 i_145 pos_93)" +"(lambda(vec_61 i_146 pos_93)" "(begin" " 'for-loop" "(if(unsafe-fx< pos_93 len_29)" "(let-values(((mpi_45)" "(unsafe-vector-ref vec_59 pos_93)))" -"(let-values(((vec_62 i_146)" +"(let-values(((vec_62 i_147)" "(let-values(((vec_63) vec_61)" -"((i_57) i_145))" -"(let-values(((vec_64 i_147)" +"((i_57) i_146))" +"(let-values(((vec_64 i_148)" "(let-values()" "(let-values(((new-vec_3)" "(if(eq?" @@ -30152,19 +30169,19 @@ static const char *startup_source = "(unsafe-fx+" " i_57" " 1)))))))" -"(values vec_64 i_147)))))" +"(values vec_64 i_148)))))" "(if(not #f)" "(for-loop_96" " vec_62" -" i_146" +" i_147" "(unsafe-fx+ 1 pos_93))" -"(values vec_62 i_146))))" -"(values vec_61 i_145))))))" +"(values vec_62 i_147))))" +"(values vec_61 i_146))))))" " for-loop_96)" "(make-vector 16)" " 0" " 0)))))" -"(shrink-vector vec_58 i_144))))))" +"(shrink-vector vec_58 i_145))))))" "(let-values(((syntax-literals_2)(make-syntax-literals)))" "(let-values(((syntax-literals-trees_0)" "(map-cim-tree" @@ -30250,7 +30267,7 @@ static const char *startup_source = "(map-cim-tree)" "(lambda(cims_1 proc_8)" "(begin" -"((letrec-values(((loop_38)" +"((letrec-values(((loop_88)" "(lambda(cims_2)" "(begin" " 'loop" @@ -30275,10 +30292,10 @@ static const char *startup_source = "(let-values()" "(vector" "(proc_8 cim_4)" -"(loop_38" +"(loop_88" "(compiled-in-memory-pre-compiled-in-memorys" " cim_4))" -"(loop_38" +"(loop_88" "(compiled-in-memory-post-compiled-in-memorys" " cim_4))))" " fold-var_168))))" @@ -30290,7 +30307,7 @@ static const char *startup_source = " for-loop_97)" " null" " lst_81))))))))" -" loop_38)" +" loop_88)" " cims_1))))" "(define-values" "(compiled-tops->compiled-top8.1)" @@ -30322,16 +30339,16 @@ static const char *startup_source = "(void)" "(let-values()(check-naturals start_35)))" "((letrec-values(((for-loop_211)" -"(lambda(table_177 lst_100 pos_95)" +"(lambda(table_176 lst_100 pos_95)" "(begin" " 'for-loop" "(if(if(pair? lst_100) #t #f)" "(let-values(((cim_5)(unsafe-car lst_100))" "((rest_36)(unsafe-cdr lst_100))" "((i_84) pos_95))" -"(let-values(((table_178)" -"(let-values(((table_179) table_177))" -"(let-values(((table_180)" +"(let-values(((table_177)" +"(let-values(((table_178) table_176))" +"(let-values(((table_179)" "(let-values()" "(let-values(((key_64" " val_56)" @@ -30345,19 +30362,19 @@ static const char *startup_source = " compiled-in-memory-linklet-directory)" " cim_5)))))" "(hash-set" -" table_179" +" table_178" " key_64" " val_56)))))" -"(values table_180)))))" +"(values table_179)))))" "(if(not #f)" -"(for-loop_211 table_178 rest_36(+ pos_95 1))" -" table_178)))" -" table_177)))))" +"(for-loop_211 table_177 rest_36(+ pos_95 1))" +" table_177)))" +" table_176)))))" " for-loop_211)" " '#hasheq()" " lst_224" " start_35)))))" -"(let-values(((ht_117)" +"(let-values(((ht_116)" "(if merge-serialization?_0" "(hash-set" " sequence-ht_0" @@ -30369,10 +30386,10 @@ static const char *startup_source = "(hasheq 0(build-shared-data-linklet cims_3 ns_58))))))" " sequence-ht_0)))" "(if to-source?_1" -"(let-values() ht_117)" +"(let-values() ht_116)" "(let-values()" "(compiled-in-memory1.1" -"(1/hash->linklet-directory ht_117)" +"(1/hash->linklet-directory ht_116)" " #f" " #f" " #f" @@ -30389,9 +30406,9 @@ static const char *startup_source = "(compiled-top->compiled-tops)" "(lambda(ld_0)" "(begin" -"(let-values(((ht_118)(1/linklet-directory->hash ld_0)))" +"(let-values(((ht_117)(1/linklet-directory->hash ld_0)))" "(reverse$1" -"(let-values(((start_36) 0)((end_25)(hash-count ht_118))((inc_19) 1))" +"(let-values(((start_36) 0)((end_25)(hash-count ht_117))((inc_19) 1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -30405,7 +30422,7 @@ static const char *startup_source = "(let-values(((fold-var_173)" "(let-values(((top_0)" "(hash-ref" -" ht_118" +" ht_117" "(string->symbol(number->string i_92))" " #f)))" "(begin" @@ -30609,12 +30626,12 @@ static const char *startup_source = "(if(unsafe-fx< index_1 1)" "(let-values()" "(let-values(((v_4)(correlated-e e_40)))" -"(if(let-values(((or-part_78)(string? v_4)))" -"(if or-part_78" -" or-part_78" -"(let-values(((or-part_79)(number? v_4)))" +"(if(let-values(((or-part_79)(string? v_4)))" "(if or-part_79" " or-part_79" +"(let-values(((or-part_80)(number? v_4)))" +"(if or-part_80" +" or-part_80" "(let-values(((or-part_29)" "(boolean? v_4)))" "(if or-part_29" @@ -30626,13 +30643,13 @@ static const char *startup_source = "(let-values(((rator_0)" "(correlated-e" "(car v_4))))" -"(let-values(((or-part_82)" +"(let-values(((or-part_83)" "(hash-ref" " locals_2" " rator_0" " #f)))" -"(if or-part_82" -" or-part_82" +"(if or-part_83" +" or-part_83" "(lookup-defn" " defns_1" " rator_0))))" @@ -30640,37 +30657,37 @@ static const char *startup_source = "(if c1_26" "((lambda(d_19)" "(let-values(((ok?_17 _17_0 e18_0)" -"(let-values(((s_83) e_40))" +"(let-values(((s_85) e_40))" "(let-values(((orig-s_23)" -" s_83))" +" s_85))" "(let-values(((_17_1" " e18_1)" -"(let-values(((s_300)" +"(let-values(((s_304)" "(if(1/syntax?" -" s_83)" +" s_85)" "(syntax-e$2" -" s_83)" -" s_83)))" +" s_85)" +" s_85)))" "(if(pair?" -" s_300)" +" s_304)" "(let-values(((_19_0)" -"(let-values(((s_84)" +"(let-values(((s_86)" "(car" -" s_300)))" -" s_84))" +" s_304)))" +" s_86))" "((e20_0)" -"(let-values(((s_160)" +"(let-values(((s_162)" "(cdr" -" s_300)))" -"(let-values(((s_301)" +" s_304)))" +"(let-values(((s_305)" "(if(1/syntax?" -" s_160)" +" s_162)" "(syntax-e$2" -" s_160)" -" s_160)))" +" s_162)" +" s_162)))" "(let-values(((flat-s_13)" "(to-syntax-list.1$1" -" s_301)))" +" s_305)))" "(if(not" " flat-s_13)" "(let-values()" @@ -30701,8 +30718,8 @@ static const char *startup_source = " e18_1))))))" "(let-values(((n-args_0)" "(length e18_0)))" +"(if(let-values(((or-part_217)" "(if(let-values(((or-part_218)" -"(if(let-values(((or-part_219)" "(if(known-struct-op?" " d_19)" "(if(eq?" @@ -30715,8 +30732,8 @@ static const char *startup_source = " n-args_0)" " #f)" " #f)))" -"(if or-part_219" -" or-part_219" +"(if or-part_218" +" or-part_218" "(if(known-function?" " d_19)" "(if(known-function-pure?" @@ -30778,8 +30795,8 @@ static const char *startup_source = " #t" " lst_8)))" " #f)))" -"(if or-part_218" -" or-part_218" +"(if or-part_217" +" or-part_217" "(if(known-function-of-satisfying?" " d_19)" "(if(=" @@ -30876,30 +30893,30 @@ static const char *startup_source = " #f))))" " c1_26)" "(let-values()" -"(if(let-values(((or-part_165)" +"(if(let-values(((or-part_164)" "(self-quoting-in-linklet?" " v_4)))" -"(if or-part_165" -" or-part_165" +"(if or-part_164" +" or-part_164" "(if(symbol? v_4)" -"(let-values(((or-part_35)" +"(let-values(((or-part_36)" "(hash-ref" " locals_2" " v_4" " #f)))" -"(if or-part_35" -" or-part_35" -"(let-values(((or-part_36)" +"(if or-part_36" +" or-part_36" +"(let-values(((or-part_37)" "(lookup-defn" " defns_1" " v_4)))" -"(if or-part_36" -" or-part_36" -"(let-values(((or-part_67)" +"(if or-part_37" +" or-part_37" +"(let-values(((or-part_68)" "(built-in-symbol?" " v_4)))" -"(if or-part_67" -" or-part_67" +"(if or-part_68" +" or-part_68" "(ready-variable?_0" " v_4)))))))" " #f)))" @@ -30913,30 +30930,30 @@ static const char *startup_source = " ids22_0" " rhs23_0" " body24_0)" -"(let-values(((s_168) e_40))" -"(let-values(((orig-s_24) s_168))" +"(let-values(((s_170) e_40))" +"(let-values(((orig-s_24) s_170))" "(let-values(((_21_1" " ids22_1" " rhs23_1" " body24_1)" -"(let-values(((s_302)" +"(let-values(((s_306)" "(if(1/syntax?" -" s_168)" +" s_170)" "(syntax-e$2" -" s_168)" -" s_168)))" -"(if(pair? s_302)" +" s_170)" +" s_170)))" +"(if(pair? s_306)" "(let-values(((_25_0)" "(let-values(((s_28)" "(car" -" s_302)))" +" s_306)))" " s_28))" "((ids26_0" " rhs27_0" " body28_0)" "(let-values(((s_29)" "(cdr" -" s_302)))" +" s_306)))" "(let-values(((s_30)" "(if(1/syntax?" " s_29)" @@ -30947,18 +30964,18 @@ static const char *startup_source = " s_30)" "(let-values(((ids29_0" " rhs30_0)" -"(let-values(((s_303)" +"(let-values(((s_307)" "(car" " s_30)))" -"(let-values(((s_157)" +"(let-values(((s_159)" "(if(1/syntax?" -" s_303)" +" s_307)" "(syntax-e$2" -" s_303)" -" s_303)))" +" s_307)" +" s_307)))" "(let-values(((flat-s_14)" "(to-syntax-list.1$1" -" s_157)))" +" s_159)))" "(if(not" " flat-s_14)" "(let-values()" @@ -30990,7 +31007,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_229)" -"(let-values(((s_304)" +"(let-values(((s_308)" "(unsafe-car" " lst_229))" "((rest_123)" @@ -31008,48 +31025,48 @@ static const char *startup_source = "(let-values(((ids36_0" " rhs37_0)" "(let-values()" -"(let-values(((s_305)" -"(if(1/syntax?" -" s_304)" -"(syntax-e$2" -" s_304)" -" s_304)))" -"(if(pair?" -" s_305)" -"(let-values(((ids32_0)" -"(let-values(((s_51)" -"(car" -" s_305)))" -" s_51))" -"((rhs33_0)" -"(let-values(((s_306)" -"(cdr" -" s_305)))" -"(let-values(((s_307)" -"(if(1/syntax?" -" s_306)" -"(syntax-e$2" -" s_306)" -" s_306)))" -"(if(pair?" -" s_307)" -"(let-values(((rhs34_0)" -"(let-values(((s_53)" -"(car" -" s_307)))" -" s_53))" -"(()" -"(let-values(((s_308)" -"(cdr" -" s_307)))" -"(let-values(((s_156)" +"(let-values(((s_309)" "(if(1/syntax?" " s_308)" "(syntax-e$2" " s_308)" " s_308)))" +"(if(pair?" +" s_309)" +"(let-values(((ids32_0)" +"(let-values(((s_310)" +"(car" +" s_309)))" +" s_310))" +"((rhs33_0)" +"(let-values(((s_52)" +"(cdr" +" s_309)))" +"(let-values(((s_311)" +"(if(1/syntax?" +" s_52)" +"(syntax-e$2" +" s_52)" +" s_52)))" +"(if(pair?" +" s_311)" +"(let-values(((rhs34_0)" +"(let-values(((s_53)" +"(car" +" s_311)))" +" s_53))" +"(()" +"(let-values(((s_54)" +"(cdr" +" s_311)))" +"(let-values(((s_158)" +"(if(1/syntax?" +" s_54)" +"(syntax-e$2" +" s_54)" +" s_54)))" "(if(null?" -" s_156)" +" s_158)" "(values)" "((lambda(false_3" " str_7" @@ -31112,34 +31129,34 @@ static const char *startup_source = "(reverse$1" " rhs_4)))))))))" "((body31_0)" -"(let-values(((s_55)" +"(let-values(((s_312)" "(cdr" " s_30)))" -"(let-values(((s_309)" -"(if(1/syntax?" -" s_55)" -"(syntax-e$2" -" s_55)" -" s_55)))" -"(if(pair?" -" s_309)" -"(let-values(((body35_0)" -"(let-values(((s_310)" -"(car" -" s_309)))" -" s_310))" -"(()" -"(let-values(((s_311)" -"(cdr" -" s_309)))" "(let-values(((s_56)" "(if(1/syntax?" -" s_311)" +" s_312)" "(syntax-e$2" -" s_311)" -" s_311)))" -"(if(null?" +" s_312)" +" s_312)))" +"(if(pair?" " s_56)" +"(let-values(((body35_0)" +"(let-values(((s_313)" +"(car" +" s_56)))" +" s_313))" +"(()" +"(let-values(((s_314)" +"(cdr" +" s_56)))" +"(let-values(((s_315)" +"(if(1/syntax?" +" s_314)" +"(syntax-e$2" +" s_314)" +" s_314)))" +"(if(null?" +" s_315)" "(values)" "((lambda(false_6" " str_10" @@ -31266,34 +31283,34 @@ static const char *startup_source = "(if(unsafe-fx< index_1 4)" "(let-values()" "(let-values(((ok?_19 _38_0 e39_0)" -"(let-values(((s_312) e_40))" -"(let-values(((orig-s_25) s_312))" +"(let-values(((s_316) e_40))" +"(let-values(((orig-s_25) s_316))" "(let-values(((_38_1 e39_1)" "(let-values(((s_37)" "(if(1/syntax?" -" s_312)" +" s_316)" "(syntax-e$2" -" s_312)" -" s_312)))" +" s_316)" +" s_316)))" "(if(pair? s_37)" "(let-values(((_40_0)" -"(let-values(((s_313)" +"(let-values(((s_317)" "(car" " s_37)))" -" s_313))" +" s_317))" "((e41_0)" -"(let-values(((s_64)" +"(let-values(((s_318)" "(cdr" " s_37)))" -"(let-values(((s_314)" +"(let-values(((s_66)" "(if(1/syntax?" -" s_64)" +" s_318)" "(syntax-e$2" -" s_64)" -" s_64)))" +" s_318)" +" s_318)))" "(let-values(((flat-s_15)" "(to-syntax-list.1$1" -" s_314)))" +" s_66)))" "(if(not" " flat-s_15)" "(let-values()" @@ -31370,35 +31387,35 @@ static const char *startup_source = " #f)))" "(let-values()" "(let-values(((ok?_20 _42_0 e43_0)" -"(let-values(((s_205) e_40))" -"(let-values(((orig-s_26) s_205))" +"(let-values(((s_209) e_40))" +"(let-values(((orig-s_26) s_209))" "(let-values(((_42_1 e43_1)" -"(let-values(((s_315)" +"(let-values(((s_319)" "(if(1/syntax?" -" s_205)" +" s_209)" "(syntax-e$2" -" s_205)" -" s_205)))" +" s_209)" +" s_209)))" "(if(pair?" -" s_315)" +" s_319)" "(let-values(((_44_0)" -"(let-values(((s_316)" +"(let-values(((s_320)" "(car" -" s_315)))" -" s_316))" +" s_319)))" +" s_320))" "((e45_0)" -"(let-values(((s_317)" +"(let-values(((s_321)" "(cdr" -" s_315)))" -"(let-values(((s_318)" +" s_319)))" +"(let-values(((s_322)" "(if(1/syntax?" -" s_317)" +" s_321)" "(syntax-e$2" -" s_317)" -" s_317)))" +" s_321)" +" s_321)))" "(let-values(((flat-s_16)" "(to-syntax-list.1$1" -" s_318)))" +" s_322)))" "(if(not" " flat-s_16)" "(let-values()" @@ -31477,34 +31494,34 @@ static const char *startup_source = "(if(unsafe-fx< index_1 6)" "(let-values()" "(let-values(((ok?_21 _46_0 e47_0)" -"(let-values(((s_319) e_40))" -"(let-values(((orig-s_27) s_319))" +"(let-values(((s_323) e_40))" +"(let-values(((orig-s_27) s_323))" "(let-values(((_46_1 e47_1)" -"(let-values(((s_102)" +"(let-values(((s_104)" "(if(1/syntax?" -" s_319)" +" s_323)" "(syntax-e$2" -" s_319)" -" s_319)))" -"(if(pair? s_102)" +" s_323)" +" s_323)))" +"(if(pair? s_104)" "(let-values(((_48_0)" -"(let-values(((s_320)" +"(let-values(((s_324)" "(car" -" s_102)))" -" s_320))" +" s_104)))" +" s_324))" "((e49_0)" -"(let-values(((s_105)" +"(let-values(((s_107)" "(cdr" -" s_102)))" -"(let-values(((s_321)" +" s_104)))" +"(let-values(((s_325)" "(if(1/syntax?" -" s_105)" +" s_107)" "(syntax-e$2" -" s_105)" -" s_105)))" +" s_107)" +" s_107)))" "(let-values(((flat-s_17)" "(to-syntax-list.1$1" -" s_321)))" +" s_325)))" "(if(not" " flat-s_17)" "(let-values()" @@ -31554,55 +31571,55 @@ static const char *startup_source = "(if(unsafe-fx< index_1 7)" "(let-values()" "(let-values(((ok?_7 _50_0 e051_0 e52_0)" -"(let-values(((s_214) e_40))" -"(let-values(((orig-s_9) s_214))" +"(let-values(((s_218) e_40))" +"(let-values(((orig-s_9) s_218))" "(let-values(((_50_1" " e051_1" " e52_1)" -"(let-values(((s_215)" +"(let-values(((s_219)" "(if(1/syntax?" -" s_214)" +" s_218)" "(syntax-e$2" -" s_214)" -" s_214)))" +" s_218)" +" s_218)))" "(if(pair?" -" s_215)" +" s_219)" "(let-values(((_53_0)" -"(let-values(((s_216)" +"(let-values(((s_220)" "(car" -" s_215)))" -" s_216))" +" s_219)))" +" s_220))" "((e054_0" " e55_0)" -"(let-values(((s_217)" +"(let-values(((s_221)" "(cdr" -" s_215)))" -"(let-values(((s_115)" -"(if(1/syntax?" -" s_217)" -"(syntax-e$2" -" s_217)" -" s_217)))" -"(if(pair?" -" s_115)" -"(let-values(((e056_0)" -"(let-values(((s_218)" -"(car" -" s_115)))" -" s_218))" -"((e57_0)" -"(let-values(((s_116)" -"(cdr" -" s_115)))" +" s_219)))" "(let-values(((s_117)" "(if(1/syntax?" -" s_116)" +" s_221)" "(syntax-e$2" -" s_116)" -" s_116)))" +" s_221)" +" s_221)))" +"(if(pair?" +" s_117)" +"(let-values(((e056_0)" +"(let-values(((s_222)" +"(car" +" s_117)))" +" s_222))" +"((e57_0)" +"(let-values(((s_118)" +"(cdr" +" s_117)))" +"(let-values(((s_119)" +"(if(1/syntax?" +" s_118)" +"(syntax-e$2" +" s_118)" +" s_118)))" "(let-values(((flat-s_5)" "(to-syntax-list.1$1" -" s_117)))" +" s_119)))" "(if(not" " flat-s_5)" "(let-values()" @@ -31730,134 +31747,134 @@ static const char *startup_source = " id:arg60_0" " thn61_0" " els62_0)" -"(let-values(((s_322) e_40))" -"(if(let-values(((s_224)" +"(let-values(((s_326) e_40))" +"(if(let-values(((s_228)" "(if(1/syntax?" -" s_322)" +" s_326)" "(syntax-e$2" -" s_322)" -" s_322)))" -"(if(pair? s_224)" -"(if(let-values(((s_225)" -"(car" -" s_224)))" -" #t)" -"(let-values(((s_323)" -"(cdr" -" s_224)))" -"(let-values(((s_226)" -"(if(1/syntax?" -" s_323)" -"(syntax-e$2" -" s_323)" -" s_323)))" -"(if(pair? s_226)" -"(if(let-values(((s_227)" -"(car" -" s_226)))" -"(let-values(((s_228)" -"(if(1/syntax?" -" s_227)" -"(syntax-e$2" -" s_227)" -" s_227)))" -"(if(pair?" -" s_228)" -"(if(let-values(((s_324)" +" s_326)" +" s_326)))" +"(if(pair? s_228)" +"(if(let-values(((s_229)" "(car" " s_228)))" -"(let-values(((or-part_220)" +" #t)" +"(let-values(((s_327)" +"(cdr" +" s_228)))" +"(let-values(((s_230)" "(if(1/syntax?" -" s_324)" +" s_327)" +"(syntax-e$2" +" s_327)" +" s_327)))" +"(if(pair? s_230)" +"(if(let-values(((s_231)" +"(car" +" s_230)))" +"(let-values(((s_232)" +"(if(1/syntax?" +" s_231)" +"(syntax-e$2" +" s_231)" +" s_231)))" +"(if(pair?" +" s_232)" +"(if(let-values(((s_328)" +"(car" +" s_232)))" +"(let-values(((or-part_219)" +"(if(1/syntax?" +" s_328)" "(symbol?" "(syntax-e$2" -" s_324))" +" s_328))" +" #f)))" +"(if or-part_219" +" or-part_219" +"(symbol?" +" s_328))))" +"(let-values(((s_329)" +"(cdr" +" s_232)))" +"(let-values(((s_330)" +"(if(1/syntax?" +" s_329)" +"(syntax-e$2" +" s_329)" +" s_329)))" +"(if(pair?" +" s_330)" +"(if(let-values(((s_331)" +"(car" +" s_330)))" +"(let-values(((or-part_220)" +"(if(1/syntax?" +" s_331)" +"(symbol?" +"(syntax-e$2" +" s_331))" " #f)))" "(if or-part_220" " or-part_220" "(symbol?" -" s_324))))" -"(let-values(((s_325)" +" s_331))))" +"(let-values(((s_332)" "(cdr" -" s_228)))" -"(let-values(((s_326)" -"(if(1/syntax?" -" s_325)" -"(syntax-e$2" -" s_325)" -" s_325)))" -"(if(pair?" -" s_326)" -"(if(let-values(((s_327)" -"(car" -" s_326)))" -"(let-values(((or-part_221)" -"(if(1/syntax?" -" s_327)" -"(symbol?" -"(syntax-e$2" -" s_327))" -" #f)))" -"(if or-part_221" -" or-part_221" -"(symbol?" -" s_327))))" -"(let-values(((s_328)" -"(cdr" -" s_326)))" -"(let-values(((s_329)" -"(if(1/syntax?" -" s_328)" -"(syntax-e$2" -" s_328)" -" s_328)))" -"(null?" -" s_329)))" -" #f)" -" #f)))" -" #f)" -" #f)))" -"(let-values(((s_330)" -"(cdr" -" s_226)))" -"(let-values(((s_331)" -"(if(1/syntax?" -" s_330)" -"(syntax-e$2" -" s_330)" " s_330)))" -"(if(pair?" -" s_331)" -"(if(let-values(((s_332)" -"(car" -" s_331)))" -" #t)" "(let-values(((s_333)" -"(cdr" -" s_331)))" -"(let-values(((s_334)" "(if(1/syntax?" -" s_333)" +" s_332)" "(syntax-e$2" -" s_333)" -" s_333)))" -"(if(pair?" -" s_334)" -"(if(let-values(((s_335)" -"(car" -" s_334)))" -" #t)" -"(let-values(((s_336)" -"(cdr" -" s_334)))" -"(let-values(((s_337)" -"(if(1/syntax?" -" s_336)" -"(syntax-e$2" -" s_336)" -" s_336)))" +" s_332)" +" s_332)))" "(null?" +" s_333)))" +" #f)" +" #f)))" +" #f)" +" #f)))" +"(let-values(((s_334)" +"(cdr" +" s_230)))" +"(let-values(((s_335)" +"(if(1/syntax?" +" s_334)" +"(syntax-e$2" +" s_334)" +" s_334)))" +"(if(pair?" +" s_335)" +"(if(let-values(((s_336)" +"(car" +" s_335)))" +" #t)" +"(let-values(((s_337)" +"(cdr" +" s_335)))" +"(let-values(((s_338)" +"(if(1/syntax?" +" s_337)" +"(syntax-e$2" +" s_337)" " s_337)))" +"(if(pair?" +" s_338)" +"(if(let-values(((s_339)" +"(car" +" s_338)))" +" #t)" +"(let-values(((s_340)" +"(cdr" +" s_338)))" +"(let-values(((s_341)" +"(if(1/syntax?" +" s_340)" +"(syntax-e$2" +" s_340)" +" s_340)))" +"(null?" +" s_341)))" " #f)" " #f)))" " #f)" @@ -31872,71 +31889,71 @@ static const char *startup_source = " id:arg60_1" " thn61_1" " els62_1)" -"(let-values(((s_230)" +"(let-values(((s_234)" "(if(1/syntax?" -" s_322)" +" s_326)" "(syntax-e$2" -" s_322)" -" s_322)))" +" s_326)" +" s_326)))" "(let-values(((_63_0)" -"(let-values(((s_233)" +"(let-values(((s_237)" "(car" -" s_230)))" -" s_233))" +" s_234)))" +" s_237))" "((id:rator64_0" " id:arg65_0" " thn66_0" " els67_0)" -"(let-values(((s_338)" -"(cdr" -" s_230)))" -"(let-values(((s_339)" -"(if(1/syntax?" -" s_338)" -"(syntax-e$2" -" s_338)" -" s_338)))" -"(let-values(((id:rator68_0" -" id:arg69_0)" -"(let-values(((s_340)" -"(car" -" s_339)))" -"(let-values(((s_341)" -"(if(1/syntax?" -" s_340)" -"(syntax-e$2" -" s_340)" -" s_340)))" -"(let-values(((id:rator72_0)" "(let-values(((s_342)" -"(car" -" s_341)))" -" s_342))" -"((id:arg73_0)" -"(let-values(((s_237)" "(cdr" -" s_341)))" +" s_234)))" "(let-values(((s_343)" "(if(1/syntax?" -" s_237)" +" s_342)" "(syntax-e$2" -" s_237)" -" s_237)))" -"(let-values(((id:arg74_0)" +" s_342)" +" s_342)))" +"(let-values(((id:rator68_0" +" id:arg69_0)" "(let-values(((s_344)" "(car" " s_343)))" -" s_344))" -"(()" "(let-values(((s_345)" -"(cdr" -" s_343)))" -"(let-values(((s_346)" "(if(1/syntax?" -" s_345)" +" s_344)" "(syntax-e$2" -" s_345)" +" 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:arg74_0)" +"(let-values(((s_348)" +"(car" +" s_347)))" +" s_348))" +"(()" +"(let-values(((s_349)" +"(cdr" +" s_347)))" +"(let-values(((s_350)" +"(if(1/syntax?" +" s_349)" +"(syntax-e$2" +" s_349)" +" s_349)))" "(values)))))" "(values" " id:arg74_0))))))" @@ -31945,45 +31962,45 @@ static const char *startup_source = " id:arg73_0)))))" "((thn70_0" " els71_0)" -"(let-values(((s_347)" -"(cdr" -" s_339)))" -"(let-values(((s_348)" -"(if(1/syntax?" -" s_347)" -"(syntax-e$2" -" s_347)" -" s_347)))" -"(let-values(((thn75_0)" -"(let-values(((s_349)" -"(car" -" s_348)))" -" s_349))" -"((els76_0)" -"(let-values(((s_350)" -"(cdr" -" s_348)))" "(let-values(((s_351)" -"(if(1/syntax?" -" s_350)" -"(syntax-e$2" -" s_350)" -" s_350)))" -"(let-values(((els77_0)" -"(let-values(((s_352)" -"(car" -" s_351)))" -" s_352))" -"(()" -"(let-values(((s_353)" "(cdr" -" s_351)))" -"(let-values(((s_354)" +" s_343)))" +"(let-values(((s_352)" "(if(1/syntax?" -" s_353)" +" s_351)" "(syntax-e$2" -" s_353)" -" s_353)))" +" s_351)" +" s_351)))" +"(let-values(((thn75_0)" +"(let-values(((s_353)" +"(car" +" s_352)))" +" s_353))" +"((els76_0)" +"(let-values(((s_354)" +"(cdr" +" s_352)))" +"(let-values(((s_355)" +"(if(1/syntax?" +" s_354)" +"(syntax-e$2" +" s_354)" +" s_354)))" +"(let-values(((els77_0)" +"(let-values(((s_356)" +"(car" +" s_355)))" +" s_356))" +"(()" +"(let-values(((s_357)" +"(cdr" +" s_355)))" +"(let-values(((s_358)" +"(if(1/syntax?" +" s_357)" +"(syntax-e$2" +" s_357)" +" s_357)))" "(values)))))" "(values" " els77_0))))))" @@ -32012,13 +32029,13 @@ static const char *startup_source = "(if ok?_22" "(let-values()" "(let-values(((c2_2)" -"(let-values(((or-part_222)" +"(let-values(((or-part_221)" "(hash-ref" " locals_2" " id:rator59_0" " #f)))" -"(if or-part_222" -" or-part_222" +"(if or-part_221" +" or-part_221" "(lookup-defn" " defns_1" " id:rator59_0)))))" @@ -32046,74 +32063,74 @@ static const char *startup_source = " tst79_0" " thn80_0" " els81_0)" -"(let-values(((s_355) e_40))" -"(if(let-values(((s_356)" +"(let-values(((s_359) e_40))" +"(if(let-values(((s_360)" "(if(1/syntax?" -" s_355)" +" s_359)" "(syntax-e$2" -" s_355)" -" s_355)))" -"(if(pair? s_356)" -"(if(let-values(((s_249)" +" s_359)" +" s_359)))" +"(if(pair? s_360)" +"(if(let-values(((s_253)" "(car" -" s_356)))" -" #t)" -"(let-values(((s_357)" -"(cdr" -" s_356)))" -"(let-values(((s_358)" -"(if(1/syntax?" -" s_357)" -"(syntax-e$2" -" s_357)" -" s_357)))" -"(if(pair?" -" s_358)" -"(if(let-values(((s_359)" -"(car" -" s_358)))" -" #t)" -"(let-values(((s_360)" -"(cdr" -" s_358)))" -"(let-values(((s_361)" -"(if(1/syntax?" -" s_360)" -"(syntax-e$2" -" s_360)" " s_360)))" -"(if(pair?" +" #t)" +"(let-values(((s_361)" +"(cdr" +" s_360)))" +"(let-values(((s_362)" +"(if(1/syntax?" " s_361)" -"(if(let-values(((s_362)" -"(car" -" s_361)))" -" #t)" -"(let-values(((s_363)" -"(cdr" -" s_361)))" -"(let-values(((s_364)" -"(if(1/syntax?" -" s_363)" "(syntax-e$2" -" s_363)" -" s_363)))" +" s_361)" +" s_361)))" "(if(pair?" -" s_364)" -"(if(let-values(((s_365)" +" s_362)" +"(if(let-values(((s_363)" "(car" -" s_364)))" +" s_362)))" " #t)" -"(let-values(((s_366)" +"(let-values(((s_364)" "(cdr" -" s_364)))" -"(let-values(((s_367)" +" s_362)))" +"(let-values(((s_365)" "(if(1/syntax?" -" s_366)" +" s_364)" "(syntax-e$2" -" s_366)" -" s_366)))" -"(null?" +" s_364)" +" s_364)))" +"(if(pair?" +" s_365)" +"(if(let-values(((s_366)" +"(car" +" s_365)))" +" #t)" +"(let-values(((s_367)" +"(cdr" +" s_365)))" +"(let-values(((s_368)" +"(if(1/syntax?" +" s_367)" +"(syntax-e$2" +" s_367)" " s_367)))" +"(if(pair?" +" s_368)" +"(if(let-values(((s_369)" +"(car" +" s_368)))" +" #t)" +"(let-values(((s_370)" +"(cdr" +" s_368)))" +"(let-values(((s_371)" +"(if(1/syntax?" +" s_370)" +"(syntax-e$2" +" s_370)" +" s_370)))" +"(null?" +" s_371)))" " #f)" " #f)))" " #f)" @@ -32127,75 +32144,75 @@ static const char *startup_source = " tst79_1" " thn80_1" " els81_1)" -"(let-values(((s_368)" +"(let-values(((s_372)" "(if(1/syntax?" -" s_355)" +" s_359)" "(syntax-e$2" -" s_355)" -" s_355)))" +" s_359)" +" s_359)))" "(let-values(((_82_0)" -"(let-values(((s_369)" +"(let-values(((s_373)" "(car" -" s_368)))" -" s_369))" +" s_372)))" +" s_373))" "((tst83_0" " thn84_0" " els85_0)" -"(let-values(((s_370)" +"(let-values(((s_374)" "(cdr" -" s_368)))" -"(let-values(((s_371)" +" s_372)))" +"(let-values(((s_375)" "(if(1/syntax?" -" s_370)" +" s_374)" "(syntax-e$2" -" s_370)" -" s_370)))" +" s_374)" +" s_374)))" "(let-values(((tst86_0)" -"(let-values(((s_372)" +"(let-values(((s_376)" "(car" -" s_371)))" -" s_372))" +" s_375)))" +" s_376))" "((thn87_0" " els88_0)" -"(let-values(((s_373)" -"(cdr" -" s_371)))" -"(let-values(((s_374)" -"(if(1/syntax?" -" s_373)" -"(syntax-e$2" -" s_373)" -" s_373)))" -"(let-values(((thn89_0)" -"(let-values(((s_251)" -"(car" -" s_374)))" -" s_251))" -"((els90_0)" -"(let-values(((s_375)" -"(cdr" -" s_374)))" -"(let-values(((s_376)" -"(if(1/syntax?" -" s_375)" -"(syntax-e$2" -" s_375)" -" s_375)))" -"(let-values(((els91_0)" "(let-values(((s_377)" -"(car" -" s_376)))" -" s_377))" -"(()" -"(let-values(((s_252)" "(cdr" -" s_376)))" -"(let-values(((s_253)" +" s_375)))" +"(let-values(((s_378)" "(if(1/syntax?" -" s_252)" +" s_377)" "(syntax-e$2" -" s_252)" -" s_252)))" +" 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_378)))" +"(let-values(((s_380)" +"(if(1/syntax?" +" s_379)" +"(syntax-e$2" +" s_379)" +" s_379)))" +"(let-values(((els91_0)" +"(let-values(((s_381)" +"(car" +" s_380)))" +" s_381))" +"(()" +"(let-values(((s_256)" +"(cdr" +" s_380)))" +"(let-values(((s_257)" +"(if(1/syntax?" +" s_256)" +"(syntax-e$2" +" s_256)" +" s_256)))" "(values)))))" "(values" " els91_0))))))" @@ -32240,16 +32257,16 @@ static const char *startup_source = " locals_0)))" "(not" "(if actual-results_0" -"(let-values(((or-part_115)(not expected-results_0)))" -"(if or-part_115 or-part_115(= actual-results_0 expected-results_0)))" +"(let-values(((or-part_116)(not expected-results_0)))" +"(if or-part_116 or-part_116(= actual-results_0 expected-results_0)))" " #f)))))))))))))" "(define-values" "(satisfies?)" "(lambda(e_65 key_66 defns_2 locals_3)" "(begin" "(let-values(((d_31)" -"(let-values(((or-part_223)(hash-ref locals_3 e_65 #f)))" -"(if or-part_223 or-part_223(lookup-defn defns_2 e_65)))))" +"(let-values(((or-part_222)(hash-ref locals_3 e_65 #f)))" +"(if or-part_222 or-part_222(lookup-defn defns_2 e_65)))))" "(if d_31(if(known-satisfies? d_31)(eq? key_66(known-satisfies-predicate-key d_31)) #f) #f)))))" "(define-values" "(add-binding-info)" @@ -32440,11 +32457,11 @@ static const char *startup_source = "(let-values(((lst_247)(cdr l_57))" "((lst_248)" "(list" -"(lambda(v_160)(quoted? symbol? v_160))" -"(lambda(v_161)(is-lambda? v_161 2 defns_3))" -"(lambda(v_162)(ok-make-struct-type-property-super? v_162 defns_3))" -"(lambda(v_163)" -"(let-values(((v92_0) v_163)((temp93_1) 1)((defns94_0) defns_3))" +"(lambda(v_159)(quoted? symbol? v_159))" +"(lambda(v_160)(is-lambda? v_160 2 defns_3))" +"(lambda(v_161)(ok-make-struct-type-property-super? v_161 defns_3))" +"(lambda(v_162)" +"(let-values(((v92_0) v_162)((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_247)))" @@ -32476,17 +32493,17 @@ static const char *startup_source = " #f)))))" "(define-values" "(ok-make-struct-type-property-super?)" -"(lambda(v_164 defns_4)" +"(lambda(v_163 defns_4)" "(begin" -"(let-values(((or-part_224)(quoted? null? v_164)))" +"(let-values(((or-part_223)(quoted? null? v_163)))" +"(if or-part_223" +" or-part_223" +"(let-values(((or-part_224)(eq? 'null(correlated-e v_163))))" "(if or-part_224" " or-part_224" -"(let-values(((or-part_225)(eq? 'null(correlated-e v_164))))" -"(if or-part_225" -" or-part_225" -"(if(pair?(correlated-e v_164))" -"(if(eq?(correlated-e(car(correlated-e v_164))) 'list)" -"(if(let-values(((lst_250)(cdr(correlated->list v_164))))" +"(if(pair?(correlated-e v_163))" +"(if(eq?(correlated-e(car(correlated-e v_163))) 'list)" +"(if(let-values(((lst_250)(cdr(correlated->list v_163))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -32514,7 +32531,7 @@ static const char *startup_source = " 'cons" "(correlated-e" "(car prop+val_1)))" -"(if(let-values(((or-part_226)" +"(if(let-values(((or-part_225)" "(memq" "(correlated-e" "(list-ref" @@ -32523,8 +32540,8 @@ static const char *startup_source = " '(prop:procedure" " prop:equal+hash" " prop:custom-write))))" -"(if or-part_226" -" or-part_226" +"(if or-part_225" +" or-part_225" "(known-property?" "(lookup-defn" " defns_4" @@ -32564,23 +32581,23 @@ static const char *startup_source = " #t" " lst_250)))" "(=" -"(sub1(correlated-length v_164))" +"(sub1(correlated-length v_163))" "(set-count" -"(let-values(((lst_252)(cdr(correlated->list v_164))))" +"(let-values(((lst_252)(cdr(correlated->list v_163))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_252)))" "((letrec-values(((for-loop_221)" -"(lambda(table_181 lst_253)" +"(lambda(table_180 lst_253)" "(begin" " 'for-loop" "(if(pair? lst_253)" "(let-values(((prop+val_2)(unsafe-car lst_253))" "((rest_136)(unsafe-cdr lst_253)))" -"(let-values(((table_182)" -"(let-values(((table_183) table_181))" -"(let-values(((table_184)" +"(let-values(((table_181)" +"(let-values(((table_182) table_180))" +"(let-values(((table_183)" "(let-values()" "(let-values(((key_67 val_57)" "(let-values()" @@ -32593,12 +32610,12 @@ static const char *startup_source = " 1)))" " #t))))" "(hash-set" -" table_183" +" table_182" " key_67" " val_57)))))" -"(values table_184)))))" -"(if(not #f)(for-loop_221 table_182 rest_136) table_182)))" -" table_181)))))" +"(values table_183)))))" +"(if(not #f)(for-loop_221 table_181 rest_136) table_181)))" +" table_180)))))" " for-loop_221)" " '#hash()" " lst_252)))))" @@ -32617,21 +32634,21 @@ static const char *startup_source = "(field-count-expr-to-field-count init-field-count-expr_0)" "(field-count-expr-to-field-count auto-field-count-expr_0))))" "(let-values(((immutables-expr_0)" -"(let-values(((or-part_227)(if(>(length l_58) 9)(list-ref l_58 9) #f)))" -"(if or-part_227 or-part_227 'null))))" +"(let-values(((or-part_226)(if(>(length l_58) 9)(list-ref l_58 9) #f)))" +"(if or-part_226 or-part_226 '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_254)(cdr l_58))" "((lst_255)" "(list" -"(lambda(v_165)(quoted? symbol? v_165))" -"(lambda(v_166)(super-ok? v_166 defns_5))" +"(lambda(v_164)(quoted? symbol? v_164))" +"(lambda(v_165)(super-ok? v_165 defns_5))" +"(lambda(v_166)(field-count-expr-to-field-count v_166))" "(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_168)" "(not" -"(let-values(((v98_0) v_169)" +"(let-values(((v98_0) v_168)" "((temp99_0) 1)" "((ready-variable?100_0) ready-variable?_1)" "((defns101_0) defns_5))" @@ -32644,11 +32661,11 @@ static const char *startup_source = " #t" " 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)))))" +"(lambda(v_169)" +"(known-good-struct-properties? v_169 immutables-expr_0 super-expr_0 defns_5))" +"(lambda(v_170)(inspector-or-false? v_170))" +"(lambda(v_171)(procedure-spec? v_171 num-fields_0))" +"(lambda(v_172)(immutables-ok? v_172 init-field-count-expr_0)))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -32689,9 +32706,9 @@ static const char *startup_source = "(super-ok?)" "(lambda(e_68 defns_6)" "(begin" -"(let-values(((or-part_228)(quoted? false? e_68)))" -"(if or-part_228" -" or-part_228" +"(let-values(((or-part_227)(quoted? false? e_68)))" +"(if or-part_227" +" or-part_227" "(let-values(((o_0)(lookup-defn defns_6(correlated-e e_68))))" "(if o_0(if(known-struct-op? o_0)(eq? 'struct-type(known-struct-op-type o_0)) #f) #f)))))))" "(define-values" @@ -32702,49 +32719,49 @@ static const char *startup_source = "(+(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_174)" +"(lambda(val?_0 v_173)" "(begin" -"(let-values(((or-part_229)" -"(if(pair?(correlated-e v_174))" -"(if(eq?(correlated-e(car(correlated-e v_174))) 'quote)" -"(val?_0(correlated-e(correlated-cadr v_174)))" +"(let-values(((or-part_228)" +"(if(pair?(correlated-e v_173))" +"(if(eq?(correlated-e(car(correlated-e v_173))) 'quote)" +"(val?_0(correlated-e(correlated-cadr v_173)))" " #f)" " #f)))" -"(if or-part_229 or-part_229(val?_0(correlated-e v_174)))))))" +"(if or-part_228 or-part_228(val?_0(correlated-e v_173)))))))" "(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))))" +"(lambda(v_174)" +"(begin(if(pair?(correlated-e v_174))(correlated-e(correlated-cadr v_174))(correlated-e v_174)))))" +"(define-values(false?)(lambda(v_175)(begin(eq?(correlated-e v_175) #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))))" +"(lambda(v_176)(begin(if(quoted? exact-nonnegative-integer? v_176)(quoted-value v_176) #f))))" "(define-values" "(inspector-or-false?)" -"(lambda(v_178)" +"(lambda(v_177)" "(begin" -"(let-values(((or-part_230)(quoted? false? v_178)))" +"(let-values(((or-part_229)(quoted? false? v_177)))" +"(if or-part_229" +" or-part_229" +"(let-values(((or-part_230)(if(quoted? symbol? v_177)(eq? 'prefab(quoted-value v_177)) #f)))" "(if or-part_230" " or-part_230" -"(let-values(((or-part_231)(if(quoted? symbol? v_178)(eq? 'prefab(quoted-value v_178)) #f)))" -"(if or-part_231" -" or-part_231" -"(if(= 1(correlated-length v_178))" -"(eq? 'current-inspector(correlated-e(car(correlated-e v_178))))" +"(if(= 1(correlated-length v_177))" +"(eq? 'current-inspector(correlated-e(car(correlated-e v_177))))" " #f))))))))" "(define-values" "(known-good-struct-properties?)" -"(lambda(v_179 immutables-expr_1 super-expr_1 defns_7)" +"(lambda(v_178 immutables-expr_1 super-expr_1 defns_7)" "(begin" -"(let-values(((or-part_232)(quoted? null? v_179)))" +"(let-values(((or-part_231)(quoted? null? v_178)))" +"(if or-part_231" +" or-part_231" +"(let-values(((or-part_232)(eq? 'null(correlated-e v_178))))" "(if or-part_232" " or-part_232" -"(let-values(((or-part_233)(eq? 'null(correlated-e v_179))))" -"(if or-part_233" -" or-part_233" -"(if(pair?(correlated-e v_179))" -"(if(eq?(correlated-e(car(correlated-e v_179))) 'list)" -"(if(let-values(((lst_257)(cdr(correlated->list v_179))))" +"(if(pair?(correlated-e v_178))" +"(if(eq?(correlated-e(car(correlated-e v_178))) 'list)" +"(if(let-values(((lst_257)(cdr(correlated->list v_178))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -32791,23 +32808,23 @@ static const char *startup_source = " #t" " lst_257)))" "(=" -"(sub1(correlated-length v_179))" +"(sub1(correlated-length v_178))" "(set-count" -"(let-values(((lst_259)(cdr(correlated->list v_179))))" +"(let-values(((lst_259)(cdr(correlated->list v_178))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_259)))" "((letrec-values(((for-loop_224)" -"(lambda(table_185 lst_260)" +"(lambda(table_184 lst_260)" "(begin" " 'for-loop" "(if(pair? lst_260)" "(let-values(((prop+val_5)(unsafe-car lst_260))" "((rest_139)(unsafe-cdr lst_260)))" -"(let-values(((table_186)" -"(let-values(((table_187) table_185))" -"(let-values(((table_188)" +"(let-values(((table_185)" +"(let-values(((table_186) table_184))" +"(let-values(((table_187)" "(let-values()" "(let-values(((key_68 val_58)" "(let-values()" @@ -32820,12 +32837,12 @@ static const char *startup_source = " 1)))" " #t))))" "(hash-set" -" table_187" +" table_186" " key_68" " val_58)))))" -"(values table_188)))))" -"(if(not #f)(for-loop_224 table_186 rest_139) table_186)))" -" table_185)))))" +"(values table_187)))))" +"(if(not #f)(for-loop_224 table_185 rest_139) table_185)))" +" table_184)))))" " for-loop_224)" " '#hash()" " lst_259)))))" @@ -32840,12 +32857,12 @@ static const char *startup_source = "(let-values(((tmp_28) prop-name_0))" "(if(equal? tmp_28 'prop:evt)" "(let-values()" -"(let-values(((or-part_234)(is-lambda? val-expr_0 1 defns_8)))" -"(if or-part_234 or-part_234(immutable-field? val-expr_0 immutables-expr_2))))" +"(let-values(((or-part_233)(is-lambda? val-expr_0 1 defns_8)))" +"(if or-part_233 or-part_233(immutable-field? val-expr_0 immutables-expr_2))))" "(if(equal? tmp_28 'prop:procedure)" "(let-values()" -"(let-values(((or-part_235)(is-lambda? val-expr_0 1 defns_8)))" -"(if or-part_235 or-part_235(immutable-field? val-expr_0 immutables-expr_2))))" +"(let-values(((or-part_234)(is-lambda? val-expr_0 1 defns_8)))" +"(if or-part_234 or-part_234(immutable-field? val-expr_0 immutables-expr_2))))" "(if(equal? tmp_28 'prop:custom-write)" "(let-values()(is-lambda? val-expr_0 3 defns_8))" "(if(equal? tmp_28 'prop:equal+hash)" @@ -32881,26 +32898,26 @@ static const char *startup_source = "(lambda(expr_9 arity_0 defns_9)" "(begin" "(let-values(((lookup_0)(lookup-defn defns_9 expr_9)))" -"(let-values(((or-part_236)" +"(let-values(((or-part_235)" "(if lookup_0" "(if(known-function? lookup_0)" -"(let-values(((or-part_237)(not arity_0)))" -"(if or-part_237 or-part_237(arity-includes?(known-function-arity lookup_0) arity_0)))" +"(let-values(((or-part_236)(not arity_0)))" +"(if or-part_236 or-part_236(arity-includes?(known-function-arity lookup_0) arity_0)))" " #f)" " #f)))" -"(if or-part_236" -" or-part_236" -"(let-values(((or-part_238)" +"(if or-part_235" +" or-part_235" +"(let-values(((or-part_237)" "(if(pair?(correlated-e expr_9))" "(if(eq? 'case-lambda(car(correlated-e expr_9)))(not arity_0) #f)" " #f)))" -"(if or-part_238" -" or-part_238" +"(if or-part_237" +" or-part_237" "(if(pair?(correlated-e expr_9))" "(if(eq? 'lambda(car(correlated-e expr_9)))" -"(let-values(((or-part_239)(not arity_0)))" -"(if or-part_239" -" or-part_239" +"(let-values(((or-part_238)(not arity_0)))" +"(if or-part_238" +" or-part_238" "((letrec-values(((loop_91)" "(lambda(args_4 arity_1)" "(begin" @@ -32921,9 +32938,9 @@ static const char *startup_source = "(arity-includes?)" "(lambda(a_40 n_25)" "(begin" -"(let-values(((or-part_240)(equal? a_40 n_25)))" -"(if or-part_240" -" or-part_240" +"(let-values(((or-part_239)(equal? a_40 n_25)))" +"(if or-part_239" +" or-part_239" "(if(list? a_40)" "(let-values(((lst_67) a_40))" "(begin" @@ -32962,28 +32979,28 @@ static const char *startup_source = "(let-values(((tmp_29)(if(pair?(correlated-e e_70))(correlated-e(car(correlated-e e_70))) #f)))" "(if(equal? tmp_29 'quote)" "(let-values()" -"(let-values(((v_180)(correlated-cadr e_70)))" -"(let-values(((or-part_241)" -"(if(correlated-length v_180)" -"(let-values(((l_61)(map2 correlated-e(correlated->list v_180))))" +"(let-values(((v_179)(correlated-cadr e_70)))" +"(let-values(((or-part_240)" +"(if(correlated-length v_179)" +"(let-values(((l_61)(map2 correlated-e(correlated->list v_179))))" "(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_241 or-part_241 fail-v_0))))" +"(if or-part_240 or-part_240 fail-v_0))))" "(let-values() fail-v_0))))))" "(define-values" "(procedure-spec?)" "(lambda(e_71 field-count_1)" "(begin" -"(let-values(((or-part_242)(quoted? false? e_71)))" -"(if or-part_242" -" or-part_242" -"(let-values(((or-part_243)" +"(let-values(((or-part_241)(quoted? false? e_71)))" +"(if or-part_241" +" or-part_241" +"(let-values(((or-part_242)" "(if(quoted? exact-nonnegative-integer? e_71)" "(if field-count_1(<(quoted-value e_71) field-count_1) #f)" " #f)))" -"(if or-part_243 or-part_243(is-lambda? e_71 #f '#hasheq()))))))))" +"(if or-part_242 or-part_242(is-lambda? e_71 #f '#hasheq()))))))))" "(define-values" "(immutables-ok?)" "(lambda(e_72 init-field-count-expr_1)" @@ -33021,16 +33038,16 @@ static const char *startup_source = "(begin" "(let-values(((l_63)(correlated->list e_73)))" "(let-values(((a_42)" -"(if(let-values(((or-part_125)(=(length l_63) 3)))" -"(if or-part_125 or-part_125(=(length l_63) 4)))" -"(let-values(((or-part_126)(hash-ref locals_17(correlated-e(list-ref l_63 1)) #f)))" -"(if or-part_126 or-part_126(lookup-defn defns_10(correlated-e(list-ref l_63 1)))))" +"(if(let-values(((or-part_126)(=(length l_63) 3)))" +"(if or-part_126 or-part_126(=(length l_63) 4)))" +"(let-values(((or-part_127)(hash-ref locals_17(correlated-e(list-ref l_63 1)) #f)))" +"(if or-part_127 or-part_127(lookup-defn defns_10(correlated-e(list-ref l_63 1)))))" " #f)))" "(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_244)(=(length l_63) 3)))" -"(if or-part_244 or-part_244(quoted? symbol?(list-ref l_63 3))))" +"(let-values(((or-part_243)(=(length l_63) 3)))" +"(if or-part_243 or-part_243(quoted? symbol?(list-ref l_63 3))))" " #f)" " #f)" " #f))))))" @@ -33109,10 +33126,10 @@ static const char *startup_source = "(let-values()(set! purely-functional?_0 #f))" "(void))))" "((temp25_3)" -"(lambda(s_378 cctx_14)" +"(lambda(s_382 cctx_14)" "(begin" "(set! purely-functional?_0 #f)" -"(compile-top-level-require s_378 cctx_14))))" +"(compile-top-level-require s_382 cctx_14))))" "((temp26_1)(not single-expression?_0)))" "(compile-forms31.1" " temp20_0" @@ -33143,12 +33160,12 @@ static const char *startup_source = " cctx17_0" " mpis18_0))))" "(let-values(((add-metadata_0)" -"(lambda(ht_118)" +"(lambda(ht_117)" "(begin" " 'add-metadata" -"(let-values(((ht_78)(hash-set ht_118 'original-phase phase_83)))" -"(let-values(((ht_119)(hash-set ht_78 'max-phase max-phase_1)))" -" ht_119))))))" +"(let-values(((ht_77)(hash-set ht_117 'original-phase phase_83)))" +"(let-values(((ht_118)(hash-set ht_77 'max-phase max-phase_1)))" +" ht_118))))))" "(let-values(((bundle_0)" "((if to-source?_2 values 1/hash->linklet-bundle)" "(add-metadata_0" @@ -33165,11 +33182,11 @@ static const char *startup_source = "(let-values(((link-linklet_0)" "((if to-source?_2" " values" -"(lambda(s_160)" +"(lambda(s_162)" "(let-values()" "(let-values(((linklet_2 new-keys_0)" "(1/compile-linklet" -" s_160" +" s_162" " #f" "(vector" " deserialize-instance" @@ -33263,8 +33280,8 @@ static const char *startup_source = "(let-values(((or-part_160)(hash-ref defined-syms_7 phase_85 #f)))" "(if or-part_160" " or-part_160" -"(let-values(((ht_120)(make-hasheq)))" -"(begin(hash-set! defined-syms_7 phase_85 ht_120) ht_120))))))" +"(let-values(((ht_119)(make-hasheq)))" +"(begin(hash-set! defined-syms_7 phase_85 ht_119) ht_119))))))" "(reverse$1" "(let-values(((lst_80) ids_15))" "(begin" @@ -33311,7 +33328,7 @@ static const char *startup_source = "(lambda(pos_97)" "(begin" " 'loop" -"(let-values(((s_176)" +"(let-values(((s_178)" "(string->unreadable-symbol" "(format" " \"~a.~a\"" @@ -33320,7 +33337,7 @@ static const char *startup_source = "(if(defined-as-other?" "(hash-ref" " defined-syms-at-phase_0" -" s_176" +" s_178" " #f)" " id_53" " phase_85" @@ -33328,7 +33345,7 @@ static const char *startup_source = "(loop_92" "(add1" " pos_97))" -" s_176))))))" +" s_178))))))" " loop_92)" " 1))))" "(let-values((()" @@ -33452,9 +33469,9 @@ static const char *startup_source = "(begin" "(if prev-id_0" "(if(not(bound-identifier=?$1 prev-id_0 id_55 phase_75))" -"(let-values(((or-part_245)(not top-level-bind-scope_5)))" -"(if or-part_245" -" or-part_245" +"(let-values(((or-part_244)(not top-level-bind-scope_5)))" +"(if or-part_244" +" or-part_244" "(not" "(bound-identifier=?$1" "(remove-scope prev-id_0 top-level-bind-scope_5)" @@ -33493,11 +33510,11 @@ static const char *startup_source = "(lambda(defined-syms_8 phase_87 sym_55 id_56)" "(begin" "(let-values(((defined-syms-at-phase_1)" -"(let-values(((or-part_94)(hash-ref defined-syms_8 phase_87 #f)))" -"(if or-part_94" -" or-part_94" -"(let-values(((ht_121)(make-hasheq)))" -"(begin(hash-set! defined-syms_8 phase_87 ht_121) ht_121))))))" +"(let-values(((or-part_95)(hash-ref defined-syms_8 phase_87 #f)))" +"(if or-part_95" +" or-part_95" +"(let-values(((ht_120)(make-hasheq)))" +"(begin(hash-set! defined-syms_8 phase_87 ht_120) ht_120))))))" "(hash-set! defined-syms-at-phase_1 sym_55 id_56)))))" "(define-values" "(make-create-root-expand-context-from-module)" @@ -33635,18 +33652,18 @@ static const char *startup_source = "(let-values()" "(let-values(((defined-syms_9)(root-expand-context-defined-syms root-ctx_4)))" "(begin" -"(let-values(((ht_122) evaled-ld-h_0))" +"(let-values(((ht_121) evaled-ld-h_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_122)))" +"(let-values()(check-in-hash ht_121)))" "((letrec-values(((for-loop_106)" -"(lambda(i_148)" +"(lambda(i_149)" "(begin" " 'for-loop" -"(if i_148" +"(if i_149" "(let-values(((phase_88 linklet_3)" -"(hash-iterate-key+value ht_122 i_148)))" +"(hash-iterate-key+value ht_121 i_149)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -33746,11 +33763,11 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_106(hash-iterate-next ht_122 i_148))" +"(for-loop_106(hash-iterate-next ht_121 i_149))" "(values))))" "(values))))))" " for-loop_106)" -"(hash-iterate-first ht_122))))" +"(hash-iterate-first ht_121))))" "(void)" " root-ctx_4))))))))))" "(define-values" @@ -33759,12 +33776,12 @@ 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_181) root-context_0))" -"(let-values(((the-struct_52) v_181))" -"(if(root-expand-context/outer? the-struct_52)" +"(let-values(((v_180) root-context_0))" +"(let-values(((the-struct_51) v_180))" +"(if(root-expand-context/outer? the-struct_51)" "(let-values(((inner16_0)" -"(let-values(((the-struct_53)(root-expand-context/outer-inner v_181)))" -"(if(root-expand-context/inner? the-struct_53)" +"(let-values(((the-struct_52)(root-expand-context/outer-inner v_180)))" +"(if(root-expand-context/inner? the-struct_52)" "(let-values(((self-mpi17_0) inside-mpi_0)" "((all-scopes-stx18_0)" "(let-values(((temp19_1)" @@ -33781,19 +33798,19 @@ static const char *startup_source = " #f))))" "(root-expand-context/inner2.1" " self-mpi17_0" -"(root-expand-context/inner-module-scopes the-struct_53)" -"(root-expand-context/inner-top-level-bind-scope the-struct_53)" +"(root-expand-context/inner-module-scopes the-struct_52)" +"(root-expand-context/inner-top-level-bind-scope the-struct_52)" " all-scopes-stx18_0" -"(root-expand-context/inner-defined-syms the-struct_53)" -"(root-expand-context/inner-counter the-struct_53)" -"(root-expand-context/inner-lift-key the-struct_53)))" -" (raise-argument-error 'struct-copy \"root-expand-context/inner?\" the-struct_53)))))" +"(root-expand-context/inner-defined-syms the-struct_52)" +"(root-expand-context/inner-counter the-struct_52)" +"(root-expand-context/inner-lift-key the-struct_52)))" +" (raise-argument-error 'struct-copy \"root-expand-context/inner?\" the-struct_52)))))" "(root-expand-context/outer1.1" " inner16_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)))" -" (raise-argument-error 'struct-copy \"root-expand-context/outer?\" the-struct_52)))))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_51)" +"(root-expand-context/outer-use-site-scopes the-struct_51)" +"(root-expand-context/outer-frame-id the-struct_51)))" +" (raise-argument-error 'struct-copy \"root-expand-context/outer?\" the-struct_51)))))))))" "(define-values" "(check-require-access9.1)" "(lambda(skip-imports1_0" @@ -33818,8 +33835,8 @@ static const char *startup_source = "((lst_267) import-module-uses_0)" "((lst_89) import-module-instances_0)" "((lst_164)" -"(let-values(((or-part_83) extra-inspectorsss_4))" -"(if or-part_83 or-part_83 import-module-uses_0))))" +"(let-values(((or-part_84) extra-inspectorsss_4))" +"(if or-part_84 or-part_84 import-module-uses_0))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -33906,12 +33923,12 @@ static const char *startup_source = " '#hasheq())" " import-sym_0" " 'unexported)))" -"(if(let-values(((or-part_162)" +"(if(let-values(((or-part_21)" "(eq?" " a_43" " 'unexported)))" -"(if or-part_162" -" or-part_162" +"(if or-part_21" +" or-part_21" "(eq?" " a_43" " 'protected)))" @@ -33920,20 +33937,20 @@ static const char *startup_source = "(namespace-inspector" "(module-instance-namespace" " mi_16))))" -"(if(let-values(((or-part_246)" +"(if(let-values(((or-part_245)" "(inspector-superior?" " insp_10" " guard-insp_3)))" -"(if or-part_246" -" or-part_246" -"(let-values(((or-part_247)" +"(if or-part_245" +" or-part_245" +"(let-values(((or-part_246)" "(if extra-inspector_0" "(inspector-superior?" " extra-inspector_0" " guard-insp_3)" " #f)))" -"(if or-part_247" -" or-part_247" +"(if or-part_246" +" or-part_246" "(if extra-inspectorsss_4" "(if extra-inspectorss_14" "(extra-inspectors-allow?" @@ -33991,15 +34008,15 @@ static const char *startup_source = "(let-values() #t)" "(let-values()" "(let-values(((access_3)" -"(let-values(((or-part_248)(module-access m_16)))" -"(if or-part_248 or-part_248(module-compute-access! m_16)))))" +"(let-values(((or-part_247)(module-access m_16)))" +"(if or-part_247 or-part_247(module-compute-access! m_16)))))" "(let-values(((a_44)(hash-ref(hash-ref access_3 phase_89 '#hasheq()) sym_57 'unexported)))" -"(if(let-values(((or-part_249)(eq? a_44 'unexported)))" -"(if or-part_249 or-part_249(eq? a_44 'protected)))" +"(if(let-values(((or-part_248)(eq? a_44 'unexported)))" +"(if or-part_248 or-part_248(eq? a_44 'protected)))" "(let-values()" "(let-values(((guard-insp_4)(namespace-inspector(module-instance-namespace mi_17))))" -"(let-values(((or-part_250)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))" -"(if or-part_250 or-part_250(inspector-superior?(current-code-inspector) guard-insp_4)))))" +"(let-values(((or-part_249)(if insp_11(inspector-superior? insp_11 guard-insp_4) #f)))" +"(if or-part_249 or-part_249(inspector-superior?(current-code-inspector) guard-insp_4)))))" "(let-values() #t))))))))))" "(define-values(module-cache)(make-weak-hasheq))" "(define-values" @@ -34036,11 +34053,11 @@ static const char *startup_source = "(let-values(((syntax-literals-data-instance_0)" "(if(compiled-in-memory? c_18)" "(make-syntax-literal-data-instance-from-compiled-in-memory c_18)" -"(let-values(((l_11)(hash-ref h_1 'stx-data #f)))" -"(if l_11" +"(let-values(((l_64)(hash-ref h_1 'stx-data #f)))" +"(if l_64" "(let-values()" "(1/instantiate-linklet" -"(1/eval-linklet l_11)" +"(1/eval-linklet l_64)" "(list deserialize-instance data-instance_0)))" "(if(eq?(hash-ref h_1 'module->namespace #f) 'empty)" "(let-values() empty-syntax-literals-instance/empty-namespace)" @@ -34069,14 +34086,14 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_37 end_26 inc_20)))" "((letrec-values(((for-loop_232)" -"(lambda(table_189 pos_98)" +"(lambda(table_188 pos_98)" "(begin" " 'for-loop" "(if(< pos_98 end_26)" "(let-values(((phase-level_17)" " pos_98))" -"(let-values(((table_190)" -"(let-values(((v_182)" +"(let-values(((table_189)" +"(let-values(((v_181)" "(hash-ref" " h_1" " phase-level_17" @@ -34084,17 +34101,17 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_50)" -"(lambda(table_191)" +"(lambda(table_190)" "(begin" " 'for-loop" "(let-values()" +"(let-values(((table_191)" "(let-values(((table_192)" +" table_190))" +"(if v_181" "(let-values(((table_193)" -" table_191))" -"(if v_182" +" table_192))" "(let-values(((table_194)" -" table_193))" -"(let-values(((table_195)" "(let-values()" "(let-values(((key_71" " val_59)" @@ -34102,29 +34119,29 @@ static const char *startup_source = "(values" " phase-level_17" "(1/eval-linklet" -" v_182)))))" +" v_181)))))" "(hash-set" -" table_194" +" table_193" " key_71" " val_59)))))" "(values" -" table_195)))" -" table_193))))" -" table_192))))))" +" table_194)))" +" table_192))))" +" table_191))))))" " for-loop_50)" -" table_189)))))" +" table_188)))))" "(if(not #f)" "(for-loop_232" -" table_190" +" table_189" "(+ pos_98 inc_20))" -" table_190)))" -" table_189)))))" +" table_189)))" +" table_188)))))" " for-loop_232)" " '#hash()" " start_37)))))" "(let-values(((syntax-literals-linklet_0)" -"(let-values(((l_15)(hash-ref h_1 'stx #f)))" -"(if l_15(1/eval-linklet l_15) #f))))" +"(let-values(((l_65)(hash-ref h_1 'stx #f)))" +"(if l_65(1/eval-linklet l_65) #f))))" "(let-values(((extra-inspector_6)" "(if(compiled-in-memory? c_18)" "(compiled-in-memory-compile-time-inspector c_18)" @@ -34843,18 +34860,18 @@ static const char *startup_source = "(get-all-variables)" "(lambda(phases-h_1)" "(begin" -"(let-values(((ht_123) phases-h_1))" +"(let-values(((ht_122) phases-h_1))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_123)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_122)))" "((letrec-values(((for-loop_235)" -"(lambda(table_196 i_149)" +"(lambda(table_195 i_150)" "(begin" " 'for-loop" -"(if i_149" -"(let-values(((phase_90 linklet_5)(hash-iterate-key+value ht_123 i_149)))" -"(let-values(((table_197)" -"(let-values(((table_198) table_196))" -"(let-values(((table_148)" +"(if i_150" +"(let-values(((phase_90 linklet_5)(hash-iterate-key+value ht_122 i_150)))" +"(let-values(((table_196)" +"(let-values(((table_197) table_195))" +"(let-values(((table_147)" "(let-values()" "(let-values(((key_72 val_62)" "(let-values()" @@ -34862,15 +34879,15 @@ static const char *startup_source = " phase_90" "(1/linklet-export-variables" " linklet_5)))))" -"(hash-set table_198 key_72 val_62)))))" -"(values table_148)))))" +"(hash-set table_197 key_72 val_62)))))" +"(values table_147)))))" "(if(not #f)" -"(for-loop_235 table_197(hash-iterate-next ht_123 i_149))" -" table_197)))" -" table_196)))))" +"(for-loop_235 table_196(hash-iterate-next ht_122 i_150))" +" table_196)))" +" table_195)))))" " for-loop_235)" " '#hash()" -"(hash-iterate-first ht_123)))))))" +"(hash-iterate-first ht_122)))))))" "(define-values" "(provides->api-provides)" "(lambda(provides_9 self_24)" @@ -34881,22 +34898,22 @@ static const char *startup_source = " 'extract" "(let-values(((result-l_0)" "(reverse$1" -"(let-values(((ht_124) provides_9))" +"(let-values(((ht_123) provides_9))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_124)))" +"(let-values()(check-in-hash ht_123)))" "((letrec-values(((for-loop_101)" -"(lambda(fold-var_59 i_150)" +"(lambda(fold-var_59 i_151)" "(begin" " 'for-loop" -"(if i_150" +"(if i_151" "(let-values(((phase_91 at-phase_11)" -"(hash-iterate-key+value ht_124 i_150)))" +"(hash-iterate-key+value ht_123 i_151)))" "(let-values(((fold-var_60)" -"(let-values(((l_64)" +"(let-values(((l_66)" "(reverse$1" -"(let-values(((ht_117)" +"(let-values(((ht_116)" " at-phase_11))" "(begin" "(if(variable-reference-from-unsafe?" @@ -34904,18 +34921,18 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_117)))" +" ht_116)))" "((letrec-values(((for-loop_236)" "(lambda(fold-var_222" -" i_151)" +" i_152)" "(begin" " 'for-loop" -"(if i_151" +"(if i_152" "(let-values(((sym_58" " b/p_1)" "(hash-iterate-key+value" -" ht_117" -" i_151)))" +" ht_116" +" i_152)))" "(let-values(((fold-var_223)" "(let-values(((fold-var_224)" " fold-var_222))" @@ -35016,14 +35033,14 @@ static const char *startup_source = "(for-loop_236" " fold-var_223" "(hash-iterate-next" -" ht_117" -" i_151))" +" ht_116" +" i_152))" " fold-var_223)))" " fold-var_222)))))" " for-loop_236)" " null" "(hash-iterate-first" -" ht_117)))))))" +" ht_116)))))))" "(begin" " #t" "((letrec-values(((for-loop_106)" @@ -35035,7 +35052,7 @@ static const char *startup_source = "(let-values(((fold-var_32)" " fold-var_69))" "(if(null?" -" l_64)" +" l_66)" " fold-var_32" "(let-values(((fold-var_33)" " fold-var_32))" @@ -35046,7 +35063,7 @@ static const char *startup_source = "(cons" " phase_91" "(let-values(((l4_0)" -" l_64)" +" l_66)" "((symbollinklet-directory" -"(let-values(((ht_125)(1/linklet-directory->hash c_34)))" +"(let-values(((ht_124)(1/linklet-directory->hash c_34)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_125)))" +"(let-values()(check-in-hash ht_124)))" "((letrec-values(((for-loop_239)" -"(lambda(table_199 i_152)" +"(lambda(table_198 i_153)" "(begin" " 'for-loop" -"(if i_152" -"(let-values(((key_73 val_63)(hash-iterate-key+value ht_125 i_152)))" +"(if i_153" +"(let-values(((key_73 val_63)(hash-iterate-key+value ht_124 i_153)))" +"(let-values(((table_199)" +"(let-values(((table_117) table_198))" "(let-values(((table_200)" -"(let-values(((table_118) table_199))" -"(let-values(((table_201)" "(let-values()" "(let-values(((key_74 val_64)" "(let-values()" @@ -35299,17 +35316,17 @@ static const char *startup_source = " val_63" " key_73))))))" "(hash-set" -" table_118" +" table_117" " key_74" " val_64)))))" -"(values table_201)))))" +"(values table_200)))))" "(if(not #f)" -"(for-loop_239 table_200(hash-iterate-next ht_125 i_152))" -" table_200)))" -" table_199)))))" +"(for-loop_239 table_199(hash-iterate-next ht_124 i_153))" +" table_199)))" +" table_198)))))" " for-loop_239)" " '#hasheq()" -"(hash-iterate-first ht_125))))))" +"(hash-iterate-first ht_124))))))" "(let-values()(update-one-name c_34 full-name_0))))))))))" "(define-values" "(update-one-name)" @@ -35333,20 +35350,20 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_174)))" "((letrec-values(((for-loop_240)" -"(lambda(ht_126 lst_273)" +"(lambda(ht_125 lst_273)" "(begin" " 'for-loop" "(if(pair? lst_273)" "(let-values(((submod_1)(unsafe-car lst_273))" "((rest_148)(unsafe-cdr lst_273)))" -"(let-values(((ht_127)" -"(let-values(((ht_128) ht_126))" -"(let-values(((ht_118)" +"(let-values(((ht_126)" +"(let-values(((ht_127) ht_125))" +"(let-values(((ht_117)" "(let-values()" "(let-values(((name_53)" "(module-compiled-immediate-name" " submod_1)))" -"(if(hash-ref ht_128 name_53 #f)" +"(if(hash-ref ht_127 name_53 #f)" "(let-values()" "(raise-arguments-error" " 'module-compiled-submodules" @@ -35355,13 +35372,13 @@ static const char *startup_source = " name_53))" "(let-values()" "(hash-set" -" ht_128" +" ht_127" " name_53" "(compiled->linklet-directory-or-bundle" " submod_1))))))))" -"(values ht_118)))))" -"(if(not #f)(for-loop_240 ht_127 rest_148) ht_127)))" -" ht_126)))))" +"(values ht_117)))))" +"(if(not #f)(for-loop_240 ht_126 rest_148) ht_126)))" +" ht_125)))))" " for-loop_240)" " '#hasheq()" " lst_174)))" @@ -35416,9 +35433,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_211)(symbol? name_54)))" -"(if or-part_211" -" or-part_211" +"(if(let-values(((or-part_210)(symbol? name_54)))" +"(if or-part_210" +" or-part_210" "(if(pair? name_54)(if(list? name_54)(andmap2 symbol? name_54) #f) #f)))" "(void)" "(let-values()" @@ -35430,7 +35447,7 @@ static const char *startup_source = "(let-values(((i-name_0 prefix_5)" "(if(symbol? name_54)" "(values name_54 null)" -"(let-values(((r_40)(reverse$1 name_54)))(values(car r_40)(reverse$1(cdr r_40)))))))" +"(let-values(((r_39)(reverse$1 name_54)))(values(car r_39)(reverse$1(cdr r_39)))))))" "(change-module-name c_37 i-name_0 prefix_5)))))))))" "(define-values" "(1/module-compiled-submodules)" @@ -35452,8 +35469,8 @@ static const char *startup_source = "(let-values()" "(if(1/linklet-directory? c_13)" "(let-values()" -"(let-values(((ht_129)(1/linklet-directory->hash c_13)))" -"(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_129 #f))))" +"(let-values(((ht_128)(1/linklet-directory->hash c_13)))" +"(let-values(((bh_0)(1/linklet-bundle->hash(hash-ref ht_128 #f))))" "(let-values(((names_1)(hash-ref bh_0(if non-star?_0 'pre 'post) null)))" "(reverse$1" "(let-values(((lst_86) names_1))" @@ -35474,7 +35491,7 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(hash-ref ht_129 name_55))" +"(hash-ref ht_128 name_55))" " fold-var_27))))" "(values fold-var_28)))))" "(if(not #f)" @@ -35640,14 +35657,14 @@ static const char *startup_source = "(void)" "(let-values()(check-range start_38 end_27 inc_21)))" "((letrec-values(((for-loop_190)" -"(lambda(table_64 pos_100)" +"(lambda(table_63 pos_100)" "(begin" " 'for-loop" "(if(< pos_100 end_27)" "(let-values(((phase-level_20) pos_100))" -"(let-values(((table_67)" -"(let-values(((table_202) table_64))" -"(let-values(((table_203)" +"(let-values(((table_66)" +"(let-values(((table_201) table_63))" +"(let-values(((table_202)" "(let-values()" "(let-values(((key_75 val_65)" "(let-values()" @@ -35663,12 +35680,12 @@ static const char *startup_source = " linklet_0)" " null))))))" "(hash-set" -" table_202" +" table_201" " key_75" " val_65)))))" -"(values table_203)))))" -"(if(not #f)(for-loop_190 table_67(+ pos_100 inc_21)) table_67)))" -" table_64)))))" +"(values table_202)))))" +"(if(not #f)(for-loop_190 table_66(+ pos_100 inc_21)) table_66)))" +" table_63)))))" " for-loop_190)" " '#hash()" " start_38)))))))))))))" @@ -35699,25 +35716,25 @@ static const char *startup_source = "(if(1/linklet-bundle? c_43)" "(let-values()(1/hash->linklet-directory(hasheq #f c_43)))" "(let-values()" -"(let-values(((the-struct_54) c_43))" -"(if(compiled-in-memory? the-struct_54)" +"(let-values(((the-struct_53) c_43))" +"(if(compiled-in-memory? the-struct_53)" "(let-values(((linklet-directory16_0)" "(normalize-to-linklet-directory(compiled-in-memory-linklet-directory c_43))))" "(compiled-in-memory1.1" " linklet-directory16_0" -"(compiled-in-memory-original-self the-struct_54)" -"(compiled-in-memory-requires the-struct_54)" -"(compiled-in-memory-provides the-struct_54)" -"(compiled-in-memory-phase-to-link-module-uses the-struct_54)" -"(compiled-in-memory-compile-time-inspector the-struct_54)" -"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_54)" -"(compiled-in-memory-mpis the-struct_54)" -"(compiled-in-memory-syntax-literals the-struct_54)" -"(compiled-in-memory-pre-compiled-in-memorys the-struct_54)" -"(compiled-in-memory-post-compiled-in-memorys the-struct_54)" -"(compiled-in-memory-namespace-scopes the-struct_54)" -"(compiled-in-memory-purely-functional? the-struct_54)))" -" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_54)))))))))" +"(compiled-in-memory-original-self the-struct_53)" +"(compiled-in-memory-requires the-struct_53)" +"(compiled-in-memory-provides the-struct_53)" +"(compiled-in-memory-phase-to-link-module-uses the-struct_53)" +"(compiled-in-memory-compile-time-inspector the-struct_53)" +"(compiled-in-memory-phase-to-link-extra-inspectorsss the-struct_53)" +"(compiled-in-memory-mpis the-struct_53)" +"(compiled-in-memory-syntax-literals the-struct_53)" +"(compiled-in-memory-pre-compiled-in-memorys the-struct_53)" +"(compiled-in-memory-post-compiled-in-memorys the-struct_53)" +"(compiled-in-memory-namespace-scopes the-struct_53)" +"(compiled-in-memory-purely-functional? the-struct_53)))" +" (raise-argument-error 'struct-copy \"compiled-in-memory?\" the-struct_53)))))))))" "(define-values" "(fixup-submodule-names)" "(lambda(c_44)(begin(1/module-compiled-name c_44(1/module-compiled-name c_44)))))" @@ -35770,20 +35787,20 @@ static const char *startup_source = "(begin" " 'get-submodules" "(reverse$1" -"(let-values(((ht_122) compiled-submodules_0))" +"(let-values(((ht_121) compiled-submodules_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_122)))" +"(let-values()(check-in-hash ht_121)))" "((letrec-values(((for-loop_106)" -"(lambda(fold-var_69 i_153)" +"(lambda(fold-var_69 i_154)" "(begin" " 'for-loop" -"(if i_153" +"(if i_154" "(let-values(((name_57 star?+compiled_0)" "(hash-iterate-key+value" -" ht_122" -" i_153)))" +" ht_121" +" i_154)))" "(let-values(((fold-var_34)" "(let-values(((fold-var_159)" " fold-var_69))" @@ -35816,12 +35833,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_106" " fold-var_34" -"(hash-iterate-next ht_122 i_153))" +"(hash-iterate-next ht_121 i_154))" " fold-var_34)))" " fold-var_69)))))" " for-loop_106)" " null" -"(hash-iterate-first ht_122)))))))))" +"(hash-iterate-first ht_121)))))))))" "(let-values(((pre-submodules_0)(get-submodules_0 #f)))" "(let-values(((post-submodules_0)(get-submodules_0 #t)))" "(let-values(((c1_27)(parsed-module-compiled-module p_37)))" @@ -35901,8 +35918,8 @@ static const char *startup_source = "(let-values(((empty-result-for-module->namespace?_0) #f))" "(let-values(((mpis_19)(make-module-path-index-table)))" "(let-values(((body-cctx_0)" -"(let-values(((the-struct_55) cctx_17))" -"(if(compile-context? the-struct_55)" +"(let-values(((the-struct_54) cctx_17))" +"(if(compile-context? the-struct_54)" "(let-values(((phase47_1) 0)" "((self48_0) self_25)" "((module-self49_0) self_25)" @@ -35910,17 +35927,17 @@ static const char *startup_source = " full-module-name_2)" "((lazy-syntax-literals?51_0) #t))" "(compile-context1.1" -"(compile-context-namespace the-struct_55)" +"(compile-context-namespace the-struct_54)" " phase47_1" " self48_0" " module-self49_0" " full-module-name50_0" " lazy-syntax-literals?51_0" -"(compile-context-header the-struct_55)))" +"(compile-context-header the-struct_54)))" "(raise-argument-error" " 'struct-copy" " \"compile-context?\"" -" the-struct_55)))))" +" the-struct_54)))))" "(let-values(((cross-phase-persistent?_2) #f))" "(let-values(((side-effects_0)(make-hasheqv)))" "(let-values(((check-side-effects!_0)" @@ -36005,39 +36022,39 @@ static const char *startup_source = "(let-values(((ok?_25" " _69_0" " kw70_0)" -"(let-values(((s_57)" +"(let-values(((s_383)" "(parsed-s" " body_4)))" "(let-values(((orig-s_29)" -" s_57))" +" s_383))" "(let-values(((_69_1" " kw70_1)" -"(let-values(((s_379)" +"(let-values(((s_384)" "(if(syntax?$1" -" s_57)" +" s_383)" "(syntax-e$1" -" s_57)" -" s_57)))" +" s_383)" +" s_383)))" "(if(pair?" -" s_379)" +" s_384)" "(let-values(((_71_0)" -"(let-values(((s_380)" +"(let-values(((s_58)" "(car" -" s_379)))" -" s_380))" +" s_384)))" +" s_58))" "((kw72_0)" -"(let-values(((s_381)" +"(let-values(((s_385)" "(cdr" -" s_379)))" -"(let-values(((s_382)" +" s_384)))" +"(let-values(((s_386)" "(if(syntax?$1" -" s_381)" +" s_385)" "(syntax-e$1" -" s_381)" -" s_381)))" +" s_385)" +" s_385)))" "(let-values(((flat-s_18)" "(to-syntax-list.1" -" s_382)))" +" s_386)))" "(if(not" " flat-s_18)" "(let-values()" @@ -36122,16 +36139,16 @@ static const char *startup_source = "(let-values() #f))))" "((temp66_1)" "(lambda(mod-name_17 phase_93)" -"(let-values(((ht_130)" +"(let-values(((ht_129)" "(if modules-being-compiled_1" "(hash-ref" " modules-being-compiled_1" " mod-name_17" " #f)" " #f)))" -"(if ht_130" +"(if ht_129" "(hash-ref" -" ht_130" +" ht_129" " phase_93" " #f)" " #f))))" @@ -36173,29 +36190,29 @@ static const char *startup_source = "(hash-set!" " modules-being-compiled_1" "(1/module-path-index-resolve self_25)" -"(let-values(((ht_131)" +"(let-values(((ht_130)" " body-linklets_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_131)))" +"(check-in-hash ht_130)))" "((letrec-values(((for-loop_23)" -"(lambda(table_204" -" i_154)" +"(lambda(table_203" +" i_155)" "(begin" " 'for-loop" -"(if i_154" +"(if i_155" "(let-values(((phase_94" " linklet_6)" "(hash-iterate-key+value" -" ht_131" -" i_154)))" +" ht_130" +" i_155)))" +"(let-values(((table_204)" "(let-values(((table_205)" +" table_203))" "(let-values(((table_206)" -" table_204))" -"(let-values(((table_207)" "(let-values()" "(let-values(((key_76" " val_66)" @@ -36218,32 +36235,34 @@ static const char *startup_source = " #f)" " #f))))))" "(hash-set" -" table_206" +" table_205" " key_76" " val_66)))))" "(values" -" table_207)))))" +" table_206)))))" "(if(not" " #f)" "(for-loop_23" -" table_205" +" table_204" "(hash-iterate-next" -" ht_131" -" i_154))" -" table_205)))" -" table_204)))))" +" ht_130" +" i_155))" +" table_204)))" +" table_203)))))" " for-loop_23)" " '#hasheq()" -"(hash-iterate-first ht_131))))))" +"(hash-iterate-first ht_130))))))" "(void))" "(values))))" "(let-values(((declaration-linklet_0)" "(if serializable?_3" "((if to-source?_4" " values" -"(lambda(s_62)" +"(lambda(s_387)" "(let-values()" -"(1/compile-linklet s_62 'decl))))" +"(1/compile-linklet" +" s_387" +" 'decl))))" "(list" " 'linklet" "(list" @@ -36294,12 +36313,12 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_4" " values" -"(lambda(s_313)" +"(lambda(s_317)" "(let-values()" "(let-values(((linklet_7" " new-keys_1)" "(1/compile-linklet" -" s_313" +" s_317" " 'syntax-literals" "(vector" " deserialize-instance" @@ -36364,10 +36383,10 @@ static const char *startup_source = " syntax-literals_4))" "((if to-source?_4" " values" -"(lambda(s_383)" +"(lambda(s_388)" "(let-values()" "(1/compile-linklet" -" s_383" +" s_388" " 'syntax-literals-data))))" "(list*" " 'linklet" @@ -36396,10 +36415,10 @@ static const char *startup_source = "(if serializable?_3" "((if to-source?_4" " values" -"(lambda(s_200)" +"(lambda(s_204)" "(let-values()" "(1/compile-linklet" -" s_200" +" s_204" " 'data))))" "(list" " 'linklet" @@ -36425,10 +36444,10 @@ static const char *startup_source = "(hash-set" " bundle_2" " 'decl" -"(let-values(((or-part_251)" +"(let-values(((or-part_250)" " declaration-linklet_0))" -"(if or-part_251" -" or-part_251" +"(if or-part_250" +" or-part_250" " 'in-memory)))))" "(let-values(((bundle_4)" "(if data-linklet_0" @@ -36554,7 +36573,7 @@ static const char *startup_source = "(check-list" " lst_206)))" "((letrec-values(((for-loop_124)" -"(lambda(ht_132" +"(lambda(ht_131" " lst_276)" "(begin" " 'for-loop" @@ -36566,13 +36585,13 @@ static const char *startup_source = "((rest_150)" "(unsafe-cdr" " lst_276)))" +"(let-values(((ht_132)" "(let-values(((ht_133)" -"(let-values(((ht_134)" -" ht_132))" -"(let-values(((ht_123)" +" ht_131))" +"(let-values(((ht_122)" "(let-values()" "(hash-set" -" ht_134" +" ht_133" "(car" " sm_0)" "((if to-source?_4" @@ -36581,14 +36600,14 @@ static const char *startup_source = "(cdr" " sm_0))))))" "(values" -" ht_123)))))" +" ht_122)))))" "(if(not" " #f)" "(for-loop_124" -" ht_133" +" ht_132" " rest_150)" -" ht_133)))" -" ht_132)))))" +" ht_132)))" +" ht_131)))))" " for-loop_124)" "(hasheq #f bundle_1)" " lst_206))))))))" @@ -36631,15 +36650,15 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_278)" -"(let-values(((s_104)(unsafe-car lst_278))((rest_151)(unsafe-cdr lst_278)))" +"(let-values(((s_106)(unsafe-car lst_278))((rest_151)(unsafe-cdr lst_278)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((name_60)(car s_104)))" -"(let-values(((cim_10)(cdr s_104)))" +"(let-values(((name_60)(car s_106)))" +"(let-values(((cim_10)(cdr s_106)))" "(let-values(((phase-to-link-module-uses_5)" "(compiled-in-memory-phase-to-link-module-uses" " cim_10)))" @@ -36660,7 +36679,7 @@ static const char *startup_source = " modules-being-compiled_2" "(1/module-path-index-resolve" " sm-self_0)" -"(let-values(((ht_135)" +"(let-values(((ht_134)" "(1/linklet-bundle->hash" "(if(1/linklet-directory?" " ld_5)" @@ -36674,9 +36693,9 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()" -"(check-in-hash ht_135)))" +"(check-in-hash ht_134)))" "((letrec-values(((for-loop_242)" -"(lambda(table_208" +"(lambda(table_207" " i_5)" "(begin" " 'for-loop" @@ -36684,16 +36703,16 @@ static const char *startup_source = "(let-values(((phase_2" " linklet_8)" "(hash-iterate-key+value" -" ht_135" +" ht_134" " i_5)))" +"(let-values(((table_208)" "(let-values(((table_209)" -"(let-values(((table_210)" -" table_208))" +" table_207))" "(if(number?" " phase_2)" -"(let-values(((table_211)" -" table_210))" -"(let-values(((table_48)" +"(let-values(((table_210)" +" table_209))" +"(let-values(((table_47)" "(let-values()" "(let-values(((key_77" " val_67)" @@ -36718,25 +36737,25 @@ static const char *startup_source = " #f)" " #f))))))" "(hash-set" -" table_211" +" table_210" " key_77" " val_67)))))" "(values" -" table_48)))" -" table_210))))" +" table_47)))" +" table_209))))" "(if(not" " #f)" "(for-loop_242" -" table_209" +" table_208" "(hash-iterate-next" -" ht_135" +" ht_134" " i_5))" -" table_209)))" -" table_208)))))" +" table_208)))" +" table_207)))))" " for-loop_242)" " '#hasheq()" "(hash-iterate-first" -" ht_135))))))))))))" +" ht_134))))))))))))" "(values)))))" "(values)))))" "(if(not #f)(for-loop_241 rest_151)(values))))" @@ -36765,20 +36784,20 @@ static const char *startup_source = "(if(1/linklet-bundle? c_31)" "(let-values()" "(1/hash->linklet-bundle" -"(let-values(((ht_136)(1/linklet-bundle->hash c_31)))" +"(let-values(((ht_135)(1/linklet-bundle->hash c_31)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_136)))" +"(let-values()(check-in-hash ht_135)))" "((letrec-values(((for-loop_243)" -"(lambda(table_212 i_155)" +"(lambda(table_211 i_156)" "(begin" " 'for-loop" -"(if i_155" -"(let-values(((k_33 v_68)(hash-iterate-key+value ht_136 i_155)))" -"(let-values(((table_213)" -"(let-values(((table_214) table_212))" -"(let-values(((table_215)" +"(if i_156" +"(let-values(((k_33 v_68)(hash-iterate-key+value ht_135 i_156)))" +"(let-values(((table_212)" +"(let-values(((table_213) table_211))" +"(let-values(((table_214)" "(let-values()" "(let-values(((key_78 val_68)" "(let-values()" @@ -36790,32 +36809,32 @@ static const char *startup_source = " v_68)))" "(let-values()" "(values k_33 v_68))))))" -"(hash-set table_214 key_78 val_68)))))" -"(values table_215)))))" +"(hash-set table_213 key_78 val_68)))))" +"(values table_214)))))" "(if(not #f)" -"(for-loop_243 table_213(hash-iterate-next ht_136 i_155))" -" table_213)))" -" table_212)))))" +"(for-loop_243 table_212(hash-iterate-next ht_135 i_156))" +" table_212)))" +" table_211)))))" " for-loop_243)" " '#hasheq()" -"(hash-iterate-first ht_136))))))" +"(hash-iterate-first ht_135))))))" "(if(1/linklet-directory? c_31)" "(let-values()" "(1/hash->linklet-directory" -"(let-values(((ht_137)(1/linklet-directory->hash c_31)))" +"(let-values(((ht_136)(1/linklet-directory->hash c_31)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_137)))" +"(let-values()(check-in-hash ht_136)))" "((letrec-values(((for-loop_244)" -"(lambda(table_216 i_156)" +"(lambda(table_215 i_157)" "(begin" " 'for-loop" -"(if i_156" -"(let-values(((k_34 v_1)(hash-iterate-key+value ht_137 i_156)))" -"(let-values(((table_217)" -"(let-values(((table_218) table_216))" -"(let-values(((table_219)" +"(if i_157" +"(let-values(((k_34 v_1)(hash-iterate-key+value ht_136 i_157)))" +"(let-values(((table_216)" +"(let-values(((table_217) table_215))" +"(let-values(((table_218)" "(let-values()" "(let-values(((key_79 val_69)" "(let-values()" @@ -36828,15 +36847,15 @@ static const char *startup_source = " v_1)))" "(let-values()" "(values k_34 v_1))))))" -"(hash-set table_218 key_79 val_69)))))" -"(values table_219)))))" +"(hash-set table_217 key_79 val_69)))))" +"(values table_218)))))" "(if(not #f)" -"(for-loop_244 table_217(hash-iterate-next ht_137 i_156))" -" table_217)))" -" table_216)))))" +"(for-loop_244 table_216(hash-iterate-next ht_136 i_157))" +" table_216)))" +" table_215)))))" " for-loop_244)" " '#hasheq()" -"(hash-iterate-first ht_137))))))" +"(hash-iterate-first ht_136))))))" "(let-values() c_31)))))))" "(define-values" "(create-compiled-in-memorys-using-shared-data)" @@ -36869,9 +36888,9 @@ static const char *startup_source = "(begin" " 'construct-compiled-in-memory" "(let-values(((is-module?_0)" -"(let-values(((or-part_77)(1/linklet-bundle? ld_6)))" -"(if or-part_77" -" or-part_77" +"(let-values(((or-part_78)(1/linklet-bundle? ld_6)))" +"(if or-part_78" +" or-part_78" "(let-values(((b_76)" "(hash-ref" "(1/linklet-directory->hash ld_6)" @@ -36892,11 +36911,11 @@ static const char *startup_source = "(extract-submodules ld_6 'post)" " null)))" "(let-values(((map-construct-compiled-in-memory_0)" -"(lambda(l_10 vec-pos_0)" +"(lambda(l_68 vec-pos_0)" "(begin" " 'map-construct-compiled-in-memory" "(reverse$1" -"(let-values(((lst_267) l_10)" +"(let-values(((lst_267) l_68)" "((lst_89)" "(vector-ref" " mpi-vector-tree_0" @@ -37035,7 +37054,7 @@ static const char *startup_source = "(begin" " #f" "((letrec-values(((for-loop_103)" -"(lambda(i_157 pos_101)" +"(lambda(i_158 pos_101)" "(begin" " 'for-loop" "(if(unsafe-fx<" @@ -37045,10 +37064,10 @@ static const char *startup_source = "(unsafe-vector-ref" " vec_65" " pos_101)))" -"(let-values(((i_158)" -"(let-values(((i_59)" -" i_157))" "(let-values(((i_159)" +"(let-values(((i_59)" +" i_158))" +"(let-values(((i_160)" "(let-values()" "(begin" "(unsafe-vector*-set!" @@ -37062,22 +37081,22 @@ static const char *startup_source = " 1" " i_59)))))" "(values" -" i_159)))))" +" i_160)))))" "(if(if(not" "((lambda x_19" "(unsafe-fx=" -" i_158" +" i_159" " len_30))" " pos_102))" "(not #f)" " #f)" "(for-loop_103" -" i_158" +" i_159" "(unsafe-fx+" " 1" " pos_101))" -" i_158)))" -" i_157)))))" +" i_159)))" +" i_158)))))" " for-loop_103)" " 0" " 0)))))" @@ -37107,16 +37126,16 @@ static const char *startup_source = "(let-values()" "(check-range start_15 end_28 inc_22)))" "((letrec-values(((for-loop_245)" -"(lambda(i_160 pos_103)" +"(lambda(i_161 pos_103)" "(begin" " 'for-loop" "(if(< pos_103 end_28)" -"(let-values(((i_20)" +"(let-values(((i_96)" " pos_103))" -"(let-values(((i_161)" -"(let-values(((i_34)" -" i_160))" "(let-values(((i_162)" +"(let-values(((i_34)" +" i_161))" +"(let-values(((i_20)" "(let-values()" "(begin" "(unsafe-vector*-set!" @@ -37129,28 +37148,28 @@ static const char *startup_source = "(+" "(car" " syntax-literals-spec_0)" -" i_20))" +" i_96))" " #f)))" "(unsafe-fx+" " 1" " i_34)))))" "(values" -" i_162)))))" +" i_20)))))" "(if(if(not" "((lambda x_71" "(unsafe-fx=" -" i_161" +" i_162" " len_32))" -" i_20))" +" i_96))" "(not #f)" " #f)" "(for-loop_245" -" i_161" +" i_162" "(+" " pos_103" " inc_22))" -" i_161)))" -" i_160)))))" +" i_162)))" +" i_161)))))" " for-loop_245)" " 0" " start_15)))))" @@ -37246,23 +37265,23 @@ static const char *startup_source = "(lambda(c_50 ns_46 eval-compiled_2 as-tail?_1)" "(begin" "(let-values(((eval-compiled-parts_0)" -"(lambda(l_11)" +"(lambda(l_64)" "(begin" " 'eval-compiled-parts" -"((letrec-values(((loop_37)" -"(lambda(l_12)" +"((letrec-values(((loop_93)" +"(lambda(l_69)" "(begin" " 'loop" -"(if(null? l_12)" +"(if(null? l_69)" "(let-values() void)" -"(if(null?(cdr l_12))" -"(let-values()(eval-compiled_2(car l_12) ns_46 as-tail?_1))" +"(if(null?(cdr l_69))" +"(let-values()(eval-compiled_2(car l_69) ns_46 as-tail?_1))" "(let-values()" "(begin" -"(eval-compiled_2(car l_12) ns_46 #f)" -"(loop_37(cdr l_12))))))))))" -" loop_37)" -" l_11)))))" +"(eval-compiled_2(car l_69) ns_46 #f)" +"(loop_93(cdr l_69))))))))))" +" loop_93)" +" l_64)))))" "(if(compiled-in-memory? c_50)" "(let-values()(eval-compiled-parts_0(compiled-in-memory-pre-compiled-in-memorys c_50)))" "(let-values(((c1_28)(hash-ref(1/linklet-directory->hash c_50) 'data #f)))" @@ -37622,7 +37641,7 @@ static const char *startup_source = "(void)" "(let-values()" " (raise-argument-error 'for/vector \"exact-nonnegative-integer?\" len_33)))" -"(let-values(((v_183)(make-vector len_33 0)))" +"(let-values(((v_182)(make-vector len_33 0)))" "(begin" "(if(zero? len_33)" "(void)" @@ -37639,7 +37658,7 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(unsafe-fx< pos_105 len_34)" -"(let-values(((s_384)" +"(let-values(((s_389)" "(unsafe-vector-ref vec_67 pos_105)))" "(let-values(((i_164)" "(let-values(((i_165) i_163))" @@ -37647,11 +37666,11 @@ static const char *startup_source = "(let-values()" "(begin" "(unsafe-vector*-set!" -" v_183" +" v_182" " i_165" "(let-values()" "(swap-top-level-scopes" -" s_384" +" s_389" "(compiled-in-memory-namespace-scopes" " cim_11)" " to-ns_0)))" @@ -37662,7 +37681,7 @@ static const char *startup_source = "(if(if(not" "((lambda x_72" "(unsafe-fx= i_164 len_33))" -" s_384))" +" s_389))" "(not #f)" " #f)" "(for-loop_247 i_164(unsafe-fx+ 1 pos_105))" @@ -37671,7 +37690,7 @@ static const char *startup_source = " for-loop_247)" " 0" " 0)))))" -" v_183)))))))))" +" v_182)))))))))" "(1/make-instance" " 'link" " #f" @@ -37699,15 +37718,15 @@ static const char *startup_source = "(begin" " 'for-loop" "(if(pair? lst_6)" -"(let-values(((r_41)(unsafe-car lst_6))((rest_48)(unsafe-cdr lst_6)))" +"(let-values(((r_40)(unsafe-car lst_6))((rest_48)(unsafe-cdr lst_6)))" "(let-values(((result_81)" "(let-values()" "(let-values(((result_117)" "(let-values()" "(let-values()" -"(can-direct-eval? r_41 ns_42 self-mpi_3)))))" +"(can-direct-eval? r_40 ns_42 self-mpi_3)))))" "(values result_117)))))" -"(if(if(not((lambda x_73(not result_81)) r_41))(not #f) #f)" +"(if(if(not((lambda x_73(not result_81)) r_40))(not #f) #f)" "(for-loop_111 result_81 rest_48)" " result_81)))" " result_116)))))" @@ -37764,11 +37783,11 @@ static const char *startup_source = "(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_73) get-not-available))" -"(if(let-values(((or-part_76)(parsed-top-id? p_1)))" -"(if or-part_76" -" or-part_76" -"(let-values(((or-part_77)(not b_73)))" -"(if or-part_77 or-part_77(eq? self-mpi_5(module-binding-module b_73))))))" +"(if(let-values(((or-part_77)(parsed-top-id? p_1)))" +"(if or-part_77" +" or-part_77" +"(let-values(((or-part_78)(not b_73)))" +"(if or-part_78 or-part_78(eq? self-mpi_5(module-binding-module b_73))))))" "(let-values()" "(namespace-get-variable" " ns_72" @@ -38170,19 +38189,19 @@ static const char *startup_source = "(lambda(module-lifts_1)(begin(box-clear!(module-lift-context-lifts module-lifts_1)))))" "(define-values" "(add-lifted-module!)" -"(lambda(module-lifts_2 s_63 phase_101)" +"(lambda(module-lifts_2 s_390 phase_101)" "(begin" "(begin" -"(if(let-values(((or-part_215)" +"(if(let-values(((or-part_214)" "(if(module-lift-context? module-lifts_2)" "(module-lift-context-module*-ok? module-lifts_2)" " #f)))" -"(if or-part_215" -" or-part_215" +"(if or-part_214" +" or-part_214" "(if(lift-context? module-lifts_2)(lift-context-module*-ok? module-lifts_2) #f)))" "(void)" "(let-values()" -"(let-values(((tmp_30)(core-form-sym s_63 phase_101)))" +"(let-values(((tmp_30)(core-form-sym s_390 phase_101)))" "(if(equal? tmp_30 'module)" "(let-values()(void))" "(if(equal? tmp_30 'module*)" @@ -38191,13 +38210,13 @@ static const char *startup_source = " 'syntax-local-lift-module" " \"cannot lift `module*' to a top-level context\"" " \"syntax\"" -" s_63))" +" s_390))" "(let-values()" -" (raise-arguments-error 'syntax-local-lift-module \"not a `module' declaration\" \"syntax\" s_63)))))))" +" (raise-arguments-error 'syntax-local-lift-module \"not a `module' declaration\" \"syntax\" s_390)))))))" "(if(module-lift-context? module-lifts_2)" -"(let-values()(box-cons!(module-lift-context-lifts module-lifts_2) s_63))" +"(let-values()(box-cons!(module-lift-context-lifts module-lifts_2) s_390))" "(if(lift-context? module-lifts_2)" -"(let-values()(box-cons!(lift-context-lifts module-lifts_2) s_63))" +"(let-values()(box-cons!(lift-context-lifts module-lifts_2) s_390))" " (let-values () (error \"internal error: unrecognized lift-context type for module lift\"))))))))" "(define-values" "(struct:require-lift-context" @@ -38236,11 +38255,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_385 phase_102)" +"(lambda(require-lifts_2 s_391 phase_102)" "(begin" "(begin" -"((require-lift-context-do-require require-lifts_2) s_385 phase_102)" -"(box-cons!(require-lift-context-requires require-lifts_2) s_385)))))" +"((require-lift-context-do-require require-lifts_2) s_391 phase_102)" +"(box-cons!(require-lift-context-requires require-lifts_2) s_391)))))" "(define-values" "(struct:to-module-lift-context" " to-module-lift-context21.1" @@ -38290,12 +38309,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_104)" -"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_213))))" +"(lambda(to-module-lifts_3 s_217 phase_104)" +"(begin(box-cons!(to-module-lift-context-provides to-module-lifts_3) s_217))))" "(define-values" "(add-lifted-to-module-end!)" -"(lambda(to-module-lifts_4 s_386 phase_105)" -"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_386))))" +"(lambda(to-module-lifts_4 s_392 phase_105)" +"(begin(box-cons!(to-module-lift-context-ends to-module-lifts_4) s_392))))" "(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)" @@ -38396,7 +38415,7 @@ 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_45 ctx_13)" +"(lambda(s_172 t_45 ctx_13)" "(begin" "(let-values(((wrap_1)" "(lambda(sym_60)" @@ -38406,7 +38425,7 @@ static const char *startup_source = " #f" "(list" "(syntax-shift-phase-level$1(datum->syntax$1 core-stx sym_60)(expand-context-phase ctx_13))" -" s_170))))))" +" s_172))))))" "(let-values(((fail_0)" "(lambda()" "(begin" @@ -38416,7 +38435,7 @@ static const char *startup_source = "(format" " \"not allowed in context\\n expansion context: ~a\"" "(context->symbol(expand-context-context ctx_13)))" -" s_170)))))" +" s_172)))))" "(let-values(((tmp_31)(context->symbol(expand-context-context ctx_13))))" "(if(equal? tmp_31 'module-begin)" "(let-values()(wrap_1 'begin))" @@ -38548,8 +38567,8 @@ static const char *startup_source = "(reference-record-forward-references?)" "(lambda(rr_3)" "(begin" -"(let-values(((or-part_162)(reference-record-all-referenced? rr_3)))" -"(if or-part_162 or-part_162(positive?(set-count(reference-record-reference-before-bound rr_3))))))))" +"(let-values(((or-part_21)(reference-record-all-referenced? rr_3)))" +"(if or-part_21 or-part_21(positive?(set-count(reference-record-reference-before-bound rr_3))))))))" "(define-values" "(reference-record-clear!)" "(lambda(rr_4)" @@ -38563,8 +38582,8 @@ static const char *startup_source = "(let-values(((c1_29)(hash-ref key->arity key_84 #f)))" "(if c1_29" "((lambda(arity_2)" -"(if(let-values(((or-part_64)(eq? arity_2 'any)))" -"(if or-part_64 or-part_64(eqv?(length args_5) arity_2)))" +"(if(let-values(((or-part_65)(eq? arity_2 'any)))" +"(if or-part_65 or-part_65(eqv?(length args_5) arity_2)))" "(void)" " (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_84 args_5))))" " c1_29)" @@ -38745,13 +38764,13 @@ 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_182)(begin(if(expanded+parsed? s_182)(expanded+parsed-s s_182) s_182))))" +"(define-values(extract-syntax)(lambda(s_184)(begin(if(expanded+parsed? s_184)(expanded+parsed-s s_184) s_184))))" "(define-values" "(parsed-only)" -"(lambda(l_66)" +"(lambda(l_70)" "(begin" "(reverse$1" -"(let-values(((lst_178) l_66))" +"(let-values(((lst_178) l_70))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_178)))" "((letrec-values(((for-loop_246)" @@ -38762,12 +38781,12 @@ static const char *startup_source = "(let-values(((i_26)(unsafe-car lst_279))((rest_153)(unsafe-cdr lst_279)))" "(let-values(((fold-var_229)" "(let-values(((fold-var_230) fold-var_5))" -"(if(let-values(((or-part_252)(parsed? i_26)))" -"(if or-part_252" -" or-part_252" -"(let-values(((or-part_33)(expanded+parsed? i_26)))" -"(if or-part_33" -" or-part_33" +"(if(let-values(((or-part_251)(parsed? i_26)))" +"(if or-part_251" +" or-part_251" +"(let-values(((or-part_34)(expanded+parsed? i_26)))" +"(if or-part_34" +" or-part_34" "(semi-parsed-begin-for-syntax? i_26)))))" "(let-values(((fold-var_161) fold-var_230))" "(let-values(((fold-var_177)" @@ -38795,10 +38814,10 @@ static const char *startup_source = " lst_178)))))))" "(define-values" "(syntax-only)" -"(lambda(l_67)" +"(lambda(l_71)" "(begin" "(reverse$1" -"(let-values(((lst_280) l_67))" +"(let-values(((lst_280) l_71))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_280)))" "((letrec-values(((for-loop_248)" @@ -38809,12 +38828,12 @@ static const char *startup_source = "(let-values(((i_35)(unsafe-car lst_281))((rest_154)(unsafe-cdr lst_281)))" "(let-values(((fold-var_83)" "(let-values(((fold-var_84) fold-var_233))" -"(if(let-values(((or-part_127)(syntax?$1 i_35)))" -"(if or-part_127" -" or-part_127" -"(let-values(((or-part_253)(expanded+parsed? i_35)))" -"(if or-part_253" -" or-part_253" +"(if(let-values(((or-part_24)(syntax?$1 i_35)))" +"(if or-part_24" +" or-part_24" +"(let-values(((or-part_252)(expanded+parsed? i_35)))" +"(if or-part_252" +" or-part_252" "(semi-parsed-begin-for-syntax? i_35)))))" "(let-values(((fold-var_85) fold-var_84))" "(let-values(((fold-var_244)" @@ -38825,7 +38844,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_166)" +"(let-values(((s_168)" "(semi-parsed-begin-for-syntax-s" " i_35)))" "(let-values(((nested-bodys_0)" @@ -38833,22 +38852,22 @@ static const char *startup_source = " i_35)))" "(let-values(((disarmed-s_0)" "(syntax-disarm$1" -" s_166)))" +" s_168)))" "(let-values(((ok?_26" " begin-for-syntax7_0" " _8_0)" -"(let-values(((s_302)" +"(let-values(((s_306)" " disarmed-s_0))" "(let-values(((orig-s_31)" -" s_302))" +" s_306))" "(let-values(((begin-for-syntax7_1" " _8_1)" "(let-values(((s_27)" "(if(syntax?$1" -" s_302)" +" s_306)" "(syntax-e$1" -" s_302)" -" s_302)))" +" s_306)" +" s_306)))" "(if(pair?" " s_27)" "(let-values(((begin-for-syntax9_0)" @@ -38857,18 +38876,18 @@ static const char *startup_source = " s_27)))" " s_30))" "((_10_0)" -"(let-values(((s_161)" +"(let-values(((s_163)" "(cdr" " s_27)))" -"(let-values(((s_387)" +"(let-values(((s_393)" "(if(syntax?$1" -" s_161)" +" s_163)" "(syntax-e$1" -" s_161)" -" s_161)))" +" s_163)" +" s_163)))" "(let-values(((flat-s_19)" "(to-syntax-list.1" -" s_387)))" +" s_393)))" "(if(not" " flat-s_19)" "(let-values()" @@ -38889,7 +38908,7 @@ static const char *startup_source = " #t" " begin-for-syntax7_1" " _8_1))))))" -"(let-values(((s11_0) s_166)" +"(let-values(((s11_0) s_168)" "((temp12_2)" "(list*" " begin-for-syntax7_0" @@ -38914,7 +38933,7 @@ static const char *startup_source = "(lambda(alternate-id1_0 alternate-id3_0 skip-log?2_0 skip-log?4_0 s5_1 ctx6_0)" "(begin" " 'expand7" -"(let-values(((s_388) s5_1))" +"(let-values(((s_394) 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)))" @@ -38928,25 +38947,27 @@ static const char *startup_source = "(call-expand-observe" " obs_1" "(if(expand-context-only-immediate? ctx_14) 'enter-check 'visit)" -" s_388))" +" s_394))" "(void)))" "(void)))" -"(if(identifier? s_388)" -"(let-values()(expand-identifier s_388 ctx_14 alternate-id_0))" -"(if(if(pair?(syntax-content s_388))(identifier?(car(syntax-content s_388))) #f)" -"(let-values()(expand-id-application-form s_388 ctx_14 alternate-id_0))" -"(if(let-values(((or-part_78)(pair?(syntax-content s_388))))" -"(if or-part_78 or-part_78(null?(syntax-content s_388))))" -"(let-values()(expand-implicit '#%app s_388 ctx_14 #f))" -"(if(already-expanded?(syntax-content s_388))" -"(let-values()(expand-already-expanded s_388 ctx_14))" -"(let-values()(expand-implicit '#%datum s_388 ctx_14 #f)))))))))))))))" +"(if(syntax-identifier? s_394)" +"(let-values()(expand-identifier s_394 ctx_14 alternate-id_0))" +"(if(if(pair?(syntax-content s_394))(syntax-identifier?(car(syntax-content s_394))) #f)" +"(let-values()(expand-id-application-form s_394 ctx_14 alternate-id_0))" +"(if(let-values(((or-part_79)(pair?(syntax-content s_394))))" +"(if or-part_79 or-part_79(null?(syntax-content s_394))))" +"(let-values()(expand-implicit '#%app s_394 ctx_14 #f))" +"(if(already-expanded?(syntax-content s_394))" +"(let-values()(expand-already-expanded s_394 ctx_14))" +"(let-values()(expand-implicit '#%datum s_394 ctx_14 #f)))))))))))))))" "(define-values" "(expand-identifier)" "(lambda(s_44 ctx_15 alternate-id_1)" "(begin" "(let-values(((id_60)(let-values(((or-part_161) alternate-id_1))(if or-part_161 or-part_161 s_44))))" -"(if(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_60)" +"(if(if(not(free-id-set-empty?(expand-context-stops ctx_15)))" +"(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_60)" +" #f)" "(let-values()" "(begin" "(let-values(((obs_2)(expand-context-observer ctx_15)))" @@ -38996,9 +39017,11 @@ static const char *startup_source = "(lambda(s_13 ctx_16 alternate-id_2)" "(begin" "(let-values(((id_61)" -"(let-values(((or-part_254) alternate-id_2))" -"(if or-part_254 or-part_254(car(syntax-e/no-taint s_13))))))" -"(if(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_61)" +"(let-values(((or-part_23) alternate-id_2))" +"(if or-part_23 or-part_23(car(syntax-e/no-taint s_13))))))" +"(if(if(not(free-id-set-empty?(expand-context-stops ctx_16)))" +"(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_61)" +" #f)" "(let-values()" "(begin" "(let-values(((obs_0)(expand-context-observer ctx_16)))" @@ -39057,18 +39080,20 @@ static const char *startup_source = " protected?_4)))))))))))))))" "(define-values" "(expand-implicit)" -"(lambda(sym_61 s_183 ctx_17 trigger-id_1)" +"(lambda(sym_61 s_185 ctx_17 trigger-id_1)" "(begin" "(if(expand-context-only-immediate? ctx_17)" "(let-values()" "(begin" "(let-values(((obs_5)(expand-context-observer ctx_17)))" -"(if obs_5(let-values()(let-values()(call-expand-observe obs_5 'exit-check s_183)))(void)))" -" s_183))" +"(if obs_5(let-values()(let-values()(call-expand-observe obs_5 'exit-check s_185)))(void)))" +" s_185))" "(let-values()" -"(let-values(((disarmed-s_1)(syntax-disarm$1 s_183)))" +"(let-values(((disarmed-s_1)(syntax-disarm$1 s_185)))" "(let-values(((id_62)(datum->syntax$1 disarmed-s_1 sym_61)))" -"(if(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_62)" +"(if(if(not(free-id-set-empty?(expand-context-stops ctx_17)))" +"(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_62)" +" #f)" "(let-values()" "(begin" "(let-values(((obs_6)(expand-context-observer ctx_17)))" @@ -39078,13 +39103,13 @@ static const char *startup_source = "(let-values()" "(begin" "(call-expand-observe obs_6 'resolve id_62)" -"(call-expand-observe obs_6 'enter-prim s_183)" +"(call-expand-observe obs_6 'enter-prim s_185)" "(call-expand-observe obs_6 'prim-stop)" -"(call-expand-observe obs_6 'exit-prim s_183)" -"(call-expand-observe obs_6 'return s_183)))" +"(call-expand-observe obs_6 'exit-prim s_185)" +"(call-expand-observe obs_6 'return s_185)))" "(void)))" "(void)))" -" s_183))" +" s_185))" "(let-values()" "(let-values((()" "(begin" @@ -39112,7 +39137,7 @@ static const char *startup_source = "(dispatch-transformer" " t_48" " insp-of-t_2" -"(make-explicit ctx_17 sym_61 s_183 disarmed-s_1)" +"(make-explicit ctx_17 sym_61 s_185 disarmed-s_1)" " id_62" " ctx_17" " b_77))" @@ -39123,17 +39148,17 @@ static const char *startup_source = "(expand-context-in-local-expand? ctx_17)" " #f)" " #f)" -"(let-values()(dispatch-implicit-#%top-core-form t_48 s_183 ctx_17))" +"(let-values()(dispatch-implicit-#%top-core-form t_48 s_185 ctx_17))" "(let-values()" "(dispatch-core-form" " t_48" -"(make-explicit ctx_17 sym_61 s_183 disarmed-s_1)" +"(make-explicit ctx_17 sym_61 s_185 disarmed-s_1)" " ctx_17))))" "(let-values()" "(let-values(((tl-id_0)" "(if(eq? sym_61 '#%top)" "(if(root-expand-context-top-level-bind-scope ctx_17)" -"(add-scope s_183(root-expand-context-top-level-bind-scope ctx_17))" +"(add-scope s_185(root-expand-context-top-level-bind-scope ctx_17))" " #f)" " #f)))" "(let-values(((tl-b_0)" @@ -39151,7 +39176,7 @@ static const char *startup_source = " tl-id_0))" "(let-values()" "(raise-syntax-implicit-error" -" s_183" +" s_185" " sym_61" " trigger-id_1" " ctx_17))))))))))))))))))))))" @@ -39201,25 +39226,25 @@ static const char *startup_source = " result-s_1))))))))))))" "(define-values" "(make-explicit)" -"(lambda(ctx_19 sym_62 s_303 disarmed-s_2)" +"(lambda(ctx_19 sym_62 s_307 disarmed-s_2)" "(begin" "(let-values(((new-s_0)" -"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_62 disarmed-s_2) s_303 s_303) s_303)))" +"(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_62 disarmed-s_2) s_307 s_307) s_307)))" "(begin" "(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_49 insp-of-t_3 s_389 id_63 ctx_20 binding_20 primitive?_5 protected?_6)" +"(lambda(t_49 insp-of-t_3 s_395 id_63 ctx_20 binding_20 primitive?_5 protected?_6)" "(begin" "(if(core-form? t_49)" -"(let-values()(dispatch-core-form t_49 s_389 ctx_20))" +"(let-values()(dispatch-core-form t_49 s_395 ctx_20))" "(if(transformer? t_49)" -"(let-values()(dispatch-transformer t_49 insp-of-t_3 s_389 id_63 ctx_20 binding_20))" +"(let-values()(dispatch-transformer t_49 insp-of-t_3 s_395 id_63 ctx_20 binding_20))" "(if(variable? t_49)" -"(let-values()(dispatch-variable t_49 s_389 id_63 ctx_20 binding_20 primitive?_5 protected?_6))" -" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_389))))))))" +"(let-values()(dispatch-variable t_49 s_395 id_63 ctx_20 binding_20 primitive?_5 protected?_6))" +" (let-values () (raise-syntax-error$1 #f \"illegal use of syntax\" s_395))))))))" "(define-values" "(dispatch-core-form)" "(lambda(t_50 s_47 ctx_21)" @@ -39275,7 +39300,7 @@ static const char *startup_source = " result-s_3))))))" "(define-values" "(dispatch-transformer)" -"(lambda(t_52 insp-of-t_4 s_384 id_64 ctx_23 binding_21)" +"(lambda(t_52 insp-of-t_4 s_389 id_64 ctx_23 binding_21)" "(begin" "(if(not-in-this-expand-context? t_52 ctx_23)" "(let-values()" @@ -39283,18 +39308,18 @@ static const char *startup_source = "(begin" "(let-values(((obs_15)(expand-context-observer ctx_23)))" "(if obs_15" -"(let-values()(let-values()(call-expand-observe obs_15 'enter-macro s_384)))" +"(let-values()(let-values()(call-expand-observe obs_15 'enter-macro s_389)))" "(void)))" "(values))))" -"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_384 id_64) t_52 ctx_23)))" +"(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_389 id_64) t_52 ctx_23)))" "(begin" "(let-values(((obs_16)(expand-context-observer ctx_23)))" -"(if obs_16(let-values()(let-values()(call-expand-observe obs_16 'exit-macro s_384)))(void)))" +"(if obs_16(let-values()(let-values()(call-expand-observe obs_16 'exit-macro s_389)))(void)))" "(let-values(((adj-s117_0) adj-s_0)((ctx118_0) ctx_23))" "(expand7.1 #f #f #f #f adj-s117_0 ctx118_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_384))" +" (raise-syntax-error$1 #f \"encountered a macro binding in form that should be fully expanded\" s_389))" "(let-values()" "(let-values((()" "(begin" @@ -39304,17 +39329,17 @@ static const char *startup_source = "(if(if(expand-context-only-immediate? ctx_23)(not(1/rename-transformer? t_52)) #f)" "(let-values()" "(begin" -"(call-expand-observe obs_17 'visit s_384)" +"(call-expand-observe obs_17 'visit s_389)" "(call-expand-observe obs_17 'resolve id_64)))" "(void)))" "(void)))" "(values))))" "(let-values(((exp-s_1 re-ctx_0)" "(if(1/rename-transformer? t_52)" -"(values s_384 ctx_23)" +"(values s_389 ctx_23)" "(let-values(((t119_0) t_52)" "((insp-of-t120_0) insp-of-t_4)" -"((s121_0) s_384)" +"((s121_0) s_389)" "((id122_0) id_64)" "((ctx123_0) ctx_23)" "((binding124_0) binding_21))" @@ -39348,25 +39373,25 @@ static const char *startup_source = " id_64)" " #f))" "((temp128_0)" -"(let-values(((or-part_255)(expand-context-only-immediate? ctx_23)))" -"(if or-part_255 or-part_255(1/rename-transformer? t_52)))))" +"(let-values(((or-part_253)(expand-context-only-immediate? ctx_23)))" +"(if or-part_253 or-part_253(1/rename-transformer? t_52)))))" "(expand7.1 temp127_0 #t temp128_0 #t exp-s125_0 re-ctx126_0)))))))))))))" "(define-values" "(dispatch-variable)" -"(lambda(t_53 s_390 id_65 ctx_24 binding_22 primitive?_6 protected?_7)" +"(lambda(t_53 s_396 id_65 ctx_24 binding_22 primitive?_6 protected?_7)" "(begin" "(if(expand-context-only-immediate? ctx_24)" "(let-values()" "(begin" "(let-values(((obs_19)(expand-context-observer ctx_24)))" -"(if obs_19(let-values()(let-values()(call-expand-observe obs_19 'exit-check s_390)))(void)))" +"(if obs_19(let-values()(let-values()(call-expand-observe obs_19 'exit-check s_396)))(void)))" " id_65))" "(let-values()" "(let-values((()" "(begin" "(let-values(((obs_20)(expand-context-observer ctx_24)))" "(if obs_20" -"(let-values()(let-values()(call-expand-observe obs_20 'variable s_390 id_65)))" +"(let-values()(let-values()(call-expand-observe obs_20 'variable s_396 id_65)))" "(void)))" "(values))))" "(let-values((()(begin(register-variable-referenced-if-local! binding_22)(values))))" @@ -39399,7 +39424,7 @@ static const char *startup_source = " 'apply-transformer18" "(let-values(((t_54) t12_0))" "(let-values(((insp-of-t_5) insp-of-t13_0))" -"(let-values(((s_60) s14_0))" +"(let-values(((s_199) s14_0))" "(let-values(((id_66) id15_0))" "(let-values(((ctx_25) ctx16_0))" "(let-values(((binding_23) binding17_1))" @@ -39411,10 +39436,10 @@ static const char *startup_source = "(let-values(((obs_22)(expand-context-observer ctx_25)))" "(if obs_22" "(let-values()" -"(let-values()(call-expand-observe obs_22 'enter-macro s_60)))" +"(let-values()(call-expand-observe obs_22 'enter-macro s_199)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_3)(syntax-disarm$1 s_60)))" +"(let-values(((disarmed-s_3)(syntax-disarm$1 s_199)))" "(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)" @@ -39437,14 +39462,16 @@ static const char *startup_source = "(syntax-track-origin$1" " post-s_0" " cleaned-s_0" -"(let-values(((or-part_256) origin-id_0))" -"(if or-part_256" -" or-part_256" -"(if(identifier? s_60) s_60(car(syntax-e$1 s_60))))))))" +"(let-values(((or-part_254) origin-id_0))" +"(if or-part_254" +" or-part_254" +"(if(syntax-identifier? s_199)" +" s_199" +"(car(syntax-e$1 s_199))))))))" "(let-values(((rearmed-s_0)" "(taint-dispatch" " tracked-s_0" -"(lambda(t-s_0)(syntax-rearm$1 t-s_0 s_60))" +"(lambda(t-s_0)(syntax-rearm$1 t-s_0 s_199))" "(expand-context-phase ctx_25))))" "(begin" "(let-values(((obs_23)(expand-context-observer ctx_25)))" @@ -39471,9 +39498,9 @@ static const char *startup_source = "(values))))" "(let-values(((confine-def-ctx-scopes?_0)" "(not" -"(let-values(((or-part_257)(expand-context-only-immediate? ctx_26)))" -"(if or-part_257" -" or-part_257" +"(let-values(((or-part_255)(expand-context-only-immediate? ctx_26)))" +"(if or-part_255" +" or-part_255" "(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" @@ -39484,32 +39511,32 @@ 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_184) accum-ctx_0))" -"(let-values(((the-struct_56) v_184))" -"(if(expand-context/outer? the-struct_56)" +"(let-values(((v_183) accum-ctx_0))" +"(let-values(((the-struct_55) v_183))" +"(if(expand-context/outer? the-struct_55)" "(let-values(((current-introduction-scopes132_0)(cons intro-scope_1 use-scopes_1))" "((def-ctx-scopes133_0)" "(if confine-def-ctx-scopes?_0" " def-ctx-scopes_2" "(expand-context-def-ctx-scopes ctx_26)))" -"((inner134_0)(root-expand-context/outer-inner v_184)))" +"((inner134_0)(root-expand-context/outer-inner v_183)))" "(expand-context/outer1.1" " inner134_0" -"(root-expand-context/outer-post-expansion-scope the-struct_56)" -"(root-expand-context/outer-use-site-scopes the-struct_56)" -"(root-expand-context/outer-frame-id the-struct_56)" -"(expand-context/outer-context the-struct_56)" -"(expand-context/outer-env the-struct_56)" -"(expand-context/outer-post-expansion-scope-action the-struct_56)" -"(expand-context/outer-scopes the-struct_56)" +"(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)" " def-ctx-scopes133_0" -"(expand-context/outer-binding-layer the-struct_56)" -"(expand-context/outer-reference-records the-struct_56)" -"(expand-context/outer-only-immediate? the-struct_56)" -"(expand-context/outer-need-eventually-defined the-struct_56)" +"(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)" " current-introduction-scopes132_0" -"(expand-context/outer-name the-struct_56)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_56))))))" +"(expand-context/outer-name the-struct_55)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_55))))))" "(let-values(((transformed-s_1)" "(with-continuation-mark" " parameterization-key" @@ -39522,8 +39549,8 @@ static const char *startup_source = "(expand-context-namespace ctx_26)" "(add1(expand-context-phase ctx_26)))" " current-module-code-inspector" -"(let-values(((or-part_258) insp-of-t_6))" -"(if or-part_258 or-part_258(current-module-code-inspector))))" +"(let-values(((or-part_256) insp-of-t_6))" +"(if or-part_256 or-part_256(current-module-code-inspector))))" "(let-values()" "(call-with-continuation-barrier" "(lambda()((transformer->procedure t_55) cleaned-s_1)))))))" @@ -39544,7 +39571,7 @@ static const char *startup_source = " transformed-s_1)))))))))" "(define-values" "(maybe-add-use-site-scope)" -"(lambda(s_207 ctx_27 binding_24)" +"(lambda(s_211 ctx_27 binding_24)" "(begin" "(if(if(root-expand-context-use-site-scopes ctx_27)" "(matching-frame?(root-expand-context-frame-id ctx_27)(binding-frame-id binding_24))" @@ -39552,52 +39579,52 @@ static const char *startup_source = "(let-values()" "(let-values(((sc_30)(new-scope 'use-site)))" "(let-values(((b_78)(root-expand-context-use-site-scopes ctx_27)))" -"(begin(set-box! b_78(cons sc_30(unbox b_78)))(values(add-scope s_207 sc_30)(list sc_30))))))" -"(let-values()(values s_207 null))))))" +"(begin(set-box! b_78(cons sc_30(unbox b_78)))(values(add-scope s_211 sc_30)(list sc_30))))))" +"(let-values()(values s_211 null))))))" "(define-values" "(matching-frame?)" "(lambda(current-frame-id_0 bind-frame-id_0)" "(begin" "(if current-frame-id_0" -"(let-values(((or-part_259)(eq? current-frame-id_0 bind-frame-id_0)))" -"(if or-part_259 or-part_259(eq? current-frame-id_0 'all)))" +"(let-values(((or-part_257)(eq? current-frame-id_0 bind-frame-id_0)))" +"(if or-part_257 or-part_257(eq? current-frame-id_0 'all)))" " #f))))" "(define-values" "(maybe-add-post-expansion-scope)" -"(lambda(s_97 ctx_28)" +"(lambda(s_99 ctx_28)" "(begin" "(if(root-expand-context-post-expansion-scope ctx_28)" "(let-values()" -"((expand-context-post-expansion-scope-action ctx_28) s_97(root-expand-context-post-expansion-scope ctx_28)))" -"(let-values() s_97)))))" +"((expand-context-post-expansion-scope-action ctx_28) s_99(root-expand-context-post-expansion-scope ctx_28)))" +"(let-values() s_99)))))" "(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_185) ctx_29))" -"(let-values(((the-struct_57) v_185))" -"(if(expand-context/outer? the-struct_57)" +"(let-values(((v_184) ctx_29))" +"(let-values(((the-struct_56) v_184))" +"(if(expand-context/outer? the-struct_56)" "(let-values(((scopes135_0)(append(unbox def-ctx-scopes_3)(expand-context-scopes ctx_29)))" -"((inner136_0)(root-expand-context/outer-inner v_185)))" +"((inner136_0)(root-expand-context/outer-inner v_184)))" "(expand-context/outer1.1" " inner136_0" -"(root-expand-context/outer-post-expansion-scope the-struct_57)" -"(root-expand-context/outer-use-site-scopes the-struct_57)" -"(root-expand-context/outer-frame-id the-struct_57)" -"(expand-context/outer-context the-struct_57)" -"(expand-context/outer-env the-struct_57)" -"(expand-context/outer-post-expansion-scope-action the-struct_57)" +"(root-expand-context/outer-post-expansion-scope the-struct_56)" +"(root-expand-context/outer-use-site-scopes the-struct_56)" +"(root-expand-context/outer-frame-id the-struct_56)" +"(expand-context/outer-context the-struct_56)" +"(expand-context/outer-env the-struct_56)" +"(expand-context/outer-post-expansion-scope-action the-struct_56)" " scopes135_0" -"(expand-context/outer-def-ctx-scopes the-struct_57)" -"(expand-context/outer-binding-layer the-struct_57)" -"(expand-context/outer-reference-records the-struct_57)" -"(expand-context/outer-only-immediate? the-struct_57)" -"(expand-context/outer-need-eventually-defined the-struct_57)" -"(expand-context/outer-current-introduction-scopes the-struct_57)" -"(expand-context/outer-name the-struct_57)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_57))))))))" +"(expand-context/outer-def-ctx-scopes the-struct_56)" +"(expand-context/outer-binding-layer the-struct_56)" +"(expand-context/outer-reference-records the-struct_56)" +"(expand-context/outer-only-immediate? the-struct_56)" +"(expand-context/outer-need-eventually-defined the-struct_56)" +"(expand-context/outer-current-introduction-scopes the-struct_56)" +"(expand-context/outer-name the-struct_56)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_56))))))))" "(define-values" "(lookup28.1)" "(lambda(in21_0 in23_0 out-of-context-as-variable?22_0 out-of-context-as-variable?24_0 b25_0 ctx26_0 id27_0)" @@ -39631,19 +39658,19 @@ static const char *startup_source = " id142_0)))))))))))" "(define-values" "(substitute-alternate-id)" -"(lambda(s_391 alternate-id_3)" +"(lambda(s_397 alternate-id_3)" "(begin" "(if(not alternate-id_3)" -"(let-values() s_391)" -"(if(identifier? s_391)" -"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_391) s_391))" +"(let-values() s_397)" +"(if(syntax-identifier? s_397)" +"(let-values()(syntax-rearm$1(syntax-track-origin$1 alternate-id_3 s_397) s_397))" "(let-values()" -"(let-values(((disarmed-s_4)(syntax-disarm$1 s_391)))" +"(let-values(((disarmed-s_4)(syntax-disarm$1 s_397)))" "(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_391)" -" s_391)" -" s_391))))))))" +"(datum->syntax$1 disarmed-s_4(cons alternate-id_3(cdr(syntax-e$1 disarmed-s_4))) s_397)" +" s_397)" +" s_397))))))))" "(define-values" "(register-variable-referenced-if-local!)" "(lambda(binding_25)" @@ -39665,7 +39692,7 @@ static const char *startup_source = " ctx40_0)" "(begin" " 'expand/capture-lifts41" -"(let-values(((s_392) s39_0))" +"(let-values(((s_398) s39_0))" "(let-values(((ctx_31) ctx40_0))" "(let-values(((expand-lifts?_0)(if expand-lifts?35_0 expand-lifts?31_0 #f)))" "(let-values(((begin-form?_0)(if begin-form?36_0 begin-form?32_0 #f)))" @@ -39675,8 +39702,8 @@ static const char *startup_source = "(let-values(((context_6)(expand-context-context ctx_31)))" "(let-values(((phase_106)(expand-context-phase ctx_31)))" "(let-values(((local?_0)(not begin-form?_0)))" -"((letrec-values(((loop_93)" -"(lambda(s_219 always-wrap?_1 ctx_32)" +"((letrec-values(((loop_94)" +"(lambda(s_223 always-wrap?_1 ctx_32)" "(begin" " 'loop" "(let-values(((lift-env_2)(if local?_0(box empty-env) #f)))" @@ -39693,15 +39720,15 @@ static const char *startup_source = " #f)))" "(make-lift-context6.1 temp146_1 #t temp145_1))))" "(let-values(((capture-ctx_0)" -"(let-values(((v_76) ctx_32))" -"(let-values(((the-struct_58) v_76))" -"(if(expand-context/outer? the-struct_58)" +"(let-values(((v_75) ctx_32))" +"(let-values(((the-struct_57) v_75))" +"(if(expand-context/outer? the-struct_57)" "(let-values(((inner147_0)" -"(let-values(((the-struct_59)" +"(let-values(((the-struct_58)" "(root-expand-context/outer-inner" -" v_76)))" +" v_75)))" "(if(expand-context/inner?" -" the-struct_59)" +" the-struct_58)" "(let-values(((lift-key148_0)" " lift-key_2)" "((lifts149_0)" @@ -39715,10 +39742,10 @@ static const char *startup_source = "(expand-context-lift-envs" " ctx_32)))" "((module-lifts151_0)" -"(if(let-values(((or-part_260)" +"(if(let-values(((or-part_258)" " local?_0))" -"(if or-part_260" -" or-part_260" +"(if or-part_258" +" or-part_258" "(not" "(memq" " context_6" @@ -39729,88 +39756,88 @@ static const char *startup_source = " lift-ctx_0)))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_59)" +" the-struct_58)" "(root-expand-context/inner-module-scopes" -" the-struct_59)" +" the-struct_58)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_59)" +" the-struct_58)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_59)" +" the-struct_58)" "(root-expand-context/inner-defined-syms" -" the-struct_59)" +" the-struct_58)" "(root-expand-context/inner-counter" -" the-struct_59)" +" the-struct_58)" " lift-key148_0" "(expand-context/inner-to-parsed?" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-phase" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-namespace" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-just-once?" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-module-begin-k" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-allow-unbound?" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-in-local-expand?" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-stops" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-declared-submodule-names" -" the-struct_59)" +" the-struct_58)" " lifts149_0" " lift-envs150_0" " module-lifts151_0" "(expand-context/inner-require-lifts" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-to-module-lifts" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-requires+provides" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-observer" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-for-serializable?" -" the-struct_59)" +" the-struct_58)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_59)))" +" the-struct_58)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_59)))))" +" the-struct_58)))))" "(expand-context/outer1.1" " inner147_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_58)" +" the-struct_57)" "(root-expand-context/outer-use-site-scopes" -" the-struct_58)" +" the-struct_57)" "(root-expand-context/outer-frame-id" -" the-struct_58)" -"(expand-context/outer-context the-struct_58)" -"(expand-context/outer-env the-struct_58)" +" the-struct_57)" +"(expand-context/outer-context the-struct_57)" +"(expand-context/outer-env the-struct_57)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_58)" -"(expand-context/outer-scopes the-struct_58)" +" the-struct_57)" +"(expand-context/outer-scopes the-struct_57)" "(expand-context/outer-def-ctx-scopes" -" the-struct_58)" +" the-struct_57)" "(expand-context/outer-binding-layer" -" the-struct_58)" +" the-struct_57)" "(expand-context/outer-reference-records" -" the-struct_58)" +" the-struct_57)" "(expand-context/outer-only-immediate?" -" the-struct_58)" +" the-struct_57)" "(expand-context/outer-need-eventually-defined" -" the-struct_58)" +" the-struct_57)" "(expand-context/outer-current-introduction-scopes" -" the-struct_58)" -"(expand-context/outer-name the-struct_58)))" +" the-struct_57)" +"(expand-context/outer-name the-struct_57)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_58))))))" -"(let-values(((rebuild-s_0)(keep-properties-only s_219)))" +" the-struct_57))))))" +"(let-values(((rebuild-s_0)(keep-properties-only s_223)))" "(let-values(((exp-s_2)" -"(let-values(((s152_0) s_219)" +"(let-values(((s152_0) s_223)" "((capture-ctx153_0) capture-ctx_0))" "(expand7.1" " #f" @@ -39823,10 +39850,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_261)" +"(if(let-values(((or-part_259)" "(pair? lifts_6)))" -"(if or-part_261" -" or-part_261" +"(if or-part_259" +" or-part_259" " always-wrap?_1))" "(let-values()" "(if(expand-context-to-parsed? ctx_32)" @@ -39843,7 +39870,7 @@ static const char *startup_source = " rebuild-s_0" " ctx_32" "(lambda(rhs_15 rhs-ctx_0)" -"(loop_93 rhs_15 #f rhs-ctx_0)))))" +"(loop_94 rhs_15 #f rhs-ctx_0)))))" "(let-values()" "(if begin-form?_0" "(let-values(((lifts154_0) lifts_6)" @@ -39863,12 +39890,12 @@ static const char *startup_source = " exp-s_2" " phase_106)))))" "(let-values() exp-s_2))))" -"(if(let-values(((or-part_108)(not expand-lifts?_0)))" -"(if or-part_108" -" or-part_108" -"(let-values(((or-part_109)(null? lifts_6)))" +"(if(let-values(((or-part_109)(not expand-lifts?_0)))" "(if or-part_109" " or-part_109" +"(let-values(((or-part_110)(null? lifts_6)))" +"(if or-part_110" +" or-part_110" "(expand-context-to-parsed? ctx_32)))))" "(let-values() with-lifts-s_0)" "(let-values()" @@ -39883,9 +39910,9 @@ static const char *startup_source = " 'letlift-loop" " with-lifts-s_0)))" "(void)))" -"(loop_93 with-lifts-s_0 #f ctx_32)))))))))))))))" -" loop_93)" -" s_392" +"(loop_94 with-lifts-s_0 #f ctx_32)))))))))))))))" +" loop_94)" +" s_398" " always-wrap?_0" " ctx_31))))))))))))))" "(define-values" @@ -39906,7 +39933,7 @@ static const char *startup_source = " ctx57_0)" "(begin" " 'expand-transformer58" -"(let-values(((s_341) s56_0))" +"(let-values(((s_345) s56_0))" "(let-values(((ctx_33) ctx57_0))" "(let-values(((context_7)(if context50_0 context44_0 'expression)))" "(let-values(((begin-form?_1)(if begin-form?51_0 begin-form?45_0 #f)))" @@ -39926,7 +39953,7 @@ static const char *startup_source = " ctx163_0" " context164_0" " #t))))" -"(let-values(((s157_0) s_341)" +"(let-values(((s157_0) s_345)" "((trans-ctx158_0) trans-ctx_0)" "((expand-lifts?159_0) expand-lifts?_1)" "((begin-form?160_0) begin-form?_1)" @@ -39956,9 +39983,9 @@ static const char *startup_source = "(let-values(((ns_73)(namespace->namespace-at-phase(expand-context-namespace ctx_34) phase_107)))" "(begin" "(namespace-visit-available-modules! ns_73 phase_107)" -"(let-values(((v_186) ctx_34))" -"(let-values(((the-struct_60) v_186))" -"(if(expand-context/outer? the-struct_60)" +"(let-values(((v_185) ctx_34))" +"(let-values(((the-struct_59) v_185))" +"(if(expand-context/outer? the-struct_59)" "(let-values(((context166_0) context_8)" "((scopes167_0) null)" "((env168_0) empty-env)" @@ -39967,8 +39994,8 @@ static const char *startup_source = "((def-ctx-scopes170_0) #f)" "((post-expansion-scope171_0) #f)" "((inner172_0)" -"(let-values(((the-struct_61)(root-expand-context/outer-inner v_186)))" -"(if(expand-context/inner? the-struct_61)" +"(let-values(((the-struct_60)(root-expand-context/outer-inner v_185)))" +"(if(expand-context/inner? the-struct_60)" "(let-values(((phase173_0) phase_107)" "((namespace174_0) ns_73)" "((stops175_0)" @@ -39976,52 +40003,52 @@ static const char *startup_source = "(expand-context-stops ctx_34)" " empty-free-id-set)))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_61)" -"(root-expand-context/inner-module-scopes the-struct_61)" -"(root-expand-context/inner-top-level-bind-scope the-struct_61)" -"(root-expand-context/inner-all-scopes-stx the-struct_61)" -"(root-expand-context/inner-defined-syms the-struct_61)" -"(root-expand-context/inner-counter the-struct_61)" -"(root-expand-context/inner-lift-key the-struct_61)" -"(expand-context/inner-to-parsed? the-struct_61)" +"(root-expand-context/inner-self-mpi the-struct_60)" +"(root-expand-context/inner-module-scopes the-struct_60)" +"(root-expand-context/inner-top-level-bind-scope the-struct_60)" +"(root-expand-context/inner-all-scopes-stx the-struct_60)" +"(root-expand-context/inner-defined-syms the-struct_60)" +"(root-expand-context/inner-counter the-struct_60)" +"(root-expand-context/inner-lift-key the-struct_60)" +"(expand-context/inner-to-parsed? the-struct_60)" " phase173_0" " namespace174_0" -"(expand-context/inner-just-once? the-struct_61)" -"(expand-context/inner-module-begin-k the-struct_61)" -"(expand-context/inner-allow-unbound? the-struct_61)" -"(expand-context/inner-in-local-expand? the-struct_61)" +"(expand-context/inner-just-once? the-struct_60)" +"(expand-context/inner-module-begin-k the-struct_60)" +"(expand-context/inner-allow-unbound? the-struct_60)" +"(expand-context/inner-in-local-expand? the-struct_60)" " stops175_0" -"(expand-context/inner-declared-submodule-names the-struct_61)" -"(expand-context/inner-lifts the-struct_61)" -"(expand-context/inner-lift-envs the-struct_61)" -"(expand-context/inner-module-lifts the-struct_61)" -"(expand-context/inner-require-lifts the-struct_61)" -"(expand-context/inner-to-module-lifts the-struct_61)" -"(expand-context/inner-requires+provides the-struct_61)" -"(expand-context/inner-observer the-struct_61)" -"(expand-context/inner-for-serializable? the-struct_61)" -"(expand-context/inner-should-not-encounter-macros? the-struct_61)))" +"(expand-context/inner-declared-submodule-names the-struct_60)" +"(expand-context/inner-lifts the-struct_60)" +"(expand-context/inner-lift-envs the-struct_60)" +"(expand-context/inner-module-lifts the-struct_60)" +"(expand-context/inner-require-lifts the-struct_60)" +"(expand-context/inner-to-module-lifts the-struct_60)" +"(expand-context/inner-requires+provides the-struct_60)" +"(expand-context/inner-observer the-struct_60)" +"(expand-context/inner-for-serializable? the-struct_60)" +"(expand-context/inner-should-not-encounter-macros? the-struct_60)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_61)))))" +" the-struct_60)))))" "(expand-context/outer1.1" " inner172_0" " post-expansion-scope171_0" -"(root-expand-context/outer-use-site-scopes the-struct_60)" -"(root-expand-context/outer-frame-id the-struct_60)" +"(root-expand-context/outer-use-site-scopes the-struct_59)" +"(root-expand-context/outer-frame-id the-struct_59)" " context166_0" " env168_0" -"(expand-context/outer-post-expansion-scope-action the-struct_60)" +"(expand-context/outer-post-expansion-scope-action the-struct_59)" " scopes167_0" " def-ctx-scopes170_0" -"(expand-context/outer-binding-layer the-struct_60)" -"(expand-context/outer-reference-records the-struct_60)" +"(expand-context/outer-binding-layer the-struct_59)" +"(expand-context/outer-reference-records the-struct_59)" " only-immediate?169_0" -"(expand-context/outer-need-eventually-defined the-struct_60)" -"(expand-context/outer-current-introduction-scopes the-struct_60)" -"(expand-context/outer-name the-struct_60)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_60))))))))))))))" +"(expand-context/outer-need-eventually-defined the-struct_59)" +"(expand-context/outer-current-introduction-scopes the-struct_59)" +"(expand-context/outer-name the-struct_59)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_59))))))))))))))" "(define-values" "(expand+eval-for-syntaxes-binding74.1)" "(lambda(log-next?69_0 log-next?70_0 rhs71_0 ids72_0 ctx73_0)" @@ -40101,8 +40128,8 @@ static const char *startup_source = "(void)" " (let-values () (error \"wrong number of results (\" (length vals_4) \"vs.\" (length ids_21) \")\" \"from\" p_49)))" " vals_4))))))" -"(define-values(keep-properties-only)(lambda(s_393)(begin(datum->syntax$1 #f 'props s_393 s_393))))" -"(define-values(keep-properties-only~)(lambda(s_394)(begin #f)))" +"(define-values(keep-properties-only)(lambda(s_399)(begin(datum->syntax$1 #f 'props s_399 s_399))))" +"(define-values(keep-properties-only~)(lambda(s_400)(begin #f)))" "(define-values" "(keep-as-needed85.1)" "(lambda(for-track?77_0" @@ -40116,58 +40143,58 @@ static const char *startup_source = "(begin" " 'keep-as-needed85" "(let-values(((ctx_38) ctx83_0))" -"(let-values(((s_395) s84_0))" +"(let-values(((s_401) s84_0))" "(let-values()" "(let-values(((keep-for-parsed?_0)(if keep-for-parsed?81_0 keep-for-parsed?78_0 #f)))" "(let-values(((keep-for-error?_0)(if keep-for-error?82_0 keep-for-error?79_0 #f)))" "(let-values()" -"(let-values(((d_32)(syntax-e$1 s_395)))" +"(let-values(((d_32)(syntax-e$1 s_401)))" "(let-values(((keep-e_0)" "(if(symbol? d_32)" "(let-values() d_32)" -"(if(if(pair? d_32)(identifier?(car d_32)) #f)" +"(if(if(pair? d_32)(syntax-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_262) keep-for-parsed?_0))" -"(if or-part_262 or-part_262 keep-for-error?_0))" -"(datum->syntax$1 #f keep-e_0 s_395 s_395)" +"(if(let-values(((or-part_260) keep-for-parsed?_0))" +"(if or-part_260 or-part_260 keep-for-error?_0))" +"(datum->syntax$1 #f keep-e_0 s_401 s_401)" " #f))" "(let-values()" "(syntax-rearm$1" -"(datum->syntax$1(syntax-disarm$1 s_395) keep-e_0 s_395 s_395)" -" s_395))))))))))))))" +"(datum->syntax$1(syntax-disarm$1 s_401) keep-e_0 s_401 s_401)" +" s_401))))))))))))))" "(define-values" "(attach-disappeared-transformer-bindings)" -"(lambda(s_396 trans-idss_0)" +"(lambda(s_402 trans-idss_0)" "(begin" "(if(null? trans-idss_0)" -"(let-values() s_396)" +"(let-values() s_402)" "(let-values()" "(syntax-property$1" -" s_396" +" s_402" " 'disappeared-binding" "(append" "(apply append trans-idss_0)" -"(let-values(((or-part_263)(syntax-property$1 s_396 'disappeared-binding)))" -"(if or-part_263 or-part_263 null)))))))))" +"(let-values(((or-part_261)(syntax-property$1 s_402 'disappeared-binding)))" +"(if or-part_261 or-part_261 null)))))))))" "(define-values" "(increment-binding-layer)" "(lambda(ids_22 ctx_39 layer-val_0)" "(begin" -"(if((letrec-values(((loop_94)" +"(if((letrec-values(((loop_95)" "(lambda(ids_23)" "(begin" " 'loop" -"(let-values(((or-part_264)(identifier? ids_23)))" -"(if or-part_264" -" or-part_264" +"(let-values(((or-part_262)(identifier? ids_23)))" +"(if or-part_262" +" or-part_262" "(if(pair? ids_23)" -"(let-values(((or-part_265)(loop_94(car ids_23))))" -"(if or-part_265 or-part_265(loop_94(cdr ids_23))))" +"(let-values(((or-part_263)(loop_95(car ids_23))))" +"(if or-part_263 or-part_263(loop_95(cdr ids_23))))" " #f)))))))" -" loop_94)" +" loop_95)" " ids_22)" " layer-val_0" "(expand-context-binding-layer ctx_39)))))" @@ -40194,9 +40221,9 @@ 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_62) v_187))" -"(if(expand-context/outer? the-struct_62)" +"(let-values(((v_186) rhs-ctx_1))" +"(let-values(((the-struct_61) v_186))" +"(if(expand-context/outer? the-struct_61)" "(let-values(((env186_0)" "(let-values(((lst_286) ids_24)((lst_287) keys_4))" "(begin" @@ -40250,27 +40277,27 @@ static const char *startup_source = "(expand-context-env rhs-ctx_1)" " lst_286" " lst_287))))" -"((inner187_0)(root-expand-context/outer-inner v_187)))" +"((inner187_0)(root-expand-context/outer-inner v_186)))" "(expand-context/outer1.1" " inner187_0" -"(root-expand-context/outer-post-expansion-scope the-struct_62)" -"(root-expand-context/outer-use-site-scopes the-struct_62)" -"(root-expand-context/outer-frame-id the-struct_62)" -"(expand-context/outer-context the-struct_62)" +"(root-expand-context/outer-post-expansion-scope the-struct_61)" +"(root-expand-context/outer-use-site-scopes the-struct_61)" +"(root-expand-context/outer-frame-id the-struct_61)" +"(expand-context/outer-context the-struct_61)" " env186_0" -"(expand-context/outer-post-expansion-scope-action the-struct_62)" -"(expand-context/outer-scopes the-struct_62)" -"(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)))" +"(expand-context/outer-post-expansion-scope-action the-struct_61)" +"(expand-context/outer-scopes the-struct_61)" +"(expand-context/outer-def-ctx-scopes the-struct_61)" +"(expand-context/outer-binding-layer the-struct_61)" +"(expand-context/outer-reference-records the-struct_61)" +"(expand-context/outer-only-immediate? the-struct_61)" +"(expand-context/outer-need-eventually-defined the-struct_61)" +"(expand-context/outer-current-introduction-scopes the-struct_61)" +"(expand-context/outer-name the-struct_61)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_62)))))))))))))))))" +" the-struct_61)))))))))))))))))" " lets-loop_0)" " idss+keyss+rhss_0" " ctx_40)))))" @@ -40299,19 +40326,19 @@ static const char *startup_source = "(begin" "(let-values(((srcloc_7)(syntax-srcloc old-s_0)))" "(if srcloc_7" -"(let-values(((the-struct_63) new-s_1))" -"(if(syntax?$1 the-struct_63)" +"(let-values(((the-struct_62) new-s_1))" +"(if(syntax?$1 the-struct_62)" "(let-values(((srcloc188_0) srcloc_7))" "(syntax1.1" -"(syntax-content the-struct_63)" -"(syntax-scopes the-struct_63)" -"(syntax-shifted-multi-scopes the-struct_63)" -"(syntax-scope-propagations+tamper the-struct_63)" -"(syntax-mpi-shifts the-struct_63)" +"(syntax-content the-struct_62)" +"(syntax-scopes the-struct_62)" +"(syntax-shifted-multi-scopes the-struct_62)" +"(syntax-scope-propagations+tamper the-struct_62)" +"(syntax-mpi-shifts the-struct_62)" " srcloc188_0" -"(syntax-props the-struct_63)" -"(syntax-inspector the-struct_63)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_63)))" +"(syntax-props the-struct_62)" +"(syntax-inspector the-struct_62)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_62)))" " new-s_1)))))" "(define-values" "(stop-ids->all-stop-ids)" @@ -40463,9 +40490,9 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_33)(not parent-ctx_0)))" -"(if or-part_33" -" or-part_33" +"(if(let-values(((or-part_34)(not parent-ctx_0)))" +"(if or-part_34" +" or-part_34" "(1/internal-definition-context? parent-ctx_0)))" "(void)" "(let-values()" @@ -40478,14 +40505,14 @@ static const char *startup_source = "(let-values(((temp42_2) 'syntax-local-make-definition-context))" "(get-current-expand-context17.1 #f #f temp42_2 #t))))" "(let-values(((frame-id_8)" -"(let-values(((or-part_66)(root-expand-context-frame-id ctx_43)))" -"(if or-part_66" -" or-part_66" -"(let-values(((or-part_165)" +"(let-values(((or-part_67)(root-expand-context-frame-id ctx_43)))" +"(if or-part_67" +" or-part_67" +"(let-values(((or-part_164)" "(if parent-ctx_0" "(internal-definition-context-frame-id parent-ctx_0)" " #f)))" -"(if or-part_165 or-part_165(gensym)))))))" +"(if or-part_164 or-part_164(gensym)))))))" "(let-values(((sc_31)(new-scope 'intdef)))" "(let-values(((def-ctx-scopes_4)(expand-context-def-ctx-scopes ctx_43)))" "(begin" @@ -40505,7 +40532,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_397 intdef_0)" +"(lambda(ids_25 s_403 intdef_0)" "(begin" " 'syntax-local-bind-syntaxes" "(let-values((()" @@ -40517,9 +40544,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_72)(not s_397)))(if or-part_72 or-part_72(syntax?$1 s_397)))" +"(if(let-values(((or-part_73)(not s_403)))(if or-part_73 or-part_73(syntax?$1 s_403)))" "(void)" -" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_397)))" +" (let-values () (raise-argument-error 'syntax-local-bind-syntaxes \"(or/c syntax? #f)\" s_403)))" "(values))))" "(let-values((()" "(begin" @@ -40648,11 +40675,11 @@ static const char *startup_source = " null" " lst_291))))))" "(let-values(((vals_5)" -"(if s_397" +"(if s_403" "(let-values()" "(let-values(((input-s_0)" "(flip-introduction-scopes" -"(let-values(((s51_0) s_397)" +"(let-values(((s51_0) s_403)" "((intdef52_0) intdef_0)" "((temp53_1) #t))" "(add-intdef-scopes21.1 #f #f temp53_1 #t s51_0 intdef52_0))" @@ -40710,47 +40737,47 @@ static const char *startup_source = " input-s_0" " ids_25" "(let-values(((temp54_0)" -"(let-values(((v_188) ctx_44))" -"(let-values(((the-struct_64) v_188))" +"(let-values(((v_187) ctx_44))" +"(let-values(((the-struct_63) v_187))" "(if(expand-context/outer?" -" the-struct_64)" +" the-struct_63)" "(let-values(((env57_0) tmp-env_0)" "((inner58_0)" "(root-expand-context/outer-inner" -" v_188)))" +" v_187)))" "(expand-context/outer1.1" " inner58_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_64)" +" the-struct_63)" "(root-expand-context/outer-use-site-scopes" -" the-struct_64)" +" the-struct_63)" "(root-expand-context/outer-frame-id" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-context" -" the-struct_64)" +" the-struct_63)" " env57_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-scopes" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-def-ctx-scopes" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-binding-layer" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-reference-records" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-only-immediate?" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-need-eventually-defined" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-current-introduction-scopes" -" the-struct_64)" +" the-struct_63)" "(expand-context/outer-name" -" the-struct_64)))" +" the-struct_63)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_64)))))" +" the-struct_63)))))" "((temp55_2) 'expression)" "((intdef56_0) intdef_0))" "(make-local-expand-context37.1" @@ -40915,7 +40942,7 @@ static const char *startup_source = "(begin" " 'internal-definition-context-introduce13" "(let-values(((intdef_2) intdef11_0))" -"(let-values(((s_398) s12_1))" +"(let-values(((s_404) s12_1))" "(let-values(((mode_12)(if mode10_0 mode9_0 'flip)))" "(let-values()" "(begin" @@ -40926,11 +40953,11 @@ static const char *startup_source = " 'internal-definition-context-introduce" " \"internal-definition-context?\"" " intdef_2)))" -"(if(syntax?$1 s_398)" +"(if(syntax?$1 s_404)" "(void)" "(let-values()" -" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_398)))" -"(let-values(((s59_0) s_398)" +" (raise-argument-error 'internal-definition-context-introduce \"syntax?\" s_404)))" +"(let-values(((s59_0) s_404)" "((intdef60_0) intdef_2)" "((temp61_1)" "(let-values(((tmp_32) mode_12))" @@ -40947,9 +40974,9 @@ static const char *startup_source = " mode_12))))))))" "(add-intdef-scopes21.1 temp61_1 #t #f #f s59_0 intdef60_0)))))))))))" "(case-lambda" -"((intdef_3 s_197)" -"(begin 'internal-definition-context-introduce(internal-definition-context-introduce13_0 intdef_3 s_197 #f #f)))" -"((intdef_4 s_198 mode9_1)(internal-definition-context-introduce13_0 intdef_4 s_198 mode9_1 #t)))))" +"((intdef_3 s_200)" +"(begin 'internal-definition-context-introduce(internal-definition-context-introduce13_0 intdef_3 s_200 #f #f)))" +"((intdef_4 s_62 mode9_1)(internal-definition-context-introduce13_0 intdef_4 s_62 mode9_1 #t)))))" "(define-values" "(1/internal-definition-context-seal)" "(lambda(intdef_5)" @@ -40970,8 +40997,8 @@ static const char *startup_source = "(if(identifier? id_73)" "(void)" " (let-values () (raise-argument-error 'identifier-remove-from-definition-context \"identifier?\" id_73)))" -"(if(let-values(((or-part_266)(1/internal-definition-context? intdef_6)))" -"(if or-part_266 or-part_266(if(list? intdef_6)(andmap2 1/internal-definition-context? intdef_6) #f)))" +"(if(let-values(((or-part_264)(1/internal-definition-context? intdef_6)))" +"(if or-part_264 or-part_264(if(list? intdef_6)(andmap2 1/internal-definition-context? intdef_6) #f)))" "(void)" "(let-values()" "(raise-argument-error" @@ -41030,7 +41057,7 @@ static const char *startup_source = "(unbox" "(internal-definition-context-env-mixins" " intdef_8))))" -"((letrec-values(((loop_95)" +"((letrec-values(((loop_96)" "(lambda(env_16 env-mixins_2)" "(begin" " 'loop" @@ -41040,17 +41067,17 @@ static const char *startup_source = "(let-values(((env-mixin_1)" "(car" " env-mixins_2)))" -"(let-values(((or-part_267)" +"(let-values(((or-part_265)" "(hash-ref" "(env-mixin-cache" " env-mixin_1)" " env_16" " #f)))" -"(if or-part_267" -" or-part_267" +"(if or-part_265" +" or-part_265" "(let-values(((new-env_0)" "(env-extend" -"(loop_95" +"(loop_96" " env_16" "(cdr" " env-mixins_2))" @@ -41065,7 +41092,7 @@ static const char *startup_source = " env_16" " new-env_0)" " new-env_0)))))))))))" -" loop_95)" +" loop_96)" " env_14" " env-mixins_1)))))" "(values env_15)))))" @@ -41079,7 +41106,7 @@ static const char *startup_source = "(lambda(action16_0 action18_0 always?15_0 always?17_0 s19_0 intdefs20_0)" "(begin" " 'add-intdef-scopes21" -"(let-values(((s_399) s19_0))" +"(let-values(((s_405) 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)))" @@ -41092,31 +41119,31 @@ static const char *startup_source = "(begin" " #t" "((letrec-values(((for-loop_180)" -"(lambda(s_385 a_50)" +"(lambda(s_391 a_50)" "(begin" " 'for-loop" "(if(pair? a_50)" "(let-values(((intdef_9)(car a_50)))" -"(let-values(((s_205)" -"(let-values(((s_206) s_385))" -"(if(let-values(((or-part_268) always?_0))" -"(if or-part_268" -" or-part_268" +"(let-values(((s_209)" +"(let-values(((s_210) s_391))" +"(if(let-values(((or-part_266) always?_0))" +"(if or-part_266" +" or-part_266" "(internal-definition-context-add-scope?" " intdef_9)))" -"(let-values(((s_92) s_206))" -"(let-values(((s_315)" +"(let-values(((s_94) s_210))" +"(let-values(((s_319)" "(let-values()" "(action_0" -" s_92" +" s_94" "(internal-definition-context-scope" " intdef_9)))))" -"(values s_315)))" -" s_206))))" -"(if(not #f)(for-loop_180 s_205(cdr a_50)) s_205)))" -" s_385)))))" +"(values s_319)))" +" s_210))))" +"(if(not #f)(for-loop_180 s_209(cdr a_50)) s_209)))" +" s_391)))))" " for-loop_180)" -" s_399" +" s_405" " x_77)))))))))))" "(define-values" "(make-local-expand-context37.1)" @@ -41142,9 +41169,9 @@ static const char *startup_source = "(let-values(((track-to-be-defined?_0)(if track-to-be-defined?35_0 track-to-be-defined?29_0 #f)))" "(let-values()" "(let-values(((same-kind?_0)" -"(let-values(((or-part_269)(eq? context_9(expand-context-context ctx_45))))" -"(if or-part_269" -" or-part_269" +"(let-values(((or-part_267)(eq? context_9(expand-context-context ctx_45))))" +"(if or-part_267" +" or-part_267" "(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_113) #f)))" @@ -41152,20 +41179,20 @@ static const char *startup_source = "(if(expand-context-def-ctx-scopes ctx_45)" "(unbox(expand-context-def-ctx-scopes ctx_45))" " null)))" -"(let-values(((v_189) ctx_45))" -"(let-values(((the-struct_18) v_189))" +"(let-values(((v_188) ctx_45))" +"(let-values(((the-struct_18) v_188))" "(if(expand-context/outer? the-struct_18)" "(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_270)(eq? context_9 'module)))" -"(if or-part_270" -" or-part_270" -"(let-values(((or-part_271)(eq? context_9 'module-begin)))" -"(if or-part_271 or-part_271(list? context_9)))))" -"(let-values(((or-part_272)" +"(if(let-values(((or-part_268)(eq? context_9 'module)))" +"(if or-part_268" +" or-part_268" +"(let-values(((or-part_269)(eq? context_9 'module-begin)))" +"(if or-part_269 or-part_269(list? context_9)))))" +"(let-values(((or-part_270)" "(root-expand-context-use-site-scopes ctx_45)))" -"(if or-part_272 or-part_272(box null)))" +"(if or-part_270 or-part_270(box null)))" " #f))" "((frame-id65_0)" "(let-values(((x_78)" @@ -41202,10 +41229,10 @@ static const char *startup_source = "(let-values()" " 'all)" "(let-values()" -"(let-values(((or-part_273)" +"(let-values(((or-part_271)" " frame-id_11))" -"(if or-part_273" -" or-part_273" +"(if or-part_271" +" or-part_271" " i-frame-id_0))))))))" "(values frame-id_12)))))" "(if(not #f)" @@ -41225,22 +41252,22 @@ static const char *startup_source = " #f)))" "((post-expansion-scope-action67_0)" "(if intdefs_2" -"(lambda(s_214 placeholder-sc_0)" +"(lambda(s_218 placeholder-sc_0)" "(begin" " 'post-expansion-scope-action67" -"(let-values(((s73_1) s_214)((intdefs74_0) intdefs_2))" +"(let-values(((s73_1) s_218)((intdefs74_0) intdefs_2))" "(add-intdef-scopes21.1 #f #f #f #f s73_1 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))" "((current-introduction-scopes70_0) null)" "((need-eventually-defined71_0)" -"(let-values(((ht_138)(expand-context-need-eventually-defined ctx_45)))" +"(let-values(((ht_137)(expand-context-need-eventually-defined ctx_45)))" "(if track-to-be-defined?_0" -"(let-values() ht_138)" -"(if ht_138(let-values()(make-hasheqv))(let-values() #f)))))" +"(let-values() ht_137)" +"(if ht_137(let-values()(make-hasheqv))(let-values() #f)))))" "((inner72_0)" -"(let-values(((the-struct_32)(root-expand-context/outer-inner v_189)))" +"(let-values(((the-struct_32)(root-expand-context/outer-inner v_188)))" "(if(expand-context/inner? the-struct_32)" "(let-values(((to-parsed?75_0)" "(if to-parsed-ok?_0" @@ -41251,8 +41278,8 @@ static const char *startup_source = "((stops78_0)" "(free-id-set" " phase_113" -"(let-values(((or-part_274) all-stop-ids_0))" -"(if or-part_274 or-part_274 null)))))" +"(let-values(((or-part_272) all-stop-ids_0))" +"(if or-part_272 or-part_272 null)))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi the-struct_32)" "(root-expand-context/inner-module-scopes the-struct_32)" @@ -41306,7 +41333,7 @@ static const char *startup_source = " the-struct_18))))))))))))))))))" "(define-values" "(flip-introduction-scopes)" -"(lambda(s_122 ctx_46)(begin(flip-scopes s_122(expand-context-current-introduction-scopes ctx_46)))))" +"(lambda(s_124 ctx_46)(begin(flip-scopes s_124(expand-context-current-introduction-scopes ctx_46)))))" "(define-values" "(1/syntax-transforming?)" "(lambda()" @@ -41345,21 +41372,21 @@ static const char *startup_source = "(expand-context-context ctx_50)))))" "(define-values" "(1/syntax-local-introduce)" -"(lambda(s_400)" +"(lambda(s_406)" "(begin" " 'syntax-local-introduce" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_400)" +"(if(syntax?$1 s_406)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_400)))" +" (let-values () (raise-argument-error 'syntax-local-introduce \"syntax?\" s_406)))" "(values))))" "(let-values(((ctx_51)" "(let-values(((temp68_0) 'syntax-local-introduce))" "(get-current-expand-context17.1 #f #f temp68_0 #t))))" -"(flip-introduction-scopes s_400 ctx_51))))))))" +"(flip-introduction-scopes s_406 ctx_51))))))))" "(define-values" "(1/syntax-local-identifier-as-binding)" "(lambda(id_77)" @@ -41410,21 +41437,21 @@ static const char *startup_source = "(lambda(s76_0 mode74_0 mode75_0)" "(begin" " 'core77" -"(let-values(((s_81) s76_0))" +"(let-values(((s_83) s76_0))" "(let-values(((mode_13)(if mode75_0 mode74_0 'flip)))" "(let-values()" "(begin" -"(if(syntax?$1 s_81)" +"(if(syntax?$1 s_83)" "(void)" "(let-values()" -" (raise-argument-error 'syntax-introducer \"syntax?\" s_81)))" +" (raise-argument-error 'syntax-introducer \"syntax?\" s_83)))" "(let-values(((tmp_33) mode_13))" "(if(equal? tmp_33 'add)" -"(let-values()(add-scope s_81 sc_32))" +"(let-values()(add-scope s_83 sc_32))" "(if(equal? tmp_33 'remove)" -"(let-values()(remove-scope s_81 sc_32))" +"(let-values()(remove-scope s_83 sc_32))" "(if(equal? tmp_33 'flip)" -"(let-values()(flip-scope s_81 sc_32))" +"(let-values()(flip-scope s_83 sc_32))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" @@ -41432,7 +41459,7 @@ static const char *startup_source = " mode_13))))))))))))))" "(case-lambda" "((s_43)(core77_0 s_43 #f #f))" -"((s_181 mode74_1)(core77_0 s_181 mode74_1 #t)))))))))))" +"((s_183 mode74_1)(core77_0 s_183 mode74_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)))))" @@ -41461,8 +41488,8 @@ static const char *startup_source = "(let-values((()" "(begin" "(if((lambda(x_14)" -"(let-values(((or-part_275)(not x_14)))" -"(if or-part_275 or-part_275(syntax?$1 x_14))))" +"(let-values(((or-part_22)(not x_14)))" +"(if or-part_22 or-part_22(syntax?$1 x_14))))" " base-s_0)" "(void)" "(let-values()" @@ -41484,13 +41511,13 @@ static const char *startup_source = "(let-values(((ext-scs_0)(syntax-scope-set ext-s_0 phase_114)))" "(let-values(((base-scs_0)" "(syntax-scope-set" -"(let-values(((or-part_276) base-s_0))" -"(if or-part_276 or-part_276 empty-syntax))" +"(let-values(((or-part_273) base-s_0))" +"(if or-part_273 or-part_273 empty-syntax))" " phase_114)))" "(let-values(((use-base-scs_0)" "(if(subset? base-scs_0 ext-scs_0)" " base-scs_0" -"(let-values(((or-part_32)" +"(let-values(((or-part_33)" "(if(identifier? base-s_0)" "(let-values(((base-s80_0) base-s_0)" "((phase81_0) phase_114)" @@ -41507,7 +41534,7 @@ static const char *startup_source = " base-s80_0" " phase81_0))" " #f)))" -"(if or-part_32 or-part_32(seteq))))))" +"(if or-part_33 or-part_33(seteq))))))" "(let-values(((delta-scs_0)" "(set->list(set-subtract ext-scs_0 use-base-scs_0))))" "(let-values(((maybe-taint_0)" @@ -41516,7 +41543,7 @@ static const char *startup_source = "(lambda(s85_0 mode83_0 mode84_0)" "(begin" " 'core86" -"(let-values(((s_401) s85_0))" +"(let-values(((s_407) s85_0))" "(let-values(((mode_14)" "(if mode84_0 mode83_0 'add)))" "(let-values()" @@ -41524,13 +41551,13 @@ static const char *startup_source = "(let-values(((tmp_34) mode_14))" "(if(equal? tmp_34 'add)" "(let-values()" -"(add-scopes s_401 delta-scs_0))" +"(add-scopes s_407 delta-scs_0))" "(if(equal? tmp_34 'remove)" "(let-values()" -"(remove-scopes s_401 delta-scs_0))" +"(remove-scopes s_407 delta-scs_0))" "(if(equal? tmp_34 'flip)" "(let-values()" -"(flip-scopes s_401 delta-scs_0))" +"(flip-scopes s_407 delta-scs_0))" "(let-values()" "(raise-argument-error" " 'syntax-introducer" @@ -41538,7 +41565,7 @@ static const char *startup_source = " mode_14))))))))))))))" "(case-lambda" "((s_15)(core86_0 s_15 #f #f))" -"((s_402 mode83_1)(core86_0 s_402 mode83_1 #t))))))))))))))))))))))" +"((s_408 mode83_1)(core86_0 s_408 mode83_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_2)(make-syntax-delta-introducer9_0 ext-s_2 base-s_2 phase5_2 #t)))))" @@ -41577,9 +41604,9 @@ static const char *startup_source = "(let-values((()" "(begin" "(if((lambda(x_79)" -"(let-values(((or-part_207)(not x_79)))" -"(if or-part_207" -" or-part_207" +"(let-values(((or-part_206)(not x_79)))" +"(if or-part_206" +" or-part_206" "((lambda(p_26)" "(if(procedure? p_26)(procedure-arity-includes? p_26 0) #f))" " x_79))))" @@ -41594,8 +41621,8 @@ static const char *startup_source = "(let-values((()" "(begin" "(if((lambda(x_21)" -"(let-values(((or-part_208)(not x_21)))" -"(if or-part_208 or-part_208(1/internal-definition-context? x_21))))" +"(let-values(((or-part_207)(not x_21)))" +"(if or-part_207 or-part_207(1/internal-definition-context? x_21))))" " intdef_11)" "(void)" "(let-values()" @@ -41609,14 +41636,14 @@ static const char *startup_source = "(get-current-expand-context17.1 #f #f who89_0 #t))))" "(let-values(((ctx_55)" "(if intdef_11" -"(let-values(((v_190) current-ctx_0))" -"(let-values(((the-struct_13) v_190))" +"(let-values(((v_189) current-ctx_0))" +"(let-values(((the-struct_13) v_189))" "(if(expand-context/outer? the-struct_13)" "(let-values(((env90_0)" "(add-intdef-bindings" "(expand-context-env current-ctx_0)" " intdef_11))" -"((inner91_0)(root-expand-context/outer-inner v_190)))" +"((inner91_0)(root-expand-context/outer-inner v_189)))" "(expand-context/outer1.1" " inner91_0" "(root-expand-context/outer-post-expansion-scope the-struct_13)" @@ -41647,7 +41674,7 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((phase_7)(expand-context-phase ctx_55)))" -"((letrec-values(((loop_96)" +"((letrec-values(((loop_97)" "(lambda(id_80)" "(begin" " 'loop" @@ -41710,8 +41737,8 @@ static const char *startup_source = " b95_0" " ctx96_0" " id97_1))))" -"(if(let-values(((or-part_277)(variable? v_37)))" -"(if or-part_277 or-part_277(core-form? v_37)))" +"(if(let-values(((or-part_274)(variable? v_37)))" +"(if or-part_274 or-part_274(core-form? v_37)))" "(let-values()" "(begin" "(let-values(((obs_35)" @@ -41753,12 +41780,12 @@ static const char *startup_source = "(values" " v_37" "(1/rename-transformer-target v_37))" -"(loop_96" +"(loop_97" "(1/rename-transformer-target v_37))))" "(if immediate?_1" "(let-values()(values v_37 #f))" "(let-values() v_37)))))))))))))))" -" loop_96)" +" loop_97)" "(flip-introduction-scopes id_79 ctx_55))))))))))))))))))" "(define-values" "(1/syntax-local-value)" @@ -41812,11 +41839,11 @@ static const char *startup_source = "((id_88 failure-thunk27_1)(syntax-local-value/immediate32_0 id_88 failure-thunk27_1 #f #t #f)))))" "(define-values" "(do-lift-values-expression)" -"(lambda(who_18 n_28 s_193)" +"(lambda(who_18 n_28 s_195)" "(begin" "(let-values((()" "(begin" -" (if (syntax?$1 s_193) (void) (let-values () (raise-argument-error who_18 \"syntax?\" s_193)))" +" (if (syntax?$1 s_195) (void) (let-values () (raise-argument-error who_18 \"syntax?\" s_195)))" "(values))))" "(let-values((()" "(begin" @@ -41882,27 +41909,27 @@ static const char *startup_source = "(begin" "(let-values(((obs_37)(expand-context-observer ctx_56)))" "(if obs_37" -"(let-values()(let-values()(call-expand-observe obs_37 'lift-expr ids_26 s_193)))" +"(let-values()(let-values()(call-expand-observe obs_37 'lift-expr ids_26 s_195)))" "(void)))" "(map2" "(lambda(id_89)(flip-introduction-scopes id_89 ctx_56))" "(add-lifted!" " lifts_0" " ids_26" -"(flip-introduction-scopes s_193 ctx_56)" +"(flip-introduction-scopes s_195 ctx_56)" "(expand-context-phase ctx_56))))))))))))))" "(define-values" "(1/syntax-local-lift-expression)" -"(lambda(s_403)" +"(lambda(s_409)" "(begin" " 'syntax-local-lift-expression" -"(let-values()(let-values()(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_403)))))))" +"(let-values()(let-values()(car(do-lift-values-expression 'syntax-local-lift-expression 1 s_409)))))))" "(define-values" "(1/syntax-local-lift-values-expression)" -"(lambda(n_29 s_312)" +"(lambda(n_29 s_316)" "(begin" " 'syntax-local-lift-values-expression" -"(let-values()(let-values()(do-lift-values-expression 'syntax-local-lift-values-expression n_29 s_312))))))" +"(let-values()(let-values()(do-lift-values-expression 'syntax-local-lift-values-expression n_29 s_316))))))" "(define-values" "(1/syntax-local-lift-context)" "(lambda()" @@ -41916,23 +41943,23 @@ static const char *startup_source = "(root-expand-context-lift-key ctx_57)))))))" "(define-values" "(1/syntax-local-lift-module)" -"(lambda(s_404)" +"(lambda(s_65)" "(begin" " 'syntax-local-lift-module" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_404)" +"(if(syntax?$1 s_65)" "(void)" -" (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_404)))" +" (let-values () (raise-argument-error 'syntax-local-lift-module \"syntax?\" s_65)))" "(values))))" "(let-values(((ctx_58)" "(let-values(((who115_0) 'syntax-local-lift-module))" "(get-current-expand-context17.1 #f #f who115_0 #t))))" "(let-values(((phase_115)(expand-context-phase ctx_58)))" "(begin" -"(let-values(((tmp_35)(core-form-sym s_404 phase_115)))" +"(let-values(((tmp_35)(core-form-sym s_65 phase_115)))" "(if(if(equal? tmp_35 'module) #t(equal? tmp_35 'module*))" "(let-values()" "(let-values(((lifts_8)(expand-context-module-lifts ctx_58)))" @@ -41944,13 +41971,13 @@ static const char *startup_source = " 'syntax-local-lift-module" " \"not currently transforming within a module declaration or top level\"" " \"form to lift\"" -" s_404)))" -"(add-lifted-module! lifts_8(flip-introduction-scopes s_404 ctx_58) phase_115))))" +" s_65)))" +"(add-lifted-module! lifts_8(flip-introduction-scopes s_65 ctx_58) phase_115))))" "(let-values()" -" (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_404))))" +" (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_65))))" "(let-values(((obs_38)(expand-context-observer ctx_58)))" "(if obs_38" -"(let-values()(let-values()(call-expand-observe obs_38 'lift-statement s_404)))" +"(let-values()(let-values()(call-expand-observe obs_38 'lift-statement s_65)))" "(void))))))))))))" "(define-values" "(do-local-lift-to-module54.1)" @@ -41973,7 +42000,7 @@ static const char *startup_source = "(begin" " 'do-local-lift-to-module54" "(let-values(((who_19) who52_0))" -"(let-values(((s_405) s53_1))" +"(let-values(((s_410) 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)))" @@ -41983,21 +42010,21 @@ static const char *startup_source = "(let-values(((pre-wrap_0)" "(if pre-wrap49_0" " pre-wrap40_0" -"(lambda(s_206 phase_116 lift-ctx_1)(begin 'pre-wrap s_206)))))" +"(lambda(s_210 phase_116 lift-ctx_1)(begin 'pre-wrap s_210)))))" "(let-values(((shift-wrap_0)" "(if shift-wrap50_0" " shift-wrap41_0" -"(lambda(s_406 phase_117 lift-ctx_2)(begin 'shift-wrap s_406)))))" +"(lambda(s_411 phase_117 lift-ctx_2)(begin 'shift-wrap s_411)))))" "(let-values(((post-wrap_0)" "(if post-wrap51_0" " post-wrap42_0" -"(lambda(s_318 phase_118 lift-ctx_3)(begin 'post-wrap s_318)))))" +"(lambda(s_322 phase_118 lift-ctx_3)(begin 'post-wrap s_322)))))" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_405)" +"(if(syntax?$1 s_410)" "(void)" -" (let-values () (raise-argument-error who_19 \"syntax?\" s_405)))" +" (let-values () (raise-argument-error who_19 \"syntax?\" s_410)))" "(values))))" "(let-values((()(begin(more-checks_0)(values))))" "(let-values(((ctx_59)" @@ -42013,12 +42040,12 @@ static const char *startup_source = " who_19" " no-target-msg_0" " \"form to lift\"" -" s_405)))" +" s_410)))" "(values))))" "(let-values(((phase_119)(expand-context-phase ctx_59)))" "(let-values(((wrt-phase_1)(get-wrt-phase_0 lift-ctx_4)))" "(let-values(((added-s_0)" -"(if intro?_0(flip-introduction-scopes s_405 ctx_59) s_405)))" +"(if intro?_0(flip-introduction-scopes s_410 ctx_59) s_410)))" "(let-values(((pre-s_0)(pre-wrap_0 added-s_0 phase_119 lift-ctx_4)))" "(let-values(((shift-s_0)" "(let-values(((start_41) phase_119)" @@ -42031,30 +42058,30 @@ static const char *startup_source = "(let-values()" "(check-range start_41 end_31 inc_25)))" "((letrec-values(((for-loop_204)" -"(lambda(s_97 pos_24)" +"(lambda(s_99 pos_24)" "(begin" " 'for-loop" "(if(> pos_24 end_31)" "(let-values(((phase_55)" " pos_24))" -"(let-values(((s_407)" -"(let-values(((s_408)" -" s_97))" -"(let-values(((s_409)" +"(let-values(((s_412)" +"(let-values(((s_413)" +" s_99))" +"(let-values(((s_414)" "(let-values()" "(shift-wrap_0" -" s_408" +" s_413" "(sub1" " phase_55)" " lift-ctx_4))))" "(values" -" s_409)))))" +" s_414)))))" "(if(not #f)" "(for-loop_204" -" s_407" +" s_412" "(+ pos_24 inc_25))" -" s_407)))" -" s_97)))))" +" s_412)))" +" s_99)))))" " for-loop_204)" " pre-s_0" " start_41)))))" @@ -42065,7 +42092,7 @@ static const char *startup_source = "(values ctx_59 post-s_1))))))))))))))))))))))))))))" "(define-values" "(1/syntax-local-lift-require)" -"(lambda(s_109 use-s_1)" +"(lambda(s_111 use-s_1)" "(begin" " 'syntax-local-lift-require" "(let-values()" @@ -42073,7 +42100,7 @@ static const char *startup_source = "(let-values(((sc_33)(new-scope 'macro)))" "(let-values(((ctx_4 added-s_1)" "(let-values(((who118_0) 'syntax-local-lift-require)" -"((temp119_1)(datum->syntax$1 #f s_109))" +"((temp119_1)(datum->syntax$1 #f s_111))" " ((temp120_1) \"could not find target context\")" "((temp121_0) #f)" "((temp122_0)" @@ -42086,11 +42113,11 @@ static const char *startup_source = "((require-lift-context-wrt-phase124_0) require-lift-context-wrt-phase)" "((add-lifted-require!125_0) add-lifted-require!)" "((temp126_1)" -"(lambda(s_410 phase_120 require-lift-ctx_0)" -"(require-spec-shift-for-syntax s_410)))" +"(lambda(s_415 phase_120 require-lift-ctx_0)" +"(require-spec-shift-for-syntax s_415)))" "((temp127_1)" -"(lambda(s_115 phase_121 require-lift-ctx_1)" -"(wrap-form '#%require(add-scope s_115 sc_33) phase_121))))" +"(lambda(s_117 phase_121 require-lift-ctx_1)" +"(wrap-form '#%require(add-scope s_117 sc_33) phase_121))))" "(do-local-lift-to-module54.1" " add-lifted-require!125_0" " expand-context-require-lifts123_0" @@ -42124,23 +42151,23 @@ static const char *startup_source = " result-s_6))))))))))" "(define-values" "(1/syntax-local-lift-provide)" -"(lambda(s_116)" +"(lambda(s_118)" "(begin" " 'syntax-local-lift-provide" "(let-values()" "(let-values()" "(let-values(((ctx_60 result-s_7)" "(let-values(((who129_0) 'syntax-local-lift-provide)" -"((s130_0) s_116)" +"((s130_0) s_118)" " ((temp131_1) \"not expanding in a module run-time body\")" "((expand-context-to-module-lifts132_0) expand-context-to-module-lifts)" "((to-module-lift-context-wrt-phase133_0) to-module-lift-context-wrt-phase)" "((add-lifted-to-module-provide!134_0) add-lifted-to-module-provide!)" "((temp135_0)" -"(lambda(s_411 phase_122 to-module-lift-ctx_0)(wrap-form 'for-syntax s_411 #f)))" +"(lambda(s_416 phase_122 to-module-lift-ctx_0)(wrap-form 'for-syntax s_416 #f)))" "((temp136_0)" -"(lambda(s_412 phase_123 to-module-lift-ctx_1)" -"(wrap-form '#%provide s_412 phase_123))))" +"(lambda(s_417 phase_123 to-module-lift-ctx_1)" +"(wrap-form '#%provide s_417 phase_123))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-provide!134_0" " expand-context-to-module-lifts132_0" @@ -42164,14 +42191,14 @@ static const char *startup_source = "(void)))))))))" "(define-values" "(1/syntax-local-lift-module-end-declaration)" -"(lambda(s_413)" +"(lambda(s_418)" "(begin" " 'syntax-local-lift-module-end-declaration" "(let-values()" "(let-values()" "(let-values(((ctx_61 also-s_0)" "(let-values(((who138_0) 'syntax-local-lift-module-end-declaration)" -"((s139_0) s_413)" +"((s139_0) s_418)" "((temp140_2)" " \"not currently transforming an expression within a module declaration\")" "((expand-context-to-module-lifts141_0) expand-context-to-module-lifts)" @@ -42183,8 +42210,8 @@ static const char *startup_source = "(wrap-form '#%expression orig-s_32 phase_124)" " orig-s_32)))" "((temp145_2)" -"(lambda(s_125 phase_125 to-module-lift-ctx_3)" -"(wrap-form 'begin-for-syntax s_125 phase_125))))" +"(lambda(s_127 phase_125 to-module-lift-ctx_3)" +"(wrap-form 'begin-for-syntax s_127 phase_125))))" "(do-local-lift-to-module54.1" " add-lifted-to-module-end!143_0" " expand-context-to-module-lifts141_0" @@ -42204,15 +42231,15 @@ static const char *startup_source = " s139_0))))" "(let-values(((obs_26)(expand-context-observer ctx_61)))" "(if obs_26" -"(let-values()(let-values()(call-expand-observe obs_26 'lift-statement s_413)))" +"(let-values()(let-values()(call-expand-observe obs_26 'lift-statement s_418)))" "(void)))))))))" "(define-values" "(wrap-form)" -"(lambda(sym_66 s_126 phase_126)" +"(lambda(sym_66 s_128 phase_126)" "(begin" "(datum->syntax$1" " #f" -"(list(datum->syntax$1(if phase_126(syntax-shift-phase-level$1 core-stx phase_126) #f) sym_66) s_126)))))" +"(list(datum->syntax$1(if phase_126(syntax-shift-phase-level$1 core-stx phase_126) #f) sym_66) s_128)))))" "(define-values" "(1/syntax-local-module-defined-identifiers)" "(lambda()" @@ -42242,8 +42269,8 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_184)(not mod-path_8)))" -"(if or-part_184 or-part_184(1/module-path? mod-path_8)))" +"(if(let-values(((or-part_183)(not mod-path_8)))" +"(if or-part_183 or-part_183(1/module-path? mod-path_8)))" "(void)" "(let-values()" "(raise-argument-error" @@ -42253,8 +42280,8 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_220)(eq? phase-level_21 #t)))" -"(if or-part_220 or-part_220(phase? phase-level_21)))" +"(if(let-values(((or-part_219)(eq? phase-level_21 #t)))" +"(if or-part_219 or-part_219(phase? phase-level_21)))" "(void)" "(let-values()" "(raise-argument-error" @@ -42283,18 +42310,18 @@ static const char *startup_source = "(if(eq? phase-level_21 #t) 'all phase-level_21))))" "(if requireds_0" "(reverse$1" -"(let-values(((ht_139)(requireds->phase-ht requireds_0)))" +"(let-values(((ht_138)(requireds->phase-ht requireds_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_139)))" +"(let-values()(check-in-hash ht_138)))" "((letrec-values(((for-loop_261)" "(lambda(fold-var_206 i_167)" "(begin" " 'for-loop" "(if i_167" "(let-values(((phase_127 ids_27)" -"(hash-iterate-key+value ht_139 i_167)))" +"(hash-iterate-key+value ht_138 i_167)))" "(let-values(((fold-var_262)" "(let-values(((fold-var_263) fold-var_206))" "(let-values(((fold-var_264)" @@ -42307,12 +42334,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_261" " fold-var_262" -"(hash-iterate-next ht_139 i_167))" +"(hash-iterate-next ht_138 i_167))" " fold-var_262)))" " fold-var_206)))))" " for-loop_261)" " null" -"(hash-iterate-first ht_139)))))" +"(hash-iterate-first ht_138)))))" " #f)))))))))))))" "(define-values" "(requireds->phase-ht)" @@ -42322,23 +42349,23 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_302)))" "((letrec-values(((for-loop_262)" -"(lambda(ht_140 lst_303)" +"(lambda(ht_139 lst_303)" "(begin" " 'for-loop" "(if(pair? lst_303)" -"(let-values(((r_42)(unsafe-car lst_303))((rest_169)(unsafe-cdr lst_303)))" -"(let-values(((ht_141)" -"(let-values(((ht_142) ht_140))" -"(let-values(((ht_143)" +"(let-values(((r_41)(unsafe-car lst_303))((rest_169)(unsafe-cdr lst_303)))" +"(let-values(((ht_140)" +"(let-values(((ht_141) ht_139))" +"(let-values(((ht_142)" "(let-values()" "(hash-update" -" ht_142" -"(required-phase r_42)" -"(lambda(l_68)(cons(required-id r_42) l_68))" +" ht_141" +"(required-phase r_41)" +"(lambda(l_72)(cons(required-id r_41) l_72))" " null))))" -"(values ht_143)))))" -"(if(not #f)(for-loop_262 ht_141 rest_169) ht_141)))" -" ht_140)))))" +"(values ht_142)))))" +"(if(not #f)(for-loop_262 ht_140 rest_169) ht_140)))" +" ht_139)))))" " for-loop_262)" "(hasheqv)" " lst_302))))))" @@ -42351,9 +42378,9 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_278)(1/module-path? mod-path_9)))" -"(if or-part_278" -" or-part_278" +"(if(let-values(((or-part_275)(1/module-path? mod-path_9)))" +"(if or-part_275" +" or-part_275" "(if(syntax?$1 mod-path_9)(1/module-path?(syntax->datum$1 mod-path_9)) #f)))" "(void)" "(let-values()" @@ -42382,18 +42409,18 @@ static const char *startup_source = "(void)" "(let-values()(raise-unknown-module-error 'syntax-local-module-exports mod-name_18)))" "(reverse$1" -"(let-values(((ht_144)(module-provides m_19)))" +"(let-values(((ht_143)(module-provides m_19)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_144)))" +"(let-values()(check-in-hash ht_143)))" "((letrec-values(((for-loop_263)" "(lambda(fold-var_265 i_12)" "(begin" " 'for-loop" "(if i_12" "(let-values(((phase_128 syms_22)" -"(hash-iterate-key+value ht_144 i_12)))" +"(hash-iterate-key+value ht_143 i_12)))" "(let-values(((fold-var_266)" "(let-values(((fold-var_267) fold-var_265))" "(let-values(((fold-var_268)" @@ -42403,7 +42430,7 @@ static const char *startup_source = "(cons" " phase_128" "(reverse$1" -"(let-values(((ht_145)" +"(let-values(((ht_144)" " syms_22))" "(begin" "(if(variable-reference-from-unsafe?" @@ -42411,7 +42438,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash-keys" -" ht_145)))" +" ht_144)))" "((letrec-values(((for-loop_264)" "(lambda(fold-var_269" " i_168)" @@ -42420,7 +42447,7 @@ static const char *startup_source = "(if i_168" "(let-values(((sym_67)" "(hash-iterate-key" -" ht_145" +" ht_144" " i_168)))" "(let-values(((fold-var_270)" "(let-values(((fold-var_271)" @@ -42438,23 +42465,23 @@ static const char *startup_source = "(for-loop_264" " fold-var_270" "(hash-iterate-next" -" ht_145" +" ht_144" " i_168))" " fold-var_270)))" " fold-var_269)))))" " for-loop_264)" " null" "(hash-iterate-first" -" ht_145)))))))" +" ht_144)))))))" " fold-var_267))))" "(values fold-var_268)))))" "(if(not #f)" -"(for-loop_263 fold-var_266(hash-iterate-next ht_144 i_12))" +"(for-loop_263 fold-var_266(hash-iterate-next ht_143 i_12))" " fold-var_266)))" " fold-var_265)))))" " for-loop_263)" " null" -"(hash-iterate-first ht_144))))))))))))))))" +"(hash-iterate-first ht_143))))))))))))))))" "(define-values" "(1/syntax-local-submodules)" "(lambda()" @@ -42467,17 +42494,17 @@ static const char *startup_source = "(get-current-expand-context17.1 #f #f who153_0 #t))))" "(let-values(((submods_3)(expand-context-declared-submodule-names ctx_65)))" "(reverse$1" -"(let-values(((ht_146) submods_3))" +"(let-values(((ht_145) submods_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_146)))" +"(let-values()(check-in-hash ht_145)))" "((letrec-values(((for-loop_265)" "(lambda(fold-var_273 i_169)" "(begin" " 'for-loop" "(if i_169" -"(let-values(((name_61 kind_7)(hash-iterate-key+value ht_146 i_169)))" +"(let-values(((name_61 kind_7)(hash-iterate-key+value ht_145 i_169)))" "(let-values(((fold-var_274)" "(let-values(((fold-var_275) fold-var_273))" "(if(eq? kind_7 'module)" @@ -42490,12 +42517,12 @@ static const char *startup_source = "(values fold-var_277)))" " fold-var_275))))" "(if(not #f)" -"(for-loop_265 fold-var_274(hash-iterate-next ht_146 i_169))" +"(for-loop_265 fold-var_274(hash-iterate-next ht_145 i_169))" " fold-var_274)))" " fold-var_273)))))" " for-loop_265)" " null" -"(hash-iterate-first ht_146))))))))))))" +"(hash-iterate-first ht_145))))))))))))" "(define-values" "(1/syntax-local-get-shadower)" "(let-values(((syntax-local-get-shadower60_0)" @@ -42529,12 +42556,12 @@ static const char *startup_source = "(syntax-source-accessor)" "(lambda(who_0 srcloc-accessor_0)" "(begin" -"(lambda(s_180)" +"(lambda(s_182)" "(let-values((()" "(begin" -" (if (syntax?$1 s_180) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_180)))" +" (if (syntax?$1 s_182) (void) (let-values () (raise-argument-error who_0 \"syntax?\" s_182)))" "(values))))" -"(let-values(((srcloc_8)(syntax-srcloc s_180)))(if srcloc_8(srcloc-accessor_0 srcloc_8) #f)))))))" +"(let-values(((srcloc_8)(syntax-srcloc s_182)))(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))" @@ -42550,8 +42577,8 @@ static const char *startup_source = "(srcloc-vector?)" "(lambda(v_68)" "(begin" -"(if(let-values(((or-part_279)(not(vector-ref v_68 1))))" -"(if or-part_279 or-part_279(exact-positive-integer?(vector-ref v_68 1))))" +"(if(let-values(((or-part_276)(not(vector-ref v_68 1))))" +"(if or-part_276 or-part_276(exact-positive-integer?(vector-ref v_68 1))))" "(if(let-values(((or-part_27)(not(vector-ref v_68 2))))" "(if or-part_27 or-part_27(exact-nonnegative-integer?(vector-ref v_68 2))))" "(if(let-values(((or-part_10)(not(vector-ref v_68 3))))" @@ -42563,47 +42590,47 @@ static const char *startup_source = " #f))))" "(define-values" "(to-srcloc-stx)" -"(lambda(v_191)" +"(lambda(v_190)" "(begin" -"(if(srcloc? v_191)" +"(if(srcloc? v_190)" +"(let-values()" +"(let-values(((the-struct_64) empty-syntax))" +"(if(syntax?$1 the-struct_64)" +"(let-values(((srcloc1_2) v_190))" +"(syntax1.1" +"(syntax-content the-struct_64)" +"(syntax-scopes the-struct_64)" +"(syntax-shifted-multi-scopes the-struct_64)" +"(syntax-scope-propagations+tamper the-struct_64)" +"(syntax-mpi-shifts the-struct_64)" +" srcloc1_2" +"(syntax-props the-struct_64)" +"(syntax-inspector the-struct_64)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_64))))" +"(if(pair? v_190)" +"(let-values()(to-srcloc-stx(list->vector v_190)))" +"(if(vector? v_190)" "(let-values()" "(let-values(((the-struct_65) empty-syntax))" "(if(syntax?$1 the-struct_65)" -"(let-values(((srcloc1_2) v_191))" +"(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))))" "(syntax1.1" "(syntax-content the-struct_65)" "(syntax-scopes the-struct_65)" "(syntax-shifted-multi-scopes the-struct_65)" "(syntax-scope-propagations+tamper the-struct_65)" "(syntax-mpi-shifts the-struct_65)" -" srcloc1_2" +" srcloc2_1" "(syntax-props the-struct_65)" "(syntax-inspector the-struct_65)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_65))))" -"(if(pair? v_191)" -"(let-values()(to-srcloc-stx(list->vector v_191)))" -"(if(vector? v_191)" -"(let-values()" -"(let-values(((the-struct_66) empty-syntax))" -"(if(syntax?$1 the-struct_66)" -"(let-values(((srcloc2_1)" -"(srcloc" -"(vector-ref v_191 0)" -"(vector-ref v_191 1)" -"(vector-ref v_191 2)" -"(vector-ref v_191 3)" -"(vector-ref v_191 4))))" -"(syntax1.1" -"(syntax-content the-struct_66)" -"(syntax-scopes the-struct_66)" -"(syntax-shifted-multi-scopes the-struct_66)" -"(syntax-scope-propagations+tamper the-struct_66)" -"(syntax-mpi-shifts the-struct_66)" -" srcloc2_1" -"(syntax-props the-struct_66)" -"(syntax-inspector the-struct_66)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_66))))" -"(let-values() v_191)))))))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_65))))" +"(let-values() v_190)))))))" "(define-values" "(1/syntax-e)" "(lambda(s_0)" @@ -42616,15 +42643,15 @@ static const char *startup_source = "(syntax-e$1 s_0)))))))" "(define-values" "(1/syntax->datum)" -"(lambda(s_180)" +"(lambda(s_182)" "(begin" " 'syntax->datum" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_180) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_180)))" -"(syntax->datum$1 s_180)))))))" -"(define-values(maybe-syntax->datum)(lambda(s_70)(begin(if(syntax?$1 s_70)(syntax->datum$1 s_70) s_70))))" +" (if (syntax?$1 s_182) (void) (let-values () (raise-argument-error 'syntax->datum \"syntax?\" s_182)))" +"(syntax->datum$1 s_182)))))))" +"(define-values(maybe-syntax->datum)(lambda(s_72)(begin(if(syntax?$1 s_72)(syntax->datum$1 s_72) s_72))))" "(define-values" "(1/datum->syntax)" "(let-values(((datum->syntax9_0)" @@ -42632,7 +42659,7 @@ static const char *startup_source = "(begin" " 'datum->syntax9" "(let-values(((stx-c_4) stx-c7_0))" -"(let-values(((s_170) s8_0))" +"(let-values(((s_172) 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()" @@ -42640,15 +42667,15 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(let-values(((or-part_280)(not stx-c_4)))" -"(if or-part_280 or-part_280(syntax?$1 stx-c_4)))" +"(if(let-values(((or-part_277)(not stx-c_4)))" +"(if or-part_277 or-part_277(syntax?$1 stx-c_4)))" "(void)" " (let-values () (raise-argument-error 'datum->syntax \"(or #f syntax?)\" stx-c_4)))" -"(if(let-values(((or-part_281)(not stx-l_2)))" -"(if or-part_281" -" or-part_281" -"(let-values(((or-part_282)(syntax?$1 stx-l_2)))" -"(if or-part_282 or-part_282(encoded-srcloc? stx-l_2)))))" +"(if(let-values(((or-part_278)(not stx-l_2)))" +"(if or-part_278" +" or-part_278" +"(let-values(((or-part_279)(syntax?$1 stx-l_2)))" +"(if or-part_279 or-part_279(encoded-srcloc? stx-l_2)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -42666,16 +42693,16 @@ static const char *startup_source = " \" (or/c exact-positive-integer? #f)\\n\"" " \" (or/c exact-nonnegative-integer? #f)))\")" " stx-l_2)))" -"(if(let-values(((or-part_283)(not stx-p_1)))" -"(if or-part_283 or-part_283(syntax?$1 stx-p_1)))" +"(if(let-values(((or-part_280)(not stx-p_1)))" +"(if or-part_280 or-part_280(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_170(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" +"(datum->syntax$1 stx-c_4 s_172(to-srcloc-stx stx-l_2) stx-p_1))))))))))))))" "(case-lambda" -"((stx-c_5 s_295)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_295 #f #f #f #f #f #f)))" -"((stx-c_6 s_414 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_414 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" -"((stx-c_7 s_73 stx-l_4 stx-p2_1)(datum->syntax9_0 stx-c_7 s_73 stx-l_4 stx-p2_1 #f #t #t #f))" -"((stx-c_8 s_415 stx-l1_1)(datum->syntax9_0 stx-c_8 s_415 stx-l1_1 #f #f #t #f #f)))))" +"((stx-c_5 s_299)(begin 'datum->syntax(datum->syntax9_0 stx-c_5 s_299 #f #f #f #f #f #f)))" +"((stx-c_6 s_419 stx-l_3 stx-p_2 ignored3_1)(datum->syntax9_0 stx-c_6 s_419 stx-l_3 stx-p_2 ignored3_1 #t #t #t))" +"((stx-c_7 s_75 stx-l_4 stx-p2_1)(datum->syntax9_0 stx-c_7 s_75 stx-l_4 stx-p2_1 #f #t #t #f))" +"((stx-c_8 s_420 stx-l1_1)(datum->syntax9_0 stx-c_8 s_420 stx-l1_1 #f #f #t #f #f)))))" "(define-values" "(1/syntax->list)" "(lambda(s_5)" @@ -42776,16 +42803,16 @@ static const char *startup_source = "(free-identifier=?$1 a_60 b_87 phase_130 phase_130)))))))))" "(define-values" "(1/free-template-identifier=?)" -"(lambda(a_9 b_88)" +"(lambda(a_61 b_88)" "(begin" " 'free-template-identifier=?" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(identifier? a_9)" +"(if(identifier? a_61)" "(void)" -" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" a_9)))" +" (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" a_61)))" "(values))))" "(let-values((()" "(begin" @@ -42794,22 +42821,22 @@ static const char *startup_source = " (let-values () (raise-argument-error 'free-template-identifier=? \"identifier?\" b_88)))" "(values))))" "(let-values(((phase_131)(sub1(1/syntax-local-phase-level))))" -"(free-identifier=?$1 a_9 b_88 phase_131 phase_131)))))))))" +"(free-identifier=?$1 a_61 b_88 phase_131 phase_131)))))))))" "(define-values" "(1/free-label-identifier=?)" -"(lambda(a_61 b_89)" +"(lambda(a_62 b_89)" "(begin" " 'free-label-identifier=?" "(let-values()" "(let-values()" "(begin" -"(if(identifier? a_61)" +"(if(identifier? a_62)" "(void)" -" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" a_61)))" +" (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" a_62)))" "(if(identifier? b_89)" "(void)" " (let-values () (raise-argument-error 'free-label-identifier=? \"identifier?\" b_89)))" -"(free-identifier=?$1 a_61 b_89 #f #f)))))))" +"(free-identifier=?$1 a_62 b_89 #f #f)))))))" "(define-values" "(1/identifier-binding)" "(let-values(((identifier-binding30_0)" @@ -42935,37 +42962,37 @@ static const char *startup_source = "(lambda(s51_1 phase47_2 all-bindings?48_0 phase49_1 all-bindings?50_0)" "(begin" " 'syntax-debug-info52" -"(let-values(((s_416) s51_1))" +"(let-values(((s_421) s51_1))" "(let-values(((phase_135)(if phase49_1 phase47_2(1/syntax-local-phase-level))))" "(let-values(((all-bindings?_1)(if all-bindings?50_0 all-bindings?48_0 #f)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_416)" +"(if(syntax?$1 s_421)" "(void)" -" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_416)))" +" (let-values () (raise-argument-error 'syntax-debug-info \"syntax?\" s_421)))" "(if(phase? phase_135)" "(void)" "(let-values()(raise-argument-error 'syntax-debug-info phase?-string phase_135)))" -"(syntax-debug-info$1 s_416 phase_135 all-bindings?_1))))))))))))" +"(syntax-debug-info$1 s_421 phase_135 all-bindings?_1))))))))))))" "(case-lambda" -"((s_417)(begin 'syntax-debug-info(syntax-debug-info52_0 s_417 #f #f #f #f)))" -"((s_86 phase_99 all-bindings?48_1)(syntax-debug-info52_0 s_86 phase_99 all-bindings?48_1 #t #t))" +"((s_422)(begin 'syntax-debug-info(syntax-debug-info52_0 s_422 #f #f #f #f)))" +"((s_88 phase_99 all-bindings?48_1)(syntax-debug-info52_0 s_88 phase_99 all-bindings?48_1 #t #t))" "((s_47 phase47_3)(syntax-debug-info52_0 s_47 phase47_3 #f #t #f)))))" "(define-values" "(1/syntax-shift-phase-level)" -"(lambda(s_87 phase_23)" +"(lambda(s_89 phase_23)" "(begin" " 'syntax-shift-phase-level" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_87) (void) (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_87)))" +" (if (syntax?$1 s_89) (void) (let-values () (raise-argument-error 'syntax-shift-phase-level \"syntax?\" s_89)))" "(if(phase? phase_23)" "(void)" "(let-values()(raise-argument-error 'syntax-shift-phase-level phase?-string phase_23)))" -"(syntax-shift-phase-level$1 s_87 phase_23)))))))" +"(syntax-shift-phase-level$1 s_89 phase_23)))))))" "(define-values" "(1/syntax-track-origin)" "(lambda(new-stx_8 old-stx_4 id_107)" @@ -43113,7 +43140,7 @@ static const char *startup_source = "(let-values(((missing_0)(gensym 'missing)))" "(let-values((()" "(begin" -"((letrec-values(((loop_39)" +"((letrec-values(((loop_98)" "(lambda(mpi_48" " phase_136" " attach-instances?_1" @@ -43144,10 +43171,10 @@ static const char *startup_source = " '#hasheqv())" " phase_136" " missing_0)))" -"(if(let-values(((or-part_246)" +"(if(let-values(((or-part_245)" "(eq? missing_0 m-ns_12)))" -"(if or-part_246" -" or-part_246" +"(if or-part_245" +" or-part_245" "(if attach-this-instance?_0" "(not m-ns_12)" " #f)))" @@ -43174,7 +43201,7 @@ static const char *startup_source = " #f)" " #f)" "(let-values()" -"(loop_39" +"(loop_98" " mpi_48" " 0" " attach-instances?_1" @@ -43202,10 +43229,10 @@ static const char *startup_source = "(values))))" "(let-values(((m-ns_13" " already?_0)" -"(if(let-values(((or-part_164)" +"(if(let-values(((or-part_163)" " attach-this-instance?_0))" -"(if or-part_164" -" or-part_164" +"(if or-part_163" +" or-part_163" "(module-cross-phase-persistent?" " m_20)))" "(let-values()" @@ -43340,9 +43367,9 @@ static const char *startup_source = "(hash-update!" " todo_0" " mod-name_19" -"(lambda(ht_147)" +"(lambda(ht_146)" "(hash-set" -" ht_147" +" ht_146" " phase_136" " m-ns_13))" " '#hasheqv())" @@ -43401,7 +43428,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_39" +"(loop_98" "(module-path-index-shift" " req_5" "(module-self" @@ -43460,7 +43487,7 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(loop_39" +"(loop_98" "(1/module-path-index-join" "(list" " 'submod" @@ -43484,7 +43511,7 @@ static const char *startup_source = "(if(module-supermodule-name" " m_20)" "(let-values()" -"(loop_39" +"(loop_98" "(1/module-path-index-join" " '(submod" " \"..\")" @@ -43494,7 +43521,7 @@ static const char *startup_source = " attach-phase_0))" "(void))))))))))))))" "(void)))))))))" -" loop_39)" +" loop_98)" "(1/module-path-index-join" "(if(1/resolved-module-path? mod-path_15)" "(resolved-module-path->module-path mod-path_15)" @@ -43506,11 +43533,11 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((ht_148) todo_0))" +"(let-values(((ht_147) todo_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_148)))" +"(let-values()(check-in-hash ht_147)))" "((letrec-values(((for-loop_109)" "(lambda(i_170)" "(begin" @@ -43518,10 +43545,10 @@ static const char *startup_source = "(if i_170" "(let-values(((mod-name_20 phases_0)" "(hash-iterate-key+value" -" ht_148" +" ht_147" " i_170)))" "(let-values((()" -"(let-values(((ht_149)" +"(let-values(((ht_148)" " phases_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -43529,7 +43556,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_149)))" +" ht_148)))" "((letrec-values(((for-loop_267)" "(lambda(i_171)" "(begin" @@ -43538,7 +43565,7 @@ static const char *startup_source = "(let-values(((phase_137" " m-ns_15)" "(hash-iterate-key+value" -" ht_149" +" ht_148" " i_171)))" "(let-values((()" "(let-values()" @@ -43582,7 +43609,7 @@ static const char *startup_source = " src-namespace_6" " mod-name_20" " phase_137)" -"(let-values(((or-part_71)" +"(let-values(((or-part_72)" "(let-values(((dest-namespace47_0)" " dest-namespace_2)" "((mod-name48_0)" @@ -43599,8 +43626,8 @@ static const char *startup_source = " dest-namespace47_0" " mod-name48_0" " phase49_2))))" -"(if or-part_71" -" or-part_71" +"(if or-part_72" +" or-part_72" "(namespace-install-module-namespace!" " dest-namespace_2" " mod-name_20" @@ -43614,20 +43641,20 @@ static const char *startup_source = " #f)" "(for-loop_267" "(hash-iterate-next" -" ht_149" +" ht_148" " i_171))" "(values))))" "(values))))))" " for-loop_267)" "(hash-iterate-first" -" ht_149))))))" +" ht_148))))))" "(if(not #f)" "(for-loop_109" -"(hash-iterate-next ht_148 i_170))" +"(hash-iterate-next ht_147 i_170))" "(values))))" "(values))))))" " for-loop_109)" -"(hash-iterate-first ht_148))))" +"(hash-iterate-first ht_147))))" "(values))))" "(let-values()" "(let-values(((mnr_0)(1/current-module-name-resolver)))" @@ -43639,18 +43666,18 @@ static const char *startup_source = " dest-namespace_2)" "(let-values()" "(begin" -"(let-values(((ht_51) todo_0))" +"(let-values(((ht_50) todo_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_51)))" +"(let-values()(check-in-hash-keys ht_50)))" "((letrec-values(((for-loop_176)" "(lambda(i_172)" "(begin" " 'for-loop" "(if i_172" "(let-values(((mod-name_21)" -"(hash-iterate-key ht_51 i_172)))" +"(hash-iterate-key ht_50 i_172)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -43664,11 +43691,11 @@ static const char *startup_source = "(values)))))" "(if(not #f)" "(for-loop_176" -"(hash-iterate-next ht_51 i_172))" +"(hash-iterate-next ht_50 i_172))" "(values))))" "(values))))))" " for-loop_176)" -"(hash-iterate-first ht_51))))" +"(hash-iterate-first ht_50))))" "(void))))))))))))))))))))))))" "(define-values" "(1/make-empty-namespace)" @@ -43714,14 +43741,14 @@ 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_150)" +"(let-values(((ht_149)" "(syntax-scope-set" "(root-expand-context-all-scopes-stx root-ctx_5)" "(namespace-phase ns_60))))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-immutable-hash-keys ht_150)))" +"(let-values()(check-in-immutable-hash-keys ht_149)))" "((letrec-values(((for-loop_211)" "(lambda(fold-var_278 i_173)" "(begin" @@ -43729,7 +43756,7 @@ static const char *startup_source = "(if i_173" "(let-values(((sc_34)" "(unsafe-immutable-hash-iterate-key" -" ht_150" +" ht_149" " i_173)))" "(let-values(((fold-var_224)" "(let-values(((fold-var_225)" @@ -43752,13 +43779,13 @@ static const char *startup_source = "(for-loop_211" " fold-var_224" "(unsafe-immutable-hash-iterate-next" -" ht_150" +" ht_149" " i_173))" " fold-var_224)))" " fold-var_278)))))" " for-loop_211)" " null" -"(unsafe-immutable-hash-iterate-first ht_150)))))))" +"(unsafe-immutable-hash-iterate-first ht_149)))))))" "(let-values(((add-ns-scopes_0)" "(lambda(s_4)" "(begin" @@ -43770,11 +43797,11 @@ static const char *startup_source = "((temp80_1)" "(root-expand-context-all-scopes-stx root-ctx_5))" "((temp81_0)" -"(let-values(((or-part_77)" +"(let-values(((or-part_78)" "(namespace-declaration-inspector" " ns_60)))" -"(if or-part_77" -" or-part_77" +"(if or-part_78" +" or-part_78" "(current-code-inspector))))" "((temp82_2) #t))" "(syntax-transfer-shifts39.1" @@ -43804,11 +43831,11 @@ static const char *startup_source = " s_3))" "(let-values()(add-ns-scopes_0 s_3)))))))))))))))))))" "(case-lambda" -"((s_418)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_418 #f #f)))" -"((s_73 ns1_4)(namespace-syntax-introduce4_0 s_73 ns1_4 #t)))))" +"((s_423)(begin 'namespace-syntax-introduce(namespace-syntax-introduce4_0 s_423 #f #f)))" +"((s_75 ns1_4)(namespace-syntax-introduce4_0 s_75 ns1_4 #t)))))" "(define-values" "(namespace-datum-introduce)" -"(lambda(s_76)(begin(1/namespace-syntax-introduce(1/datum->syntax #f s_76)))))" +"(lambda(s_78)(begin(1/namespace-syntax-introduce(1/datum->syntax #f s_78)))))" "(define-values" "(1/namespace-module-identifier)" "(let-values(((namespace-module-identifier8_0)" @@ -43820,8 +43847,8 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(let-values(((or-part_284)(1/namespace? where_0)))" -"(if or-part_284 or-part_284(phase? where_0)))" +"(if(let-values(((or-part_281)(1/namespace? where_0)))" +"(if or-part_281 or-part_281(phase? where_0)))" "(void)" "(let-values()" "(raise-argument-error" @@ -43887,8 +43914,8 @@ static const char *startup_source = "(add-scopes" " empty-syntax" "(root-expand-context-module-scopes(namespace-get-root-expand-ctx ns_76)))))" -"(if(let-values(((or-part_22)(1/module-path-index? req_6)))" -"(if or-part_22 or-part_22(1/module-path? req_6)))" +"(if(let-values(((or-part_282)(1/module-path-index? req_6)))" +"(if or-part_282 or-part_282(1/module-path? req_6)))" "(let-values()" "(let-values(((temp85_0)" "(if(1/module-path-index? req_6)" @@ -44119,9 +44146,9 @@ static const char *startup_source = "(if(symbol? sym_69)" "(void)" " (let-values () (raise-argument-error 'namespace-variable-value \"symbol?\" sym_69)))" -"(if(let-values(((or-part_285)(not failure-thunk_5)))" -"(if or-part_285" -" or-part_285" +"(if(let-values(((or-part_283)(not failure-thunk_5)))" +"(if or-part_283" +" or-part_283" "(if(procedure? failure-thunk_5)" "(procedure-arity-includes? failure-thunk_5 0)" " #f)))" @@ -44154,7 +44181,7 @@ static const char *startup_source = " ns_81))" "(void))" "(values))))" -"(let-values(((v_192" +"(let-values(((v_191" " primitive?_8" " extra-inspector_8" " protected?_9)" @@ -44180,13 +44207,13 @@ static const char *startup_source = " id136_0))" "(values variable #f #f #f))))" "(begin" -"(if(variable? v_192)" +"(if(variable? v_191)" "(void)" "(let-values()" "(escape_0" -"(let-values(((or-part_286) failure-thunk_5))" -"(if or-part_286" -" or-part_286" +"(let-values(((or-part_284) failure-thunk_5))" +"(if or-part_284" +" or-part_284" "(lambda()" "(raise" "(make-exn:fail:syntax$1" @@ -44222,9 +44249,9 @@ static const char *startup_source = " var-sym_6" "(lambda()" "(escape_0" -"(let-values(((or-part_266) failure-thunk_5))" -"(if or-part_266" -" or-part_266" +"(let-values(((or-part_264) failure-thunk_5))" +"(if or-part_264" +" or-part_264" "(raise" "(exn:fail:contract:variable" "(format" @@ -44388,33 +44415,33 @@ static const char *startup_source = "(lambda(s5_2 ns1_5 compile2_0 ns3_0 compile4_0)" "(begin" " 'eval6" -"(let-values(((s_171) s5_2))" +"(let-values(((s_173) s5_2))" "(let-values(((ns_43)(if ns3_0 ns1_5(1/current-namespace))))" "(let-values(((compile_1)" "(if compile4_0" " compile2_0" -"(lambda(s_419 ns_87)(begin 'compile(1/compile s_419 ns_87 #f))))))" +"(lambda(s_424 ns_87)(begin 'compile(1/compile s_424 ns_87 #f))))))" "(let-values()" -"(if(let-values(((or-part_281)(compiled-in-memory? s_171)))" -"(if or-part_281" -" or-part_281" -"(let-values(((or-part_282)(1/linklet-directory? s_171)))" -"(if or-part_282 or-part_282(1/linklet-bundle? s_171)))))" -"(let-values()(eval-compiled s_171 ns_43))" -"(if(if(syntax?$1 s_171)" -"(let-values(((or-part_283)(compiled-in-memory?(1/syntax-e s_171))))" -"(if or-part_283" -" or-part_283" -"(let-values(((or-part_287)(1/linklet-directory?(1/syntax-e s_171))))" -"(if or-part_287 or-part_287(1/linklet-bundle?(1/syntax-e s_171))))))" +"(if(let-values(((or-part_278)(compiled-in-memory? s_173)))" +"(if or-part_278" +" or-part_278" +"(let-values(((or-part_279)(1/linklet-directory? s_173)))" +"(if or-part_279 or-part_279(1/linklet-bundle? s_173)))))" +"(let-values()(eval-compiled s_173 ns_43))" +"(if(if(syntax?$1 s_173)" +"(let-values(((or-part_280)(compiled-in-memory?(1/syntax-e s_173))))" +"(if or-part_280" +" or-part_280" +"(let-values(((or-part_285)(1/linklet-directory?(1/syntax-e s_173))))" +"(if or-part_285 or-part_285(1/linklet-bundle?(1/syntax-e s_173))))))" " #f)" -"(let-values()(eval-compiled(1/syntax->datum s_171) ns_43))" +"(let-values()(eval-compiled(1/syntax->datum s_173) ns_43))" "(let-values()" -"(let-values(((s80_0) s_171)" +"(let-values(((s80_0) s_173)" "((ns81_0) ns_43)" "((temp82_3)" -"(lambda(s_75 ns_88 tail?_44)" -"(eval-compiled(compile_1 s_75 ns_88) ns_88 tail?_44)))" +"(lambda(s_77 ns_88 tail?_44)" +"(eval-compiled(compile_1 s_77 ns_88) ns_88 tail?_44)))" "((temp83_1) #f))" "(per-top-level68.1" " #f" @@ -44432,9 +44459,9 @@ static const char *startup_source = " s80_0" " ns81_0)))))))))))))" "(case-lambda" -"((s_173)(begin 'eval(eval6_0 s_173 #f #f #f #f)))" -"((s_76 ns_53 compile2_1)(eval6_0 s_76 ns_53 compile2_1 #t #t))" -"((s_159 ns1_6)(eval6_0 s_159 ns1_6 #f #t #f)))))" +"((s_175)(begin 'eval(eval6_0 s_175 #f #f #f #f)))" +"((s_78 ns_53 compile2_1)(eval6_0 s_78 ns_53 compile2_1 #t #t))" +"((s_161 ns1_6)(eval6_0 s_161 ns1_6 #f #t #f)))))" "(define-values" "(eval-compiled)" "(let-values(((eval-compiled12_0)" @@ -44467,21 +44494,21 @@ static const char *startup_source = " to-source?21_1)" "(begin" " 'compile23" -"(let-values(((s_420) s22_0))" +"(let-values(((s_425) s22_0))" "(let-values(((ns_92)(if ns18_1 ns14_2(1/current-namespace))))" "(let-values(((serializable?_4)(if serializable?19_0 serializable?15_0 #t)))" "(let-values(((expand_0)(if expand20_0 expand16_0 expand$1)))" "(let-values(((to-source?_5)(if to-source?21_1 to-source?17_0 #f)))" "(let-values()" "(let-values(((cs_0)" -"(if(1/compiled-expression? s_420)" -"(let-values()(list s_420))" -"(if(if(syntax?$1 s_420)" -"(1/compiled-expression?(1/syntax-e s_420))" +"(if(1/compiled-expression? s_425)" +"(let-values()(list s_425))" +"(if(if(syntax?$1 s_425)" +"(1/compiled-expression?(1/syntax-e s_425))" " #f)" -"(let-values()(list(1/syntax-e s_420)))" +"(let-values()(list(1/syntax-e s_425)))" "(let-values()" -"(let-values(((s86_0) s_420)" +"(let-values(((s86_0) s_425)" "((ns87_0) ns_92)" "((temp88_2)" "(lambda(s_12 ns_49 as-tail?_4)" @@ -44524,24 +44551,24 @@ static const char *startup_source = " #t" " cs91_0))))))))))))))" "(case-lambda" -"((s_182)(begin 'compile(compile23_0 s_182 #f #f #f #f #f #f #f #f)))" -"((s_421 ns_93 serializable?_5 expand_1 to-source?17_1)" -"(compile23_0 s_421 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" +"((s_184)(begin 'compile(compile23_0 s_184 #f #f #f #f #f #f #f #f)))" +"((s_426 ns_93 serializable?_5 expand_1 to-source?17_1)" +"(compile23_0 s_426 ns_93 serializable?_5 expand_1 to-source?17_1 #t #t #t #t))" "((s_20 ns_94 serializable?_6 expand16_1)(compile23_0 s_20 ns_94 serializable?_6 expand16_1 #f #t #t #t #f))" "((s_23 ns_95 serializable?15_1)(compile23_0 s_23 ns_95 serializable?15_1 #f #f #t #t #f #f))" -"((s_148 ns14_3)(compile23_0 s_148 ns14_3 #f #f #f #t #f #f #f)))))" +"((s_150 ns14_3)(compile23_0 s_150 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_397) s27_0))" +"(let-values(((s_403) s27_0))" "(let-values(((ns_96)(if ns26_2 ns25_0(1/current-namespace))))" -"(let-values()(1/compile s_397 ns_96 #t expand$1 #t))))))))" +"(let-values()(1/compile s_403 ns_96 #t expand$1 #t))))))))" "(case-lambda" -"((s_422)(begin(compile-to-linklets28_0 s_422 #f #f)))" -"((s_298 ns25_1)(compile-to-linklets28_0 s_298 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" @@ -44575,7 +44602,7 @@ static const char *startup_source = "(begin" " 'compile-single" "(let-values(((exp-s_4)(expand_2 s_29 ns_97 #f #t serializable?_7)))" -"((letrec-values(((loop_97)" +"((letrec-values(((loop_99)" "(lambda(exp-s_5)" "(begin" " 'loop" @@ -44628,7 +44655,7 @@ static const char *startup_source = "(let-values()" "(cons" "(let-values()" -"(loop_97" +"(loop_99" " e_77))" " fold-var_3))))" "(values" @@ -44670,7 +44697,7 @@ static const char *startup_source = " #t" " exp-s103_0" " temp104_3)))))))))" -" loop_97)" +" loop_99)" " exp-s_4)))))" "(define-values" "(expand$1)" @@ -44686,7 +44713,7 @@ static const char *startup_source = " serializable?38_0)" "(begin" " 'expand40" -"(let-values(((s_423) s39_1))" +"(let-values(((s_428) s39_1))" "(let-values(((ns_98)(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)))" @@ -44702,12 +44729,12 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s108_0) s_423)" +"(let-values(((s108_0) s_428)" "((ns109_1) ns_98)" "((temp110_0)" -"(lambda(s_424 ns_99 as-tail?_5)" +"(lambda(s_429 ns_99 as-tail?_5)" "(expand-single" -" s_424" +" s_429" " ns_99" " observer_2" " to-parsed?_2" @@ -44731,24 +44758,24 @@ static const char *startup_source = " s108_0" " ns109_1))))))))))))))))" "(case-lambda" -"((s_296)(begin 'expand(expand40_0 s_296 #f #f #f #f #f #f #f #f)))" -"((s_425 ns_100 observable?_1 to-parsed?_3 serializable?34_1)" -"(expand40_0 s_425 ns_100 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" -"((s_426 ns_101 observable?_2 to-parsed?33_1)(expand40_0 s_426 ns_101 observable?_2 to-parsed?33_1 #f #t #t #t #f))" +"((s_300)(begin 'expand(expand40_0 s_300 #f #f #f #f #f #f #f #f)))" +"((s_430 ns_100 observable?_1 to-parsed?_3 serializable?34_1)" +"(expand40_0 s_430 ns_100 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" +"((s_431 ns_101 observable?_2 to-parsed?33_1)(expand40_0 s_431 ns_101 observable?_2 to-parsed?33_1 #f #t #t #t #f))" "((s_34 ns_102 observable?32_1)(expand40_0 s_34 ns_102 observable?32_1 #f #f #t #t #f #f))" -"((s_382 ns31_4)(expand40_0 s_382 ns31_4 #f #f #f #t #f #f #f)))))" +"((s_386 ns31_4)(expand40_0 s_386 ns31_4 #f #f #f #t #f #f #f)))))" "(define-values" "(expand-single)" -"(lambda(s_427 ns_103 observer_3 to-parsed?_4 serializable?_9)" +"(lambda(s_432 ns_103 observer_3 to-parsed?_4 serializable?_9)" "(begin" -"(let-values(((rebuild-s_2)(keep-properties-only s_427)))" +"(let-values(((rebuild-s_2)(keep-properties-only s_432)))" "(let-values(((ctx_68)" "(let-values(((ns114_0) ns_103)" "((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 ns114_0))))" -"(let-values(((require-lifts_3 lifts_9 exp-s_6)(expand-capturing-lifts s_427 ctx_68)))" +"(let-values(((require-lifts_3 lifts_9 exp-s_6)(expand-capturing-lifts s_432 ctx_68)))" "(if(if(null? require-lifts_3)(null? lifts_9) #f)" "(let-values() exp-s_6)" "(if to-parsed?_4" @@ -44821,13 +44848,13 @@ static const char *startup_source = "(lambda(s44_1 ns42_1 ns43_0)" "(begin" " 'expand-once45" -"(let-values(((s_383) s44_1))" +"(let-values(((s_388) s44_1))" "(let-values(((ns_104)(if ns43_0 ns42_1(1/current-namespace))))" "(let-values()" -"(let-values(((s128_0) s_383)" +"(let-values(((s128_0) s_388)" "((ns129_0) ns_104)" "((temp130_1)" -"(lambda(s_428 ns_105 as-tail?_6)(expand-single-once s_428 ns_105)))" +"(lambda(s_433 ns_105 as-tail?_6)(expand-single-once s_433 ns_105)))" "((cons131_0) cons)" "((re-pair132_0) re-pair)" "((temp133_0) #t)" @@ -44848,71 +44875,71 @@ static const char *startup_source = " s128_0" " ns129_0)))))))))" "(case-lambda" -"((s_429)(begin 'expand-once(expand-once45_0 s_429 #f #f)))" -"((s_430 ns42_2)(expand-once45_0 s_430 ns42_2 #t)))))" +"((s_434)(begin 'expand-once(expand-once45_0 s_434 #f #f)))" +"((s_435 ns42_2)(expand-once45_0 s_435 ns42_2 #t)))))" "(define-values" "(expand-single-once)" -"(lambda(s_431 ns_106)" +"(lambda(s_436 ns_106)" "(begin" "(let-values(((require-lifts_4 lifts_10 exp-s_7)" "(expand-capturing-lifts" -" s_431" -"(let-values(((v_193)" +" s_436" +"(let-values(((v_192)" "(let-values(((ns135_1) ns_106))" "(make-expand-context10.1 #f #f #f #f #f #f ns135_1))))" -"(let-values(((the-struct_67) v_193))" -"(if(expand-context/outer? the-struct_67)" +"(let-values(((the-struct_66) v_192))" +"(if(expand-context/outer? the-struct_66)" "(let-values(((inner136_1)" -"(let-values(((the-struct_68)(root-expand-context/outer-inner v_193)))" -"(if(expand-context/inner? the-struct_68)" +"(let-values(((the-struct_67)(root-expand-context/outer-inner v_192)))" +"(if(expand-context/inner? the-struct_67)" "(let-values(((just-once?137_0) #t))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_68)" -"(root-expand-context/inner-module-scopes the-struct_68)" -"(root-expand-context/inner-top-level-bind-scope the-struct_68)" -"(root-expand-context/inner-all-scopes-stx the-struct_68)" -"(root-expand-context/inner-defined-syms the-struct_68)" -"(root-expand-context/inner-counter the-struct_68)" -"(root-expand-context/inner-lift-key the-struct_68)" -"(expand-context/inner-to-parsed? the-struct_68)" -"(expand-context/inner-phase the-struct_68)" -"(expand-context/inner-namespace the-struct_68)" +"(root-expand-context/inner-self-mpi the-struct_67)" +"(root-expand-context/inner-module-scopes the-struct_67)" +"(root-expand-context/inner-top-level-bind-scope the-struct_67)" +"(root-expand-context/inner-all-scopes-stx the-struct_67)" +"(root-expand-context/inner-defined-syms the-struct_67)" +"(root-expand-context/inner-counter the-struct_67)" +"(root-expand-context/inner-lift-key the-struct_67)" +"(expand-context/inner-to-parsed? the-struct_67)" +"(expand-context/inner-phase the-struct_67)" +"(expand-context/inner-namespace the-struct_67)" " just-once?137_0" -"(expand-context/inner-module-begin-k the-struct_68)" -"(expand-context/inner-allow-unbound? the-struct_68)" -"(expand-context/inner-in-local-expand? the-struct_68)" -"(expand-context/inner-stops the-struct_68)" -"(expand-context/inner-declared-submodule-names the-struct_68)" -"(expand-context/inner-lifts the-struct_68)" -"(expand-context/inner-lift-envs the-struct_68)" -"(expand-context/inner-module-lifts the-struct_68)" -"(expand-context/inner-require-lifts the-struct_68)" -"(expand-context/inner-to-module-lifts the-struct_68)" -"(expand-context/inner-requires+provides the-struct_68)" -"(expand-context/inner-observer the-struct_68)" -"(expand-context/inner-for-serializable? the-struct_68)" -"(expand-context/inner-should-not-encounter-macros? the-struct_68)))" +"(expand-context/inner-module-begin-k the-struct_67)" +"(expand-context/inner-allow-unbound? the-struct_67)" +"(expand-context/inner-in-local-expand? the-struct_67)" +"(expand-context/inner-stops the-struct_67)" +"(expand-context/inner-declared-submodule-names the-struct_67)" +"(expand-context/inner-lifts the-struct_67)" +"(expand-context/inner-lift-envs the-struct_67)" +"(expand-context/inner-module-lifts the-struct_67)" +"(expand-context/inner-require-lifts the-struct_67)" +"(expand-context/inner-to-module-lifts the-struct_67)" +"(expand-context/inner-requires+provides the-struct_67)" +"(expand-context/inner-observer the-struct_67)" +"(expand-context/inner-for-serializable? the-struct_67)" +"(expand-context/inner-should-not-encounter-macros? the-struct_67)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_68)))))" +" the-struct_67)))))" "(expand-context/outer1.1" " inner136_1" -"(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)" -"(expand-context/outer-env the-struct_67)" -"(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_67)))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_66)" +"(root-expand-context/outer-use-site-scopes the-struct_66)" +"(root-expand-context/outer-frame-id the-struct_66)" +"(expand-context/outer-context the-struct_66)" +"(expand-context/outer-env the-struct_66)" +"(expand-context/outer-post-expansion-scope-action the-struct_66)" +"(expand-context/outer-scopes the-struct_66)" +"(expand-context/outer-def-ctx-scopes the-struct_66)" +"(expand-context/outer-binding-layer the-struct_66)" +"(expand-context/outer-reference-records the-struct_66)" +"(expand-context/outer-only-immediate? the-struct_66)" +"(expand-context/outer-need-eventually-defined the-struct_66)" +"(expand-context/outer-current-introduction-scopes the-struct_66)" +"(expand-context/outer-name the-struct_66)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_66)))))))" "(if(if(null? require-lifts_4)(null? lifts_10) #f)" "(let-values() exp-s_7)" "(let-values()" @@ -44926,7 +44953,7 @@ static const char *startup_source = "(lambda(s49_0 ns47_2 ns48_2)" "(begin" " 'expand-to-top-form50" -"(let-values(((s_316) s49_0))" +"(let-values(((s_320) s49_0))" "(let-values(((ns_84)(if ns48_2 ns47_2(1/current-namespace))))" "(let-values()" "(let-values(((observer_4)(current-expand-observe)))" @@ -44939,7 +44966,7 @@ static const char *startup_source = " current-expand-observe" " #f)" "(let-values()" -"(let-values(((s141_0) s_316)" +"(let-values(((s141_0) s_320)" "((ns142_0) ns_84)" "((temp143_0) #f)" "((temp144_2) #f)" @@ -44960,8 +44987,8 @@ static const char *startup_source = " s141_0" " ns142_0)))))))))))))" "(case-lambda" -"((s_432)(begin 'expand-to-top-form(expand-to-top-form50_0 s_432 #f #f)))" -"((s_207 ns47_3)(expand-to-top-form50_0 s_207 ns47_3 #t)))))" +"((s_437)(begin 'expand-to-top-form(expand-to-top-form50_0 s_437 #f #f)))" +"((s_211 ns47_3)(expand-to-top-form50_0 s_211 ns47_3 #t)))))" "(define-values" "(per-top-level68.1)" "(lambda(combine53_0" @@ -44990,25 +45017,25 @@ 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_103)(maybe-intro given-s_0 ns_107)))" +"(let-values(((s_105)(maybe-intro given-s_0 ns_107)))" "(let-values(((ctx_69)" "(let-values(((ns146_0) ns_107)((observer147_0) observer_5))" "(make-expand-context10.1 #f #f observer147_0 #t #f #f ns146_0))))" "(let-values(((phase_138)(namespace-phase ns_107)))" -"((letrec-values(((loop_98)" -"(lambda(s_151 phase_139 ns_108 as-tail?_7)" +"((letrec-values(((loop_100)" +"(lambda(s_153 phase_139 ns_108 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" -"(let-values(((v_127) ctx_69))" -"(let-values(((the-struct_41) v_127))" +"(let-values(((v_126) ctx_69))" +"(let-values(((the-struct_41) v_126))" "(if(expand-context/outer? the-struct_41)" "(let-values(((inner148_0)" -"(let-values(((the-struct_69)" +"(let-values(((the-struct_68)" "(root-expand-context/outer-inner" -" v_127)))" +" v_126)))" "(if(expand-context/inner?" -" the-struct_69)" +" the-struct_68)" "(let-values(((phase149_0)" " phase_139)" "((namespace150_0)" @@ -45019,55 +45046,55 @@ static const char *startup_source = " serializable?_10))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_69)" +" the-struct_68)" "(root-expand-context/inner-module-scopes" -" the-struct_69)" +" the-struct_68)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_69)" +" the-struct_68)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_69)" +" the-struct_68)" "(root-expand-context/inner-defined-syms" -" the-struct_69)" +" the-struct_68)" "(root-expand-context/inner-counter" -" the-struct_69)" +" the-struct_68)" "(root-expand-context/inner-lift-key" -" the-struct_69)" +" the-struct_68)" "(expand-context/inner-to-parsed?" -" the-struct_69)" +" the-struct_68)" " phase149_0" " namespace150_0" " just-once?151_0" "(expand-context/inner-module-begin-k" -" the-struct_69)" +" the-struct_68)" "(expand-context/inner-allow-unbound?" -" the-struct_69)" +" the-struct_68)" "(expand-context/inner-in-local-expand?" -" the-struct_69)" +" the-struct_68)" "(expand-context/inner-stops" -" the-struct_69)" +" the-struct_68)" "(expand-context/inner-declared-submodule-names" -" the-struct_69)" +" the-struct_68)" "(expand-context/inner-lifts" -" the-struct_69)" +" the-struct_68)" "(expand-context/inner-lift-envs" -" the-struct_69)" +" the-struct_68)" "(expand-context/inner-module-lifts" -" the-struct_69)" +" the-struct_68)" "(expand-context/inner-require-lifts" -" the-struct_69)" +" the-struct_68)" "(expand-context/inner-to-module-lifts" -" the-struct_69)" +" the-struct_68)" "(expand-context/inner-requires+provides" -" the-struct_69)" +" the-struct_68)" "(expand-context/inner-observer" -" the-struct_69)" +" the-struct_68)" " for-serializable?152_0" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_69)))" +" the-struct_68)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_69)))))" +" the-struct_68)))))" "(expand-context/outer1.1" " inner148_0" "(root-expand-context/outer-post-expansion-scope" @@ -45099,7 +45126,7 @@ static const char *startup_source = " 'struct-copy" " \"expand-context/outer?\"" " the-struct_41))))))" -"(let-values(((wb-s_0)(if just-once?_1 s_151 #f)))" +"(let-values(((wb-s_0)(if just-once?_1 s_153 #f)))" "(let-values((()" "(begin" "(let-values(((obs_43)" @@ -45111,119 +45138,119 @@ static const char *startup_source = "(call-expand-observe" " obs_43" " 'visit" -" s_151)))" +" s_153)))" "(void)))" "(values))))" "(let-values(((require-lifts_5 lifts_11 exp-s_8)" "(expand-capturing-lifts" -" s_151" -"(let-values(((v_194) tl-ctx_0))" -"(let-values(((the-struct_70) v_194))" -"(if(expand-context/outer? the-struct_70)" +" s_153" +"(let-values(((v_193) tl-ctx_0))" +"(let-values(((the-struct_69) v_193))" +"(if(expand-context/outer? the-struct_69)" "(let-values(((only-immediate?153_0)" " #t)" "((def-ctx-scopes154_0)" "(box null))" "((inner155_0)" -"(let-values(((the-struct_71)" +"(let-values(((the-struct_70)" "(root-expand-context/outer-inner" -" v_194)))" +" v_193)))" "(if(expand-context/inner?" -" the-struct_71)" +" the-struct_70)" "(let-values(((phase156_1)" " phase_139)" "((namespace157_0)" " ns_108))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_71)" +" the-struct_70)" "(root-expand-context/inner-module-scopes" -" the-struct_71)" +" the-struct_70)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_71)" +" the-struct_70)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_71)" +" the-struct_70)" "(root-expand-context/inner-defined-syms" -" the-struct_71)" +" the-struct_70)" "(root-expand-context/inner-counter" -" the-struct_71)" +" the-struct_70)" "(root-expand-context/inner-lift-key" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-to-parsed?" -" the-struct_71)" +" the-struct_70)" " phase156_1" " namespace157_0" "(expand-context/inner-just-once?" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-module-begin-k" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-allow-unbound?" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-in-local-expand?" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-stops" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-declared-submodule-names" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-lifts" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-lift-envs" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-module-lifts" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-require-lifts" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-to-module-lifts" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-requires+provides" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-observer" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-for-serializable?" -" the-struct_71)" +" the-struct_70)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_71)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_71)))))" -"(expand-context/outer1.1" -" inner155_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_70)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_70)" -"(root-expand-context/outer-frame-id" -" the-struct_70)" -"(expand-context/outer-context" -" the-struct_70)" -"(expand-context/outer-env" -" the-struct_70)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_70)" -"(expand-context/outer-scopes" -" the-struct_70)" -" def-ctx-scopes154_0" -"(expand-context/outer-binding-layer" -" the-struct_70)" -"(expand-context/outer-reference-records" -" the-struct_70)" -" only-immediate?153_0" -"(expand-context/outer-need-eventually-defined" -" the-struct_70)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_70)" -"(expand-context/outer-name" " the-struct_70)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_70)))))" +"(expand-context/outer1.1" +" inner155_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_69)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_69)" +"(root-expand-context/outer-frame-id" +" the-struct_69)" +"(expand-context/outer-context" +" the-struct_69)" +"(expand-context/outer-env" +" the-struct_69)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_69)" +"(expand-context/outer-scopes" +" the-struct_69)" +" def-ctx-scopes154_0" +"(expand-context/outer-binding-layer" +" the-struct_69)" +"(expand-context/outer-reference-records" +" the-struct_69)" +" only-immediate?153_0" +"(expand-context/outer-need-eventually-defined" +" the-struct_69)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_69)" +"(expand-context/outer-name" +" the-struct_69)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_70)))))))" +" the-struct_69)))))))" "(let-values(((disarmed-exp-s_0)" "(syntax-disarm$1 exp-s_8)))" -"(if(let-values(((or-part_288)" +"(if(let-values(((or-part_286)" "(pair? require-lifts_5)))" -"(if or-part_288 or-part_288(pair? lifts_11)))" +"(if or-part_286 or-part_286(pair? lifts_11)))" "(let-values()" "(let-values(((new-s_3)" "(let-values(((temp158_0)" @@ -45254,7 +45281,7 @@ static const char *startup_source = "(void)))" "(if just-once?_1" " new-s_3" -"(loop_98" +"(loop_100" " new-s_3" " phase_139" " ns_108" @@ -45297,38 +45324,38 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_27 begin161_0 e162_0)" -"(let-values(((s_433)" +"(let-values(((s_438)" " disarmed-exp-s_0))" "(let-values(((orig-s_33)" -" s_433))" +" s_438))" "(let-values(((begin161_1" " e162_1)" -"(let-values(((s_411)" +"(let-values(((s_416)" "(if(syntax?$1" -" s_433)" +" s_438)" "(syntax-e$1" -" s_433)" -" s_433)))" +" s_438)" +" s_438)))" "(if(pair?" -" s_411)" +" s_416)" "(let-values(((begin163_0)" -"(let-values(((s_412)" +"(let-values(((s_417)" "(car" -" s_411)))" -" s_412))" +" s_416)))" +" s_417))" "((e164_0)" -"(let-values(((s_434)" +"(let-values(((s_439)" "(cdr" -" s_411)))" -"(let-values(((s_121)" +" s_416)))" +"(let-values(((s_123)" "(if(syntax?$1" -" s_434)" +" s_439)" "(syntax-e$1" -" s_434)" -" s_434)))" +" s_439)" +" s_439)))" "(let-values(((flat-s_20)" "(to-syntax-list.1" -" s_121)))" +" s_123)))" "(if(not" " flat-s_20)" "(let-values()" @@ -45365,7 +45392,7 @@ static const char *startup_source = " es_2))" " #f)" "(let-values()" -"(loop_98" +"(loop_100" "(car es_2)" " phase_139" " ns_108" @@ -45384,16 +45411,16 @@ static const char *startup_source = " 'next)))" "(void)))" "(values))))" -"(let-values(((a_62)" +"(let-values(((a_63)" "(if combine_0" -"(loop_98" +"(loop_100" "(car" " es_2)" " phase_139" " ns_108" " #f)" "(begin" -"(loop_98" +"(loop_100" "(car" " es_2)" " phase_139" @@ -45402,7 +45429,7 @@ static const char *startup_source = "(void)))))" "(if combine_0" "(combine_0" -" a_62" +" a_63" "(begin-loop_0" "(cdr" " es_2)))" @@ -45450,38 +45477,38 @@ static const char *startup_source = "(let-values(((ok?_22" " begin-for-syntax165_0" " e166_0)" -"(let-values(((s_126)" +"(let-values(((s_128)" " disarmed-exp-s_0))" "(let-values(((orig-s_34)" -" s_126))" +" s_128))" "(let-values(((begin-for-syntax165_1" " e166_1)" -"(let-values(((s_223)" +"(let-values(((s_227)" "(if(syntax?$1" -" s_126)" +" s_128)" "(syntax-e$1" -" s_126)" -" s_126)))" +" s_128)" +" s_128)))" "(if(pair?" -" s_223)" +" s_227)" "(let-values(((begin-for-syntax167_0)" -"(let-values(((s_225)" +"(let-values(((s_229)" "(car" -" s_223)))" -" s_225))" +" s_227)))" +" s_229))" "((e168_0)" -"(let-values(((s_323)" +"(let-values(((s_327)" "(cdr" -" s_223)))" -"(let-values(((s_226)" +" s_227)))" +"(let-values(((s_230)" "(if(syntax?$1" -" s_323)" +" s_327)" "(syntax-e$1" -" s_323)" -" s_323)))" +" s_327)" +" s_327)))" "(let-values(((flat-s_21)" "(to-syntax-list.1" -" s_226)))" +" s_230)))" "(if(not" " flat-s_21)" "(let-values()" @@ -45534,7 +45561,7 @@ static const char *startup_source = "(namespace-visit-available-modules!" " next-ns_0)" "(values))))" -"(let-values(((l_69)" +"(let-values(((l_73)" "(reverse$1" "(let-values(((lst_306)" " e166_0))" @@ -45552,7 +45579,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_307)" -"(let-values(((s_327)" +"(let-values(((s_331)" "(unsafe-car" " lst_307))" "((rest_172)" @@ -45576,8 +45603,8 @@ static const char *startup_source = " obs_51" " 'next)))" "(void)))" -"(loop_98" -" s_327" +"(loop_100" +" s_331" " next-phase_0" " next-ns_0" " #f)))" @@ -45600,7 +45627,7 @@ static const char *startup_source = "(wrap_2" " begin-for-syntax165_0" " exp-s_8" -" l_69)))" +" l_73)))" "(begin" "(let-values(((obs_52)" "(expand-context-observer" @@ -45618,7 +45645,7 @@ static const char *startup_source = "(let-values()" "(apply" " append" -" l_69))" +" l_73))" "(let-values()" "(void)))))))))))))" "(let-values()" @@ -45626,22 +45653,22 @@ static const char *startup_source = " exp-s_8" " ns_108" " as-tail?_7))))))))))))))))))" -" loop_98)" -" s_103" +" loop_100)" +" s_105" " phase_138" " ns_107" " #t)))))))))))))))))" "(define-values" "(maybe-intro)" -"(lambda(s_435 ns_109)" -"(begin(if(syntax?$1 s_435) s_435(1/namespace-syntax-introduce(1/datum->syntax #f s_435) ns_109)))))" +"(lambda(s_440 ns_109)" +"(begin(if(syntax?$1 s_440) s_440(1/namespace-syntax-introduce(1/datum->syntax #f s_440) ns_109)))))" "(define-values" "(re-pair)" -"(lambda(form-id_0 s_436 r_43)" -"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_436)(cons form-id_0 r_43) s_436 s_436) s_436))))" +"(lambda(form-id_0 s_441 r_42)" +"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_441)(cons form-id_0 r_42) s_441 s_441) s_441))))" "(define-values" "(expand-capturing-lifts)" -"(lambda(s_437 ctx_70)" +"(lambda(s_442 ctx_70)" "(begin" "(let-values()" "(let-values(((ns_110)(expand-context-namespace ctx_70)))" @@ -45654,14 +45681,14 @@ static const char *startup_source = "(namespace-phase ns_110)" "(make-parse-top-lifted-require ns_110))))" "(let-values(((exp-s_9)" -"(let-values(((s170_0) s_437)" +"(let-values(((s170_0) s_442)" "((temp171_0)" -"(let-values(((v_195) ctx_70))" -"(let-values(((the-struct_72) v_195))" -"(if(expand-context/outer? the-struct_72)" +"(let-values(((v_194) ctx_70))" +"(let-values(((the-struct_71) v_194))" +"(if(expand-context/outer? the-struct_71)" "(let-values(((inner172_1)" "(let-values(((the-struct_25)" -"(root-expand-context/outer-inner v_195)))" +"(root-expand-context/outer-inner v_194)))" "(if(expand-context/inner? the-struct_25)" "(let-values(((lifts173_0) lift-ctx_6)" "((module-lifts174_0) lift-ctx_6)" @@ -45713,24 +45740,24 @@ static const char *startup_source = " the-struct_25)))))" "(expand-context/outer1.1" " inner172_1" -"(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)" -"(expand-context/outer-env the-struct_72)" -"(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)))" +"(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)" +"(expand-context/outer-env the-struct_71)" +"(expand-context/outer-post-expansion-scope-action the-struct_71)" +"(expand-context/outer-scopes the-struct_71)" +"(expand-context/outer-def-ctx-scopes the-struct_71)" +"(expand-context/outer-binding-layer the-struct_71)" +"(expand-context/outer-reference-records the-struct_71)" +"(expand-context/outer-only-immediate? the-struct_71)" +"(expand-context/outer-need-eventually-defined the-struct_71)" +"(expand-context/outer-current-introduction-scopes the-struct_71)" +"(expand-context/outer-name the-struct_71)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_72))))))" +" the-struct_71))))))" "(expand7.1 #f #f #f #f s170_0 temp171_0))))" "(values" "(get-and-clear-require-lifts! require-lift-ctx_2)" @@ -45740,31 +45767,31 @@ static const char *startup_source = "(make-parse-top-lifted-require)" "(lambda(ns_111)" "(begin" -"(lambda(s_438 phase_140)" +"(lambda(s_443 phase_140)" "(let-values(((ok?_28 #%require176_0 req177_0)" -"(let-values(((s_439)(syntax-disarm$1 s_438)))" -"(let-values(((orig-s_35) s_439))" +"(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_245)(if(syntax?$1 s_439)(syntax-e$1 s_439) s_439)))" -"(if(pair? s_245)" -"(let-values(((#%require178_0)(let-values(((s_246)(car s_245))) s_246))" +"(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_247)(cdr s_245)))" -"(let-values(((s_248)" -"(if(syntax?$1 s_247)" -"(syntax-e$1 s_247)" -" s_247)))" -"(if(pair? s_248)" +"(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_440)(car s_248)))" -" s_440))" +"(let-values(((s_445)(car s_252)))" +" s_445))" "(()" -"(let-values(((s_441)(cdr s_248)))" -"(let-values(((s_442)" -"(if(syntax?$1 s_441)" -"(syntax-e$1 s_441)" -" s_441)))" -"(if(null? s_442)" +"(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" @@ -45776,7 +45803,7 @@ static const char *startup_source = " (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_438)" +"((s182_0) s_443)" "((ns183_0) ns_111)" "((phase184_1) phase_140)" "((phase185_1) phase_140)" @@ -45886,20 +45913,20 @@ static const char *startup_source = " just-rhs_0)))" "(if(lifted-parsed-begin?" " exp-rhs_3)" -"(let-values(((the-struct_73)" +"(let-values(((the-struct_72)" " exp-rhs_3))" "(if(lifted-parsed-begin?" -" the-struct_73)" +" the-struct_72)" "(let-values(((last189_0)" " dv_0))" "(lifted-parsed-begin30.1" "(lifted-parsed-begin-seq" -" the-struct_73)" +" the-struct_72)" " last189_0))" "(raise-argument-error" " 'struct-copy" " \"lifted-parsed-begin?\"" -" the-struct_73)))" +" the-struct_72)))" " dv_0)))))" " fold-var_287))))" "(values fold-var_288)))))" @@ -45931,19 +45958,19 @@ static const char *startup_source = "(if obs_54" "(let-values()" "(let-values(((ok?_29 begin193_0 e194_0)" -"(let-values(((s_130) new-s_7))" -"(let-values(((orig-s_36) s_130))" +"(let-values(((s_132) new-s_7))" +"(let-values(((orig-s_36) s_132))" "(let-values(((begin193_1 e194_1)" -"(let-values(((s_443)(if(syntax?$1 s_130)(syntax-e$1 s_130) s_130)))" -"(if(pair? s_443)" -"(let-values(((begin195_0)(let-values(((s_444)(car s_443))) s_444))" +"(let-values(((s_448)(if(syntax?$1 s_132)(syntax-e$1 s_132) s_132)))" +"(if(pair? s_448)" +"(let-values(((begin195_0)(let-values(((s_449)(car s_448))) s_449))" "((e196_0)" -"(let-values(((s_445)(cdr s_443)))" -"(let-values(((s_132)" -"(if(syntax?$1 s_445)" -"(syntax-e$1 s_445)" -" s_445)))" -"(let-values(((flat-s_22)(to-syntax-list.1 s_132)))" +"(let-values(((s_450)(cdr s_448)))" +"(let-values(((s_134)" +"(if(syntax?$1 s_450)" +"(syntax-e$1 s_450)" +" s_450)))" +"(let-values(((flat-s_22)(to-syntax-list.1 s_134)))" "(if(not flat-s_22)" "(let-values()" "(raise-syntax-error$1" @@ -45969,19 +45996,19 @@ static const char *startup_source = "(if obs_55" "(let-values()" "(let-values(((ok?_30 begin197_0 e198_0)" -"(let-values(((s_446) new-s_8))" -"(let-values(((orig-s_37) s_446))" +"(let-values(((s_451) new-s_8))" +"(let-values(((orig-s_37) s_451))" "(let-values(((begin197_1 e198_1)" -"(let-values(((s_447)(if(syntax?$1 s_446)(syntax-e$1 s_446) s_446)))" -"(if(pair? s_447)" -"(let-values(((begin199_0)(let-values(((s_448)(car s_447))) s_448))" +"(let-values(((s_452)(if(syntax?$1 s_451)(syntax-e$1 s_451) s_451)))" +"(if(pair? s_452)" +"(let-values(((begin199_0)(let-values(((s_453)(car s_452))) s_453))" "((e200_0)" -"(let-values(((s_449)(cdr s_447)))" -"(let-values(((s_450)" -"(if(syntax?$1 s_449)" -"(syntax-e$1 s_449)" -" s_449)))" -"(let-values(((flat-s_23)(to-syntax-list.1 s_450)))" +"(let-values(((s_454)(cdr s_452)))" +"(let-values(((s_455)" +"(if(syntax?$1 s_454)" +"(syntax-e$1 s_454)" +" s_454)))" +"(let-values(((flat-s_23)(to-syntax-list.1 s_455)))" "(if(not flat-s_23)" "(let-values()" "(raise-syntax-error$1" @@ -46035,8 +46062,8 @@ static const char *startup_source = "(let-values(((or-part_6)(not sym_82)))" "(if or-part_6" " or-part_6" -"(let-values(((or-part_289)(equal? sym_82 0)))" -"(if or-part_289 or-part_289(void? sym_82)))))))" +"(let-values(((or-part_287)(equal? sym_82 0)))" +"(if or-part_287 or-part_287(void? sym_82)))))))" "(void)" "(let-values()" " (raise-argument-error who_22 \"(or/c symbol? #f 0 void?)\" sym_82)))" @@ -46424,57 +46451,57 @@ static const char *startup_source = "(let-values()" "(make-parameter" " null" -"(lambda(l_7)" +"(lambda(l_48)" "(begin" -"(if((lambda(l_70)(if(list? l_70)(andmap2 complete-path-string? l_70) #f)) l_7)" +"(if((lambda(l_74)(if(list? l_74)(andmap2 complete-path-string? l_74) #f)) l_48)" "(void)" "(let-values()" "(raise-argument-error" " 'current-library-collection-paths" " \"(listof (and/c path-string? complete-path?))\"" -" l_7)))" -"(map2 to-path l_7)))))))" +" l_48)))" +"(map2 to-path l_48)))))))" "(define-values" "(1/current-library-collection-links)" "(let-values()" "(let-values()" "(make-parameter" " null" -"(lambda(l_71)" +"(lambda(l_8)" "(begin" -"(if((lambda(l_8)" -"(if(list? l_8)" +"(if((lambda(l_75)" +"(if(list? l_75)" "(andmap2" "(lambda(p_55)" -"(let-values(((or-part_281)(not p_55)))" -"(if or-part_281" -" or-part_281" -"(let-values(((or-part_282)(complete-path-string? p_55)))" -"(if or-part_282" -" or-part_282" +"(let-values(((or-part_278)(not p_55)))" +"(if or-part_278" +" or-part_278" +"(let-values(((or-part_279)(complete-path-string? p_55)))" +"(if or-part_279" +" or-part_279" "(if(hash? p_55)" -"(let-values(((ht_151) p_55))" +"(let-values(((ht_150) p_55))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_151)))" +"(let-values()(check-in-hash ht_150)))" "((letrec-values(((for-loop_184)" "(lambda(result_119 i_90)" "(begin" " 'for-loop" "(if i_90" "(let-values(((k_35 v_3)" -"(hash-iterate-key+value ht_151 i_90)))" +"(hash-iterate-key+value ht_150 i_90)))" "(let-values(((result_120)" "(let-values()" "(let-values(((result_121)" "(let-values()" "(let-values()" -"(if(let-values(((or-part_79)" +"(if(let-values(((or-part_80)" "(not" " k_35)))" -"(if or-part_79" -" or-part_79" +"(if or-part_80" +" or-part_80" "(if(symbol?" " k_35)" "(1/module-path?" @@ -46492,16 +46519,16 @@ static const char *startup_source = " #f)" "(for-loop_184" " result_120" -"(hash-iterate-next ht_151 i_90))" +"(hash-iterate-next ht_150 i_90))" " result_120)))" " result_119)))))" " for-loop_184)" " #t" -"(hash-iterate-first ht_151))))" +"(hash-iterate-first ht_150))))" " #f))))))" -" l_8)" +" l_75)" " #f))" -" l_71)" +" l_8)" "(void)" "(let-values()" "(raise-argument-error" @@ -46511,7 +46538,7 @@ 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_71)))" +" l_8)))" "(map2" "(lambda(p_3)" "(if(not p_3)" @@ -46521,89 +46548,89 @@ static const char *startup_source = "(if(string? p_3)" "(let-values()(string->path p_3))" "(let-values()" -"(let-values(((ht_152) p_3))" +"(let-values(((ht_151) p_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_152)))" +"(let-values()(check-in-hash ht_151)))" "((letrec-values(((for-loop_271)" -"(lambda(table_220 i_91)" +"(lambda(table_219 i_91)" "(begin" " 'for-loop" "(if i_91" -"(let-values(((k_36 v_196)(hash-iterate-key+value ht_152 i_91)))" +"(let-values(((k_36 v_195)(hash-iterate-key+value ht_151 i_91)))" +"(let-values(((table_220)" +"(let-values(((table_188) table_219))" "(let-values(((table_221)" -"(let-values(((table_189) table_220))" -"(let-values(((table_222)" "(let-values()" "(let-values(((key_86 val_78)" "(let-values()" "(values" " k_36" -"(to-path v_196)))))" +"(to-path v_195)))))" "(hash-set" -" table_189" +" table_188" " key_86" " val_78)))))" -"(values table_222)))))" +"(values table_221)))))" "(if(not #f)" -"(for-loop_271 table_221(hash-iterate-next ht_152 i_91))" -" table_221)))" -" table_220)))))" +"(for-loop_271 table_220(hash-iterate-next ht_151 i_91))" +" table_220)))" +" table_219)))))" " for-loop_271)" " '#hash()" -"(hash-iterate-first ht_152)))))))))" -" l_71)))))))" +"(hash-iterate-first ht_151)))))))))" +" l_8)))))))" "(define-values" "(1/use-compiled-file-paths)" "(let-values()" "(let-values()" "(make-parameter" " (list (string->path \"compiled\"))" -"(lambda(l_48)" +"(lambda(l_47)" "(begin" -"(if((lambda(l_72)(if(list? l_72)(andmap2 relative-path-string?$1 l_72) #f)) l_48)" +"(if((lambda(l_76)(if(list? l_76)(andmap2 relative-path-string?$1 l_76) #f)) l_47)" "(void)" "(let-values()" -" (raise-argument-error 'use-compiled-file-paths \"(listof (and/c path-string? relative-path?))\" l_48)))" -"(map2 to-path l_48)))))))" +" (raise-argument-error 'use-compiled-file-paths \"(listof (and/c path-string? relative-path?))\" l_47)))" +"(map2 to-path l_47)))))))" "(define-values" "(1/current-compiled-file-roots)" "(let-values()" "(let-values()" "(make-parameter" " '(same)" -"(lambda(l_73)" +"(lambda(l_77)" "(begin" -"(if((lambda(l_74)" -"(if(list? l_74)" +"(if((lambda(l_78)" +"(if(list? l_78)" "(andmap2" "(lambda(p_56)" "(let-values(((or-part_8)(path-string? p_56)))(if or-part_8 or-part_8(eq? p_56 'same))))" -" l_74)" +" l_78)" " #f))" -" l_73)" +" l_77)" "(void)" "(let-values()" -" (raise-argument-error 'current-compiled-file-roots \"(listof (or/c path-string? 'same))\" l_73)))" -"(map2 to-path l_73)))))))" +" (raise-argument-error 'current-compiled-file-roots \"(listof (or/c path-string? 'same))\" l_77)))" +"(map2 to-path l_77)))))))" "(define-values" "(1/use-compiled-file-check)" "(let-values()" "(let-values()" "(make-parameter" " 'modify-seconds" -"(lambda(v_197)" +"(lambda(v_196)" "(begin" "(if((lambda(v_64)" -"(let-values(((or-part_21)(eq? v_64 'modify-seconds)))" -"(if or-part_21 or-part_21(eq? v_64 'exists))))" -" v_197)" +"(let-values(((or-part_32)(eq? v_64 'modify-seconds)))" +"(if or-part_32 or-part_32(eq? v_64 'exists))))" +" v_196)" "(void)" -" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_197)))" -" v_197))))))" -"(define-values(1/use-collection-link-paths)(make-parameter #t(lambda(v_77)(if v_77 #t #f))))" -"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_198)(if v_198 #t #f))))" +" (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_196)))" +" v_196))))))" +"(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_197)(if v_197 #t #f))))" "(define-values(complete-path-string?)(lambda(p_57)(begin(if(path-string? p_57)(complete-path? p_57) #f))))" "(define-values" "(relative-path-string?$1)" @@ -46651,33 +46678,33 @@ static const char *startup_source = "(let-values()(thunk_4)))))))" "(define-values" "(1/load/use-compiled)" -"(lambda(f_24)" +"(lambda(f_25)" "(begin" " 'load/use-compiled" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(path-string? f_24)" +"(if(path-string? f_25)" "(void)" -" (let-values () (raise-argument-error 'load/use-compiled \"path-string?\" f_24)))" +" (let-values () (raise-argument-error 'load/use-compiled \"path-string?\" f_25)))" "(values))))" -"(let-values(((p_48)(->path f_24)))((1/current-load/use-compiled) p_48 #f))))))))" +"(let-values(((p_48)(->path f_25)))((1/current-load/use-compiled) p_48 #f))))))))" "(define-values" "(embedded-load)" "(lambda(start_42 end_32 str_23 as-predefined?_0)" "(begin" -"(let-values(((s_163)" +"(let-values(((s_165)" "(if str_23" " str_23" "(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_282)(1/string->number start_42)))" -"(if or-part_282 or-part_282 0))))" +"(let-values(((or-part_279)(1/string->number start_42)))" +"(if or-part_279 or-part_279 0))))" "(let-values(((end_33)" -"(let-values(((or-part_287)(1/string->number end_32)))" -"(if or-part_287 or-part_287 0))))" +"(let-values(((or-part_285)(1/string->number end_32)))" +"(if or-part_285 or-part_285 0))))" "(let-values(((exe4_0) exe_0)" "((temp5_5)" "(lambda()" @@ -46687,8 +46714,8 @@ static const char *startup_source = "(file-position(current-input-port) start_43)" "(read-bytes(max 0(- end_33 start_43))))))))" "(with-input-from-file45.1 #f #f exe4_0 temp5_5)))))))))" -"(let-values(((p_62)(open-input-bytes s_163)))" -"((letrec-values(((loop_66)" +"(let-values(((p_62)(open-input-bytes s_165)))" +"((letrec-values(((loop_65)" "(lambda()" "(begin" " 'loop" @@ -46717,9 +46744,9 @@ static const char *startup_source = " current-module-declare-as-predefined" " as-predefined?_0)" "(let-values()((1/current-eval) e_78)))" -"(loop_66)))))))))" -" loop_66)))))))" -"(define-values(->path)(lambda(s_75)(begin(if(string? s_75)(string->path s_75) s_75))))" +"(loop_65)))))))))" +" loop_65)))))))" +"(define-values(->path)(lambda(s_77)(begin(if(string? s_77)(string->path s_77) s_77))))" "(define-values" "(find-main-collects)" "(lambda()" @@ -46748,12 +46775,12 @@ static const char *startup_source = "(define-values(relative-path-string?)(lambda(s_0)(begin(if(path-string? s_0)(relative-path? s_0) #f))))" "(define-values" "(check-collection)" -"(lambda(who_25 s_180 l_4)" +"(lambda(who_25 s_182 l_4)" "(begin" "(begin" -"(if(relative-path-string? s_180)" +"(if(relative-path-string? s_182)" "(void)" -" (let-values () (raise-argument-error who_25 \"(and/c path-string? relative-path?)\" s_180)))" +" (let-values () (raise-argument-error who_25 \"(and/c path-string? relative-path?)\" s_182)))" "(if((lambda(l_2)(if(list? l_2)(andmap2 relative-path-string? l_2) #f)) l_4)" "(void)" " (let-values () (raise-argument-error who_25 \"(listof (and/c path-string? relative-path?))\" l_4)))))))" @@ -46795,7 +46822,7 @@ static const char *startup_source = "(lambda(d_33)" "(begin" " (let-values (((p_63) (if d_33 (build-path d_33 \"config.rktd\") #f)))" -"(let-values(((or-part_280)" +"(let-values(((or-part_277)" "(if p_63" "(if(file-exists? p_63)" "(let-values(((p9_0) p_63)" @@ -46808,7 +46835,7 @@ static const char *startup_source = "(with-input-from-file45.1 #f #f p9_0 temp10_4))" " #f)" " #f)))" -"(if or-part_280 or-part_280 '#hash()))))))" +"(if or-part_277 or-part_277 '#hash()))))))" "(define-values" "(get-installation-name)" "(lambda(config-table_0)(begin(hash-ref config-table_0 'installation-name(version)))))" @@ -46830,46 +46857,46 @@ static const char *startup_source = "(let-values()" "(path->complete-path" " p_64" -"(let-values(((or-part_74)(find-main-collects)))(if or-part_74 or-part_74(current-directory)))))))))" +"(let-values(((or-part_75)(find-main-collects)))(if or-part_75 or-part_75(current-directory)))))))))" "(define-values" "(add-config-search)" -"(lambda(ht_153 key_87 orig-l_9)" +"(lambda(ht_152 key_87 orig-l_9)" "(begin" -"(let-values(((l_75)(hash-ref ht_153 key_87 #f)))" -"(if l_75" -"((letrec-values(((loop_99)" -"(lambda(l_76)" +"(let-values(((l_79)(hash-ref ht_152 key_87 #f)))" +"(if l_79" +"((letrec-values(((loop_101)" +"(lambda(l_80)" "(begin" " 'loop" -"(if(null? l_76)" +"(if(null? l_80)" "(let-values() null)" -"(if(not(car l_76))" -"(let-values()(append orig-l_9(loop_99(cdr l_76))))" -"(let-values()(cons(coerce-to-path(car l_76))(loop_99(cdr l_76))))))))))" -" loop_99)" -" l_75)" +"(if(not(car l_80))" +"(let-values()(append orig-l_9(loop_101(cdr l_80))))" +"(let-values()(cons(coerce-to-path(car l_80))(loop_101(cdr l_80))))))))))" +" loop_101)" +" l_79)" " orig-l_9)))))" "(define-values" "(1/find-library-collection-links)" "(lambda()" "(begin" " 'find-library-collection-links" -"(let-values(((ht_154)(get-config-table(find-main-config))))" +"(let-values(((ht_153)(get-config-table(find-main-config))))" "(let-values(((lf_0)" "(coerce-to-path" -"(let-values(((or-part_82)(hash-ref ht_154 'links-file #f)))" -"(if or-part_82" -" or-part_82" +"(let-values(((or-part_83)(hash-ref ht_153 'links-file #f)))" +"(if or-part_83" +" or-part_83" "(build-path" -"(let-values(((or-part_83)(hash-ref ht_154 'share-dir #f)))" -" (if or-part_83 or-part_83 (build-path 'up \"share\")))" +"(let-values(((or-part_84)(hash-ref ht_153 'share-dir #f)))" +" (if or-part_84 or-part_84 (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_154) \"links.rktd\"))" +" (list (build-path (find-system-path 'addon-dir) (get-installation-name ht_153) \"links.rktd\"))" " null)" -"(if(1/use-collection-link-paths)(add-config-search ht_154 'links-search-files(list lf_0)) null)))))))" +"(if(1/use-collection-link-paths)(add-config-search ht_153 '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" @@ -46889,7 +46916,7 @@ static const char *startup_source = "(lambda()" "(let-values(((dir-evt_0)" "(if(vector-ref(system-type 'fs-change) 2)" -"((letrec-values(((loop_60)" +"((letrec-values(((loop_59)" "(lambda(path_8)" "(begin" " 'loop" @@ -46897,9 +46924,9 @@ static const char *startup_source = "(if(path? base_20)" "(if(directory-exists? base_20)" "(filesystem-change-evt base_20(lambda() #f))" -"(loop_60 base_20))" +"(loop_59 base_20))" " #f))))))" -" loop_60)" +" loop_59)" " path_7)" " #f)))" "(if(not(file-exists? path_7))" @@ -46928,18 +46955,18 @@ static const char *startup_source = " bytes-append" "(cons" " bstr_1" -"((letrec-values(((loop_100)" +"((letrec-values(((loop_102)" "(lambda()" "(begin" " 'loop" "(let-values(((bstr_2)(read-bytes 8192 p_65)))" -"(if(eof-object? bstr_2) null(cons bstr_2(loop_100))))))))" -" loop_100))))" +"(if(eof-object? bstr_2) null(cons bstr_2(loop_102))))))))" +" loop_102))))" " bstr_1))))))" "(call-with-input-file*61.1 #f #f path11_0 temp12_3)))))" "(define-values" "(no-file-stamp?)" -"(lambda(a_63)(begin(let-values(((or-part_31)(not a_63)))(if or-part_31 or-part_31(not(car a_63)))))))" +"(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)" @@ -46953,11 +46980,11 @@ static const char *startup_source = "(lambda(exn_1)" "(begin" "(if(exn:fail? exn_1)" -"(let-values(((l_77)(current-logger)))" -"(if(log-level? l_77 'error)" +"(let-values(((l_81)(current-logger)))" +"(if(log-level? l_81 'error)" "(let-values()" "(log-message" -" l_77" +" l_81" " 'error" "(format" " \"error reading collection links file ~s: ~a\"" @@ -46984,7 +47011,7 @@ static const char *startup_source = "(lambda()" "(call-with-default-reading-parameterization" "(lambda()" -"(let-values(((v_199)" +"(let-values(((v_198)" "(if(no-file-stamp? ts_1)" " null" "(let-values(((links-path13_0) links-path_0)" @@ -47001,41 +47028,41 @@ static const char *startup_source = "(call-with-input-file*61.1 #f #f links-path13_0 temp14_5)))))" "(let-values((()" "(begin" -"(if(if(list? v_199)" +"(if(if(list? v_198)" "(andmap2" "(lambda(p_67)" "(if(list? p_67)" -"(if(let-values(((or-part_219)(= 2(length p_67))))" -"(if or-part_219 or-part_219(= 3(length p_67))))" -"(if(let-values(((or-part_290)(string?(car p_67))))" -"(if or-part_290" -" or-part_290" -"(let-values(((or-part_291)" +"(if(let-values(((or-part_218)(= 2(length p_67))))" +"(if or-part_218 or-part_218(= 3(length p_67))))" +"(if(let-values(((or-part_288)(string?(car p_67))))" +"(if or-part_288" +" or-part_288" +"(let-values(((or-part_289)" "(eq? 'root(car p_67))))" -"(if or-part_291" -" or-part_291" +"(if or-part_289" +" or-part_289" "(eq? 'static-root(car p_67))))))" "(if(path-string?(cadr p_67))" -"(let-values(((or-part_292)(null?(cddr p_67))))" -"(if or-part_292 or-part_292(regexp?(caddr p_67))))" +"(let-values(((or-part_290)(null?(cddr p_67))))" +"(if or-part_290 or-part_290(regexp?(caddr p_67))))" " #f)" " #f)" " #f)" " #f))" -" v_199)" +" v_198)" " #f)" "(void)" " (let-values () (error \"ill-formed content\")))" "(values))))" -"(let-values(((ht_155)(make-hasheq)))" +"(let-values(((ht_154)(make-hasheq)))" "(let-values(((dir_0)" "(let-values(((base_21 name_65 dir?_5)(split-path links-path_0)))" " base_21)))" "(begin" "(for-each2" "(lambda(p_68)" -"(if(let-values(((or-part_293)(null?(cddr p_68))))" -"(if or-part_293 or-part_293(regexp-match?(caddr p_68)(version))))" +"(if(let-values(((or-part_291)(null?(cddr p_68))))" +"(if or-part_291 or-part_291(regexp-match?(caddr p_68)(version))))" "(let-values()" "(let-values(((dir_1)" "(simplify-path(path->complete-path(cadr p_68) dir_0))))" @@ -47047,34 +47074,34 @@ static const char *startup_source = "(let-values()" "(let-values(((k_37)(string->symbol(path->string sub_1))))" "(hash-set!" -" ht_155" +" ht_154" " k_37" -"(cons dir_1(hash-ref ht_155 k_37 null)))))" +"(cons dir_1(hash-ref ht_154 k_37 null)))))" "(void)))" "(directory-list dir_1)))" "(if(eq?(car p_68) 'root)" "(let-values()" "(begin" -"(if(hash-ref ht_155 #f #f)" +"(if(hash-ref ht_154 #f #f)" "(void)" -"(let-values()(hash-set! ht_155 #f null)))" +"(let-values()(hash-set! ht_154 #f null)))" "(hash-for-each" -" ht_155" -"(lambda(k_38 v_200)" -"(hash-set! ht_155 k_38(cons dir_1 v_200))))))" +" ht_154" +"(lambda(k_38 v_199)" +"(hash-set! ht_154 k_38(cons dir_1 v_199))))))" "(let-values()" "(let-values(((s_16)(string->symbol(car p_68))))" "(hash-set!" -" ht_155" +" ht_154" " s_16" -"(cons(box dir_1)(hash-ref ht_155 s_16 null)))))))))" +"(cons(box dir_1)(hash-ref ht_154 s_16 null)))))))))" "(void)))" -" v_199)" +" v_198)" "(hash-for-each" -" ht_155" -"(lambda(k_39 v_201)(hash-set! ht_155 k_39(reverse$1 v_201))))" -"(hash-set! links-cache links-path_0(cons ts_1 ht_155))" -" ht_155))))))))))))))))))))))" +" ht_154" +"(lambda(k_39 v_200)(hash-set! ht_154 k_39(reverse$1 v_200))))" +"(hash-set! links-cache links-path_0(cons ts_1 ht_154))" +" ht_154))))))))))))))))))))))" "(define-values" "(normalize-collection-reference)" "(lambda(collection_2 collection-path_2)" @@ -47105,28 +47132,28 @@ static const char *startup_source = "(let-values(((sym_90)" "(string->symbol" "(if(path? collection_3)(path->string collection_3) collection_3))))" -"((letrec-values(((loop_101)" -"(lambda(l_78)" +"((letrec-values(((loop_103)" +"(lambda(l_82)" "(begin" " 'loop" -"(if(null? l_78)" +"(if(null? l_82)" "(let-values() null)" -"(if(not(car l_78))" +"(if(not(car l_82))" "(let-values()" -"(append(1/current-library-collection-paths)(loop_101(cdr l_78))))" -"(if(hash?(car l_78))" +"(append(1/current-library-collection-paths)(loop_103(cdr l_82))))" +"(if(hash?(car l_82))" "(let-values()" "(append" -"(map2 box(hash-ref(car l_78) sym_90 null))" -"(hash-ref(car l_78) #f null)" -"(loop_101(cdr l_78))))" +"(map2 box(hash-ref(car l_82) sym_90 null))" +"(hash-ref(car l_82) #f null)" +"(loop_103(cdr l_82))))" "(let-values()" -"(let-values(((ht_156)(get-linked-collections(car l_78))))" +"(let-values(((ht_155)(get-linked-collections(car l_82))))" "(append" -"(hash-ref ht_156 sym_90 null)" -"(hash-ref ht_156 #f null)" -"(loop_101(cdr l_78))))))))))))" -" loop_101)" +"(hash-ref ht_155 sym_90 null)" +"(hash-ref ht_155 #f null)" +"(loop_103(cdr l_82))))))))))))" +" loop_103)" "(1/current-library-collection-links)))))" "(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)" @@ -47149,7 +47176,7 @@ static const char *startup_source = " \"\"" "(apply" " string-append" -"((letrec-values(((loop_48)" +"((letrec-values(((loop_49)" "(lambda(cp_0)" "(begin" " 'loop" @@ -47158,18 +47185,18 @@ static const char *startup_source = "(list*" "(to-string_0(car cp_0))" " \"/\"" -"(loop_48(cdr cp_0))))))))" -" loop_48)" +"(loop_49(cdr cp_0))))))))" +" loop_49)" " collection-path_3)))))" "(letrec-values(((filter_1)" -"(lambda(f_39 l_28)" +"(lambda(f_38 l_29)" "(begin" " 'filter" -"(if(null? l_28)" +"(if(null? l_29)" " null" -"(if(f_39(car l_28))" -"(cons(car l_28)(filter_1 f_39(cdr l_28)))" -"(filter_1 f_39(cdr l_28))))))))" +"(if(f_38(car l_29))" +"(cons(car l_29)(filter_1 f_38(cdr l_29)))" +"(filter_1 f_38(cdr l_29))))))))" "(fail_5" "(format" " \"collection not found\\n collection: ~s\\n in collection directories:~a~a\"" @@ -47243,8 +47270,8 @@ static const char *startup_source = "(done_1 cpath_0)" "(cloop_0" "(cdr paths_1)" -"(let-values(((or-part_97) found-col_0))" -"(if or-part_97 or-part_97 cpath_0))))" +"(let-values(((or-part_98) found-col_0))" +"(if or-part_98 or-part_98 cpath_0))))" "(done_1 cpath_0))" "(cloop_0(cdr paths_1) found-col_0)))" "(cloop_0(cdr paths_1) found-col_0))))))))" @@ -47255,9 +47282,9 @@ static const char *startup_source = "(file-exists?/maybe-compiled)" "(lambda(dir_3 path_10 check-compiled?_2)" "(begin" -"(let-values(((or-part_294)(file-exists?(build-path dir_3 path_10))))" -"(if or-part_294" -" or-part_294" +"(let-values(((or-part_292)(file-exists?(build-path dir_3 path_10))))" +"(if or-part_292" +" or-part_292" "(if check-compiled?_2" " (let-values (((try-path_0) (path-add-extension path_10 #\".zo\"))" "((modes_0)(1/use-compiled-file-paths))" @@ -47287,7 +47314,7 @@ static const char *startup_source = "(let-values()" "(let-values(((user-too?_0)(1/use-user-specific-search-paths))" "((cons-if_0)" -"(lambda(f_40 r_44)(begin 'cons-if(if f_40(cons f_40 r_44) r_44))))" +"(lambda(f_39 r_43)(begin 'cons-if(if f_39(cons f_39 r_43) r_43))))" "((config-table_1)(get-config-table(find-main-config))))" "(path-list-string->path-list" "(if user-too?_0" @@ -47307,23 +47334,23 @@ static const char *startup_source = "(get-installation-name config-table_1)" " \"collects\")" " #f)" -"((letrec-values(((loop_85)" -"(lambda(l_79)" +"((letrec-values(((loop_84)" +"(lambda(l_83)" "(begin" " 'loop" -"(if(null? l_79)" +"(if(null? l_83)" " null" -"(let-values(((collects-path_1)(car l_79)))" -"(let-values(((v_202)" +"(let-values(((collects-path_1)(car l_83)))" +"(let-values(((v_201)" "(exe-relative-path->complete-path" " collects-path_1)))" -"(if v_202" +"(if v_201" "(cons" "(simplify-path" -"(path->complete-path v_202(current-directory)))" -"(loop_85(cdr l_79)))" -"(loop_85(cdr l_79))))))))))" -" loop_85)" +"(path->complete-path v_201(current-directory)))" +"(loop_84(cdr l_83)))" +"(loop_84(cdr l_83))))))))))" +" loop_84)" "(append" " extra-collects-dirs_0" "(list(find-system-path 'collects-dir))" @@ -47340,14 +47367,14 @@ static const char *startup_source = "(let-values()" "(make-parameter" " #f" -"(lambda(v_203)" +"(lambda(v_202)" "(begin" "(if((lambda(x_81)" "(let-values(((or-part_11)(not x_81)))(if or-part_11 or-part_11(prop:readtable? x_81))))" -" v_203)" +" v_202)" "(void)" -" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_203)))" -" v_203))))))" +" (let-values () (raise-argument-error 'current-readtable \"(or/c prop:readtable? #f)\" v_202)))" +" v_202))))))" "(define-values" "(struct:read-config/outer" " read-config/outer1.1" @@ -47473,42 +47500,42 @@ static const char *startup_source = " pos_107" " indentations_0" " keep-comment?_0))))" -"(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-wrap)(lambda(v_203)(begin(read-config/outer-wrap v_203))))" +"(define-values(read-config-line)(lambda(v_204)(begin(read-config/outer-line v_204))))" +"(define-values(read-config-col)(lambda(v_205)(begin(read-config/outer-col v_205))))" +"(define-values(read-config-pos)(lambda(v_206)(begin(read-config/outer-pos v_206))))" +"(define-values(read-config-indentations)(lambda(v_207)(begin(read-config/outer-indentations v_207))))" +"(define-values(read-config-keep-comment?)(lambda(v_208)(begin(read-config/outer-keep-comment? v_208))))" "(define-values" "(read-config-readtable)" -"(lambda(v_210)(begin(read-config/inner-readtable(read-config/outer-inner v_210)))))" +"(lambda(v_209)(begin(read-config/inner-readtable(read-config/outer-inner v_209)))))" "(define-values" "(read-config-next-readtable)" -"(lambda(v_211)(begin(read-config/inner-next-readtable(read-config/outer-inner v_211)))))" +"(lambda(v_210)(begin(read-config/inner-next-readtable(read-config/outer-inner v_210)))))" "(define-values" "(read-config-for-syntax?)" -"(lambda(v_212)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_212)))))" +"(lambda(v_211)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_211)))))" "(define-values(read-config-source)(lambda(v_71)(begin(read-config/inner-source(read-config/outer-inner v_71)))))" "(define-values" "(read-config-read-compiled)" -"(lambda(v_183)(begin(read-config/inner-read-compiled(read-config/outer-inner v_183)))))" +"(lambda(v_182)(begin(read-config/inner-read-compiled(read-config/outer-inner v_182)))))" "(define-values" "(read-config-dynamic-require)" -"(lambda(v_213)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_213)))))" +"(lambda(v_212)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_212)))))" "(define-values" "(read-config-module-declared?)" -"(lambda(v_214)(begin(read-config/inner-module-declared?(read-config/outer-inner v_214)))))" -"(define-values(read-config-coerce)(lambda(v_78)(begin(read-config/inner-coerce(read-config/outer-inner v_78)))))" +"(lambda(v_213)(begin(read-config/inner-module-declared?(read-config/outer-inner v_213)))))" +"(define-values(read-config-coerce)(lambda(v_77)(begin(read-config/inner-coerce(read-config/outer-inner v_77)))))" "(define-values" "(read-config-coerce-key)" -"(lambda(v_215)(begin(read-config/inner-coerce-key(read-config/outer-inner v_215)))))" +"(lambda(v_214)(begin(read-config/inner-coerce-key(read-config/outer-inner v_214)))))" "(define-values" "(read-config-parameter-override)" -"(lambda(v_202)(begin(read-config/inner-parameter-override(read-config/outer-inner v_202)))))" +"(lambda(v_201)(begin(read-config/inner-parameter-override(read-config/outer-inner v_201)))))" "(define-values" "(read-config-parameter-cache)" -"(lambda(v_216)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_216)))))" -"(define-values(read-config-st)(lambda(v_188)(begin(read-config/inner-st(read-config/outer-inner v_188)))))" +"(lambda(v_215)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_215)))))" +"(define-values(read-config-st)(lambda(v_187)(begin(read-config/inner-st(read-config/outer-inner v_187)))))" "(define-values" "(struct:read-config-state" " read-config-state3.1" @@ -47587,19 +47614,19 @@ static const char *startup_source = " wrap_4" "(let-values(((or-part_89) read-compiled_1))" " (if or-part_89 or-part_89 (lambda (in_0) (error 'read \"no `read-compiled` provided\"))))" -"(let-values(((or-part_295) dynamic-require_1))" -"(if or-part_295" -" or-part_295" +"(let-values(((or-part_91) dynamic-require_1))" +"(if or-part_91" +" or-part_91" "(lambda(mod-path_25 sym_91 failure-k_0)" " (error 'read \"no `dynamic-require` provided\"))))" -"(let-values(((or-part_296) module-declared?_1))" -"(if or-part_296" -" or-part_296" +"(let-values(((or-part_293) module-declared?_1))" +"(if or-part_293" +" or-part_293" " (lambda (mod-path_26) (error 'read \"no `module-declare?` provided\"))))" -"(let-values(((or-part_214) coerce_1))" -"(if or-part_214 or-part_214(lambda(for-syntax?_2 v_110 srcloc_9) v_110)))" -"(let-values(((or-part_256) coerce-key_1))" -"(if or-part_256 or-part_256(lambda(for-syntax?_3 v_114) v_114)))" +"(let-values(((or-part_213) coerce_1))" +"(if or-part_213 or-part_213(lambda(for-syntax?_2 v_109 srcloc_9) v_109)))" +"(let-values(((or-part_254) coerce-key_1))" +"(if or-part_254 or-part_254(lambda(for-syntax?_3 v_113) v_113)))" " #f" " #f" " #f" @@ -47629,14 +47656,14 @@ static const char *startup_source = "(let-values(((local-graph?_0) reset-graph?33_0))" "(let-values(((keep-comment?_2) keep-comment?34_0))" "(let-values()" -"(let-values(((v_217) config_0))" -"(let-values(((the-struct_74) v_217))" -"(if(read-config/outer? the-struct_74)" +"(let-values(((v_216) config_0))" +"(let-values(((the-struct_73) v_216))" +"(if(read-config/outer? the-struct_73)" "(let-values(((wrap55_0) wrap_5)" "((keep-comment?56_0) keep-comment?_2)" "((inner57_0)" -"(let-values(((the-struct_75)(read-config/outer-inner v_217)))" -"(if(read-config/inner? the-struct_75)" +"(let-values(((the-struct_74)(read-config/outer-inner v_216)))" +"(if(read-config/inner? the-struct_74)" "(let-values(((for-syntax?58_0) for-syntax?_4)" "((readtable59_0) readtable_2)" "((next-readtable60_0) next-readtable_2)" @@ -47648,25 +47675,25 @@ static const char *startup_source = " readtable59_0" " next-readtable60_0" " for-syntax?58_0" -"(read-config/inner-source the-struct_75)" -"(read-config/inner-read-compiled the-struct_75)" -"(read-config/inner-dynamic-require the-struct_75)" -"(read-config/inner-module-declared? the-struct_75)" -"(read-config/inner-coerce the-struct_75)" -"(read-config/inner-coerce-key the-struct_75)" -"(read-config/inner-parameter-override the-struct_75)" -"(read-config/inner-parameter-cache the-struct_75)" +"(read-config/inner-source the-struct_74)" +"(read-config/inner-read-compiled the-struct_74)" +"(read-config/inner-dynamic-require the-struct_74)" +"(read-config/inner-module-declared? the-struct_74)" +"(read-config/inner-coerce the-struct_74)" +"(read-config/inner-coerce-key the-struct_74)" +"(read-config/inner-parameter-override the-struct_74)" +"(read-config/inner-parameter-cache the-struct_74)" " st61_0))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_75)))))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_74)))))" "(read-config/outer1.1" " inner57_0" " wrap55_0" -"(read-config/outer-line the-struct_74)" -"(read-config/outer-col the-struct_74)" -"(read-config/outer-pos the-struct_74)" -"(read-config/outer-indentations the-struct_74)" +"(read-config/outer-line the-struct_73)" +"(read-config/outer-col the-struct_73)" +"(read-config/outer-pos the-struct_73)" +"(read-config/outer-indentations the-struct_73)" " keep-comment?56_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_74)))))))))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_73)))))))))))))))" "(define-values" "(port+config->srcloc49.1)" "(lambda(end-pos45_0 end-pos46_0 in47_0 config48_0)" @@ -47677,16 +47704,16 @@ static const char *startup_source = "(let-values(((given-end-pos_0)(if end-pos46_0 end-pos45_0 #f)))" "(let-values()" "(let-values(((end-pos_0)" -"(let-values(((or-part_297) given-end-pos_0))" -"(if or-part_297" -" or-part_297" +"(let-values(((or-part_294) given-end-pos_0))" +"(if or-part_294" +" or-part_294" "(let-values(((end-line_0 end-col_0 end-pos_1)(port-next-location in_1)))" " end-pos_1)))))" "(srcloc" -"(let-values(((or-part_173)(read-config-source config_1)))" -"(if or-part_173" -" or-part_173" -" (let-values (((or-part_298) (object-name in_1))) (if or-part_298 or-part_298 \"UNKNOWN\"))))" +"(let-values(((or-part_172)(read-config-source config_1)))" +"(if or-part_172" +" or-part_172" +" (let-values (((or-part_295) (object-name in_1))) (if or-part_295 or-part_295 \"UNKNOWN\"))))" "(read-config-line config_1)" "(read-config-col config_1)" "(read-config-pos config_1)" @@ -47697,56 +47724,56 @@ static const char *startup_source = "(reading-at)" "(lambda(config_2 line_2 col_1 pos_108)" "(begin" -"(let-values(((v_218) config_2))" -"(let-values(((the-struct_76) v_218))" -"(if(read-config/outer? the-struct_76)" +"(let-values(((v_217) config_2))" +"(let-values(((the-struct_75) v_217))" +"(if(read-config/outer? the-struct_75)" "(let-values(((line62_0) line_2)" "((col63_0) col_1)" "((pos64_0) pos_108)" -"((inner65_0)(read-config/outer-inner v_218)))" +"((inner65_0)(read-config/outer-inner v_217)))" "(read-config/outer1.1" " inner65_0" -"(read-config/outer-wrap the-struct_76)" +"(read-config/outer-wrap the-struct_75)" " line62_0" " col63_0" " pos64_0" -"(read-config/outer-indentations the-struct_76)" -"(read-config/outer-keep-comment? the-struct_76)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_76)))))))" +"(read-config/outer-indentations the-struct_75)" +"(read-config/outer-keep-comment? the-struct_75)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_75)))))))" "(define-values" "(disable-wrapping)" "(lambda(config_3)" "(begin" -"(let-values(((v_219) config_3))" -"(let-values(((the-struct_77) v_219))" -"(if(read-config/outer? the-struct_77)" -"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_219)))" +"(let-values(((v_218) config_3))" +"(let-values(((the-struct_76) v_218))" +"(if(read-config/outer? the-struct_76)" +"(let-values(((wrap66_0) #f)((inner67_0)(read-config/outer-inner v_218)))" "(read-config/outer1.1" " inner67_0" " wrap66_0" -"(read-config/outer-line the-struct_77)" -"(read-config/outer-col the-struct_77)" -"(read-config/outer-pos the-struct_77)" -"(read-config/outer-indentations the-struct_77)" -"(read-config/outer-keep-comment? the-struct_77)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_77)))))))" +"(read-config/outer-line the-struct_76)" +"(read-config/outer-col the-struct_76)" +"(read-config/outer-pos the-struct_76)" +"(read-config/outer-indentations the-struct_76)" +"(read-config/outer-keep-comment? the-struct_76)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_76)))))))" "(define-values" "(keep-comment)" "(lambda(config_4)" "(begin" -"(let-values(((v_220) config_4))" -"(let-values(((the-struct_78) v_220))" -"(if(read-config/outer? the-struct_78)" -"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_220)))" +"(let-values(((v_219) config_4))" +"(let-values(((the-struct_77) v_219))" +"(if(read-config/outer? the-struct_77)" +"(let-values(((keep-comment?68_0) #t)((inner69_0)(read-config/outer-inner v_219)))" "(read-config/outer1.1" " inner69_0" -"(read-config/outer-wrap the-struct_78)" -"(read-config/outer-line the-struct_78)" -"(read-config/outer-col the-struct_78)" -"(read-config/outer-pos the-struct_78)" -"(read-config/outer-indentations the-struct_78)" +"(read-config/outer-wrap the-struct_77)" +"(read-config/outer-line the-struct_77)" +"(read-config/outer-col the-struct_77)" +"(read-config/outer-pos the-struct_77)" +"(read-config/outer-indentations the-struct_77)" " keep-comment?68_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_78)))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_77)))))))" "(define-values" "(discard-comment)" "(lambda(config_5)" @@ -47754,19 +47781,19 @@ static const char *startup_source = "(if(not(read-config-keep-comment? config_5))" "(let-values() config_5)" "(let-values()" -"(let-values(((v_221) config_5))" -"(let-values(((the-struct_79) v_221))" -"(if(read-config/outer? the-struct_79)" -"(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_221)))" +"(let-values(((v_220) config_5))" +"(let-values(((the-struct_78) v_220))" +"(if(read-config/outer? the-struct_78)" +"(let-values(((keep-comment?70_0) #f)((inner71_0)(read-config/outer-inner v_220)))" "(read-config/outer1.1" " inner71_0" -"(read-config/outer-wrap the-struct_79)" -"(read-config/outer-line the-struct_79)" -"(read-config/outer-col the-struct_79)" -"(read-config/outer-pos the-struct_79)" -"(read-config/outer-indentations the-struct_79)" +"(read-config/outer-wrap the-struct_78)" +"(read-config/outer-line the-struct_78)" +"(read-config/outer-col the-struct_78)" +"(read-config/outer-pos the-struct_78)" +"(read-config/outer-indentations the-struct_78)" " keep-comment?70_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_79)))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_78)))))))))" "(define-values" "(next-readtable)" "(lambda(config_6)" @@ -47774,36 +47801,36 @@ static const char *startup_source = "(if(eq?(read-config-readtable config_6)(read-config-next-readtable config_6))" "(let-values() config_6)" "(let-values()" -"(let-values(((v_222) config_6))" -"(let-values(((the-struct_80) v_222))" -"(if(read-config/outer? the-struct_80)" +"(let-values(((v_221) config_6))" +"(let-values(((the-struct_79) v_221))" +"(if(read-config/outer? the-struct_79)" "(let-values(((inner72_1)" -"(let-values(((the-struct_81)(read-config/outer-inner v_222)))" -"(if(read-config/inner? the-struct_81)" +"(let-values(((the-struct_80)(read-config/outer-inner v_221)))" +"(if(read-config/inner? the-struct_80)" "(let-values(((readtable73_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" " readtable73_0" -"(read-config/inner-next-readtable the-struct_81)" -"(read-config/inner-for-syntax? the-struct_81)" -"(read-config/inner-source the-struct_81)" -"(read-config/inner-read-compiled the-struct_81)" -"(read-config/inner-dynamic-require the-struct_81)" -"(read-config/inner-module-declared? the-struct_81)" -"(read-config/inner-coerce the-struct_81)" -"(read-config/inner-coerce-key the-struct_81)" -"(read-config/inner-parameter-override the-struct_81)" -"(read-config/inner-parameter-cache the-struct_81)" -"(read-config/inner-st the-struct_81)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_81)))))" +"(read-config/inner-next-readtable the-struct_80)" +"(read-config/inner-for-syntax? the-struct_80)" +"(read-config/inner-source the-struct_80)" +"(read-config/inner-read-compiled the-struct_80)" +"(read-config/inner-dynamic-require the-struct_80)" +"(read-config/inner-module-declared? the-struct_80)" +"(read-config/inner-coerce the-struct_80)" +"(read-config/inner-coerce-key the-struct_80)" +"(read-config/inner-parameter-override the-struct_80)" +"(read-config/inner-parameter-cache the-struct_80)" +"(read-config/inner-st the-struct_80)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_80)))))" "(read-config/outer1.1" " inner72_1" -"(read-config/outer-wrap the-struct_80)" -"(read-config/outer-line the-struct_80)" -"(read-config/outer-col the-struct_80)" -"(read-config/outer-pos the-struct_80)" -"(read-config/outer-indentations the-struct_80)" -"(read-config/outer-keep-comment? the-struct_80)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_80)))))))))" +"(read-config/outer-wrap the-struct_79)" +"(read-config/outer-line the-struct_79)" +"(read-config/outer-col the-struct_79)" +"(read-config/outer-pos the-struct_79)" +"(read-config/outer-indentations the-struct_79)" +"(read-config/outer-keep-comment? the-struct_79)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_79)))))))))" "(define-values" "(coerce)" "(lambda(val_79 in_2 config_7)" @@ -47815,26 +47842,26 @@ static const char *startup_source = "(if for-syntax?_5" "(let-values(((in1_0) in_2)((config2_0) config_7))(port+config->srcloc49.1 #f #f in1_0 config2_0))" " #f))))))" -"(define-values(default-reader-guard$1)(lambda(v_223)(begin 'default-reader-guard v_223)))" +"(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_224)" +"(lambda(v_223)" "(begin" -"(if(if(procedure? v_224)(procedure-arity-includes? v_224 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_224)))" -" v_224))))" +" (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_225)(if v_225 #t #f))))" -"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_226)(if v_226 #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_93)(if v_93 #t #f))))" -"(define-values(1/read-decimal-as-inexact)(make-parameter #t(lambda(v_227)(if v_227 #t #f))))" +"(define-values(1/read-accept-box)(make-parameter #t(lambda(v_92)(if v_92 #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_63)(if v_63 #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))))" @@ -47855,37 +47882,37 @@ static const char *startup_source = "(override-parameter)" "(lambda(param_1 config_9 v_28)" "(begin" -"(let-values(((v_92) config_9))" -"(let-values(((the-struct_82) v_92))" -"(if(read-config/outer? the-struct_82)" +"(let-values(((v_91) config_9))" +"(let-values(((the-struct_81) v_91))" +"(if(read-config/outer? the-struct_81)" "(let-values(((inner1_0)" -"(let-values(((the-struct_83)(read-config/outer-inner v_92)))" -"(if(read-config/inner? the-struct_83)" +"(let-values(((the-struct_82)(read-config/outer-inner v_91)))" +"(if(read-config/inner? the-struct_82)" "(let-values(((parameter-override2_0)" "(hash-set(read-config-parameter-override config_9) param_1 v_28)))" "(read-config/inner2.1" -"(read-config/inner-readtable the-struct_83)" -"(read-config/inner-next-readtable the-struct_83)" -"(read-config/inner-for-syntax? the-struct_83)" -"(read-config/inner-source the-struct_83)" -"(read-config/inner-read-compiled the-struct_83)" -"(read-config/inner-dynamic-require the-struct_83)" -"(read-config/inner-module-declared? the-struct_83)" -"(read-config/inner-coerce the-struct_83)" -"(read-config/inner-coerce-key the-struct_83)" +"(read-config/inner-readtable the-struct_82)" +"(read-config/inner-next-readtable the-struct_82)" +"(read-config/inner-for-syntax? the-struct_82)" +"(read-config/inner-source the-struct_82)" +"(read-config/inner-read-compiled the-struct_82)" +"(read-config/inner-dynamic-require the-struct_82)" +"(read-config/inner-module-declared? the-struct_82)" +"(read-config/inner-coerce the-struct_82)" +"(read-config/inner-coerce-key the-struct_82)" " parameter-override2_0" -"(read-config/inner-parameter-cache the-struct_83)" -"(read-config/inner-st the-struct_83)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_83)))))" +"(read-config/inner-parameter-cache the-struct_82)" +"(read-config/inner-st the-struct_82)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_82)))))" "(read-config/outer1.1" " inner1_0" -"(read-config/outer-wrap the-struct_82)" -"(read-config/outer-line the-struct_82)" -"(read-config/outer-col the-struct_82)" -"(read-config/outer-pos the-struct_82)" -"(read-config/outer-indentations the-struct_82)" -"(read-config/outer-keep-comment? the-struct_82)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))" +"(read-config/outer-wrap the-struct_81)" +"(read-config/outer-line the-struct_81)" +"(read-config/outer-col the-struct_81)" +"(read-config/outer-pos the-struct_81)" +"(read-config/outer-indentations the-struct_81)" +"(read-config/outer-keep-comment? the-struct_81)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_81)))))))" "(define-values" "(force-parameters!)" "(lambda(config_10)" @@ -47967,10 +47994,10 @@ static const char *startup_source = "(begin" " 'make-readtable" "(begin" -"(if(let-values(((or-part_52)(not rt_0)))(if or-part_52 or-part_52(1/readtable? rt_0)))" +"(if(let-values(((or-part_53)(not rt_0)))(if or-part_53 or-part_53(1/readtable? rt_0)))" "(void)" " (let-values () (raise-argument-error 'make-readtable \"(or/c readtable? #f)\" rt_0)))" -"((letrec-values(((loop_102)" +"((letrec-values(((loop_104)" "(lambda(args_8 symbol-parser_0 char-ht_0 dispatch-ht_0 delimiter-ht_0)" "(begin" " 'loop" @@ -47980,8 +48007,8 @@ static const char *startup_source = "(let-values(((key_88)(car args_8)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_163)(not key_88)))" -"(if or-part_163 or-part_163(char? key_88)))" +"(if(let-values(((or-part_162)(not key_88)))" +"(if or-part_162 or-part_162(char? key_88)))" "(void)" "(let-values()" "(raise-argument-error" @@ -48013,20 +48040,20 @@ static const char *startup_source = "(begin" "(if key_88" "(let-values()" -"(if(let-values(((or-part_246)" +"(if(let-values(((or-part_245)" "(eq? mode_16 'terminating-macro)))" -"(if or-part_246" -" or-part_246" -"(let-values(((or-part_247)" +"(if or-part_245" +" or-part_245" +"(let-values(((or-part_246)" "(eq?" " mode_16" " 'non-terminating-macro)))" -"(if or-part_247" -" or-part_247" -"(let-values(((or-part_299)" +"(if or-part_246" +" or-part_246" +"(let-values(((or-part_296)" "(eq? mode_16 'dispatch-macro)))" -"(if or-part_299" -" or-part_299" +"(if or-part_296" +" or-part_296" "(char? mode_16)))))))" "(void)" "(let-values()" @@ -48069,7 +48096,7 @@ static const char *startup_source = " 'make-readtable" " \"(procedure-arity-includes/c 6)\"" " target_0)))" -"(loop_102" +"(loop_104" " rest-args_0" " target_0" " char-ht_0" @@ -48087,7 +48114,7 @@ static const char *startup_source = " 'make-readtable" " \"(procedure-arity-includes/c 6)\"" " target_0)))" -"(loop_102" +"(loop_104" " rest-args_0" " symbol-parser_0" " char-ht_0" @@ -48097,10 +48124,10 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(let-values(((or-part_300)" +"(if(let-values(((or-part_297)" "(not target_0)))" -"(if or-part_300" -" or-part_300" +"(if or-part_297" +" or-part_297" "(1/readtable? target_0)))" "(void)" "(let-values()" @@ -48110,14 +48137,14 @@ static const char *startup_source = " target_0)))" "(values))))" "(let-values(((actual-target_0)" -"(let-values(((or-part_275)" +"(let-values(((or-part_22)" "(if target_0" "(hash-ref" "(readtable-char-ht target_0)" " mode_16" " #f)" " #f)))" -"(if or-part_275 or-part_275 mode_16))))" +"(if or-part_22 or-part_22 mode_16))))" "(let-values(((new-char-ht_0)" "(if actual-target_0" "(hash-set" @@ -48135,7 +48162,7 @@ static const char *startup_source = " mode_16" " mode_16)" " mode_16))))" -"(loop_102" +"(loop_104" " rest-args_0" " symbol-parser_0" " new-char-ht_0" @@ -48163,13 +48190,13 @@ static const char *startup_source = "(if(eq? mode_16 'terminating-macro)" " 'delimit" " 'no-delimit))))" -"(loop_102" +"(loop_104" " rest-args_0" " symbol-parser_0" " new-char-ht_1" " dispatch-ht_0" " new-delimiter-ht_1))))))))))))))))))))))" -" loop_102)" +" loop_104)" " args_7" "(if rt_0(readtable-symbol-parser rt_0) #f)" "(if rt_0(readtable-char-ht rt_0) '#hasheqv())" @@ -48186,7 +48213,7 @@ static const char *startup_source = "(lambda(c_58 config_11)" "(begin" "(let-values(((rt_2)(read-config-readtable config_11))((c_59) c_58))" -"(if(let-values(((or-part_23)(not rt_2)))(if or-part_23 or-part_23(not(char? c_59))))" +"(if(let-values(((or-part_298)(not rt_2)))(if or-part_298 or-part_298(not(char? c_59))))" "(let-values() c_59)" "(let-values()(*readtable-effective-char rt_2 c_59)))))))" "(define-values" @@ -48210,7 +48237,7 @@ static const char *startup_source = "(lambda(handler_0 c_62 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_228)" +"(let-values(((v_227)" "(if(not for-syntax?_6)" "(let-values()" "(with-continuation-mark" @@ -48232,7 +48259,7 @@ static const char *startup_source = " config_14)" "(let-values()" "(handler_0 c_62 in_3(read-config-source config_14) line_3 col_2 pos_109)))))))" -"(if(1/special-comment? v_228) v_228(coerce v_228 in_3 config_14)))))))" +"(if(1/special-comment? v_227) v_227(coerce v_227 in_3 config_14)))))))" "(define-values" "(1/readtable-mapping)" "(lambda(rt_5 c_63)" @@ -48250,7 +48277,7 @@ static const char *startup_source = "(values))))" "(let-values(((handler_1)(hash-ref(readtable-char-ht rt_5) c_63 #f)))" "(values" -"(let-values(((or-part_165)" +"(let-values(((or-part_164)" "(if handler_1" "(if(char? handler_1)" "(let-values() handler_1)" @@ -48258,31 +48285,31 @@ static const char *startup_source = "(let-values() 'terminating-macro)" "(let-values() 'non-terminating-macro)))" " #f)))" -"(if or-part_165 or-part_165 c_63))" +"(if or-part_164 or-part_164 c_63))" "(if(char? handler_1) #f handler_1)" "(hash-ref(readtable-dispatch-ht rt_5) c_63 #f))))))))" "(define-values" "(readtable-equivalent-chars)" "(lambda(rt_6 c_64)" "(begin" -"(let-values(((ht_157)(readtable-char-ht rt_6)))" +"(let-values(((ht_156)(readtable-char-ht rt_6)))" "(append" -"(if(hash-ref ht_157 c_64 #f) null(list c_64))" +"(if(hash-ref ht_156 c_64 #f) null(list c_64))" "(reverse$1" -"(let-values(((ht_149) ht_157))" +"(let-values(((ht_148) ht_156))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_149)))" +"(let-values()(check-in-hash ht_148)))" "((letrec-values(((for-loop_267)" "(lambda(fold-var_82 i_174)" "(begin" " 'for-loop" "(if i_174" -"(let-values(((k_40 v_88)(hash-iterate-key+value ht_149 i_174)))" +"(let-values(((k_40 v_87)(hash-iterate-key+value ht_148 i_174)))" "(let-values(((fold-var_289)" "(let-values(((fold-var_85) fold-var_82))" -"(if(eqv? v_88 c_64)" +"(if(eqv? v_87 c_64)" "(let-values(((fold-var_244) fold-var_85))" "(let-values(((fold-var_13)" "(let-values()" @@ -48290,12 +48317,12 @@ static const char *startup_source = "(values fold-var_13)))" " fold-var_85))))" "(if(not #f)" -"(for-loop_267 fold-var_289(hash-iterate-next ht_149 i_174))" +"(for-loop_267 fold-var_289(hash-iterate-next ht_148 i_174))" " fold-var_289)))" " fold-var_82)))))" " for-loop_267)" " null" -"(hash-iterate-first ht_149))))))))))" +"(hash-iterate-first ht_148))))))))))" "(define-values" "(struct:special special1.1 special? special-value)" "(let-values(((struct:_77 make-_77 ?_77 -ref_77 -set!_77)" @@ -48458,7 +48485,7 @@ static const char *startup_source = "(if(char=? '#\\; ec_0)" "(let-values()" "(begin" -"((letrec-values(((loop_76)" +"((letrec-values(((loop_75)" "(lambda()" "(begin" " 'loop" @@ -48469,16 +48496,16 @@ static const char *startup_source = " in_10" " special1.1" " source_5))))" -"(if(let-values(((or-part_283)" +"(if(let-values(((or-part_280)" "(eof-object? c_65)))" -"(if or-part_283" -" or-part_283" +"(if or-part_280" +" or-part_280" "(eqv?" " '#\\newline" "(effective-char c_65 config_15))))" "(void)" -"(let-values()(loop_76))))))))" -" loop_76))" +"(let-values()(loop_75))))))))" +" loop_75))" "(if(read-config-keep-comment? config_15)" "(result-special-comment)" "(skip-loop_0 #f))))" @@ -48526,8 +48553,8 @@ static const char *startup_source = "(if(eq? c_67 'special)" "(special1.1 'special)" " c_67)))))" -"(let-values(((or-part_284)(eqv? '#\\space c3_1)))" -"(if or-part_284 or-part_284(eqv? '#\\/ c3_1))))" +"(let-values(((or-part_281)(eqv? '#\\space c3_1)))" +"(if or-part_281 or-part_281(eqv? '#\\/ c3_1))))" " #f)" " #f)" "(let-values()" @@ -48552,13 +48579,13 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values((()(begin(consume-char in_5 '#\\;)(values))))" -"(let-values(((v_182)(read-one_0 #f in_5 config_15)))" +"(let-values(((v_181)(read-one_0 #f in_5 config_15)))" "(begin" -"(if(eof-object? v_182)" +"(if(eof-object? v_181)" "(let-values()" "(let-values(((in1_2) in_5)" "((config2_2) config_15)" -"((v3_0) v_182)" +"((v3_0) v_181)" "((temp4_2)" " \"expected a commented-out element for `~a;`, but found end-of-file\")" "((ec5_0) ec_0))" @@ -48591,7 +48618,7 @@ static const char *startup_source = "(let-values(((line_5 col_4 pos_111)(port-next-location in_15)))" "(begin" "(consume-char in_15 '#\\|)" -"((letrec-values(((loop_103)" +"((letrec-values(((loop_105)" "(lambda(prev-c_0 depth_10)" "(begin" " 'loop" @@ -48606,23 +48633,23 @@ static const char *startup_source = " ((temp9_4) \"end of file in `#|` comment\"))" "(reader-error12.1 #f #f c8_0 #t #f #f #f #f in6_0 temp7_3 temp9_4(list))))" "(if(not(char? c_25))" -"(let-values()(loop_103 #f depth_10))" +"(let-values()(loop_105 #f depth_10))" "(if(if(char=? '#\\| c_25)(eqv? prev-c_0 '#\\#) #f)" -"(let-values()(loop_103 #f(add1 depth_10)))" +"(let-values()(loop_105 #f(add1 depth_10)))" "(if(if(char=? '#\\# c_25)(eqv? prev-c_0 '#\\|) #f)" "(let-values()" "(if(positive? depth_10)" -"(let-values()(loop_103 #f(sub1 depth_10)))" +"(let-values()(loop_105 #f(sub1 depth_10)))" "(void)))" -"(let-values()(loop_103 c_25 depth_10)))))))))))" -" loop_103)" +"(let-values()(loop_105 c_25 depth_10)))))))))))" +" loop_105)" " #f" " 0)))))))" "(define-values" "(skip-unix-line-comment!)" "(lambda(in_17 config_20)" "(begin" -"((letrec-values(((loop_104)" +"((letrec-values(((loop_106)" "(lambda(backslash?_0)" "(begin" " 'loop" @@ -48632,13 +48659,13 @@ static const char *startup_source = "(if(eof-object? c_42)" "(let-values()(void))" "(if(not(char? c_42))" -"(let-values()(loop_104 #f))" +"(let-values()(loop_106 #f))" "(if(char=? c_42 '#\\newline)" -"(let-values()(if backslash?_0(let-values()(loop_104 #f))(void)))" +"(let-values()(if backslash?_0(let-values()(loop_106 #f))(void)))" "(if(char=? c_42 '#\\\\)" -"(let-values()(loop_104 #t))" -"(let-values()(loop_104 #f)))))))))))" -" loop_104)" +"(let-values()(loop_106 #t))" +"(let-values()(loop_106 #f)))))))))))" +" loop_106)" " #f))))" "(define-values" "(readtable-char-delimiter?)" @@ -48655,12 +48682,12 @@ static const char *startup_source = "(let-values(((or-part_26)(char-whitespace? dc_0)))" "(if or-part_26" " or-part_26" -"(let-values(((or-part_301)(char=? dc_0 '#\\()))" -"(if or-part_301" -" or-part_301" -"(let-values(((or-part_279)(char=? dc_0 '#\\))))" -"(if or-part_279" -" or-part_279" +"(let-values(((or-part_299)(char=? dc_0 '#\\()))" +"(if or-part_299" +" or-part_299" +"(let-values(((or-part_276)(char=? dc_0 '#\\))))" +"(if or-part_276" +" or-part_276" "(let-values(((or-part_27)(char=? dc_0 '#\\[)))" "(if or-part_27" " or-part_27" @@ -48676,9 +48703,9 @@ static const char *startup_source = "(let-values(((or-part_13)(char=? dc_0 '#\\')))" "(if or-part_13" " or-part_13" -"(let-values(((or-part_211)(char=? dc_0 '#\\`)))" -"(if or-part_211" -" or-part_211" +"(let-values(((or-part_210)(char=? dc_0 '#\\`)))" +"(if or-part_210" +" or-part_210" "(let-values(((or-part_3)(char=? dc_0 '#\\,)))" "(if or-part_3" " or-part_3" @@ -48724,15 +48751,15 @@ static const char *startup_source = "(let-values()" "(apply" " string-append" -"((letrec-values(((loop_105)" +"((letrec-values(((loop_107)" "(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_105 (cdr cs_2)))))))))" -" loop_105)" +" (cons (format \"`~a`, \" (car cs_2)) (loop_107 (cdr cs_2)))))))))" +" loop_107)" " cs_1)))))))))))))" "(define-values" "(closer->opener)" @@ -48756,9 +48783,9 @@ static const char *startup_source = "(if(check-parameter 1/read-curly-brace-as-paren config_21)(opener-name '#\\{ config_21) #f)))" "(if(if s_10 c_69 #f)" " (let-values () (format \"~a, ~a, or ~a\" p_63 s_10 c_69))" -"(if(let-values(((or-part_282) s_10))(if or-part_282 or-part_282 c_69))" +"(if(let-values(((or-part_279) s_10))(if or-part_279 or-part_279 c_69))" "(let-values()" -" (format \"~a or ~a\" p_63 (let-values (((or-part_283) s_10)) (if or-part_283 or-part_283 c_69))))" +" (format \"~a or ~a\" p_63 (let-values (((or-part_280) s_10)) (if or-part_280 or-part_280 c_69))))" "(let-values() p_63)))))))))" "(define-values" "(struct:accum-string" @@ -48785,66 +48812,66 @@ static const char *startup_source = "(lambda(config_26)" "(begin" "(let-values(((st_1)(read-config-st config_26)))" -"(let-values(((a_64)(read-config-state-accum-str st_1)))" -"(if a_64" -"(let-values()(begin(set-read-config-state-accum-str! st_1 #f)(set-accum-string-pos! a_64 0) a_64))" +"(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_65 c_70)" +"(lambda(a_66 c_70)" "(begin" -"(let-values(((pos_112)(accum-string-pos a_65)))" -"(let-values(((str_26)(accum-string-str a_65)))" +"(let-values(((pos_112)(accum-string-pos a_66)))" +"(let-values(((str_26)(accum-string-str a_66)))" "(let-values(((str2_0)" "(if(< pos_112(string-length str_26))" "(let-values() str_26)" "(let-values()" "(let-values(((str2_1)(make-string(*(string-length str_26) 2))))" -"(begin(string-copy! str2_1 0 str_26)(set-accum-string-str! a_65 str2_1) str2_1))))))" -"(begin(string-set! str2_0 pos_112 c_70)(set-accum-string-pos! a_65(add1 pos_112)))))))))" -"(define-values(accum-string-count)(lambda(a_66)(begin(accum-string-pos a_66))))" -"(define-values(set-accum-string-count!)(lambda(a_67 pos_11)(begin(set-accum-string-pos! a_67 pos_11))))" +"(begin(string-copy! str2_1 0 str_26)(set-accum-string-str! a_66 str2_1) str2_1))))))" +"(begin(string-set! str2_0 pos_112 c_70)(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_68 convert_1 start-pos_6)" +"(lambda(a_69 convert_1 start-pos_6)" "(begin" -"(let-values(((str_27)(accum-string-str a_68)))" -"(let-values(((s_77)(convert_1(substring str_27 start-pos_6(accum-string-pos a_68)))))" -"(let-values(((len_37)(string-length s_77)))" +"(let-values(((str_27)(accum-string-str a_69)))" +"(let-values(((s_79)(convert_1(substring str_27 start-pos_6(accum-string-pos a_69)))))" +"(let-values(((len_37)(string-length s_79)))" "(begin" "(if(<(+ len_37 start-pos_6)(string-length str_27))" "(void)" "(let-values()" "(let-values(((str2_2)(make-string(+ start-pos_6 len_37))))" -"(begin(string-copy! str2_2 0 str_27 0 start-pos_6)(set-accum-string-str! a_68 str2_2)))))" -"(string-copy!(accum-string-str a_68) start-pos_6 s_77)" -"(set-accum-string-pos! a_68(+ start-pos_6 len_37)))))))))" +"(begin(string-copy! str2_2 0 str_27 0 start-pos_6)(set-accum-string-str! a_69 str2_2)))))" +"(string-copy!(accum-string-str a_69) start-pos_6 s_79)" +"(set-accum-string-pos! a_69(+ start-pos_6 len_37)))))))))" "(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_69) 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_181)(substring(accum-string-str a_69) start-pos_7(accum-string-pos a_69))))" -"(begin(accum-string-abandon! a_69 config_27) s_181)))))))))" +"(let-values(((s_183)(substring(accum-string-str a_70) start-pos_7(accum-string-pos a_70))))" +"(begin(accum-string-abandon! a_70 config_27) s_183)))))))))" "(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_70) a11_0))" +"(let-values(((a_71) 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_70) #f start-pos_8(accum-string-pos a_70))))" -"(begin(accum-string-abandon! a_70 config_28) bstr_3)))))))))" +"(string->bytes/latin-1(accum-string-str a_71) #f start-pos_8(accum-string-pos a_71))))" +"(begin(accum-string-abandon! a_71 config_28) bstr_3)))))))))" "(define-values" "(accum-string-abandon!)" -"(lambda(a_71 config_29)(begin(set-read-config-state-accum-str!(read-config-st config_29) a_71))))" +"(lambda(a_72 config_29)(begin(set-read-config-state-accum-str!(read-config-st config_29) a_72))))" "(define-values" "(struct:indentation" " indentation1.1" @@ -48940,7 +48967,7 @@ static const char *startup_source = " (let-values () (format \"unexpected `~a`\" c_71))" "(let-values()" "(let-values(((missing_2)" -"(let-values(((or-part_291)" +"(let-values(((or-part_289)" "(let-values(((lst_312)(cdr indts_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" @@ -48977,7 +49004,7 @@ static const char *startup_source = " for-loop_272)" " #f" " lst_312)))))" -" (if or-part_291 or-part_291 \"expected\"))))" +" (if or-part_289 or-part_289 \"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`\"" @@ -49024,26 +49051,26 @@ static const char *startup_source = "(let-values(((head_0) #f))" "(let-values(((indentation_0)(make-indentation closer_1 in_10 seq-config_0)))" "(let-values(((config_34)" -"(let-values(((v_229) elem-config_0))" -"(let-values(((the-struct_84) v_229))" -"(if(read-config/outer? the-struct_84)" +"(let-values(((v_228) elem-config_0))" +"(let-values(((the-struct_83) v_228))" +"(if(read-config/outer? the-struct_83)" "(let-values(((indentations20_0)" "(cons" " indentation_0" "(read-config-indentations seq-config_0)))" -"((inner21_0)(read-config/outer-inner v_229)))" +"((inner21_0)(read-config/outer-inner v_228)))" "(read-config/outer1.1" " inner21_0" -"(read-config/outer-wrap the-struct_84)" -"(read-config/outer-line the-struct_84)" -"(read-config/outer-col the-struct_84)" -"(read-config/outer-pos the-struct_84)" +"(read-config/outer-wrap the-struct_83)" +"(read-config/outer-line the-struct_83)" +"(read-config/outer-col the-struct_83)" +"(read-config/outer-pos the-struct_83)" " indentations20_0" -"(read-config/outer-keep-comment? the-struct_84)))" +"(read-config/outer-keep-comment? the-struct_83)))" "(raise-argument-error" " 'struct-copy" " \"read-config/outer?\"" -" the-struct_84))))))" +" the-struct_83))))))" "(let-values(((open-end-line_0 open-end-col_0 open-end-pos_0)" "(port-next-location in_10)))" "(let-values(((config/keep-comment_0)(keep-comment config_34)))" @@ -49082,7 +49109,7 @@ static const char *startup_source = "(void))" " e_80))))))" "(let-values(((seq_0)" -"((letrec-values(((loop_39)" +"((letrec-values(((loop_98)" "(lambda(depth_11" " accum_0" " init-c_5" @@ -49269,11 +49296,11 @@ static const char *startup_source = " post-c_0" " seq-config_0)))" "(begin" -"(if(let-values(((or-part_302)" +"(if(let-values(((or-part_300)" "(eof-object?" " post-ec_0)))" -"(if or-part_302" -" or-part_302" +"(if or-part_300" +" or-part_300" "(eqv?" " post-ec_0" " closer_1)))" @@ -49304,7 +49331,7 @@ static const char *startup_source = " temp36_5" "(list))))" "(void))" -"(loop_39" +"(loop_98" " depth_11" " accum_0" " post-c_0" @@ -49337,14 +49364,14 @@ static const char *startup_source = " temp40_3" "(list)))))))))))))" "(let-values()" -"(let-values(((v_230)" +"(let-values(((v_229)" "(read-one/not-eof_0" " c_72" " first-read-one_1" " config/keep-comment_0)))" -"(if(1/special-comment? v_230)" +"(if(1/special-comment? v_229)" "(let-values()" -"(loop_39" +"(loop_98" " depth_11" " accum_0" " #f" @@ -49352,22 +49379,22 @@ static const char *startup_source = " read-one_1))" "(if(> depth_11 1024)" "(let-values()" -"(loop_39" +"(loop_98" " depth_11" -"(cons v_230 accum_0)" +"(cons v_229 accum_0)" " #f" " #f" " read-one_1))" "(let-values()" "(cons" -" v_230" -"(loop_39" +" v_229" +"(loop_98" "(add1 depth_11)" " null" " #f" " #f" " read-one_1)))))))))))))))" -" loop_39)" +" loop_98)" " 0" " null" " #f" @@ -49424,12 +49451,12 @@ static const char *startup_source = "(begin" "(consume-char in_12 c_75)" "(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_75))(void))" -"((letrec-values(((loop_60)" -"(lambda(v_231 max-count_1)" +"((letrec-values(((loop_59)" +"(lambda(v_230 max-count_1)" "(begin" " 'loop" "(if(zero? max-count_1)" -"(let-values() v_231)" +"(let-values() v_230)" "(let-values()" "(let-values(((c_68)" "(let-values(((in_24) in_12)" @@ -49452,11 +49479,11 @@ static const char *startup_source = "(if accum-str_0" "(let-values()(accum-string-add! accum-str_0 c_68))" "(void))" -"(loop_60" -"(+(digit->number c_68)(* v_231 base_23))" +"(loop_59" +"(+(digit->number c_68)(* v_230 base_23))" "(sub1 max-count_1))))" -"(let-values() v_231)))))))))" -" loop_60)" +"(let-values() v_230)))))))))" +" loop_59)" "(+(digit->number c_75)(* init-v_0 base_23))" "(sub1 max-count_0))))" "(if zero-digits-result_0" @@ -49478,11 +49505,11 @@ static const char *startup_source = "(hex-digit?)" "(lambda(c_78)" "(begin" -"(let-values(((or-part_303)(if(char>=? c_78 '#\\0)(char<=? c_78 '#\\9) #f)))" -"(if or-part_303" -" or-part_303" -"(let-values(((or-part_302)(if(char>=? c_78 '#\\A)(char<=? c_78 '#\\F) #f)))" -"(if or-part_302 or-part_302(if(char>=? c_78 '#\\a)(char<=? c_78 '#\\f) #f))))))))" +"(let-values(((or-part_301)(if(char>=? c_78 '#\\0)(char<=? c_78 '#\\9) #f)))" +"(if or-part_301" +" or-part_301" +"(let-values(((or-part_300)(if(char>=? c_78 '#\\A)(char<=? c_78 '#\\F) #f)))" +"(if or-part_300 or-part_300(if(char>=? c_78 '#\\a)(char<=? c_78 '#\\f) #f))))))))" "(define-values" "(digit->number)" "(lambda(c_79)" @@ -49499,7 +49526,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_174) s7_2))" +"(let-values(((s_176) 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)" @@ -49510,9 +49537,9 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(if(string? s_174)" +"(if(string? s_176)" "(void)" -" (let-values () (raise-argument-error 'string->number \"string?\" s_174)))" +" (let-values () (raise-argument-error 'string->number \"string?\" s_176)))" "(if((lambda(p_74)(if(exact-integer? radix_0)(<= 2 radix_0 16) #f)) radix_0)" "(void)" "(let-values()" @@ -49537,9 +49564,9 @@ static const char *startup_source = " 'string->number" " \"(or/c 'decimal-as-inexact decimal-as-exact)\"" " decimal-mode_0)))" -"(let-values(((s69_0) s_174)" +"(let-values(((s69_0) s_176)" "((temp70_1) 0)" -"((temp71_1)(string-length s_174))" +"((temp71_1)(string-length s_176))" "((radix72_0) radix_0)" "((temp73_1) #f)" "((decimal-mode74_0) decimal-mode_0)" @@ -49555,11 +49582,11 @@ static const char *startup_source = " decimal-mode74_0" " convert-mode75_0))))))))))))))" "(case-lambda" -"((s_177)(begin 'string->number(string->number8_0 s_177 #f #f #f #f #f #f)))" -"((s_451 radix_1 convert-mode_1 decimal-mode3_1)" -"(string->number8_0 s_451 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" -"((s_179 radix_2 convert-mode2_1)(string->number8_0 s_179 radix_2 convert-mode2_1 #f #t #t #f))" -"((s_452 radix1_1)(string->number8_0 s_452 radix1_1 #f #f #t #f #f)))))" +"((s_179)(begin 'string->number(string->number8_0 s_179 #f #f #f #f #f #f)))" +"((s_456 radix_1 convert-mode_1 decimal-mode3_1)" +"(string->number8_0 s_456 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" +"((s_181 radix_2 convert-mode2_1)(string->number8_0 s_181 radix_2 convert-mode2_1 #f #t #t #f))" +"((s_457 radix1_1)(string->number8_0 s_457 radix1_1 #f #f #t #f #f)))))" "(define-values" "(do-string->number20.1)" "(lambda(in-complex11_0" @@ -49573,7 +49600,7 @@ static const char *startup_source = " convert-mode19_0)" "(begin" " 'do-string->number20" -"(let-values(((s_453) s14_1))" +"(let-values(((s_458) s14_1))" "(let-values(((start_44) start15_0))" "(let-values(((end_34) end16_0))" "(let-values(((radix_3) radix17_0))" @@ -49588,17 +49615,17 @@ static const char *startup_source = " (let-values () (format \"no digits\"))" "(let-values() #f)))" "(let-values()" -"(let-values(((c_80)(string-ref s_453 start_44)))" +"(let-values(((c_80)(string-ref s_458 start_44)))" "(if(char=? '#\\# c_80)" "(let-values()" "(let-values(((next_4)(add1 start_44)))" "(if(= next_4 end_34)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no character after `#` indicator in `~.a`\" s_453))" +" (let-values () (format \"no character after `#` indicator in `~.a`\" s_458))" "(let-values() #f)))" "(let-values()" -"(let-values(((i_174)(string-ref s_453 next_4)))" +"(let-values(((i_174)(string-ref s_458 next_4)))" "(let-values(((tmp_39) i_174))" "(let-values(((index_2)" "(if(char? tmp_39)" @@ -49674,30 +49701,30 @@ static const char *startup_source = "(format" " \"bad `#` indicator `~a` at `~.a`\"" " i_174" -"(substring s_453 start_44 end_34)))" +"(substring s_458 start_44 end_34)))" "(let-values() #f)))" "(if(unsafe-fx< index_2 2)" "(let-values()" -"(if(let-values(((or-part_70)(exactness-set? exactness_0)))" -"(if or-part_70 or-part_70 in-complex_0))" +"(if(let-values(((or-part_71)(exactness-set? exactness_0)))" +"(if or-part_71 or-part_71 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" "(format" " \"misplaced exactness specification at `~.a`\"" -"(substring s_453 start_44 end_34)))" +"(substring s_458 start_44 end_34)))" "(let-values() #f)))" "(let-values()" -"(let-values(((s76_1) s_453)" +"(let-values(((s76_1) s_458)" "((temp77_0)(add1 next_4))" "((end78_0) end_34)" "((radix79_0) radix_3)" "((radix-set?80_0) radix-set?_0)" "((temp81_1)" -"(if(let-values(((or-part_208)" +"(if(let-values(((or-part_207)" "(char=? i_174 '#\\e)))" -"(if or-part_208" -" or-part_208" +"(if or-part_207" +" or-part_207" "(char=? i_174 '#\\E)))" " 'exact" " 'inexact))" @@ -49716,14 +49743,14 @@ static const char *startup_source = " temp81_1" " temp82_4)))))" "(let-values()" -"(if(let-values(((or-part_95) radix-set?_0))" -"(if or-part_95 or-part_95 in-complex_0))" +"(if(let-values(((or-part_96) radix-set?_0))" +"(if or-part_96 or-part_96 in-complex_0))" "(let-values()" "(if(eq? convert-mode_2 'must-read)" "(let-values()" "(format" " \"misplaced radix specification at `~.a`\"" -"(substring s_453 start_44 end_34)))" +"(substring s_458 start_44 end_34)))" "(let-values() #f)))" "(let-values()" "(let-values(((radix_4)" @@ -49741,7 +49768,7 @@ static const char *startup_source = "(equal? tmp_40 '#\\D))" "(let-values() 10)" "(let-values() 16)))))))" -"(let-values(((s83_0) s_453)" +"(let-values(((s83_0) s_458)" "((temp84_0)(add1 next_4))" "((end85_0) end_34)" "((radix86_0) radix_4)" @@ -49763,25 +49790,25 @@ static const char *startup_source = " temp89_2)))))))))))))))" "(let-values(((c1_30)" "(if(char-sign? c_80)" -"(read-special-number s_453 start_44 end_34 convert-mode_2)" +"(read-special-number s_458 start_44 end_34 convert-mode_2)" " #f)))" "(if c1_30" -"((lambda(v_232)" +"((lambda(v_231)" "(if(eq? exactness_0 'exact)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_232))" +" (let-values () (format \"no exact representation for `~a`\" v_231))" "(let-values() #f)))" -"(let-values() v_232)))" +"(let-values() v_231)))" " c1_30)" "(let-values(((c2_3)" "(if(char-sign? c_80)" "(if(not in-complex_0)" "(if(>(- end_34 start_44) 7)" -"(if(char=? '#\\i(string-ref s_453(sub1 end_34)))" -"(if(char-sign?(string-ref s_453 6))" +"(if(char=? '#\\i(string-ref s_458(sub1 end_34)))" +"(if(char-sign?(string-ref s_458 6))" "(read-special-number" -" s_453" +" s_458" " start_44" "(+ start_44 6)" " convert-mode_2)" @@ -49791,15 +49818,15 @@ static const char *startup_source = " #f)" " #f)))" "(if c2_3" -"((lambda(v_233)" -"(let-values(((s90_1) s_453)" +"((lambda(v_232)" +"(let-values(((s90_1) s_458)" "((temp91_1)(+ start_44 6))" "((temp92_2)(sub1 end_34))" "((radix93_0) radix_3)" "((exactness94_0) exactness_0)" "((convert-mode95_0) convert-mode_2)" "((temp96_3) 'i)" -"((v97_0) v_233)" +"((v97_0) v_232)" "((temp98_3)" "(lambda(v_53 v2_0)" "(begin 'temp98(make-rectangular v_53 v2_0)))))" @@ -49819,10 +49846,10 @@ static const char *startup_source = "(let-values(((c3_2)" "(if(not in-complex_0)" "(if(>=(- end_34 start_44) 7)" -"(if(char=? '#\\i(string-ref s_453(sub1 end_34)))" -"(if(char-sign?(string-ref s_453(- end_34 7)))" +"(if(char=? '#\\i(string-ref s_458(sub1 end_34)))" +"(if(char-sign?(string-ref s_458(- end_34 7)))" "(read-special-number" -" s_453" +" s_458" "(- end_34 7)" "(sub1 end_34)" " convert-mode_2)" @@ -49835,7 +49862,7 @@ static const char *startup_source = "(if(if(= start_44(- end_34 7))(not(extflonum? v2_1)) #f)" "(let-values()(make-rectangular 0 v2_1))" "(let-values()" -"(let-values(((s99_0) s_453)" +"(let-values(((s99_0) s_458)" "((start100_0) start_44)" "((temp101_2)(- end_34 7))" "((radix102_0) radix_3)" @@ -49845,8 +49872,8 @@ static const char *startup_source = "((temp106_1) #t)" "((v2107_0) v2_1)" "((temp108_1)" -"(lambda(v2_2 v_78)" -"(begin 'temp108(make-rectangular v_78 v2_2)))))" +"(lambda(v2_2 v_77)" +"(begin 'temp108(make-rectangular v_77 v2_2)))))" "(read-for-special-compound65.1" " temp105_2" " temp106_1" @@ -49864,9 +49891,9 @@ static const char *startup_source = "(if(char-sign? c_80)" "(if(not in-complex_0)" "(if(>(- end_34 start_44) 7)" -"(if(char=? '#\\@(string-ref s_453(+ start_44 6)))" +"(if(char=? '#\\@(string-ref s_458(+ start_44 6)))" "(read-special-number" -" s_453" +" s_458" " start_44" "(+ start_44 6)" " convert-mode_2)" @@ -49875,18 +49902,18 @@ static const char *startup_source = " #f)" " #f)))" "(if c4_0" -"((lambda(v_202)" -"(let-values(((s109_0) s_453)" +"((lambda(v_201)" +"(let-values(((s109_0) s_458)" "((temp110_1)(+ start_44 7))" "((end111_0) end_34)" "((radix112_0) radix_3)" "((exactness113_0) exactness_0)" "((convert-mode114_0) convert-mode_2)" "((temp115_0) '@)" -"((v116_0) v_202)" +"((v116_0) v_201)" "((temp117_0)" -"(lambda(v_234 v2_3)" -"(begin 'temp117(make-polar v_234 v2_3)))))" +"(lambda(v_233 v2_3)" +"(begin 'temp117(make-polar v_233 v2_3)))))" "(read-for-special-compound65.1" " temp115_0" " #f" @@ -49903,9 +49930,9 @@ static const char *startup_source = "(let-values(((c5_1)" "(if(not in-complex_0)" "(if(>(- end_34 start_44) 7)" -"(if(char=? '#\\@(string-ref s_453(- end_34 7)))" +"(if(char=? '#\\@(string-ref s_458(- end_34 7)))" "(read-special-number" -" s_453" +" s_458" "(- end_34 6)" " end_34" " convert-mode_2)" @@ -49914,7 +49941,7 @@ static const char *startup_source = " #f)))" "(if c5_1" "((lambda(v2_4)" -"(let-values(((s118_0) s_453)" +"(let-values(((s118_0) s_458)" "((start119_0) start_44)" "((temp120_2)(- end_34 7))" "((radix121_0) radix_3)" @@ -49924,8 +49951,8 @@ static const char *startup_source = "((temp125_1) #t)" "((v2126_0) v2_4)" "((temp127_3)" -"(lambda(v2_5 v_235)" -"(begin 'temp127(make-polar v_235 v2_5)))))" +"(lambda(v2_5 v_234)" +"(begin 'temp127(make-polar v_234 v2_5)))))" "(read-for-special-compound65.1" " temp124_2" " temp125_1" @@ -49940,7 +49967,7 @@ static const char *startup_source = " temp127_3)))" " c5_1)" "(let-values()" -"(let-values(((s128_1) s_453)" +"(let-values(((s128_1) s_458)" "((start129_0) start_44)" "((end130_0) end_34)" "((radix131_0) radix_3)" @@ -49971,7 +49998,7 @@ static const char *startup_source = " convert-mode32_0)" "(begin" " 'do-string->non-special-number33" -"(let-values(((s_200) s27_1))" +"(let-values(((s_204) s27_1))" "(let-values(((start_45) start28_0))" "(let-values(((end_35) end29_0))" "(let-values(((radix_5) radix30_0))" @@ -49980,7 +50007,7 @@ 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_106)" +"((letrec-values(((loop_108)" "(lambda(i_175" " any-digits?_0" " any-hashes?_0" @@ -50001,7 +50028,7 @@ static const char *startup_source = "(let-values()" "(format" " \"no digits in `~.a`\"" -"(substring s_200 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(if(if must-i?_0(not i-pos_3) #f)" "(let-values()" @@ -50009,13 +50036,13 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_200 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(if(if sign-pos_0" -"(let-values(((or-part_304)" +"(let-values(((or-part_302)" "(if dot-pos_1(< dot-pos_1 sign-pos_0) #f)))" -"(if or-part_304" -" or-part_304" +"(if or-part_302" +" or-part_302" "(if slash-pos_0(< slash-pos_0 sign-pos_0) #f)))" " #f)" "(let-values()" @@ -50023,11 +50050,11 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced sign in `~.a`\"" -"(substring s_200 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(if i-pos_3" "(let-values()" -"(let-values(((s136_0) s_200)" +"(let-values(((s136_0) s_204)" "((start137_0) start_45)" "((sign-pos138_0) sign-pos_0)" "((sign-pos139_0) sign-pos_0)" @@ -50054,7 +50081,7 @@ static const char *startup_source = " convert-mode147_0)))" "(if @-pos_0" "(let-values()" -"(let-values(((s148_0) s_200)" +"(let-values(((s148_0) s_204)" "((start149_0) start_45)" "((@-pos150_0) @-pos_0)" "((temp151_2)(add1 @-pos_0))" @@ -50081,7 +50108,7 @@ static const char *startup_source = " convert-mode159_0)))" "(let-values()" "(string->real-number" -" s_200" +" s_204" " start_45" " end_35" " dot-pos_1" @@ -50092,10 +50119,10 @@ static const char *startup_source = " exactness_1" " convert-mode_3))))))))" "(let-values()" -"(let-values(((c_81)(string-ref s_200 i_175)))" +"(let-values(((c_81)(string-ref s_204 i_175)))" "(if(digit? c_81 radix_5)" "(let-values()" -"(loop_106" +"(loop_108" "(add1 i_175)" " #t" " any-hashes?_0" @@ -50108,7 +50135,7 @@ static const char *startup_source = " must-i?_0))" "(if(char=? c_81 '#\\#)" "(let-values()" -"(loop_106" +"(loop_108" "(add1 i_175)" " #t" " #t" @@ -50127,10 +50154,10 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_200 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(let-values()" -"(loop_106" +"(loop_108" "(add1 i_175)" " any-digits?_0" " any-hashes?_0" @@ -50141,27 +50168,27 @@ static const char *startup_source = " slash-pos_0" " #f" "(if(> i_175 start_45)" -"(let-values(((or-part_305)(not @-pos_0)))" -"(if or-part_305" -" or-part_305" +"(let-values(((or-part_303)(not @-pos_0)))" +"(if or-part_303" +" or-part_303" "(> i_175(add1 @-pos_0))))" " #f)))))" "(if(char=? c_81 '#\\.)" "(let-values()" -"(if(let-values(((or-part_205)" +"(if(let-values(((or-part_204)" "(if exp-pos_0" -"(let-values(((or-part_306)" +"(let-values(((or-part_304)" "(not sign-pos_0)))" -"(if or-part_306" -" or-part_306" +"(if or-part_304" +" or-part_304" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_205" -" or-part_205" +"(if or-part_204" +" or-part_204" "(if dot-pos_1" -"(let-values(((or-part_259)(not sign-pos_0)))" -"(if or-part_259" -" or-part_259" +"(let-values(((or-part_257)(not sign-pos_0)))" +"(if or-part_257" +" or-part_257" "(> dot-pos_1 sign-pos_0)))" " #f)))" "(let-values()" @@ -50169,12 +50196,12 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `.` in `~.a`\"" -"(substring s_200 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(if(if slash-pos_0" -"(let-values(((or-part_307)(not sign-pos_0)))" -"(if or-part_307" -" or-part_307" +"(let-values(((or-part_305)(not sign-pos_0)))" +"(if or-part_305" +" or-part_305" "(> slash-pos_0 sign-pos_0)))" " #f)" "(let-values()" @@ -50182,10 +50209,10 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_200 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(let-values()" -"(loop_106" +"(loop_108" "(add1 i_175)" " any-digits?_0" " any-hashes?_0" @@ -50199,9 +50226,9 @@ static const char *startup_source = "(if(char=? c_81 '#\\/)" "(let-values()" "(if(if dot-pos_1" -"(let-values(((or-part_308)(not sign-pos_0)))" -"(if or-part_308" -" or-part_308" +"(let-values(((or-part_306)(not sign-pos_0)))" +"(if or-part_306" +" or-part_306" "(> dot-pos_1 sign-pos_0)))" " #f)" "(let-values()" @@ -50209,23 +50236,23 @@ static const char *startup_source = "(let-values()" "(format" " \"decimal points and fractions annot be mixed `~.a`\"" -"(substring s_200 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" -"(if(let-values(((or-part_309)" +"(if(let-values(((or-part_307)" "(if exp-pos_0" -"(let-values(((or-part_179)" +"(let-values(((or-part_178)" "(not sign-pos_0)))" -"(if or-part_179" -" or-part_179" +"(if or-part_178" +" or-part_178" "(> exp-pos_0 sign-pos_0)))" " #f)))" -"(if or-part_309" -" or-part_309" +"(if or-part_307" +" or-part_307" "(if slash-pos_0" -"(let-values(((or-part_310)" +"(let-values(((or-part_308)" "(not sign-pos_0)))" -"(if or-part_310" -" or-part_310" +"(if or-part_308" +" or-part_308" "(> slash-pos_0 sign-pos_0)))" " #f)))" "(let-values()" @@ -50233,10 +50260,10 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `/` in `~.a`\"" -"(substring s_200 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(let-values()" -"(loop_106" +"(loop_108" "(add1 i_175)" " any-digits?_0" " any-hashes?_0" @@ -50247,58 +50274,58 @@ static const char *startup_source = " i_175" " #f" " must-i?_0)))))" -"(if(let-values(((or-part_311)(char=? c_81 '#\\e)))" +"(if(let-values(((or-part_309)(char=? c_81 '#\\e)))" +"(if or-part_309" +" or-part_309" +"(let-values(((or-part_310)(char=? c_81 '#\\E)))" +"(if or-part_310" +" or-part_310" +"(let-values(((or-part_311)" +"(char=? c_81 '#\\f)))" "(if or-part_311" " or-part_311" -"(let-values(((or-part_312)(char=? c_81 '#\\E)))" +"(let-values(((or-part_312)" +"(char=? c_81 '#\\F)))" "(if or-part_312" " or-part_312" "(let-values(((or-part_313)" -"(char=? c_81 '#\\f)))" +"(char=? c_81 '#\\d)))" "(if or-part_313" " or-part_313" "(let-values(((or-part_314)" -"(char=? c_81 '#\\F)))" +"(char=? c_81 '#\\D)))" "(if or-part_314" " or-part_314" -"(let-values(((or-part_315)" -"(char=? c_81 '#\\d)))" -"(if or-part_315" -" or-part_315" -"(let-values(((or-part_316)" -"(char=? c_81 '#\\D)))" -"(if or-part_316" -" or-part_316" -"(let-values(((or-part_206)" +"(let-values(((or-part_205)" "(char=?" " c_81" " '#\\s)))" -"(if or-part_206" -" or-part_206" +"(if or-part_205" +" or-part_205" "(let-values(((or-part_158)" "(char=?" " c_81" " '#\\S)))" "(if or-part_158" " or-part_158" -"(let-values(((or-part_317)" +"(let-values(((or-part_315)" "(char=?" " c_81" " '#\\l)))" -"(if or-part_317" -" or-part_317" -"(let-values(((or-part_318)" +"(if or-part_315" +" or-part_315" +"(let-values(((or-part_316)" "(char=?" " c_81" " '#\\L)))" -"(if or-part_318" -" or-part_318" -"(let-values(((or-part_319)" +"(if or-part_316" +" or-part_316" +"(let-values(((or-part_317)" "(char=?" " c_81" " '#\\t)))" -"(if or-part_319" -" or-part_319" +"(if or-part_317" +" or-part_317" "(char=?" " c_81" " '#\\T)))))))))))))))))))))))" @@ -50310,13 +50337,13 @@ static const char *startup_source = "(format" " \"misplaced `~a` in `~.a`\"" " c_81" -"(substring s_200 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(if(if(<(add1 i_175) end_35)" -"(char-sign?(string-ref s_200(add1 i_175)))" +"(char-sign?(string-ref s_204(add1 i_175)))" " #f)" "(let-values()" -"(loop_106" +"(loop_108" "(+ i_175 2)" " any-digits?_0" " any-hashes?_0" @@ -50325,11 +50352,11 @@ static const char *startup_source = " sign-pos_0" " dot-pos_1" " slash-pos_0" -"(let-values(((or-part_320) exp-pos_0))" -"(if or-part_320 or-part_320 i_175))" +"(let-values(((or-part_318) exp-pos_0))" +"(if or-part_318 or-part_318 i_175))" " must-i?_0))" "(let-values()" -"(loop_106" +"(loop_108" "(+ i_175 1)" " any-digits?_0" " any-hashes?_0" @@ -50338,8 +50365,8 @@ static const char *startup_source = " 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_175))" +"(let-values(((or-part_319) exp-pos_0))" +"(if or-part_319 or-part_319 i_175))" " must-i?_0)))))" "(if(char=? c_81 '#\\@)" "(let-values()" @@ -50349,18 +50376,18 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_200 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" -"(if(let-values(((or-part_322) @-pos_0))" -"(if or-part_322" -" or-part_322" +"(if(let-values(((or-part_320) @-pos_0))" +"(if or-part_320" +" or-part_320" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"too many `@`s in `~.a`\"" -"(substring s_200 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(if(= i_175 start_45)" "(let-values()" @@ -50368,7 +50395,7 @@ static const char *startup_source = "(let-values()" "(format" " \"`@` cannot be at start in `~.a`\"" -"(substring s_200 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(if must-i?_0" "(let-values()" @@ -50376,10 +50403,10 @@ static const char *startup_source = "(let-values()" "(format" " \"too many signs in `~.a`\"" -"(substring s_200 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(let-values()" -"(loop_106" +"(loop_108" "(add1 i_175)" " any-digits?_0" " any-hashes?_0" @@ -50390,39 +50417,39 @@ static const char *startup_source = " #f" " #f" " must-i?_0)))))))" -"(if(if(let-values(((or-part_323)" +"(if(if(let-values(((or-part_321)" "(char=? c_81 '#\\i)))" -"(if or-part_323" -" or-part_323" +"(if or-part_321" +" or-part_321" "(char=? c_81 '#\\I)))" " sign-pos_0" " #f)" "(let-values()" -"(if(let-values(((or-part_324) @-pos_0))" -"(if or-part_324" -" or-part_324" +"(if(let-values(((or-part_322) @-pos_0))" +"(if or-part_322" +" or-part_322" "(eq? in-complex_1 '@)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" "(format" " \"cannot mix `@` and `i` in `~.a`\"" -"(substring s_200 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" -"(if(let-values(((or-part_325)" +"(if(let-values(((or-part_323)" "(<(add1 i_175) end_35)))" -"(if or-part_325" -" or-part_325" +"(if or-part_323" +" or-part_323" "(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_200 start_45 end_35)))" +"(substring s_204 start_45 end_35)))" "(let-values() #f)))" "(let-values()" -"(loop_106" +"(loop_108" "(add1 i_175)" " any-digits?_0" " any-hashes?_0" @@ -50438,14 +50465,14 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" -" (format \"nul character in `~.a`\" s_200))" +" (format \"nul character in `~.a`\" s_204))" "(let-values() #f)))" "(let-values()" "(if(eq? convert-mode_3 'must-read)" "(let-values()" " (format \"bad digit `~a`\" c_81))" "(let-values() #f))))))))))))))))))))" -" loop_106)" +" loop_108)" " start_45" " #f" " #f" @@ -50472,7 +50499,7 @@ static const char *startup_source = " convert-mode49_0)" "(begin" " 'string->complex-number50" -"(let-values(((s_219) s40_0))" +"(let-values(((s_223) s40_0))" "(let-values(((start1_0) start141_0))" "(let-values(((end1_0) end142_0))" "(let-values(((start2_0) start243_0))" @@ -50489,7 +50516,7 @@ static const char *startup_source = "(if(= start1_0 end1_0)" "(let-values()(if(eq? exactness_2 'inexact) 0.0 0))" "(let-values()" -"(let-values(((s160_0) s_219)" +"(let-values(((s160_0) s_223)" "((start1161_0) start1_0)" "((end1162_0) end1_0)" "((radix163_0) radix_6)" @@ -50510,12 +50537,12 @@ static const char *startup_source = "(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_219 start2_0) '#\\-)))" +"(let-values(((neg?_0)(char=?(string-ref s_223 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(((s168_0) s_219)" +"(let-values(((s168_0) s_223)" "((start2169_0) start2_0)" "((end2170_0) end2_0)" "((radix171_0) radix_6)" @@ -50533,11 +50560,11 @@ static const char *startup_source = " radix171_0" " exactness173_0" " convert-mode175_0))))))" -"(if(let-values(((or-part_326)(not v1_0)))" -"(if or-part_326 or-part_326(not v2_6)))" +"(if(let-values(((or-part_324)(not v1_0)))" +"(if or-part_324 or-part_324(not v2_6)))" "(let-values() #f)" -"(if(if(let-values(((or-part_327)(extflonum? v1_0)))" -"(if or-part_327 or-part_327(extflonum? v2_6)))" +"(if(if(let-values(((or-part_325)(extflonum? v1_0)))" +"(if or-part_325 or-part_325(extflonum? v2_6)))" "(not(eq? convert-mode_4 'must-read))" " #f)" "(let-values()(fail-extflonum convert-mode_4 v1_0))" @@ -50558,33 +50585,33 @@ static const char *startup_source = " p_76))))))))))))))))))))))))))))" "(define-values" "(string->real-number)" -"(lambda(s_230 start_46 end_36 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" +"(lambda(s_234 start_46 end_36 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_230 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_328)(eq? exactness_3 'inexact)))" +"(if(let-values(((or-part_326)(eq? exactness_3 'inexact)))" +"(if or-part_326" +" or-part_326" +"(let-values(((or-part_327)(eq? exactness_3 'decimal-as-inexact)))" +"(if or-part_327 or-part_327(if(not dot-pos_2)(not exp-pos_1) #f)))))" +"(if(let-values(((or-part_328)(not exp-pos_1)))" "(if or-part_328" " or-part_328" -"(let-values(((or-part_329)(eq? exactness_3 'decimal-as-inexact)))" -"(if or-part_329 or-part_329(if(not dot-pos_2)(not exp-pos_1) #f)))))" -"(if(let-values(((or-part_330)(not exp-pos_1)))" -"(if or-part_330" -" or-part_330" -"(let-values(((or-part_331)(not(eq? convert-mode_5 'number-or-false))))" -"(if or-part_331 or-part_331(not(extfl-mark?_0))))))" -"(not(if any-hashes?_1(hashes? s_230 start_46 end_36) #f))" +"(let-values(((or-part_329)(not(eq? convert-mode_5 'number-or-false))))" +"(if or-part_329 or-part_329(not(extfl-mark?_0))))))" +"(not(if any-hashes?_1(hashes? s_234 start_46 end_36) #f))" " #f)" " #f)" " #f)))" -"(let-values(((has-sign?_0)(if(> end_36 start_46)(char-sign?(string-ref s_230 start_46)) #f)))" +"(let-values(((has-sign?_0)(if(> end_36 start_46)(char-sign?(string-ref s_234 start_46)) #f)))" "(if(=(- end_36 start_46)(+(if dot-pos_2 1 0)(if exp-pos_1 1 0)(if has-sign?_0 1 0)))" "(let-values()" "(if(= end_36 start_46)" " (if (eq? convert-mode_5 'must-read) (let-values () (format \"missing digits\")) (let-values () #f))" "(if(eq? convert-mode_5 'must-read)" -" (let-values () (format \"missing digits in `~.a`\" (substring s_230 start_46 end_36)))" +" (let-values () (format \"missing digits in `~.a`\" (substring s_234 start_46 end_36)))" "(let-values() #f))))" "(if simple?_0" "(let-values()" @@ -50596,37 +50623,37 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" -" (format \"missing digits before exponent marker in `~.a`\" (substring s_230 start_46 end_36)))" +" (format \"missing digits before exponent marker in `~.a`\" (substring s_234 start_46 end_36)))" "(let-values() #f)))" "(if(if exp-pos_1" -"(let-values(((or-part_332)(= exp-pos_1(sub1 end_36))))" -"(if or-part_332" -" or-part_332" -"(if(= exp-pos_1(- end_36 2))(char-sign?(string-ref s_230(sub1 end_36))) #f)))" +"(let-values(((or-part_330)(= exp-pos_1(sub1 end_36))))" +"(if or-part_330" +" or-part_330" +"(if(= exp-pos_1(- end_36 2))(char-sign?(string-ref s_234(sub1 end_36))) #f)))" " #f)" "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" -" (format \"missing digits after exponent marker in `~.a`\" (substring s_230 start_46 end_36)))" +" (format \"missing digits after exponent marker in `~.a`\" (substring s_234 start_46 end_36)))" "(let-values() #f)))" "(let-values()" "(let-values(((n_30)" "(string->number$1" -"(maybe-substring s_230 start_46 end_36)" +"(maybe-substring s_234 start_46 end_36)" " 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_334)(not exp-pos_1)))" -"(if or-part_334 or-part_334(not(extfl-mark?_0))))))" +"(if(let-values(((or-part_331)(eq? convert-mode_5 'number-or-false)))" +"(if or-part_331" +" or-part_331" +"(let-values(((or-part_332)(not exp-pos_1)))" +"(if or-part_332 or-part_332(not(extfl-mark?_0))))))" " 'number-or-false" " 'read))))" -"(if(let-values(((or-part_335)(not n_30)))(if or-part_335 or-part_335(string? n_30)))" +"(if(let-values(((or-part_333)(not n_30)))(if or-part_333 or-part_333(string? n_30)))" "(let-values()" "(error" " 'string->number" " \"host `string->number` failed on ~s\"" -"(substring s_230 start_46 end_36)))" +"(substring s_234 start_46 end_36)))" "(if(eq? exactness_3 'inexact)" "(let-values()" "(if(extflonum? n_30)" @@ -50635,9 +50662,9 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to inexact\"" -"(substring s_230 start_46 end_36)))" +"(substring s_234 start_46 end_36)))" "(let-values() #f)))" -"(if(if(eqv? n_30 0)(char=?(string-ref s_230 start_46) '#\\-) #f)" +"(if(if(eqv? n_30 0)(char=?(string-ref s_234 start_46) '#\\-) #f)" "(let-values() -0.0)" "(let-values()(exact->inexact n_30)))))" "(let-values() n_30))))))))" @@ -50645,7 +50672,7 @@ static const char *startup_source = "(let-values()" "(let-values(((m-v_0)" "(string->real-number" -" s_230" +" s_234" " start_46" " exp-pos_1" " dot-pos_2" @@ -50656,29 +50683,29 @@ static const char *startup_source = " 'exact" " convert-mode_5)))" "(let-values(((e-v_0)" -"(string->exact-integer-number s_230(+ exp-pos_1 1) end_36 radix_7 convert-mode_5)))" +"(string->exact-integer-number s_234(+ exp-pos_1 1) end_36 radix_7 convert-mode_5)))" "(let-values(((real->precision-inexact_0)" -"(lambda(r_45)" +"(lambda(r_44)" "(begin" " 'real->precision-inexact" -"(let-values(((tmp_41)(string-ref s_230 exp-pos_1)))" +"(let-values(((tmp_41)(string-ref s_234 exp-pos_1)))" "(if(if(equal? tmp_41 '#\\s)" " #t" "(if(equal? tmp_41 '#\\S)" " #t" "(if(equal? tmp_41 '#\\f) #t(equal? tmp_41 '#\\F))))" -"(let-values()(real->single-flonum r_45))" +"(let-values()(real->single-flonum r_44))" "(if(if(equal? tmp_41 '#\\t) #t(equal? tmp_41 '#\\T))" "(let-values()" "(if(extflonum-available?)" -"(real->extfl r_45)" +"(real->extfl r_44)" "(string->number$1" -"(replace-hashes s_230 start_46 end_36)" +"(replace-hashes s_234 start_46 end_36)" " radix_7" " 'read)))" -"(let-values()(real->double-flonum r_45)))))))))" +"(let-values()(real->double-flonum r_44)))))))))" "(let-values(((get-extfl?_0)(extfl-mark?_0)))" -"(if(let-values(((or-part_336)(not m-v_0)))(if or-part_336 or-part_336(not e-v_0)))" +"(if(let-values(((or-part_334)(not m-v_0)))(if or-part_334 or-part_334(not e-v_0)))" "(let-values() #f)" "(if(string? m-v_0)" "(let-values() m-v_0)" @@ -50686,14 +50713,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_217)(eq? exactness_3 'inexact)))" -"(if or-part_217 or-part_217(eq? exactness_3 'decimal-as-inexact)))" +"(if(if(let-values(((or-part_216)(eq? exactness_3 'inexact)))" +"(if or-part_216 or-part_216(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_230 start_46) '#\\-) -0.0 0.0))" +"(let-values()(if(char=?(string-ref s_234 start_46) '#\\-) -0.0 0.0))" "(if(positive? m-v_0)" "(let-values()(if(positive? e-v_0) +inf.0 0.0))" "(let-values()(if(positive? e-v_0) -inf.0 -0.0))))))" @@ -50703,24 +50730,24 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to ~a\"" -"(substring s_230 start_46 end_36)" +"(substring s_234 start_46 end_36)" " exactness_3))" "(let-values() #f)))" "(let-values()" "(let-values(((n_31)(* m-v_0(expt radix_7 e-v_0))))" "(if(if(not get-extfl?_0)" -"(let-values(((or-part_337)(eq? exactness_3 'exact)))" -"(if or-part_337 or-part_337(eq? exactness_3 'decimal-as-exact)))" +"(let-values(((or-part_335)(eq? exactness_3 'exact)))" +"(if or-part_335 or-part_335(eq? exactness_3 'decimal-as-exact)))" " #f)" "(let-values() n_31)" -"(if(if(eqv? n_31 0)(char=?(string-ref s_230 start_46) '#\\-) #f)" +"(if(if(eqv? n_31 0)(char=?(string-ref s_234 start_46) '#\\-) #f)" "(let-values()(real->precision-inexact_0 -0.0))" "(let-values()(real->precision-inexact_0 n_31)))))))))))))))))" "(if slash-pos_1" "(let-values()" "(let-values(((n-v_0)" "(string->real-number" -" s_230" +" s_234" " start_46" " slash-pos_1" " #f" @@ -50732,7 +50759,7 @@ static const char *startup_source = " convert-mode_5)))" "(let-values(((d-v_0)" "(string->real-number" -" s_230" +" s_234" "(add1 slash-pos_1)" " end_36" " #f" @@ -50750,9 +50777,9 @@ static const char *startup_source = "(if or-part_145" " or-part_145" "(if(not(eq? exactness_3 'exact))" -"(hashes? s_230 from-pos_0 end_36)" +"(hashes? s_234 from-pos_0 end_36)" " #f)))))))" -"(if(let-values(((or-part_338)(not n-v_0)))(if or-part_338 or-part_338(not d-v_0)))" +"(if(let-values(((or-part_336)(not n-v_0)))(if or-part_336 or-part_336(not d-v_0)))" "(let-values() #f)" "(if(string? n-v_0)" "(let-values() n-v_0)" @@ -50765,14 +50792,14 @@ static const char *startup_source = "(let-values()" "(if(eq?(read-complains convert-mode_5) 'must-read)" "(let-values()" -" (format \"division by zero in `~.a`\" (substring s_230 start_46 end_36)))" +" (format \"division by zero in `~.a`\" (substring s_234 start_46 end_36)))" "(let-values() #f)))))" "(let-values()" "(let-values(((n_32)(/ n-v_0 d-v_0)))" "(if(get-inexact?_0 start_46)(exact->inexact n_32) n_32)))))))))))" "(let-values()" "(string->decimal-number" -" s_230" +" s_234" " start_46" " end_36" " dot-pos_2" @@ -50781,149 +50808,149 @@ static const char *startup_source = " convert-mode_5))))))))))))" "(define-values" "(string->decimal-number)" -"(lambda(s_353 start_47 end_37 dot-pos_3 radix_8 exactness_4 convert-mode_6)" +"(lambda(s_357 start_47 end_37 dot-pos_3 radix_8 exactness_4 convert-mode_6)" "(begin" "(let-values(((get-exact?_0)" -"(let-values(((or-part_339)(eq? exactness_4 'exact)))" -"(if or-part_339 or-part_339(eq? exactness_4 'decimal-as-exact)))))" +"(let-values(((or-part_337)(eq? exactness_4 'exact)))" +"(if or-part_337 or-part_337(eq? exactness_4 'decimal-as-exact)))))" "(let-values(((new-str_0)(make-string(- end_37 start_47(if(if dot-pos_3 get-exact?_0 #f) 1 0)))))" -"((letrec-values(((loop_107)" -"(lambda(i_116 j_3 hashes-pos_0)" +"((letrec-values(((loop_109)" +"(lambda(i_117 j_3 hashes-pos_0)" "(begin" " 'loop" -"(if(< i_116 start_47)" +"(if(< i_117 start_47)" "(let-values()" "(if(= hashes-pos_0 start_47)" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" -" (format \"misplaced `#` in `~.a`\" (substring s_353 start_47 end_37)))" +" (format \"misplaced `#` in `~.a`\" (substring s_357 start_47 end_37)))" "(let-values() #f)))" "(let-values()" "(let-values(((n_33)(string->number$1 new-str_0 radix_8)))" "(if(not n_33)" -"(let-values()(fail-bad-number convert-mode_6 s_353 start_47 end_37))" +"(let-values()(fail-bad-number convert-mode_6 s_357 start_47 end_37))" "(if(not get-exact?_0)" "(let-values()" -"(if(if(eqv? n_33 0)(char=?(string-ref s_353 start_47) '#\\-) #f)" +"(if(if(eqv? n_33 0)(char=?(string-ref s_357 start_47) '#\\-) #f)" " -0.0" "(exact->inexact n_33)))" "(if(if dot-pos_3 get-exact?_0 #f)" "(let-values()(/ n_33(expt 10(- end_37 dot-pos_3 1))))" "(let-values() n_33))))))))" "(let-values()" -"(let-values(((c_82)(string-ref s_353 i_116)))" +"(let-values(((c_82)(string-ref s_357 i_117)))" "(if(char=? c_82 '#\\.)" "(let-values()" "(if get-exact?_0" "(let-values()" -"(loop_107" -"(sub1 i_116)" +"(loop_109" +"(sub1 i_117)" " j_3" -"(if(= hashes-pos_0(add1 i_116)) i_116 hashes-pos_0)))" +"(if(= hashes-pos_0(add1 i_117)) i_117 hashes-pos_0)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_82)" -"(loop_107" -"(sub1 i_116)" +"(loop_109" +"(sub1 i_117)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_116)) i_116 hashes-pos_0))))))" -"(if(let-values(((or-part_111)(char=? c_82 '#\\-)))" -"(if or-part_111 or-part_111(char=? c_82 '#\\+)))" +"(if(= hashes-pos_0(add1 i_117)) i_117 hashes-pos_0))))))" +"(if(let-values(((or-part_112)(char=? c_82 '#\\-)))" +"(if or-part_112 or-part_112(char=? c_82 '#\\+)))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_82)" -"(loop_107" -"(sub1 i_116)" +"(loop_109" +"(sub1 i_117)" "(sub1 j_3)" -"(if(= hashes-pos_0(add1 i_116)) i_116 hashes-pos_0))))" +"(if(= hashes-pos_0(add1 i_117)) i_117 hashes-pos_0))))" "(if(char=? c_82 '#\\#)" "(let-values()" -"(if(= hashes-pos_0(add1 i_116))" +"(if(= hashes-pos_0(add1 i_117))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 '#\\0)" -"(loop_107(sub1 i_116)(sub1 j_3) i_116)))" +"(loop_109(sub1 i_117)(sub1 j_3) i_117)))" "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" "(format" " \"misplaced `#` in `~.a`\"" -"(substring s_353 start_47 end_37)))" +"(substring s_357 start_47 end_37)))" "(let-values() #f)))))" "(let-values()" "(begin" "(string-set! new-str_0 j_3 c_82)" -"(loop_107(sub1 i_116)(sub1 j_3) hashes-pos_0)))))))))))))" -" loop_107)" +"(loop_109(sub1 i_117)(sub1 j_3) hashes-pos_0)))))))))))))" +" loop_109)" "(sub1 end_37)" "(sub1(string-length new-str_0))" " end_37))))))" "(define-values" "(string->exact-integer-number)" -"(lambda(s_240 start_48 end_38 radix_9 convert-mode_7)" +"(lambda(s_244 start_48 end_38 radix_9 convert-mode_7)" "(begin" -"(if(hashes? s_240 start_48 end_38)" +"(if(hashes? s_244 start_48 end_38)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_240 start_48 end_38)))" +" (let-values () (format \"misplaced `#` in `~.a`\" (substring s_244 start_48 end_38)))" "(let-values() #f)))" "(let-values()" -"(let-values(((n_34)(string->number$1(maybe-substring s_240 start_48 end_38) radix_9)))" +"(let-values(((n_34)(string->number$1(maybe-substring s_244 start_48 end_38) radix_9)))" "(if(not n_34)" "(let-values()" "(if(eq? convert-mode_7 'must-read)" -" (let-values () (format \"bad exponent `~.a`\" (substring s_240 start_48 end_38)))" +" (let-values () (format \"bad exponent `~.a`\" (substring s_244 start_48 end_38)))" "(let-values() #f)))" "(let-values() n_34))))))))" "(define-values" "(read-special-number)" -"(lambda(s_243 start_49 end_39 convert-mode_8)" +"(lambda(s_247 start_49 end_39 convert-mode_8)" "(begin" "(if(=(- end_39 start_49) 6)" -"(if(let-values(((or-part_340)(char=?(string-ref s_243 start_49) '#\\+)))" -"(if or-part_340 or-part_340(char=?(string-ref s_243 start_49) '#\\-)))" +"(if(let-values(((or-part_338)(char=?(string-ref s_247 start_49) '#\\+)))" +"(if or-part_338 or-part_338(char=?(string-ref s_247 start_49) '#\\-)))" +"(let-values(((or-part_339)" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 1))) '#\\i)" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 2))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 3))) '#\\f)" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 4))) '#\\.)" +"(let-values(((or-part_340)" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 5))) '#\\0)" +"(if(char=?(string-ref s_247 start_49) '#\\+) +inf.0 -inf.0)" +" #f)))" +"(if or-part_340" +" or-part_340" "(let-values(((or-part_341)" -"(if(char=?(char-downcase(string-ref s_243(+ start_49 1))) '#\\i)" -"(if(char=?(char-downcase(string-ref s_243(+ start_49 2))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_243(+ start_49 3))) '#\\f)" -"(if(char=?(char-downcase(string-ref s_243(+ start_49 4))) '#\\.)" -"(let-values(((or-part_342)" -"(if(char=?(char-downcase(string-ref s_243(+ start_49 5))) '#\\0)" -"(if(char=?(string-ref s_243 start_49) '#\\+) +inf.0 -inf.0)" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 5))) '#\\f)" +"(if(char=?(string-ref s_247 start_49) '#\\+) +inf.f -inf.f)" " #f)))" -"(if or-part_342" -" or-part_342" -"(let-values(((or-part_343)" -"(if(char=?(char-downcase(string-ref s_243(+ start_49 5))) '#\\f)" -"(if(char=?(string-ref s_243 start_49) '#\\+) +inf.f -inf.f)" -" #f)))" -"(if or-part_343" -" or-part_343" -"(if(char=?(char-downcase(string-ref s_243(+ start_49 5))) '#\\t)" +"(if or-part_341" +" or-part_341" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false))" -"(if(char=?(string-ref s_243 start_49) '#\\+) '+inf.t '-inf.t)" +"(if(char=?(string-ref s_247 start_49) '#\\+) '+inf.t '-inf.t)" " #f)" " #f)))))" " #f)" " #f)" " #f)" " #f)))" -"(if or-part_341" -" or-part_341" -"(if(char=?(char-downcase(string-ref s_243(+ start_49 1))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_243(+ start_49 2))) '#\\a)" -"(if(char=?(char-downcase(string-ref s_243(+ start_49 3))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_243(+ start_49 4))) '#\\.)" -"(let-values(((or-part_344)" -"(if(char=?(char-downcase(string-ref s_243(+ start_49 5))) '#\\0) +nan.0 #f)))" -"(if or-part_344" -" or-part_344" -"(let-values(((or-part_345)" -"(if(char=?(char-downcase(string-ref s_243(+ start_49 5))) '#\\f) +nan.f #f)))" -"(if or-part_345" -" or-part_345" -"(if(char=?(char-downcase(string-ref s_243(+ start_49 5))) '#\\t)" +"(if or-part_339" +" or-part_339" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 1))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 2))) '#\\a)" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 3))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 4))) '#\\.)" +"(let-values(((or-part_342)" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 5))) '#\\0) +nan.0 #f)))" +"(if or-part_342" +" or-part_342" +"(let-values(((or-part_343)" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 5))) '#\\f) +nan.f #f)))" +"(if or-part_343" +" or-part_343" +"(if(char=?(char-downcase(string-ref s_247(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" " #f)))))" " #f)" @@ -50934,10 +50961,10 @@ static const char *startup_source = " #f))))" "(define-values" "(fail-extflonum)" -"(lambda(convert-mode_9 v_236)" +"(lambda(convert-mode_9 v_235)" "(begin" "(if(eq? convert-mode_9 'must-read)" -" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_236))" +" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_235))" "(let-values() #f)))))" "(define-values" "(read-for-special-compound65.1)" @@ -50954,7 +50981,7 @@ static const char *startup_source = " combine64_0)" "(begin" " 'read-for-special-compound65" -"(let-values(((s_454) s57_0))" +"(let-values(((s_459) s57_0))" "(let-values(((start_50) start58_0))" "(let-values(((end_40) end59_0))" "(let-values(((radix_10) radix60_0))" @@ -50962,22 +50989,22 @@ static const char *startup_source = "(let-values(((convert-mode_10) convert-mode62_0))" "(let-values(((in-complex_3) in-complex53_0))" "(let-values(((reading-first?_0)(if reading-first?56_0 reading-first?54_0 #f)))" -"(let-values(((v_237) v63_0))" +"(let-values(((v_236) 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_237))" +" (let-values () (format \"no exact representation for `~a`\" v_236))" "(let-values() #f)))" -"(if(if(extflonum? v_237)" -"(let-values(((or-part_346)(not reading-first?_0)))" -"(if or-part_346 or-part_346(not(eq? convert-mode_10 'must-read))))" +"(if(if(extflonum? v_236)" +"(let-values(((or-part_344)(not reading-first?_0)))" +"(if or-part_344 or-part_344(not(eq? convert-mode_10 'must-read))))" " #f)" -"(let-values()(fail-extflonum convert-mode_10 v_237))" +"(let-values()(fail-extflonum convert-mode_10 v_236))" "(let-values()" "(let-values(((v2_7)" -"(let-values(((s176_0) s_454)" +"(let-values(((s176_0) s_459)" "((start177_0) start_50)" "((end178_0) end_40)" "((radix179_0) radix_10)" @@ -50999,12 +51026,12 @@ static const char *startup_source = "(let-values() v2_7)" "(if(not v2_7)" "(let-values() v2_7)" -"(if(extflonum? v_237)" -"(let-values()(fail-extflonum convert-mode_10 v_237))" -"(let-values()(combine_1 v_237 v2_7)))))))))))))))))))))))" +"(if(extflonum? v_236)" +"(let-values()(fail-extflonum convert-mode_10 v_236))" +"(let-values()(combine_1 v_236 v2_7)))))))))))))))))))))))" "(define-values" "(hashes?)" -"(lambda(s_455 start_51 end_41)" +"(lambda(s_460 start_51 end_41)" "(begin" "(let-values(((v*_6 start*_5 stop*_6 step*_5)" "(normalise-inputs" @@ -51012,7 +51039,7 @@ static const char *startup_source = " \"string\"" "(lambda(x_83)(string? x_83))" "(lambda(x_84)(unsafe-string-length x_84))" -" s_455" +" s_460" " start_51" " end_41" " 1)))" @@ -51038,7 +51065,7 @@ static const char *startup_source = " start*_5))))))" "(define-values" "(replace-hashes)" -"(lambda(s_456 start_52 end_42)" +"(lambda(s_461 start_52 end_42)" "(begin" "(let-values(((new-s_9)(make-string(- end_42 start_52))))" "(begin" @@ -51048,7 +51075,7 @@ static const char *startup_source = " \"string\"" "(lambda(x_86)(string? x_86))" "(lambda(x_87)(unsafe-string-length x_87))" -" s_456" +" s_461" " start_52" " end_42" " 1))" @@ -51084,39 +51111,39 @@ static const char *startup_source = " new-s_9)))))" "(define-values" "(maybe-substring)" -"(lambda(s_394 start_54 end_43)" -"(begin(if(if(= 0 start_54)(= end_43(string-length s_394)) #f) s_394(substring s_394 start_54 end_43)))))" +"(lambda(s_400 start_54 end_43)" +"(begin(if(if(= 0 start_54)(= end_43(string-length s_400)) #f) s_400(substring s_400 start_54 end_43)))))" "(define-values" "(exactness-set?)" "(lambda(exactness_6)" "(begin" -"(let-values(((or-part_347)(eq? exactness_6 'exact)))(if or-part_347 or-part_347(eq? exactness_6 'inexact))))))" +"(let-values(((or-part_345)(eq? exactness_6 'exact)))(if or-part_345 or-part_345(eq? exactness_6 'inexact))))))" "(define-values" "(char-sign?)" "(lambda(c_85)" -"(begin(let-values(((or-part_348)(char=? c_85 '#\\-)))(if or-part_348 or-part_348(char=? c_85 '#\\+))))))" +"(begin(let-values(((or-part_346)(char=? c_85 '#\\-)))(if or-part_346 or-part_346(char=? c_85 '#\\+))))))" "(define-values" "(digit?)" "(lambda(c_86 radix_11)" "(begin" -"(let-values(((v_238)(char->integer c_86)))" -"(let-values(((or-part_349)" -"(if(>= v_238(char->integer '#\\0))(<(- v_238(char->integer '#\\0)) radix_11) #f)))" -"(if or-part_349" -" or-part_349" +"(let-values(((v_237)(char->integer c_86)))" +"(let-values(((or-part_347)" +"(if(>= v_237(char->integer '#\\0))(<(- v_237(char->integer '#\\0)) radix_11) #f)))" +"(if or-part_347" +" or-part_347" "(if(> radix_11 10)" -"(let-values(((or-part_350)" -"(if(>= v_238(char->integer '#\\a))(<(- v_238(-(char->integer '#\\a) 10)) radix_11) #f)))" -"(if or-part_350" -" or-part_350" -"(if(>= v_238(char->integer '#\\A))(<(- v_238(-(char->integer '#\\A) 10)) radix_11) #f)))" +"(let-values(((or-part_348)" +"(if(>= v_237(char->integer '#\\a))(<(- v_237(-(char->integer '#\\a) 10)) radix_11) #f)))" +"(if or-part_348" +" or-part_348" +"(if(>= v_237(char->integer '#\\A))(<(- v_237(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" -"(lambda(convert-mode_11 s_457 start_55 end_44)" +"(lambda(convert-mode_11 s_462 start_55 end_44)" "(begin" "(if(eq? convert-mode_11 'must-read)" -" (let-values () (format \"bad number `~.a`\" (substring s_457 start_55 end_44)))" +" (let-values () (format \"bad number `~.a`\" (substring s_462 start_55 end_44)))" "(let-values() #f)))))" "(define-values" "(read-complains)" @@ -51196,17 +51223,17 @@ static const char *startup_source = "(list temp15_5 after-c16_0 temp17_3)))))))" "(let-values((()" "(begin" -"((letrec-values(((loop_108)" +"((letrec-values(((loop_110)" "(lambda(init-c_6" " pipe-quote-c_0" " foldcase-from_0)" "(begin" " 'loop" "(let-values(((c_88)" -"(let-values(((or-part_85)" +"(let-values(((or-part_86)" " init-c_6))" -"(if or-part_85" -" or-part_85" +"(if or-part_86" +" or-part_86" "(let-values(((in_26)" " in_25)" "((skip-count_8)" @@ -51228,11 +51255,11 @@ static const char *startup_source = "(let-values(((ec_4)" "(let-values(((rt_12) rt_11)" "((c_89) c_88))" -"(if(let-values(((or-part_68)" +"(if(let-values(((or-part_69)" "(not" " rt_12)))" -"(if or-part_68" -" or-part_68" +"(if or-part_69" +" or-part_69" "(not" "(char? c_89))))" "(let-values() c_89)" @@ -51280,7 +51307,7 @@ static const char *startup_source = "(consume-char" " in_25" " c_88)))" -"(loop_108" +"(loop_110" " #f" " #f" "(accum-string-count" @@ -51306,7 +51333,7 @@ static const char *startup_source = " accum-str_1" " string-foldcase" " foldcase-from_0)))" -"(loop_108" +"(loop_110" " #f" " c_88" "(accum-string-count" @@ -51356,7 +51383,7 @@ static const char *startup_source = " next-c_0)" "(set! quoted-ever?_0" " #t)" -"(loop_108" +"(loop_110" " #f" " #f" "(accum-string-count" @@ -51372,11 +51399,11 @@ static const char *startup_source = "(accum-string-add!" " accum-str_1" " c_88)" -"(loop_108" +"(loop_110" " #f" " pipe-quote-c_0" " foldcase-from_0))))))))))))))" -" loop_108)" +" loop_110)" " init-c_2" " #f" " 0)" @@ -51471,14 +51498,14 @@ static const char *startup_source = "(list temp30_2))))" "(void))" "(wrap" -"(let-values(((or-part_164) num_0))" -"(if or-part_164" -" or-part_164" -"(let-values(((or-part_300)" +"(let-values(((or-part_163) num_0))" +"(if or-part_163" +" or-part_163" +"(let-values(((or-part_297)" "(if(eq? mode_17 'keyword)" "(string->keyword str_28)" " #f)))" -"(if or-part_300 or-part_300(string->symbol str_28)))))" +"(if or-part_297 or-part_297(string->symbol str_28)))))" " in_25" " config_24" " str_28)))))))))))))))))))))))))" @@ -51488,16 +51515,16 @@ static const char *startup_source = "(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_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 (((v_91) (read-number-literal c_33 in_5 config_15 \"#e\")))" +"(if(fixnum? v_91)" +"(let-values() v_91)" +"(if(eof-object? v_91)" +"(let-values() v_91)" "(let-values()" "(let-values(((in1_3) in_5)" "((temp2_5)(reading-at config_15 line_8 col_7 pos_115))" " ((temp3_6) \"expected a fixnum, found ~a\")" -"((v4_1) v_92))" +"((v4_1) v_91))" "(reader-error12.1 #f #f #f #f #f #f #f #f in1_3 temp2_5 temp3_6(list v4_1))))))))))))" "(define-values" "(read-flonum)" @@ -51600,7 +51627,7 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_38)))" "(let-values(((fill_0) 0))" -"(let-values(((v_196)(make-fxvector len_38 fill_0)))" +"(let-values(((v_195)(make-fxvector len_38 fill_0)))" "(begin" "(if(zero? len_38)" "(void)" @@ -51634,7 +51661,7 @@ static const char *startup_source = "(if(fixnum?" " elem_0)" "(unsafe-fxvector-set!" -" v_196" +" v_195" " i_179" " elem_0)" "(not-an-fX.1" @@ -51661,7 +51688,7 @@ static const char *startup_source = " for-loop_252)" " 0" " lst_24)))))" -" v_196))))))" +" v_195))))))" "(if(equal? tmp_42 'flonum)" "(let-values()" "(let-values(((len_8)(length seq_2)))" @@ -51674,7 +51701,7 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_8)))" "(let-values(((fill_1) 0.0))" -"(let-values(((v_239)(make-flvector len_8 fill_1)))" +"(let-values(((v_238)(make-flvector len_8 fill_1)))" "(begin" "(if(zero? len_8)" "(void)" @@ -51696,7 +51723,7 @@ static const char *startup_source = "((rest_90)" "(unsafe-cdr" " lst_17)))" -"(let-values(((i_157)" +"(let-values(((i_158)" "(let-values(((i_92)" " i_180))" "(let-values(((i_181)" @@ -51708,7 +51735,7 @@ static const char *startup_source = "(if(flonum?" " elem_1)" "(unsafe-flvector-set!" -" v_239" +" v_238" " i_92" " elem_1)" "(not-an-fX.1$1" @@ -51722,20 +51749,20 @@ static const char *startup_source = "(if(if(not" "((lambda x_89" "(unsafe-fx=" -" i_157" +" i_158" " len_8))" " e_81))" "(not #f)" " #f)" "(for-loop_189" -" i_157" +" i_158" " rest_90)" -" i_157)))" +" i_158)))" " i_180)))))" " for-loop_189)" " 0" " lst_92)))))" -" v_239))))))" +" v_238))))))" "(let-values()(void)))))))" "(let-values()" "(let-values(((len_39)(length seq_2)))" @@ -51773,20 +51800,20 @@ static const char *startup_source = "(list temp25_6 expected-len26_0 len27_0))))" "(let-values()" "(let-values(((last-or_0)" -"(lambda(v_240)" +"(lambda(v_239)" "(begin" " 'last-or" "(if(null? seq_2)" -"(wrap v_240 in_30 config_40 #f)" -"((letrec-values(((loop_109)" +"(wrap v_239 in_30 config_40 #f)" +"((letrec-values(((loop_111)" "(lambda(seq_3)" "(begin" " 'loop" "(if(null?(cdr seq_3))" "(car seq_3)" -"(loop_109" +"(loop_111" "(cdr seq_3)))))))" -" loop_109)" +" loop_111)" " seq_2))))))" "(let-values((()" "(begin" @@ -52109,7 +52136,7 @@ static const char *startup_source = "(let-values(((accum-str_2)(accum-string-init! config_44)))" "(let-values((()(begin(accum-string-add! accum-str_2 init-c_10)(values))))" "(let-values(((init-v_1)(digit->number init-c_10)))" -"(let-values(((v_98)" +"(let-values(((v_97)" "(let-values(((in69_0) in_35)" "((config70_0) config_44)" "((accum-str71_0) accum-str_2)" @@ -52129,7 +52156,7 @@ static const char *startup_source = " accum-str71_0" " #t))))" "(values" -" v_98" +" v_97" "(let-values(((accum-str76_0) accum-str_2)((config77_0) config_44))" "(accum-string-get!6.1 #f #f accum-str76_0 config77_0))" "(let-values(((in_36) in_35)((source_20)(read-config-source config_44)))" @@ -52434,9 +52461,9 @@ static const char *startup_source = "(if(if(equal? tmp_49 '#\\=) #t(equal? tmp_49 '#\\#))" "(let-values()" "(begin" -"(if(let-values(((or-part_351)(read-config-for-syntax? config_47)))" -"(if or-part_351" -" or-part_351" +"(if(let-values(((or-part_349)(read-config-for-syntax? config_47)))" +"(if or-part_349" +" or-part_349" "(not(check-parameter 1/read-accept-graph config_47))))" "(let-values()" "(let-values(((in37_1) in_39)" @@ -52490,10 +52517,10 @@ static const char *startup_source = "(if(equal? tmp_50 '#\\=)" "(let-values()" "(let-values(((ph_1)(make-placeholder 'placeholder)))" -"(let-values(((ht_158)(get-graph-hash config_47)))" +"(let-values(((ht_157)(get-graph-hash config_47)))" "(let-values((()" "(begin" -"(if(hash-ref ht_158 v_28 #f)" +"(if(hash-ref ht_157 v_28 #f)" "(let-values()" "(let-values(((in50_0) in_39)" "((config51_0) config_47)" @@ -52525,7 +52552,7 @@ static const char *startup_source = "(list dispatch-c53_0 temp54_2 c55_0))))" "(void))" "(values))))" -"(let-values((()(begin(hash-set! ht_158 v_28 ph_1)(values))))" +"(let-values((()(begin(hash-set! ht_157 v_28 ph_1)(values))))" "(let-values(((result-v_0)" "(read-one_3 #f in_39(next-readtable config_47))))" "(begin" @@ -52567,9 +52594,9 @@ static const char *startup_source = "(let-values()" "(begin0" "(hash-ref" -"(let-values(((or-part_73)" +"(let-values(((or-part_74)" "(read-config-state-graph(read-config-st config_47))))" -"(if or-part_73 or-part_73 '#hash()))" +"(if or-part_74 or-part_74 '#hash()))" " v_28" "(lambda()" "(let-values(((in67_0) in_39)" @@ -52629,7 +52656,7 @@ static const char *startup_source = "(let-values(((or-part_140)(read-config-state-graph st_3)))" "(if or-part_140" " or-part_140" -"(let-values(((ht_159)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_159) ht_159))))))))" +"(let-values(((ht_158)(make-hasheqv)))(begin(set-read-config-state-graph! st_3 ht_158) ht_158))))))))" "(define-values" "(coerce-key)" "(lambda(key_89 config_8)" @@ -52681,7 +52708,7 @@ static const char *startup_source = "(let-values((()(begin(get-next!_0 '#\\s '#\\S)(values))))" "(let-values((()(begin(get-next!_0 '#\\h '#\\H)(values))))" "(let-values(((content_11 opener_4 mode_19)" -"((letrec-values(((loop_110)" +"((letrec-values(((loop_112)" "(lambda(mode_20)" "(begin" " 'loop" @@ -52870,7 +52897,7 @@ static const char *startup_source = "(begin" "(accum-string-add! accum-str_3 c_70)" "(get-next!_0 '#\\q '#\\Q)" -"(loop_110 'eq)))" +"(loop_112 'eq)))" "(if(if(equal? tmp_51 '#\\v)" " #t" "(equal? tmp_51 '#\\V))" @@ -52878,7 +52905,7 @@ static const char *startup_source = "(begin" "(accum-string-add! accum-str_3 c_70)" "(if(eq? mode_20 'eq)" -"(loop_110 'eqv)" +"(loop_112 'eqv)" "(let-values(((in41_0) in_39)" "((config42_0) config_47)" "((temp43_3)" @@ -52939,7 +52966,7 @@ static const char *startup_source = " config48_1" " temp50_3" "(list temp51_2)))))))))))))))))" -" loop_110)" +" loop_112)" " 'equal)))" "(let-values(((graph?_0)(if(read-config-state-graph(read-config-st config_47)) #t #f)))" "(wrap" @@ -53011,8 +53038,8 @@ static const char *startup_source = "((temp64_3)(indentation-unexpected-closer-message ec_8 c_80 config_49)))" "(reader-error12.1 #f #f #f #f #f #f #f #f in61_0 temp62_2 temp63_4(list temp64_3))))" "(let-values()" -"(let-values(((v_241)(read-one_8 c_80 in_42(keep-comment elem-config_1))))" -"(if(1/special-comment? v_241)" +"(let-values(((v_240)(read-one_8 c_80 in_42(keep-comment elem-config_1))))" +"(if(1/special-comment? v_240)" "(let-values()" "((make-read-one-key+value" " read-one_8" @@ -53083,7 +53110,7 @@ static const char *startup_source = " temp72_1" "(list temp73_4)))))" "(values))))" -"(let-values(((v_233)(read-one_8 #f in_42 elem-config_1)))" +"(let-values(((v_232)(read-one_8 #f in_42 elem-config_1)))" "(let-values(((closer-c_0)" "(read-char/skip-whitespace-and-comments #f read-one_8 in_42 config_49)))" "(let-values(((closer-line_0 closer-col_0 closer-pos_0)" @@ -53116,7 +53143,7 @@ static const char *startup_source = " temp75_1" " temp77_1" "(list temp78_2)))))" -"(cons(coerce-key k_41 elem-config_1) v_233))))))))))))))))))))))" +"(cons(coerce-key k_41 elem-config_1) v_232))))))))))))))))))))))" "(define-values" "(read-string5.1)" "(lambda(mode1_1 mode2_0 in3_0 config4_0)" @@ -53174,7 +53201,7 @@ static const char *startup_source = "(list mode17_0)))))))))" "(let-values((()" "(begin" -"((letrec-values(((loop_110)" +"((letrec-values(((loop_112)" "(lambda()" "(begin" " 'loop" @@ -53545,7 +53572,7 @@ static const char *startup_source = "(let-values(((pos_103)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_240)" +"(let-values(((v_239)" "(let-values(((in40_1)" " in_44)" "((config41_1)" @@ -53568,13 +53595,13 @@ static const char *startup_source = " accum-str42_0" " #t))))" "(begin" -"(if(integer? v_240)" +"(if(integer? v_239)" "(void)" "(let-values()" "(no-hex-digits" " in_44" " config_22" -" v_240" +" v_239" " escaping-c_0" " escaped-c_0)))" "(set-accum-string-count!" @@ -53583,7 +53610,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_240))))))" +" v_239))))))" "(if(unsafe-fx< index_3 15)" "(let-values()" "(let-values((()" @@ -53598,7 +53625,7 @@ static const char *startup_source = "(let-values(((pos_119)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_242)" +"(let-values(((v_241)" "(let-values(((in45_0)" " in_44)" "((config46_0)" @@ -53622,23 +53649,23 @@ static const char *startup_source = " #t))))" "(begin" "(if(integer?" -" v_242)" +" v_241)" "(void)" "(let-values()" "(no-hex-digits" " in_44" " config_22" -" v_242" +" v_241" " escaping-c_0" " escaped-c_0)))" -"(if(let-values(((or-part_248)" +"(if(let-values(((or-part_247)" "(<" -" v_242" +" v_241" " 55296)))" -"(if or-part_248" -" or-part_248" +"(if or-part_247" +" or-part_247" "(>" -" v_242" +" v_241" " 57343)))" "(let-values()" "(begin" @@ -53648,7 +53675,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_242))))" +" v_241))))" "(let-values()" "(let-values(((next!_0)" "(lambda()" @@ -53732,7 +53759,7 @@ static const char *startup_source = "(+" "(arithmetic-shift" "(-" -" v_242" +" v_241" " 55296)" " 10)" "(-" @@ -53838,7 +53865,7 @@ static const char *startup_source = "(let-values(((pos_120)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_243)" +"(let-values(((v_242)" "(let-values(((in72_0)" " in_44)" "((config73_0)" @@ -53862,26 +53889,26 @@ static const char *startup_source = " #t))))" "(begin" "(if(integer?" -" v_243)" +" v_242)" "(void)" "(let-values()" "(no-hex-digits" " in_44" " config_22" -" v_243" +" v_242" " escaping-c_0" " escaped-c_0)))" -"(if(if(let-values(((or-part_54)" +"(if(if(let-values(((or-part_55)" "(<" -" v_243" +" v_242" " 55296)))" -"(if or-part_54" -" or-part_54" +"(if or-part_55" +" or-part_55" "(>" -" v_243" +" v_242" " 57343)))" "(<=" -" v_243" +" v_242" " 1114111)" " #f)" "(let-values()" @@ -53892,7 +53919,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_243))))" +" v_242))))" "(let-values()" "(let-values(((in77_1)" " in_44)" @@ -53929,7 +53956,7 @@ static const char *startup_source = "(list" " escaping-c80_0" " temp81_3)))))))))))))))))" -"(loop_110)))))))" +"(loop_112)))))))" " (if (char=? '#\\\" c_49)" "(let-values() null)" "(let-values()" @@ -53959,8 +53986,8 @@ static const char *startup_source = "(list c88_0))))))" "(void))" "(accum-string-add! accum-str_4 c_49)" -"(loop_110)))))))))))" -" loop_110))" +"(loop_112)))))))))))" +" loop_112))" "(values))))" "(let-values(((str_29)" "(if(eq? mode_0 '|byte string|)" @@ -53979,7 +54006,7 @@ static const char *startup_source = "(let-values(((full-terminator_0)" "(cons" " '#\\newline" -"((letrec-values(((loop_111)" +"((letrec-values(((loop_113)" "(lambda()" "(begin" " 'loop" @@ -54028,11 +54055,11 @@ static const char *startup_source = "(list))))" "(if(char=? c_97 '#\\newline)" "(let-values() null)" -"(let-values()(cons c_97(loop_111)))))))))))" -" loop_111)))))" +"(let-values()(cons c_97(loop_113)))))))))))" +" loop_113)))))" "(let-values((()" "(begin" -"((letrec-values(((loop_112)" +"((letrec-values(((loop_114)" "(lambda(terminator_0 terminator-accum_0)" "(begin" " 'loop" @@ -54089,7 +54116,7 @@ static const char *startup_source = "(char=? c_98(car terminator_0))" " #f)" "(let-values()" -"(loop_112" +"(loop_114" "(cdr terminator_0)" "(cons(car terminator_0) terminator-accum_0)))" "(if(if(null? terminator_0)(char=? c_98 '#\\newline) #f)" @@ -54139,14 +54166,14 @@ static const char *startup_source = "(void))))" "(if(char=? c_98 '#\\newline)" "(let-values()" -"(loop_112" +"(loop_114" "(cdr full-terminator_0)" "(list '#\\newline)))" "(let-values()" "(begin" "(accum-string-add! accum-str_5 c_98)" -"(loop_112 full-terminator_0 null)))))))))))))))" -" loop_112)" +"(loop_114 full-terminator_0 null)))))))))))))))" +" loop_114)" "(cdr full-terminator_0)" " null)" "(values))))" @@ -54219,7 +54246,7 @@ static const char *startup_source = "(let-values(((in_51) in_4)" "((source_6)(read-config-source config_8)))" "(read-char-or-special in_51 special1.1 source_6))))" -"(let-values(((v_93)" +"(let-values(((v_92)" "(if(if(char? c3_6)(octal-digit? c3_6) #f)" "(let-values()" "(+" @@ -54228,7 +54255,7 @@ static const char *startup_source = "(digit->number c3_6)))" "(let-values() #f))))" "(begin" -"(if(if v_93(<= v_93 255) #f)" +"(if(if v_92(<= v_92 255) #f)" "(void)" "(let-values()" "(let-values(((in9_3) in_4)" @@ -54251,10 +54278,10 @@ static const char *startup_source = " config10_2" " temp12_6" "(list c13_2 c214_0 temp15_6)))))" -"(integer->char v_93))))))" +"(integer->char v_92))))))" "(let-values() c_100))))" -"(if(let-values(((or-part_82)(char=? c_100 '#\\u)))" -"(if or-part_82 or-part_82(char=? c_100 '#\\U)))" +"(if(let-values(((or-part_83)(char=? c_100 '#\\u)))" +"(if or-part_83 or-part_83(char=? c_100 '#\\U)))" "(let-values()" "(let-values(((accum-str_6)(accum-string-init! config_8)))" "(let-values(((v_33)" @@ -54276,8 +54303,8 @@ static const char *startup_source = " #t))))" "(if(integer? v_33)" "(let-values()" -"(if(if(let-values(((or-part_93)(< v_33 55296)))" -"(if or-part_93 or-part_93(> v_33 57343)))" +"(if(if(let-values(((or-part_94)(< v_33 55296)))" +"(if or-part_94 or-part_94(> v_33 57343)))" "(<= v_33 1114111)" " #f)" "(let-values()" @@ -54325,7 +54352,7 @@ static const char *startup_source = "(let-values((()(begin(consume-char in_4 next-c_4)(values))))" "(let-values((()" "(begin" -"((letrec-values(((loop_103)" +"((letrec-values(((loop_105)" "(lambda()" "(begin" " 'loop" @@ -54361,9 +54388,9 @@ static const char *startup_source = "(consume-char" " in_4" " next-c_5)" -"(loop_103)))" +"(loop_105)))" "(void)))))))" -" loop_103))" +" loop_105))" "(values))))" "(let-values(((name_67)" "(string-foldcase" @@ -54443,7 +54470,7 @@ static const char *startup_source = "(let-values(((accum-str_8)(accum-string-init! config_22)))" "(begin" "(accum-string-add! accum-str_8 init-c_1)" -"((letrec-values(((loop_113)" +"((letrec-values(((loop_115)" "(lambda(chars_1)" "(begin" " 'loop" @@ -54513,7 +54540,7 @@ static const char *startup_source = "(begin" "(consume-char in_44 c_37)" "(accum-string-add! accum-str_8 c_37)" -"(loop_113(cdr chars_1))))" +"(loop_115(cdr chars_1))))" "(let-values()" "(begin" "(consume-char/special in_44 config_22 c_37)" @@ -54538,7 +54565,7 @@ static const char *startup_source = " config15_2" " temp16_7" "(list temp17_3)))))))))))))" -" loop_113)" +" loop_115)" " chars_0)" "(wrap" " val_80" @@ -54884,7 +54911,7 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"((letrec-values(((loop_114)" +"((letrec-values(((loop_116)" "(lambda()" "(begin" " 'loop" @@ -54931,16 +54958,16 @@ static const char *startup_source = "(list extend-str96_0)))))" "(if(char-whitespace? c_9)" "(let-values()(void))" -"(if(let-values(((or-part_170)" +"(if(let-values(((or-part_169)" "(char-lang-nonsep? c_9)))" -"(if or-part_170" -" or-part_170" +"(if or-part_169" +" or-part_169" "(char=? '#\\/ c_9)))" "(let-values()" "(begin" "(consume-char in_58 c_9)" "(accum-string-add! accum-str_10 c_9)" -"(loop_114)))" +"(loop_116)))" "(let-values()" "(begin" "(consume-char in_58 c_9)" @@ -54968,7 +54995,7 @@ static const char *startup_source = "(list" " extend-str100_0" " c101_0))))))))))))))" -" loop_114))" +" loop_116))" "(values))))" "(let-values(((lang-str_0)" "(let-values(((accum-str102_0) accum-str_10)((config103_0) config_54))" @@ -55076,17 +55103,17 @@ static const char *startup_source = "(lambda(c_103)" "(begin" "(if(<(char->integer c_103) 128)" -"(let-values(((or-part_266)(char-alphabetic? c_103)))" -"(if or-part_266" -" or-part_266" -"(let-values(((or-part_352)(char-numeric? c_103)))" -"(if or-part_352" -" or-part_352" -"(let-values(((or-part_296)(char=? '#\\- c_103)))" -"(if or-part_296" -" or-part_296" -"(let-values(((or-part_171)(char=? '#\\+ c_103)))" -"(if or-part_171 or-part_171(char=? '#\\_ c_103)))))))))" +"(let-values(((or-part_264)(char-alphabetic? c_103)))" +"(if or-part_264" +" or-part_264" +"(let-values(((or-part_350)(char-numeric? c_103)))" +"(if or-part_350" +" or-part_350" +"(let-values(((or-part_293)(char=? '#\\- c_103)))" +"(if or-part_293" +" or-part_293" +"(let-values(((or-part_170)(char=? '#\\+ c_103)))" +"(if or-part_170 or-part_170(char=? '#\\_ c_103)))))))))" " #f))))" "(define-values" "(read-extension-prefix)" @@ -55181,7 +55208,7 @@ static const char *startup_source = "(let-values((()(begin(force-parameters! config_56)(values))))" "(let-values(((guard_0)(1/current-reader-guard)))" "(let-values(((mod-path_27)" -"(let-values(((or-part_60)" +"(let-values(((or-part_61)" "(if try-first-mod-path_0" "(let-values(((mod-path_28)(guard_0 try-first-mod-path_0)))" "(if((read-config-module-declared? config_56)" @@ -55189,7 +55216,7 @@ static const char *startup_source = " mod-path_28" " #f))" " #f)))" -"(if or-part_60 or-part_60(guard_0 mod-path-datum_0)))))" +"(if or-part_61 or-part_61(guard_0 mod-path-datum_0)))))" "(let-values(((for-syntax?_8)(read-config-for-syntax? config_56)))" "(let-values(((dynamic-require_2)(read-config-dynamic-require config_56)))" "(let-values(((no-value_0)(gensym)))" @@ -55334,10 +55361,10 @@ static const char *startup_source = "(lambda(in_51 config_57 prefix_7 c_49)" "(begin" "(let-values(((add-prefix_0)" -"(lambda(s_75)" +"(lambda(s_77)" "(begin" " 'add-prefix" -" (if (string=? prefix_7 \"\") (format \"`~a` followed by ~a\" prefix_7 s_75) s_75)))))" +" (if (string=? prefix_7 \"\") (format \"`~a` followed by ~a\" prefix_7 s_77) s_77)))))" "(let-values(((in11_2) in_51)" "((config12_4) config_57)" "((c13_3) c_49)" @@ -55459,26 +55486,26 @@ static const char *startup_source = " #t" " wrap63_0" " #t)))))))" -"(let-values(((v_244)(read-one init-c_15 in_12 config_58)))" -"(if(if(let-values(((or-part_300)(not recursive?_0)))" -"(if or-part_300 or-part_300 local-graph?_1))" +"(let-values(((v_243)(read-one init-c_15 in_12 config_58)))" +"(if(if(let-values(((or-part_297)(not recursive?_0)))" +"(if or-part_297 or-part_297 local-graph?_1))" "(read-config-state-graph(read-config-st config_58))" " #f)" "(let-values()" "(catch-and-reraise-as-reader/proc" " #f" " config_58" -"(lambda()(make-reader-graph v_244))))" +"(lambda()(make-reader-graph v_243))))" "(if(if recursive?_0" "(if(not local-graph?_1)" "(if(not for-syntax?_9)" -"(if(not(eof-object? v_244))(not(1/special-comment? v_244)) #f)" +"(if(not(eof-object? v_243))(not(1/special-comment? v_243)) #f)" " #f)" " #f)" " #f)" "(let-values()" -"(begin(get-graph-hash config_58)(make-placeholder v_244)))" -"(let-values() v_244))))))))))))))))))))))))" +"(begin(get-graph-hash config_58)(make-placeholder v_243)))" +"(let-values() v_243))))))))))))))))))))))))" "(define-values" "(read-language49.1)" "(lambda(coerce38_0" @@ -55553,12 +55580,12 @@ static const char *startup_source = "(if(check-parameter 1/read-cdot config_61)" "(let-values()" "(let-values(((line_11 col_10 pos_122)(port-next-location in_64)))" -"(let-values(((v_245)(read-undotted init-c_16 in_64 config_61)))" -"(if(1/special-comment? v_245)" -"(let-values() v_245)" +"(let-values(((v_244)(read-undotted init-c_16 in_64 config_61)))" +"(if(1/special-comment? v_244)" +"(let-values() v_244)" "(let-values()" -"((letrec-values(((loop_115)" -"(lambda(v_246)" +"((letrec-values(((loop_117)" +"(lambda(v_245)" "(begin" " 'loop" "(let-values(((c_105)" @@ -55574,9 +55601,9 @@ static const char *startup_source = "(if(eq? c_106 'special)(special1.1 'special) c_106)))))" "(let-values(((ec_9)(effective-char c_105 config_61)))" "(if(not(char? ec_9))" -"(let-values() v_246)" +"(let-values() v_245)" "(if(char-whitespace? ec_9)" -"(let-values()(begin(consume-char in_64 c_105)(loop_115 v_246)))" +"(let-values()(begin(consume-char in_64 c_105)(loop_117 v_245)))" "(if(char=? ec_9 '#\\.)" "(let-values()" "(let-values(((dot-line_2 dot-col_2 dot-pos_5)" @@ -55594,15 +55621,15 @@ static const char *startup_source = " '#\\.)))" "(let-values(((post-v_0)" "(read-undotted #f in_64 config_61)))" -"(loop_115" +"(loop_117" "(wrap" -"(list cdot_0 v_246 post-v_0)" +"(list cdot_0 v_245 post-v_0)" " in_64" "(reading-at config_61 line_11 col_10 pos_122)" " '#\\.)))))))" -"(let-values() v_246))))))))))" -" loop_115)" -" v_245))))))" +"(let-values() v_245))))))))))" +" loop_117)" +" v_244))))))" "(void))))))" "(define-values" "(read-undotted)" @@ -55614,10 +55641,10 @@ static const char *startup_source = "(let-values() eof)" "(if(not(char? c_107))" "(let-values()" -"(let-values(((v_247)(special-value c_107)))" -"(if(1/special-comment? v_247)" -"(let-values()(if(read-config-keep-comment? config_56) v_247(read-undotted #f in_62 config_56)))" -"(let-values()(coerce v_247 in_62(reading-at config_56 line_12 col_11 pos_123))))))" +"(let-values(((v_246)(special-value c_107)))" +"(if(1/special-comment? v_246)" +"(let-values()(if(read-config-keep-comment? config_56) v_246(read-undotted #f in_62 config_56)))" +"(let-values()(coerce v_246 in_62(reading-at config_56 line_12 col_11 pos_123))))))" "(let-values(((c2_8)(readtable-handler config_56 c_107)))" "(if c2_8" "((lambda(handler_3)" @@ -55691,14 +55718,14 @@ static const char *startup_source = "(if(unsafe-fx< index_4 2)" "(if(unsafe-fx< index_4 1)" "(let-values()" -"(let-values(((v_248)" +"(let-values(((v_247)" "(let-values(((c79_1) c_107)" "((in80_1) in_62)" "((r-config81_0) r-config_0)" "((temp82_5)" -"(if(let-values(((or-part_318)(eq? c_107 ec_10)))" -"(if or-part_318" -" or-part_318" +"(if(let-values(((or-part_316)(eq? c_107 ec_10)))" +"(if or-part_316" +" or-part_316" "(if(<(char->integer ec_10) 128)" "(char-numeric? ec_10)" " #f)))" @@ -55712,7 +55739,7 @@ static const char *startup_source = " c79_1" " in80_1" " r-config81_0))))" -"(retry-special-comment v_248 in_62 config_56)))" +"(retry-special-comment v_247 in_62 config_56)))" "(let-values()(read-dispatch c_107 in_62 r-config_0 config_56)))" "(if(unsafe-fx< index_4 3)" " (let-values () (read-quote read-one 'quote \"quoting \\\"'\\\"\" c_107 in_62 r-config_0))" @@ -55849,10 +55876,10 @@ static const char *startup_source = "(list temp101_3))))" "(if(unsafe-fx< index_4 8)" "(let-values()" -"(if(let-values(((or-part_353)" +"(if(let-values(((or-part_351)" "(check-parameter 1/read-square-bracket-as-paren config_56)))" -"(if or-part_353" -" or-part_353" +"(if or-part_351" +" or-part_351" "(check-parameter 1/read-square-bracket-with-tag config_56)))" "(let-values()" "(wrap" @@ -55902,10 +55929,10 @@ static const char *startup_source = " temp111_0" "(list c112_0))))))" "(let-values()" -"(if(let-values(((or-part_354)" +"(if(let-values(((or-part_352)" "(check-parameter 1/read-square-bracket-as-paren config_56)))" -"(if or-part_354" -" or-part_354" +"(if or-part_352" +" or-part_352" "(check-parameter 1/read-square-bracket-with-tag config_56)))" "(let-values()" "(let-values(((in113_1) in_62)" @@ -55949,10 +55976,10 @@ static const char *startup_source = "(list c120_0))))))))" "(if(unsafe-fx< index_4 10)" "(let-values()" -"(if(let-values(((or-part_355)" +"(if(let-values(((or-part_353)" "(check-parameter 1/read-curly-brace-as-paren config_56)))" -"(if or-part_355" -" or-part_355" +"(if or-part_353" +" or-part_353" "(check-parameter 1/read-curly-brace-with-tag config_56)))" "(let-values()" "(wrap" @@ -56003,10 +56030,10 @@ static const char *startup_source = "(list c131_0))))))" "(if(unsafe-fx< index_4 11)" "(let-values()" -"(if(let-values(((or-part_356)" +"(if(let-values(((or-part_354)" "(check-parameter 1/read-curly-brace-as-paren config_56)))" -"(if or-part_356" -" or-part_356" +"(if or-part_354" +" or-part_354" "(check-parameter 1/read-curly-brace-with-tag config_56)))" "(let-values()" "(let-values(((in132_0) in_62)" @@ -56094,9 +56121,9 @@ static const char *startup_source = "(let-values(((line_13)(read-config-line config_62)))" "(let-values(((col_12)(read-config-col config_62)))" "(let-values(((pos_124)(read-config-pos config_62)))" -"(let-values(((v_249)" +"(let-values(((v_248)" "(readtable-apply handler_4 c_109 in_67 config_62 line_13 col_12 pos_124)))" -"(retry-special-comment v_249 in_67 orig-config_0))))))" +"(retry-special-comment v_248 in_67 orig-config_0))))))" " c3_9)" "(let-values()" "(let-values()" @@ -56432,8 +56459,8 @@ static const char *startup_source = "(if(eq? c_113 'special)(special1.1 'special) c_113)))))" "(if(char-delimiter? c2_13 config_62)" "(let-values()(wrap #f in_67 config_62 c_109))" -"(if(let-values(((or-part_341)(char=? c2_13 '#\\x)))" -"(if or-part_341 or-part_341(char=? c2_13 '#\\l)))" +"(if(let-values(((or-part_339)(char=? c2_13 '#\\x)))" +"(if or-part_339 or-part_339(char=? c2_13 '#\\l)))" "(let-values()" "(read-fixnum-or-flonum-vector" " read-one" @@ -56705,11 +56732,11 @@ static const char *startup_source = "(list dispatch-c279_0)))))))))))))))))))))))))" "(define-values" "(retry-special-comment)" -"(lambda(v_250 in_76 config_63)" +"(lambda(v_249 in_76 config_63)" "(begin" -"(if(1/special-comment? v_250)" -"(let-values()(if(read-config-keep-comment? config_63) v_250(read-undotted #f in_76 config_63)))" -"(let-values() v_250)))))" +"(if(1/special-comment? v_249)" +"(let-values()(if(read-config-keep-comment? config_63) v_249(read-undotted #f in_76 config_63)))" +"(let-values() v_249)))))" "(define-values" "(1/module-declared?)" "(let-values(((module-declared?4_0)" @@ -56830,7 +56857,7 @@ static const char *startup_source = "(module->" "(lambda(m_28)" "(let-values(((b/p_3)(hash-ref(module-provides m_28) sym_83 #f)))" -"(let-values(((or-part_32)(not b/p_3)))(if or-part_32 or-part_32(provided-as-protected? b/p_3)))))" +"(let-values(((or-part_33)(not b/p_3)))(if or-part_33 or-part_33(provided-as-protected? b/p_3)))))" " 'module-provide-protected?" " mod_17))))" "(define-values" @@ -56997,19 +57024,19 @@ static const char *startup_source = "(namespace->module/complain)" "(lambda(who_33 ns_116 name_71)" "(begin" -"(let-values(((or-part_212)(namespace->module ns_116 name_71)))" -"(if or-part_212" -" or-part_212" +"(let-values(((or-part_211)(namespace->module ns_116 name_71)))" +"(if or-part_211" +" or-part_211" " (raise-arguments-error who_33 \"unknown module in the current namespace\" \"name\" name_71))))))" "(define-values" "(module-reference?)" "(lambda(mod_24)" "(begin" -"(let-values(((or-part_245)(1/module-path? mod_24)))" -"(if or-part_245" -" or-part_245" -"(let-values(((or-part_357)(1/module-path-index? mod_24)))" -"(if or-part_357 or-part_357(1/resolved-module-path? mod_24))))))))" +"(let-values(((or-part_244)(1/module-path? mod_24)))" +"(if or-part_244" +" or-part_244" +"(let-values(((or-part_355)(1/module-path-index? mod_24)))" +"(if or-part_355 or-part_355(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)" @@ -57175,8 +57202,8 @@ static const char *startup_source = "(read-to-syntax)" "(lambda(s-exp_4 srcloc_11 rep_1)" "(begin" -"(let-values(((the-struct_85) empty-syntax))" -"(if(syntax?$1 the-struct_85)" +"(let-values(((the-struct_84) empty-syntax))" +"(if(syntax?$1 the-struct_84)" "(let-values(((content63_0)(datum-intern-literal s-exp_4))" "((srcloc64_0) srcloc_11)" "((props65_0)" @@ -57188,14 +57215,14 @@ static const char *startup_source = "(let-values() original-props))))))" "(syntax1.1" " content63_0" -"(syntax-scopes the-struct_85)" -"(syntax-shifted-multi-scopes the-struct_85)" -"(syntax-scope-propagations+tamper the-struct_85)" -"(syntax-mpi-shifts the-struct_85)" +"(syntax-scopes the-struct_84)" +"(syntax-shifted-multi-scopes the-struct_84)" +"(syntax-scope-propagations+tamper the-struct_84)" +"(syntax-mpi-shifts the-struct_84)" " srcloc64_0" " props65_0" -"(syntax-inspector the-struct_85)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_85))))))" +"(syntax-inspector the-struct_84)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_84))))))" "(define-values(original-props)(syntax-props(syntax-property$1 empty-syntax original-property-sym #t)))" "(define-values" "(original-square-props)" @@ -57206,17 +57233,17 @@ 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_251 srcloc_12)" +"(lambda(for-syntax?_12 v_250 srcloc_12)" "(begin" "(if(not for-syntax?_12)" -"(let-values()(if(syntax?$1 v_251)(let-values()(syntax->datum$1 v_251))(let-values() v_251)))" -"(if(syntax?$1 v_251)" -"(let-values() v_251)" -"(if(list? v_251)" +"(let-values()(if(syntax?$1 v_250)(let-values()(syntax->datum$1 v_250))(let-values() v_250)))" +"(if(syntax?$1 v_250)" +"(let-values() v_250)" +"(if(list? v_250)" "(let-values()" "(read-to-syntax" "(reverse$1" -"(let-values(((lst_270) v_251))" +"(let-values(((lst_270) v_250))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" @@ -57244,13 +57271,13 @@ static const char *startup_source = " lst_270))))" " srcloc_12" " #f))" -"(if(pair? v_251)" +"(if(pair? v_250)" "(let-values()" "(read-to-syntax" -"(cons(read-coerce #t(car v_251) srcloc_12)(read-coerce #t(cdr v_251) srcloc_12))" +"(cons(read-coerce #t(car v_250) srcloc_12)(read-coerce #t(cdr v_250) srcloc_12))" " srcloc_12" " #f))" -"(let-values()(read-to-syntax v_251 srcloc_12 #f)))))))))" +"(let-values()(read-to-syntax v_250 srcloc_12 #f)))))))))" "(define-values" "(read-coerce-key)" "(lambda(for-syntax?_13 k_42)" @@ -57346,15 +57373,15 @@ static const char *startup_source = "(let-values()" " (raise-argument-error 'read-syntax/recursive \"input-port?\" in_31)))" "(if((lambda(x_90)" -"(let-values(((or-part_76)(not x_90)))" -"(if or-part_76 or-part_76(char? x_90))))" +"(let-values(((or-part_77)(not x_90)))" +"(if or-part_77 or-part_77(char? x_90))))" " start_61)" "(void)" "(let-values()" " (raise-argument-error 'read-syntax/recursive \"(or/c char? #f)\" start_61)))" "(if((lambda(x_91)" -"(let-values(((or-part_78)(not x_91)))" -"(if or-part_78 or-part_78(1/readtable? x_91))))" +"(let-values(((or-part_79)(not x_91)))" +"(if or-part_79 or-part_79(1/readtable? x_91))))" " readtable_7)" "(void)" "(let-values()" @@ -57406,14 +57433,14 @@ static const char *startup_source = "(void)" " (let-values () (raise-argument-error 'read/recursive \"input-port?\" in_20)))" "(if((lambda(x_19)" -"(let-values(((or-part_300)(not x_19)))" -"(if or-part_300 or-part_300(char? x_19))))" +"(let-values(((or-part_297)(not x_19)))" +"(if or-part_297 or-part_297(char? x_19))))" " start_38)" "(void)" " (let-values () (raise-argument-error 'read/recursive \"(or/c char? #f)\" start_38)))" "(if((lambda(x_23)" -"(let-values(((or-part_276)(not x_23)))" -"(if or-part_276 or-part_276(1/readtable? x_23))))" +"(let-values(((or-part_273)(not x_23)))" +"(if or-part_273 or-part_273(1/readtable? x_23))))" " readtable_9)" "(void)" "(let-values()" @@ -57476,15 +57503,15 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_78)))" "((letrec-values(((for-loop_96)" -"(lambda(table_217 lst_79)" +"(lambda(table_216 lst_79)" "(begin" " 'for-loop" "(if(pair? lst_79)" "(let-values(((sym_60)(unsafe-car lst_79))" "((rest_36)(unsafe-cdr lst_79)))" -"(let-values(((table_223)" -"(let-values(((table_178) table_217))" -"(let-values(((table_179)" +"(let-values(((table_222)" +"(let-values(((table_177) table_216))" +"(let-values(((table_178)" "(let-values()" "(let-values(((key_34" " val_81)" @@ -57530,14 +57557,14 @@ static const char *startup_source = " #f)" " binding_27))))))" "(hash-set" -" table_178" +" table_177" " key_34" " val_81)))))" -"(values table_179)))))" +"(values table_178)))))" "(if(not #f)" -"(for-loop_96 table_223 rest_36)" -" table_223)))" -" table_217)))))" +"(for-loop_96 table_222 rest_36)" +" table_222)))" +" table_216)))))" " for-loop_96)" " '#hash()" " lst_78)))))" @@ -57684,13 +57711,13 @@ static const char *startup_source = "(1/current-module-path-for-load)" "(make-parameter" " #f" -"(lambda(v_182)" +"(lambda(v_181)" "(begin" -"(if(let-values(((or-part_68)(not v_182)))" -"(if or-part_68" -" or-part_68" -"(let-values(((or-part_69)(1/module-path? v_182)))" -"(if or-part_69 or-part_69(if(syntax?$1 v_182)(1/module-path?(syntax->datum$1 v_182)) #f)))))" +"(if(let-values(((or-part_69)(not v_181)))" +"(if or-part_69" +" or-part_69" +"(let-values(((or-part_70)(1/module-path? v_181)))" +"(if or-part_70 or-part_70(if(syntax?$1 v_181)(1/module-path?(syntax->datum$1 v_181)) #f)))))" "(void)" "(let-values()" "(raise-argument-error" @@ -57699,8 +57726,8 @@ static const char *startup_source = " \"(or/c module-path?\"" " \" (and/c syntax? (lambda (stx) (module-path? (syntax->datum stx))))\"" " \" #f)\")" -" v_182)))" -" v_182))))" +" v_181)))" +" v_181))))" "(define-values" "(maybe-raise-missing-module)" "(lambda(name_73 filename_0 pre_0 rel_0 post_0 errstr_0)" @@ -57784,22 +57811,22 @@ static const char *startup_source = " 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_163 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_163 context_11 stop-ids_4 intdefs1_1 #t)))))" +"((s_172 context_1 stop-ids_3)(begin 'local-expand(local-expand6_0 s_172 context_1 stop-ids_3 #f #f)))" +"((s_165 context_11 stop-ids_4 intdefs1_1)(local-expand6_0 s_165 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_75) s12_2))" +"(let-values(((s_77) 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_4) 'local-expand)" -"((s65_0) s_75)" +"((s65_0) s_77)" "((context66_0) context_12)" "((stop-ids67_0) stop-ids_5)" "((intdefs68_0) intdefs_4)" @@ -57825,25 +57852,25 @@ static const char *startup_source = " intdefs68_0" " #t))))))))))))" "(case-lambda" -"((s_80 context_13 stop-ids_6)" -"(begin 'local-expand/capture-lifts(local-expand/capture-lifts15_0 s_80 context_13 stop-ids_6 #f #f #f #f)))" +"((s_82 context_13 stop-ids_6)" +"(begin 'local-expand/capture-lifts(local-expand/capture-lifts15_0 s_82 context_13 stop-ids_6 #f #f #f #f)))" "((s_42 context_14 stop-ids_7 intdefs_5 lift-key9_1)" "(local-expand/capture-lifts15_0 s_42 context_14 stop-ids_7 intdefs_5 lift-key9_1 #t #t))" -"((s_181 context_15 stop-ids_8 intdefs8_1)" -"(local-expand/capture-lifts15_0 s_181 context_15 stop-ids_8 intdefs8_1 #f #t #f)))))" +"((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)))))" "(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_301) 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_301)" +"((s72_0) s_305)" "((context73_0) context_16)" "((stop-ids74_0) stop-ids_9)" "((intdefs75_0) intdefs_6)" @@ -57868,10 +57895,10 @@ static const char *startup_source = " intdefs75_0" " #t)))))))))))" "(case-lambda" -"((s_458 context_17 stop-ids_10)" -"(begin 'local-transformer-expand(local-transformer-expand22_0 s_458 context_17 stop-ids_10 #f #f)))" -"((s_459 context_18 stop-ids_11 intdefs17_1)" -"(local-transformer-expand22_0 s_459 context_18 stop-ids_11 intdefs17_1 #t)))))" +"((s_463 context_17 stop-ids_10)" +"(begin 'local-transformer-expand(local-transformer-expand22_0 s_463 context_17 stop-ids_10 #f #f)))" +"((s_464 context_18 stop-ids_11 intdefs17_1)" +"(local-transformer-expand22_0 s_464 context_18 stop-ids_11 intdefs17_1 #t)))))" "(define-values" "(1/local-transformer-expand/capture-lifts)" "(let-values(((local-transformer-expand/capture-lifts31_0)" @@ -57912,26 +57939,26 @@ static const char *startup_source = " intdefs81_0" " #t))))))))))))" "(case-lambda" -"((s_460 context_20 stop-ids_13)" +"((s_465 context_20 stop-ids_13)" "(begin" " 'local-transformer-expand/capture-lifts" -"(local-transformer-expand/capture-lifts31_0 s_460 context_20 stop-ids_13 #f #f #f #f)))" -"((s_397 context_21 stop-ids_14 intdefs_8 lift-key25_1)" -"(local-transformer-expand/capture-lifts31_0 s_397 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" -"((s_85 context_22 stop-ids_15 intdefs24_1)" -"(local-transformer-expand/capture-lifts31_0 s_85 context_22 stop-ids_15 intdefs24_1 #f #t #f)))))" +"(local-transformer-expand/capture-lifts31_0 s_465 context_20 stop-ids_13 #f #f #f #f)))" +"((s_403 context_21 stop-ids_14 intdefs_8 lift-key25_1)" +"(local-transformer-expand/capture-lifts31_0 s_403 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" +"((s_87 context_22 stop-ids_15 intdefs24_1)" +"(local-transformer-expand/capture-lifts31_0 s_87 context_22 stop-ids_15 intdefs24_1 #f #t #f)))))" "(define-values" "(1/syntax-local-expand-expression)" "(let-values(((syntax-local-expand-expression36_0)" "(lambda(s35_1 opaque-only?33_0 opaque-only?34_0)" "(begin" " 'syntax-local-expand-expression36" -"(let-values(((s_461) s35_1))" +"(let-values(((s_466) s35_1))" "(let-values(((opaque-only?_0)(if opaque-only?34_0 opaque-only?33_0 #f)))" "(let-values()" "(let-values(((exp-s_12)" "(let-values(((temp85_3) 'syntax-local-expand-expression)" -"((s86_1) s_461)" +"((s86_1) s_466)" "((temp87_4) 'expression)" "((null88_0) null)" "((temp89_4) #f)" @@ -58014,8 +58041,8 @@ static const char *startup_source = "(let-values(((lift-key_6)" "(if lift-key47_1" " lift-key41_0" -"(if(let-values(((or-part_358) capture-lifts?_0))" -"(if or-part_358 or-part_358 as-transformer?_5))" +"(if(let-values(((or-part_356) capture-lifts?_0))" +"(if or-part_356 or-part_356 as-transformer?_5))" "(generate-lift-key)" " #f))))" "(let-values(((track-to-be-defined?_1)" @@ -58023,12 +58050,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_384)(datum->syntax$1 #f s-or-s-exp_0)))" +"(let-values(((s_389)(datum->syntax$1 #f s-or-s-exp_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_166)(list? context_23)))" -"(if or-part_166" -" or-part_166" +"(if(let-values(((or-part_165)(list? context_23)))" +"(if or-part_165" +" or-part_165" "(memq" " context_23" "(if as-transformer?_5" @@ -58045,9 +58072,9 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_167)(not stop-ids_16)))" -"(if or-part_167" -" or-part_167" +"(if(let-values(((or-part_166)(not stop-ids_16)))" +"(if or-part_166" +" or-part_166" "(if(list? stop-ids_16)" "(andmap2 identifier? stop-ids_16)" " #f)))" @@ -58060,13 +58087,13 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_168)(not intdefs_9)))" +"(if(let-values(((or-part_167)(not intdefs_9)))" +"(if or-part_167" +" or-part_167" +"(let-values(((or-part_168)" +"(1/internal-definition-context? intdefs_9)))" "(if or-part_168" " or-part_168" -"(let-values(((or-part_169)" -"(1/internal-definition-context? intdefs_9)))" -"(if or-part_169" -" or-part_169" "(if(list? intdefs_9)" "(andmap2 1/internal-definition-context? intdefs_9)" " #f)))))" @@ -58121,12 +58148,12 @@ static const char *startup_source = "(call-expand-observe" " obs_59" " 'enter-local" -" s_384)))" +" s_389)))" "(void)))" "(values))))" "(let-values(((input-s_1)" "(let-values(((temp101_4)" -"(flip-introduction-scopes s_384 ctx_75))" +"(flip-introduction-scopes s_389 ctx_75))" "((intdefs102_0) intdefs_9))" "(add-intdef-scopes21.1" " #f" @@ -58314,7 +58341,7 @@ static const char *startup_source = "(lambda(s5_3 maybe-insp1_0 use-mode?2_0 maybe-insp3_0 use-mode?4_0)" "(begin" " 'syntax-arm6" -"(let-values(((s_169) s5_3))" +"(let-values(((s_171) 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()" @@ -58322,14 +58349,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_169)" +"(if(syntax?$1 s_171)" "(void)" -" (let-values () (raise-argument-error 'syntax-arm \"syntax?\" s_169)))" +" (let-values () (raise-argument-error 'syntax-arm \"syntax?\" s_171)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_211)(not maybe-insp_0)))" -"(if or-part_211 or-part_211(inspector? maybe-insp_0)))" +"(if(let-values(((or-part_210)(not maybe-insp_0)))" +"(if or-part_210 or-part_210(inspector? maybe-insp_0)))" "(void)" "(let-values()" "(raise-argument-error" @@ -58341,83 +58368,83 @@ static const char *startup_source = "(if use-mode?_0" "(let-values()" "(taint-dispatch" -" s_169" -"(lambda(s_462)(syntax-arm$1 s_462 insp_21))" +" s_171" +"(lambda(s_467)(syntax-arm$1 s_467 insp_21))" "(1/syntax-local-phase-level)))" -"(let-values()(syntax-arm$1 s_169 insp_21))))))))))))))))" +"(let-values()(syntax-arm$1 s_171 insp_21))))))))))))))))" "(case-lambda" -"((s_170)(begin 'syntax-arm(syntax-arm6_0 s_170 #f #f #f #f)))" -"((s_171 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_171 maybe-insp_1 use-mode?2_1 #t #t))" -"((s_419 maybe-insp1_1)(syntax-arm6_0 s_419 maybe-insp1_1 #f #t #f)))))" +"((s_172)(begin 'syntax-arm(syntax-arm6_0 s_172 #f #f #f #f)))" +"((s_173 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_173 maybe-insp_1 use-mode?2_1 #t #t))" +"((s_424 maybe-insp1_1)(syntax-arm6_0 s_424 maybe-insp1_1 #f #t #f)))))" "(define-values" "(1/syntax-disarm)" -"(lambda(s_463 maybe-insp_2)" +"(lambda(s_468 maybe-insp_2)" "(begin" " 'syntax-disarm" "(let-values()" "(let-values()" "(let-values((()" "(begin" -"(if(syntax?$1 s_463)" +"(if(syntax?$1 s_468)" "(void)" -" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_463)))" +" (let-values () (raise-argument-error 'syntax-disarm \"syntax?\" s_468)))" "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_359)(not maybe-insp_2)))" -"(if or-part_359 or-part_359(inspector? maybe-insp_2)))" +"(if(let-values(((or-part_357)(not maybe-insp_2)))" +"(if or-part_357 or-part_357(inspector? maybe-insp_2)))" "(void)" " (let-values () (raise-argument-error 'syntax-disarm \"(or/c inspector? #f)\" maybe-insp_2)))" "(values))))" -"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_463 insp_22)))))))))" +"(let-values(((insp_22)(inspector-for-taint maybe-insp_2)))(syntax-disarm$1 s_468 insp_22)))))))))" "(define-values" "(1/syntax-rearm)" "(let-values(((syntax-rearm12_0)" "(lambda(s10_0 from-s11_0 use-mode?8_0 use-mode?9_0)" "(begin" " 'syntax-rearm12" -"(let-values(((s_418) s10_0))" +"(let-values(((s_423) s10_0))" "(let-values(((from-s_2) from-s11_0))" "(let-values(((use-mode?_1)(if use-mode?9_0 use-mode?8_0 #f)))" "(let-values()" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_418)" +"(if(syntax?$1 s_423)" "(void)" -" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_418)))" +" (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" s_423)))" "(if(syntax?$1 from-s_2)" "(void)" " (let-values () (raise-argument-error 'syntax-rearm \"syntax?\" from-s_2)))" "(if use-mode?_1" "(let-values()" "(taint-dispatch" -" s_418" -"(lambda(s_464)(syntax-rearm$1 s_464 from-s_2))" +" s_423" +"(lambda(s_469)(syntax-rearm$1 s_469 from-s_2))" "(1/syntax-local-phase-level)))" -"(let-values()(syntax-rearm$1 s_418 from-s_2))))))))))))))" +"(let-values()(syntax-rearm$1 s_423 from-s_2))))))))))))))" "(case-lambda" -"((s_415 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_415 from-s_3 #f #f)))" +"((s_420 from-s_3)(begin 'syntax-rearm(syntax-rearm12_0 s_420 from-s_3 #f #f)))" "((s_5 from-s_4 use-mode?8_1)(syntax-rearm12_0 s_5 from-s_4 use-mode?8_1 #t)))))" "(define-values" "(1/syntax-taint)" -"(lambda(s_77)" +"(lambda(s_79)" "(begin" " 'syntax-taint" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_77) (void) (let-values () (raise-argument-error 'syntax-taint \"syntax?\" s_77)))" -"(syntax-taint$1 s_77)))))))" +" (if (syntax?$1 s_79) (void) (let-values () (raise-argument-error 'syntax-taint \"syntax?\" s_79)))" +"(syntax-taint$1 s_79)))))))" "(define-values" "(inspector-for-taint)" "(lambda(maybe-insp_3)" "(begin" -"(let-values(((or-part_360) maybe-insp_3))" -"(if or-part_360" -" or-part_360" -"(let-values(((or-part_93)(current-module-code-inspector)))" -"(if or-part_93 or-part_93(current-code-inspector))))))))" +"(let-values(((or-part_358) maybe-insp_3))" +"(if or-part_358" +" or-part_358" +"(let-values(((or-part_94)(current-module-code-inspector)))" +"(if or-part_94 or-part_94(current-code-inspector))))))))" "(define-values" "(1/variable-reference->empty-namespace)" "(lambda(vr_0)" @@ -58559,9 +58586,9 @@ static const char *startup_source = " \"variable reference\"" " vr_8))" "(void))" -"(let-values(((or-part_74)(namespace-declaration-inspector(variable-reference->namespace* vr_8))))" -"(if or-part_74" -" or-part_74" +"(let-values(((or-part_75)(namespace-declaration-inspector(variable-reference->namespace* vr_8))))" +"(if or-part_75" +" or-part_75" "(raise-arguments-error" " 'variable-reference->module-declaration-inspector" " \"given variable reference is not from a module\")))))))))" @@ -58929,12 +58956,12 @@ static const char *startup_source = "(hash-iterate-first ht_25))))" "(values))))" "(let-values()" -"(let-values(((ht_160)" -"(let-values(((ht_161) prims_0))" +"(let-values(((ht_159)" +"(let-values(((ht_160) prims_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_161)))" +"(let-values()(check-in-hash ht_160)))" "((letrec-values(((for-loop_266)" "(lambda(table_11 i_183)" "(begin" @@ -58942,79 +58969,79 @@ static const char *startup_source = "(if i_183" "(let-values(((sym_97 val_5)" "(hash-iterate-key+value" -" ht_161" +" ht_160" " i_183)))" +"(let-values(((table_223)" "(let-values(((table_224)" -"(let-values(((table_225)" " table_11))" "(if(set-member?" " skip-syms_0" " sym_97)" -" table_225" +" table_224" "(let-values(((table_20)" -" table_225))" -"(let-values(((table_226)" +" table_224))" +"(let-values(((table_225)" "(let-values()" "(let-values(((key_90" " val_82)" "(let-values()" "(values" " sym_97" -"(let-values(((or-part_24)" +"(let-values(((or-part_359)" "(hash-ref" " alts_0" " sym_97" " #f)))" -"(if or-part_24" -" or-part_24" +"(if or-part_359" +" or-part_359" " val_5))))))" "(hash-set" " table_20" " key_90" " val_82)))))" -"(values table_226)))))))" +"(values table_225)))))))" "(if(not #f)" "(for-loop_266" -" table_224" -"(hash-iterate-next ht_161 i_183))" -" table_224)))" +" table_223" +"(hash-iterate-next ht_160 i_183))" +" table_223)))" " table_11)))))" " for-loop_266)" " '#hasheq()" -"(hash-iterate-first ht_161))))))" +"(hash-iterate-first ht_160))))))" "(let-values(((ht+extras_0)" -"(let-values(((ht_162) extras_0))" +"(let-values(((ht_161) extras_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_162)))" +"(let-values()(check-in-hash ht_161)))" "((letrec-values(((for-loop_279)" -"(lambda(ht_163 i_184)" +"(lambda(ht_162 i_184)" "(begin" " 'for-loop" "(if i_184" "(let-values(((k_43 v_50)" "(hash-iterate-key+value" -" ht_162" +" ht_161" " i_184)))" +"(let-values(((ht_163)" +"(let-values(((ht_47) ht_162))" "(let-values(((ht_164)" -"(let-values(((ht_48) ht_163))" -"(let-values(((ht_165)" "(let-values()" "(hash-set" -" ht_48" +" ht_47" " k_43" " v_50))))" -"(values ht_165)))))" +"(values ht_164)))))" "(if(not #f)" "(for-loop_279" -" ht_164" -"(hash-iterate-next ht_162 i_184))" -" ht_164)))" -" ht_163)))))" +" ht_163" +"(hash-iterate-next ht_161 i_184))" +" ht_163)))" +" ht_162)))))" " for-loop_279)" -" ht_160" -"(hash-iterate-first ht_162))))))" +" ht_159" +"(hash-iterate-first ht_161))))))" "(let-values(((to-name61_0) to-name_0)" "((ht+extras62_0) ht+extras_0)" "((ns63_0) ns_119)" @@ -59048,7 +59075,7 @@ static const char *startup_source = "(begin" " 'declare-hash-based-module!41" "(let-values(((name_74) name39_0))" -"(let-values(((ht_166) ht40_0))" +"(let-values(((ht_165) ht40_0))" "(let-values(((ns_120) 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)))" @@ -59066,24 +59093,24 @@ static const char *startup_source = "((temp74_0)" "(hasheqv" " 0" -"(let-values(((ht_167) ht_166))" +"(let-values(((ht_166) ht_165))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_167)))" +"(let-values()(check-in-hash-keys ht_166)))" "((letrec-values(((for-loop_280)" -"(lambda(table_227 i_185)" +"(lambda(table_226 i_185)" "(begin" " 'for-loop" "(if i_185" "(let-values(((sym_98)" "(hash-iterate-key" -" ht_167" +" ht_166" " i_185)))" +"(let-values(((table_227)" "(let-values(((table_228)" +" table_226))" "(let-values(((table_229)" -" table_227))" -"(let-values(((table_230)" "(let-values()" "(let-values(((key_91" " val_83)" @@ -59127,10 +59154,10 @@ static const char *startup_source = " sym78_0))))" "(values" " sym_98" -"(if(let-values(((or-part_361)" +"(if(let-values(((or-part_360)" " protected?_11))" -"(if or-part_361" -" or-part_361" +"(if or-part_360" +" or-part_360" "(member" " sym_98" " protected-syms_0)))" @@ -59140,22 +59167,22 @@ static const char *startup_source = " #f)" " binding_28)))))))" "(hash-set" -" table_229" +" table_228" " key_91" " val_83)))))" "(values" -" table_230)))))" +" table_229)))))" "(if(not #f)" "(for-loop_280" -" table_228" +" table_227" "(hash-iterate-next" -" ht_167" +" ht_166" " i_185))" -" table_228)))" -" table_227)))))" +" table_227)))" +" table_226)))))" " for-loop_280)" " '#hash()" -"(hash-iterate-first ht_167))))))" +"(hash-iterate-first ht_166))))))" "((temp75_3)" "(lambda(data-box_6" " ns_121" @@ -59167,12 +59194,12 @@ static const char *startup_source = "(if(= 0 phase-level_23)" "(let-values()" "(begin" -"(let-values(((ht_168) ht_166))" +"(let-values(((ht_167) ht_165))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-in-hash ht_168)))" +"(let-values()(check-in-hash ht_167)))" "((letrec-values(((for-loop_281)" "(lambda(i_47)" "(begin" @@ -59180,7 +59207,7 @@ static const char *startup_source = "(if i_47" "(let-values(((sym_6 val_31)" "(hash-iterate-key+value" -" ht_168" +" ht_167" " i_47)))" "(let-values((()" "(let-values()" @@ -59198,12 +59225,12 @@ static const char *startup_source = "(if(not #f)" "(for-loop_281" "(hash-iterate-next" -" ht_168" +" ht_167" " i_47))" "(values))))" "(values))))))" " for-loop_281)" -"(hash-iterate-first ht_168))))" +"(hash-iterate-first ht_167))))" "(void)))" "(void)))))" "(make-module39.1" @@ -59302,8 +59329,8 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_111)))" -"((letrec-values(((for-loop_32)" -"(lambda(table_29 lst_55)" +"((letrec-values(((for-loop_282)" +"(lambda(table_230 lst_55)" "(begin" " 'for-loop" "(if(pair? lst_55)" @@ -59311,7 +59338,7 @@ static const char *startup_source = "(unsafe-car lst_55))" "((rest_181)" "(unsafe-cdr lst_55)))" -"(let-values(((table_30)" +"(let-values(((table_231)" "(let-values(((m_29)" "(namespace->module" " ns_122" @@ -59319,13 +59346,13 @@ static const char *startup_source = " require-mpi_0))))" "(begin" " #t" -"((letrec-values(((for-loop_282)" -"(lambda(table_35)" +"((letrec-values(((for-loop_283)" +"(lambda(table_32)" "(begin" " 'for-loop" "(let-values()" -"(let-values(((table_36)" -"(let-values(((ht_36)" +"(let-values(((table_35)" +"(let-values(((ht_35)" "(hash-ref" "(shift-provides-module-path-index" "(module-provides" @@ -59340,9 +59367,9 @@ static const char *startup_source = "(void)" "(let-values()" "(check-in-hash" -" ht_36)))" +" ht_35)))" "((letrec-values(((for-loop_36)" -"(lambda(table_151" +"(lambda(table_150" " i_49)" "(begin" " 'for-loop" @@ -59350,12 +59377,12 @@ static const char *startup_source = "(let-values(((sym_99" " binding_29)" "(hash-iterate-key+value" -" ht_36" +" ht_35" " i_49)))" -"(let-values(((table_124)" -"(let-values(((table_166)" -" table_151))" -"(let-values(((table_231)" +"(let-values(((table_123)" +"(let-values(((table_165)" +" table_150))" +"(let-values(((table_232)" "(let-values()" "(let-values(((key_92" " val_84)" @@ -59364,32 +59391,32 @@ static const char *startup_source = " sym_99" " binding_29))))" "(hash-set" -" table_166" +" table_165" " key_92" " val_84)))))" "(values" -" table_231)))))" +" table_232)))))" "(if(not" " #f)" "(for-loop_36" -" table_124" +" table_123" "(hash-iterate-next" -" ht_36" +" ht_35" " i_49))" -" table_124)))" -" table_151)))))" +" table_123)))" +" table_150)))))" " for-loop_36)" -" table_35" +" table_32" "(hash-iterate-first" -" ht_36))))))" -" table_36))))))" -" for-loop_282)" -" table_29)))))" +" ht_35))))))" +" table_35))))))" +" for-loop_283)" +" table_230)))))" "(if(not #f)" -"(for-loop_32 table_30 rest_181)" -" table_30)))" -" table_29)))))" -" for-loop_32)" +"(for-loop_282 table_231 rest_181)" +" table_231)))" +" table_230)))))" +" for-loop_282)" " '#hash()" " lst_111))))" " '#hasheqv()))" @@ -59490,14 +59517,14 @@ static const char *startup_source = "(let-values()" "(let-values()" "(case-lambda" -"((s_69)(begin 'eval((1/current-eval)(intro s_69))))" -"((s_180 ns_123)" +"((s_71)(begin 'eval((1/current-eval)(intro s_71))))" +"((s_182 ns_123)" "(begin" " (if (1/namespace? ns_123) (void) (let-values () (raise-argument-error 'eval \"namespace?\" ns_123)))" "(with-continuation-mark" " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_123)" -"(let-values()((1/current-eval)(intro s_180 ns_123))))))))))" +"(let-values()((1/current-eval)(intro s_182 ns_123))))))))))" "(define-values" "(1/eval-syntax)" "(let-values()" @@ -59517,52 +59544,52 @@ static const char *startup_source = " parameterization-key" "(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_124)" "(let-values()((1/current-eval) s_2)))))))))" -"(define-values(compile$1)(lambda(s_169)(begin 'compile((1/current-compile)(intro s_169) #f))))" +"(define-values(compile$1)(lambda(s_171)(begin 'compile((1/current-compile)(intro s_171) #f))))" "(define-values" "(1/compile-syntax)" -"(lambda(s_184)" +"(lambda(s_186)" "(begin" " 'compile-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_184) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_184)))" -"((1/current-compile) s_184 #f)))))))" +" (if (syntax?$1 s_186) (void) (let-values () (raise-argument-error 'compile-syntax \"syntax?\" s_186)))" +"((1/current-compile) s_186 #f)))))))" "(define-values(1/expand)(lambda(s_9)(begin 'expand(expand$1(intro s_9)(1/current-namespace) #t))))" "(define-values" "(1/expand-syntax)" -"(lambda(s_465)" +"(lambda(s_470)" "(begin" " 'expand-syntax" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_465) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_465)))" -"(expand$1 s_465(1/current-namespace) #t)))))))" -"(define-values(1/expand-once)(lambda(s_462)(begin 'expand-once(expand-once$1(intro s_462)))))" +" (if (syntax?$1 s_470) (void) (let-values () (raise-argument-error 'expand-syntax \"syntax?\" s_470)))" +"(expand$1 s_470(1/current-namespace) #t)))))))" +"(define-values(1/expand-once)(lambda(s_467)(begin 'expand-once(expand-once$1(intro s_467)))))" "(define-values" "(1/expand-syntax-once)" -"(lambda(s_170)" +"(lambda(s_172)" "(begin" " 'expand-syntax-once" "(let-values()" "(let-values()" "(begin" -" (if (syntax?$1 s_170) (void) (let-values () (raise-argument-error 'expand-syntax-once \"syntax?\" s_170)))" -"(expand-once$1 s_170)))))))" -"(define-values(1/expand-to-top-form)(lambda(s_72)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_72)))))" +" (if (syntax?$1 s_172) (void) (let-values () (raise-argument-error 'expand-syntax-once \"syntax?\" s_172)))" +"(expand-once$1 s_172)))))))" +"(define-values(1/expand-to-top-form)(lambda(s_74)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_74)))))" "(define-values" "(1/expand-syntax-to-top-form)" -"(lambda(s_163)" +"(lambda(s_165)" "(begin" " 'expand-syntax-to-top-form" "(let-values()" "(let-values()" "(begin" -"(if(syntax?$1 s_163)" +"(if(syntax?$1 s_165)" "(void)" -" (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_163)))" -"(expand-to-top-form$1 s_163)))))))" +" (let-values () (raise-argument-error 'expand-syntax-to-top-form \"syntax?\" s_165)))" +"(expand-to-top-form$1 s_165)))))))" "(define-values" "(intro)" "(let-values(((intro4_0)" @@ -59572,8 +59599,8 @@ static const char *startup_source = "(let-values(((given-s_1) given-s3_0))" "(let-values(((ns_68)(if ns2_1 ns1_7(1/current-namespace))))" "(let-values()" -"(let-values(((s_388)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" -"(1/namespace-syntax-introduce s_388 ns_68)))))))))" +"(let-values(((s_394)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" +"(1/namespace-syntax-introduce s_394 ns_68)))))))))" "(case-lambda((given-s_2)(begin(intro4_0 given-s_2 #f #f)))((given-s_3 ns1_8)(intro4_0 given-s_3 ns1_8 #t)))))" "(define-values" "(main-primitives)" @@ -59869,8 +59896,8 @@ static const char *startup_source = "(check-module-form)" "(lambda(exp_0 filename_1)" "(begin" -"(if(let-values(((or-part_301)(eof-object? exp_0)))" -"(if or-part_301 or-part_301(eof-object?(1/syntax-e exp_0))))" +"(if(let-values(((or-part_299)(eof-object? exp_0)))" +"(if or-part_299 or-part_299(eof-object?(1/syntax-e exp_0))))" "(let-values()" "(if filename_1" "(error" @@ -59883,9 +59910,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_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)))" +"(let-values(((r_40)(cdr(1/syntax-e exp_0))))" +"(let-values(((r_4)(if(syntax?$1 r_40)(1/syntax-e r_40) r_40)))" +"(if(pair? r_4)(identifier?(car r_4)) #f)))" " #f)" " #f)" " #f)" @@ -59932,12 +59959,12 @@ static const char *startup_source = " expected-mod_0)))" "(values))))" "(let-values(((maybe-count-lines!_0)" -"(lambda(i_127)" +"(lambda(i_128)" "(begin" " 'maybe-count-lines!" " (if (regexp-match? '#rx\"[.]zo$\" path_12)" "(void)" -"(let-values()(port-count-lines! i_127)))))))" +"(let-values()(port-count-lines! i_128)))))))" "(if expected-mod_0" "(let-values()" "((call-with-input-module-file" @@ -59985,10 +60012,10 @@ static const char *startup_source = "(if c2_17" "((lambda(thunk_6) thunk_6) c2_17)" "(let-values()" -"(let-values(((s_170)(1/read-syntax(object-name i_186) i_186)))" +"(let-values(((s_172)(1/read-syntax(object-name i_186) i_186)))" "(let-values((()" "(begin" -"(if(eof-object? s_170)" +"(if(eof-object? s_172)" "(let-values()" "(error" " 'default-load-handler" @@ -59999,7 +60026,7 @@ static const char *startup_source = "(object-name i_186)))" "(void))" "(values))))" -"(let-values(((m-s_0)(check-module-form s_170 path_12)))" +"(let-values(((m-s_0)(check-module-form s_172 path_12)))" "(let-values(((s2_7)(1/read-syntax(object-name i_186) i_186)))" "(begin" "(if(eof-object? s2_7)" @@ -60017,11 +60044,11 @@ static const char *startup_source = "(lambda()((1/current-eval) m-s_0))))))))))))))))))))" "(let-values()" "(let-values(((add-top-interaction_0)" -"(lambda(s_419)" +"(lambda(s_424)" "(begin" " 'add-top-interaction" "(1/namespace-syntax-introduce" -"(1/datum->syntax #f(cons '#%top-interaction s_419) s_419))))))" +"(1/datum->syntax #f(cons '#%top-interaction s_424) s_424))))))" "(let-values(((path1_0) path_12)" "((temp2_8)" "(lambda(i_84)" @@ -60029,11 +60056,11 @@ static const char *startup_source = " 'temp2" "(begin" "(maybe-count-lines!_0 i_84)" -"((letrec-values(((loop_116)" +"((letrec-values(((loop_35)" "(lambda(vals_7)" "(begin" " 'loop" -"(let-values(((s_295)" +"(let-values(((s_299)" "(with-continuation-mark" " parameterization-key" "(extend-parameterization" @@ -60063,14 +60090,14 @@ static const char *startup_source = "(1/read-syntax" "(object-name i_84)" " i_84))))))" -"(if(eof-object? s_295)" +"(if(eof-object? s_299)" "(apply values vals_7)" -"(loop_116" +"(loop_35" "(call-with-continuation-prompt" "(lambda()" "(call-with-values" "(lambda()" -"((1/current-eval)(add-top-interaction_0 s_295)))" +"((1/current-eval)(add-top-interaction_0 s_299)))" " list))" "(default-continuation-prompt-tag)" "(lambda args_10" @@ -60078,27 +60105,27 @@ static const char *startup_source = " abort-current-continuation" "(default-continuation-prompt-tag)" " args_10))))))))))" -" loop_116)" +" loop_35)" "(list(void))))))))" "(call-with-input-file*61.1 #f #f path1_0 temp2_8)))))))))))" "(define-values" "(linklet-bundle-or-directory-start)" -"(lambda(i_147 tag_1)" +"(lambda(i_148 tag_1)" "(begin" "(let-values(((version-length_0)(string-length(version))))" -"(if(equal?(peek-byte i_147)(char->integer '#\\#))" -"(if(equal?(peek-byte i_147 1)(char->integer '#\\~))" -"(if(equal?(peek-byte i_147 2) version-length_0)" -"(if(equal?(peek-bytes version-length_0 3 i_147)(string->bytes/utf-8(version)))" -"(if(equal?(peek-byte i_147(+ 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_152)" -"(begin(let-values(((pos_94)(linklet-bundle-or-directory-start i_152 '#\\D)))(if pos_94(+ pos_94 4) #f)))))" +"(lambda(i_153)" +"(begin(let-values(((pos_94)(linklet-bundle-or-directory-start i_153 '#\\D)))(if pos_94(+ pos_94 4) #f)))))" "(define-values" "(linklet-bundle-hash-code)" "(lambda(i_85)" @@ -60151,7 +60178,7 @@ static const char *startup_source = "(lambda(i_187)" "(begin" " 'read-byte/not-eof" -"(let-values(((v_181)(read-byte i_187)))(if(eof-object? v_181) 0 v_181))))))" +"(let-values(((v_180)(read-byte i_187)))(if(eof-object? v_180) 0 v_180))))))" "(bitwise-ior" "(read-byte/not-eof_0 i_58)" "(arithmetic-shift(read-byte/not-eof_0 i_58) 8)" @@ -60166,9 +60193,9 @@ static const char *startup_source = "(let-values()" "(let-values((()(begin(file-position i_188 pos_118)(values))))" "(let-values(((name-len_0)(read-number i_188)))" -"(let-values(((v_252)(read-bytes name-len_0 i_188)))" +"(let-values(((v_251)(read-bytes name-len_0 i_188)))" "(begin" -"(if(if(bytes? v_252)(=(bytes-length v_252) name-len_0) #f)" +"(if(if(bytes? v_251)(=(bytes-length v_251) name-len_0) #f)" "(void)" "(let-values()" "(error" @@ -60182,10 +60209,10 @@ static const char *startup_source = "(object-name i_188)" " pos_118" " name-len_0" -" v_252)))" -"(if(bytes=? bstr_5 v_252)" +" v_251)))" +"(if(bytes=? bstr_5 v_251)" "(let-values()(read-number i_188))" -"(if(bytesbytes/utf-8" -"(symbol->string s_177))))" +"(symbol->string s_179))))" "(let-values(((len_41)" "(bytes-length bstr_6)))" "(if(< len_41 255)" @@ -60267,23 +60294,23 @@ static const char *startup_source = "(call-with-input-module-file)" "(lambda(path_14 proc_10)" "(begin" -"(let-values(((i_160) #f))" +"(let-values(((i_161) #f))" "(dynamic-wind" "(lambda()" -"(set! i_160(let-values(((path3_0) path_14)((temp4_7) #t))(open-input-file6.1 temp4_7 #t #f #f path3_0))))" -"(lambda()(proc_10 i_160))" -"(lambda()(close-input-port i_160)))))))" +"(set! i_161(let-values(((path3_0) path_14)((temp4_7) #t))(open-input-file6.1 temp4_7 #t #f #f path3_0))))" +"(lambda()(proc_10 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_69)" +"(lambda(s_71)" "(begin" " 'resolve" -"(if(complete-path? s_69)" -" s_69" +"(if(complete-path? s_71)" +" s_71" "(let-values(((d_35)(current-load-relative-directory)))" -"(if d_35(path->complete-path s_69 d_35) s_69)))))))" +"(if d_35(path->complete-path s_71 d_35) s_71)))))))" "(let-values(((date-of-1_0)" "(lambda(a_28)" "(begin" @@ -60302,11 +60329,11 @@ static const char *startup_source = " modes_1))" " roots_1)))))" "(let-values(((date>=?_0)" -"(lambda(modes_2 roots_2 a_72 bm_0)" +"(lambda(modes_2 roots_2 a_73 bm_0)" "(begin" " 'date>=?" -"(if a_72" -"(let-values(((am_0)(date-of_0 a_72 modes_2 roots_2)))" +"(if a_73" +"(let-values(((am_0)(date-of_0 a_73 modes_2 roots_2)))" "(let-values(((or-part_28)(if(not bm_0) am_0 #f)))" "(if or-part_28" " or-part_28" @@ -60333,16 +60360,16 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_75)(not expect-module_0)))" -"(if or-part_75" -" or-part_75" -"(let-values(((or-part_76)(symbol? expect-module_0)))" +"(if(let-values(((or-part_76)(not expect-module_0)))" "(if or-part_76" " or-part_76" +"(let-values(((or-part_77)(symbol? expect-module_0)))" +"(if or-part_77" +" or-part_77" "(if(list? expect-module_0)" "(if(>(length expect-module_0) 1)" -"(if(let-values(((or-part_77)(symbol?(car expect-module_0))))" -"(if or-part_77 or-part_77(not(car expect-module_0))))" +"(if(let-values(((or-part_78)(symbol?(car expect-module_0))))" +"(if or-part_78 or-part_78(not(car expect-module_0))))" "(andmap2 symbol?(cdr expect-module_0))" " #f)" " #f)" @@ -60413,8 +60440,8 @@ static const char *startup_source = "(if(not main-path-d_0)(date-of-1_0 alt-path_0) #f)" " #f)))" "(let-values(((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(((or-part_53) main-path-d_0))" +"(if or-part_53 or-part_53 alt-path-d_0))))" "(let-values(((get-so_0)" "(lambda(file_2 rep-sfx?_0)" "(begin" @@ -60447,16 +60474,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_362) main-path-d_0))" -"(if or-part_362" -" or-part_362" +"(let-values(((or-part_361) main-path-d_0))" +"(if or-part_361" +" or-part_361" "(not alt-path-d_0)))))" "(let-values(((try-alt?_0)" "(if alt-file_0" -"(let-values(((or-part_164)" +"(let-values(((or-part_163)" " alt-path-d_0))" -"(if or-part_164" -" or-part_164" +"(if or-part_163" +" or-part_163" "(not main-path-d_0)))" " #f)))" "(let-values(((with-dir_0)" @@ -60578,12 +60605,12 @@ static const char *startup_source = "(car zo-d_1)" " expect-module_0)))))))" " c4_3)" -"(if(let-values(((or-part_351)" +"(if(let-values(((or-part_349)" "(not" "(pair?" " expect-module_0))))" -"(if or-part_351" -" or-part_351" +"(if or-part_349" +" or-part_349" "(car expect-module_0)))" "(let-values()" "(let-values(((p_40)" @@ -60628,7 +60655,7 @@ static const char *startup_source = "(begin(let-values(((e_90)(hash-ref -module-hash-table-table reg_0 #f)))(if e_90(ephemeron-value e_90) #f)))))" "(define-values" "(registry-table-set!)" -"(lambda(reg_1 v_201)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_201)))))" +"(lambda(reg_1 v_200)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_200)))))" "(define-values(CACHE-N) 512)" "(define-values(-path-cache)(make-vector CACHE-N #f))" "(define-values" @@ -60637,62 +60664,62 @@ static const char *startup_source = "(begin" "(let-values(((i_26)(modulo(abs(equal-hash-code p_22)) 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_22 l_80)))(if a_71(cdr a_71) #f)) #f)))))))" +"(let-values(((l_84)(if w_1(weak-box-value w_1) #f)))" +"(if l_84(let-values(((a_72)(1/assoc p_22 l_84)))(if a_72(cdr a_72) #f)) #f)))))))" "(define-values" "(path-cache-set!)" -"(lambda(p_78 v_253)" +"(lambda(p_78 v_252)" "(begin" "(let-values(((i_189)(modulo(abs(equal-hash-code p_78)) CACHE-N)))" "(let-values(((w_2)(vector-ref -path-cache i_189)))" -"(let-values(((l_67)(if w_2(weak-box-value w_2) #f)))" +"(let-values(((l_71)(if w_2(weak-box-value w_2) #f)))" "(vector-set!" " -path-cache" " i_189" "(make-weak-box" -"(cons(cons p_78 v_253)(let-values(((or-part_35) l_67))(if or-part_35 or-part_35 null)))))))))))" +"(cons(cons p_78 v_252)(let-values(((or-part_36) l_71))(if or-part_36 or-part_36 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_460 coll-mode?_0)" +"(lambda(s_465 coll-mode?_0)" "(begin" -"(let-values(((l_19)" -"((letrec-values(((loop_117)" -"(lambda(s_466)" +"(let-values(((l_20)" +"((letrec-values(((loop_118)" +"(lambda(s_471)" "(begin" " 'loop" -"(let-values(((len_42)(string-length s_466)))" +"(let-values(((len_42)(string-length s_471)))" "((letrec-values(((iloop_2)" -"(lambda(i_100)" +"(lambda(i_101)" "(begin" " 'iloop" -"(if(= i_100 len_42)" -"(let-values()(list s_466))" -"(if(char=? '#\\/(string-ref s_466 i_100))" +"(if(= i_101 len_42)" +"(let-values()(list s_471))" +"(if(char=? '#\\/(string-ref s_471 i_101))" "(let-values()" "(cons" -"(substring s_466 0 i_100)" -"(loop_117(substring s_466(add1 i_100)))))" -"(let-values()(iloop_2(add1 i_100)))))))))" +"(substring s_471 0 i_101)" +"(loop_118(substring s_471(add1 i_101)))))" +"(let-values()(iloop_2(add1 i_101)))))))))" " iloop_2)" " 0))))))" -" loop_117)" -" s_460)))" +" loop_118)" +" s_465)))" "(if coll-mode?_0" -" l_19" -"((letrec-values(((loop_101)" -"(lambda(l_78)" +" l_20" +"((letrec-values(((loop_103)" +"(lambda(l_82)" "(begin" " 'loop" -"(if(null?(cdr l_78))" -"(values null(car l_78))" -"(let-values(((c_114 f_41)(loop_101(cdr l_78))))" -"(values(cons(car l_78) c_114) f_41)))))))" -" loop_101)" -" l_19))))))" +"(if(null?(cdr l_82))" +"(values null(car l_82))" +"(let-values(((c_114 f_40)(loop_103(cdr l_82))))" +"(values(cons(car l_82) c_114) f_40)))))))" +" loop_103)" +" l_20))))))" "(define-values" "(format-source-location)" "(lambda(stx_17)" @@ -60723,14 +60750,14 @@ 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_461 from-namespace_1)" +"((s_466 from-namespace_1)" "(begin" " 'standard-module-name-resolver" "(begin" -"(if(1/resolved-module-path? s_461)" +"(if(1/resolved-module-path? s_466)" "(void)" "(let-values()" -" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_461)))" +" (raise-argument-error 'standard-module-name-resolver \"resolved-module-path?\" s_466)))" "(if(let-values(((or-part_131)(not from-namespace_1)))" "(if or-part_131 or-part_131(1/namespace? from-namespace_1)))" "(void)" @@ -60739,13 +60766,13 @@ static const char *startup_source = " 'standard-module-name-resolver" " \"(or/c #f namespace?)\"" " from-namespace_1)))" -"(if planet-resolver_0(let-values()(planet-resolver_0 s_461))(void))" +"(if planet-resolver_0(let-values()(planet-resolver_0 s_466))(void))" "(let-values(((hts_1)" -"(let-values(((or-part_95)" +"(let-values(((or-part_96)" "(registry-table-ref" "(namespace-module-registry$1(1/current-namespace)))))" -"(if or-part_95" -" or-part_95" +"(if or-part_96" +" or-part_96" "(let-values(((hts_2)(cons(make-hasheq)(make-hasheq))))" "(begin" "(registry-table-set!" @@ -60753,14 +60780,14 @@ static const char *startup_source = " hts_2)" " hts_2))))))" "(begin" -"(hash-set!(car hts_1) s_461 'declared)" +"(hash-set!(car hts_1) s_466 'declared)" "(if from-namespace_1" "(let-values()" "(let-values(((root-name_2)" -"(if(pair?(1/resolved-module-path-name s_461))" +"(if(pair?(1/resolved-module-path-name s_466))" "(1/make-resolved-module-path" -"(car(1/resolved-module-path-name s_461)))" -" s_461))" +"(car(1/resolved-module-path-name s_466)))" +" s_466))" "((from-hts_0)" "(registry-table-ref" "(namespace-module-registry$1 from-namespace_1))))" @@ -60772,14 +60799,14 @@ static const char *startup_source = "(void))))" "(void))))" "(void)))))))" -"((s_467 relto_0 stx_18)" +"((s_472 relto_0 stx_18)" "(begin" "(log-message" "(current-logger)" " 'error" " \"default module name resolver called with three arguments (deprecated)\"" " #f)" -"(standard-module-name-resolver_0 s_467 relto_0 stx_18 #t)))" +"(standard-module-name-resolver_0 s_472 relto_0 stx_18 #t)))" "((s_26 relto_1 stx_19 load?_7)" "(let-values((()" "(begin" @@ -60819,18 +60846,18 @@ static const char *startup_source = "(lambda(base_28 orig-l_10)" "(begin" " 'flatten-sub-path" -"((letrec-values(((loop_118)" -"(lambda(a_73 l_33)" +"((letrec-values(((loop_119)" +"(lambda(a_74 l_34)" "(begin" " 'loop" -"(if(null? l_33)" +"(if(null? l_34)" "(let-values()" -"(if(null? a_73)" +"(if(null? a_74)" " base_28" -"(cons base_28(reverse$1 a_73))))" -" (if (equal? (car l_33) \"..\")" +"(cons base_28(reverse$1 a_74))))" +" (if (equal? (car l_34) \"..\")" "(let-values()" -"(if(null? a_73)" +"(if(null? a_74)" "(error" " 'standard-module-name-resolver" " \"too many \\\"..\\\"s in submodule path: ~.s\"" @@ -60846,12 +60873,12 @@ static const char *startup_source = " 'file)" " base_28)))" " orig-l_10))" -"(loop_118(cdr a_73)(cdr l_33))))" +"(loop_119(cdr a_74)(cdr l_34))))" "(let-values()" -"(loop_118" -"(cons(car l_33) a_73)" -"(cdr l_33)))))))))" -" loop_118)" +"(loop_119" +"(cons(car l_34) a_74)" +"(cdr l_34)))))))))" +" loop_119)" " null" " orig-l_10)))))" "(if(if(pair? s_26)(eq?(car s_26) 'quote) #f)" @@ -60865,13 +60892,13 @@ 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_294) (equal? (cadr s_26) \".\")))" -" (if or-part_294 or-part_294 (equal? (cadr s_26) \"..\")))" +" (if (let-values (((or-part_292) (equal? (cadr s_26) \".\")))" +" (if or-part_292 or-part_292 (equal? (cadr s_26) \"..\")))" "(if relto_1" "(let-values(((p_79)(1/resolved-module-path-name relto_1)))" -"(let-values(((or-part_363)(symbol? p_79)))" -"(if or-part_363" -" or-part_363" +"(let-values(((or-part_362)(symbol? p_79)))" +"(if or-part_362" +" or-part_362" "(if(pair? p_79)(symbol?(car p_79)) #f))))" " #f)" " #f)" @@ -60882,9 +60909,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_47)" +"(let-values(((r_45)" " (if (equal? (cadr s_26) \"..\") (cdr s_26) (cddr s_26))))" -"(if(pair? rp_0)(append(cdr rp_0) r_47) r_47))))))" +"(if(pair? rp_0)(append(cdr rp_0) r_45) r_45))))))" "(if(if(pair? s_26)(eq?(car s_26) 'planet) #f)" "(let-values()" "(begin" @@ -60910,7 +60937,7 @@ static const char *startup_source = "(lambda()" "(begin" " 'get-dir" -"(let-values(((or-part_364)" +"(let-values(((or-part_363)" "(if relto_1" "(if(eq? relto_1 -prev-relto)" " -prev-relto-dir" @@ -60934,12 +60961,12 @@ static const char *startup_source = " base_29))" " #f))))" " #f)))" -"(if or-part_364" -" or-part_364" -"(let-values(((or-part_42)" +"(if or-part_363" +" or-part_363" +"(let-values(((or-part_43)" "(current-load-relative-directory)))" -"(if or-part_42" -" or-part_42" +"(if or-part_43" +" or-part_43" "(current-directory))))))))" "((get-reg_0)" "(lambda()" @@ -60952,15 +60979,15 @@ static const char *startup_source = " 'show-collection-err" "(let-values(((msg_2)" "(string-append" -"(let-values(((or-part_365)" +"(let-values(((or-part_364)" "(if stx_19" "(if(error-print-source-location)" "(format-source-location" " stx_19)" " #f)" " #f)))" -"(if or-part_365" -" or-part_365" +"(if or-part_364" +" or-part_364" " \"standard-module-name-resolver\"))" " \": \"" "(regexp-replace" @@ -60981,27 +61008,27 @@ static const char *startup_source = "(current-continuation-marks)" " s_26)))))))" "((ss->rkt_0)" -"(lambda(s_88)" +"(lambda(s_90)" "(begin" " 'ss->rkt" -"(let-values(((len_43)(string-length s_88)))" +"(let-values(((len_43)(string-length s_90)))" "(if(if(>= len_43 3)" "(if(equal?" " '#\\." -"(string-ref s_88(- len_43 3)))" +"(string-ref s_90(- len_43 3)))" "(if(equal?" " '#\\s" -"(string-ref s_88(- len_43 2)))" +"(string-ref s_90(- len_43 2)))" "(equal?" " '#\\s" -"(string-ref s_88(- len_43 1)))" +"(string-ref s_90(- len_43 1)))" " #f)" " #f)" " #f)" "(string-append" -"(substring s_88 0(- len_43 3))" +"(substring s_90 0(- len_43 3))" " \".rkt\")" -" s_88)))))" +" s_90)))))" "((path-ss->rkt_0)" "(lambda(p_82)" "(begin" @@ -61014,8 +61041,8 @@ static const char *startup_source = "((s_31)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" "(let-values(((v_38)(cadr s_26)))" -" (if (let-values (((or-part_366) (equal? v_38 \".\")))" -" (if or-part_366 or-part_366 (equal? v_38 \"..\")))" +" (if (let-values (((or-part_365) (equal? v_38 \".\")))" +" (if or-part_365 or-part_365 (equal? v_38 \"..\")))" "(if relto_1" "(let-values(((p_83)" "(1/resolved-module-path-name" @@ -61030,19 +61057,19 @@ static const char *startup_source = "((subm-path_0)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" "(let-values(((p_84)" -"(if(if(let-values(((or-part_166)" +"(if(if(let-values(((or-part_165)" "(equal?" "(cadr s_26)" " \".\")))" -"(if or-part_166" -" or-part_166" +"(if or-part_165" +" or-part_165" " (equal? (cadr s_26) \"..\")))" " relto_1" " #f)" "(let-values(((p_85)" "(1/resolved-module-path-name" " relto_1))" -"((r_27)" +"((r_26)" "(if(equal?" "(cadr s_26)" " \"..\")" @@ -61051,8 +61078,8 @@ static const char *startup_source = "(if(pair? p_85)" "(flatten-sub-path_0" "(car p_85)" -"(append(cdr p_85) r_27))" -"(flatten-sub-path_0 p_85 r_27)))" +"(append(cdr p_85) r_26))" +"(flatten-sub-path_0 p_85 r_26)))" "(flatten-sub-path_0" " \".\"" " (if (equal? (cadr s_26) \"..\")" @@ -61063,11 +61090,11 @@ static const char *startup_source = "(let-values(((s-parsed_0)" "(if(symbol? s_31)" "(let-values()" -"(let-values(((or-part_170)" +"(let-values(((or-part_169)" "(path-cache-get" "(cons s_31(get-reg_0)))))" -"(if or-part_170" -" or-part_170" +"(if or-part_169" +" or-part_169" "(let-values(((cols_0 file_3)" "(split-relative-string" "(symbol->string s_31)" @@ -61087,11 +61114,11 @@ static const char *startup_source = "(if(string? s_31)" "(let-values()" "(let-values(((dir_4)(get-dir_0)))" -"(let-values(((or-part_367)" +"(let-values(((or-part_366)" "(path-cache-get" "(cons s_31 dir_4))))" -"(if or-part_367" -" or-part_367" +"(if or-part_366" +" or-part_366" "(let-values(((cols_1 file_4)" "(split-relative-string" " s_31" @@ -61103,12 +61130,12 @@ static const char *startup_source = " dir_4" "(append" "(map2" -"(lambda(s_309)" -" (if (string=? s_309 \".\")" +"(lambda(s_56)" +" (if (string=? s_56 \".\")" "(let-values() 'same)" -" (if (string=? s_309 \"..\")" +" (if (string=? s_56 \"..\")" "(let-values() 'up)" -"(let-values() s_309))))" +"(let-values() s_56))))" " cols_1)" "(list(ss->rkt_0 file_4))))))))))" "(if(path? s_31)" @@ -61120,11 +61147,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_87)" +"(let-values(((or-part_88)" "(path-cache-get" "(cons s_31(get-reg_0)))))" -"(if or-part_87" -" or-part_87" +"(if or-part_88" +" or-part_88" "(let-values(((cols_2 file_5)" "(split-relative-string" "(cadr s_31)" @@ -61182,8 +61209,8 @@ static const char *startup_source = "(get-dir_0)))))" "(void))))))))" "(begin" -"(if(let-values(((or-part_368)(path? s-parsed_0)))" -"(if or-part_368 or-part_368(vector? s-parsed_0)))" +"(if(let-values(((or-part_367)(path? s-parsed_0)))" +"(if or-part_367 or-part_367(vector? s-parsed_0)))" "(void)" "(let-values()" "(if stx_19" @@ -61268,11 +61295,11 @@ static const char *startup_source = "((nsr_0)(get-reg_0)))" "(begin" "(for-each2" -"(lambda(s_427)" +"(lambda(s_432)" "(if(if(equal?" -"(cdr s_427)" +"(cdr s_432)" " normal-filename_0)" -"(eq?(car s_427) nsr_0)" +"(eq?(car s_432) nsr_0)" " #f)" "(let-values()" "(error" @@ -61281,31 +61308,31 @@ static const char *startup_source = " filename_2" "(apply" " string-append" -"((letrec-values(((loop_119)" -"(lambda(l_81)" +"((letrec-values(((loop_120)" +"(lambda(l_85)" "(begin" " 'loop" "(if(null?" -" l_81)" +" l_85)" " '()" "(list*" " \"\\n \"" "(path->string" "(cdar" -" l_81))" -"(loop_119" +" l_85))" +"(loop_120" "(cdr" -" l_81))))))))" -" loop_119)" +" l_85))))))))" +" loop_120)" "(reverse$1 loading_0)))))" "(void)))" " loading_0)" "((if(continuation-prompt-available?" " -loading-prompt-tag)" -"(lambda(f_23)(f_23))" -"(lambda(f_42)" +"(lambda(f_41)(f_41))" +"(lambda(f_24)" "(call-with-continuation-prompt" -" f_42" +" f_24" " -loading-prompt-tag)))" "(lambda()" "(with-continuation-mark" @@ -61367,14 +61394,14 @@ static const char *startup_source = "(void))" "(if(if(not(vector? s-parsed_0))" "(if load?_7" -"(let-values(((or-part_369)" +"(let-values(((or-part_368)" "(string? s_31)))" -"(if or-part_369" -" or-part_369" -"(let-values(((or-part_51)" +"(if or-part_368" +" or-part_368" +"(let-values(((or-part_52)" "(symbol? s_31)))" -"(if or-part_51" -" or-part_51" +"(if or-part_52" +" or-part_52" "(if(pair? s_31)" "(eq?(car s_31) 'lib)" " #f)))))" @@ -61396,10 +61423,10 @@ static const char *startup_source = " standard-module-name-resolver_0)))))" "(define-values" "(default-eval-handler)" -"(lambda(s_60)" +"(lambda(s_199)" "(begin" "(1/eval" -" s_60" +" s_199" "(1/current-namespace)" "(let-values(((c_115)(1/current-compile)))" "(lambda(e_91 ns_16)" @@ -61411,7 +61438,7 @@ static const char *startup_source = "(let-values()(c_115 e_91 #t))))))))))" "(define-values" "(default-compile-handler)" -"(lambda(s_61 immediate-eval?_0)(begin(1/compile s_61(1/current-namespace)(not immediate-eval?_0)))))" +"(lambda(s_201 immediate-eval?_0)(begin(1/compile s_201(1/current-namespace)(not immediate-eval?_0)))))" "(define-values" "(default-read-interaction)" "(lambda(src_9 in_0)" @@ -61463,7 +61490,7 @@ static const char *startup_source = " 'expand-body7" "(let-values(((bodys_7) bodys5_0))" "(let-values(((ctx_14) ctx6_0))" -"(let-values(((s_172) source1_0))" +"(let-values(((s_174) source1_0))" "(let-values(((stratified?_0)(if stratified?4_0 stratified?2_0 #f)))" "(let-values()" "(let-values((()" @@ -61483,7 +61510,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_266)))" -"((letrec-values(((for-loop_283)" +"((letrec-values(((for-loop_284)" "(lambda(fold-var_70 lst_102)" "(begin" " 'for-loop" @@ -61502,10 +61529,10 @@ static const char *startup_source = " fold-var_12))))" "(values fold-var_217)))))" "(if(not #f)" -"(for-loop_283 fold-var_11 rest_142)" +"(for-loop_284 fold-var_11 rest_142)" " fold-var_11)))" " fold-var_70)))))" -" for-loop_283)" +" for-loop_284)" " null" " lst_266))))))" "(let-values((()" @@ -61525,9 +61552,9 @@ static const char *startup_source = "(let-values(((frame-id_2)(make-reference-record)))" "(let-values(((def-ctx-scopes_6)(box null)))" "(let-values(((body-ctx_0)" -"(let-values(((v_254) ctx_14))" -"(let-values(((the-struct_86) v_254))" -"(if(expand-context/outer? the-struct_86)" +"(let-values(((v_253) ctx_14))" +"(let-values(((the-struct_85) v_253))" +"(if(expand-context/outer? the-struct_85)" "(let-values(((context51_0)(list(make-liberal-define-context)))" "((name52_1) #f)" "((only-immediate?53_0) #t)" @@ -61542,27 +61569,27 @@ static const char *startup_source = "(cons" " frame-id_2" "(expand-context-reference-records ctx_14)))" -"((inner61_0)(root-expand-context/outer-inner v_254)))" +"((inner61_0)(root-expand-context/outer-inner v_253)))" "(expand-context/outer1.1" " inner61_0" " post-expansion-scope55_0" " use-site-scopes58_0" " frame-id59_0" " context51_0" -"(expand-context/outer-env the-struct_86)" +"(expand-context/outer-env the-struct_85)" " post-expansion-scope-action56_0" " scopes57_0" " def-ctx-scopes54_0" -"(expand-context/outer-binding-layer the-struct_86)" +"(expand-context/outer-binding-layer the-struct_85)" " reference-records60_0" " only-immediate?53_0" -"(expand-context/outer-need-eventually-defined the-struct_86)" -"(expand-context/outer-current-introduction-scopes the-struct_86)" +"(expand-context/outer-need-eventually-defined the-struct_85)" +"(expand-context/outer-current-introduction-scopes the-struct_85)" " name52_1))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_86))))))" +" the-struct_85))))))" "(let-values(((maybe-increment-binding-layer_0)" "(lambda(ids_28 body-ctx_1)" "(begin" @@ -61573,7 +61600,7 @@ static const char *startup_source = "(increment-binding-layer ids_28 body-ctx_1 inside-sc_0)" "(expand-context-binding-layer body-ctx_1))))))" "(let-values(((name_78)(expand-context-name ctx_14)))" -"((letrec-values(((loop_120)" +"((letrec-values(((loop_40)" "(lambda(body-ctx_2" " bodys_8" " done-bodys_0" @@ -61597,7 +61624,7 @@ static const char *startup_source = "((temp68_4)(reverse$1 track-stxs_0))" "((temp69_4)(reverse$1 stx-clauses_0))" "((temp70_4)(reverse$1 done-bodys_0))" -"((s71_0) s_172)" +"((s71_0) s_174)" "((stratified?72_0) stratified?_0)" "((name73_0) name_78)" "((temp74_1)(reverse$1 trans-idss_1)))" @@ -61637,50 +61664,50 @@ static const char *startup_source = "(null?" "(cdr bodys_8))" " #f)" -"(let-values(((v_228)" +"(let-values(((v_227)" " body-ctx_2))" -"(let-values(((the-struct_87)" -" v_228))" +"(let-values(((the-struct_86)" +" v_227))" "(if(expand-context/outer?" -" the-struct_87)" +" the-struct_86)" "(let-values(((name77_0)" " name_78)" "((inner78_0)" "(root-expand-context/outer-inner" -" v_228)))" +" v_227)))" "(expand-context/outer1.1" " inner78_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_87)" +" the-struct_86)" "(root-expand-context/outer-use-site-scopes" -" the-struct_87)" +" the-struct_86)" "(root-expand-context/outer-frame-id" -" the-struct_87)" +" the-struct_86)" "(expand-context/outer-context" -" the-struct_87)" +" the-struct_86)" "(expand-context/outer-env" -" the-struct_87)" +" the-struct_86)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_87)" +" the-struct_86)" "(expand-context/outer-scopes" -" the-struct_87)" +" the-struct_86)" "(expand-context/outer-def-ctx-scopes" -" the-struct_87)" +" the-struct_86)" "(expand-context/outer-binding-layer" -" the-struct_87)" +" the-struct_86)" "(expand-context/outer-reference-records" -" the-struct_87)" +" the-struct_86)" "(expand-context/outer-only-immediate?" -" the-struct_87)" +" the-struct_86)" "(expand-context/outer-need-eventually-defined" -" the-struct_87)" +" the-struct_86)" "(expand-context/outer-current-introduction-scopes" -" the-struct_87)" +" the-struct_86)" " name77_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_87))))" +" the-struct_86))))" " body-ctx_2)))" "(expand7.1" " #f" @@ -61711,38 +61738,38 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_31 begin79_0 e80_0)" -"(let-values(((s_468)" +"(let-values(((s_473)" " disarmed-exp-body_0))" "(let-values(((orig-s_38)" -" s_468))" +" s_473))" "(let-values(((begin79_1" " e80_1)" -"(let-values(((s_469)" +"(let-values(((s_474)" "(if(syntax?$1" -" s_468)" +" s_473)" "(syntax-e$1" -" s_468)" -" s_468)))" +" s_473)" +" s_473)))" "(if(pair?" -" s_469)" +" s_474)" "(let-values(((begin81_0)" -"(let-values(((s_470)" +"(let-values(((s_475)" "(car" -" s_469)))" -" s_470))" +" s_474)))" +" s_475))" "((e82_0)" -"(let-values(((s_471)" +"(let-values(((s_476)" "(cdr" -" s_469)))" -"(let-values(((s_472)" +" s_474)))" +"(let-values(((s_477)" "(if(syntax?$1" -" s_471)" +" s_476)" "(syntax-e$1" -" s_471)" -" s_471)))" +" s_476)" +" s_476)))" "(let-values(((flat-s_24)" "(to-syntax-list.1" -" s_472)))" +" s_477)))" "(if(not" " flat-s_24)" "(let-values()" @@ -61786,7 +61813,7 @@ static const char *startup_source = " 'splice" " splice-bodys_0)))" "(void)))" -"(loop_120" +"(loop_40" " body-ctx_2" " splice-bodys_0" " done-bodys_0" @@ -61823,45 +61850,45 @@ static const char *startup_source = "(let-values(((define-values83_1" " id84_1" " rhs85_1)" -"(let-values(((s_473)" +"(let-values(((s_478)" "(if(syntax?$1" " s_31)" "(syntax-e$1" " s_31)" " s_31)))" "(if(pair?" -" s_473)" +" s_478)" "(let-values(((define-values86_0)" "(let-values(((s_50)" "(car" -" s_473)))" +" s_478)))" " s_50))" "((id87_0" " rhs88_0)" "(let-values(((s_32)" "(cdr" -" s_473)))" -"(let-values(((s_474)" +" s_478)))" +"(let-values(((s_51)" "(if(syntax?$1" " s_32)" "(syntax-e$1" " s_32)" " s_32)))" "(if(pair?" -" s_474)" +" s_51)" "(let-values(((id89_0)" -"(let-values(((s_305)" +"(let-values(((s_309)" "(car" -" s_474)))" -"(let-values(((s_384)" +" s_51)))" +"(let-values(((s_389)" "(if(syntax?$1" -" s_305)" +" s_309)" "(syntax-e$1" -" s_305)" -" s_305)))" +" s_309)" +" s_309)))" "(let-values(((flat-s_25)" "(to-syntax-list.1" -" s_384)))" +" s_389)))" "(if(not" " flat-s_25)" "(let-values()" @@ -61880,14 +61907,14 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_196)))" -"((letrec-values(((for-loop_284)" +"((letrec-values(((for-loop_285)" "(lambda(id_110" " lst_320)" "(begin" " 'for-loop" "(if(pair?" " lst_320)" -"(let-values(((s_308)" +"(let-values(((s_54)" "(unsafe-car" " lst_320))" "((rest_182)" @@ -61902,21 +61929,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_137)" "(if(syntax?$1" -" s_308)" +" s_54)" "(symbol?" "(syntax-e$1" -" s_308))" +" s_54))" " #f)))" "(if or-part_137" " or-part_137" "(symbol?" -" s_308)))" -" s_308" +" s_54)))" +" s_54" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_39" -" s_308)))))" +" s_54)))))" "(cons" " id92_1" " id_111)))))" @@ -61924,45 +61951,45 @@ static const char *startup_source = " id_112)))))" "(if(not" " #f)" -"(for-loop_284" +"(for-loop_285" " id_72" " rest_182)" " id_72)))" " id_110)))))" -" for-loop_284)" +" for-loop_285)" " null" " lst_196)))))" "(reverse$1" " id_109))))))))" "((rhs90_0)" -"(let-values(((s_54)" +"(let-values(((s_479)" "(cdr" -" s_474)))" -"(let-values(((s_475)" -"(if(syntax?$1" -" s_54)" -"(syntax-e$1" -" s_54)" -" s_54)))" -"(if(pair?" -" s_475)" -"(let-values(((rhs91_0)" -"(let-values(((s_476)" -"(car" -" s_475)))" -" s_476))" -"(()" +" s_51)))" "(let-values(((s_55)" -"(cdr" -" s_475)))" -"(let-values(((s_309)" "(if(syntax?$1" -" s_55)" +" s_479)" "(syntax-e$1" +" s_479)" +" s_479)))" +"(if(pair?" " s_55)" +"(let-values(((rhs91_0)" +"(let-values(((s_480)" +"(car" " s_55)))" +" s_480))" +"(()" +"(let-values(((s_312)" +"(cdr" +" s_55)))" +"(let-values(((s_56)" +"(if(syntax?$1" +" s_312)" +"(syntax-e$1" +" s_312)" +" s_312)))" "(if(null?" -" s_309)" +" s_56)" "(values)" "(raise-syntax-error$1" " #f" @@ -62047,7 +62074,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_321)))" -"((letrec-values(((for-loop_285)" +"((letrec-values(((for-loop_286)" "(lambda(fold-var_187" " lst_322)" "(begin" @@ -62090,12 +62117,12 @@ static const char *startup_source = " fold-var_36)))))" "(if(not" " #f)" -"(for-loop_285" +"(for-loop_286" " fold-var_243" " rest_183)" " fold-var_243)))" " fold-var_187)))))" -" for-loop_285)" +" for-loop_286)" " null" " lst_321))))))" "(let-values(((extended-env_0)" @@ -62116,7 +62143,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_199)))" -"((letrec-values(((for-loop_286)" +"((letrec-values(((for-loop_287)" "(lambda(env_17" " lst_323" " lst_275)" @@ -62153,24 +62180,24 @@ static const char *startup_source = " env_20)))))" "(if(not" " #f)" -"(for-loop_286" +"(for-loop_287" " env_18" " rest_149" " rest_184)" " env_18)))" " env_17)))))" -" for-loop_286)" +" for-loop_287)" "(expand-context-env" " body-ctx_2)" " lst_232" " lst_199)))))" -"(loop_120" -"(let-values(((v_255)" +"(loop_40" +"(let-values(((v_254)" " body-ctx_2))" -"(let-values(((the-struct_88)" -" v_255))" +"(let-values(((the-struct_87)" +" v_254))" "(if(expand-context/outer?" -" the-struct_88)" +" the-struct_87)" "(let-values(((env102_0)" " extended-env_0)" "((binding-layer103_0)" @@ -62179,39 +62206,39 @@ static const char *startup_source = " body-ctx_2))" "((inner104_0)" "(root-expand-context/outer-inner" -" v_255)))" +" v_254)))" "(expand-context/outer1.1" " inner104_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_88)" +" the-struct_87)" "(root-expand-context/outer-use-site-scopes" -" the-struct_88)" +" the-struct_87)" "(root-expand-context/outer-frame-id" -" the-struct_88)" +" the-struct_87)" "(expand-context/outer-context" -" the-struct_88)" +" the-struct_87)" " env102_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_88)" +" the-struct_87)" "(expand-context/outer-scopes" -" the-struct_88)" +" the-struct_87)" "(expand-context/outer-def-ctx-scopes" -" the-struct_88)" +" the-struct_87)" " binding-layer103_0" "(expand-context/outer-reference-records" -" the-struct_88)" +" the-struct_87)" "(expand-context/outer-only-immediate?" -" the-struct_88)" +" the-struct_87)" "(expand-context/outer-need-eventually-defined" -" the-struct_88)" +" the-struct_87)" "(expand-context/outer-current-introduction-scopes" -" the-struct_88)" +" the-struct_87)" "(expand-context/outer-name" -" the-struct_88)))" +" the-struct_87)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_88))))" +" the-struct_87))))" " rest-bodys_0" " null" "(cons" @@ -62227,7 +62254,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_324)))" -"((letrec-values(((for-loop_287)" +"((letrec-values(((for-loop_288)" "(lambda(fold-var_296" " lst_325)" "(begin" @@ -62253,12 +62280,12 @@ static const char *startup_source = " fold-var_299)))))" "(if(not" " #f)" -"(for-loop_287" +"(for-loop_288" " fold-var_297" " rest_185)" " fold-var_297)))" " fold-var_296)))))" -" for-loop_287)" +" for-loop_288)" " null" " lst_324))))" " val-idss_0))" @@ -62275,7 +62302,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_32)))" -"((letrec-values(((for-loop_288)" +"((letrec-values(((for-loop_289)" "(lambda(fold-var_300" " lst_326)" "(begin" @@ -62301,12 +62328,12 @@ static const char *startup_source = " fold-var_303)))))" "(if(not" " #f)" -"(for-loop_288" +"(for-loop_289" " fold-var_301" " rest_186)" " fold-var_301)))" " fold-var_300)))))" -" for-loop_288)" +" for-loop_289)" " null" " lst_32))))" " val-keyss_0))" @@ -62345,7 +62372,7 @@ static const char *startup_source = "(let-values()" "(no-binds" " done-body_2" -" s_172" +" s_174" " phase_143))" " fold-var_141))))" "(values" @@ -62374,7 +62401,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_107)))" -"((letrec-values(((for-loop_289)" +"((letrec-values(((for-loop_290)" "(lambda(fold-var_142" " lst_108)" "(begin" @@ -62400,12 +62427,12 @@ static const char *startup_source = " fold-var_308)))))" "(if(not" " #f)" -"(for-loop_289" +"(for-loop_290" " fold-var_307" " rest_188)" " fold-var_307)))" " fold-var_142)))))" -" for-loop_289)" +" for-loop_290)" " null" " lst_107))))" " track-stxs_0))" @@ -62431,52 +62458,52 @@ static const char *startup_source = " define-syntaxes105_0" " id106_2" " rhs107_0)" -"(let-values(((s_477)" +"(let-values(((s_481)" " disarmed-exp-body_0))" "(let-values(((orig-s_40)" -" s_477))" +" s_481))" "(let-values(((define-syntaxes105_1" " id106_3" " rhs107_1)" -"(let-values(((s_94)" -"(if(syntax?$1" -" s_477)" -"(syntax-e$1" -" s_477)" -" s_477)))" -"(if(pair?" -" s_94)" -"(let-values(((define-syntaxes108_0)" -"(let-values(((s_150)" -"(car" -" s_94)))" -" s_150))" -"((id109_0" -" rhs110_0)" -"(let-values(((s_95)" -"(cdr" -" s_94)))" "(let-values(((s_96)" "(if(syntax?$1" -" s_95)" +" s_481)" "(syntax-e$1" -" s_95)" -" s_95)))" +" s_481)" +" s_481)))" "(if(pair?" " s_96)" -"(let-values(((id111_0)" -"(let-values(((s_208)" +"(let-values(((define-syntaxes108_0)" +"(let-values(((s_152)" "(car" " s_96)))" +" s_152))" +"((id109_0" +" rhs110_0)" "(let-values(((s_97)" +"(cdr" +" s_96)))" +"(let-values(((s_98)" "(if(syntax?$1" -" s_208)" +" s_97)" "(syntax-e$1" -" s_208)" -" s_208)))" +" s_97)" +" s_97)))" +"(if(pair?" +" s_98)" +"(let-values(((id111_0)" +"(let-values(((s_212)" +"(car" +" s_98)))" +"(let-values(((s_99)" +"(if(syntax?$1" +" s_212)" +"(syntax-e$1" +" s_212)" +" s_212)))" "(let-values(((flat-s_26)" "(to-syntax-list.1" -" s_97)))" +" s_99)))" "(if(not" " flat-s_26)" "(let-values()" @@ -62495,14 +62522,14 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_328)))" -"((letrec-values(((for-loop_290)" +"((letrec-values(((for-loop_291)" "(lambda(id_115" " lst_35)" "(begin" " 'for-loop" "(if(pair?" " lst_35)" -"(let-values(((s_478)" +"(let-values(((s_482)" "(unsafe-car" " lst_35))" "((rest_189)" @@ -62515,23 +62542,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id114_0)" "(let-values()" -"(if(let-values(((or-part_317)" +"(if(let-values(((or-part_315)" "(if(syntax?$1" -" s_478)" +" s_482)" "(symbol?" "(syntax-e$1" -" s_478))" +" s_482))" " #f)))" -"(if or-part_317" -" or-part_317" +"(if or-part_315" +" or-part_315" "(symbol?" -" s_478)))" -" s_478" +" s_482)))" +" s_482" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_40" -" s_478)))))" +" s_482)))))" "(cons" " id114_0" " id_117)))))" @@ -62539,45 +62566,45 @@ static const char *startup_source = " id_118)))))" "(if(not" " #f)" -"(for-loop_290" +"(for-loop_291" " id_116" " rest_189)" " id_116)))" " id_115)))))" -" for-loop_290)" +" for-loop_291)" " null" " lst_328)))))" "(reverse$1" " id_114))))))))" "((rhs112_0)" -"(let-values(((s_479)" +"(let-values(((s_483)" "(cdr" -" s_96)))" -"(let-values(((s_480)" +" s_98)))" +"(let-values(((s_484)" "(if(syntax?$1" -" s_479)" +" s_483)" "(syntax-e$1" -" s_479)" -" s_479)))" +" s_483)" +" s_483)))" "(if(pair?" -" s_480)" +" s_484)" "(let-values(((rhs113_0)" -"(let-values(((s_100)" +"(let-values(((s_102)" "(car" -" s_480)))" -" s_100))" +" s_484)))" +" s_102))" "(()" -"(let-values(((s_319)" +"(let-values(((s_323)" "(cdr" -" s_480)))" -"(let-values(((s_481)" +" s_484)))" +"(let-values(((s_485)" "(if(syntax?$1" -" s_319)" +" s_323)" "(syntax-e$1" -" s_319)" -" s_319)))" +" s_323)" +" s_323)))" "(if(null?" -" s_481)" +" s_485)" "(values)" "(raise-syntax-error$1" " #f" @@ -62662,7 +62689,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_329)))" -"((letrec-values(((for-loop_291)" +"((letrec-values(((for-loop_292)" "(lambda(fold-var_309" " lst_330)" "(begin" @@ -62705,12 +62732,12 @@ static const char *startup_source = " fold-var_312)))))" "(if(not" " #f)" -"(for-loop_291" +"(for-loop_292" " fold-var_310" " rest_190)" " fold-var_310)))" " fold-var_309)))))" -" for-loop_291)" +" for-loop_292)" " null" " lst_329))))))" "(let-values((()" @@ -62775,7 +62802,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_332)))" -"((letrec-values(((for-loop_292)" +"((letrec-values(((for-loop_293)" "(lambda(env_21" " lst_333" " lst_334" @@ -62827,14 +62854,14 @@ static const char *startup_source = " env_24)))))" "(if(not" " #f)" -"(for-loop_292" +"(for-loop_293" " env_22" " rest_191" " rest_192" " rest_193)" " env_22)))" " env_21)))))" -" for-loop_292)" +" for-loop_293)" "(expand-context-env" " body-ctx_2)" " lst_46" @@ -62851,11 +62878,11 @@ static const char *startup_source = " obs_74" " 'exit-bind)))" "(void)))" -"(loop_120" -"(let-values(((v_256)" +"(loop_40" +"(let-values(((v_255)" " body-ctx_2))" "(let-values(((the-struct_32)" -" v_256))" +" v_255))" "(if(expand-context/outer?" " the-struct_32)" "(let-values(((env124_0)" @@ -62866,7 +62893,7 @@ static const char *startup_source = " body-ctx_2))" "((inner126_0)" "(root-expand-context/outer-inner" -" v_256)))" +" v_255)))" "(expand-context/outer1.1" " inner126_0" "(root-expand-context/outer-post-expansion-scope" @@ -62926,7 +62953,7 @@ static const char *startup_source = "(let-values()" "(error" " \"internal error: accumulated expressions not empty\")))" -"(loop_120" +"(loop_40" " body-ctx_2" " null" "(if(if(null? val-idss_0)" @@ -62954,7 +62981,7 @@ static const char *startup_source = " stx-clauses_0" " dups_0)))" "(let-values()" -"(loop_120" +"(loop_40" " body-ctx_2" " rest-bodys_0" "(cons exp-body_0 done-bodys_0)" @@ -62965,7 +62992,7 @@ static const char *startup_source = " trans-idss_1" " stx-clauses_0" " dups_0))))))))))))))))))" -" loop_120)" +" loop_40)" " body-ctx_0" " init-bodys_0" " null" @@ -63002,7 +63029,7 @@ 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_226) source10_0))" +"(let-values(((s_230) source10_0))" "(let-values(((stratified?_1) stratified?11_0))" "(let-values(((name_79) name12_0))" "(let-values(((disappeared-transformer-bindings_0) disappeared-transformer-bindings13_0))" @@ -63014,16 +63041,16 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"no expression after a sequence of internal definitions\"" -" s_226))" +" s_230))" "(void))" "(values))))" "(let-values(((finish-ctx_0)" -"(let-values(((v_257)" +"(let-values(((v_256)" "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_89) v_257))" -"(if(expand-context/outer? the-struct_89)" +"(let-values(((the-struct_88) v_256))" +"(if(expand-context/outer? the-struct_88)" "(let-values(((context127_0) 'expression)" "((use-site-scopes128_0)(box null))" "((scopes129_0)" @@ -63036,29 +63063,29 @@ static const char *startup_source = "((def-ctx-scopes131_0) #f)" "((post-expansion-scope132_0) #f)" "((inner133_0)" -"(root-expand-context/outer-inner v_257)))" +"(root-expand-context/outer-inner v_256)))" "(expand-context/outer1.1" " inner133_0" " post-expansion-scope132_0" " use-site-scopes128_0" -"(root-expand-context/outer-frame-id the-struct_89)" +"(root-expand-context/outer-frame-id the-struct_88)" " context127_0" -"(expand-context/outer-env the-struct_89)" +"(expand-context/outer-env the-struct_88)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_89)" +" the-struct_88)" " scopes129_0" " def-ctx-scopes131_0" -"(expand-context/outer-binding-layer the-struct_89)" -"(expand-context/outer-reference-records the-struct_89)" +"(expand-context/outer-binding-layer the-struct_88)" +"(expand-context/outer-reference-records the-struct_88)" " only-immediate?130_0" -"(expand-context/outer-need-eventually-defined the-struct_89)" +"(expand-context/outer-need-eventually-defined the-struct_88)" "(expand-context/outer-current-introduction-scopes" -" the-struct_89)" -"(expand-context/outer-name the-struct_89)))" +" the-struct_88)" +"(expand-context/outer-name the-struct_88)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_89))))))" +" the-struct_88))))))" "(let-values(((finish-bodys_0)" "(lambda()" "(begin" @@ -63112,7 +63139,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-naturals start_66)))" -"((letrec-values(((for-loop_293)" +"((letrec-values(((for-loop_294)" "(lambda(fold-var_313" " lst_337" " pos_127)" @@ -63156,50 +63183,50 @@ static const char *startup_source = " i_190" " last-i_1)" " #f)" -"(let-values(((v_258)" +"(let-values(((v_257)" " finish-ctx_0))" -"(let-values(((the-struct_90)" -" v_258))" +"(let-values(((the-struct_89)" +" v_257))" "(if(expand-context/outer?" -" the-struct_90)" +" the-struct_89)" "(let-values(((name136_0)" " name_79)" "((inner137_0)" "(root-expand-context/outer-inner" -" v_258)))" +" v_257)))" "(expand-context/outer1.1" " inner137_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_90)" +" the-struct_89)" "(root-expand-context/outer-use-site-scopes" -" the-struct_90)" +" the-struct_89)" "(root-expand-context/outer-frame-id" -" the-struct_90)" +" the-struct_89)" "(expand-context/outer-context" -" the-struct_90)" +" the-struct_89)" "(expand-context/outer-env" -" the-struct_90)" +" the-struct_89)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_90)" +" the-struct_89)" "(expand-context/outer-scopes" -" the-struct_90)" +" the-struct_89)" "(expand-context/outer-def-ctx-scopes" -" the-struct_90)" +" the-struct_89)" "(expand-context/outer-binding-layer" -" the-struct_90)" +" the-struct_89)" "(expand-context/outer-reference-records" -" the-struct_90)" +" the-struct_89)" "(expand-context/outer-only-immediate?" -" the-struct_90)" +" the-struct_89)" "(expand-context/outer-need-eventually-defined" -" the-struct_90)" +" the-struct_89)" "(expand-context/outer-current-introduction-scopes" -" the-struct_90)" +" the-struct_89)" " name136_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_90))))" +" the-struct_89))))" " finish-ctx_0)))" "(expand7.1" " #f" @@ -63213,7 +63240,7 @@ static const char *startup_source = " fold-var_316)))))" "(if(not" " #f)" -"(for-loop_293" +"(for-loop_294" " fold-var_314" " rest_194" "(+" @@ -63221,7 +63248,7 @@ static const char *startup_source = " 1))" " fold-var_314)))" " fold-var_313)))))" -" for-loop_293)" +" for-loop_294)" " null" " lst_336" " start_66))))))" @@ -63248,7 +63275,7 @@ static const char *startup_source = "(call-expand-observe" " obs_79" " 'block->list" -"(datum->syntax$1 s_226 done-bodys_1))))" +"(datum->syntax$1 s_230 done-bodys_1))))" "(void)))" "(finish-bodys_0)))" "(let-values()" @@ -63261,7 +63288,7 @@ static const char *startup_source = "(log-letrec-values$1" " obs_80" " finish-ctx_0" -" s_226" +" s_230" " val-idss_1" " val-rhss_1" " track-stxs_1" @@ -63277,7 +63304,7 @@ static const char *startup_source = "((temp142_2)(not stratified?_1))" "((frame-id143_0) frame-id_13)" "((finish-ctx144_0) finish-ctx_0)" -"((s145_0) s_226)" +"((s145_0) s_230)" "((temp146_3)(pair? stx-clauses_1))" "((finish-bodys147_0) finish-bodys_0)" "((temp148_0) #f))" @@ -63330,7 +63357,7 @@ static const char *startup_source = "(let-values(((split?_0) split?30_0))" "(let-values(((frame-id_14) frame-id31_0))" "(let-values(((ctx_77) ctx32_0))" -"(let-values(((s_482) source33_0))" +"(let-values(((s_486) 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))" @@ -63360,12 +63387,12 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_77)" "(if(null? accum-idss_0)" "(parsed-let-values17.1" -"(keep-properties-only s_482)" +"(keep-properties-only s_486)" " null" " null" " exp-body_1)" "(parsed-letrec-values18.1" -"(keep-properties-only s_482)" +"(keep-properties-only s_486)" "(reverse$1 accum-idss_0)" "(reverse$1" "(map2" @@ -63374,7 +63401,7 @@ static const char *startup_source = " accum-rhss_0))" " exp-body_1))" "(let-values(((track?149_0) track?_2)" -"((s150_0) s_482)" +"((s150_0) s_486)" "((temp151_3)" "(list*" "(if(null? accum-idss_0)" @@ -63479,7 +63506,7 @@ static const char *startup_source = " ctx_77)" "(parsed-let-values17.1" "(keep-properties-only" -" s_482)" +" s_486)" "(list ids_31)" "(list" "(list" @@ -63489,7 +63516,7 @@ static const char *startup_source = "(let-values(((track?154_0)" " track?_2)" "((s155_0)" -" s_482)" +" s_486)" "((temp156_0)" "(list*" "(core-id" @@ -63528,9 +63555,9 @@ static const char *startup_source = "(list result-s_10)" " result-s_10))))))" "(if(if(not forward-references?_0)" -"(let-values(((or-part_370) split?_0))" -"(if or-part_370" -" or-part_370" +"(let-values(((or-part_369) split?_0))" +"(if or-part_369" +" or-part_369" "(null?(cdr idss_2))))" " #f)" "(let-values()" @@ -63552,7 +63579,7 @@ static const char *startup_source = " ctx_77)" "(parsed-letrec-values18.1" "(keep-properties-only" -" s_482)" +" s_486)" "(reverse$1" "(cons" " ids_31" @@ -63570,7 +63597,7 @@ static const char *startup_source = "(let-values(((track?157_0)" " track?_2)" "((s158_0)" -" s_482)" +" s_486)" "((temp159_0)" "(list*" "(core-id" @@ -63650,19 +63677,19 @@ static const char *startup_source = "(if track-stx_1(syntax-track-origin$1 clause_2 track-stx_1) clause_2)))))" "(define-values" "(no-binds)" -"(lambda(expr_10 s_483 phase_145)" +"(lambda(expr_10 s_487 phase_145)" "(begin" "(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_145)))" "(datum->syntax$1" "(core-id '#%app phase_145)" "(list(core-id 'begin phase_145) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" -" s_483)))))" +" s_487)))))" "(define-values" "(log-tag?)" "(lambda(had-stxes?_1 ctx_78)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_78)) #f))))" "(define-values" "(log-letrec-values$1)" -"(lambda(obs_85 ctx_79 s_484 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" +"(lambda(obs_85 ctx_79 s_488 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" "(begin" " 'log-letrec-values" "(let-values(((phase_146)(expand-context-phase ctx_79)))" @@ -63679,7 +63706,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_338)))" -"((letrec-values(((for-loop_294)" +"((letrec-values(((for-loop_295)" "(lambda(fold-var_317 lst_339 lst_340 lst_341)" "(begin" " 'for-loop" @@ -63703,10 +63730,10 @@ static const char *startup_source = " fold-var_319))))" "(values fold-var_320)))))" "(if(not #f)" -"(for-loop_294 fold-var_318 rest_195 rest_196 rest_62)" +"(for-loop_295 fold-var_318 rest_195 rest_196 rest_62)" " fold-var_318)))" " fold-var_317)))))" -" for-loop_294)" +" for-loop_295)" " null" " lst_247" " lst_248" @@ -63719,7 +63746,7 @@ static const char *startup_source = "(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_484)))" +" s_488)))" "(begin" "(call-expand-observe obs_85 'block->letrec(list lv-s_0))" "(call-expand-observe obs_85 'visit lv-s_0)" @@ -63734,7 +63761,7 @@ static const char *startup_source = " 'letrec-syntaxes-renames" " stx-clauses_2" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_484))" +"(datum->syntax$1 #f done-bodys_2 s_488))" "(call-expand-observe obs_85 'prepare-env)" "(call-expand-observe obs_85 'next-group)" "(if(null? val-idss_2)" @@ -63746,7 +63773,7 @@ static const char *startup_source = " obs_85" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_484)))))))" +"(datum->syntax$1 #f done-bodys_2 s_488)))))))" "(let-values()" "(begin" "(call-expand-observe obs_85 'prim-letrec-values)" @@ -63754,10 +63781,10 @@ static const char *startup_source = " obs_85" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_484))))))))))))))" +"(datum->syntax$1 #f done-bodys_2 s_488))))))))))))))" "(define-values" "(lambda-clause-expander)" -"(lambda(s_71 disarmed-s_5 formals_1 bodys_9 ctx_80 log-renames-tag_0)" +"(lambda(s_73 disarmed-s_5 formals_1 bodys_9 ctx_80 log-renames-tag_0)" "(begin" "(let-values(((sc_35)(new-scope 'local)))" "(let-values(((phase_147)(expand-context-phase ctx_80)))" @@ -63766,7 +63793,7 @@ static const char *startup_source = "(begin" "(let-values(((ids34_0) ids_33)" "((phase35_2) phase_147)" -"((s36_0) s_71)" +"((s36_0) s_73)" " ((temp37_4) \"argument name\"))" "(check-no-duplicate-ids8.1 temp37_4 #t ids34_0 phase35_2 s36_0 #f #f))" "(values))))" @@ -63778,7 +63805,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_88)))" -"((letrec-values(((for-loop_295)" +"((letrec-values(((for-loop_296)" "(lambda(fold-var_321 lst_267)" "(begin" " 'for-loop" @@ -63798,7 +63825,7 @@ static const char *startup_source = "((counter40_0)" " counter_7)" "((s41_0)" -" s_71))" +" s_73))" "(add-local-binding!37.1" " #f" " #f" @@ -63810,10 +63837,10 @@ static const char *startup_source = " fold-var_34))))" "(values fold-var_159)))))" "(if(not #f)" -"(for-loop_295 fold-var_33 rest_197)" +"(for-loop_296 fold-var_33 rest_197)" " fold-var_33)))" " fold-var_321)))))" -" for-loop_295)" +" for-loop_296)" " null" " lst_88))))))" "(let-values(((body-env_0)" @@ -63900,40 +63927,40 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_4)" -"(let-values(((v_259) ctx_80))" -"(let-values(((the-struct_91) v_259))" -"(if(expand-context/outer? the-struct_91)" +"(let-values(((v_258) ctx_80))" +"(let-values(((the-struct_90) v_258))" +"(if(expand-context/outer? the-struct_90)" "(let-values(((env42_0) body-env_0)" "((scopes43_1)(cons sc_35(expand-context-scopes ctx_80)))" "((binding-layer44_0)" "(increment-binding-layer ids_33 ctx_80 sc_35))" "((frame-id45_0) #f)" -"((inner46_0)(root-expand-context/outer-inner v_259)))" +"((inner46_0)(root-expand-context/outer-inner v_258)))" "(expand-context/outer1.1" " inner46_0" -"(root-expand-context/outer-post-expansion-scope the-struct_91)" -"(root-expand-context/outer-use-site-scopes the-struct_91)" +"(root-expand-context/outer-post-expansion-scope the-struct_90)" +"(root-expand-context/outer-use-site-scopes the-struct_90)" " frame-id45_0" -"(expand-context/outer-context the-struct_91)" +"(expand-context/outer-context the-struct_90)" " env42_0" -"(expand-context/outer-post-expansion-scope-action the-struct_91)" +"(expand-context/outer-post-expansion-scope-action the-struct_90)" " scopes43_1" -"(expand-context/outer-def-ctx-scopes the-struct_91)" +"(expand-context/outer-def-ctx-scopes the-struct_90)" " binding-layer44_0" -"(expand-context/outer-reference-records the-struct_91)" -"(expand-context/outer-only-immediate? the-struct_91)" -"(expand-context/outer-need-eventually-defined the-struct_91)" -"(expand-context/outer-current-introduction-scopes the-struct_91)" -"(expand-context/outer-name the-struct_91)))" +"(expand-context/outer-reference-records the-struct_90)" +"(expand-context/outer-only-immediate? the-struct_90)" +"(expand-context/outer-need-eventually-defined the-struct_90)" +"(expand-context/outer-current-introduction-scopes the-struct_90)" +"(expand-context/outer-name the-struct_90)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_91))))))" +" the-struct_90))))))" "(let-values(((exp-body_2)" "(let-values(((sc-bodys47_0) sc-bodys_0)" "((body-ctx48_0) body-ctx_4)" "((temp49_3)" -"(let-values(((ctx50_0) ctx_80)((s51_2) s_71)((temp52_5) #t))" +"(let-values(((ctx50_0) ctx_80)((s51_2) s_73)((temp52_5) #t))" "(keep-as-needed85.1 #f #f temp52_5 #t #f #f ctx50_0 s51_2))))" "(expand-body7.1 temp49_3 #f #f sc-bodys47_0 body-ctx48_0))))" "(values" @@ -63952,31 +63979,31 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_6)(syntax-disarm$1 s_15)))" "(let-values(((ok?_33 lambda53_0 formals54_0 body55_0)" -"(let-values(((s_422) disarmed-s_6))" -"(let-values(((orig-s_41) s_422))" +"(let-values(((s_427) disarmed-s_6))" +"(let-values(((orig-s_41) s_427))" "(let-values(((lambda53_1 formals54_1 body55_1)" -"(let-values(((s_165)(if(syntax?$1 s_422)(syntax-e$1 s_422) s_422)))" -"(if(pair? s_165)" -"(let-values(((lambda56_0)(let-values(((s_485)(car s_165))) s_485))" +"(let-values(((s_167)(if(syntax?$1 s_427)(syntax-e$1 s_427) s_427)))" +"(if(pair? s_167)" +"(let-values(((lambda56_0)(let-values(((s_489)(car s_167))) s_489))" "((formals57_0 body58_0)" -"(let-values(((s_468)(cdr s_165)))" -"(let-values(((s_461)" -"(if(syntax?$1 s_468)" -"(syntax-e$1 s_468)" -" s_468)))" -"(if(pair? s_461)" +"(let-values(((s_473)(cdr s_167)))" +"(let-values(((s_466)" +"(if(syntax?$1 s_473)" +"(syntax-e$1 s_473)" +" s_473)))" +"(if(pair? s_466)" "(let-values(((formals59_0)" -"(let-values(((s_469)(car s_461)))" -" s_469))" +"(let-values(((s_474)(car s_466)))" +" s_474))" "((body60_0)" -"(let-values(((s_67)(cdr s_461)))" -"(let-values(((s_168)" -"(if(syntax?$1 s_67)" -"(syntax-e$1 s_67)" -" s_67)))" +"(let-values(((s_69)(cdr s_466)))" +"(let-values(((s_170)" +"(if(syntax?$1 s_69)" +"(syntax-e$1 s_69)" +" s_69)))" "(let-values(((flat-s_27)" "(to-syntax-list.1" -" s_168)))" +" s_170)))" "(if(not flat-s_27)" "(let-values()" "(raise-syntax-error$1" @@ -64008,29 +64035,29 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'λ" -"(lambda(s_486)" +"(lambda(s_490)" "(let-values(((ok?_34 lam-id66_0 formals67_0 _68_0)" -"(let-values(((s_487) s_486))" -"(let-values(((orig-s_42) s_487))" +"(let-values(((s_491) s_490))" +"(let-values(((orig-s_42) s_491))" "(let-values(((lam-id66_1 formals67_1 _68_1)" -"(let-values(((s_304)(if(syntax?$1 s_487)(syntax-e$1 s_487) s_487)))" -"(if(pair? s_304)" -"(let-values(((lam-id69_0)(let-values(((s_49)(car s_304))) s_49))" +"(let-values(((s_308)(if(syntax?$1 s_491)(syntax-e$1 s_491) s_491)))" +"(if(pair? s_308)" +"(let-values(((lam-id69_0)(let-values(((s_49)(car s_308))) s_49))" "((formals70_0 _71_1)" -"(let-values(((s_50)(cdr s_304)))" +"(let-values(((s_50)(cdr s_308)))" "(let-values(((s_32)" "(if(syntax?$1 s_50)(syntax-e$1 s_50) s_50)))" "(if(pair? s_32)" "(let-values(((formals72_0)" -"(let-values(((s_488)(car s_32))) s_488))" +"(let-values(((s_492)(car s_32))) s_492))" "((_73_0)" -"(let-values(((s_305)(cdr s_32)))" -"(let-values(((s_384)" -"(if(syntax?$1 s_305)" -"(syntax-e$1 s_305)" -" s_305)))" +"(let-values(((s_309)(cdr s_32)))" +"(let-values(((s_389)" +"(if(syntax?$1 s_309)" +"(syntax-e$1 s_309)" +" s_309)))" "(let-values(((flat-s_25)" -"(to-syntax-list.1 s_384)))" +"(to-syntax-list.1 s_389)))" "(if(not flat-s_25)" "(let-values()" "(raise-syntax-error$1" @@ -64049,23 +64076,23 @@ static const char *startup_source = "(values lam-id69_0 formals70_0 _71_1))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42)))))" "(values #t lam-id66_1 formals67_1 _68_1))))))" -"(let-values(((ids_34)(parse-and-flatten-formals formals67_0 #f s_486)))" +"(let-values(((ids_34)(parse-and-flatten-formals formals67_0 #f s_490)))" "(let-values(((ctx_82)(let-values(((temp78_3) #t))(get-current-expand-context17.1 temp78_3 #t #f #f))))" "(let-values(((phase_148)(if ctx_82(expand-context-phase ctx_82) 0)))" "(begin" -" (let-values (((ids74_0) ids_34) ((phase75_0) phase_148) ((s76_2) s_486) ((temp77_4) \"argument name\"))" +" (let-values (((ids74_0) ids_34) ((phase75_0) phase_148) ((s76_2) s_490) ((temp77_4) \"argument name\"))" "(check-no-duplicate-ids8.1 temp77_4 #t ids74_0 phase75_0 s76_2 #f #f))" "(datum->syntax$1" -" s_486" +" s_490" "(cons" "(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_148) 'lambda lam-id66_0 lam-id66_0)" -"(cdr(syntax-e$1 s_486)))" -" s_486" -" s_486)))))))))" +"(cdr(syntax-e$1 s_490)))" +" s_490" +" s_490)))))))))" "(void" "(add-core-form!*" " 'case-lambda" -"(lambda(s_489 ctx_83)" +"(lambda(s_493 ctx_83)" "(let-values((()" "(begin" "(let-values(((obs_86)(expand-context-observer ctx_83)))" @@ -64073,20 +64100,20 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_86 'prim-case-lambda)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_7)(syntax-disarm$1 s_489)))" +"(let-values(((disarmed-s_7)(syntax-disarm$1 s_493)))" "(let-values(((ok?_35 case-lambda79_0 formals80_0 body81_0)" -"(let-values(((s_58) disarmed-s_7))" -"(let-values(((orig-s_43) s_58))" +"(let-values(((s_494) disarmed-s_7))" +"(let-values(((orig-s_43) s_494))" "(let-values(((case-lambda79_1 formals80_1 body81_1)" -"(let-values(((s_490)(if(syntax?$1 s_58)(syntax-e$1 s_58) s_58)))" -"(if(pair? s_490)" -"(let-values(((case-lambda82_0)(let-values(((s_60)(car s_490))) s_60))" +"(let-values(((s_495)(if(syntax?$1 s_494)(syntax-e$1 s_494) s_494)))" +"(if(pair? s_495)" +"(let-values(((case-lambda82_0)(let-values(((s_199)(car s_495))) s_199))" "((formals83_0 body84_0)" -"(let-values(((s_491)(cdr s_490)))" +"(let-values(((s_61)(cdr s_495)))" "(let-values(((s_36)" -"(if(syntax?$1 s_491)" -"(syntax-e$1 s_491)" -" s_491)))" +"(if(syntax?$1 s_61)" +"(syntax-e$1 s_61)" +" s_61)))" "(let-values(((flat-s_28)(to-syntax-list.1 s_36)))" "(if(not flat-s_28)" "(let-values()" @@ -64100,7 +64127,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_342)))" -"((letrec-values(((for-loop_296)" +"((letrec-values(((for-loop_297)" "(lambda(formals_4" " body_15" " lst_343)" @@ -64108,7 +64135,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_343)" -"(let-values(((s_312)" +"(let-values(((s_316)" "(unsafe-car" " lst_343))" "((rest_199)" @@ -64126,32 +64153,32 @@ static const char *startup_source = "(let-values(((formals91_0" " body92_0)" "(let-values()" -"(let-values(((s_65)" +"(let-values(((s_202)" "(if(syntax?$1" -" s_312)" +" s_316)" "(syntax-e$1" -" s_312)" -" s_312)))" +" s_316)" +" s_316)))" "(if(pair?" -" s_65)" +" s_202)" "(let-values(((formals85_0)" -"(let-values(((s_89)" +"(let-values(((s_91)" "(car" -" s_65)))" -" s_89))" +" s_202)))" +" s_91))" "((body86_0)" -"(let-values(((s_199)" +"(let-values(((s_203)" "(cdr" -" s_65)))" -"(let-values(((s_492)" +" s_202)))" +"(let-values(((s_496)" "(if(syntax?$1" -" s_199)" +" s_203)" "(syntax-e$1" -" s_199)" -" s_199)))" +" s_203)" +" s_203)))" "(let-values(((flat-s_29)" "(to-syntax-list.1" -" s_492)))" +" s_496)))" "(if(not" " flat-s_29)" "(let-values()" @@ -64187,7 +64214,7 @@ static const char *startup_source = " body_18)))))" "(if(not" " #f)" -"(for-loop_296" +"(for-loop_297" " formals_5" " body_16" " rest_199)" @@ -64197,7 +64224,7 @@ static const char *startup_source = "(values" " formals_4" " body_15))))))" -" for-loop_296)" +" for-loop_297)" " null" " null" " lst_342)))))" @@ -64208,19 +64235,19 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" "(values #t case-lambda79_1 formals80_1 body81_1))))))" "(let-values(((ok?_36 case-lambda87_0 clause88_0)" -"(let-values(((s_200) disarmed-s_7))" -"(let-values(((orig-s_44) s_200))" +"(let-values(((s_204) disarmed-s_7))" +"(let-values(((orig-s_44) s_204))" "(let-values(((case-lambda87_1 clause88_1)" -"(let-values(((s_493)(if(syntax?$1 s_200)(syntax-e$1 s_200) s_200)))" -"(if(pair? s_493)" -"(let-values(((case-lambda89_0)(let-values(((s_90)(car s_493))) s_90))" +"(let-values(((s_497)(if(syntax?$1 s_204)(syntax-e$1 s_204) s_204)))" +"(if(pair? s_497)" +"(let-values(((case-lambda89_0)(let-values(((s_92)(car s_497))) s_92))" "((clause90_0)" -"(let-values(((s_494)(cdr s_493)))" -"(let-values(((s_428)" -"(if(syntax?$1 s_494)" -"(syntax-e$1 s_494)" -" s_494)))" -"(let-values(((flat-s_30)(to-syntax-list.1 s_428)))" +"(let-values(((s_498)(cdr s_497)))" +"(let-values(((s_433)" +"(if(syntax?$1 s_498)" +"(syntax-e$1 s_498)" +" s_498)))" +"(let-values(((flat-s_30)(to-syntax-list.1 s_433)))" "(if(not flat-s_30)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_44))" @@ -64229,7 +64256,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_44)))))" "(values #t case-lambda87_1 clause88_1))))))" "(let-values(((rebuild-s_5)" -"(let-values(((ctx93_1) ctx_83)((s94_0) s_489)((temp95_3) #t))" +"(let-values(((ctx93_1) ctx_83)((s94_0) s_493)((temp95_3) #t))" "(keep-as-needed85.1 #f #f #f #f temp95_3 #t ctx93_1 s94_0))))" "(let-values(((clauses_1)" "(reverse$1" @@ -64293,7 +64320,7 @@ static const char *startup_source = "(let-values(((exp-formals_0" " exp-body_3)" "(lambda-clause-expander" -" s_489" +" s_493" " disarmed-s_7" " formals_8" " body_19" @@ -64332,7 +64359,7 @@ static const char *startup_source = "(rebuild5.1 #f #f rebuild-s100_0 temp101_5))))))))))))" "(define-values" "(parse-and-flatten-formals)" -"(lambda(all-formals_0 sc_36 s_495)" +"(lambda(all-formals_0 sc_36 s_499)" "(begin" "((letrec-values(((loop_122)" "(lambda(formals_9)" @@ -64347,21 +64374,21 @@ static const char *startup_source = "(let-values()(loop_122 p_88))" "(if(null? p_88)" "(let-values() null)" -" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_495 p_88))))))" +" (let-values () (raise-syntax-error$1 #f \"not an identifier\" s_499 p_88))))))" "(if(pair? formals_9)" "(let-values()" "(begin" "(if(identifier?(car formals_9))" "(void)" "(let-values()" -" (raise-syntax-error$1 #f \"not an identifier\" s_495 (car formals_9))))" +" (raise-syntax-error$1 #f \"not an identifier\" s_499 (car formals_9))))" "(cons" "(if sc_36(add-scope(car formals_9) sc_36)(car formals_9))" "(loop_122(cdr formals_9)))))" "(if(null? formals_9)" "(let-values() null)" "(let-values()" -" (raise-syntax-error$1 \"bad argument sequence\" s_495 all-formals_0))))))))))" +" (raise-syntax-error$1 \"bad argument sequence\" s_499 all-formals_0))))))))))" " loop_122)" " all-formals_0))))" "(define-values" @@ -64401,7 +64428,7 @@ 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_319 ctx_84)" +"(lambda(s_323 ctx_84)" "(let-values((()" "(begin" "(let-values(((obs_87)(expand-context-observer ctx_84)))" @@ -64409,7 +64436,7 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_87 log-tag_0)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_8)(syntax-disarm$1 s_319)))" +"(let-values(((disarmed-s_8)(syntax-disarm$1 s_323)))" "(let-values(((ok?_37" " letrec-syntaxes+values102_0" " id:trans103_0" @@ -64417,47 +64444,47 @@ static const char *startup_source = " id:val105_0" " val-rhs106_0" " body107_0)" -"(let-values(((s_434) disarmed-s_8))" +"(let-values(((s_439) disarmed-s_8))" "(if(if syntaxes?_0 #t #f)" -"(let-values(((orig-s_45) s_434))" +"(let-values(((orig-s_45) s_439))" "(let-values(((letrec-syntaxes+values102_1" " id:trans103_1" " trans-rhs104_1" " id:val105_1" " val-rhs106_1" " body107_1)" -"(let-values(((s_123)" -"(if(syntax?$1 s_434)" -"(syntax-e$1 s_434)" -" s_434)))" -"(if(pair? s_123)" +"(let-values(((s_125)" +"(if(syntax?$1 s_439)" +"(syntax-e$1 s_439)" +" s_439)))" +"(if(pair? s_125)" "(let-values(((letrec-syntaxes+values108_0)" -"(let-values(((s_220)(car s_123))) s_220))" +"(let-values(((s_224)(car s_125))) s_224))" "((id:trans109_0" " trans-rhs110_0" " id:val111_0" " val-rhs112_0" " body113_0)" -"(let-values(((s_124)(cdr s_123)))" -"(let-values(((s_496)" -"(if(syntax?$1 s_124)" -"(syntax-e$1 s_124)" -" s_124)))" -"(if(pair? s_496)" +"(let-values(((s_126)(cdr s_125)))" +"(let-values(((s_500)" +"(if(syntax?$1 s_126)" +"(syntax-e$1 s_126)" +" s_126)))" +"(if(pair? s_500)" "(let-values(((id:trans114_0" " trans-rhs115_0)" -"(let-values(((s_497)" +"(let-values(((s_501)" "(car" -" s_496)))" -"(let-values(((s_221)" +" s_500)))" +"(let-values(((s_225)" "(if(syntax?$1" -" s_497)" +" s_501)" "(syntax-e$1" -" s_497)" -" s_497)))" +" s_501)" +" s_501)))" "(let-values(((flat-s_31)" "(to-syntax-list.1" -" s_221)))" +" s_225)))" "(if(not" " flat-s_31)" "(let-values()" @@ -64485,7 +64512,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_347)" -"(let-values(((s_323)" +"(let-values(((s_327)" "(unsafe-car" " lst_347))" "((rest_202)" @@ -64503,27 +64530,27 @@ static const char *startup_source = "(let-values(((id:trans145_0" " trans-rhs146_0)" "(let-values()" -"(let-values(((s_328)" -"(if(syntax?$1" -" s_323)" -"(syntax-e$1" -" s_323)" -" s_323)))" -"(if(pair?" -" s_328)" -"(let-values(((id:trans119_0)" -"(let-values(((s_331)" -"(car" -" s_328)))" "(let-values(((s_332)" "(if(syntax?$1" -" s_331)" +" s_327)" "(syntax-e$1" -" s_331)" -" s_331)))" +" s_327)" +" s_327)))" +"(if(pair?" +" s_332)" +"(let-values(((id:trans119_0)" +"(let-values(((s_335)" +"(car" +" s_332)))" +"(let-values(((s_336)" +"(if(syntax?$1" +" s_335)" +"(syntax-e$1" +" s_335)" +" s_335)))" "(let-values(((flat-s_32)" "(to-syntax-list.1" -" s_332)))" +" s_336)))" "(if(not" " flat-s_32)" "(let-values()" @@ -64549,7 +64576,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_303)" -"(let-values(((s_229)" +"(let-values(((s_233)" "(unsafe-car" " lst_303))" "((rest_169)" @@ -64562,23 +64589,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans147_0)" "(let-values()" -"(if(let-values(((or-part_371)" +"(if(let-values(((or-part_370)" "(if(syntax?$1" -" s_229)" +" s_233)" "(symbol?" "(syntax-e$1" -" s_229))" +" s_233))" " #f)))" -"(if or-part_371" -" or-part_371" +"(if or-part_370" +" or-part_370" "(symbol?" -" s_229)))" -" s_229" +" s_233)))" +" s_233" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_45" -" s_229)))))" +" s_233)))))" "(cons" " id:trans147_0" " id:trans_8)))))" @@ -64597,34 +64624,34 @@ static const char *startup_source = "(reverse$1" " id:trans_5))))))))" "((trans-rhs120_0)" -"(let-values(((s_498)" +"(let-values(((s_502)" "(cdr" -" s_328)))" -"(let-values(((s_499)" +" s_332)))" +"(let-values(((s_503)" "(if(syntax?$1" -" s_498)" +" s_502)" "(syntax-e$1" -" s_498)" -" s_498)))" +" s_502)" +" s_502)))" "(if(pair?" -" s_499)" +" s_503)" "(let-values(((trans-rhs121_0)" -"(let-values(((s_232)" +"(let-values(((s_236)" "(car" -" s_499)))" -" s_232))" +" s_503)))" +" s_236))" "(()" -"(let-values(((s_233)" +"(let-values(((s_237)" "(cdr" -" s_499)))" -"(let-values(((s_338)" +" s_503)))" +"(let-values(((s_342)" "(if(syntax?$1" -" s_233)" +" s_237)" "(syntax-e$1" -" s_233)" -" s_233)))" +" s_237)" +" s_237)))" "(if(null?" -" s_338)" +" s_342)" "(values)" "(raise-syntax-error$1" " #f" @@ -64677,30 +64704,30 @@ static const char *startup_source = "((id:val116_0" " val-rhs117_0" " body118_0)" -"(let-values(((s_339)" +"(let-values(((s_343)" "(cdr" -" s_496)))" -"(let-values(((s_234)" +" s_500)))" +"(let-values(((s_238)" "(if(syntax?$1" -" s_339)" +" s_343)" "(syntax-e$1" -" s_339)" -" s_339)))" -"(if(pair? s_234)" +" s_343)" +" s_343)))" +"(if(pair? s_238)" "(let-values(((id:val122_0" " val-rhs123_0)" -"(let-values(((s_340)" +"(let-values(((s_344)" "(car" -" s_234)))" -"(let-values(((s_341)" +" s_238)))" +"(let-values(((s_345)" "(if(syntax?$1" -" s_340)" +" s_344)" "(syntax-e$1" -" s_340)" -" s_340)))" +" s_344)" +" s_344)))" "(let-values(((flat-s_33)" "(to-syntax-list.1" -" s_341)))" +" s_345)))" "(if(not" " flat-s_33)" "(let-values()" @@ -64728,7 +64755,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_349)" -"(let-values(((s_346)" +"(let-values(((s_350)" "(unsafe-car" " lst_349))" "((rest_203)" @@ -64746,27 +64773,27 @@ static const char *startup_source = "(let-values(((id:val148_0" " val-rhs149_0)" "(let-values()" -"(let-values(((s_500)" +"(let-values(((s_504)" "(if(syntax?$1" -" s_346)" +" s_350)" "(syntax-e$1" -" s_346)" -" s_346)))" +" s_350)" +" s_350)))" "(if(pair?" -" s_500)" +" s_504)" "(let-values(((id:val125_0)" -"(let-values(((s_351)" +"(let-values(((s_355)" "(car" -" s_500)))" -"(let-values(((s_501)" +" s_504)))" +"(let-values(((s_505)" "(if(syntax?$1" -" s_351)" +" s_355)" "(syntax-e$1" -" s_351)" -" s_351)))" +" s_355)" +" s_355)))" "(let-values(((flat-s_34)" "(to-syntax-list.1" -" s_501)))" +" s_505)))" "(if(not" " flat-s_34)" "(let-values()" @@ -64785,14 +64812,14 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_350)))" -"((letrec-values(((for-loop_297)" +"((letrec-values(((for-loop_298)" "(lambda(id:val_6" " lst_351)" "(begin" " 'for-loop" "(if(pair?" " lst_351)" -"(let-values(((s_502)" +"(let-values(((s_506)" "(unsafe-car" " lst_351))" "((rest_204)" @@ -64805,23 +64832,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val150_0)" "(let-values()" -"(if(let-values(((or-part_372)" +"(if(let-values(((or-part_371)" "(if(syntax?$1" -" s_502)" +" s_506)" "(symbol?" "(syntax-e$1" -" s_502))" +" s_506))" " #f)))" -"(if or-part_372" -" or-part_372" +"(if or-part_371" +" or-part_371" "(symbol?" -" s_502)))" -" s_502" +" s_506)))" +" s_506" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_45" -" s_502)))))" +" s_506)))))" "(cons" " id:val150_0" " id:val_8)))))" @@ -64829,45 +64856,45 @@ static const char *startup_source = " id:val_9)))))" "(if(not" " #f)" -"(for-loop_297" +"(for-loop_298" " id:val_7" " rest_204)" " id:val_7)))" " id:val_6)))))" -" for-loop_297)" +" for-loop_298)" " null" " lst_350)))))" "(reverse$1" " id:val_5))))))))" "((val-rhs126_0)" -"(let-values(((s_239)" +"(let-values(((s_243)" "(cdr" -" s_500)))" -"(let-values(((s_503)" +" s_504)))" +"(let-values(((s_507)" "(if(syntax?$1" -" s_239)" +" s_243)" "(syntax-e$1" -" s_239)" -" s_239)))" +" s_243)" +" s_243)))" "(if(pair?" -" s_503)" +" s_507)" "(let-values(((val-rhs127_0)" -"(let-values(((s_504)" +"(let-values(((s_508)" "(car" -" s_503)))" -" s_504))" +" s_507)))" +" s_508))" "(()" -"(let-values(((s_505)" +"(let-values(((s_509)" "(cdr" -" s_503)))" -"(let-values(((s_240)" +" s_507)))" +"(let-values(((s_244)" "(if(syntax?$1" -" s_505)" +" s_509)" "(syntax-e$1" -" s_505)" -" s_505)))" +" s_509)" +" s_509)))" "(if(null?" -" s_240)" +" s_244)" "(values)" "(raise-syntax-error$1" " #f" @@ -64918,18 +64945,18 @@ static const char *startup_source = "(reverse$1" " val-rhs_1)))))))))" "((body124_0)" -"(let-values(((s_241)" +"(let-values(((s_245)" "(cdr" -" s_234)))" -"(let-values(((s_242)" +" s_238)))" +"(let-values(((s_246)" "(if(syntax?$1" -" s_241)" +" s_245)" "(syntax-e$1" -" s_241)" -" s_241)))" +" s_245)" +" s_245)))" "(let-values(((flat-s_35)" "(to-syntax-list.1" -" s_242)))" +" s_246)))" "(if(not" " flat-s_35)" "(let-values()" @@ -64982,39 +65009,39 @@ static const char *startup_source = " body107_1)))" "(values #f #f #f #f #f #f #f)))))" "(let-values(((ok?_38 let-values128_0 id:val129_0 val-rhs130_0 body131_0)" -"(let-values(((s_506) disarmed-s_8))" +"(let-values(((s_510) disarmed-s_8))" "(if(if(not syntaxes?_0) #t #f)" -"(let-values(((orig-s_46) s_506))" +"(let-values(((orig-s_46) s_510))" "(let-values(((let-values128_1 id:val129_1 val-rhs130_1 body131_1)" -"(let-values(((s_507)" -"(if(syntax?$1 s_506)" -"(syntax-e$1 s_506)" -" s_506)))" -"(if(pair? s_507)" +"(let-values(((s_511)" +"(if(syntax?$1 s_510)" +"(syntax-e$1 s_510)" +" s_510)))" +"(if(pair? s_511)" "(let-values(((let-values132_0)" -"(let-values(((s_508)(car s_507)))" -" s_508))" +"(let-values(((s_512)(car s_511)))" +" s_512))" "((id:val133_0 val-rhs134_0 body135_0)" -"(let-values(((s_440)(cdr s_507)))" -"(let-values(((s_441)" -"(if(syntax?$1 s_440)" -"(syntax-e$1 s_440)" -" s_440)))" -"(if(pair? s_441)" +"(let-values(((s_445)(cdr s_511)))" +"(let-values(((s_446)" +"(if(syntax?$1 s_445)" +"(syntax-e$1 s_445)" +" s_445)))" +"(if(pair? s_446)" "(let-values(((id:val136_0" " val-rhs137_0)" -"(let-values(((s_249)" +"(let-values(((s_253)" "(car" -" s_441)))" -"(let-values(((s_357)" +" s_446)))" +"(let-values(((s_361)" "(if(syntax?$1" -" s_249)" +" s_253)" "(syntax-e$1" -" s_249)" -" s_249)))" +" s_253)" +" s_253)))" "(let-values(((flat-s_36)" "(to-syntax-list.1" -" s_357)))" +" s_361)))" "(if(not" " flat-s_36)" "(let-values()" @@ -65034,7 +65061,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_352)))" -"((letrec-values(((for-loop_298)" +"((letrec-values(((for-loop_299)" "(lambda(id:val_11" " val-rhs_7" " lst_353)" @@ -65042,7 +65069,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_353)" -"(let-values(((s_366)" +"(let-values(((s_370)" "(unsafe-car" " lst_353))" "((rest_205)" @@ -65060,27 +65087,27 @@ static const char *startup_source = "(let-values(((id:val151_0" " val-rhs152_0)" "(let-values()" -"(let-values(((s_482)" -"(if(syntax?$1" -" s_366)" -"(syntax-e$1" -" s_366)" -" s_366)))" -"(if(pair?" -" s_482)" -"(let-values(((id:val139_0)" -"(let-values(((s_370)" -"(car" -" s_482)))" -"(let-values(((s_371)" +"(let-values(((s_486)" "(if(syntax?$1" " s_370)" "(syntax-e$1" " s_370)" " s_370)))" +"(if(pair?" +" s_486)" +"(let-values(((id:val139_0)" +"(let-values(((s_374)" +"(car" +" s_486)))" +"(let-values(((s_375)" +"(if(syntax?$1" +" s_374)" +"(syntax-e$1" +" s_374)" +" s_374)))" "(let-values(((flat-s_37)" "(to-syntax-list.1" -" s_371)))" +" s_375)))" "(if(not" " flat-s_37)" "(let-values()" @@ -65106,7 +65133,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_309)" -"(let-values(((s_509)" +"(let-values(((s_513)" "(unsafe-car" " lst_309))" "((rest_173)" @@ -65119,23 +65146,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val153_0)" "(let-values()" -"(if(let-values(((or-part_373)" +"(if(let-values(((or-part_372)" "(if(syntax?$1" -" s_509)" +" s_513)" "(symbol?" "(syntax-e$1" -" s_509))" +" s_513))" " #f)))" -"(if or-part_373" -" or-part_373" +"(if or-part_372" +" or-part_372" "(symbol?" -" s_509)))" -" s_509" +" s_513)))" +" s_513" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_46" -" s_509)))))" +" s_513)))))" "(cons" " id:val153_0" " id:val_18)))))" @@ -65154,34 +65181,34 @@ static const char *startup_source = "(reverse$1" " id:val_15))))))))" "((val-rhs140_0)" -"(let-values(((s_252)" +"(let-values(((s_256)" "(cdr" -" s_482)))" -"(let-values(((s_253)" +" s_486)))" +"(let-values(((s_257)" "(if(syntax?$1" -" s_252)" +" s_256)" "(syntax-e$1" -" s_252)" -" s_252)))" +" s_256)" +" s_256)))" "(if(pair?" -" s_253)" +" s_257)" "(let-values(((val-rhs141_0)" -"(let-values(((s_510)" +"(let-values(((s_514)" "(car" -" s_253)))" -" s_510))" +" s_257)))" +" s_514))" "(()" -"(let-values(((s_511)" +"(let-values(((s_515)" "(cdr" -" s_253)))" -"(let-values(((s_512)" +" s_257)))" +"(let-values(((s_516)" "(if(syntax?$1" -" s_511)" +" s_515)" "(syntax-e$1" -" s_511)" -" s_511)))" +" s_515)" +" s_515)))" "(if(null?" -" s_512)" +" s_516)" "(values)" "(raise-syntax-error$1" " #f" @@ -65212,7 +65239,7 @@ static const char *startup_source = " val-rhs_10)))))" "(if(not" " #f)" -"(for-loop_298" +"(for-loop_299" " id:val_12" " val-rhs_8" " rest_205)" @@ -65222,7 +65249,7 @@ static const char *startup_source = "(values" " id:val_11" " val-rhs_7))))))" -" for-loop_298)" +" for-loop_299)" " null" " null" " lst_352)))))" @@ -65232,18 +65259,18 @@ static const char *startup_source = "(reverse$1" " val-rhs_6)))))))))" "((body138_0)" -"(let-values(((s_255)" +"(let-values(((s_259)" "(cdr" -" s_441)))" -"(let-values(((s_256)" +" s_446)))" +"(let-values(((s_260)" "(if(syntax?$1" -" s_255)" +" s_259)" "(syntax-e$1" -" s_255)" -" s_255)))" +" s_259)" +" s_259)))" "(let-values(((flat-s_38)" "(to-syntax-list.1" -" s_256)))" +" s_260)))" "(if(not" " flat-s_38)" "(let-values()" @@ -65286,7 +65313,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_354)))" -"((letrec-values(((for-loop_299)" +"((letrec-values(((for-loop_300)" "(lambda(fold-var_325 lst_355)" "(begin" " 'for-loop" @@ -65312,7 +65339,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_356)))" -"((letrec-values(((for-loop_300)" +"((letrec-values(((for-loop_301)" "(lambda(fold-var_329" " lst_357)" "(begin" @@ -65340,22 +65367,22 @@ static const char *startup_source = " fold-var_332)))))" "(if(not" " #f)" -"(for-loop_300" +"(for-loop_301" " fold-var_330" " rest_207)" " fold-var_330)))" " fold-var_329)))))" -" for-loop_300)" +" for-loop_301)" " null" " lst_356)))))" " fold-var_327))))" "(values" " fold-var_328)))))" "(if(not #f)" -"(for-loop_299 fold-var_326 rest_206)" +"(for-loop_300 fold-var_326 rest_206)" " fold-var_326)))" " fold-var_325)))))" -" for-loop_299)" +" for-loop_300)" " null" " lst_354))))))" "(let-values(((val-idss_3)" @@ -65365,7 +65392,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_358)))" -"((letrec-values(((for-loop_301)" +"((letrec-values(((for-loop_302)" "(lambda(fold-var_333 lst_359)" "(begin" " 'for-loop" @@ -65431,12 +65458,12 @@ static const char *startup_source = "(values" " fold-var_107)))))" "(if(not #f)" -"(for-loop_301" +"(for-loop_302" " fold-var_334" " rest_208)" " fold-var_334)))" " fold-var_333)))))" -" for-loop_301)" +" for-loop_302)" " null" " lst_358))))))" "(let-values(((val-rhss_3)" @@ -65448,7 +65475,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_362)))" -"((letrec-values(((for-loop_302)" +"((letrec-values(((for-loop_303)" "(lambda(fold-var_338 lst_363)" "(begin" " 'for-loop" @@ -65471,12 +65498,12 @@ static const char *startup_source = "(values" " fold-var_341)))))" "(if(not #f)" -"(for-loop_302" +"(for-loop_303" " fold-var_339" " rest_210)" " fold-var_339)))" " fold-var_338)))))" -" for-loop_302)" +" for-loop_303)" " null" " lst_362))))" "(if syntaxes?_0 val-rhs106_0 val-rhs130_0))))" @@ -65484,69 +65511,69 @@ static const char *startup_source = "(if syntaxes?_0" "(let-values()" "(let-values(((ok?_39 _154_0 _155_0 clause156_0 _157_0)" -"(let-values(((s_135) disarmed-s_8))" -"(let-values(((orig-s_47) s_135))" +"(let-values(((s_137) disarmed-s_8))" +"(let-values(((orig-s_47) s_137))" "(let-values(((_154_1" " _155_1" " clause156_1" " _157_1)" -"(let-values(((s_395)" +"(let-values(((s_401)" "(if(syntax?$1" -" s_135)" +" s_137)" "(syntax-e$1" -" s_135)" -" s_135)))" -"(if(pair? s_395)" +" s_137)" +" s_137)))" +"(if(pair? s_401)" "(let-values(((_158_0)" -"(let-values(((s_484)" +"(let-values(((s_488)" "(car" -" s_395)))" -" s_484))" +" s_401)))" +" s_488))" "((_159_0" " clause160_0" " _161_0)" -"(let-values(((s_447)" +"(let-values(((s_452)" "(cdr" -" s_395)))" -"(let-values(((s_513)" -"(if(syntax?$1" -" s_447)" -"(syntax-e$1" -" s_447)" -" s_447)))" -"(if(pair?" -" s_513)" -"(let-values(((_162_0)" -"(let-values(((s_450)" -"(car" -" s_513)))" -" s_450))" -"((clause163_0" -" _164_0)" -"(let-values(((s_514)" -"(cdr" -" s_513)))" -"(let-values(((s_515)" -"(if(syntax?$1" -" s_514)" -"(syntax-e$1" -" s_514)" -" s_514)))" -"(if(pair?" -" s_515)" -"(let-values(((clause165_0)" -"(let-values(((s_516)" -"(car" -" s_515)))" +" s_401)))" "(let-values(((s_517)" "(if(syntax?$1" -" s_516)" +" s_452)" "(syntax-e$1" -" s_516)" -" s_516)))" +" s_452)" +" s_452)))" +"(if(pair?" +" s_517)" +"(let-values(((_162_0)" +"(let-values(((s_455)" +"(car" +" s_517)))" +" s_455))" +"((clause163_0" +" _164_0)" +"(let-values(((s_518)" +"(cdr" +" s_517)))" +"(let-values(((s_519)" +"(if(syntax?$1" +" s_518)" +"(syntax-e$1" +" s_518)" +" s_518)))" +"(if(pair?" +" s_519)" +"(let-values(((clause165_0)" +"(let-values(((s_520)" +"(car" +" s_519)))" +"(let-values(((s_521)" +"(if(syntax?$1" +" s_520)" +"(syntax-e$1" +" s_520)" +" s_520)))" "(let-values(((flat-s_39)" "(to-syntax-list.1" -" s_517)))" +" s_521)))" "(if(not" " flat-s_39)" "(let-values()" @@ -65557,10 +65584,10 @@ static const char *startup_source = "(let-values()" " flat-s_39))))))" "((_166_0)" -"(let-values(((s_518)" +"(let-values(((s_522)" "(cdr" -" s_515)))" -" s_518)))" +" s_519)))" +" s_522)))" "(values" " clause165_0" " _166_0))" @@ -65594,47 +65621,47 @@ static const char *startup_source = " clause156_0))" "(let-values()" "(let-values(((ok?_40 _167_0 clause168_0 _169_0)" -"(let-values(((s_396) disarmed-s_8))" -"(let-values(((orig-s_48) s_396))" +"(let-values(((s_402) disarmed-s_8))" +"(let-values(((orig-s_48) s_402))" "(let-values(((_167_1 clause168_1 _169_1)" -"(let-values(((s_519)" +"(let-values(((s_523)" "(if(syntax?$1" -" s_396)" +" s_402)" "(syntax-e$1" -" s_396)" -" s_396)))" -"(if(pair? s_519)" +" s_402)" +" s_402)))" +"(if(pair? s_523)" "(let-values(((_170_0)" -"(let-values(((s_520)" +"(let-values(((s_524)" "(car" -" s_519)))" -" s_520))" +" s_523)))" +" s_524))" "((clause171_0" " _172_0)" -"(let-values(((s_138)" +"(let-values(((s_140)" "(cdr" -" s_519)))" -"(let-values(((s_139)" +" s_523)))" +"(let-values(((s_141)" "(if(syntax?$1" -" s_138)" +" s_140)" "(syntax-e$1" -" s_138)" -" s_138)))" +" s_140)" +" s_140)))" "(if(pair?" -" s_139)" +" s_141)" "(let-values(((clause173_0)" -"(let-values(((s_521)" +"(let-values(((s_525)" "(car" -" s_139)))" -"(let-values(((s_522)" +" s_141)))" +"(let-values(((s_526)" "(if(syntax?$1" -" s_521)" +" s_525)" "(syntax-e$1" -" s_521)" -" s_521)))" +" s_525)" +" s_525)))" "(let-values(((flat-s_40)" "(to-syntax-list.1" -" s_522)))" +" s_526)))" "(if(not" " flat-s_40)" "(let-values()" @@ -65645,10 +65672,10 @@ static const char *startup_source = "(let-values()" " flat-s_40))))))" "((_174_0)" -"(let-values(((s_523)" +"(let-values(((s_527)" "(cdr" -" s_139)))" -" s_523)))" +" s_141)))" +" s_527)))" "(values" " clause173_0" " _174_0))" @@ -65670,7 +65697,7 @@ static const char *startup_source = "(begin" "(let-values(((temp142_3)(list trans-idss_2 val-idss_3))" "((phase143_0) phase_149)" -"((s144_0) s_319))" +"((s144_0) s_323))" "(check-no-duplicate-ids8.1" " #f" " #f" @@ -65689,7 +65716,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_364)))" -"((letrec-values(((for-loop_303)" +"((letrec-values(((for-loop_304)" "(lambda(fold-var_342 lst_365)" "(begin" " 'for-loop" @@ -65717,7 +65744,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_366)))" -"((letrec-values(((for-loop_304)" +"((letrec-values(((for-loop_305)" "(lambda(fold-var_346" " lst_367)" "(begin" @@ -65746,7 +65773,7 @@ static const char *startup_source = "((frame-id178_0)" " frame-id_15)" "((s179_0)" -" s_319))" +" s_323))" "(add-local-binding!37.1" " frame-id178_0" " #t" @@ -65760,24 +65787,24 @@ static const char *startup_source = " fold-var_349)))))" "(if(not" " #f)" -"(for-loop_304" +"(for-loop_305" " fold-var_347" " rest_212)" " fold-var_347)))" " fold-var_346)))))" -" for-loop_304)" +" for-loop_305)" " null" " lst_366)))))" " fold-var_344))))" "(values" " fold-var_345)))))" "(if(not #f)" -"(for-loop_303" +"(for-loop_304" " fold-var_343" " rest_211)" " fold-var_343)))" " fold-var_342)))))" -" for-loop_303)" +" for-loop_304)" " null" " lst_364))))))" "(let-values(((val-keyss_2)" @@ -65788,7 +65815,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_255)))" -"((letrec-values(((for-loop_305)" +"((letrec-values(((for-loop_306)" "(lambda(fold-var_350 lst_368)" "(begin" " 'for-loop" @@ -65816,7 +65843,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_369)))" -"((letrec-values(((for-loop_306)" +"((letrec-values(((for-loop_307)" "(lambda(fold-var_354" " lst_370)" "(begin" @@ -65845,7 +65872,7 @@ static const char *startup_source = "((frame-id183_0)" " frame-id_15)" "((s184_0)" -" s_319))" +" s_323))" "(add-local-binding!37.1" " frame-id183_0" " #t" @@ -65859,24 +65886,24 @@ static const char *startup_source = " fold-var_115)))))" "(if(not" " #f)" -"(for-loop_306" +"(for-loop_307" " fold-var_355" " rest_214)" " fold-var_355)))" " fold-var_354)))))" -" for-loop_306)" +" for-loop_307)" " null" " lst_369)))))" " fold-var_352))))" "(values" " fold-var_353)))))" "(if(not #f)" -"(for-loop_305" +"(for-loop_306" " fold-var_351" " rest_213)" " fold-var_351)))" " fold-var_350)))))" -" for-loop_305)" +" for-loop_306)" " null" " lst_255))))))" "(let-values(((bodys_10)" @@ -65888,7 +65915,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_371)))" -"((letrec-values(((for-loop_307)" +"((letrec-values(((for-loop_308)" "(lambda(fold-var_357 lst_372)" "(begin" " 'for-loop" @@ -65913,12 +65940,12 @@ static const char *startup_source = "(values" " fold-var_360)))))" "(if(not #f)" -"(for-loop_307" +"(for-loop_308" " fold-var_358" " rest_215)" " fold-var_358)))" " fold-var_357)))))" -" for-loop_307)" +" for-loop_308)" " null" " lst_371))))))" "(let-values((()" @@ -65972,7 +65999,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_373)))" -"((letrec-values(((for-loop_308)" +"((letrec-values(((for-loop_309)" "(lambda(fold-var_120" " lst_374" " lst_375)" @@ -66040,13 +66067,13 @@ static const char *startup_source = "(values" " fold-var_362)))))" "(if(not #f)" -"(for-loop_308" +"(for-loop_309" " fold-var_361" " rest_216" " rest_217)" " fold-var_361)))" " fold-var_120)))))" -" for-loop_308)" +" for-loop_309)" " null" " lst_132" " lst_373))))))" @@ -66062,7 +66089,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_258)))" -"((letrec-values(((for-loop_309)" +"((letrec-values(((for-loop_310)" "(lambda(env_29" " lst_377" " lst_378)" @@ -66104,7 +66131,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_379)))" -"((letrec-values(((for-loop_310)" +"((letrec-values(((for-loop_311)" "(lambda(env_32" " lst_380" " lst_381)" @@ -66141,24 +66168,24 @@ static const char *startup_source = " env_35)))))" "(if(not" " #f)" -"(for-loop_310" +"(for-loop_311" " env_33" " rest_220" " rest_221)" " env_33)))" " env_32)))))" -" for-loop_310)" +" for-loop_311)" " env_31" " lst_260" " lst_379))))))" "(if(not #f)" -"(for-loop_309" +"(for-loop_310" " env_30" " rest_218" " rest_219)" " env_30)))" " env_29)))))" -" for-loop_309)" +" for-loop_310)" "(expand-context-env ctx_84)" " lst_376" " lst_258)))))" @@ -66242,7 +66269,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_388)))" -"((letrec-values(((for-loop_311)" +"((letrec-values(((for-loop_312)" "(lambda(env_40" " lst_65" " lst_389" @@ -66294,14 +66321,14 @@ static const char *startup_source = " env_43)))))" "(if(not" " #f)" -"(for-loop_311" +"(for-loop_312" " env_41" " rest_225" " rest_226" " rest_30)" " env_41)))" " env_40)))))" -" for-loop_311)" +" for-loop_312)" " env_38" " lst_386" " lst_387" @@ -66327,10 +66354,10 @@ static const char *startup_source = "(expand-context-reference-records" " expr-ctx_0)))" "(let-values(((rec-ctx_0)" -"(let-values(((v_260) expr-ctx_0))" -"(let-values(((the-struct_92) v_260))" +"(let-values(((v_259) expr-ctx_0))" +"(let-values(((the-struct_91) v_259))" "(if(expand-context/outer?" -" the-struct_92)" +" the-struct_91)" "(let-values(((env185_0)" " rec-env_0)" "((scopes186_0)" @@ -66353,37 +66380,37 @@ static const char *startup_source = " sc_37))" "((inner189_0)" "(root-expand-context/outer-inner" -" v_260)))" +" v_259)))" "(expand-context/outer1.1" " inner189_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_92)" +" the-struct_91)" "(root-expand-context/outer-use-site-scopes" -" the-struct_92)" +" the-struct_91)" "(root-expand-context/outer-frame-id" -" the-struct_92)" +" the-struct_91)" "(expand-context/outer-context" -" the-struct_92)" +" the-struct_91)" " env185_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_92)" +" the-struct_91)" " scopes186_0" "(expand-context/outer-def-ctx-scopes" -" the-struct_92)" +" the-struct_91)" " binding-layer188_0" " reference-records187_0" "(expand-context/outer-only-immediate?" -" the-struct_92)" +" the-struct_91)" "(expand-context/outer-need-eventually-defined" -" the-struct_92)" +" the-struct_91)" "(expand-context/outer-current-introduction-scopes" -" the-struct_92)" +" the-struct_91)" "(expand-context/outer-name" -" the-struct_92)))" +" the-struct_91)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_92))))))" +" the-struct_91))))))" "(let-values(((letrec-values-id_0)" "(if(not" "(expand-context-to-parsed?" @@ -66394,7 +66421,7 @@ static const char *startup_source = " #f)))" "(let-values(((rebuild-s_6)" "(let-values(((ctx190_0) ctx_84)" -"((s191_0) s_319)" +"((s191_0) s_323)" "((temp192_1) #t))" "(keep-as-needed85.1" " #f" @@ -66417,7 +66444,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_391)))" -"((letrec-values(((for-loop_312)" +"((letrec-values(((for-loop_313)" "(lambda(fold-var_363" " lst_392)" "(begin" @@ -66491,12 +66518,12 @@ static const char *startup_source = " fold-var_366)))))" "(if(not" " #f)" -"(for-loop_312" +"(for-loop_313" " fold-var_364" " rest_227)" " fold-var_364)))" " fold-var_363)))))" -" for-loop_312)" +" for-loop_313)" " null" " lst_391))))" " val-idss_3)))" @@ -66541,50 +66568,50 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_5)" -"(let-values(((v_261)" +"(let-values(((v_260)" " rec-ctx_0))" -"(let-values(((the-struct_93)" -" v_261))" +"(let-values(((the-struct_92)" +" v_260))" "(if(expand-context/outer?" -" the-struct_93)" +" the-struct_92)" "(let-values(((reference-records196_0)" " orig-rrs_0)" "((inner197_0)" "(root-expand-context/outer-inner" -" v_261)))" +" v_260)))" "(expand-context/outer1.1" " inner197_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_93)" +" the-struct_92)" "(root-expand-context/outer-use-site-scopes" -" the-struct_93)" +" the-struct_92)" "(root-expand-context/outer-frame-id" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-context" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-env" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-scopes" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-def-ctx-scopes" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-binding-layer" -" the-struct_93)" +" the-struct_92)" " reference-records196_0" "(expand-context/outer-only-immediate?" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-need-eventually-defined" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-current-introduction-scopes" -" the-struct_93)" +" the-struct_92)" "(expand-context/outer-name" -" the-struct_93)))" +" the-struct_92)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_93))))))" +" the-struct_92))))))" "(let-values(((bodys193_0)" " bodys_10)" "((temp194_0)" @@ -66642,7 +66669,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_395)))" -"((letrec-values(((for-loop_313)" +"((letrec-values(((for-loop_314)" "(lambda(fold-var_138" " lst_396" " lst_397" @@ -66740,7 +66767,7 @@ static const char *startup_source = " fold-var_373)))))" "(if(not" " #f)" -"(for-loop_313" +"(for-loop_314" " fold-var_371" " rest_228" " rest_229" @@ -66748,7 +66775,7 @@ static const char *startup_source = " rest_230)" " fold-var_371)))" " fold-var_138)))))" -" for-loop_313)" +" for-loop_314)" " null" " lst_393" " lst_140" @@ -66842,7 +66869,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_401)))" -"((letrec-values(((for-loop_314)" +"((letrec-values(((for-loop_315)" "(lambda(fold-var_374 lst_402 lst_403)" "(begin" " 'for-loop" @@ -66863,10 +66890,10 @@ static const char *startup_source = " fold-var_376))))" "(values fold-var_51)))))" "(if(not #f)" -"(for-loop_314 fold-var_375 rest_231 rest_232)" +"(for-loop_315 fold-var_375 rest_231 rest_232)" " fold-var_375)))" " fold-var_374)))))" -" for-loop_314)" +" for-loop_315)" " null" " lst_400" " lst_401))))" @@ -66886,7 +66913,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_404)))" -"((letrec-values(((for-loop_315)" +"((letrec-values(((for-loop_316)" "(lambda(fold-var_52 lst_405 lst_406)" "(begin" " 'for-loop" @@ -66908,9 +66935,9 @@ static const char *startup_source = "(add-scope trans-rhs_5 sc_38))))" " fold-var_378))))" "(values fold-var_56)))))" -"(if(not #f)(for-loop_315 fold-var_377 rest_233 rest_234) fold-var_377)))" +"(if(not #f)(for-loop_316 fold-var_377 rest_233 rest_234) fold-var_377)))" " fold-var_52)))))" -" for-loop_315)" +" for-loop_316)" " null" " lst_71" " lst_404))))" @@ -66948,7 +66975,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%stratified-body" -"(lambda(s_524 ctx_85)" +"(lambda(s_528 ctx_85)" "(let-values((()" "(begin" "(let-values(((obs_97)(expand-context-observer ctx_85)))" @@ -66956,22 +66983,22 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_97 'prim-#%stratified)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_9)(syntax-disarm$1 s_524)))" +"(let-values(((disarmed-s_9)(syntax-disarm$1 s_528)))" "(let-values(((ok?_41 #%stratified-body223_0 body224_0)" -"(let-values(((s_525) disarmed-s_9))" -"(let-values(((orig-s_49) s_525))" +"(let-values(((s_529) disarmed-s_9))" +"(let-values(((orig-s_49) s_529))" "(let-values(((#%stratified-body223_1 body224_1)" -"(let-values(((s_526)(if(syntax?$1 s_525)(syntax-e$1 s_525) s_525)))" -"(if(pair? s_526)" +"(let-values(((s_530)(if(syntax?$1 s_529)(syntax-e$1 s_529) s_529)))" +"(if(pair? s_530)" "(let-values(((#%stratified-body225_0)" -"(let-values(((s_527)(car s_526))) s_527))" +"(let-values(((s_531)(car s_530))) s_531))" "((body226_0)" -"(let-values(((s_528)(cdr s_526)))" -"(let-values(((s_529)" -"(if(syntax?$1 s_528)" -"(syntax-e$1 s_528)" -" s_528)))" -"(let-values(((flat-s_41)(to-syntax-list.1 s_529)))" +"(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_41)(to-syntax-list.1 s_533)))" "(if(not flat-s_41)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_49))" @@ -66983,7 +67010,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_49)))))" "(values #t #%stratified-body223_1 body224_1))))))" "(let-values(((rebuild-s_7)" -"(let-values(((ctx227_0) ctx_85)((s228_0) s_524)((temp229_1) #t))" +"(let-values(((ctx227_0) ctx_85)((s228_0) s_528)((temp229_1) #t))" "(keep-as-needed85.1 #f #f temp229_1 #t #f #f ctx227_0 s228_0))))" "(let-values(((exp-body_5)" "(let-values(((temp230_2) body224_0)" @@ -67002,21 +67029,21 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%datum" -"(lambda(s_530 ctx_86)" +"(lambda(s_534 ctx_86)" "(let-values((()" "(begin" "(let-values(((obs_98)(expand-context-observer ctx_86)))" "(if obs_98(let-values()(let-values()(call-expand-observe obs_98 'prim-#%datum)))(void)))" "(values))))" -"(let-values(((disarmed-s_10)(syntax-disarm$1 s_530)))" +"(let-values(((disarmed-s_10)(syntax-disarm$1 s_534)))" "(let-values(((ok?_42 #%datum236_0 datum237_0)" -"(let-values(((s_531) disarmed-s_10))" -"(let-values(((orig-s_50) s_531))" +"(let-values(((s_535) disarmed-s_10))" +"(let-values(((orig-s_50) s_535))" "(let-values(((#%datum236_1 datum237_1)" -"(let-values(((s_532)(if(syntax?$1 s_531)(syntax-e$1 s_531) s_531)))" -"(if(pair? s_532)" -"(let-values(((#%datum238_0)(let-values(((s_533)(car s_532))) s_533))" -"((datum239_0)(let-values(((s_534)(cdr s_532))) s_534)))" +"(let-values(((s_536)(if(syntax?$1 s_535)(syntax-e$1 s_535) s_535)))" +"(if(pair? s_536)" +"(let-values(((#%datum238_0)(let-values(((s_537)(car s_536))) s_537))" +"((datum239_0)(let-values(((s_538)(cdr s_536))) s_538)))" "(values #%datum238_0 datum239_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_50)))))" "(values #t #%datum236_1 datum237_1))))))" @@ -67030,33 +67057,33 @@ static const char *startup_source = "(values))))" "(let-values(((phase_150)(expand-context-phase ctx_86)))" "(if(if(expand-context-to-parsed? ctx_86)(free-id-set-empty?(expand-context-stops ctx_86)) #f)" -"(parsed-quote14.1(keep-properties-only~ s_530)(syntax->datum$1 datum_2))" -"(let-values(((s240_0) s_530)((temp241_1)(list(core-id 'quote phase_150) datum_2)))" +"(parsed-quote14.1(keep-properties-only~ s_534)(syntax->datum$1 datum_2))" +"(let-values(((s240_0) s_534)((temp241_1)(list(core-id 'quote phase_150) datum_2)))" "(rebuild5.1 #f #f s240_0 temp241_1))))))))))))" "(void" "(add-core-form!*" " '#%app" -"(lambda(s_535 ctx_87)" +"(lambda(s_539 ctx_87)" "(let-values((()" "(begin" "(let-values(((obs_99)(expand-context-observer ctx_87)))" "(if obs_99(let-values()(let-values()(call-expand-observe obs_99 'prim-#%app)))(void)))" "(values))))" -"(let-values(((disarmed-s_11)(syntax-disarm$1 s_535)))" +"(let-values(((disarmed-s_11)(syntax-disarm$1 s_539)))" "(let-values(((ok?_43 #%app242_0 e243_0)" -"(let-values(((s_536) disarmed-s_11))" -"(let-values(((orig-s_51) s_536))" +"(let-values(((s_540) disarmed-s_11))" +"(let-values(((orig-s_51) s_540))" "(let-values(((#%app242_1 e243_1)" -"(let-values(((s_537)(if(syntax?$1 s_536)(syntax-e$1 s_536) s_536)))" -"(if(pair? s_537)" -"(let-values(((#%app244_0)(let-values(((s_538)(car s_537))) s_538))" +"(let-values(((s_541)(if(syntax?$1 s_540)(syntax-e$1 s_540) s_540)))" +"(if(pair? s_541)" +"(let-values(((#%app244_0)(let-values(((s_542)(car s_541))) s_542))" "((e245_0)" -"(let-values(((s_539)(cdr s_537)))" -"(let-values(((s_540)" -"(if(syntax?$1 s_539)" -"(syntax-e$1 s_539)" -" s_539)))" -"(let-values(((flat-s_42)(to-syntax-list.1 s_540)))" +"(let-values(((s_543)(cdr s_541)))" +"(let-values(((s_544)" +"(if(syntax?$1 s_543)" +"(syntax-e$1 s_543)" +" s_543)))" +"(let-values(((flat-s_42)(to-syntax-list.1 s_544)))" "(if(not flat-s_42)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_51))" @@ -67069,14 +67096,14 @@ static const char *startup_source = "(let-values()" "(let-values(((phase_151)(expand-context-phase ctx_87)))" "(if(expand-context-to-parsed? ctx_87)" -"(parsed-quote14.1(keep-properties-only~ s_535) null)" -"(let-values(((s246_0) s_535)((temp247_0)(list(core-id 'quote phase_151) null)))" +"(parsed-quote14.1(keep-properties-only~ s_539) null)" +"(let-values(((s246_0) s_539)((temp247_0)(list(core-id 'quote phase_151) null)))" "(rebuild5.1 #f #f s246_0 temp247_0)))))" "(let-values()" "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))" "(let-values(((rebuild-s_8)" "(let-values(((ctx248_0) ctx_87)" -"((s249_0) s_535)" +"((s249_0) s_539)" "((keep-for-parsed?250_0) keep-for-parsed?_1))" "(keep-as-needed85.1 #f #f #f #f keep-for-parsed?250_0 #t ctx248_0 s249_0))))" "(let-values(((prefixless_0)(cdr(syntax-e$1 disarmed-s_11))))" @@ -67106,7 +67133,7 @@ static const char *startup_source = "(call-expand-observe" " obs_100" " 'enter-list" -"(datum->syntax$1 #f es_3 s_535))" +"(datum->syntax$1 #f es_3 s_539))" "(call-expand-observe obs_100 'next))))" "(void)))" "(values))))" @@ -67121,7 +67148,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_407)))" -"((letrec-values(((for-loop_316)" +"((letrec-values(((for-loop_317)" "(lambda(fold-var_379 lst_408)" "(begin" " 'for-loop" @@ -67162,17 +67189,17 @@ static const char *startup_source = "(values" " fold-var_382)))))" "(if(not #f)" -"(for-loop_316 fold-var_380 rest_235)" +"(for-loop_317 fold-var_380 rest_235)" " fold-var_380)))" " fold-var_379)))))" -" for-loop_316)" +" for-loop_317)" " null" " lst_407))))))" "(if(expand-context-to-parsed? ctx_87)" "(let-values()" "(parsed-app7.1" -"(let-values(((or-part_374) rebuild-prefixless_0))" -"(if or-part_374 or-part_374 rebuild-s_8))" +"(let-values(((or-part_373) rebuild-prefixless_0))" +"(if or-part_373 or-part_373 rebuild-s_8))" " exp-rator_0" " exp-es_0))" "(let-values()" @@ -67199,35 +67226,35 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'quote" -"(lambda(s_264 ctx_88)" +"(lambda(s_268 ctx_88)" "(let-values((()" "(begin" "(let-values(((obs_103)(expand-context-observer ctx_88)))" "(if obs_103(let-values()(let-values()(call-expand-observe obs_103 'prim-quote)))(void)))" "(values))))" "(let-values(((ok?_44 quote262_0 datum263_0)" -"(let-values(((s_271)(syntax-disarm$1 s_264)))" -"(let-values(((orig-s_52) s_271))" +"(let-values(((s_275)(syntax-disarm$1 s_268)))" +"(let-values(((orig-s_52) s_275))" "(let-values(((quote262_1 datum263_1)" -"(let-values(((s_541)(if(syntax?$1 s_271)(syntax-e$1 s_271) s_271)))" -"(if(pair? s_541)" -"(let-values(((quote264_0)(let-values(((s_542)(car s_541))) s_542))" +"(let-values(((s_545)(if(syntax?$1 s_275)(syntax-e$1 s_275) s_275)))" +"(if(pair? s_545)" +"(let-values(((quote264_0)(let-values(((s_546)(car s_545))) s_546))" "((datum265_0)" -"(let-values(((s_543)(cdr s_541)))" -"(let-values(((s_544)" -"(if(syntax?$1 s_543)" -"(syntax-e$1 s_543)" -" s_543)))" -"(if(pair? s_544)" +"(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)" "(let-values(((datum266_0)" -"(let-values(((s_545)(car s_544))) s_545))" +"(let-values(((s_549)(car s_548))) s_549))" "(()" -"(let-values(((s_546)(cdr s_544)))" -"(let-values(((s_547)" -"(if(syntax?$1 s_546)" -"(syntax-e$1 s_546)" -" s_546)))" -"(if(null? s_547)" +"(let-values(((s_550)(cdr s_548)))" +"(let-values(((s_551)" +"(if(syntax?$1 s_550)" +"(syntax-e$1 s_550)" +" s_550)))" +"(if(null? s_551)" "(values)" "(raise-syntax-error$1" " #f" @@ -67239,12 +67266,12 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_52)))))" "(values #t quote262_1 datum263_1))))))" "(if(expand-context-to-parsed? ctx_88)" -"(parsed-quote14.1(keep-properties-only~ s_264)(syntax->datum$1 datum263_0))" -" s_264))))))" +"(parsed-quote14.1(keep-properties-only~ s_268)(syntax->datum$1 datum263_0))" +" s_268))))))" "(void" "(add-core-form!*" " 'quote-syntax" -"(lambda(s_548 ctx_89)" +"(lambda(s_552 ctx_89)" "(let-values((()" "(begin" "(let-values(((obs_104)(expand-context-observer ctx_89)))" @@ -67252,27 +67279,27 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_104 'prim-quote-syntax)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_12)(syntax-disarm$1 s_548)))" +"(let-values(((disarmed-s_12)(syntax-disarm$1 s_552)))" "(let-values(((ok?_45 quote-syntax267_0 datum268_0)" -"(let-values(((s_549) disarmed-s_12))" -"(if(let-values(((s_550)(if(syntax?$1 s_549)(syntax-e$1 s_549) s_549)))" -"(if(pair? s_550)" -"(if(let-values(((s_279)(car s_550))) #t)" -"(let-values(((s_280)(cdr s_550)))" -"(let-values(((s_281)(if(syntax?$1 s_280)(syntax-e$1 s_280) s_280)))" -"(if(pair? s_281)" -"(if(let-values(((s_551)(car s_281))) #t)" -"(let-values(((s_552)(cdr s_281)))" -"(let-values(((s_553)(if(syntax?$1 s_552)(syntax-e$1 s_552) s_552)))" -"(if(pair? s_553)" -"(if(let-values(((s_554)(car s_553)))" -"(let-values(((s_555)" -"(if(syntax?$1 s_554)(syntax-e$1 s_554) s_554)))" -"(eq? '#:local s_555)))" -"(let-values(((s_556)(cdr s_553)))" -"(let-values(((s_557)" -"(if(syntax?$1 s_556)(syntax-e$1 s_556) s_556)))" -"(null? s_557)))" +"(let-values(((s_553) disarmed-s_12))" +"(if(let-values(((s_554)(if(syntax?$1 s_553)(syntax-e$1 s_553) s_553)))" +"(if(pair? s_554)" +"(if(let-values(((s_283)(car s_554))) #t)" +"(let-values(((s_284)(cdr s_554)))" +"(let-values(((s_285)(if(syntax?$1 s_284)(syntax-e$1 s_284) s_284)))" +"(if(pair? s_285)" +"(if(let-values(((s_555)(car s_285))) #t)" +"(let-values(((s_556)(cdr s_285)))" +"(let-values(((s_557)(if(syntax?$1 s_556)(syntax-e$1 s_556) s_556)))" +"(if(pair? s_557)" +"(if(let-values(((s_558)(car s_557)))" +"(let-values(((s_559)" +"(if(syntax?$1 s_558)(syntax-e$1 s_558) s_558)))" +"(eq? '#:local s_559)))" +"(let-values(((s_560)(cdr s_557)))" +"(let-values(((s_561)" +"(if(syntax?$1 s_560)(syntax-e$1 s_560) s_560)))" +"(null? s_561)))" " #f)" " #f)))" " #f)" @@ -67281,44 +67308,44 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((quote-syntax267_1 datum268_1)" -"(let-values(((s_558)(if(syntax?$1 s_549)(syntax-e$1 s_549) s_549)))" +"(let-values(((s_562)(if(syntax?$1 s_553)(syntax-e$1 s_553) s_553)))" "(let-values(((quote-syntax269_0)" -"(let-values(((s_559)(car s_558))) s_559))" +"(let-values(((s_563)(car s_562))) s_563))" "((datum270_0)" -"(let-values(((s_282)(cdr s_558)))" -"(let-values(((s_560)" -"(if(syntax?$1 s_282)" -"(syntax-e$1 s_282)" -" s_282)))" +"(let-values(((s_286)(cdr s_562)))" +"(let-values(((s_564)" +"(if(syntax?$1 s_286)" +"(syntax-e$1 s_286)" +" s_286)))" "(let-values(((datum271_0)" -"(let-values(((s_561)(car s_560))) s_561))" +"(let-values(((s_565)(car s_564))) s_565))" "(()" -"(let-values(((s_283)(cdr s_560)))" -"(let-values(((s_562)" -"(if(syntax?$1 s_283)" -"(syntax-e$1 s_283)" -" s_283)))" +"(let-values(((s_287)(cdr s_564)))" +"(let-values(((s_566)" +"(if(syntax?$1 s_287)" +"(syntax-e$1 s_287)" +" s_287)))" "(let-values((()" -"(let-values(((s_563)" +"(let-values(((s_567)" "(car" -" s_562)))" -"(let-values(((s_284)" +" s_566)))" +"(let-values(((s_288)" "(if(syntax?$1" -" s_563)" +" s_567)" "(syntax-e$1" -" s_563)" -" s_563)))" +" s_567)" +" s_567)))" "(values))))" "(()" -"(let-values(((s_285)" +"(let-values(((s_289)" "(cdr" -" s_562)))" -"(let-values(((s_286)" +" s_566)))" +"(let-values(((s_290)" "(if(syntax?$1" -" s_285)" +" s_289)" "(syntax-e$1" -" s_285)" -" s_285)))" +" s_289)" +" s_289)))" "(values)))))" "(values))))))" "(values datum271_0))))))" @@ -67326,31 +67353,31 @@ static const char *startup_source = "(values #t quote-syntax267_1 datum268_1)))" "(values #f #f #f)))))" "(let-values(((ok?_46 quote-syntax272_0 datum273_0)" -"(let-values(((s_564) disarmed-s_12))" +"(let-values(((s_568) disarmed-s_12))" "(if(if(not ok?_45) #t #f)" -"(let-values(((orig-s_53) s_564))" +"(let-values(((orig-s_53) s_568))" "(let-values(((quote-syntax272_1 datum273_1)" -"(let-values(((s_565)(if(syntax?$1 s_564)(syntax-e$1 s_564) s_564)))" -"(if(pair? s_565)" +"(let-values(((s_569)(if(syntax?$1 s_568)(syntax-e$1 s_568) s_568)))" +"(if(pair? s_569)" "(let-values(((quote-syntax274_0)" -"(let-values(((s_566)(car s_565))) s_566))" +"(let-values(((s_570)(car s_569))) s_570))" "((datum275_0)" -"(let-values(((s_567)(cdr s_565)))" -"(let-values(((s_568)" -"(if(syntax?$1 s_567)" -"(syntax-e$1 s_567)" -" s_567)))" -"(if(pair? s_568)" +"(let-values(((s_571)(cdr s_569)))" +"(let-values(((s_572)" +"(if(syntax?$1 s_571)" +"(syntax-e$1 s_571)" +" s_571)))" +"(if(pair? s_572)" "(let-values(((datum276_0)" -"(let-values(((s_569)(car s_568)))" -" s_569))" +"(let-values(((s_573)(car s_572)))" +" s_573))" "(()" -"(let-values(((s_570)(cdr s_568)))" -"(let-values(((s_571)" -"(if(syntax?$1 s_570)" -"(syntax-e$1 s_570)" -" s_570)))" -"(if(null? s_571)" +"(let-values(((s_574)(cdr s_572)))" +"(let-values(((s_575)" +"(if(syntax?$1 s_574)" +"(syntax-e$1 s_574)" +" s_574)))" +"(if(null? s_575)" "(values)" "(raise-syntax-error$1" " #f" @@ -67372,52 +67399,52 @@ static const char *startup_source = "(reference-records-all-used!(expand-context-reference-records ctx_89))" "(values))))" "(let-values(((ok?_47 _277_0 _278_0 kw279_0)" -"(let-values(((s_572) disarmed-s_12))" -"(let-values(((orig-s_54) s_572))" +"(let-values(((s_576) disarmed-s_12))" +"(let-values(((orig-s_54) s_576))" "(let-values(((_277_1 _278_1 kw279_1)" -"(let-values(((s_573)" -"(if(syntax?$1 s_572)(syntax-e$1 s_572) s_572)))" -"(if(pair? s_573)" -"(let-values(((_280_0)" -"(let-values(((s_574)(car s_573))) s_574))" -"((_281_0 kw282_0)" -"(let-values(((s_575)(cdr s_573)))" -"(let-values(((s_576)" -"(if(syntax?$1 s_575)" -"(syntax-e$1 s_575)" -" s_575)))" -"(if(pair? s_576)" -"(let-values(((_283_0)" "(let-values(((s_577)" -"(car s_576)))" -" s_577))" -"((kw284_0)" -"(let-values(((s_578)" -"(cdr s_576)))" -"(let-values(((s_579)" -"(if(syntax?$1" -" s_578)" -"(syntax-e$1" -" s_578)" -" s_578)))" -"(if(pair? s_579)" -"(let-values(((kw285_0)" +"(if(syntax?$1 s_576)(syntax-e$1 s_576) s_576)))" +"(if(pair? s_577)" +"(let-values(((_280_0)" +"(let-values(((s_578)(car s_577))) s_578))" +"((_281_0 kw282_0)" +"(let-values(((s_579)(cdr s_577)))" "(let-values(((s_580)" -"(car" +"(if(syntax?$1 s_579)" +"(syntax-e$1 s_579)" " s_579)))" -" s_580))" -"(()" +"(if(pair? s_580)" +"(let-values(((_283_0)" "(let-values(((s_581)" -"(cdr" -" s_579)))" +"(car s_580)))" +" s_581))" +"((kw284_0)" "(let-values(((s_582)" +"(cdr s_580)))" +"(let-values(((s_583)" "(if(syntax?$1" -" s_581)" -"(syntax-e$1" -" s_581)" -" s_581)))" -"(if(null?" " s_582)" +"(syntax-e$1" +" s_582)" +" s_582)))" +"(if(pair? s_583)" +"(let-values(((kw285_0)" +"(let-values(((s_584)" +"(car" +" s_583)))" +" s_584))" +"(()" +"(let-values(((s_585)" +"(cdr" +" s_583)))" +"(let-values(((s_586)" +"(if(syntax?$1" +" s_585)" +"(syntax-e$1" +" s_585)" +" s_585)))" +"(if(null?" +" s_586)" "(values)" "(raise-syntax-error$1" " #f" @@ -67437,42 +67464,42 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_54)))))" "(values #t _277_1 _278_1 kw279_1))))))" "(if(expand-context-to-parsed? ctx_89)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_548) datum268_0)" -"(let-values(((s286_0) s_548)((temp287_0)(list quote-syntax267_0 datum268_0 kw279_0)))" +"(parsed-quote-syntax15.1(keep-properties-only~ s_552) datum268_0)" +"(let-values(((s286_0) s_552)((temp287_0)(list quote-syntax267_0 datum268_0 kw279_0)))" "(rebuild5.1 #f #f s286_0 temp287_0))))))" "(let-values()" "(let-values(((datum-s_0)(remove-scopes datum273_0(expand-context-scopes ctx_89))))" "(if(if(expand-context-to-parsed? ctx_89)(free-id-set-empty?(expand-context-stops ctx_89)) #f)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_548) datum-s_0)" -"(let-values(((s288_0) s_548)((temp289_0)(list quote-syntax272_0 datum-s_0)))" +"(parsed-quote-syntax15.1(keep-properties-only~ s_552) datum-s_0)" +"(let-values(((s288_0) s_552)((temp289_0)(list quote-syntax272_0 datum-s_0)))" "(rebuild5.1 #f #f s288_0 temp289_0)))))))))))))" "(void" "(add-core-form!*" " 'if" -"(lambda(s_583 ctx_90)" +"(lambda(s_587 ctx_90)" "(let-values((()" "(begin" "(let-values(((obs_105)(expand-context-observer ctx_90)))" "(if obs_105(let-values()(let-values()(call-expand-observe obs_105 'prim-if)))(void)))" "(values))))" -"(let-values(((disarmed-s_13)(syntax-disarm$1 s_583)))" +"(let-values(((disarmed-s_13)(syntax-disarm$1 s_587)))" "(let-values(((ok?_48 _290_0 _291_0 _292_0)" -"(let-values(((s_584) disarmed-s_13))" -"(if(let-values(((s_585)(if(syntax?$1 s_584)(syntax-e$1 s_584) s_584)))" -"(if(pair? s_585)" -"(if(let-values(((s_586)(car s_585))) #t)" -"(let-values(((s_587)(cdr s_585)))" -"(let-values(((s_588)(if(syntax?$1 s_587)(syntax-e$1 s_587) s_587)))" -"(if(pair? s_588)" -"(if(let-values(((s_589)(car s_588))) #t)" -"(let-values(((s_590)(cdr s_588)))" -"(let-values(((s_591)(if(syntax?$1 s_590)(syntax-e$1 s_590) s_590)))" -"(if(pair? s_591)" -"(if(let-values(((s_592)(car s_591))) #t)" -"(let-values(((s_593)(cdr s_591)))" -"(let-values(((s_594)" -"(if(syntax?$1 s_593)(syntax-e$1 s_593) s_593)))" -"(null? s_594)))" +"(let-values(((s_588) disarmed-s_13))" +"(if(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)))" +"(if(pair? s_592)" +"(if(let-values(((s_593)(car s_592))) #t)" +"(let-values(((s_594)(cdr s_592)))" +"(let-values(((s_595)(if(syntax?$1 s_594)(syntax-e$1 s_594) s_594)))" +"(if(pair? s_595)" +"(if(let-values(((s_596)(car s_595))) #t)" +"(let-values(((s_597)(cdr s_595)))" +"(let-values(((s_598)" +"(if(syntax?$1 s_597)(syntax-e$1 s_597) s_597)))" +"(null? s_598)))" " #f)" " #f)))" " #f)" @@ -67481,37 +67508,37 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((_290_1 _291_1 _292_1)" -"(let-values(((s_595)(if(syntax?$1 s_584)(syntax-e$1 s_584) s_584)))" -"(let-values(((_293_0)(let-values(((s_596)(car s_595))) s_596))" +"(let-values(((s_599)(if(syntax?$1 s_588)(syntax-e$1 s_588) s_588)))" +"(let-values(((_293_0)(let-values(((s_600)(car s_599))) s_600))" "((_294_0 _295_0)" -"(let-values(((s_597)(cdr s_595)))" -"(let-values(((s_598)" -"(if(syntax?$1 s_597)" -"(syntax-e$1 s_597)" -" s_597)))" -"(let-values(((_296_0)" -"(let-values(((s_599)(car s_598))) s_599))" -"((_297_0)" -"(let-values(((s_600)(cdr s_598)))" -"(let-values(((s_601)" -"(if(syntax?$1 s_600)" -"(syntax-e$1 s_600)" -" s_600)))" -"(let-values(((_298_0)" +"(let-values(((s_601)(cdr s_599)))" "(let-values(((s_602)" +"(if(syntax?$1 s_601)" +"(syntax-e$1 s_601)" +" s_601)))" +"(let-values(((_296_0)" +"(let-values(((s_603)(car s_602))) s_603))" +"((_297_0)" +"(let-values(((s_604)(cdr s_602)))" +"(let-values(((s_605)" +"(if(syntax?$1 s_604)" +"(syntax-e$1 s_604)" +" s_604)))" +"(let-values(((_298_0)" +"(let-values(((s_606)" "(car" -" s_601)))" -" s_602))" +" s_605)))" +" s_606))" "(()" -"(let-values(((s_603)" +"(let-values(((s_607)" "(cdr" -" s_601)))" -"(let-values(((s_604)" +" s_605)))" +"(let-values(((s_608)" "(if(syntax?$1" -" s_603)" +" s_607)" "(syntax-e$1" -" s_603)" -" s_603)))" +" s_607)" +" s_607)))" "(values)))))" "(values _298_0))))))" "(values _296_0 _297_0))))))" @@ -67521,67 +67548,67 @@ static const char *startup_source = "(let-values((()" "(begin" "(if ok?_48" -" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_583))" +" (let-values () (raise-syntax-error$1 #f \"missing an \\\"else\\\" expression\" s_587))" "(void))" "(values))))" "(let-values(((ok?_49 if299_0 tst300_0 thn301_0 els302_0)" -"(let-values(((s_605) disarmed-s_13))" -"(let-values(((orig-s_55) s_605))" +"(let-values(((s_609) disarmed-s_13))" +"(let-values(((orig-s_55) s_609))" "(let-values(((if299_1 tst300_1 thn301_1 els302_1)" -"(let-values(((s_606)(if(syntax?$1 s_605)(syntax-e$1 s_605) s_605)))" -"(if(pair? s_606)" -"(let-values(((if303_0)(let-values(((s_607)(car s_606))) s_607))" +"(let-values(((s_610)(if(syntax?$1 s_609)(syntax-e$1 s_609) s_609)))" +"(if(pair? s_610)" +"(let-values(((if303_0)(let-values(((s_611)(car s_610))) s_611))" "((tst304_0 thn305_0 els306_0)" -"(let-values(((s_608)(cdr s_606)))" -"(let-values(((s_609)" -"(if(syntax?$1 s_608)" -"(syntax-e$1 s_608)" -" s_608)))" -"(if(pair? s_609)" -"(let-values(((tst307_0)" -"(let-values(((s_610)(car s_609)))" -" s_610))" -"((thn308_0 els309_0)" -"(let-values(((s_611)(cdr s_609)))" -"(let-values(((s_612)" -"(if(syntax?$1 s_611)" -"(syntax-e$1 s_611)" -" s_611)))" -"(if(pair? s_612)" -"(let-values(((thn310_0)" +"(let-values(((s_612)(cdr s_610)))" "(let-values(((s_613)" -"(car" +"(if(syntax?$1 s_612)" +"(syntax-e$1 s_612)" " s_612)))" -" s_613))" -"((els311_0)" -"(let-values(((s_614)" -"(cdr" -" s_612)))" -"(let-values(((s_615)" -"(if(syntax?$1" -" s_614)" -"(syntax-e$1" -" s_614)" -" s_614)))" -"(if(pair?" -" s_615)" -"(let-values(((els312_0)" +"(if(pair? s_613)" +"(let-values(((tst307_0)" +"(let-values(((s_614)(car s_613)))" +" s_614))" +"((thn308_0 els309_0)" +"(let-values(((s_615)(cdr s_613)))" "(let-values(((s_616)" -"(car" +"(if(syntax?$1 s_615)" +"(syntax-e$1 s_615)" " s_615)))" -" s_616))" -"(()" +"(if(pair? s_616)" +"(let-values(((thn310_0)" "(let-values(((s_617)" -"(cdr" -" s_615)))" +"(car" +" s_616)))" +" s_617))" +"((els311_0)" "(let-values(((s_618)" +"(cdr" +" s_616)))" +"(let-values(((s_619)" "(if(syntax?$1" -" s_617)" -"(syntax-e$1" -" s_617)" -" s_617)))" -"(if(null?" " s_618)" +"(syntax-e$1" +" s_618)" +" s_618)))" +"(if(pair?" +" s_619)" +"(let-values(((els312_0)" +"(let-values(((s_620)" +"(car" +" s_619)))" +" s_620))" +"(()" +"(let-values(((s_621)" +"(cdr" +" s_619)))" +"(let-values(((s_622)" +"(if(syntax?$1" +" s_621)" +"(syntax-e$1" +" s_621)" +" s_621)))" +"(if(null?" +" s_622)" "(values)" "(raise-syntax-error$1" " #f" @@ -67611,7 +67638,7 @@ static const char *startup_source = "(let-values(((expr-ctx313_0) expr-ctx_2)((ctx314_0) ctx_90))" "(as-tail-context23.1 ctx314_0 expr-ctx313_0))))" "(let-values(((rebuild-s_9)" -"(let-values(((ctx315_0) ctx_90)((s316_0) s_583))" +"(let-values(((ctx315_0) ctx_90)((s316_0) s_587))" "(keep-as-needed85.1 #f #f #f #f #f #f ctx315_0 s316_0))))" "(let-values(((exp-tst_0)" "(let-values(((temp317_0) tst300_0)((expr-ctx318_0) expr-ctx_2))" @@ -67644,7 +67671,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'with-continuation-mark" -"(lambda(s_619 ctx_91)" +"(lambda(s_623 ctx_91)" "(let-values((()" "(begin" "(let-values(((obs_108)(expand-context-observer ctx_91)))" @@ -67652,65 +67679,65 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_108 'prim-with-continuation-mark)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_14)(syntax-disarm$1 s_619)))" +"(let-values(((disarmed-s_14)(syntax-disarm$1 s_623)))" "(let-values(((ok?_50 with-continuation-mark325_0 key326_0 val327_0 body328_0)" -"(let-values(((s_620) disarmed-s_14))" -"(let-values(((orig-s_56) s_620))" +"(let-values(((s_624) disarmed-s_14))" +"(let-values(((orig-s_56) s_624))" "(let-values(((with-continuation-mark325_1 key326_1 val327_1 body328_1)" -"(let-values(((s_621)(if(syntax?$1 s_620)(syntax-e$1 s_620) s_620)))" -"(if(pair? s_621)" +"(let-values(((s_625)(if(syntax?$1 s_624)(syntax-e$1 s_624) s_624)))" +"(if(pair? s_625)" "(let-values(((with-continuation-mark329_0)" -"(let-values(((s_622)(car s_621))) s_622))" +"(let-values(((s_626)(car s_625))) s_626))" "((key330_0 val331_0 body332_0)" -"(let-values(((s_623)(cdr s_621)))" -"(let-values(((s_624)" -"(if(syntax?$1 s_623)" -"(syntax-e$1 s_623)" -" s_623)))" -"(if(pair? s_624)" -"(let-values(((key333_0)" -"(let-values(((s_625)(car s_624)))" -" s_625))" -"((val334_0 body335_0)" -"(let-values(((s_626)(cdr s_624)))" -"(let-values(((s_627)" -"(if(syntax?$1 s_626)" -"(syntax-e$1 s_626)" -" s_626)))" -"(if(pair? s_627)" -"(let-values(((val336_0)" +"(let-values(((s_627)(cdr s_625)))" "(let-values(((s_628)" -"(car" +"(if(syntax?$1 s_627)" +"(syntax-e$1 s_627)" " s_627)))" -" s_628))" -"((body337_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(((body338_0)" +"(if(pair? s_628)" +"(let-values(((key333_0)" +"(let-values(((s_629)(car s_628)))" +" s_629))" +"((val334_0 body335_0)" +"(let-values(((s_630)(cdr s_628)))" "(let-values(((s_631)" -"(car" +"(if(syntax?$1 s_630)" +"(syntax-e$1 s_630)" " s_630)))" -" s_631))" -"(()" +"(if(pair? s_631)" +"(let-values(((val336_0)" "(let-values(((s_632)" -"(cdr" -" s_630)))" +"(car" +" s_631)))" +" s_632))" +"((body337_0)" "(let-values(((s_633)" +"(cdr" +" s_631)))" +"(let-values(((s_634)" "(if(syntax?$1" -" s_632)" -"(syntax-e$1" -" s_632)" -" s_632)))" -"(if(null?" " s_633)" +"(syntax-e$1" +" s_633)" +" s_633)))" +"(if(pair? s_634)" +"(let-values(((body338_0)" +"(let-values(((s_635)" +"(car" +" s_634)))" +" s_635))" +"(()" +"(let-values(((s_636)" +"(cdr" +" s_634)))" +"(let-values(((s_637)" +"(if(syntax?$1" +" s_636)" +"(syntax-e$1" +" s_636)" +" s_636)))" +"(if(null?" +" s_637)" "(values)" "(raise-syntax-error$1" " #f" @@ -67734,7 +67761,7 @@ static const char *startup_source = "(values #t with-continuation-mark325_1 key326_1 val327_1 body328_1))))))" "(let-values(((expr-ctx_3)(as-expression-context ctx_91)))" "(let-values(((rebuild-s_10)" -"(let-values(((ctx339_0) ctx_91)((s340_0) s_619))" +"(let-values(((ctx339_0) ctx_91)((s340_0) s_623))" "(keep-as-needed85.1 #f #f #f #f #f #f ctx339_0 s340_0))))" "(let-values(((exp-key_0)" "(let-values(((temp341_0) key326_0)((expr-ctx342_0) expr-ctx_3))" @@ -67777,7 +67804,7 @@ 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_634 ctx_92)" +"(lambda(s_638 ctx_92)" "(let-values((()" "(begin" "(let-values(((obs_111)(expand-context-observer ctx_92)))" @@ -67785,24 +67812,24 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_111 log-tag_1)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_15)(syntax-disarm$1 s_634)))" +"(let-values(((disarmed-s_15)(syntax-disarm$1 s_638)))" "(let-values(((ok?_51 begin351_0 e352_0)" -"(let-values(((s_635) disarmed-s_15))" -"(let-values(((orig-s_57) s_635))" +"(let-values(((s_639) disarmed-s_15))" +"(let-values(((orig-s_57) s_639))" "(let-values(((begin351_1 e352_1)" -"(let-values(((s_636)" -"(if(syntax?$1 s_635)(syntax-e$1 s_635) s_635)))" -"(if(pair? s_636)" +"(let-values(((s_640)" +"(if(syntax?$1 s_639)(syntax-e$1 s_639) s_639)))" +"(if(pair? s_640)" "(let-values(((begin353_0)" -"(let-values(((s_637)(car s_636))) s_637))" +"(let-values(((s_641)(car s_640))) s_641))" "((e354_0)" -"(let-values(((s_638)(cdr s_636)))" -"(let-values(((s_639)" -"(if(syntax?$1 s_638)" -"(syntax-e$1 s_638)" -" s_638)))" +"(let-values(((s_642)(cdr s_640)))" +"(let-values(((s_643)" +"(if(syntax?$1 s_642)" +"(syntax-e$1 s_642)" +" s_642)))" "(let-values(((flat-s_43)" -"(to-syntax-list.1 s_639)))" +"(to-syntax-list.1 s_643)))" "(if(not flat-s_43)" "(let-values()" "(raise-syntax-error$1" @@ -67824,7 +67851,7 @@ static const char *startup_source = "(as-begin-expression-context ctx_92)" "(as-expression-context ctx_92))))" "(let-values(((rebuild-s_11)" -"(let-values(((ctx355_0) ctx_92)((s356_0) s_634))" +"(let-values(((ctx355_0) ctx_92)((s356_0) s_638))" "(keep-as-needed85.1 #f #f #f #f #f #f ctx355_0 s356_0))))" "(let-values(((exp-es_2)" "((letrec-values(((loop_124)" @@ -67910,39 +67937,39 @@ static const char *startup_source = "((temp365_0) 0)" "((temp366_0) #t))" "(make-begin20.1 temp366_0 temp365_0 temp363_0 parsed-begin364_0))))" -"(lambda(s_640 ctx_93)" +"(lambda(s_644 ctx_93)" "(let-values(((context_24)(expand-context-context ctx_93)))" -"(if(let-values(((or-part_375)(eq? context_24 'top-level)))" -"(if or-part_375 or-part_375(eq? context_24 'module)))" +"(if(let-values(((or-part_374)(eq? context_24 'top-level)))" +"(if or-part_374 or-part_374(eq? context_24 'module)))" "(let-values()" -"(let-values(((disarmed-s_16)(syntax-disarm$1 s_640)))" +"(let-values(((disarmed-s_16)(syntax-disarm$1 s_644)))" "(let-values(((ok?_52 begin367_0)" -"(let-values(((s_641) disarmed-s_16))" -"(if(let-values(((s_642)(if(syntax?$1 s_641)(syntax-e$1 s_641) s_641)))" -"(if(pair? s_642)" -"(if(let-values(((s_643)(car s_642))) #t)" -"(let-values(((s_644)(cdr s_642)))" -"(let-values(((s_645)(if(syntax?$1 s_644)(syntax-e$1 s_644) s_644)))" -"(null? s_645)))" +"(let-values(((s_645) disarmed-s_16))" +"(if(let-values(((s_646)(if(syntax?$1 s_645)(syntax-e$1 s_645) s_645)))" +"(if(pair? s_646)" +"(if(let-values(((s_647)(car s_646))) #t)" +"(let-values(((s_648)(cdr s_646)))" +"(let-values(((s_649)(if(syntax?$1 s_648)(syntax-e$1 s_648) s_648)))" +"(null? s_649)))" " #f)" " #f))" "(let-values()" "(let-values(((begin367_1)" -"(let-values(((s_646)(if(syntax?$1 s_641)(syntax-e$1 s_641) s_641)))" +"(let-values(((s_650)(if(syntax?$1 s_645)(syntax-e$1 s_645) s_645)))" "(let-values(((begin368_0)" -"(let-values(((s_647)(car s_646))) s_647))" +"(let-values(((s_651)(car s_650))) s_651))" "(()" -"(let-values(((s_648)(cdr s_646)))" -"(let-values(((s_649)" -"(if(syntax?$1 s_648)" -"(syntax-e$1 s_648)" -" s_648)))" +"(let-values(((s_652)(cdr s_650)))" +"(let-values(((s_653)" +"(if(syntax?$1 s_652)" +"(syntax-e$1 s_652)" +" s_652)))" "(values)))))" "(values begin368_0)))))" "(values #t begin367_1)))" "(values #f #f)))))" -"(if ok?_52 s_640(nonempty-begin_0 s_640 ctx_93)))))" -"(let-values()(nonempty-begin_0 s_640 ctx_93))))))))" +"(if ok?_52 s_644(nonempty-begin_0 s_644 ctx_93)))))" +"(let-values()(nonempty-begin_0 s_644 ctx_93))))))))" "(void" "(add-core-form!*" " 'begin0" @@ -67958,7 +67985,7 @@ static const char *startup_source = "(hash-update!" "(expand-context-need-eventually-defined ctx_94)" "(expand-context-phase ctx_94)" -"(lambda(l_82)(cons id_129 l_82))" +"(lambda(l_86)(cons id_129 l_86))" " null)" " #t))" "(let-values() #f)))))" @@ -67969,7 +67996,7 @@ static const char *startup_source = "(lambda(s375_0 ctx376_0 implicit-omitted?373_0 implicit-omitted?374_0)" "(begin" " 'core377" -"(let-values(((s_650) s375_0))" +"(let-values(((s_654) s375_0))" "(let-values(((ctx_95) ctx376_0))" "(let-values(((implicit-omitted?_0)(if implicit-omitted?374_0 implicit-omitted?373_0 #f)))" "(let-values()" @@ -67981,46 +68008,46 @@ static const char *startup_source = "(let-values()(call-expand-observe obs_115 'prim-#%top)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_17)(syntax-disarm$1 s_650)))" +"(let-values(((disarmed-s_17)(syntax-disarm$1 s_654)))" "(let-values(((id_130)" "(if implicit-omitted?_0" -"(let-values() s_650)" +"(let-values() s_654)" "(let-values()" "(let-values(((ok?_53 #%top379_0 id380_0)" -"(let-values(((s_651) disarmed-s_17))" -"(let-values(((orig-s_58) s_651))" +"(let-values(((s_655) disarmed-s_17))" +"(let-values(((orig-s_58) s_655))" "(let-values(((#%top379_1 id380_1)" -"(let-values(((s_652)" -"(if(syntax?$1 s_651)" -"(syntax-e$1 s_651)" -" s_651)))" -"(if(pair? s_652)" +"(let-values(((s_656)" +"(if(syntax?$1 s_655)" +"(syntax-e$1 s_655)" +" s_655)))" +"(if(pair? s_656)" "(let-values(((#%top381_0)" -"(let-values(((s_653)" +"(let-values(((s_657)" "(car" -" s_652)))" -" s_653))" +" s_656)))" +" s_657))" "((id382_0)" -"(let-values(((s_654)" +"(let-values(((s_658)" "(cdr" -" s_652)))" -"(if(let-values(((or-part_376)" +" s_656)))" +"(if(let-values(((or-part_375)" "(if(syntax?$1" -" s_654)" +" s_658)" "(symbol?" "(syntax-e$1" -" s_654))" +" s_658))" " #f)))" -"(if or-part_376" -" or-part_376" +"(if or-part_375" +" or-part_375" "(symbol?" -" s_654)))" -" s_654" +" s_658)))" +" s_658" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_58" -" s_654)))))" +" s_658)))))" "(values #%top381_0 id382_0))" "(raise-syntax-error$1" " #f" @@ -68056,7 +68083,7 @@ static const char *startup_source = "(if(expand-context-to-parsed? ctx_95)" "(parsed-id2.1 id_130 b_92 #f)" "(if(top-level-module-path-index?(module-binding-module b_92))" -"(let-values() s_650)" +"(let-values() s_654)" "(let-values() id_130))))" "(if(register-eventual-variable!? id_130 ctx_95)" "(let-values()" @@ -68101,42 +68128,42 @@ static const char *startup_source = "(let-values() id_130)" "(let-values()" "(let-values(((ok?_54 #%top388_0 id389_0)" -"(let-values(((s_655) disarmed-s_17))" -"(let-values(((orig-s_59) s_655))" +"(let-values(((s_659) disarmed-s_17))" +"(let-values(((orig-s_59) s_659))" "(let-values(((#%top388_1 id389_1)" -"(let-values(((s_656)" +"(let-values(((s_660)" "(if(syntax?$1" -" s_655)" +" s_659)" "(syntax-e$1" -" s_655)" -" s_655)))" -"(if(pair? s_656)" +" s_659)" +" s_659)))" +"(if(pair? s_660)" "(let-values(((#%top390_0)" -"(let-values(((s_657)" +"(let-values(((s_661)" "(car" -" s_656)))" -" s_657))" +" s_660)))" +" s_661))" "((id391_0)" -"(let-values(((s_658)" +"(let-values(((s_662)" "(cdr" -" s_656)))" -"(if(let-values(((or-part_377)" +" s_660)))" +"(if(let-values(((or-part_376)" "(if(syntax?$1" -" s_658)" +" s_662)" "(symbol?" "(syntax-e$1" -" s_658))" +" s_662))" " #f)))" -"(if or-part_377" -" or-part_377" +"(if or-part_376" +" or-part_376" "(symbol?" -" s_658)))" -" s_658" +" s_662)))" +" s_662" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_59" -" s_658)))))" +" s_662)))))" "(values" " #%top390_0" " id391_0))" @@ -68145,80 +68172,80 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_59)))))" "(values #t #%top388_1 id389_1))))))" -"(let-values(((s392_0) s_650)" +"(let-values(((s392_0) s_654)" "((temp393_0)(cons #%top388_0 id_130)))" "(rebuild5.1 #f #f s392_0 temp393_0)))))))" "(let-values()" "(if(expand-context-to-parsed? ctx_95)" "(parsed-top-id4.1 id_130 b_92 #f)" -" s_650)))))))))))))))))))))))" +" s_654)))))))))))))))))))))))" "(case-lambda" -"((s_659 ctx_96)(core377_0 s_659 ctx_96 #f #f))" -"((s_660 ctx_97 implicit-omitted?373_1)(core377_0 s_660 ctx_97 implicit-omitted?373_1 #t))))))" +"((s_663 ctx_96)(core377_0 s_663 ctx_96 #f #f))" +"((s_664 ctx_97 implicit-omitted?373_1)(core377_0 s_664 ctx_97 implicit-omitted?373_1 #t))))))" "(void" "(add-core-form!*" " 'set!" -"(lambda(s_661 ctx_98)" +"(lambda(s_665 ctx_98)" "(let-values((()" "(begin" "(let-values(((obs_116)(expand-context-observer ctx_98)))" "(if obs_116(let-values()(let-values()(call-expand-observe obs_116 'prim-set!)))(void)))" "(values))))" -"(let-values(((disarmed-s_18)(syntax-disarm$1 s_661)))" +"(let-values(((disarmed-s_18)(syntax-disarm$1 s_665)))" "(let-values(((ok?_55 set!394_0 id395_0 rhs396_0)" -"(let-values(((s_662) disarmed-s_18))" -"(let-values(((orig-s_60) s_662))" +"(let-values(((s_666) disarmed-s_18))" +"(let-values(((orig-s_60) s_666))" "(let-values(((set!394_1 id395_1 rhs396_1)" -"(let-values(((s_663)(if(syntax?$1 s_662)(syntax-e$1 s_662) s_662)))" -"(if(pair? s_663)" -"(let-values(((set!397_0)(let-values(((s_664)(car s_663))) s_664))" +"(let-values(((s_667)(if(syntax?$1 s_666)(syntax-e$1 s_666) s_666)))" +"(if(pair? s_667)" +"(let-values(((set!397_0)(let-values(((s_668)(car s_667))) s_668))" "((id398_0 rhs399_0)" -"(let-values(((s_665)(cdr s_663)))" -"(let-values(((s_666)" -"(if(syntax?$1 s_665)" -"(syntax-e$1 s_665)" -" s_665)))" -"(if(pair? s_666)" +"(let-values(((s_669)(cdr s_667)))" +"(let-values(((s_670)" +"(if(syntax?$1 s_669)" +"(syntax-e$1 s_669)" +" s_669)))" +"(if(pair? s_670)" "(let-values(((id400_0)" -"(let-values(((s_667)(car s_666)))" -"(if(let-values(((or-part_378)" -"(if(syntax?$1 s_667)" +"(let-values(((s_671)(car s_670)))" +"(if(let-values(((or-part_377)" +"(if(syntax?$1 s_671)" "(symbol?" "(syntax-e$1" -" s_667))" +" s_671))" " #f)))" -"(if or-part_378" -" or-part_378" -"(symbol? s_667)))" -" s_667" +"(if or-part_377" +" or-part_377" +"(symbol? s_671)))" +" s_671" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_60" -" s_667))))" +" s_671))))" "((rhs401_0)" -"(let-values(((s_668)(cdr s_666)))" -"(let-values(((s_669)" -"(if(syntax?$1 s_668)" -"(syntax-e$1 s_668)" -" s_668)))" -"(if(pair? s_669)" +"(let-values(((s_672)(cdr s_670)))" +"(let-values(((s_673)" +"(if(syntax?$1 s_672)" +"(syntax-e$1 s_672)" +" s_672)))" +"(if(pair? s_673)" "(let-values(((rhs402_0)" -"(let-values(((s_670)" +"(let-values(((s_674)" "(car" -" s_669)))" -" s_670))" +" s_673)))" +" s_674))" "(()" -"(let-values(((s_671)" +"(let-values(((s_675)" "(cdr" -" s_669)))" -"(let-values(((s_672)" +" s_673)))" +"(let-values(((s_676)" "(if(syntax?$1" -" s_671)" +" s_675)" "(syntax-e$1" -" s_671)" -" s_671)))" -"(if(null? s_672)" +" s_675)" +" s_675)))" +"(if(null? s_676)" "(values)" "(raise-syntax-error$1" " #f" @@ -68267,7 +68294,7 @@ static const char *startup_source = "(if binding_30" "(let-values(((binding407_0) binding_30)" "((ctx408_0) ctx_98)" -"((s409_0) s_661))" +"((s409_0) s_665))" "(lookup28.1 #f #f #f #f binding407_0 ctx408_0 s409_0))" "(values #f #f #f #f))))" "(begin" @@ -68276,14 +68303,14 @@ static const char *startup_source = "(let-values()" "(let-values()(call-expand-observe obs_117 'resolve id_131)))" "(void)))" -"(if(let-values(((or-part_379)(variable? t_60)))" +"(if(let-values(((or-part_378)(variable? t_60)))" +"(if or-part_378" +" or-part_378" +"(if(not binding_30)" +"(let-values(((or-part_379)" +"(register-eventual-variable!? id_131 ctx_98)))" "(if or-part_379" " or-part_379" -"(if(not binding_30)" -"(let-values(((or-part_380)" -"(register-eventual-variable!? id_131 ctx_98)))" -"(if or-part_380" -" or-part_380" "(expand-context-allow-unbound? ctx_98)))" " #f)))" "(let-values()" @@ -68299,7 +68326,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"cannot mutate module-required identifier\"" -" s_661" +" s_665" " id_131))" "(void))" "(values))))" @@ -68318,7 +68345,7 @@ static const char *startup_source = "(register-variable-referenced-if-local! binding_30)" "(values))))" "(let-values(((rebuild-s_12)" -"(let-values(((ctx410_0) ctx_98)((s411_0) s_661))" +"(let-values(((ctx410_0) ctx_98)((s411_0) s_665))" "(keep-as-needed85.1" " #f" " #f" @@ -68359,7 +68386,7 @@ static const char *startup_source = "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_661" +" s_665" " id_131" " null" "(syntax-debug-info-string id_131 ctx_98)))" @@ -68370,7 +68397,7 @@ static const char *startup_source = "(let-values(((temp419_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_661" +" s_665" " disarmed-s_18" " set!394_0" " rhs396_0" @@ -68385,7 +68412,7 @@ static const char *startup_source = "(let-values(((exp-s_14 re-ctx_1)" "(let-values(((t421_0) t_60)" "((insp422_0) insp_24)" -"((s423_0) s_661)" +"((s423_0) s_665)" "((orig-id424_0) orig-id_1)" "((ctx425_0) ctx_98)" "((binding426_0) binding_30)" @@ -68412,7 +68439,7 @@ static const char *startup_source = "(let-values(((temp430_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_661" +" s_665" " disarmed-s_18" " set!394_0" " rhs396_0" @@ -68435,7 +68462,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"cannot mutate syntax identifier\"" -" s_661" +" s_665" " id_131))))))))))))))" " rename-loop_0)" " orig-id_1" @@ -68446,7 +68473,7 @@ static const char *startup_source = "(lambda(s25_0 disarmed-s26_0 set!-id27_0 id28_0 rhs-s29_0 from-rename?30_0 ctx31_0 t23_0 t24_0)" "(begin" " 'substitute-set!-rename32" -"(let-values(((s_673) s25_0))" +"(let-values(((s_677) s25_0))" "(let-values(((disarmed-s_19) disarmed-s26_0))" "(let-values(((set!-id_0) set!-id27_0))" "(let-values(((id_132) id28_0))" @@ -68455,8 +68482,8 @@ static const char *startup_source = "(let-values(((ctx_99) ctx31_0))" "(let-values(((t_61)(if t24_0 t23_0 #f)))" "(let-values()" -"(if(let-values(((or-part_381) t_61))" -"(if or-part_381 or-part_381 from-rename?_1))" +"(if(let-values(((or-part_380) t_61))" +"(if or-part_380 or-part_380 from-rename?_1))" "(let-values()" "(let-values(((new-id_1)" "(if t_61" @@ -68468,17 +68495,17 @@ static const char *startup_source = "(list set!-id_0 new-id_1 rhs-s_0)" " disarmed-s_19" " disarmed-s_19)" -" s_673)))" -"(let-values() s_673)))))))))))))))" +" s_677)))" +"(let-values() s_677)))))))))))))))" "(case-lambda" -"((s_674 disarmed-s_20 set!-id_1 id_133 rhs-s_1 from-rename?_2 ctx_100)" -"(begin(substitute-set!-rename32_0 s_674 disarmed-s_20 set!-id_1 id_133 rhs-s_1 from-rename?_2 ctx_100 #f #f)))" -"((s_675 disarmed-s_21 set!-id_2 id_134 rhs-s_2 from-rename?_3 ctx_101 t23_1)" -"(substitute-set!-rename32_0 s_675 disarmed-s_21 set!-id_2 id_134 rhs-s_2 from-rename?_3 ctx_101 t23_1 #t)))))" +"((s_678 disarmed-s_20 set!-id_1 id_133 rhs-s_1 from-rename?_2 ctx_100)" +"(begin(substitute-set!-rename32_0 s_678 disarmed-s_20 set!-id_1 id_133 rhs-s_1 from-rename?_2 ctx_100 #f #f)))" +"((s_679 disarmed-s_21 set!-id_2 id_134 rhs-s_2 from-rename?_3 ctx_101 t23_1)" +"(substitute-set!-rename32_0 s_679 disarmed-s_21 set!-id_2 id_134 rhs-s_2 from-rename?_3 ctx_101 t23_1 #t)))))" "(void" "(add-core-form!*" " '#%variable-reference" -"(lambda(s_676 ctx_102)" +"(lambda(s_680 ctx_102)" "(let-values((()" "(begin" "(let-values(((obs_119)(expand-context-observer ctx_102)))" @@ -68486,75 +68513,75 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_119 'prim-#%variable-reference)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_22)(syntax-disarm$1 s_676)))" +"(let-values(((disarmed-s_22)(syntax-disarm$1 s_680)))" "(let-values(((ok?_56 #%variable-reference432_0 id433_0)" -"(let-values(((s_677) disarmed-s_22))" -"(if(let-values(((s_678)(if(syntax?$1 s_677)(syntax-e$1 s_677) s_677)))" -"(if(pair? s_678)" -"(if(let-values(((s_679)(car s_678))) #t)" -"(let-values(((s_680)(cdr s_678)))" -"(let-values(((s_681)(if(syntax?$1 s_680)(syntax-e$1 s_680) s_680)))" -"(if(pair? s_681)" -"(if(let-values(((s_682)(car s_681)))" -"(let-values(((or-part_382)" -"(if(syntax?$1 s_682)(symbol?(syntax-e$1 s_682)) #f)))" -"(if or-part_382 or-part_382(symbol? s_682))))" -"(let-values(((s_683)(cdr s_681)))" -"(let-values(((s_684)(if(syntax?$1 s_683)(syntax-e$1 s_683) s_683)))" -"(null? s_684)))" +"(let-values(((s_681) disarmed-s_22))" +"(if(let-values(((s_682)(if(syntax?$1 s_681)(syntax-e$1 s_681) s_681)))" +"(if(pair? s_682)" +"(if(let-values(((s_683)(car s_682))) #t)" +"(let-values(((s_684)(cdr s_682)))" +"(let-values(((s_685)(if(syntax?$1 s_684)(syntax-e$1 s_684) s_684)))" +"(if(pair? s_685)" +"(if(let-values(((s_686)(car s_685)))" +"(let-values(((or-part_381)" +"(if(syntax?$1 s_686)(symbol?(syntax-e$1 s_686)) #f)))" +"(if or-part_381 or-part_381(symbol? s_686))))" +"(let-values(((s_687)(cdr s_685)))" +"(let-values(((s_688)(if(syntax?$1 s_687)(syntax-e$1 s_687) s_687)))" +"(null? s_688)))" " #f)" " #f)))" " #f)" " #f))" "(let-values()" "(let-values(((#%variable-reference432_1 id433_1)" -"(let-values(((s_685)(if(syntax?$1 s_677)(syntax-e$1 s_677) s_677)))" +"(let-values(((s_689)(if(syntax?$1 s_681)(syntax-e$1 s_681) s_681)))" "(let-values(((#%variable-reference434_0)" -"(let-values(((s_686)(car s_685))) s_686))" +"(let-values(((s_690)(car s_689))) s_690))" "((id435_0)" -"(let-values(((s_687)(cdr s_685)))" -"(let-values(((s_688)" -"(if(syntax?$1 s_687)" -"(syntax-e$1 s_687)" -" s_687)))" +"(let-values(((s_691)(cdr s_689)))" +"(let-values(((s_692)" +"(if(syntax?$1 s_691)" +"(syntax-e$1 s_691)" +" s_691)))" "(let-values(((id436_0)" -"(let-values(((s_689)(car s_688))) s_689))" +"(let-values(((s_693)(car s_692))) s_693))" "(()" -"(let-values(((s_690)(cdr s_688)))" -"(let-values(((s_691)" -"(if(syntax?$1 s_690)" -"(syntax-e$1 s_690)" -" s_690)))" +"(let-values(((s_694)(cdr s_692)))" +"(let-values(((s_695)" +"(if(syntax?$1 s_694)" +"(syntax-e$1 s_694)" +" s_694)))" "(values)))))" "(values id436_0))))))" "(values #%variable-reference434_0 id435_0)))))" "(values #t #%variable-reference432_1 id433_1)))" "(values #f #f #f)))))" "(let-values(((ok?_57 #%variable-reference437_0 #%top438_0 id439_0)" -"(let-values(((s_692) disarmed-s_22))" +"(let-values(((s_696) disarmed-s_22))" "(if(if(not ok?_56)" -"(let-values(((s_693)(if(syntax?$1 s_692)(syntax-e$1 s_692) s_692)))" -"(if(pair? s_693)" -"(if(let-values(((s_694)(car s_693))) #t)" -"(let-values(((s_695)(cdr s_693)))" -"(let-values(((s_696)(if(syntax?$1 s_695)(syntax-e$1 s_695) s_695)))" -"(if(pair? s_696)" -"(if(let-values(((s_697)(car s_696)))" -"(let-values(((s_698)" -"(if(syntax?$1 s_697)(syntax-e$1 s_697) s_697)))" -"(if(pair? s_698)" -"(if(let-values(((s_699)(car s_698))) #t)" -"(let-values(((s_700)(cdr s_698)))" -"(let-values(((or-part_383)" -"(if(syntax?$1 s_700)" -"(symbol?(syntax-e$1 s_700))" +"(let-values(((s_697)(if(syntax?$1 s_696)(syntax-e$1 s_696) s_696)))" +"(if(pair? s_697)" +"(if(let-values(((s_698)(car s_697))) #t)" +"(let-values(((s_699)(cdr s_697)))" +"(let-values(((s_700)(if(syntax?$1 s_699)(syntax-e$1 s_699) s_699)))" +"(if(pair? s_700)" +"(if(let-values(((s_701)(car s_700)))" +"(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))) #t)" +"(let-values(((s_704)(cdr s_702)))" +"(let-values(((or-part_382)" +"(if(syntax?$1 s_704)" +"(symbol?(syntax-e$1 s_704))" " #f)))" -"(if or-part_383 or-part_383(symbol? s_700))))" +"(if or-part_382 or-part_382(symbol? s_704))))" " #f)" " #f)))" -"(let-values(((s_701)(cdr s_696)))" -"(let-values(((s_702)(if(syntax?$1 s_701)(syntax-e$1 s_701) s_701)))" -"(null? s_702)))" +"(let-values(((s_705)(cdr s_700)))" +"(let-values(((s_706)(if(syntax?$1 s_705)(syntax-e$1 s_705) s_705)))" +"(null? s_706)))" " #f)" " #f)))" " #f)" @@ -68562,61 +68589,61 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values(((#%variable-reference437_1 #%top438_1 id439_1)" -"(let-values(((s_703)(if(syntax?$1 s_692)(syntax-e$1 s_692) s_692)))" +"(let-values(((s_707)(if(syntax?$1 s_696)(syntax-e$1 s_696) s_696)))" "(let-values(((#%variable-reference440_0)" -"(let-values(((s_704)(car s_703))) s_704))" +"(let-values(((s_708)(car s_707))) s_708))" "((#%top441_0 id442_0)" -"(let-values(((s_705)(cdr s_703)))" -"(let-values(((s_706)" -"(if(syntax?$1 s_705)" -"(syntax-e$1 s_705)" -" s_705)))" -"(let-values(((#%top443_0 id444_0)" -"(let-values(((s_707)(car s_706)))" -"(let-values(((s_708)" -"(if(syntax?$1 s_707)" -"(syntax-e$1 s_707)" -" s_707)))" -"(let-values(((#%top445_0)" -"(let-values(((s_709)" -"(car" -" s_708)))" -" s_709))" -"((id446_0)" +"(let-values(((s_709)(cdr s_707)))" "(let-values(((s_710)" -"(cdr" -" s_708)))" -" s_710)))" -"(values #%top445_0 id446_0)))))" -"(()" -"(let-values(((s_711)(cdr s_706)))" +"(if(syntax?$1 s_709)" +"(syntax-e$1 s_709)" +" s_709)))" +"(let-values(((#%top443_0 id444_0)" +"(let-values(((s_711)(car s_710)))" "(let-values(((s_712)" "(if(syntax?$1 s_711)" "(syntax-e$1 s_711)" " s_711)))" +"(let-values(((#%top445_0)" +"(let-values(((s_713)" +"(car" +" s_712)))" +" s_713))" +"((id446_0)" +"(let-values(((s_714)" +"(cdr" +" s_712)))" +" s_714)))" +"(values #%top445_0 id446_0)))))" +"(()" +"(let-values(((s_715)(cdr s_710)))" +"(let-values(((s_716)" +"(if(syntax?$1 s_715)" +"(syntax-e$1 s_715)" +" s_715)))" "(values)))))" "(values #%top443_0 id444_0))))))" "(values #%variable-reference440_0 #%top441_0 id442_0)))))" "(values #t #%variable-reference437_1 #%top438_1 id439_1)))" "(values #f #f #f #f)))))" "(let-values(((ok?_58 #%variable-reference447_0)" -"(let-values(((s_713) disarmed-s_22))" -"(if(if(not(let-values(((or-part_384) ok?_56))(if or-part_384 or-part_384 ok?_57)))" +"(let-values(((s_717) disarmed-s_22))" +"(if(if(not(let-values(((or-part_383) ok?_56))(if or-part_383 or-part_383 ok?_57)))" " #t" " #f)" -"(let-values(((orig-s_61) s_713))" +"(let-values(((orig-s_61) s_717))" "(let-values(((#%variable-reference447_1)" -"(let-values(((s_714)(if(syntax?$1 s_713)(syntax-e$1 s_713) s_713)))" -"(if(pair? s_714)" +"(let-values(((s_718)(if(syntax?$1 s_717)(syntax-e$1 s_717) s_717)))" +"(if(pair? s_718)" "(let-values(((#%variable-reference448_0)" -"(let-values(((s_715)(car s_714))) s_715))" +"(let-values(((s_719)(car s_718))) s_719))" "(()" -"(let-values(((s_716)(cdr s_714)))" -"(let-values(((s_717)" -"(if(syntax?$1 s_716)" -"(syntax-e$1 s_716)" -" s_716)))" -"(if(null? s_717)" +"(let-values(((s_720)(cdr s_718)))" +"(let-values(((s_721)" +"(if(syntax?$1 s_720)" +"(syntax-e$1 s_720)" +" s_720)))" +"(if(null? s_721)" "(values)" "(raise-syntax-error$1" " #f" @@ -68626,7 +68653,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_61)))))" "(values #t #%variable-reference447_1)))" "(values #f #f)))))" -"(if(let-values(((or-part_385) ok?_56))(if or-part_385 or-part_385 ok?_57))" +"(if(let-values(((or-part_384) ok?_56))(if or-part_384 or-part_384 ok?_57))" "(let-values()" "(let-values(((var-id_0)(if ok?_56 id433_0 id439_0)))" "(let-values(((binding_31)" @@ -68642,14 +68669,14 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(let-values(((or-part_386) binding_31))" -"(if or-part_386 or-part_386(expand-context-allow-unbound? ctx_102)))" +"(if(let-values(((or-part_385) binding_31))" +"(if or-part_385 or-part_385(expand-context-allow-unbound? ctx_102)))" "(void)" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_676" +" s_680" " var-id_0" " null" "(syntax-debug-info-string var-id_0 ctx_102))))" @@ -68659,30 +68686,30 @@ static const char *startup_source = "(let-values(((binding452_0) binding_31)" "((ctx453_0) ctx_102)" "((var-id454_0) var-id_0)" -"((s455_0) s_676)" +"((s455_0) s_680)" "((temp456_0)(expand-context-in-local-expand? ctx_102)))" "(lookup28.1 s455_0 #t temp456_0 #t binding452_0 ctx453_0 var-id454_0))" "(values #f #f #f #f))))" "(begin" "(if(if t_62(not(variable? t_62)) #f)" "(let-values()" -" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_676))" +" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_680))" "(void))" "(if(expand-context-to-parsed? ctx_102)" "(parsed-#%variable-reference11.1" -"(keep-properties-only~ s_676)" +"(keep-properties-only~ s_680)" "(if ok?_57" "(let-values()(parsed-top-id4.1 var-id_0 binding_31 #f))" "(let-values()(parsed-id2.1 var-id_0 binding_31 #f))))" -" s_676))))))))" +" s_680))))))))" "(let-values()" "(if(expand-context-to-parsed? ctx_102)" -"(parsed-#%variable-reference11.1(keep-properties-only~ s_676) #f)" -" s_676)))))))))))" +"(parsed-#%variable-reference11.1(keep-properties-only~ s_680) #f)" +" s_680)))))))))))" "(void" "(add-core-form!*" " '#%expression" -"(lambda(s_718 ctx_103)" +"(lambda(s_722 ctx_103)" "(let-values((()" "(begin" "(let-values(((obs_120)(expand-context-observer ctx_103)))" @@ -68690,32 +68717,32 @@ static const char *startup_source = "(let-values()(let-values()(call-expand-observe obs_120 'prim-#%expression)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_23)(syntax-disarm$1 s_718)))" +"(let-values(((disarmed-s_23)(syntax-disarm$1 s_722)))" "(let-values(((ok?_59 #%expression457_0 e458_0)" -"(let-values(((s_719) disarmed-s_23))" -"(let-values(((orig-s_62) s_719))" +"(let-values(((s_723) disarmed-s_23))" +"(let-values(((orig-s_62) s_723))" "(let-values(((#%expression457_1 e458_1)" -"(let-values(((s_720)(if(syntax?$1 s_719)(syntax-e$1 s_719) s_719)))" -"(if(pair? s_720)" +"(let-values(((s_724)(if(syntax?$1 s_723)(syntax-e$1 s_723) s_723)))" +"(if(pair? s_724)" "(let-values(((#%expression459_0)" -"(let-values(((s_721)(car s_720))) s_721))" +"(let-values(((s_725)(car s_724))) s_725))" "((e460_0)" -"(let-values(((s_722)(cdr s_720)))" -"(let-values(((s_723)" -"(if(syntax?$1 s_722)" -"(syntax-e$1 s_722)" -" s_722)))" -"(if(pair? s_723)" +"(let-values(((s_726)(cdr s_724)))" +"(let-values(((s_727)" +"(if(syntax?$1 s_726)" +"(syntax-e$1 s_726)" +" s_726)))" +"(if(pair? s_727)" "(let-values(((e461_0)" -"(let-values(((s_724)(car s_723)))" -" s_724))" +"(let-values(((s_728)(car s_727)))" +" s_728))" "(()" -"(let-values(((s_725)(cdr s_723)))" -"(let-values(((s_726)" -"(if(syntax?$1 s_725)" -"(syntax-e$1 s_725)" -" s_725)))" -"(if(null? s_726)" +"(let-values(((s_729)(cdr s_727)))" +"(let-values(((s_730)" +"(if(syntax?$1 s_729)" +"(syntax-e$1 s_729)" +" s_729)))" +"(if(null? s_730)" "(values)" "(raise-syntax-error$1" " #f" @@ -68727,7 +68754,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_62)))))" "(values #t #%expression457_1 e458_1))))))" "(let-values(((rebuild-s_13)" -"(let-values(((ctx462_0) ctx_103)((s463_0) s_718)((temp464_0) #t))" +"(let-values(((ctx462_0) ctx_103)((s463_0) s_722)((temp464_0) #t))" "(keep-as-needed85.1 temp464_0 #t #f #f #f #f ctx462_0 s463_0))))" "(let-values(((exp-e_0)" "(let-values(((temp465_0) e458_0)" @@ -68754,8 +68781,8 @@ static const char *startup_source = "(let-values()" "(let-values(((rebuild-s469_0) rebuild-s_13)((temp470_0)(list #%expression457_0 exp-e_0)))" "(rebuild5.1 #f #f rebuild-s469_0 temp470_0))))))))))))))" -" (void (add-core-form!* 'unquote (lambda (s_727 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_727))))" -" (void (add-core-form!* 'unquote-splicing (lambda (s_728 ctx_105) (raise-syntax-error$1 #f \"not in quasiquote\" s_728))))" +" (void (add-core-form!* 'unquote (lambda (s_731 ctx_104) (raise-syntax-error$1 #f \"not in quasiquote\" s_731))))" +" (void (add-core-form!* 'unquote-splicing (lambda (s_732 ctx_105) (raise-syntax-error$1 #f \"not in quasiquote\" s_732))))" "(define-values" "(binding-for-transformer?)" "(lambda(b_41 id_135 at-phase_12 ns_123)" @@ -68787,7 +68814,7 @@ static const char *startup_source = "(lambda(specs_0 orig-s_63 rp_1 self_30 phase_46 ctx_106)" "(begin" "(let-values(((ns_125)(expand-context-namespace ctx_106)))" -"((letrec-values(((loop_113)" +"((letrec-values(((loop_115)" "(lambda(specs_1 at-phase_13 protected?_15 layer_6)" "(begin" " 'loop" @@ -68950,57 +68977,57 @@ static const char *startup_source = " for-meta3_0" " phase-level4_0" " spec5_0)" -"(let-values(((s_300)" +"(let-values(((s_304)" " disarmed-spec_0))" "(let-values(((orig-s_64)" -" s_300))" +" s_304))" "(let-values(((for-meta3_1" " phase-level4_1" " spec5_1)" -"(let-values(((s_301)" +"(let-values(((s_305)" "(if(syntax?$1" -" s_300)" +" s_304)" "(syntax-e$1" -" s_300)" -" s_300)))" +" s_304)" +" s_304)))" "(if(pair?" -" s_301)" +" s_305)" "(let-values(((for-meta6_0)" -"(let-values(((s_420)" +"(let-values(((s_425)" "(car" -" s_301)))" -" s_420))" +" s_305)))" +" s_425))" "((phase-level7_0" " spec8_0)" -"(let-values(((s_178)" +"(let-values(((s_180)" "(cdr" -" s_301)))" -"(let-values(((s_729)" +" s_305)))" +"(let-values(((s_733)" "(if(syntax?$1" -" s_178)" +" s_180)" "(syntax-e$1" -" s_178)" -" s_178)))" +" s_180)" +" s_180)))" "(if(pair?" -" s_729)" +" s_733)" "(let-values(((phase-level9_0)" -"(let-values(((s_730)" +"(let-values(((s_734)" "(car" -" s_729)))" -" s_730))" +" s_733)))" +" s_734))" "((spec10_0)" -"(let-values(((s_452)" +"(let-values(((s_457)" "(cdr" -" s_729)))" -"(let-values(((s_458)" +" s_733)))" +"(let-values(((s_463)" "(if(syntax?$1" -" s_452)" +" s_457)" "(syntax-e$1" -" s_452)" -" s_452)))" +" s_457)" +" s_457)))" "(let-values(((flat-s_44)" "(to-syntax-list.1" -" s_458)))" +" s_463)))" "(if(not" " flat-s_44)" "(let-values()" @@ -69047,7 +69074,7 @@ static const char *startup_source = "(values))))" "(let-values(((track-stxes_5" " exp-specs_5)" -"(loop_113" +"(loop_115" " spec5_0" "(phase+" " p_75" @@ -69098,15 +69125,15 @@ static const char *startup_source = "(if(pair?" " s_23)" "(let-values(((for-syntax15_0)" -"(let-values(((s_148)" +"(let-values(((s_150)" "(car" " s_23)))" -" s_148))" +" s_150))" "((spec16_0)" "(let-values(((s_25)" "(cdr" " s_23)))" -"(let-values(((s_78)" +"(let-values(((s_80)" "(if(syntax?$1" " s_25)" "(syntax-e$1" @@ -69114,7 +69141,7 @@ static const char *startup_source = " s_25)))" "(let-values(((flat-s_45)" "(to-syntax-list.1" -" s_78)))" +" s_80)))" "(if(not" " flat-s_45)" "(let-values()" @@ -69137,7 +69164,7 @@ static const char *startup_source = " spec14_1))))))" "(let-values(((track-stxes_6" " exp-specs_6)" -"(loop_113" +"(loop_115" " spec14_0" "(phase+" " 1" @@ -69178,24 +69205,24 @@ static const char *startup_source = " s_45))" "(let-values(((for-label19_1" " spec20_1)" -"(let-values(((s_470)" +"(let-values(((s_475)" "(if(syntax?$1" " s_45)" "(syntax-e$1" " s_45)" " s_45)))" "(if(pair?" -" s_470)" +" s_475)" "(let-values(((for-label21_0)" -"(let-values(((s_467)" +"(let-values(((s_472)" "(car" -" s_470)))" -" s_467))" +" s_475)))" +" s_472))" "((spec22_0)" "(let-values(((s_46)" "(cdr" -" s_470)))" -"(let-values(((s_302)" +" s_475)))" +"(let-values(((s_306)" "(if(syntax?$1" " s_46)" "(syntax-e$1" @@ -69203,7 +69230,7 @@ static const char *startup_source = " s_46)))" "(let-values(((flat-s_46)" "(to-syntax-list.1" -" s_302)))" +" s_306)))" "(if(not" " flat-s_46)" "(let-values()" @@ -69226,7 +69253,7 @@ static const char *startup_source = " spec20_1))))))" "(let-values(((track-stxes_7" " exp-specs_7)" -"(loop_113" +"(loop_115" " spec20_0" " #f" " protected?_15" @@ -69270,38 +69297,38 @@ static const char *startup_source = "(let-values(((ok?_63" " protect25_0" " p-spec26_0)" -"(let-values(((s_731)" +"(let-values(((s_735)" " disarmed-spec_0))" "(let-values(((orig-s_67)" -" s_731))" +" s_735))" "(let-values(((protect25_1" " p-spec26_1)" "(let-values(((s_31)" "(if(syntax?$1" -" s_731)" +" s_735)" "(syntax-e$1" -" s_731)" -" s_731)))" +" s_735)" +" s_735)))" "(if(pair?" " s_31)" "(let-values(((protect27_0)" -"(let-values(((s_87)" +"(let-values(((s_89)" "(car" " s_31)))" -" s_87))" +" s_89))" "((p-spec28_0)" -"(let-values(((s_304)" +"(let-values(((s_308)" "(cdr" " s_31)))" -"(let-values(((s_473)" +"(let-values(((s_478)" "(if(syntax?$1" -" s_304)" +" s_308)" "(syntax-e$1" -" s_304)" -" s_304)))" +" s_308)" +" s_308)))" "(let-values(((flat-s_47)" "(to-syntax-list.1" -" s_473)))" +" s_478)))" "(if(not" " flat-s_47)" "(let-values()" @@ -69324,7 +69351,7 @@ static const char *startup_source = " p-spec26_1))))))" "(let-values(((track-stxes_8" " exp-specs_8)" -"(loop_113" +"(loop_115" " p-spec26_0" " at-phase_13" " #t" @@ -69355,52 +69382,52 @@ static const char *startup_source = " rename31_0" " id:from32_0" " id:to33_0)" -"(let-values(((s_732)" +"(let-values(((s_736)" " disarmed-spec_0))" "(let-values(((orig-s_68)" -" s_732))" +" s_736))" "(let-values(((rename31_1" " id:from32_1" " id:to33_1)" -"(let-values(((s_475)" +"(let-values(((s_55)" "(if(syntax?$1" -" s_732)" +" s_736)" "(syntax-e$1" -" s_732)" -" s_732)))" +" s_736)" +" s_736)))" "(if(pair?" -" s_475)" +" s_55)" "(let-values(((rename34_0)" -"(let-values(((s_309)" +"(let-values(((s_56)" "(car" -" s_475)))" -" s_309))" +" s_55)))" +" s_56))" "((id:from35_0" " id:to36_0)" -"(let-values(((s_733)" +"(let-values(((s_737)" "(cdr" -" s_475)))" -"(let-values(((s_310)" +" s_55)))" +"(let-values(((s_313)" "(if(syntax?$1" -" s_733)" +" s_737)" "(syntax-e$1" -" s_733)" -" s_733)))" +" s_737)" +" s_737)))" "(if(pair?" -" s_310)" +" s_313)" "(let-values(((id:from37_0)" "(let-values(((s_33)" "(car" -" s_310)))" -"(if(let-values(((or-part_203)" +" s_313)))" +"(if(let-values(((or-part_202)" "(if(syntax?$1" " s_33)" "(symbol?" "(syntax-e$1" " s_33))" " #f)))" -"(if or-part_203" -" or-part_203" +"(if or-part_202" +" or-part_202" "(symbol?" " s_33)))" " s_33" @@ -69410,50 +69437,50 @@ static const char *startup_source = " orig-s_68" " s_33))))" "((id:to38_0)" -"(let-values(((s_390)" +"(let-values(((s_396)" "(cdr" -" s_310)))" -"(let-values(((s_734)" +" s_313)))" +"(let-values(((s_738)" "(if(syntax?$1" -" s_390)" +" s_396)" "(syntax-e$1" -" s_390)" -" s_390)))" +" s_396)" +" s_396)))" "(if(pair?" -" s_734)" +" s_738)" "(let-values(((id:to39_0)" -"(let-values(((s_425)" +"(let-values(((s_430)" "(car" -" s_734)))" -"(if(let-values(((or-part_57)" +" s_738)))" +"(if(let-values(((or-part_58)" "(if(syntax?$1" -" s_425)" +" s_430)" "(symbol?" "(syntax-e$1" -" s_425))" +" s_430))" " #f)))" -"(if or-part_57" -" or-part_57" +"(if or-part_58" +" or-part_58" "(symbol?" -" s_425)))" -" s_425" +" s_430)))" +" s_430" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_68" -" s_425))))" +" s_430))))" "(()" -"(let-values(((s_735)" +"(let-values(((s_739)" "(cdr" -" s_734)))" -"(let-values(((s_57)" +" s_738)))" +"(let-values(((s_383)" "(if(syntax?$1" -" s_735)" +" s_739)" "(syntax-e$1" -" s_735)" -" s_735)))" +" s_739)" +" s_739)))" "(if(null?" -" s_57)" +" s_383)" "(values)" "(raise-syntax-error$1" " #f" @@ -69515,77 +69542,77 @@ static const char *startup_source = " struct40_0" " id:struct41_0" " id:field42_0)" -"(let-values(((s_490)" +"(let-values(((s_495)" " disarmed-spec_0))" "(let-values(((orig-s_69)" -" s_490))" +" s_495))" "(let-values(((struct40_1" " id:struct41_1" " id:field42_1)" -"(let-values(((s_491)" +"(let-values(((s_61)" "(if(syntax?$1" -" s_490)" +" s_495)" "(syntax-e$1" -" s_490)" -" s_490)))" +" s_495)" +" s_495)))" "(if(pair?" -" s_491)" +" s_61)" "(let-values(((struct43_0)" -"(let-values(((s_198)" +"(let-values(((s_62)" "(car" -" s_491)))" -" s_198))" +" s_61)))" +" s_62))" "((id:struct44_0" " id:field45_0)" -"(let-values(((s_736)" +"(let-values(((s_740)" "(cdr" -" s_491)))" -"(let-values(((s_737)" +" s_61)))" +"(let-values(((s_741)" "(if(syntax?$1" -" s_736)" +" s_740)" "(syntax-e$1" -" s_736)" -" s_736)))" +" s_740)" +" s_740)))" "(if(pair?" -" s_737)" +" s_741)" "(let-values(((id:struct46_0)" -"(let-values(((s_738)" +"(let-values(((s_63)" "(car" -" s_737)))" -"(if(let-values(((or-part_352)" +" s_741)))" +"(if(let-values(((or-part_350)" "(if(syntax?$1" -" s_738)" +" s_63)" "(symbol?" "(syntax-e$1" -" s_738))" +" s_63))" " #f)))" -"(if or-part_352" -" or-part_352" +"(if or-part_350" +" or-part_350" "(symbol?" -" s_738)))" -" s_738" +" s_63)))" +" s_63" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_69" -" s_738))))" +" s_63))))" "((id:field47_0)" -"(let-values(((s_739)" +"(let-values(((s_742)" "(cdr" -" s_737)))" -"(let-values(((s_63)" +" s_741)))" +"(let-values(((s_390)" "(if(syntax?$1" -" s_739)" +" s_742)" "(syntax-e$1" -" s_739)" -" s_739)))" +" s_742)" +" s_742)))" "(if(pair?" -" s_63)" +" s_390)" "(let-values(((id:field48_0)" "(let-values(((s_37)" "(car" -" s_63)))" -"(let-values(((s_404)" +" s_390)))" +"(let-values(((s_65)" "(if(syntax?$1" " s_37)" "(syntax-e$1" @@ -69593,7 +69620,7 @@ static const char *startup_source = " s_37)))" "(let-values(((flat-s_48)" "(to-syntax-list.1" -" s_404)))" +" s_65)))" "(if(not" " flat-s_48)" "(let-values()" @@ -69619,7 +69646,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_410)" -"(let-values(((s_740)" +"(let-values(((s_743)" "(unsafe-car" " lst_410))" "((rest_237)" @@ -69632,23 +69659,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id:field49_0)" "(let-values()" -"(if(let-values(((or-part_387)" +"(if(let-values(((or-part_386)" "(if(syntax?$1" -" s_740)" +" s_743)" "(symbol?" "(syntax-e$1" -" s_740))" +" s_743))" " #f)))" -"(if or-part_387" -" or-part_387" +"(if or-part_386" +" or-part_386" "(symbol?" -" s_740)))" -" s_740" +" s_743)))" +" s_743" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_69" -" s_740)))))" +" s_743)))))" "(cons" " id:field49_0" " id:field_3)))))" @@ -69667,17 +69694,17 @@ static const char *startup_source = "(reverse$1" " id:field_0))))))))" "(()" -"(let-values(((s_201)" +"(let-values(((s_205)" "(cdr" -" s_63)))" -"(let-values(((s_741)" +" s_390)))" +"(let-values(((s_744)" "(if(syntax?$1" -" s_201)" +" s_205)" "(syntax-e$1" -" s_201)" -" s_201)))" +" s_205)" +" s_205)))" "(if(null?" -" s_741)" +" s_744)" "(values)" "(raise-syntax-error$1" " #f" @@ -69734,54 +69761,54 @@ static const char *startup_source = "(let-values(((ok?_66" " all-from50_0" " mod-path51_0)" -"(let-values(((s_742)" +"(let-values(((s_745)" " disarmed-spec_0))" "(let-values(((orig-s_70)" -" s_742))" +" s_745))" "(let-values(((all-from50_1" " mod-path51_1)" -"(let-values(((s_743)" +"(let-values(((s_746)" "(if(syntax?$1" -" s_742)" +" s_745)" "(syntax-e$1" -" s_742)" -" s_742)))" +" s_745)" +" s_745)))" "(if(pair?" -" s_743)" +" s_746)" "(let-values(((all-from52_0)" -"(let-values(((s_744)" +"(let-values(((s_747)" "(car" -" s_743)))" -" s_744))" +" s_746)))" +" s_747))" "((mod-path53_0)" -"(let-values(((s_204)" +"(let-values(((s_208)" "(cdr" -" s_743)))" -"(let-values(((s_205)" +" s_746)))" +"(let-values(((s_209)" "(if(syntax?$1" -" s_204)" +" s_208)" "(syntax-e$1" -" s_204)" -" s_204)))" +" s_208)" +" s_208)))" "(if(pair?" -" s_205)" +" s_209)" "(let-values(((mod-path54_0)" -"(let-values(((s_745)" +"(let-values(((s_748)" "(car" -" s_205)))" -" s_745))" +" s_209)))" +" s_748))" "(()" -"(let-values(((s_92)" +"(let-values(((s_94)" "(cdr" -" s_205)))" -"(let-values(((s_315)" +" s_209)))" +"(let-values(((s_319)" "(if(syntax?$1" -" s_92)" +" s_94)" "(syntax-e$1" -" s_92)" -" s_92)))" +" s_94)" +" s_94)))" "(if(null?" -" s_315)" +" s_319)" "(values)" "(raise-syntax-error$1" " #f" @@ -69829,57 +69856,57 @@ static const char *startup_source = " all-from-except55_0" " mod-path56_0" " id57_0)" -"(let-values(((s_96)" +"(let-values(((s_98)" " disarmed-spec_0))" "(let-values(((orig-s_71)" -" s_96))" +" s_98))" "(let-values(((all-from-except55_1" " mod-path56_1" " id57_1)" -"(let-values(((s_209)" +"(let-values(((s_213)" "(if(syntax?$1" -" s_96)" +" s_98)" "(syntax-e$1" -" s_96)" -" s_96)))" +" s_98)" +" s_98)))" "(if(pair?" -" s_209)" +" s_213)" "(let-values(((all-from-except58_0)" -"(let-values(((s_409)" +"(let-values(((s_414)" "(car" -" s_209)))" -" s_409))" +" s_213)))" +" s_414))" "((mod-path59_0" " id60_0)" -"(let-values(((s_162)" +"(let-values(((s_164)" "(cdr" -" s_209)))" -"(let-values(((s_478)" +" s_213)))" +"(let-values(((s_482)" "(if(syntax?$1" -" s_162)" +" s_164)" "(syntax-e$1" -" s_162)" -" s_162)))" +" s_164)" +" s_164)))" "(if(pair?" -" s_478)" +" s_482)" "(let-values(((mod-path61_0)" -"(let-values(((s_746)" +"(let-values(((s_749)" "(car" -" s_478)))" -" s_746))" +" s_482)))" +" s_749))" "((id62_0)" -"(let-values(((s_747)" +"(let-values(((s_750)" "(cdr" -" s_478)))" -"(let-values(((s_748)" +" s_482)))" +"(let-values(((s_751)" "(if(syntax?$1" -" s_747)" +" s_750)" "(syntax-e$1" -" s_747)" -" s_747)))" +" s_750)" +" s_750)))" "(let-values(((flat-s_49)" "(to-syntax-list.1" -" s_748)))" +" s_751)))" "(if(not" " flat-s_49)" "(let-values()" @@ -69905,7 +69932,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_44)" -"(let-values(((s_481)" +"(let-values(((s_485)" "(unsafe-car" " lst_44))" "((rest_18)" @@ -69918,23 +69945,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id63_0)" "(let-values()" -"(if(let-values(((or-part_388)" +"(if(let-values(((or-part_387)" "(if(syntax?$1" -" s_481)" +" s_485)" "(symbol?" "(syntax-e$1" -" s_481))" +" s_485))" " #f)))" -"(if or-part_388" -" or-part_388" +"(if or-part_387" +" or-part_387" "(symbol?" -" s_481)))" -" s_481" +" s_485)))" +" s_485" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_71" -" s_481)))))" +" s_485)))))" "(cons" " id63_0" " id_138)))))" @@ -70001,36 +70028,36 @@ static const char *startup_source = "(values))))" "(let-values(((ok?_68" " all-defined64_0)" -"(let-values(((s_213)" +"(let-values(((s_217)" " disarmed-spec_0))" "(let-values(((orig-s_72)" -" s_213))" +" s_217))" "(let-values(((all-defined64_1)" -"(let-values(((s_386)" +"(let-values(((s_392)" "(if(syntax?$1" -" s_213)" +" s_217)" "(syntax-e$1" -" s_213)" -" s_213)))" +" s_217)" +" s_217)))" "(if(pair?" -" s_386)" +" s_392)" "(let-values(((all-defined65_0)" -"(let-values(((s_107)" +"(let-values(((s_109)" "(car" -" s_386)))" -" s_107))" +" s_392)))" +" s_109))" "(()" -"(let-values(((s_749)" +"(let-values(((s_752)" "(cdr" -" s_386)))" -"(let-values(((s_750)" +" s_392)))" +"(let-values(((s_753)" "(if(syntax?$1" -" s_749)" +" s_752)" "(syntax-e$1" -" s_749)" -" s_749)))" +" s_752)" +" s_752)))" "(if(null?" -" s_750)" +" s_753)" "(values)" "(raise-syntax-error$1" " #f" @@ -70069,38 +70096,38 @@ static const char *startup_source = "(let-values(((ok?_69" " all-defined-except66_0" " id67_0)" -"(let-values(((s_153)" +"(let-values(((s_155)" " disarmed-spec_0))" "(let-values(((orig-s_73)" -" s_153))" +" s_155))" "(let-values(((all-defined-except66_1" " id67_1)" -"(let-values(((s_215)" +"(let-values(((s_219)" "(if(syntax?$1" -" s_153)" +" s_155)" "(syntax-e$1" -" s_153)" -" s_153)))" +" s_155)" +" s_155)))" "(if(pair?" -" s_215)" +" s_219)" "(let-values(((all-defined-except68_0)" -"(let-values(((s_410)" +"(let-values(((s_415)" "(car" -" s_215)))" -" s_410))" +" s_219)))" +" s_415))" "((id69_0)" -"(let-values(((s_216)" +"(let-values(((s_220)" "(cdr" -" s_215)))" -"(let-values(((s_217)" +" s_219)))" +"(let-values(((s_221)" "(if(syntax?$1" -" s_216)" +" s_220)" "(syntax-e$1" -" s_216)" -" s_216)))" +" s_220)" +" s_220)))" "(let-values(((flat-s_50)" "(to-syntax-list.1" -" s_217)))" +" s_221)))" "(if(not" " flat-s_50)" "(let-values()" @@ -70119,14 +70146,14 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_411)))" -"((letrec-values(((for-loop_317)" +"((letrec-values(((for-loop_318)" "(lambda(id_141" " lst_412)" "(begin" " 'for-loop" "(if(pair?" " lst_412)" -"(let-values(((s_118)" +"(let-values(((s_120)" "(unsafe-car" " lst_412))" "((rest_238)" @@ -70139,23 +70166,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id70_0)" "(let-values()" -"(if(let-values(((or-part_173)" +"(if(let-values(((or-part_172)" "(if(syntax?$1" -" s_118)" +" s_120)" "(symbol?" "(syntax-e$1" -" s_118))" +" s_120))" " #f)))" -"(if or-part_173" -" or-part_173" +"(if or-part_172" +" or-part_172" "(symbol?" -" s_118)))" -" s_118" +" s_120)))" +" s_120" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_73" -" s_118)))))" +" s_120)))))" "(cons" " id70_0" " id_143)))))" @@ -70163,12 +70190,12 @@ static const char *startup_source = " id_30)))))" "(if(not" " #f)" -"(for-loop_317" +"(for-loop_318" " id_142" " rest_238)" " id_142)))" " id_141)))))" -" for-loop_317)" +" for-loop_318)" " null" " lst_411)))))" "(reverse$1" @@ -70211,29 +70238,12 @@ static const char *startup_source = "(let-values(((ok?_70" " prefix-all-defined71_0" " id:prefix72_0)" -"(let-values(((s_751)" +"(let-values(((s_754)" " disarmed-spec_0))" "(let-values(((orig-s_74)" -" s_751))" +" s_754))" "(let-values(((prefix-all-defined71_1" " id:prefix72_1)" -"(let-values(((s_752)" -"(if(syntax?$1" -" s_751)" -"(syntax-e$1" -" s_751)" -" s_751)))" -"(if(pair?" -" s_752)" -"(let-values(((prefix-all-defined73_0)" -"(let-values(((s_753)" -"(car" -" s_752)))" -" s_753))" -"((id:prefix74_0)" -"(let-values(((s_754)" -"(cdr" -" s_752)))" "(let-values(((s_755)" "(if(syntax?$1" " s_754)" @@ -70242,39 +70252,56 @@ static const char *startup_source = " s_754)))" "(if(pair?" " s_755)" -"(let-values(((id:prefix75_0)" -"(let-values(((s_124)" +"(let-values(((prefix-all-defined73_0)" +"(let-values(((s_756)" "(car" " s_755)))" -"(if(let-values(((or-part_389)" +" s_756))" +"((id:prefix74_0)" +"(let-values(((s_757)" +"(cdr" +" s_755)))" +"(let-values(((s_758)" "(if(syntax?$1" -" s_124)" +" s_757)" +"(syntax-e$1" +" s_757)" +" s_757)))" +"(if(pair?" +" s_758)" +"(let-values(((id:prefix75_0)" +"(let-values(((s_126)" +"(car" +" s_758)))" +"(if(let-values(((or-part_388)" +"(if(syntax?$1" +" s_126)" "(symbol?" "(syntax-e$1" -" s_124))" +" s_126))" " #f)))" -"(if or-part_389" -" or-part_389" +"(if or-part_388" +" or-part_388" "(symbol?" -" s_124)))" -" s_124" +" s_126)))" +" s_126" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_74" -" s_124))))" +" s_126))))" "(()" -"(let-values(((s_756)" +"(let-values(((s_759)" "(cdr" -" s_755)))" -"(let-values(((s_757)" +" s_758)))" +"(let-values(((s_760)" "(if(syntax?$1" -" s_756)" +" s_759)" "(syntax-e$1" -" s_756)" -" s_756)))" +" s_759)" +" s_759)))" "(if(null?" -" s_757)" +" s_760)" "(values)" "(raise-syntax-error$1" " #f" @@ -70326,73 +70353,73 @@ static const char *startup_source = " prefix-all-defined-except76_0" " id:prefix77_0" " id78_0)" -"(let-values(((s_228)" +"(let-values(((s_232)" " disarmed-spec_0))" "(let-values(((orig-s_75)" -" s_228))" +" s_232))" "(let-values(((prefix-all-defined-except76_1" " id:prefix77_1" " id78_1)" -"(let-values(((s_327)" +"(let-values(((s_331)" "(if(syntax?$1" -" s_228)" +" s_232)" "(syntax-e$1" -" s_228)" -" s_228)))" +" s_232)" +" s_232)))" "(if(pair?" -" s_327)" +" s_331)" "(let-values(((prefix-all-defined-except79_0)" -"(let-values(((s_330)" +"(let-values(((s_334)" "(car" -" s_327)))" -" s_330))" +" s_331)))" +" s_334))" "((id:prefix80_0" " id81_0)" -"(let-values(((s_331)" -"(cdr" -" s_327)))" -"(let-values(((s_332)" -"(if(syntax?$1" -" s_331)" -"(syntax-e$1" -" s_331)" -" s_331)))" -"(if(pair?" -" s_332)" -"(let-values(((id:prefix82_0)" "(let-values(((s_335)" -"(car" -" s_332)))" -"(if(let-values(((or-part_390)" +"(cdr" +" s_331)))" +"(let-values(((s_336)" "(if(syntax?$1" " s_335)" +"(syntax-e$1" +" s_335)" +" s_335)))" +"(if(pair?" +" s_336)" +"(let-values(((id:prefix82_0)" +"(let-values(((s_339)" +"(car" +" s_336)))" +"(if(let-values(((or-part_389)" +"(if(syntax?$1" +" s_339)" "(symbol?" "(syntax-e$1" -" s_335))" +" s_339))" " #f)))" -"(if or-part_390" -" or-part_390" +"(if or-part_389" +" or-part_389" "(symbol?" -" s_335)))" -" s_335" +" s_339)))" +" s_339" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_75" -" s_335))))" +" s_339))))" "((id83_0)" -"(let-values(((s_337)" +"(let-values(((s_341)" "(cdr" -" s_332)))" -"(let-values(((s_758)" +" s_336)))" +"(let-values(((s_761)" "(if(syntax?$1" -" s_337)" +" s_341)" "(syntax-e$1" -" s_337)" -" s_337)))" +" s_341)" +" s_341)))" "(let-values(((flat-s_51)" "(to-syntax-list.1" -" s_758)))" +" s_761)))" "(if(not" " flat-s_51)" "(let-values()" @@ -70411,14 +70438,14 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_4)))" -"((letrec-values(((for-loop_318)" +"((letrec-values(((for-loop_319)" "(lambda(id_145" " lst_413)" "(begin" " 'for-loop" "(if(pair?" " lst_413)" -"(let-values(((s_759)" +"(let-values(((s_762)" "(unsafe-car" " lst_413))" "((rest_194)" @@ -70431,23 +70458,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id84_2)" "(let-values()" -"(if(let-values(((or-part_278)" +"(if(let-values(((or-part_275)" "(if(syntax?$1" -" s_759)" +" s_762)" "(symbol?" "(syntax-e$1" -" s_759))" +" s_762))" " #f)))" -"(if or-part_278" -" or-part_278" +"(if or-part_275" +" or-part_275" "(symbol?" -" s_759)))" -" s_759" +" s_762)))" +" s_762" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_75" -" s_759)))))" +" s_762)))))" "(cons" " id84_2" " id_147)))))" @@ -70455,12 +70482,12 @@ static const char *startup_source = " id_148)))))" "(if(not" " #f)" -"(for-loop_318" +"(for-loop_319" " id_146" " rest_194)" " id_146)))" " id_145)))))" -" for-loop_318)" +" for-loop_319)" " null" " lst_4)))))" "(reverse$1" @@ -70506,78 +70533,78 @@ static const char *startup_source = " expand85_0" " id86_0" " datum87_0)" -"(let-values(((s_760)" +"(let-values(((s_763)" " disarmed-spec_0))" "(let-values(((orig-s_76)" -" s_760))" +" s_763))" "(let-values(((expand85_1" " id86_1" " datum87_1)" -"(let-values(((s_242)" -"(if(syntax?$1" -" s_760)" -"(syntax-e$1" -" s_760)" -" s_760)))" -"(if(pair?" -" s_242)" -"(let-values(((expand88_0)" -"(let-values(((s_243)" -"(car" -" s_242)))" -" s_243))" -"((id89_1" -" datum90_0)" -"(let-values(((s_761)" -"(cdr" -" s_242)))" -"(let-values(((s_244)" -"(if(syntax?$1" -" s_761)" -"(syntax-e$1" -" s_761)" -" s_761)))" -"(if(pair?" -" s_244)" -"(let-values(((id91_0" -" datum92_0)" -"(let-values(((s_762)" -"(car" -" s_244)))" "(let-values(((s_246)" "(if(syntax?$1" -" s_762)" +" s_763)" "(syntax-e$1" -" s_762)" -" s_762)))" +" s_763)" +" s_763)))" "(if(pair?" " s_246)" -"(let-values(((id93_1)" -"(let-values(((s_508)" +"(let-values(((expand88_0)" +"(let-values(((s_247)" "(car" " s_246)))" -"(if(let-values(((or-part_391)" +" s_247))" +"((id89_1" +" datum90_0)" +"(let-values(((s_764)" +"(cdr" +" s_246)))" +"(let-values(((s_248)" "(if(syntax?$1" -" s_508)" +" s_764)" +"(syntax-e$1" +" s_764)" +" s_764)))" +"(if(pair?" +" s_248)" +"(let-values(((id91_0" +" datum92_0)" +"(let-values(((s_765)" +"(car" +" s_248)))" +"(let-values(((s_250)" +"(if(syntax?$1" +" s_765)" +"(syntax-e$1" +" s_765)" +" s_765)))" +"(if(pair?" +" s_250)" +"(let-values(((id93_1)" +"(let-values(((s_512)" +"(car" +" s_250)))" +"(if(let-values(((or-part_390)" +"(if(syntax?$1" +" s_512)" "(symbol?" "(syntax-e$1" -" s_508))" +" s_512))" " #f)))" -"(if or-part_391" -" or-part_391" +"(if or-part_390" +" or-part_390" "(symbol?" -" s_508)))" -" s_508" +" s_512)))" +" s_512" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_76" -" s_508))))" +" s_512))))" "((datum94_0)" -"(let-values(((s_441)" +"(let-values(((s_446)" "(cdr" -" s_246)))" -" s_441)))" +" s_250)))" +" s_446)))" "(values" " id93_1" " datum94_0))" @@ -70586,17 +70613,17 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_76)))))" "(()" -"(let-values(((s_442)" +"(let-values(((s_447)" "(cdr" -" s_244)))" -"(let-values(((s_355)" +" s_248)))" +"(let-values(((s_359)" "(if(syntax?$1" -" s_442)" +" s_447)" "(syntax-e$1" -" s_442)" -" s_442)))" +" s_447)" +" s_447)))" "(if(null?" -" s_355)" +" s_359)" "(values)" "(raise-syntax-error$1" " #f" @@ -70625,54 +70652,54 @@ static const char *startup_source = "(let-values(((ok?_73" " expand95_0" " form96_0)" -"(let-values(((s_356)" +"(let-values(((s_360)" " disarmed-spec_0))" "(let-values(((orig-s_77)" -" s_356))" +" s_360))" "(let-values(((expand95_1" " form96_1)" -"(let-values(((s_359)" -"(if(syntax?$1" -" s_356)" -"(syntax-e$1" -" s_356)" -" s_356)))" -"(if(pair?" -" s_359)" -"(let-values(((expand97_0)" -"(let-values(((s_362)" -"(car" -" s_359)))" -" s_362))" -"((form98_0)" "(let-values(((s_363)" -"(cdr" -" s_359)))" -"(let-values(((s_364)" "(if(syntax?$1" -" s_363)" +" s_360)" "(syntax-e$1" -" s_363)" -" s_363)))" +" s_360)" +" s_360)))" "(if(pair?" -" s_364)" -"(let-values(((form99_0)" +" s_363)" +"(let-values(((expand97_0)" "(let-values(((s_366)" "(car" -" s_364)))" +" s_363)))" " s_366))" -"(()" +"((form98_0)" "(let-values(((s_367)" "(cdr" -" s_364)))" -"(let-values(((s_763)" +" s_363)))" +"(let-values(((s_368)" "(if(syntax?$1" " s_367)" "(syntax-e$1" " s_367)" " s_367)))" +"(if(pair?" +" s_368)" +"(let-values(((form99_0)" +"(let-values(((s_370)" +"(car" +" s_368)))" +" s_370))" +"(()" +"(let-values(((s_371)" +"(cdr" +" s_368)))" +"(let-values(((s_766)" +"(if(syntax?$1" +" s_371)" +"(syntax-e$1" +" s_371)" +" s_371)))" "(if(null?" -" s_763)" +" s_766)" "(values)" "(raise-syntax-error$1" " #f" @@ -70699,21 +70726,21 @@ static const char *startup_source = "(let-values(((temp104_5)" " form96_0)" "((temp105_5)" -"(let-values(((v_262)" +"(let-values(((v_261)" " ctx_106))" -"(let-values(((the-struct_94)" -" v_262))" +"(let-values(((the-struct_93)" +" v_261))" "(if(expand-context/outer?" -" the-struct_94)" +" the-struct_93)" "(let-values(((def-ctx-scopes106_0)" "(box" " null))" "((inner107_0)" -"(let-values(((the-struct_95)" +"(let-values(((the-struct_94)" "(root-expand-context/outer-inner" -" v_262)))" +" v_261)))" "(if(expand-context/inner?" -" the-struct_95)" +" the-struct_94)" "(let-values(((stops108_0)" "(free-id-set" " at-phase_13" @@ -70723,91 +70750,91 @@ static const char *startup_source = " at-phase_13)))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_95)" +" the-struct_94)" "(root-expand-context/inner-module-scopes" -" the-struct_95)" +" the-struct_94)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_95)" +" the-struct_94)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_95)" +" the-struct_94)" "(root-expand-context/inner-defined-syms" -" the-struct_95)" +" the-struct_94)" "(root-expand-context/inner-counter" -" the-struct_95)" +" the-struct_94)" "(root-expand-context/inner-lift-key" -" the-struct_95)" +" the-struct_94)" "(expand-context/inner-to-parsed?" -" the-struct_95)" +" the-struct_94)" "(expand-context/inner-phase" -" the-struct_95)" +" the-struct_94)" "(expand-context/inner-namespace" -" the-struct_95)" +" the-struct_94)" "(expand-context/inner-just-once?" -" the-struct_95)" +" the-struct_94)" "(expand-context/inner-module-begin-k" -" the-struct_95)" +" the-struct_94)" "(expand-context/inner-allow-unbound?" -" the-struct_95)" +" the-struct_94)" "(expand-context/inner-in-local-expand?" -" the-struct_95)" +" the-struct_94)" " stops108_0" "(expand-context/inner-declared-submodule-names" -" the-struct_95)" +" the-struct_94)" "(expand-context/inner-lifts" -" the-struct_95)" +" the-struct_94)" "(expand-context/inner-lift-envs" -" the-struct_95)" +" the-struct_94)" "(expand-context/inner-module-lifts" -" the-struct_95)" +" the-struct_94)" "(expand-context/inner-require-lifts" -" the-struct_95)" +" the-struct_94)" "(expand-context/inner-to-module-lifts" -" the-struct_95)" +" the-struct_94)" "(expand-context/inner-requires+provides" -" the-struct_95)" +" the-struct_94)" "(expand-context/inner-observer" -" the-struct_95)" +" the-struct_94)" "(expand-context/inner-for-serializable?" -" the-struct_95)" +" the-struct_94)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_95)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_95)))))" -"(expand-context/outer1.1" -" inner107_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_94)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_94)" -"(root-expand-context/outer-frame-id" -" the-struct_94)" -"(expand-context/outer-context" -" the-struct_94)" -"(expand-context/outer-env" -" the-struct_94)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_94)" -"(expand-context/outer-scopes" -" the-struct_94)" -" def-ctx-scopes106_0" -"(expand-context/outer-binding-layer" -" the-struct_94)" -"(expand-context/outer-reference-records" -" the-struct_94)" -"(expand-context/outer-only-immediate?" -" the-struct_94)" -"(expand-context/outer-need-eventually-defined" -" the-struct_94)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_94)" -"(expand-context/outer-name" " the-struct_94)))" "(raise-argument-error" " 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_94)))))" +"(expand-context/outer1.1" +" inner107_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_93)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_93)" +"(root-expand-context/outer-frame-id" +" the-struct_93)" +"(expand-context/outer-context" +" the-struct_93)" +"(expand-context/outer-env" +" the-struct_93)" +"(expand-context/outer-post-expansion-scope-action" +" the-struct_93)" +"(expand-context/outer-scopes" +" the-struct_93)" +" def-ctx-scopes106_0" +"(expand-context/outer-binding-layer" +" the-struct_93)" +"(expand-context/outer-reference-records" +" the-struct_93)" +"(expand-context/outer-only-immediate?" +" the-struct_93)" +"(expand-context/outer-need-eventually-defined" +" the-struct_93)" +"(expand-context/outer-current-introduction-scopes" +" the-struct_93)" +"(expand-context/outer-name" +" the-struct_93)))" +"(raise-argument-error" +" 'struct-copy" " \"expand-context/outer?\"" -" the-struct_94))))))" +" the-struct_93))))))" "(expand7.1" " #f" " #f" @@ -70842,38 +70869,38 @@ static const char *startup_source = "(let-values(((ok?_74" " begin100_0" " spec101_0)" -"(let-values(((s_764)" +"(let-values(((s_767)" " exp-spec_0))" "(let-values(((orig-s_78)" -" s_764))" +" s_767))" "(let-values(((begin100_1" " spec101_1)" -"(let-values(((s_765)" +"(let-values(((s_768)" "(if(syntax?$1" -" s_764)" +" s_767)" "(syntax-e$1" -" s_764)" -" s_764)))" +" s_767)" +" s_767)))" "(if(pair?" -" s_765)" +" s_768)" "(let-values(((begin102_0)" -"(let-values(((s_372)" +"(let-values(((s_376)" "(car" -" s_765)))" -" s_372))" +" s_768)))" +" s_376))" "((spec103_0)" -"(let-values(((s_373)" +"(let-values(((s_377)" "(cdr" -" s_765)))" -"(let-values(((s_374)" +" s_768)))" +"(let-values(((s_378)" "(if(syntax?$1" -" s_373)" +" s_377)" "(syntax-e$1" -" s_373)" -" s_373)))" +" s_377)" +" s_377)))" "(let-values(((flat-s_52)" "(to-syntax-list.1" -" s_374)))" +" s_378)))" "(if(not" " flat-s_52)" "(let-values()" @@ -70896,7 +70923,7 @@ static const char *startup_source = " spec101_1))))))" "(let-values(((track-stxes_9" " exp-specs_9)" -"(loop_113" +"(loop_115" " spec101_0" " at-phase_13" " protected?_15" @@ -70934,7 +70961,7 @@ static const char *startup_source = " lst_78)))))" "(values(reverse$1 track-stxes_0)(reverse$1 exp-specs_0)))))" "(values(apply append track-stxess_0)(apply append exp-specss_0)))))))" -" loop_113)" +" loop_115)" " specs_0" " phase_46" " #f" @@ -71035,7 +71062,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_415)))" -"((letrec-values(((for-loop_319)" +"((letrec-values(((for-loop_320)" "(lambda(lst_416)" "(begin" " 'for-loop" @@ -71072,9 +71099,9 @@ static const char *startup_source = " protected?_17)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_319 rest_240)(values))))" +"(if(not #f)(for-loop_320 rest_240)(values))))" "(values))))))" -" for-loop_319)" +" for-loop_320)" " lst_415)))" "(void)))))))" "(define-values" @@ -71128,7 +71155,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_241)))" -"((letrec-values(((for-loop_320)" +"((letrec-values(((for-loop_321)" "(lambda(lst_417)" "(begin" " 'for-loop" @@ -71146,7 +71173,7 @@ static const char *startup_source = "(let-values(((phase_152)" "(required-phase" " i_191)))" -"(if(let-values(((or-part_392)" +"(if(let-values(((or-part_391)" "(if matching-stx_0" "(not" "(if(eqv?" @@ -71162,8 +71189,8 @@ static const char *startup_source = " phase_152)" " #f))" " #f)))" -"(if or-part_392" -" or-part_392" +"(if or-part_391" +" or-part_391" "(let-values(((lst_418)" " except-ids_1))" "(begin" @@ -71173,7 +71200,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_418)))" -"((letrec-values(((for-loop_321)" +"((letrec-values(((for-loop_322)" "(lambda(result_130" " lst_419)" "(begin" @@ -71210,12 +71237,12 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_321" +"(for-loop_322" " result_131" " rest_242)" " result_131)))" " result_130)))))" -" for-loop_321)" +" for-loop_322)" " #f" " lst_418)))))" "(void)" @@ -71278,9 +71305,9 @@ static const char *startup_source = " orig-s127_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_320 rest_241)(values))))" +"(if(not #f)(for-loop_321 rest_241)(values))))" "(values))))))" -" for-loop_320)" +" for-loop_321)" " lst_241)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" @@ -71305,13 +71332,13 @@ static const char *startup_source = "(let-values()" "(begin" "(let-values()" -"(if(let-values(((or-part_393)" +"(if(let-values(((or-part_392)" "(hash-ref" " found_0" " except-id_1" " #f)))" -"(if or-part_393" -" or-part_393" +"(if or-part_392" +" or-part_392" "(let-values(((lst_420)" " requireds_2))" "(begin" @@ -71399,7 +71426,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_422)))" -"((letrec-values(((for-loop_322)" +"((letrec-values(((for-loop_323)" "(lambda(lst_85)" "(begin" " 'for-loop" @@ -71428,11 +71455,11 @@ static const char *startup_source = "(parsed-define-values-syms" " p_36))" " p_36))" -"(if(let-values(((or-part_211)" +"(if(let-values(((or-part_210)" "(parsed-#%declare?" " p_36)))" -"(if or-part_211" -" or-part_211" +"(if or-part_210" +" or-part_210" "(let-values(((or-part_3)" "(parsed-module?" " p_36)))" @@ -71447,9 +71474,9 @@ static const char *startup_source = " p_36))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_322 rest_40)(values))))" +"(if(not #f)(for-loop_323 rest_40)(values))))" "(values))))))" -" for-loop_322)" +" for-loop_323)" " lst_422)))" "(void)))))" "((check-expr_0)" @@ -71509,9 +71536,9 @@ static const char *startup_source = "(let-values()(check-count 3 num-results_0 enclosing_15))" "(if(equal? tmp_67 'gensym)" "(let-values()" -"(if(let-values(((or-part_359)(= 0(length rands_1))))" -"(if or-part_359" -" or-part_359" +"(if(let-values(((or-part_357)(= 0(length rands_1))))" +"(if or-part_357" +" or-part_357" "(if(= 1(length rands_1))" "(quoted-string?(car rands_1))" " #f)))" @@ -71602,12 +71629,12 @@ static const char *startup_source = "(let-values(((id_152)(parsed-set!-id e_40)))" "(let-values(((normal-b_1)(parsed-id-binding id_152)))" "(begin" -"(if(let-values(((or-part_85)(not normal-b_1)))" -"(if or-part_85" -" or-part_85" -"(let-values(((or-part_284)(parsed-top-id? id_152)))" -"(if or-part_284" -" or-part_284" +"(if(let-values(((or-part_86)(not normal-b_1)))" +"(if or-part_86" +" or-part_86" +"(let-values(((or-part_281)(parsed-top-id? id_152)))" +"(if or-part_281" +" or-part_281" "(if(not(symbol? normal-b_1))" "(eq?(module-binding-module normal-b_1) self-mpi_6)" " #f)))))" @@ -71660,21 +71687,21 @@ static const char *startup_source = " lst_24)))" "(void)" "(check-body-no-disallowed-expr_0(parsed-let_-values-body e_40))))" -"(if(let-values(((or-part_394)(parsed-quote-syntax? e_40)))" -"(if or-part_394 or-part_394(parsed-#%variable-reference? e_40)))" +"(if(let-values(((or-part_393)(parsed-quote-syntax? e_40)))" +"(if or-part_393 or-part_393(parsed-#%variable-reference? e_40)))" "(let-values()(disallow e_40))" "(let-values()(void)))))))))))))))" "((check-body-no-disallowed-expr_0)" -"(lambda(l_48)" +"(lambda(l_47)" "(begin" " 'check-body-no-disallowed-expr" "(begin" -"(let-values(((lst_82) l_48))" +"(let-values(((lst_82) l_47))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_82)))" -"((letrec-values(((for-loop_323)" +"((letrec-values(((for-loop_324)" "(lambda(lst_273)" "(begin" " 'for-loop" @@ -71691,9 +71718,9 @@ static const char *startup_source = " e_96))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_323 rest_148)(values))))" +"(if(not #f)(for-loop_324 rest_148)(values))))" "(values))))))" -" for-loop_323)" +" for-loop_324)" " lst_82)))" "(void))))))" "(check-body_0 bodys_13)))))" @@ -71711,13 +71738,13 @@ static const char *startup_source = "(let-values(((or-part_161)(boolean? d_37)))" "(if or-part_161" " or-part_161" -"(let-values(((or-part_162)(symbol? d_37)))" +"(let-values(((or-part_21)(symbol? d_37)))" +"(if or-part_21" +" or-part_21" +"(let-values(((or-part_162)(string? d_37)))" "(if or-part_162" " or-part_162" -"(let-values(((or-part_163)(string? d_37)))" -"(if or-part_163" -" or-part_163" -"(let-values(((or-part_246)(bytes? d_37)))(if or-part_246 or-part_246(null? d_37)))))))))))" +"(let-values(((or-part_245)(bytes? d_37)))(if or-part_245 or-part_245(null? d_37)))))))))))" "(let-values()(void))" "(let-values()(disallow e_13))))))" "(define-values" @@ -71762,85 +71789,85 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'module*" -"(lambda(s_300 ctx_109)" +"(lambda(s_304 ctx_109)" "(begin" "(let-values(((obs_123)(expand-context-observer ctx_109)))" "(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_300)))))" +" (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_304)))))" "(void" "(add-core-form!*" " '#%module-begin" -"(lambda(s_84 ctx_110)" +"(lambda(s_86 ctx_110)" "(begin" "(let-values(((obs_124)(expand-context-observer ctx_110)))" "(if obs_124(let-values()(let-values()(call-expand-observe obs_124 'prim-module-begin)))(void)))" "(if(eq?(expand-context-context ctx_110) 'module-begin)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_84)))" +" (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_86)))" "(if(expand-context-module-begin-k ctx_110)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_84)))" +" (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_86)))" "((expand-context-module-begin-k ctx_110)" -" s_84" -"(let-values(((v_263) ctx_110))" -"(let-values(((the-struct_96) v_263))" -"(if(expand-context/outer? the-struct_96)" +" s_86" +"(let-values(((v_262) ctx_110))" +"(let-values(((the-struct_95) v_262))" +"(if(expand-context/outer? the-struct_95)" "(let-values(((inner226_0)" -"(let-values(((the-struct_97)(root-expand-context/outer-inner v_263)))" -"(if(expand-context/inner? the-struct_97)" +"(let-values(((the-struct_96)(root-expand-context/outer-inner v_262)))" +"(if(expand-context/inner? the-struct_96)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" -"(root-expand-context/inner-self-mpi the-struct_97)" -"(root-expand-context/inner-module-scopes the-struct_97)" -"(root-expand-context/inner-top-level-bind-scope the-struct_97)" -"(root-expand-context/inner-all-scopes-stx the-struct_97)" -"(root-expand-context/inner-defined-syms the-struct_97)" -"(root-expand-context/inner-counter the-struct_97)" -"(root-expand-context/inner-lift-key the-struct_97)" -"(expand-context/inner-to-parsed? the-struct_97)" -"(expand-context/inner-phase the-struct_97)" -"(expand-context/inner-namespace the-struct_97)" -"(expand-context/inner-just-once? the-struct_97)" +"(root-expand-context/inner-self-mpi the-struct_96)" +"(root-expand-context/inner-module-scopes the-struct_96)" +"(root-expand-context/inner-top-level-bind-scope the-struct_96)" +"(root-expand-context/inner-all-scopes-stx the-struct_96)" +"(root-expand-context/inner-defined-syms the-struct_96)" +"(root-expand-context/inner-counter the-struct_96)" +"(root-expand-context/inner-lift-key the-struct_96)" +"(expand-context/inner-to-parsed? the-struct_96)" +"(expand-context/inner-phase the-struct_96)" +"(expand-context/inner-namespace the-struct_96)" +"(expand-context/inner-just-once? the-struct_96)" " module-begin-k227_0" -"(expand-context/inner-allow-unbound? the-struct_97)" -"(expand-context/inner-in-local-expand? the-struct_97)" -"(expand-context/inner-stops the-struct_97)" -"(expand-context/inner-declared-submodule-names the-struct_97)" -"(expand-context/inner-lifts the-struct_97)" -"(expand-context/inner-lift-envs the-struct_97)" -"(expand-context/inner-module-lifts the-struct_97)" -"(expand-context/inner-require-lifts the-struct_97)" -"(expand-context/inner-to-module-lifts the-struct_97)" -"(expand-context/inner-requires+provides the-struct_97)" -"(expand-context/inner-observer the-struct_97)" -"(expand-context/inner-for-serializable? the-struct_97)" -"(expand-context/inner-should-not-encounter-macros? the-struct_97)))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_97)))))" +"(expand-context/inner-allow-unbound? the-struct_96)" +"(expand-context/inner-in-local-expand? the-struct_96)" +"(expand-context/inner-stops the-struct_96)" +"(expand-context/inner-declared-submodule-names the-struct_96)" +"(expand-context/inner-lifts the-struct_96)" +"(expand-context/inner-lift-envs the-struct_96)" +"(expand-context/inner-module-lifts the-struct_96)" +"(expand-context/inner-require-lifts the-struct_96)" +"(expand-context/inner-to-module-lifts the-struct_96)" +"(expand-context/inner-requires+provides the-struct_96)" +"(expand-context/inner-observer the-struct_96)" +"(expand-context/inner-for-serializable? the-struct_96)" +"(expand-context/inner-should-not-encounter-macros? the-struct_96)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_96)))))" "(expand-context/outer1.1" " inner226_0" -"(root-expand-context/outer-post-expansion-scope the-struct_96)" -"(root-expand-context/outer-use-site-scopes the-struct_96)" -"(root-expand-context/outer-frame-id the-struct_96)" -"(expand-context/outer-context the-struct_96)" -"(expand-context/outer-env the-struct_96)" -"(expand-context/outer-post-expansion-scope-action the-struct_96)" -"(expand-context/outer-scopes the-struct_96)" -"(expand-context/outer-def-ctx-scopes the-struct_96)" -"(expand-context/outer-binding-layer the-struct_96)" -"(expand-context/outer-reference-records the-struct_96)" -"(expand-context/outer-only-immediate? the-struct_96)" -"(expand-context/outer-need-eventually-defined the-struct_96)" -"(expand-context/outer-current-introduction-scopes the-struct_96)" -"(expand-context/outer-name the-struct_96)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_96)))))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_95)" +"(root-expand-context/outer-use-site-scopes the-struct_95)" +"(root-expand-context/outer-frame-id the-struct_95)" +"(expand-context/outer-context the-struct_95)" +"(expand-context/outer-env the-struct_95)" +"(expand-context/outer-post-expansion-scope-action the-struct_95)" +"(expand-context/outer-scopes the-struct_95)" +"(expand-context/outer-def-ctx-scopes the-struct_95)" +"(expand-context/outer-binding-layer the-struct_95)" +"(expand-context/outer-reference-records the-struct_95)" +"(expand-context/outer-only-immediate? the-struct_95)" +"(expand-context/outer-need-eventually-defined the-struct_95)" +"(expand-context/outer-current-introduction-scopes the-struct_95)" +"(expand-context/outer-name the-struct_95)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_95)))))))))" "(void" "(add-core-form!*" " '#%declare" -"(lambda(s_729 ctx_111)" +"(lambda(s_733 ctx_111)" "(begin" "(let-values(((obs_125)(expand-context-observer ctx_111)))" "(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_729)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_733)))))" "(define-values" "(expand-module18.1)" "(lambda(always-produce-compiled?1_0" @@ -71891,81 +71918,81 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_24)(syntax-disarm$1 s_16)))" "(let-values(((ok?_75 module228_0 id:module-name229_0 initial-require230_0 body231_0)" -"(let-values(((s_488) disarmed-s_24))" -"(let-values(((orig-s_83) s_488))" +"(let-values(((s_492) disarmed-s_24))" +"(let-values(((orig-s_83) s_492))" "(let-values(((module228_1" " id:module-name229_1" " initial-require230_1" " body231_1)" -"(let-values(((s_307)" -"(if(syntax?$1 s_488)" -"(syntax-e$1 s_488)" -" s_488)))" -"(if(pair? s_307)" +"(let-values(((s_311)" +"(if(syntax?$1 s_492)" +"(syntax-e$1 s_492)" +" s_492)))" +"(if(pair? s_311)" "(let-values(((module232_0)" -"(let-values(((s_489)(car s_307)))" -" s_489))" +"(let-values(((s_493)(car s_311)))" +" s_493))" "((id:module-name233_0" " initial-require234_0" " body235_0)" -"(let-values(((s_732)(cdr s_307)))" -"(let-values(((s_766)" -"(if(syntax?$1 s_732)" -"(syntax-e$1 s_732)" -" s_732)))" -"(if(pair? s_766)" +"(let-values(((s_736)(cdr s_311)))" +"(let-values(((s_769)" +"(if(syntax?$1 s_736)" +"(syntax-e$1 s_736)" +" s_736)))" +"(if(pair? s_769)" "(let-values(((id:module-name236_0)" -"(let-values(((s_475)" +"(let-values(((s_55)" "(car" -" s_766)))" -"(if(let-values(((or-part_367)" +" s_769)))" +"(if(let-values(((or-part_366)" "(if(syntax?$1" -" s_475)" +" s_55)" "(symbol?" "(syntax-e$1" -" s_475))" +" s_55))" " #f)))" -"(if or-part_367" -" or-part_367" +"(if or-part_366" +" or-part_366" "(symbol?" -" s_475)))" -" s_475" +" s_55)))" +" s_55" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_83" -" s_475))))" +" s_55))))" "((initial-require237_0" " body238_0)" -"(let-values(((s_476)" +"(let-values(((s_480)" "(cdr" -" s_766)))" -"(let-values(((s_55)" +" s_769)))" +"(let-values(((s_312)" "(if(syntax?$1" -" s_476)" +" s_480)" "(syntax-e$1" -" s_476)" -" s_476)))" +" s_480)" +" s_480)))" "(if(pair?" -" s_55)" +" s_312)" "(let-values(((initial-require239_0)" -"(let-values(((s_310)" +"(let-values(((s_313)" "(car" -" s_55)))" -" s_310))" +" s_312)))" +" s_313))" "((body240_0)" -"(let-values(((s_311)" +"(let-values(((s_314)" "(cdr" -" s_55)))" -"(let-values(((s_56)" +" s_312)))" +"(let-values(((s_315)" "(if(syntax?$1" -" s_311)" +" s_314)" "(syntax-e$1" -" s_311)" -" s_311)))" +" s_314)" +" s_314)))" "(let-values(((flat-s_53)" "(to-syntax-list.1" -" s_56)))" +" s_315)))" "(if(not" " flat-s_53)" "(let-values()" @@ -72019,9 +72046,9 @@ static const char *startup_source = "(let-values(((initial-require_0)(syntax->datum$1 initial-require230_0)))" "(let-values((()" "(begin" -"(if(let-values(((or-part_57) keep-enclosing-scope-at-phase_0))" -"(if or-part_57" -" or-part_57" +"(if(let-values(((or-part_58) keep-enclosing-scope-at-phase_0))" +"(if or-part_58" +" or-part_58" "(1/module-path? initial-require_0)))" "(void)" "(let-values()" @@ -72144,20 +72171,20 @@ static const char *startup_source = " #f" " temp266_1))))" "(let-values(((ctx_112)" -"(let-values(((v_103)" +"(let-values(((v_102)" "(copy-root-expand-context" " init-ctx_0" " root-ctx_6)))" -"(let-values(((the-struct_0)" -" v_103))" +"(let-values(((the-struct_97)" +" v_102))" "(if(expand-context/outer?" -" the-struct_0)" +" the-struct_97)" "(let-values(((post-expansion-scope-action267_0)" " add-scope)" "((inner268_0)" "(let-values(((the-struct_98)" "(root-expand-context/outer-inner" -" v_103)))" +" v_102)))" "(if(expand-context/inner?" " the-struct_98)" "(let-values(((allow-unbound?269_0)" @@ -72222,36 +72249,36 @@ static const char *startup_source = "(expand-context/outer1.1" " inner268_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_0)" +" the-struct_97)" "(root-expand-context/outer-use-site-scopes" -" the-struct_0)" +" the-struct_97)" "(root-expand-context/outer-frame-id" -" the-struct_0)" +" the-struct_97)" "(expand-context/outer-context" -" the-struct_0)" +" the-struct_97)" "(expand-context/outer-env" -" the-struct_0)" +" the-struct_97)" " post-expansion-scope-action267_0" "(expand-context/outer-scopes" -" the-struct_0)" +" the-struct_97)" "(expand-context/outer-def-ctx-scopes" -" the-struct_0)" +" the-struct_97)" "(expand-context/outer-binding-layer" -" the-struct_0)" +" the-struct_97)" "(expand-context/outer-reference-records" -" the-struct_0)" +" the-struct_97)" "(expand-context/outer-only-immediate?" -" the-struct_0)" +" the-struct_97)" "(expand-context/outer-need-eventually-defined" -" the-struct_0)" +" the-struct_97)" "(expand-context/outer-current-introduction-scopes" -" the-struct_0)" +" the-struct_97)" "(expand-context/outer-name" -" the-struct_0)))" +" the-struct_97)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_0))))))" +" the-struct_97))))))" "(let-values(((bodys_15)" "(let-values(((scoped-s_0)" "(apply-module-scopes_0" @@ -72261,77 +72288,77 @@ static const char *startup_source = " _274_0" " _275_0" " body276_0)" -"(let-values(((s_767)" +"(let-values(((s_770)" " scoped-s_0))" "(let-values(((orig-s_84)" -" s_767))" +" s_770))" "(let-values(((_273_1" " _274_1" " _275_1" " body276_1)" -"(let-values(((s_399)" +"(let-values(((s_405)" "(if(syntax?$1" -" s_767)" +" s_770)" "(syntax-e$1" -" s_767)" -" s_767)))" +" s_770)" +" s_770)))" "(if(pair?" -" s_399)" +" s_405)" "(let-values(((_277_2)" -"(let-values(((s_743)" +"(let-values(((s_746)" "(car" -" s_399)))" -" s_743))" +" s_405)))" +" s_746))" "((_278_2" " _279_0" " body280_0)" -"(let-values(((s_203)" +"(let-values(((s_207)" "(cdr" -" s_399)))" -"(let-values(((s_385)" +" s_405)))" +"(let-values(((s_391)" "(if(syntax?$1" -" s_203)" +" s_207)" "(syntax-e$1" -" s_203)" -" s_203)))" +" s_207)" +" s_207)))" "(if(pair?" -" s_385)" +" s_391)" "(let-values(((_281_1)" -"(let-values(((s_206)" +"(let-values(((s_210)" "(car" -" s_385)))" -" s_206))" +" s_391)))" +" s_210))" "((_282_0" " body283_0)" -"(let-values(((s_745)" +"(let-values(((s_748)" "(cdr" -" s_385)))" -"(let-values(((s_92)" +" s_391)))" +"(let-values(((s_94)" "(if(syntax?$1" -" s_745)" +" s_748)" "(syntax-e$1" -" s_745)" -" s_745)))" +" s_748)" +" s_748)))" "(if(pair?" -" s_92)" +" s_94)" "(let-values(((_284_0)" -"(let-values(((s_68)" +"(let-values(((s_70)" "(car" -" s_92)))" -" s_68))" +" s_94)))" +" s_70))" "((body285_0)" -"(let-values(((s_316)" +"(let-values(((s_320)" "(cdr" -" s_92)))" -"(let-values(((s_317)" +" s_94)))" +"(let-values(((s_321)" "(if(syntax?$1" -" s_316)" +" s_320)" "(syntax-e$1" -" s_316)" -" s_316)))" +" s_320)" +" s_320)))" "(let-values(((flat-s_54)" "(to-syntax-list.1" -" s_317)))" +" s_321)))" "(if(not" " flat-s_54)" "(let-values()" @@ -72505,20 +72532,20 @@ static const char *startup_source = " #t)" "(values))))" "(let-values(((ctx_113)" -"(let-values(((v_264)" +"(let-values(((v_263)" " mb-init-ctx_0))" "(let-values(((the-struct_99)" -" v_264))" +" v_263))" "(if(expand-context/outer?" " the-struct_99)" "(let-values(((inner306_0)" "(let-values(((the-struct_100)" "(root-expand-context/outer-inner" -" v_264)))" +" v_263)))" "(if(expand-context/inner?" " the-struct_100)" "(let-values(((module-begin-k307_0)" -"(lambda(s_768" +"(lambda(s_771" " ctx_114)" "(begin" " 'module-begin-k307" @@ -72555,7 +72582,7 @@ static const char *startup_source = " compiled-module-box313_0)))" "(lambda()" "(module-begin-k_1" -" s_768" +" s_771" " ctx_114))" "(lambda()" "(begin" @@ -72677,38 +72704,38 @@ static const char *startup_source = "(let-values(((ok?_77" " #%module-begin301_0" " body302_0)" -"(let-values(((s_217)" +"(let-values(((s_221)" " disarmed-mb-s_0))" "(let-values(((orig-s_85)" -" s_217))" +" s_221))" "(let-values(((#%module-begin301_1" " body302_1)" -"(let-values(((s_218)" +"(let-values(((s_222)" "(if(syntax?$1" -" s_217)" +" s_221)" "(syntax-e$1" -" s_217)" -" s_217)))" +" s_221)" +" s_221)))" "(if(pair?" -" s_218)" +" s_222)" "(let-values(((#%module-begin303_0)" -"(let-values(((s_118)" +"(let-values(((s_120)" "(car" -" s_218)))" -" s_118))" +" s_222)))" +" s_120))" "((body304_0)" -"(let-values(((s_119)" +"(let-values(((s_121)" "(cdr" -" s_218)))" -"(let-values(((s_769)" +" s_222)))" +"(let-values(((s_772)" "(if(syntax?$1" -" s_119)" +" s_121)" "(syntax-e$1" -" s_119)" -" s_119)))" +" s_121)" +" s_121)))" "(let-values(((flat-s_55)" "(to-syntax-list.1" -" s_769)))" +" s_772)))" "(if(not" " flat-s_55)" "(let-values()" @@ -72766,10 +72793,10 @@ static const char *startup_source = "(expand-context-to-parsed?" " ctx_113)))" "(let-values(((partial-body-ctx_0)" -"(let-values(((v_265)" +"(let-values(((v_264)" " ctx_113))" "(let-values(((the-struct_101)" -" v_265))" +" v_264))" "(if(expand-context/outer?" " the-struct_101)" "(let-values(((context326_0)" @@ -72779,11 +72806,11 @@ static const char *startup_source = "((need-eventually-defined328_0)" " need-eventually-defined_1)" "((inner329_0)" -"(let-values(((the-struct_58)" +"(let-values(((the-struct_57)" "(root-expand-context/outer-inner" -" v_265)))" +" v_264)))" "(if(expand-context/inner?" -" the-struct_58)" +" the-struct_57)" "(let-values(((phase330_0)" " phase_155)" "((namespace331_0)" @@ -72845,50 +72872,50 @@ static const char *startup_source = " phase344_0))))" "(expand-context/inner2.1" "(root-expand-context/inner-self-mpi" -" the-struct_58)" +" the-struct_57)" "(root-expand-context/inner-module-scopes" -" the-struct_58)" +" the-struct_57)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_58)" +" the-struct_57)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_58)" +" the-struct_57)" "(root-expand-context/inner-defined-syms" -" the-struct_58)" +" the-struct_57)" "(root-expand-context/inner-counter" -" the-struct_58)" +" the-struct_57)" " lift-key334_0" "(expand-context/inner-to-parsed?" -" the-struct_58)" +" the-struct_57)" " phase330_0" " namespace331_0" "(expand-context/inner-just-once?" -" the-struct_58)" +" the-struct_57)" "(expand-context/inner-module-begin-k" -" the-struct_58)" +" the-struct_57)" "(expand-context/inner-allow-unbound?" -" the-struct_58)" +" the-struct_57)" "(expand-context/inner-in-local-expand?" -" the-struct_58)" +" the-struct_57)" " stops332_0" " declared-submodule-names333_0" " lifts335_0" "(expand-context/inner-lift-envs" -" the-struct_58)" +" the-struct_57)" " module-lifts336_0" " require-lifts337_0" " to-module-lifts338_0" "(expand-context/inner-requires+provides" -" the-struct_58)" +" the-struct_57)" "(expand-context/inner-observer" -" the-struct_58)" +" the-struct_57)" "(expand-context/inner-for-serializable?" -" the-struct_58)" +" the-struct_57)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_58)))" +" the-struct_57)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_58)))))" +" the-struct_57)))))" "(expand-context/outer1.1" " inner329_0" "(root-expand-context/outer-post-expansion-scope" @@ -72984,12 +73011,12 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((body-ctx_6)" -"(let-values(((v_266)" +"(let-values(((v_265)" "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" "(let-values(((the-struct_102)" -" v_266))" +" v_265))" "(if(expand-context/outer?" " the-struct_102)" "(let-values(((def-ctx-scopes363_0)" @@ -72999,7 +73026,7 @@ static const char *startup_source = "((inner365_0)" "(let-values(((the-struct_103)" "(root-expand-context/outer-inner" -" v_266)))" +" v_265)))" "(if(expand-context/inner?" " the-struct_103)" "(let-values(((stops366_0)" @@ -73220,10 +73247,10 @@ static const char *startup_source = " #t" " m-ns378_0))))" "(let-values(((submod-ctx_0)" -"(let-values(((v_81)" +"(let-values(((v_80)" " ctx_113))" "(let-values(((the-struct_104)" -" v_81))" +" v_80))" "(if(expand-context/outer?" " the-struct_104)" "(let-values(((frame-id380_0)" @@ -73233,7 +73260,7 @@ static const char *startup_source = "((inner382_0)" "(let-values(((the-struct_105)" "(root-expand-context/outer-inner" -" v_81)))" +" v_80)))" "(if(expand-context/inner?" " the-struct_105)" "(let-values(((namespace383_0)" @@ -73440,10 +73467,10 @@ static const char *startup_source = "(let-values()" " mb-result-s_0)))))))))))))))))))))))))))))))))" "(let-values(((mb-ctx_0)" -"(let-values(((v_267)" +"(let-values(((v_266)" " ctx_112))" "(let-values(((the-struct_106)" -" v_267))" +" v_266))" "(if(expand-context/outer?" " the-struct_106)" "(let-values(((context409_0)" @@ -73451,7 +73478,7 @@ static const char *startup_source = "((inner410_0)" "(let-values(((the-struct_107)" "(root-expand-context/outer-inner" -" v_267)))" +" v_266)))" "(if(expand-context/inner?" " the-struct_107)" "(let-values(((module-begin-k411_0)" @@ -73600,11 +73627,11 @@ static const char *startup_source = " self_32" " self_32)))" "(let-values(((result-form_0)" -"(if(let-values(((or-part_345)" +"(if(let-values(((or-part_343)" "(expand-context-to-parsed?" " init-ctx_0)))" -"(if or-part_345" -" or-part_345" +"(if or-part_343" +" or-part_343" " always-produce-compiled?_0))" "(parsed-module25.1" " rebuild-s_14" @@ -73762,19 +73789,19 @@ static const char *startup_source = "(let-values(((ctx_115) ctx24_0))" "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" "(let-values(((phase_156) phase26_3))" -"(let-values(((s_770) s27_2))" +"(let-values(((s_773) s27_2))" "(let-values()" "(let-values(((make-mb-ctx_0)" "(lambda()" "(begin" " 'make-mb-ctx" -"(let-values(((v_268) ctx_115))" -"(let-values(((the-struct_108) v_268))" +"(let-values(((v_267) ctx_115))" +"(let-values(((the-struct_108) v_267))" "(if(expand-context/outer? the-struct_108)" "(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_268)))" +"((inner431_0)(root-expand-context/outer-inner v_267)))" "(expand-context/outer1.1" " inner431_0" "(root-expand-context/outer-post-expansion-scope the-struct_108)" @@ -73826,7 +73853,7 @@ static const char *startup_source = "(let-values() partly-expanded-body_0)" "(let-values()" "(let-values(((temp434_0)(list partly-expanded-body_0))" -"((s435_0) s_770)" +"((s435_0) s_773)" "((scopes-s436_0) scopes-s_0)" "((phase437_0) phase_156)" "((module-name-sym438_0) module-name-sym_1)" @@ -73843,7 +73870,7 @@ static const char *startup_source = " temp439_0)))))))))" "(let-values()" "(let-values(((bodys441_0) bodys_18)" -"((s442_0) s_770)" +"((s442_0) s_773)" "((scopes-s443_0) scopes-s_0)" "((phase444_0) phase_156)" "((module-name-sym445_0) module-name-sym_1)" @@ -73871,7 +73898,7 @@ static const char *startup_source = "(begin" " 'add-module-begin47" "(let-values(((bodys_19) bodys41_0))" -"(let-values(((s_519) s42_0))" +"(let-values(((s_523) s42_0))" "(let-values(((scopes-s_1) scopes-s43_0))" "(let-values(((phase_157) phase44_1))" "(let-values(((module-name-sym_2) module-name-sym45_0))" @@ -73889,10 +73916,10 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"no #%module-begin binding in the module's language\"" -" s_519)))" +" s_523)))" "(values))))" "(let-values(((mb_2)" -"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_519 s_519)))" +"(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_523 s_523)))" "(let-values((()" "(begin" "(let-values(((obs_132)(expand-context-observer mb-ctx_1)))" @@ -73928,7 +73955,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"expansion of #%module-begin is not a #%plain-module-begin form\"" -" s_519" +" s_523" " partly-expanded-mb_0)))" " partly-expanded-mb_0)))))))))))))))))))" "(define-values" @@ -73944,13 +73971,13 @@ static const char *startup_source = " enclosing-self_2" " enclosing-mod_2)" "(begin" -"(lambda(s_771)" +"(lambda(s_774)" "(let-values()" "(let-values(((s-without-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" -" s_771" +" s_774" "(remove-use-site-scopes" -"(remove-scopes s_771(root-expand-context-module-scopes init-ctx_1))" +"(remove-scopes s_774(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)))" @@ -74141,38 +74168,38 @@ static const char *startup_source = "(let-values(((ok?_78" " begin460_0" " e461_1)" -"(let-values(((s_146)" +"(let-values(((s_148)" " disarmed-exp-body_1))" "(let-values(((orig-s_86)" -" s_146))" +" s_148))" "(let-values(((begin460_1" " e461_2)" -"(let-values(((s_772)" -"(if(syntax?$1" -" s_146)" -"(syntax-e$1" -" s_146)" -" s_146)))" -"(if(pair?" -" s_772)" -"(let-values(((begin462_0)" -"(let-values(((s_773)" -"(car" -" s_772)))" -" s_773))" -"((e463_0)" -"(let-values(((s_774)" -"(cdr" -" s_772)))" "(let-values(((s_775)" "(if(syntax?$1" -" s_774)" +" s_148)" "(syntax-e$1" -" s_774)" -" s_774)))" +" s_148)" +" s_148)))" +"(if(pair?" +" s_775)" +"(let-values(((begin462_0)" +"(let-values(((s_776)" +"(car" +" s_775)))" +" s_776))" +"((e463_0)" +"(let-values(((s_777)" +"(cdr" +" s_775)))" +"(let-values(((s_778)" +"(if(syntax?$1" +" s_777)" +"(syntax-e$1" +" s_777)" +" s_777)))" "(let-values(((flat-s_56)" "(to-syntax-list.1" -" s_775)))" +" s_778)))" "(if(not" " flat-s_56)" "(let-values()" @@ -74272,38 +74299,38 @@ static const char *startup_source = "(let-values(((ok?_79" " begin-for-syntax464_0" " e465_0)" -"(let-values(((s_776)" +"(let-values(((s_779)" " disarmed-exp-body_1))" "(let-values(((orig-s_87)" -" s_776))" +" s_779))" "(let-values(((begin-for-syntax464_1" " e465_1)" -"(let-values(((s_777)" -"(if(syntax?$1" -" s_776)" -"(syntax-e$1" -" s_776)" -" s_776)))" -"(if(pair?" -" s_777)" -"(let-values(((begin-for-syntax466_0)" -"(let-values(((s_778)" -"(car" -" s_777)))" -" s_778))" -"((e467_0)" -"(let-values(((s_779)" -"(cdr" -" s_777)))" "(let-values(((s_780)" "(if(syntax?$1" " s_779)" "(syntax-e$1" " s_779)" " s_779)))" +"(if(pair?" +" s_780)" +"(let-values(((begin-for-syntax466_0)" +"(let-values(((s_781)" +"(car" +" s_780)))" +" s_781))" +"((e467_0)" +"(let-values(((s_782)" +"(cdr" +" s_780)))" +"(let-values(((s_783)" +"(if(syntax?$1" +" s_782)" +"(syntax-e$1" +" s_782)" +" s_782)))" "(let-values(((flat-s_57)" "(to-syntax-list.1" -" s_780)))" +" s_783)))" "(if(not" " flat-s_57)" "(let-values()" @@ -74374,7 +74401,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_425)))" -"((letrec-values(((for-loop_324)" +"((letrec-values(((for-loop_325)" "(lambda(fold-var_370" " lst_426)" "(begin" @@ -74401,12 +74428,12 @@ static const char *startup_source = " fold-var_385)))))" "(if(not" " #f)" -"(for-loop_324" +"(for-loop_325" " fold-var_383" " rest_247)" " fold-var_383)))" " fold-var_370)))))" -" for-loop_324)" +" for-loop_325)" " null" " lst_425))))))" "(datum->syntax$1" @@ -74449,52 +74476,52 @@ static const char *startup_source = " define-values468_0" " id469_0" " rhs470_0)" -"(let-values(((s_781)" +"(let-values(((s_784)" " disarmed-exp-body_1))" "(let-values(((orig-s_88)" -" s_781))" +" s_784))" "(let-values(((define-values468_1" " id469_1" " rhs470_1)" -"(let-values(((s_782)" +"(let-values(((s_785)" "(if(syntax?$1" -" s_781)" +" s_784)" "(syntax-e$1" -" s_781)" -" s_781)))" +" s_784)" +" s_784)))" "(if(pair?" -" s_782)" +" s_785)" "(let-values(((define-values471_0)" -"(let-values(((s_783)" +"(let-values(((s_786)" "(car" -" s_782)))" -" s_783))" +" s_785)))" +" s_786))" "((id472_0" " rhs473_0)" -"(let-values(((s_190)" +"(let-values(((s_192)" "(cdr" -" s_782)))" -"(let-values(((s_784)" -"(if(syntax?$1" -" s_190)" -"(syntax-e$1" -" s_190)" -" s_190)))" -"(if(pair?" -" s_784)" -"(let-values(((id474_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(((s_787)" +"(if(syntax?$1" +" s_192)" +"(syntax-e$1" +" s_192)" +" s_192)))" +"(if(pair?" +" s_787)" +"(let-values(((id474_0)" +"(let-values(((s_788)" +"(car" +" s_787)))" +"(let-values(((s_789)" +"(if(syntax?$1" +" s_788)" +"(syntax-e$1" +" s_788)" +" s_788)))" "(let-values(((flat-s_58)" "(to-syntax-list.1" -" s_786)))" +" s_789)))" "(if(not" " flat-s_58)" "(let-values()" @@ -74513,14 +74540,14 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_427)))" -"((letrec-values(((for-loop_325)" +"((letrec-values(((for-loop_326)" "(lambda(id_155" " lst_428)" "(begin" " 'for-loop" "(if(pair?" " lst_428)" -"(let-values(((s_787)" +"(let-values(((s_790)" "(unsafe-car" " lst_428))" "((rest_248)" @@ -74533,23 +74560,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id484_0)" "(let-values()" -"(if(let-values(((or-part_395)" +"(if(let-values(((or-part_394)" "(if(syntax?$1" -" s_787)" +" s_790)" "(symbol?" "(syntax-e$1" -" s_787))" +" s_790))" " #f)))" -"(if or-part_395" -" or-part_395" +"(if or-part_394" +" or-part_394" "(symbol?" -" s_787)))" -" s_787" +" s_790)))" +" s_790" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_88" -" s_787)))))" +" s_790)))))" "(cons" " id484_0" " id_157)))))" @@ -74557,45 +74584,45 @@ static const char *startup_source = " id_158)))))" "(if(not" " #f)" -"(for-loop_325" +"(for-loop_326" " id_156" " rest_248)" " id_156)))" " id_155)))))" -" for-loop_325)" +" for-loop_326)" " null" " lst_427)))))" "(reverse$1" " id_154))))))))" "((rhs475_0)" -"(let-values(((s_788)" -"(cdr" -" s_784)))" -"(let-values(((s_789)" -"(if(syntax?$1" -" s_788)" -"(syntax-e$1" -" s_788)" -" s_788)))" -"(if(pair?" -" s_789)" -"(let-values(((rhs476_0)" -"(let-values(((s_790)" -"(car" -" s_789)))" -" s_790))" -"(()" "(let-values(((s_791)" "(cdr" -" s_789)))" +" s_787)))" "(let-values(((s_792)" "(if(syntax?$1" " s_791)" "(syntax-e$1" " s_791)" " s_791)))" -"(if(null?" +"(if(pair?" " s_792)" +"(let-values(((rhs476_0)" +"(let-values(((s_793)" +"(car" +" s_792)))" +" s_793))" +"(()" +"(let-values(((s_794)" +"(cdr" +" s_792)))" +"(let-values(((s_795)" +"(if(syntax?$1" +" s_794)" +"(syntax-e$1" +" s_794)" +" s_794)))" +"(if(null?" +" s_795)" "(values)" "(raise-syntax-error$1" " #f" @@ -74774,31 +74801,13 @@ static const char *startup_source = " define-syntaxes493_0" " id494_0" " rhs495_0)" -"(let-values(((s_793)" +"(let-values(((s_796)" " disarmed-exp-body_1))" "(let-values(((orig-s_89)" -" s_793))" +" s_796))" "(let-values(((define-syntaxes493_1" " id494_1" " rhs495_1)" -"(let-values(((s_794)" -"(if(syntax?$1" -" s_793)" -"(syntax-e$1" -" s_793)" -" s_793)))" -"(if(pair?" -" s_794)" -"(let-values(((define-syntaxes496_0)" -"(let-values(((s_795)" -"(car" -" s_794)))" -" s_795))" -"((id497_0" -" rhs498_0)" -"(let-values(((s_796)" -"(cdr" -" s_794)))" "(let-values(((s_797)" "(if(syntax?$1" " s_796)" @@ -74807,19 +74816,37 @@ static const char *startup_source = " s_796)))" "(if(pair?" " s_797)" -"(let-values(((id499_0)" +"(let-values(((define-syntaxes496_0)" "(let-values(((s_798)" "(car" " s_797)))" +" s_798))" +"((id497_0" +" rhs498_0)" "(let-values(((s_799)" +"(cdr" +" s_797)))" +"(let-values(((s_800)" "(if(syntax?$1" -" s_798)" +" s_799)" "(syntax-e$1" -" s_798)" -" s_798)))" +" s_799)" +" s_799)))" +"(if(pair?" +" s_800)" +"(let-values(((id499_0)" +"(let-values(((s_801)" +"(car" +" s_800)))" +"(let-values(((s_802)" +"(if(syntax?$1" +" s_801)" +"(syntax-e$1" +" s_801)" +" s_801)))" "(let-values(((flat-s_59)" "(to-syntax-list.1" -" s_799)))" +" s_802)))" "(if(not" " flat-s_59)" "(let-values()" @@ -74838,14 +74865,14 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_429)))" -"((letrec-values(((for-loop_326)" +"((letrec-values(((for-loop_327)" "(lambda(id_160" " lst_430)" "(begin" " 'for-loop" "(if(pair?" " lst_430)" -"(let-values(((s_800)" +"(let-values(((s_803)" "(unsafe-car" " lst_430))" "((rest_249)" @@ -74858,23 +74885,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id509_0)" "(let-values()" -"(if(let-values(((or-part_396)" +"(if(let-values(((or-part_395)" "(if(syntax?$1" -" s_800)" +" s_803)" "(symbol?" "(syntax-e$1" -" s_800))" +" s_803))" " #f)))" -"(if or-part_396" -" or-part_396" +"(if or-part_395" +" or-part_395" "(symbol?" -" s_800)))" -" s_800" +" s_803)))" +" s_803" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_89" -" s_800)))))" +" s_803)))))" "(cons" " id509_0" " id_162)))))" @@ -74882,45 +74909,45 @@ static const char *startup_source = " id_163)))))" "(if(not" " #f)" -"(for-loop_326" +"(for-loop_327" " id_161" " rest_249)" " id_161)))" " id_160)))))" -" for-loop_326)" +" for-loop_327)" " null" " lst_429)))))" "(reverse$1" " id_159))))))))" "((rhs500_0)" -"(let-values(((s_801)" -"(cdr" -" s_797)))" -"(let-values(((s_802)" -"(if(syntax?$1" -" s_801)" -"(syntax-e$1" -" s_801)" -" s_801)))" -"(if(pair?" -" s_802)" -"(let-values(((rhs501_0)" -"(let-values(((s_803)" -"(car" -" s_802)))" -" s_803))" -"(()" "(let-values(((s_804)" "(cdr" -" s_802)))" +" s_800)))" "(let-values(((s_805)" "(if(syntax?$1" " s_804)" "(syntax-e$1" " s_804)" " s_804)))" -"(if(null?" +"(if(pair?" " s_805)" +"(let-values(((rhs501_0)" +"(let-values(((s_806)" +"(car" +" s_805)))" +" s_806))" +"(()" +"(let-values(((s_807)" +"(cdr" +" s_805)))" +"(let-values(((s_808)" +"(if(syntax?$1" +" s_807)" +"(syntax-e$1" +" s_807)" +" s_807)))" +"(if(null?" +" s_808)" "(values)" "(raise-syntax-error$1" " #f" @@ -75038,10 +75065,10 @@ static const char *startup_source = "((ids520_0)" " ids_44)" "((temp521_0)" -"(let-values(((v_269)" +"(let-values(((v_268)" " partial-body-ctx_1))" "(let-values(((the-struct_109)" -" v_269))" +" v_268))" "(if(expand-context/outer?" " the-struct_109)" "(let-values(((need-eventually-defined523_0)" @@ -75049,7 +75076,7 @@ static const char *startup_source = "((inner524_0)" "(let-values(((the-struct_110)" "(root-expand-context/outer-inner" -" v_269)))" +" v_268)))" "(if(expand-context/inner?" " the-struct_110)" "(let-values(((lifts525_0)" @@ -75178,7 +75205,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_433)))" -"((letrec-values(((for-loop_327)" +"((letrec-values(((for-loop_328)" "(lambda(lst_434" " lst_435" " lst_436)" @@ -75231,13 +75258,13 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_327" +"(for-loop_328" " rest_250" " rest_251" " rest_252)" "(values))))" "(values))))))" -" for-loop_327)" +" for-loop_328)" " lst_431" " lst_432" " lst_433)))" @@ -75319,38 +75346,38 @@ static const char *startup_source = "(let-values(((ok?_82" " #%require530_0" " req531_0)" -"(let-values(((s_535)" +"(let-values(((s_539)" " ready-body_0))" "(let-values(((orig-s_90)" -" s_535))" +" s_539))" "(let-values(((#%require530_1" " req531_1)" -"(let-values(((s_806)" -"(if(syntax?$1" -" s_535)" -"(syntax-e$1" -" s_535)" -" s_535)))" -"(if(pair?" -" s_806)" -"(let-values(((#%require532_0)" -"(let-values(((s_807)" -"(car" -" s_806)))" -" s_807))" -"((req533_0)" -"(let-values(((s_808)" -"(cdr" -" s_806)))" "(let-values(((s_809)" "(if(syntax?$1" -" s_808)" +" s_539)" "(syntax-e$1" -" s_808)" -" s_808)))" +" s_539)" +" s_539)))" +"(if(pair?" +" s_809)" +"(let-values(((#%require532_0)" +"(let-values(((s_810)" +"(car" +" s_809)))" +" s_810))" +"((req533_0)" +"(let-values(((s_811)" +"(cdr" +" s_809)))" +"(let-values(((s_812)" +"(if(syntax?$1" +" s_811)" +"(syntax-e$1" +" s_811)" +" s_811)))" "(let-values(((flat-s_60)" "(to-syntax-list.1" -" s_809)))" +" s_812)))" "(if(not" " flat-s_60)" "(let-values()" @@ -75523,38 +75550,38 @@ static const char *startup_source = "(let-values(((ok?_83" " #%declare551_0" " kw552_0)" -"(let-values(((s_810)" +"(let-values(((s_813)" " disarmed-exp-body_1))" "(let-values(((orig-s_91)" -" s_810))" +" s_813))" "(let-values(((#%declare551_1" " kw552_1)" -"(let-values(((s_811)" -"(if(syntax?$1" -" s_810)" -"(syntax-e$1" -" s_810)" -" s_810)))" -"(if(pair?" -" s_811)" -"(let-values(((#%declare553_0)" -"(let-values(((s_812)" -"(car" -" s_811)))" -" s_812))" -"((kw554_0)" -"(let-values(((s_813)" -"(cdr" -" s_811)))" "(let-values(((s_814)" "(if(syntax?$1" " s_813)" "(syntax-e$1" " s_813)" " s_813)))" +"(if(pair?" +" s_814)" +"(let-values(((#%declare553_0)" +"(let-values(((s_815)" +"(car" +" s_814)))" +" s_815))" +"((kw554_0)" +"(let-values(((s_816)" +"(cdr" +" s_814)))" +"(let-values(((s_817)" +"(if(syntax?$1" +" s_816)" +"(syntax-e$1" +" s_816)" +" s_816)))" "(let-values(((flat-s_61)" "(to-syntax-list.1" -" s_814)))" +" s_817)))" "(if(not" " flat-s_61)" "(let-values()" @@ -75586,7 +75613,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_437)))" -"((letrec-values(((for-loop_328)" +"((letrec-values(((for-loop_329)" "(lambda(lst_438)" "(begin" " 'for-loop" @@ -75648,11 +75675,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_328" +"(for-loop_329" " rest_253)" "(values))))" "(values))))))" -" for-loop_328)" +" for-loop_329)" " lst_437)))" "(values))))" "(let-values()" @@ -75675,7 +75702,7 @@ static const char *startup_source = "(loop_125" " tail?_52" " rest-bodys_1)))))))))))))))))" -"(let-values(((l_83)" +"(let-values(((l_87)" "(append" "(get-and-clear-require-lifts!" "(expand-context-require-lifts" @@ -75688,10 +75715,10 @@ static const char *startup_source = "(expand-context-module-lifts" " partial-body-ctx_1))" " partial-body-ctx_1)))))" -"(if(null? l_83)" +"(if(null? l_87)" "(finish_2)" "(append" -" l_83" +" l_87" "(finish_2)))))))))))))))))" " loop_125)" " #t" @@ -75708,7 +75735,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_439)))" -"((letrec-values(((for-loop_329)" +"((letrec-values(((for-loop_330)" "(lambda(fold-var_386 lst_440)" "(begin" " 'for-loop" @@ -75726,9 +75753,9 @@ static const char *startup_source = " inside-scope_2))" " fold-var_388))))" "(values fold-var_389)))))" -"(if(not #f)(for-loop_329 fold-var_387 rest_254) fold-var_387)))" +"(if(not #f)(for-loop_330 fold-var_387 rest_254) fold-var_387)))" " fold-var_386)))))" -" for-loop_329)" +" for-loop_330)" " null" " lst_439))))))" "(let-values(((syms_26)" @@ -75754,7 +75781,7 @@ static const char *startup_source = " self557_0" " phase558_0" " all-scopes-stx559_0))))" -"(let-values(((s_557)" +"(let-values(((s_561)" "(add-scope" "(datum->syntax$1" " #f" @@ -75763,7 +75790,7 @@ static const char *startup_source = " scoped-ids_0" " rhs_22))" " inside-scope_2)))" -"(values scoped-ids_0(semi-parsed-define-values2.1 s_557 syms_26 scoped-ids_0 rhs_22)))))))))" +"(values scoped-ids_0(semi-parsed-define-values2.1 s_561 syms_26 scoped-ids_0 rhs_22)))))))))" "(define-values" "(add-post-expansion-scope)" "(lambda(bodys_23 ctx_116)" @@ -75774,7 +75801,7 @@ static const char *startup_source = "(let-values(((lst_441) bodys_23))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_441)))" -"((letrec-values(((for-loop_330)" +"((letrec-values(((for-loop_331)" "(lambda(fold-var_390 lst_442)" "(begin" " 'for-loop" @@ -75788,9 +75815,9 @@ static const char *startup_source = "(let-values()(add-scope body_23 sc_39))" " fold-var_392))))" "(values fold-var_393)))))" -"(if(not #f)(for-loop_330 fold-var_391 rest_255) fold-var_391)))" +"(if(not #f)(for-loop_331 fold-var_391 rest_255) fold-var_391)))" " fold-var_390)))))" -" for-loop_330)" +" for-loop_331)" " null" " lst_441))))" " bodys_23)))))" @@ -75875,14 +75902,14 @@ static const char *startup_source = "(let-values(((body_24)(car bodys_24)))" "(let-values(((rest-bodys_2)(cdr bodys_24)))" "(let-values(((exp-body_8)" -"(if(let-values(((or-part_397)" +"(if(let-values(((or-part_396)" "(parsed? body_24)))" +"(if or-part_396" +" or-part_396" +"(let-values(((or-part_397)" +"(expanded+parsed? body_24)))" "(if or-part_397" " or-part_397" -"(let-values(((or-part_398)" -"(expanded+parsed? body_24)))" -"(if or-part_398" -" or-part_398" "(semi-parsed-begin-for-syntax?" " body_24)))))" "(let-values() body_24)" @@ -75899,44 +75926,26 @@ static const char *startup_source = "(let-values(((syms_27)" "(semi-parsed-define-values-syms" " body_24)))" -"(let-values(((s_815)" +"(let-values(((s_818)" "(semi-parsed-define-values-s" " body_24)))" "(let-values(((ok?_84" " define-values562_0" " _563_0" " _564_0)" -"(let-values(((s_816)" +"(let-values(((s_819)" "(syntax-disarm$1" -" s_815)))" +" s_818)))" "(if(if(not" "(expand-context-to-parsed?" " rhs-ctx_2))" " #t" " #f)" "(let-values(((orig-s_92)" -" s_816))" +" s_819))" "(let-values(((define-values562_1" " _563_1" " _564_1)" -"(let-values(((s_817)" -"(if(syntax?$1" -" s_816)" -"(syntax-e$1" -" s_816)" -" s_816)))" -"(if(pair?" -" s_817)" -"(let-values(((define-values565_0)" -"(let-values(((s_818)" -"(car" -" s_817)))" -" s_818))" -"((_566_0" -" _567_0)" -"(let-values(((s_819)" -"(cdr" -" s_817)))" "(let-values(((s_820)" "(if(syntax?$1" " s_819)" @@ -75945,12 +75954,13 @@ static const char *startup_source = " s_819)))" "(if(pair?" " s_820)" -"(let-values(((_568_0)" +"(let-values(((define-values565_0)" "(let-values(((s_821)" "(car" " s_820)))" " s_821))" -"((_569_0)" +"((_566_0" +" _567_0)" "(let-values(((s_822)" "(cdr" " s_820)))" @@ -75962,12 +75972,12 @@ static const char *startup_source = " s_822)))" "(if(pair?" " s_823)" -"(let-values(((_570_0)" +"(let-values(((_568_0)" "(let-values(((s_824)" "(car" " s_823)))" " s_824))" -"(()" +"((_569_0)" "(let-values(((s_825)" "(cdr" " s_823)))" @@ -75977,8 +75987,25 @@ static const char *startup_source = "(syntax-e$1" " s_825)" " s_825)))" -"(if(null?" +"(if(pair?" " s_826)" +"(let-values(((_570_0)" +"(let-values(((s_827)" +"(car" +" s_826)))" +" s_827))" +"(()" +"(let-values(((s_828)" +"(cdr" +" s_826)))" +"(let-values(((s_829)" +"(if(syntax?$1" +" s_828)" +"(syntax-e$1" +" s_828)" +" s_828)))" +"(if(null?" +" s_829)" "(values)" "(raise-syntax-error$1" " #f" @@ -76019,7 +76046,7 @@ static const char *startup_source = "(let-values(((rhs-ctx571_0)" " rhs-ctx_2)" "((s572_0)" -" s_815)" +" s_818)" "((temp573_0)" " #t))" "(keep-as-needed85.1" @@ -76235,15 +76262,15 @@ static const char *startup_source = "(lambda(need-eventually-defined_3 self_37 ctx_117)" "(begin" "(begin" -"(let-values(((ht_169) need-eventually-defined_3))" +"(let-values(((ht_168) need-eventually-defined_3))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_169)))" -"((letrec-values(((for-loop_331)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_168)))" +"((letrec-values(((for-loop_332)" "(lambda(i_193)" "(begin" " 'for-loop" "(if i_193" -"(let-values(((phase_161 l_84)(hash-iterate-key+value ht_169 i_193)))" +"(let-values(((phase_161 l_88)(hash-iterate-key+value ht_168 i_193)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -76251,13 +76278,13 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_443) l_84))" +"(let-values(((lst_443) l_88))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-list lst_443)))" -"((letrec-values(((for-loop_332)" +"((letrec-values(((for-loop_333)" "(lambda(lst_444)" "(begin" " 'for-loop" @@ -76322,19 +76349,19 @@ static const char *startup_source = "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_332" +"(for-loop_333" " rest_256)" "(values))))" "(values))))))" -" for-loop_332)" +" for-loop_333)" " lst_443)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_331(hash-iterate-next ht_169 i_193))(values))))" +"(if(not #f)(for-loop_332(hash-iterate-next ht_168 i_193))(values))))" "(values))))))" -" for-loop_331)" -"(hash-iterate-first ht_169))))" +" for-loop_332)" +"(hash-iterate-first ht_168))))" "(void)))))" "(define-values" "(resolve-provides115.1)" @@ -76362,8 +76389,8 @@ static const char *startup_source = " 'loop" "(if(null? bodys_26)" "(let-values() null)" -"(if(let-values(((or-part_399)(parsed?(car bodys_26))))" -"(if or-part_399 or-part_399(expanded+parsed?(car bodys_26))))" +"(if(let-values(((or-part_398)(parsed?(car bodys_26))))" +"(if or-part_398 or-part_398(expanded+parsed?(car bodys_26))))" "(let-values()" "(cons(car bodys_26)(loop_127(cdr bodys_26) phase_163)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" @@ -76409,35 +76436,35 @@ static const char *startup_source = "(void)))" "(values))))" "(let-values(((ok?_85 #%provide595_0 spec596_0)" -"(let-values(((s_622) disarmed-body_1))" -"(let-values(((orig-s_93) s_622))" +"(let-values(((s_626) disarmed-body_1))" +"(let-values(((orig-s_93) s_626))" "(let-values(((#%provide595_1" " spec596_1)" -"(let-values(((s_827)" +"(let-values(((s_830)" "(if(syntax?$1" -" s_622)" +" s_626)" "(syntax-e$1" -" s_622)" -" s_622)))" -"(if(pair? s_827)" +" s_626)" +" s_626)))" +"(if(pair? s_830)" "(let-values(((#%provide597_0)" -"(let-values(((s_626)" +"(let-values(((s_630)" "(car" -" s_827)))" -" s_626))" +" s_830)))" +" s_630))" "((spec598_0)" -"(let-values(((s_627)" +"(let-values(((s_631)" "(cdr" -" s_827)))" -"(let-values(((s_828)" +" s_830)))" +"(let-values(((s_831)" "(if(syntax?$1" -" s_627)" +" s_631)" "(syntax-e$1" -" s_627)" -" s_627)))" +" s_631)" +" s_631)))" "(let-values(((flat-s_62)" "(to-syntax-list.1" -" s_828)))" +" s_831)))" "(if(not" " flat-s_62)" "(let-values()" @@ -76465,9 +76492,9 @@ static const char *startup_source = " requires+provides_9" " self_38" " phase_163" -"(let-values(((v_270) ctx_118))" +"(let-values(((v_269) ctx_118))" "(let-values(((the-struct_112)" -" v_270))" +" v_269))" "(if(expand-context/outer?" " the-struct_112)" "(let-values(((context599_0)" @@ -76475,7 +76502,7 @@ static const char *startup_source = "((inner600_0)" "(let-values(((the-struct_113)" "(root-expand-context/outer-inner" -" v_270)))" +" v_269)))" "(if(expand-context/inner?" " the-struct_113)" "(let-values(((phase601_0)" @@ -76658,8 +76685,8 @@ static const char *startup_source = "(hasheq))))" "(let-values(((module-name_2)" "(1/module-path-index-resolve" -"(let-values(((or-part_400) enclosing-self_3))" -"(if or-part_400 or-part_400 self_39)))))" +"(let-values(((or-part_399) enclosing-self_3))" +"(if or-part_399 or-part_399 self_39)))))" "(let-values(((compiled-module_0)" "(let-values(((parsed-mod607_0) parsed-mod_0)" "((temp608_0)" @@ -76725,16 +76752,16 @@ static const char *startup_source = " compiled-module615_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_829 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_832 root-ctx_8 orig-self_1 new-self_2)" "(begin" -"(let-values(((s_830)" -"(syntax-property$1 s_829 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" -"(let-values(((s_831)" +"(let-values(((s_833)" +"(syntax-property$1 s_832 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_834)" "(syntax-property$1" -" s_830" +" s_833" " 'module-body-inside-context" "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" -" s_831)))))" +" s_834)))))" "(define-values" "(expand-post-submodules165.1)" "(lambda(all-scopes-s147_0" @@ -76779,37 +76806,37 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax-s" " body_25)))" "(let-values(((ok?_86 begin-for-syntax617_0 _618_0)" -"(let-values(((s_832)" +"(let-values(((s_835)" "(syntax-disarm$1" " body-s_0)))" -"(let-values(((orig-s_94) s_832))" +"(let-values(((orig-s_94) s_835))" "(let-values(((begin-for-syntax617_1" " _618_1)" -"(let-values(((s_833)" -"(if(syntax?$1" -" s_832)" -"(syntax-e$1" -" s_832)" -" s_832)))" -"(if(pair? s_833)" -"(let-values(((begin-for-syntax619_0)" -"(let-values(((s_834)" -"(car" -" s_833)))" -" s_834))" -"((_620_0)" -"(let-values(((s_835)" -"(cdr" -" s_833)))" -"(let-values(((s_656)" +"(let-values(((s_836)" "(if(syntax?$1" " s_835)" "(syntax-e$1" " s_835)" " s_835)))" +"(if(pair? s_836)" +"(let-values(((begin-for-syntax619_0)" +"(let-values(((s_837)" +"(car" +" s_836)))" +" s_837))" +"((_620_0)" +"(let-values(((s_838)" +"(cdr" +" s_836)))" +"(let-values(((s_660)" +"(if(syntax?$1" +" s_838)" +"(syntax-e$1" +" s_838)" +" s_838)))" "(let-values(((flat-s_63)" "(to-syntax-list.1" -" s_656)))" +" s_660)))" "(if(not" " flat-s_63)" "(let-values()" @@ -76872,9 +76899,9 @@ static const char *startup_source = " temp624_0))" " parsed-bfs_0))" "(loop_128 rest-bodys_3 phase_165))))))))" -"(if(let-values(((or-part_401)(parsed? body_25)))" -"(if or-part_401" -" or-part_401" +"(if(let-values(((or-part_400)(parsed? body_25)))" +"(if or-part_400" +" or-part_400" "(expanded+parsed? body_25)))" "(let-values()" "(cons body_25(loop_128 rest-bodys_3 phase_165)))" @@ -76900,30 +76927,15 @@ static const char *startup_source = " module*625_0" " name626_0" " _627_0)" -"(let-values(((s_836)" -" disarmed-body_2))" -"(if(let-values(((s_837)" -"(if(syntax?$1" -" s_836)" -"(syntax-e$1" -" s_836)" -" s_836)))" -"(if(pair? s_837)" -"(if(let-values(((s_838)" -"(car" -" s_837)))" -" #t)" "(let-values(((s_839)" -"(cdr" -" s_837)))" -"(let-values(((s_840)" +" disarmed-body_2))" +"(if(let-values(((s_840)" "(if(syntax?$1" " s_839)" "(syntax-e$1" " s_839)" " s_839)))" -"(if(pair?" -" s_840)" +"(if(pair? s_840)" "(if(let-values(((s_841)" "(car" " s_840)))" @@ -76931,29 +76943,44 @@ static const char *startup_source = "(let-values(((s_842)" "(cdr" " s_840)))" -"(let-values(((s_662)" +"(let-values(((s_843)" "(if(syntax?$1" " s_842)" "(syntax-e$1" " s_842)" " s_842)))" "(if(pair?" -" s_662)" -"(if(let-values(((s_843)" +" s_843)" +"(if(let-values(((s_844)" "(car" -" s_662)))" -"(let-values(((s_844)" -"(if(syntax?$1" -" s_843)" -"(syntax-e$1" -" s_843)" " s_843)))" -"(eq?" -" #f" -" s_844)))" +" #t)" "(let-values(((s_845)" "(cdr" -" s_662)))" +" s_843)))" +"(let-values(((s_666)" +"(if(syntax?$1" +" s_845)" +"(syntax-e$1" +" s_845)" +" s_845)))" +"(if(pair?" +" s_666)" +"(if(let-values(((s_846)" +"(car" +" s_666)))" +"(let-values(((s_847)" +"(if(syntax?$1" +" s_846)" +"(syntax-e$1" +" s_846)" +" s_846)))" +"(eq?" +" #f" +" s_847)))" +"(let-values(((s_848)" +"(cdr" +" s_666)))" " #t)" " #f)" " #f)))" @@ -76965,59 +76992,59 @@ static const char *startup_source = "(let-values(((module*625_1" " name626_1" " _627_1)" -"(let-values(((s_846)" +"(let-values(((s_849)" "(if(syntax?$1" -" s_836)" +" s_839)" "(syntax-e$1" -" s_836)" -" s_836)))" +" s_839)" +" s_839)))" "(let-values(((module*628_0)" -"(let-values(((s_847)" +"(let-values(((s_850)" "(car" -" s_846)))" -" s_847))" +" s_849)))" +" s_850))" "((name629_0" " _630_0)" -"(let-values(((s_848)" -"(cdr" -" s_846)))" -"(let-values(((s_667)" -"(if(syntax?$1" -" s_848)" -"(syntax-e$1" -" s_848)" -" s_848)))" -"(let-values(((name631_0)" -"(let-values(((s_669)" -"(car" -" s_667)))" -" s_669))" -"((_632_0)" -"(let-values(((s_849)" -"(cdr" -" s_667)))" -"(let-values(((s_670)" -"(if(syntax?$1" -" s_849)" -"(syntax-e$1" -" s_849)" -" s_849)))" -"(let-values((()" -"(let-values(((s_672)" -"(car" -" s_670)))" -"(let-values(((s_850)" -"(if(syntax?$1" -" s_672)" -"(syntax-e$1" -" s_672)" -" s_672)))" -"(values))))" -"((_633_0)" "(let-values(((s_851)" "(cdr" -" s_670)))" +" s_849)))" +"(let-values(((s_671)" +"(if(syntax?$1" +" s_851)" +"(syntax-e$1" +" s_851)" " s_851)))" +"(let-values(((name631_0)" +"(let-values(((s_673)" +"(car" +" s_671)))" +" s_673))" +"((_632_0)" +"(let-values(((s_852)" +"(cdr" +" s_671)))" +"(let-values(((s_674)" +"(if(syntax?$1" +" s_852)" +"(syntax-e$1" +" s_852)" +" s_852)))" +"(let-values((()" +"(let-values(((s_676)" +"(car" +" s_674)))" +"(let-values(((s_853)" +"(if(syntax?$1" +" s_676)" +"(syntax-e$1" +" s_676)" +" s_676)))" +"(values))))" +"((_633_0)" +"(let-values(((s_854)" +"(cdr" +" s_674)))" +" s_854)))" "(values" " _633_0))))))" "(values" @@ -77182,7 +77209,7 @@ static const char *startup_source = "(let-values(((ids_47) ids170_0))" "(let-values(((phase_166) phase171_1))" "(let-values(((requires+provides_12) requires+provides172_0))" -"(let-values(((s_852) in168_0))" +"(let-values(((s_855) in168_0))" "(let-values()" "(begin" "(let-values(((lst_445) ids_47))" @@ -77190,7 +77217,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_445)))" -"((letrec-values(((for-loop_333)" +"((letrec-values(((for-loop_334)" "(lambda(lst_446)" "(begin" " 'for-loop" @@ -77208,7 +77235,7 @@ static const char *startup_source = "((id656_0) id_167)" "((phase657_0)" " phase_166)" -"((s658_0) s_852)" +"((s658_0) s_855)" "((temp659_0) 'module))" "(check-not-defined95.1" " #f" @@ -77228,9 +77255,9 @@ static const char *startup_source = " phase657_0)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_333 rest_257)(values))))" +"(if(not #f)(for-loop_334 rest_257)(values))))" "(values))))))" -" for-loop_333)" +" for-loop_334)" " lst_445)))" "(void))))))))))" "(define-values" @@ -77241,7 +77268,7 @@ static const char *startup_source = "(let-values(((lst_447) bodys_28))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_447)))" -"((letrec-values(((for-loop_334)" +"((letrec-values(((for-loop_335)" "(lambda(lst_448)" "(begin" " 'for-loop" @@ -77293,7 +77320,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list lst_451)))" -"((letrec-values(((for-loop_335)" +"((letrec-values(((for-loop_336)" "(lambda(lst_452" " lst_453" " lst_454)" @@ -77340,30 +77367,30 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_335" +"(for-loop_336" " rest_259" " rest_260" " rest_261)" "(values))))" "(values))))))" -" for-loop_335)" +" for-loop_336)" " lst_449" " lst_450" " lst_451)))" "(void)))))" -"(if(let-values(((or-part_402)" +"(if(let-values(((or-part_401)" "(parsed-define-syntaxes?" " p_89)))" -"(if or-part_402" -" or-part_402" +"(if or-part_401" +" or-part_401" "(semi-parsed-begin-for-syntax?" " p_89)))" "(let-values()(void))" -"(if(let-values(((or-part_403)" +"(if(let-values(((or-part_402)" "(parsed-#%declare?" " p_89)))" -"(if or-part_403" -" or-part_403" +"(if or-part_402" +" or-part_402" "(syntax?$1 p_89)))" "(let-values()(void))" "(let-values()" @@ -77401,9 +77428,9 @@ static const char *startup_source = " m-ns_22)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_334 rest_258)(values))))" +"(if(not #f)(for-loop_335 rest_258)(values))))" "(values))))))" -" for-loop_334)" +" for-loop_335)" " lst_447)))" "(void)))))" "(define-values" @@ -77426,7 +77453,7 @@ static const char *startup_source = " ctx196_0)" "(begin" " 'expand-submodule197" -"(let-values(((s_853) s194_0))" +"(let-values(((s_856) s194_0))" "(let-values(((self_42) self195_0))" "(let-values(((ctx_122) ctx196_0))" "(let-values(((is-star?_0) is-star?176_0))" @@ -77455,42 +77482,42 @@ static const char *startup_source = "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_158 'enter-prim s_853)" +"(call-expand-observe obs_158 'enter-prim s_856)" "(call-expand-observe" " obs_158" "(if is-star?_0 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" "(let-values(((ok?_88 module662_0 name663_0 _664_0)" -"(let-values(((s_854) s_853))" -"(let-values(((orig-s_95) s_854))" +"(let-values(((s_857) s_856))" +"(let-values(((orig-s_95) s_857))" "(let-values(((module662_1 name663_1 _664_1)" -"(let-values(((s_855)" -"(if(syntax?$1 s_854)" -"(syntax-e$1 s_854)" -" s_854)))" -"(if(pair? s_855)" -"(let-values(((module665_0)" -"(let-values(((s_856)(car s_855)))" -" s_856))" -"((name666_0 _667_0)" -"(let-values(((s_857)(cdr s_855)))" "(let-values(((s_858)" -"(if(syntax?$1" -" s_857)" +"(if(syntax?$1 s_857)" "(syntax-e$1 s_857)" " s_857)))" "(if(pair? s_858)" -"(let-values(((name668_0)" -"(let-values(((s_859)" -"(car" -" s_858)))" +"(let-values(((module665_0)" +"(let-values(((s_859)(car s_858)))" " s_859))" -"((_669_0)" -"(let-values(((s_860)" -"(cdr" -" s_858)))" +"((name666_0 _667_0)" +"(let-values(((s_860)(cdr s_858)))" +"(let-values(((s_861)" +"(if(syntax?$1" +" s_860)" +"(syntax-e$1 s_860)" " s_860)))" +"(if(pair? s_861)" +"(let-values(((name668_0)" +"(let-values(((s_862)" +"(car" +" s_861)))" +" s_862))" +"((_669_0)" +"(let-values(((s_863)" +"(cdr" +" s_861)))" +" s_863)))" "(values name668_0 _669_0))" "(raise-syntax-error$1" " #f" @@ -77510,7 +77537,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" -" s_853" +" s_856" " name_80))" "(void))" "(values))))" @@ -77527,14 +77554,14 @@ static const char *startup_source = "(if obs_159" "(let-values()" "(let-values()" -"(call-expand-observe obs_159 'enter-prim s_853)))" +"(call-expand-observe obs_159 'enter-prim s_856)))" "(void)))" "(values))))" "(let-values(((submod_5)" -"(let-values(((s670_0) s_853)" +"(let-values(((s670_0) s_856)" "((temp671_0)" -"(let-values(((v_271) ctx_122))" -"(let-values(((the-struct_115) v_271))" +"(let-values(((v_270) ctx_122))" +"(let-values(((the-struct_115) v_270))" "(if(expand-context/outer? the-struct_115)" "(let-values(((context680_0) 'module)" "((post-expansion-scope681_0)" @@ -77542,7 +77569,7 @@ static const char *startup_source = "((inner682_0)" "(let-values(((the-struct_116)" "(root-expand-context/outer-inner" -" v_271)))" +" v_270)))" "(if(expand-context/inner?" " the-struct_116)" "(let-values(((stops683_0)" @@ -77854,7 +77881,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_455)))" -"((letrec-values(((for-loop_336)" +"((letrec-values(((for-loop_337)" "(lambda(fold-var_394 lst_456)" "(begin" " 'for-loop" @@ -77911,10 +77938,10 @@ static const char *startup_source = " fold-var_396))))" "(values fold-var_397)))))" "(if(not #f)" -"(for-loop_336 fold-var_395 rest_262)" +"(for-loop_337 fold-var_395 rest_262)" " fold-var_395)))" " fold-var_394)))))" -" for-loop_336)" +" for-loop_337)" " null" " lst_455))))))))))))))))" "(define-values" @@ -77927,37 +77954,37 @@ static const char *startup_source = "(let-values(((requires+provides_13) requires+provides219_0))" "(let-values(((declared-submodule-names_10) declared-submodule-names215_0))" "(let-values()" -"(lambda(s_861 phase_169)" +"(lambda(s_864 phase_169)" "(let-values(((ok?_89 #%require706_0 req707_0)" -"(let-values(((s_862)(syntax-disarm$1 s_861)))" -"(let-values(((orig-s_96) s_862))" +"(let-values(((s_865)(syntax-disarm$1 s_864)))" +"(let-values(((orig-s_96) s_865))" "(let-values(((#%require706_1 req707_1)" -"(let-values(((s_863)" -"(if(syntax?$1 s_862)(syntax-e$1 s_862) s_862)))" -"(if(pair? s_863)" -"(let-values(((#%require708_0)" -"(let-values(((s_864)(car s_863))) s_864))" -"((req709_0)" -"(let-values(((s_865)(cdr s_863)))" "(let-values(((s_866)" -"(if(syntax?$1 s_865)" -"(syntax-e$1 s_865)" -" s_865)))" +"(if(syntax?$1 s_865)(syntax-e$1 s_865) s_865)))" "(if(pair? s_866)" -"(let-values(((req710_0)" -"(let-values(((s_867)" -"(car s_866)))" -" s_867))" -"(()" -"(let-values(((s_868)" -"(cdr s_866)))" +"(let-values(((#%require708_0)" +"(let-values(((s_867)(car s_866))) s_867))" +"((req709_0)" +"(let-values(((s_868)(cdr s_866)))" "(let-values(((s_869)" -"(if(syntax?$1" -" s_868)" -"(syntax-e$1" -" s_868)" +"(if(syntax?$1 s_868)" +"(syntax-e$1 s_868)" " s_868)))" -"(if(null? s_869)" +"(if(pair? s_869)" +"(let-values(((req710_0)" +"(let-values(((s_870)" +"(car s_869)))" +" s_870))" +"(()" +"(let-values(((s_871)" +"(cdr s_869)))" +"(let-values(((s_872)" +"(if(syntax?$1" +" s_871)" +"(syntax-e$1" +" s_871)" +" s_871)))" +"(if(null? s_872)" "(values)" "(raise-syntax-error$1" " #f" @@ -77972,7 +77999,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_96)))))" "(values #t #%require706_1 req707_1))))))" "(let-values(((temp711_0)(list req707_0))" -"((s712_0) s_861)" +"((s712_0) s_864)" "((self713_0) self_44)" "((m-ns714_0) m-ns_23)" "((phase715_0) phase_169)" @@ -78021,7 +78048,7 @@ static const char *startup_source = "(let-values(((lst_457) lifted-defns_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_457)))" -"((letrec-values(((for-loop_337)" +"((letrec-values(((for-loop_338)" "(lambda(fold-var_398 lst_458)" "(begin" " 'for-loop" @@ -78037,9 +78064,9 @@ static const char *startup_source = "(defn-extract-syntax lifted-defn_0))" " fold-var_400))))" "(values fold-var_401)))))" -"(if(not #f)(for-loop_337 fold-var_399 rest_263) fold-var_399)))" +"(if(not #f)(for-loop_338 fold-var_399 rest_263) fold-var_399)))" " fold-var_398)))))" -" for-loop_337)" +" for-loop_338)" " null" " lst_457)))))))" "(define-values" @@ -78062,7 +78089,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_459)))" -"((letrec-values(((for-loop_338)" +"((letrec-values(((for-loop_339)" "(lambda(lst_460)" "(begin" " 'for-loop" @@ -78078,38 +78105,38 @@ static const char *startup_source = "(let-values(((ok?_90" " define-values724_0" " _725_0)" -"(let-values(((s_870)" +"(let-values(((s_873)" " s-lifted-defn_0))" "(let-values(((orig-s_97)" -" s_870))" +" s_873))" "(let-values(((define-values724_1" " _725_1)" -"(let-values(((s_871)" -"(if(syntax?$1" -" s_870)" -"(syntax-e$1" -" s_870)" -" s_870)))" -"(if(pair?" -" s_871)" -"(let-values(((define-values726_0)" -"(let-values(((s_872)" -"(car" -" s_871)))" -" s_872))" -"((_727_0)" -"(let-values(((s_873)" -"(cdr" -" s_871)))" "(let-values(((s_874)" "(if(syntax?$1" " s_873)" "(syntax-e$1" " s_873)" " s_873)))" +"(if(pair?" +" s_874)" +"(let-values(((define-values726_0)" +"(let-values(((s_875)" +"(car" +" s_874)))" +" s_875))" +"((_727_0)" +"(let-values(((s_876)" +"(cdr" +" s_874)))" +"(let-values(((s_877)" +"(if(syntax?$1" +" s_876)" +"(syntax-e$1" +" s_876)" +" s_876)))" "(let-values(((flat-s_64)" "(to-syntax-list.1" -" s_874)))" +" s_877)))" "(if(not" " flat-s_64)" "(let-values()" @@ -78174,23 +78201,23 @@ static const char *startup_source = " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_338 rest_264)(values))))" +"(if(not #f)(for-loop_339 rest_264)(values))))" "(values))))))" -" for-loop_338)" +" for-loop_339)" " lst_459)))" "(values))))" "(let-values()" "(let-values(((ok?_91 form-id720_0 _721_0)" -"(let-values(((s_875) exp-body_10))" -"(let-values(((orig-s_98) s_875))" +"(let-values(((s_878) exp-body_10))" +"(let-values(((orig-s_98) s_878))" "(let-values(((form-id720_1 _721_1)" -"(let-values(((s_876)" -"(if(syntax?$1 s_875)(syntax-e$1 s_875) s_875)))" -"(if(pair? s_876)" +"(let-values(((s_879)" +"(if(syntax?$1 s_878)(syntax-e$1 s_878) s_878)))" +"(if(pair? s_879)" "(let-values(((form-id722_0)" -"(let-values(((s_877)(car s_876))) s_877))" +"(let-values(((s_880)(car s_879))) s_880))" "((_723_0)" -"(let-values(((s_878)(cdr s_876))) s_878)))" +"(let-values(((s_881)(cdr s_879))) s_881)))" "(values form-id722_0 _723_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_98)))))" "(values #t form-id720_1 _721_1))))))" @@ -78212,20 +78239,20 @@ static const char *startup_source = "(let-values()" "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))" "(let-values(((ok?_92 define-values728_0 _729_0)" -"(let-values(((s_879) s-defn_0))" -"(let-values(((orig-s_99) s_879))" +"(let-values(((s_882) s-defn_0))" +"(let-values(((orig-s_99) s_882))" "(let-values(((define-values728_1 _729_1)" -"(let-values(((s_880)(if(syntax?$1 s_879)(syntax-e$1 s_879) s_879)))" -"(if(pair? s_880)" +"(let-values(((s_883)(if(syntax?$1 s_882)(syntax-e$1 s_882) s_882)))" +"(if(pair? s_883)" "(let-values(((define-values730_0)" -"(let-values(((s_881)(car s_880))) s_881))" +"(let-values(((s_884)(car s_883))) s_884))" "((_731_0)" -"(let-values(((s_882)(cdr s_880)))" -"(let-values(((s_883)" -"(if(syntax?$1 s_882)" -"(syntax-e$1 s_882)" -" s_882)))" -"(let-values(((flat-s_65)(to-syntax-list.1 s_883)))" +"(let-values(((s_885)(cdr s_883)))" +"(let-values(((s_886)" +"(if(syntax?$1 s_885)" +"(syntax-e$1 s_885)" +" s_885)))" +"(let-values(((flat-s_65)(to-syntax-list.1 s_886)))" "(if(not flat-s_65)" "(let-values()" "(raise-syntax-error$1" @@ -78258,7 +78285,7 @@ static const char *startup_source = "(void))))))" "(define-values" "(as-expand-time-top-level-bindings)" -"(lambda(ids_49 s_69 ctx_126)" +"(lambda(ids_49 s_71 ctx_126)" "(begin" "(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_126)))" "(let-values(((tl-ids_2)" @@ -78293,7 +78320,7 @@ static const char *startup_source = " lst_6))))))" "(let-values((()" "(begin" -"(let-values(((tl-ids1_0) tl-ids_2)((temp2_9)(expand-context-phase ctx_126))((s3_4) s_69))" +"(let-values(((tl-ids1_0) tl-ids_2)((temp2_9)(expand-context-phase ctx_126))((s3_4) s_71))" "(check-no-duplicate-ids8.1 #f #f tl-ids1_0 temp2_9 s3_4 #f #f))" "(values))))" "(let-values(((tmp-bind-ids_0)" @@ -78303,7 +78330,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_100)))" -"((letrec-values(((for-loop_339)" +"((letrec-values(((for-loop_340)" "(lambda(fold-var_224 lst_86)" "(begin" " 'for-loop" @@ -78322,10 +78349,10 @@ static const char *startup_source = " fold-var_157))))" "(values fold-var_227)))))" "(if(not #f)" -"(for-loop_339 fold-var_26 rest_244)" +"(for-loop_340 fold-var_26 rest_244)" " fold-var_26)))" " fold-var_224)))))" -" for-loop_339)" +" for-loop_340)" " null" " lst_100))))))" "(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_126)))))))))" @@ -78348,26 +78375,26 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_25)(syntax-disarm$1 s_0)))" "(let-values(((ok?_24 define-values1_0 id2_1 rhs3_0)" -"(let-values(((s_400) s_0))" -"(let-values(((orig-s_100) s_400))" +"(let-values(((s_406) s_0))" +"(let-values(((orig-s_100) s_406))" "(let-values(((define-values1_1 id2_2 rhs3_1)" -"(let-values(((s_172)(if(syntax?$1 s_400)(syntax-e$1 s_400) s_400)))" -"(if(pair? s_172)" +"(let-values(((s_174)(if(syntax?$1 s_406)(syntax-e$1 s_406) s_406)))" +"(if(pair? s_174)" "(let-values(((define-values4_0)" -"(let-values(((s_73)(car s_172))) s_73))" +"(let-values(((s_75)(car s_174))) s_75))" "((id5_0 rhs6_0)" -"(let-values(((s_173)(cdr s_172)))" -"(let-values(((s_76)" -"(if(syntax?$1 s_173)" -"(syntax-e$1 s_173)" -" s_173)))" -"(if(pair? s_76)" +"(let-values(((s_175)(cdr s_174)))" +"(let-values(((s_78)" +"(if(syntax?$1 s_175)" +"(syntax-e$1 s_175)" +" s_175)))" +"(if(pair? s_78)" "(let-values(((id7_0)" -"(let-values(((s_159)(car s_76)))" +"(let-values(((s_161)(car s_78)))" "(let-values(((s_5)" -"(if(syntax?$1 s_159)" -"(syntax-e$1 s_159)" -" s_159)))" +"(if(syntax?$1 s_161)" +"(syntax-e$1 s_161)" +" s_161)))" "(let-values(((flat-s_66)" "(to-syntax-list.1" " s_5)))" @@ -78395,7 +78422,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_80)" -"(let-values(((s_174)" +"(let-values(((s_176)" "(unsafe-car" " lst_80))" "((rest_143)" @@ -78408,23 +78435,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id10_1)" "(let-values()" -"(if(let-values(((or-part_53)" +"(if(let-values(((or-part_54)" "(if(syntax?$1" -" s_174)" +" s_176)" "(symbol?" "(syntax-e$1" -" s_174))" +" s_176))" " #f)))" -"(if or-part_53" -" or-part_53" +"(if or-part_54" +" or-part_54" "(symbol?" -" s_174)))" -" s_174" +" s_176)))" +" s_176" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_100" -" s_174)))))" +" s_176)))))" "(cons" " id10_1" " id_53)))))" @@ -78442,27 +78469,27 @@ static const char *startup_source = " lst_24)))))" "(reverse$1 id_5))))))))" "((rhs8_0)" -"(let-values(((s_83)(cdr s_76)))" -"(let-values(((s_378)" -"(if(syntax?$1 s_83)" -"(syntax-e$1 s_83)" -" s_83)))" -"(if(pair? s_378)" +"(let-values(((s_85)(cdr s_78)))" +"(let-values(((s_382)" +"(if(syntax?$1 s_85)" +"(syntax-e$1 s_85)" +" s_85)))" +"(if(pair? s_382)" "(let-values(((rhs9_0)" "(let-values(((s_44)" "(car" -" s_378)))" +" s_382)))" " s_44))" "(()" -"(let-values(((s_300)" +"(let-values(((s_304)" "(cdr" -" s_378)))" +" s_382)))" "(let-values(((s_35)" "(if(syntax?$1" -" s_300)" +" s_304)" "(syntax-e$1" -" s_300)" -" s_300)))" +" s_304)" +" s_304)))" "(if(null?" " s_35)" "(values)" @@ -78495,7 +78522,7 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'define-syntaxes" -"(lambda(s_884 ctx_127)" +"(lambda(s_887 ctx_127)" "(let-values((()" "(begin" "(let-values(((obs_166)(expand-context-observer ctx_127)))" @@ -78512,33 +78539,33 @@ static const char *startup_source = "(begin" "(if(eq?(expand-context-context ctx_127) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_884)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_887)))" "(values))))" -"(let-values(((disarmed-s_26)(syntax-disarm$1 s_884)))" +"(let-values(((disarmed-s_26)(syntax-disarm$1 s_887)))" "(let-values(((ok?_93 define-syntaxes15_0 id16_1 rhs17_0)" -"(let-values(((s_421) disarmed-s_26))" -"(let-values(((orig-s_101) s_421))" +"(let-values(((s_426) disarmed-s_26))" +"(let-values(((orig-s_101) s_426))" "(let-values(((define-syntaxes15_1 id16_2 rhs17_1)" -"(let-values(((s_20)(if(syntax?$1 s_421)(syntax-e$1 s_421) s_421)))" +"(let-values(((s_20)(if(syntax?$1 s_426)(syntax-e$1 s_426) s_426)))" "(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_453)(cdr s_20)))" +"(let-values(((s_458)(cdr s_20)))" "(let-values(((s_24)" -"(if(syntax?$1 s_453)" -"(syntax-e$1 s_453)" -" s_453)))" +"(if(syntax?$1 s_458)" +"(syntax-e$1 s_458)" +" s_458)))" "(if(pair? s_24)" "(let-values(((id21_0)" -"(let-values(((s_78)(car s_24)))" -"(let-values(((s_460)" -"(if(syntax?$1 s_78)" -"(syntax-e$1 s_78)" -" s_78)))" +"(let-values(((s_80)(car s_24)))" +"(let-values(((s_465)" +"(if(syntax?$1 s_80)" +"(syntax-e$1 s_80)" +" s_80)))" "(let-values(((flat-s_67)" "(to-syntax-list.1" -" s_460)))" +" s_465)))" "(if(not flat-s_67)" "(let-values()" "(raise-syntax-error$1" @@ -78556,14 +78583,14 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_182)))" -"((letrec-values(((for-loop_340)" +"((letrec-values(((for-loop_341)" "(lambda(id_175" " lst_461)" "(begin" " 'for-loop" "(if(pair?" " lst_461)" -"(let-values(((s_885)" +"(let-values(((s_888)" "(unsafe-car" " lst_461))" "((rest_265)" @@ -78576,23 +78603,23 @@ static const char *startup_source = "(let-values()" "(let-values(((id24_1)" "(let-values()" -"(if(let-values(((or-part_73)" +"(if(let-values(((or-part_74)" "(if(syntax?$1" -" s_885)" +" s_888)" "(symbol?" "(syntax-e$1" -" s_885))" +" s_888))" " #f)))" -"(if or-part_73" -" or-part_73" +"(if or-part_74" +" or-part_74" "(symbol?" -" s_885)))" -" s_885" +" s_888)))" +" s_888" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_101" -" s_885)))))" +" s_888)))))" "(cons" " id24_1" " id_98)))))" @@ -78600,39 +78627,39 @@ static const char *startup_source = " id_99)))))" "(if(not" " #f)" -"(for-loop_340" +"(for-loop_341" " id_176" " rest_265)" " id_176)))" " id_175)))))" -" for-loop_340)" +" for-loop_341)" " null" " lst_182)))))" "(reverse$1 id_174))))))))" "((rhs22_0)" -"(let-values(((s_485)(cdr s_24)))" -"(let-values(((s_468)" -"(if(syntax?$1 s_485)" -"(syntax-e$1 s_485)" -" s_485)))" -"(if(pair? s_468)" +"(let-values(((s_489)(cdr s_24)))" +"(let-values(((s_473)" +"(if(syntax?$1 s_489)" +"(syntax-e$1 s_489)" +" s_489)))" +"(if(pair? s_473)" "(let-values(((rhs23_2)" -"(let-values(((s_167)" +"(let-values(((s_169)" "(car" -" s_468)))" -" s_167))" +" s_473)))" +" s_169))" "(()" "(let-values(((s_45)" "(cdr" -" s_468)))" -"(let-values(((s_469)" +" s_473)))" +"(let-values(((s_474)" "(if(syntax?$1" " s_45)" "(syntax-e$1" " s_45)" " s_45)))" "(if(null?" -" s_469)" +" s_474)" "(values)" "(raise-syntax-error$1" " #f" @@ -78651,37 +78678,37 @@ static const char *startup_source = "(values define-syntaxes18_0 id19_1 rhs20_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_101)))))" "(values #t define-syntaxes15_1 id16_2 rhs17_1))))))" -"(let-values(((ids_51 syms_29)(as-expand-time-top-level-bindings id16_1 s_884 ctx_127)))" +"(let-values(((ids_51 syms_29)(as-expand-time-top-level-bindings id16_1 s_887 ctx_127)))" "(let-values(((exp-rhs_10)" "(let-values(((temp25_7) rhs17_0)((temp26_6)(as-named-context ctx_127 ids_51)))" "(expand-transformer58.1 #f #f #f #f #f #f #f #f #f #f #f #f temp25_7 temp26_6))))" "(if(expand-context-to-parsed? ctx_127)" -"(parsed-define-syntaxes20.1 s_884 ids_51 syms_29 exp-rhs_10)" -"(let-values(((s27_3) s_884)((temp28_7)(list define-syntaxes15_0 ids_51 exp-rhs_10)))" +"(parsed-define-syntaxes20.1 s_887 ids_51 syms_29 exp-rhs_10)" +"(let-values(((s27_3) s_887)((temp28_7)(list define-syntaxes15_0 ids_51 exp-rhs_10)))" "(rebuild5.1 #f #f s27_3 temp28_7)))))))))))))" "(void" "(add-core-form!*" " 'begin-for-syntax" -"(lambda(s_472 ctx_10)" +"(lambda(s_477 ctx_10)" "(let-values((()" "(begin" "(if(eq?(expand-context-context ctx_10) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_472)))" +" (let-values () (raise-syntax-error$1 #f \"not in a definition context\" s_477)))" "(values))))" "(let-values(((ok?_94 begin-for-syntax29_0 form30_0)" -"(let-values(((s_416) s_472))" -"(let-values(((orig-s_102) s_416))" +"(let-values(((s_421) s_477))" +"(let-values(((orig-s_102) s_421))" "(let-values(((begin-for-syntax29_1 form30_1)" -"(let-values(((s_417)(if(syntax?$1 s_416)(syntax-e$1 s_416) s_416)))" -"(if(pair? s_417)" +"(let-values(((s_422)(if(syntax?$1 s_421)(syntax-e$1 s_421) s_421)))" +"(if(pair? s_422)" "(let-values(((begin-for-syntax31_0)" -"(let-values(((s_31)(car s_417))) s_31))" +"(let-values(((s_31)(car s_422))) s_31))" "((form32_0)" -"(let-values(((s_47)(cdr s_417)))" -"(let-values(((s_886)" +"(let-values(((s_47)(cdr s_422)))" +"(let-values(((s_889)" "(if(syntax?$1 s_47)(syntax-e$1 s_47) s_47)))" -"(let-values(((flat-s_68)(to-syntax-list.1 s_886)))" +"(let-values(((flat-s_68)(to-syntax-list.1 s_889)))" "(if(not flat-s_68)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_102))" @@ -78710,12 +78737,12 @@ static const char *startup_source = "(let-values(((temp36_10)(make-top-level-lift trans-ctx_1)))" "(make-lift-context6.1 #f #f temp36_10))))" "(let-values(((capture-ctx_1)" -"(let-values(((v_78) trans-ctx_1))" -"(let-values(((the-struct_120) v_78))" +"(let-values(((v_77) trans-ctx_1))" +"(let-values(((the-struct_120) v_77))" "(if(expand-context/outer? the-struct_120)" "(let-values(((inner37_0)" "(let-values(((the-struct_121)" -"(root-expand-context/outer-inner v_78)))" +"(root-expand-context/outer-inner v_77)))" "(if(expand-context/inner? the-struct_121)" "(let-values(((lift-key38_0)(generate-lift-key))" "((lifts39_0) lift-ctx_7))" @@ -78769,7 +78796,7 @@ static const char *startup_source = "(expand-context/outer-name the-struct_120)))" " (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_120))))))" "(let-values(((all-exp-forms_0)" -"((letrec-values(((loop_87)" +"((letrec-values(((loop_86)" "(lambda(forms_0)" "(begin" " 'loop" @@ -78783,7 +78810,7 @@ static const char *startup_source = "(call-expand-observe" " obs_16" " 'enter-list" -"(datum->syntax$1 #f form30_0 s_472))))" +"(datum->syntax$1 #f form30_0 s_477))))" "(void)))" "(values))))" "(let-values(((exp-forms_0)" @@ -78809,7 +78836,7 @@ static const char *startup_source = "(datum->syntax$1" " #f" " forms_2" -" s_472))))" +" s_477))))" "(void)))" " forms_2)))" "(let-values()" @@ -78885,13 +78912,13 @@ static const char *startup_source = "(reverse$1" "(cdr(syntax-e$1 beg_0)))))))" "(append" -"(loop_87 exprs_1)" +"(loop_86 exprs_1)" " exp-forms_0)))))))))))))" -" loop_87)" +" loop_86)" " form30_0)))" "(if(expand-context-to-parsed? ctx_10)" -"(parsed-begin-for-syntax21.1 s_472 all-exp-forms_0)" -"(let-values(((s45_0) s_472)((temp46_4)(cons begin-for-syntax29_0 all-exp-forms_0)))" +"(parsed-begin-for-syntax21.1 s_477 all-exp-forms_0)" +"(let-values(((s45_0) s_477)((temp46_4)(cons begin-for-syntax29_0 all-exp-forms_0)))" "(rebuild5.1 #f #f s45_0 temp46_4))))))))))))))" "(void" "(add-core-form!*" @@ -78910,19 +78937,19 @@ static const char *startup_source = "(values))))" "(let-values(((disarmed-s_27)(syntax-disarm$1 s_33)))" "(let-values(((ok?_95 #%require47_0 req48_0)" -"(let-values(((s_193) disarmed-s_27))" -"(let-values(((orig-s_4) s_193))" +"(let-values(((s_195) disarmed-s_27))" +"(let-values(((orig-s_4) s_195))" "(let-values(((#%require47_1 req48_1)" -"(let-values(((s_887)(if(syntax?$1 s_193)(syntax-e$1 s_193) s_193)))" -"(if(pair? s_887)" -"(let-values(((#%require49_0)(let-values(((s_490)(car s_887))) s_490))" +"(let-values(((s_60)(if(syntax?$1 s_195)(syntax-e$1 s_195) s_195)))" +"(if(pair? s_60)" +"(let-values(((#%require49_0)(let-values(((s_495)(car s_60))) s_495))" "((req50_0)" -"(let-values(((s_888)(cdr s_887)))" -"(let-values(((s_195)" -"(if(syntax?$1 s_888)" -"(syntax-e$1 s_888)" -" s_888)))" -"(let-values(((flat-s_69)(to-syntax-list.1 s_195)))" +"(let-values(((s_890)(cdr s_60)))" +"(let-values(((s_197)" +"(if(syntax?$1 s_890)" +"(syntax-e$1 s_890)" +" s_890)))" +"(let-values(((flat-s_69)(to-syntax-list.1 s_197)))" "(if(not flat-s_69)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_4))" @@ -78939,7 +78966,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_462)))" -"((letrec-values(((for-loop_341)" +"((letrec-values(((for-loop_342)" "(lambda(fold-var_297 lst_153)" "(begin" " 'for-loop" @@ -78958,10 +78985,10 @@ static const char *startup_source = " fold-var_300))))" "(values fold-var_405)))))" "(if(not #f)" -"(for-loop_341 fold-var_404 rest_266)" +"(for-loop_342 fold-var_404 rest_266)" " fold-var_404)))" " fold-var_297)))))" -" for-loop_341)" +" for-loop_342)" " null" " lst_462)))))" "((s52_0) s_33)" @@ -79000,11 +79027,11 @@ static const char *startup_source = "(void" "(add-core-form!*" " '#%provide" -"(lambda(s_64 ctx_129)" +"(lambda(s_318 ctx_129)" "(begin" "(let-values(((obs_171)(expand-context-observer ctx_129)))" "(if obs_171(let-values()(let-values()(call-expand-observe obs_171 'prim-provide)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_64)))))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_318)))))" "(define-values(ns)(make-namespace))" "(void" "(begin" @@ -79035,65 +79062,65 @@ static const char *startup_source = "(let-values(((ns26_3) ns)" "((eval27_0) 1/eval)" "((temp28_8)" -"(let-values(((ht_170) main-primitives))" +"(let-values(((ht_169) main-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_170)))" +"(let-values()(check-in-hash-keys ht_169)))" "((letrec-values(((for-loop_20)" -"(lambda(table_232 i_3)" +"(lambda(table_233 i_3)" "(begin" " 'for-loop" "(if i_3" -"(let-values(((name_81)(hash-iterate-key ht_170 i_3)))" -"(let-values(((table_222)" -"(let-values(((table_233) table_232))" -"(let-values(((table_190)" +"(let-values(((name_81)(hash-iterate-key ht_169 i_3)))" +"(let-values(((table_221)" +"(let-values(((table_234) table_233))" +"(let-values(((table_189)" "(let-values()" "(let-values(((key_97 val_89)" "(let-values()" "(values" "(let-values() name_81)" " #t))))" -"(hash-set table_233 key_97 val_89)))))" -"(values table_190)))))" +"(hash-set table_234 key_97 val_89)))))" +"(values table_189)))))" "(if(not #f)" -"(for-loop_20 table_222(hash-iterate-next ht_170 i_3))" -" table_222)))" -" table_232)))))" +"(for-loop_20 table_221(hash-iterate-next ht_169 i_3))" +" table_221)))" +" table_233)))))" " for-loop_20)" " '#hash()" -"(hash-iterate-first ht_170)))))" +"(hash-iterate-first ht_169)))))" "((temp29_5)" -"(let-values(((ht_171) read-primitives))" +"(let-values(((ht_170) read-primitives))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-in-hash-keys ht_171)))" -"((letrec-values(((for-loop_323)" -"(lambda(table_193 i_187)" +"(let-values()(check-in-hash-keys ht_170)))" +"((letrec-values(((for-loop_324)" +"(lambda(table_192 i_187)" "(begin" " 'for-loop" "(if i_187" -"(let-values(((name_82)(hash-iterate-key ht_171 i_187)))" -"(let-values(((table_119)" -"(let-values(((table_112) table_193))" -"(let-values(((table_113)" +"(let-values(((name_82)(hash-iterate-key ht_170 i_187)))" +"(let-values(((table_118)" +"(let-values(((table_111) table_192))" +"(let-values(((table_112)" "(let-values()" "(let-values(((key_98 val_90)" "(let-values()" "(values" "(let-values() name_82)" " #t))))" -"(hash-set table_112 key_98 val_90)))))" -"(values table_113)))))" +"(hash-set table_111 key_98 val_90)))))" +"(values table_112)))))" "(if(not #f)" -"(for-loop_323 table_119(hash-iterate-next ht_171 i_187))" -" table_119)))" -" table_193)))))" -" for-loop_323)" +"(for-loop_324 table_118(hash-iterate-next ht_170 i_187))" +" table_118)))" +" table_192)))))" +" for-loop_324)" " '#hash()" -"(hash-iterate-first ht_171))))))" +"(hash-iterate-first ht_170))))))" "(declare-kernel-module!8.1 eval27_0 temp28_8 temp29_5 ns26_3))" "(begin" "(let-values(((lst_17) runtime-instances))" @@ -79117,18 +79144,18 @@ static const char *startup_source = "(let-values(((name30_0) name_83)" "((ns31_5) ns)" "((temp32_5)" -"(let-values(((or-part_164)" +"(let-values(((or-part_163)" "(eq?" " name_83" " '#%foreign)))" -"(if or-part_164" -" or-part_164" -"(let-values(((or-part_300)" +"(if or-part_163" +" or-part_163" +"(let-values(((or-part_297)" "(eq?" " name_83" " '#%futures)))" -"(if or-part_300" -" or-part_300" +"(if or-part_297" +" or-part_297" "(eq?" " name_83" " '#%unsafe)))))))" @@ -79161,5 +79188,5 @@ static const char *startup_source = "(declare-reexporting-module!50.1 ns35_1 temp36_11 #t temp33_4 temp34_6))" "(1/current-namespace ns)" "(1/dynamic-require ''#%kernel 0)))" -"(define-values(datum->kernel-syntax)(lambda(s_889)(begin(1/datum->syntax core-stx s_889)))))" +"(define-values(datum->kernel-syntax)(lambda(s_891)(begin(1/datum->syntax core-stx s_891)))))" ;