From 19df146ccf3901bc1a0d3d7645c6da932012da8f Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Wed, 28 Feb 2018 01:03:37 +0100 Subject: [PATCH] expand and expand-to-top-form unset observer parameter This change means that if a macro transformer calls expand (not local-expand, but top-level expand), the macro debugger won't receive the inner expand's events. Previously, the macro debugger tried to parse and then discard the inner expand, but that was brittle and complicated the grammar. --- .../tests/racket/expobs-regression.rktd | 11550 ++++++++-------- racket/src/expander/eval/main.rkt | 48 +- racket/src/expander/expand/context.rkt | 10 +- racket/src/expander/expand/log.rkt | 8 +- racket/src/racket/src/startup.inc | 10164 +++++++------- 5 files changed, 11284 insertions(+), 10496 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/expobs-regression.rktd b/pkgs/racket-test-core/tests/racket/expobs-regression.rktd index 14a442e1a2..6adf1f2b0e 100644 --- a/pkgs/racket-test-core/tests/racket/expobs-regression.rktd +++ b/pkgs/racket-test-core/tests/racket/expobs-regression.rktd @@ -1,20 +1,23 @@ #hash((__x . - ((141 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1))) - (138 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . s1))) - (6 . #s(stx-boundary (s0 . s1))) - (116 . #f) - (7 . #s(stx-boundary (s0 . s1))) - (2 . #s(stx-boundary (s0 . s1))) - (7 . #s(stx-boundary (s0 (s1 . s2)))) - (2 . #s(stx-boundary (s0 (s1 . s2)))))) + ((start-top . #f) + (visit . #s(stx-boundary (s0 s1))) + (enter-check . #s(stx-boundary (s0 s1))) + (exit-check . #s(stx-boundary (s0 s1))) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-#%expression . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . s1))) + (enter-prim . #s(stx-boundary (s0 . s1))) + (prim-#%top . #f) + (exit-prim . #s(stx-boundary (s0 . s1))) + (return . #s(stx-boundary (s0 . s1))) + (exit-prim . #s(stx-boundary (s0 (s1 . s2)))) + (return . #s(stx-boundary (s0 (s1 . s2)))))) ((#%stratified-body (define (first z) z) (define (ok x) (second x)) @@ -22,8 +25,8 @@ (ok (first 5)) (define more 'oops)) . - ((141 . #f) - (0 + ((start-top . #f) + (visit . #s(stx-boundary (s0 @@ -33,8 +36,7 @@ (s2 (s7 s8) 8) (s5 (s3 5)) (s2 s9 (s10 s11)))))) - (1 . #s(stx-boundary s0)) - (6 + (enter-check . #s(stx-boundary (s0 @@ -44,8 +46,39 @@ (s2 (s7 s8) 8) (s5 (s3 5)) (s2 s9 (s10 s11)))))) - (138 . #f) - (0 + (exit-check + . + #s(stx-boundary + (s0 + (s1 + (s2 (s3 s4) s4) + (s2 (s5 s6) (s7 s6)) + (s2 (s7 s8) 8) + (s5 (s3 5)) + (s2 s9 (s10 s11)))))) + (visit + . + #s(stx-boundary + (s0 + (s1 + (s2 (s3 s4) s4) + (s2 (s5 s6) (s7 s6)) + (s2 (s7 s8) 8) + (s5 (s3 5)) + (s2 s9 (s10 s11)))))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary + (s0 + (s1 + (s2 (s3 s4) s4) + (s2 (s5 s6) (s7 s6)) + (s2 (s7 s8) 8) + (s5 (s3 5)) + (s2 s9 (s10 s11)))))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 @@ -54,8 +87,8 @@ (s1 (s6 s7) 8) (s4 (s2 5)) (s1 s8 (s9 s10))))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 @@ -64,8 +97,8 @@ (s1 (s6 s7) 8) (s4 (s2 5)) (s1 s8 (s9 s10))))) - (155 . #f) - (10 + (prim-#%stratified . #f) + (enter-block . #s(stx-boundary ((s0 (s1 s2) s2) @@ -73,7 +106,7 @@ (s0 (s5 s6) 8) (s3 (s1 5)) (s0 s7 (s8 s9))))) - (24 + (block-renames #s(stx-boundary ((s0 (s1 s2) s2) (s0 (s3 s4) (s5 s4)) @@ -87,309 +120,335 @@ (s0 (s5 s6) 8) (s3 (s1 5)) (s0 s7 (s8 s9))))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) s2))) - (0 . #s(stx-boundary (s0 (s1 s2) s2))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) s2))) - (21 . #s(stx-boundary (s0 (s1 s2) s2))) - (22 + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) s2))) + (visit . #s(stx-boundary (s0 (s1 s2) s2))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) s2))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) s2))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 (s3) s3))) . #s(stx-boundary (s0 (s1 s3) s3))) - (9 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (2 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (0 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (22 + (exit-macro . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (return . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (visit . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) s3))) . #s(stx-boundary (s4 s1 (s2 (s3) s3)))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (104 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) s2)))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (21 . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (22 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (prim-define-values . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) s2)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3)))) . #s(stx-boundary (s0 (s1 s3) (s4 s3)))) - (9 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (2 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (0 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (22 + (exit-macro . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (return . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (visit . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3)))) . #s(stx-boundary (s5 s1 (s2 (s3) (s4 s3))))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (104 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) (s3 s2))))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) 8))) - (0 . #s(stx-boundary (s0 (s1 s2) 8))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) 8))) - (21 . #s(stx-boundary (s0 (s1 s2) 8))) - (22 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (prim-define-values . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) (s3 s2))))) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) 8))) + (visit . #s(stx-boundary (s0 (s1 s2) 8))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) 8))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) 8))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 (s3) 8))) . #s(stx-boundary (s0 (s1 s3) 8))) - (9 . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) - (2 . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) - (0 . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) - (22 + (exit-macro . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) + (return . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) + (visit . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) 8))) . #s(stx-boundary (s4 s1 (s2 (s3) 8)))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (104 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) 8)))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 5)))) - (127 . #s(stx-boundary (s0 (s1 5)))) - (14 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (prim-define-values . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) 8)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 5)))) + (exit-check . #s(stx-boundary (s0 (s1 5)))) + (block->letrec #s(stx-boundary (s0 (((s1) (s2 (s3) s3)) ((s4) (s2 (s5) (s6 s5))) ((s6) (s2 (s7) 8))) (s8 (s4 (s1 5)) (s9 s10 (s11 s12)))))) - (0 + (visit . #s(stx-boundary (s0 (((s1) (s2 (s3) s3)) ((s4) (s2 (s5) (s6 s5))) ((s6) (s2 (s7) 8))) (s8 (s4 (s1 5)) (s9 s10 (s11 s12)))))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (((s1) (s2 (s3) s3)) ((s4) (s2 (s5) (s6 s5))) ((s6) (s2 (s7) 8))) (s8 (s4 (s1 5)) (s9 s10 (s11 s12)))))) - (113 . #f) - (16 + (prim-letrec-values . #f) + (let-renames (#s(stx-boundary ((s0) (s1 (s2) s2))) #s(stx-boundary ((s3) (s1 (s4) (s5 s4)))) #s(stx-boundary ((s5) (s1 (s6) 8)))) . #s(stx-boundary ((s7 (s3 (s0 5)) (s8 s9 (s10 s11)))))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1) s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) s1))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary (s0))) - (10 . #s(stx-boundary (s0))) - (24 #s(stx-boundary (s0)) . #s(stx-boundary (s0))) - (3 . #f) - (126 . #s(stx-boundary s0)) - (127 . #s(stx-boundary s0)) - (12 . #s(stx-boundary (s0))) - (4 . #s(stx-boundary (s0))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0))) - (7 . #s(stx-boundary (s0 (s1) s1))) - (2 . #s(stx-boundary (s0 (s1) s1))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 s1)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 s1)))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary ((s1 s0)))) - (10 . #s(stx-boundary ((s0 s1)))) - (24 #s(stx-boundary ((s0 s1))) . #s(stx-boundary ((s0 s1)))) - (3 . #f) - (126 . #s(stx-boundary (s0 s1))) - (127 . #s(stx-boundary (s0 s1))) - (12 . #s(stx-boundary ((s0 s1)))) - (4 . #s(stx-boundary ((s0 s1)))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 s2))) - (8 . #s(stx-boundary (s0 s1 s2))) - (21 . #s(stx-boundary (s0 s1 s2))) - (22 #s(stx-boundary (s0 s1 s2)) . #s(stx-boundary (s0 s1 s2))) - (9 . #s(stx-boundary (s0 s1 s2))) - (0 . #s(stx-boundary (s0 s1 s2))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 s2))) - (109 . #f) - (4 . #s(stx-boundary (s0 s1))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0 s1))) - (7 . #s(stx-boundary (s0 s1 s2))) - (2 . #s(stx-boundary (s0 s1 s2))) - (5 . #s(stx-boundary ((s0 s1 s2)))) - (7 . #s(stx-boundary (s0 (s1) (s2 s3 s1)))) - (2 . #s(stx-boundary (s0 (s1) (s2 s3 s1)))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1) 8))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) 8))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary (8))) - (10 . #s(stx-boundary (8))) - (24 #s(stx-boundary (8)) . #s(stx-boundary (8))) - (3 . #f) - (126 . #s(stx-boundary 8)) - (127 . #s(stx-boundary 8)) - (12 . #s(stx-boundary (8))) - (4 . #s(stx-boundary (8))) - (3 . #f) - (0 . #s(stx-boundary 8)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 8))) - (6 . #s(stx-boundary (s0 . 8))) - (115 . #f) - (7 . #s(stx-boundary (s0 8))) - (2 . #s(stx-boundary (s0 8))) - (5 . #s(stx-boundary ((s0 8)))) - (7 . #s(stx-boundary (s0 (s1) (s2 8)))) - (2 . #s(stx-boundary (s0 (s1) (s2 8)))) - (13 . #f) - (4 . #s(stx-boundary ((s0 (s1 (s2 5)) (s3 s4 (s5 s6)))))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1 (s2 5)) (s3 s4 (s5 s6))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 (s2 5)) (s3 s4 (s5 s6))))) - (155 . #f) - (10 . #s(stx-boundary ((s0 (s1 5)) (s2 s3 (s4 s5))))) - (24 + (next . #f) + (visit . #s(stx-boundary (s0 (s1) s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) s1))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary (s0))) + (enter-block . #s(stx-boundary (s0))) + (block-renames #s(stx-boundary (s0)) . #s(stx-boundary (s0))) + (next . #f) + (enter-check . #s(stx-boundary s0)) + (exit-check . #s(stx-boundary s0)) + (block->list . #s(stx-boundary (s0))) + (enter-list . #s(stx-boundary (s0))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0))) + (exit-prim . #s(stx-boundary (s0 (s1) s1))) + (return . #s(stx-boundary (s0 (s1) s1))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 s1)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 s1)))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary ((s1 s0)))) + (enter-block . #s(stx-boundary ((s0 s1)))) + (block-renames #s(stx-boundary ((s0 s1))) . #s(stx-boundary ((s0 s1)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 s1))) + (exit-check . #s(stx-boundary (s0 s1))) + (block->list . #s(stx-boundary ((s0 s1)))) + (enter-list . #s(stx-boundary ((s0 s1)))) + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 s2))) + (enter-macro . #s(stx-boundary (s0 s1 s2))) + (macro-pre-x . #s(stx-boundary (s0 s1 s2))) + (macro-post-x + #s(stx-boundary (s0 s1 s2)) + . + #s(stx-boundary (s0 s1 s2))) + (exit-macro . #s(stx-boundary (s0 s1 s2))) + (visit . #s(stx-boundary (s0 s1 s2))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 s2))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0 s1))) + (exit-prim . #s(stx-boundary (s0 s1 s2))) + (return . #s(stx-boundary (s0 s1 s2))) + (exit-list . #s(stx-boundary ((s0 s1 s2)))) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 s3 s1)))) + (return . #s(stx-boundary (s0 (s1) (s2 s3 s1)))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1) 8))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) 8))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary (8))) + (enter-block . #s(stx-boundary (8))) + (block-renames #s(stx-boundary (8)) . #s(stx-boundary (8))) + (next . #f) + (enter-check . #s(stx-boundary 8)) + (exit-check . #s(stx-boundary 8)) + (block->list . #s(stx-boundary (8))) + (enter-list . #s(stx-boundary (8))) + (next . #f) + (visit . #s(stx-boundary 8)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 8))) + (enter-prim . #s(stx-boundary (s0 . 8))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 8))) + (return . #s(stx-boundary (s0 8))) + (exit-list . #s(stx-boundary ((s0 8)))) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 8)))) + (return . #s(stx-boundary (s0 (s1) (s2 8)))) + (next-group . #f) + (enter-list . #s(stx-boundary ((s0 (s1 (s2 5)) (s3 s4 (s5 s6)))))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 (s2 5)) (s3 s4 (s5 s6))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 (s2 5)) (s3 s4 (s5 s6))))) + (prim-#%stratified . #f) + (enter-block . #s(stx-boundary ((s0 (s1 5)) (s2 s3 (s4 s5))))) + (block-renames #s(stx-boundary ((s0 (s1 5)) (s2 s3 (s4 s5)))) . #s(stx-boundary ((s0 (s1 5)) (s2 s3 (s4 s5))))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 5)))) - (127 . #s(stx-boundary (s0 (s1 5)))) - (12 . #s(stx-boundary ((s0 (s1 5)) (s2 s3 (s4 s5))))) - (4 . #s(stx-boundary ((s0 (s1 5)) (s2 s3 (s4 s5))))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1 5)))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 (s2 5)))) - (8 . #s(stx-boundary (s0 s1 (s2 5)))) - (21 . #s(stx-boundary (s0 s1 (s2 5)))) - (22 #s(stx-boundary (s0 s1 (s2 5))) . #s(stx-boundary (s0 s1 (s2 5)))) - (9 . #s(stx-boundary (s0 s1 (s2 5)))) - (0 . #s(stx-boundary (s0 s1 (s2 5)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 5)))) - (109 . #f) - (4 . #s(stx-boundary (s0 (s1 5)))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary (s0 5))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 5))) - (8 . #s(stx-boundary (s0 s1 5))) - (21 . #s(stx-boundary (s0 s1 5))) - (22 #s(stx-boundary (s0 s1 5)) . #s(stx-boundary (s0 s1 5))) - (9 . #s(stx-boundary (s0 s1 5))) - (0 . #s(stx-boundary (s0 s1 5))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 5))) - (109 . #f) - (4 . #s(stx-boundary (s0 5))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary 5)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 5))) - (6 . #s(stx-boundary (s0 . 5))) - (115 . #f) - (7 . #s(stx-boundary (s0 5))) - (2 . #s(stx-boundary (s0 5))) - (5 . #s(stx-boundary (s0 (s1 5)))) - (7 . #s(stx-boundary (s0 s1 (s2 5)))) - (2 . #s(stx-boundary (s0 s1 (s2 5)))) - (5 . #s(stx-boundary (s0 (s1 s2 (s3 5))))) - (7 . #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) - (2 . #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 s3)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 s3)))) - (21 . #s(stx-boundary (s0 s1 (s2 s3)))))) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 5)))) + (exit-check . #s(stx-boundary (s0 (s1 5)))) + (block->list . #s(stx-boundary ((s0 (s1 5)) (s2 s3 (s4 s5))))) + (enter-list . #s(stx-boundary ((s0 (s1 5)) (s2 s3 (s4 s5))))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 5)))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 (s2 5)))) + (enter-macro . #s(stx-boundary (s0 s1 (s2 5)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 5)))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 5))) + . + #s(stx-boundary (s0 s1 (s2 5)))) + (exit-macro . #s(stx-boundary (s0 s1 (s2 5)))) + (visit . #s(stx-boundary (s0 s1 (s2 5)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 5)))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 (s1 5)))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary (s0 5))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 5))) + (enter-macro . #s(stx-boundary (s0 s1 5))) + (macro-pre-x . #s(stx-boundary (s0 s1 5))) + (macro-post-x #s(stx-boundary (s0 s1 5)) . #s(stx-boundary (s0 s1 5))) + (exit-macro . #s(stx-boundary (s0 s1 5))) + (visit . #s(stx-boundary (s0 s1 5))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 5))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 5))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary 5)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 5))) + (enter-prim . #s(stx-boundary (s0 . 5))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 5))) + (return . #s(stx-boundary (s0 5))) + (exit-list . #s(stx-boundary (s0 (s1 5)))) + (exit-prim . #s(stx-boundary (s0 s1 (s2 5)))) + (return . #s(stx-boundary (s0 s1 (s2 5)))) + (exit-list . #s(stx-boundary (s0 (s1 s2 (s3 5))))) + (exit-prim . #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) + (return . #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 s3)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 s3)))))) ((quote-syntax (stx-quoted)) . - ((141 . #f) - (0 . #s(stx-boundary (s0 (s1 (s2))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 (s2))))) - (138 . #f) - (0 . #s(stx-boundary (s0 (s1)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1)))) - (118 . #f) - (7 . #s(stx-boundary (s0 (s1)))) - (2 . #s(stx-boundary (s0 (s1)))) - (7 . #s(stx-boundary (s0 (s1 (s2))))) - (2 . #s(stx-boundary (s0 (s1 (s2))))))) + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 (s2))))) + (enter-check . #s(stx-boundary (s0 (s1 (s2))))) + (exit-check . #s(stx-boundary (s0 (s1 (s2))))) + (visit . #s(stx-boundary (s0 (s1 (s2))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 (s2))))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 (s1)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1)))) + (prim-quote-syntax . #f) + (exit-prim . #s(stx-boundary (s0 (s1)))) + (return . #s(stx-boundary (s0 (s1)))) + (exit-prim . #s(stx-boundary (s0 (s1 (s2))))) + (return . #s(stx-boundary (s0 (s1 (s2))))))) ((module m racket/base (define-syntax (ok stx) (syntax-local-lift-require 'racket/list #'foldl)) (ok)) . - ((141 . #f) - (0 + ((start-top . #f) + (visit . #s(stx-boundary (s0 s1 s2 (s3 (s4 s5) (s6 (s7 s8) (s9 s10))) (s4)))) - (1 . #s(stx-boundary s0)) - (6 + (enter-check . #s(stx-boundary (s0 s1 s2 (s3 (s4 s5) (s6 (s7 s8) (s9 s10))) (s4)))) - (101 . #f) - (157 . #f) - (142 . #s(stx-boundary (s0 (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) - (148 . #s(stx-boundary (s0 (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) - (126 . #s(stx-boundary (s0 (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) - (0 . #s(stx-boundary (s0 (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) - (21 . #s(stx-boundary (s0 (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) - (22 + (exit-check + . + #s(stx-boundary (s0 s1 s2 (s3 (s4 s5) (s6 (s7 s8) (s9 s10))) (s4)))) + (visit + . + #s(stx-boundary (s0 s1 s2 (s3 (s4 s5) (s6 (s7 s8) (s9 s10))) (s4)))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary (s0 s1 s2 (s3 (s4 s5) (s6 (s7 s8) (s9 s10))) (s4)))) + (prim-module . #f) + (prepare-env . #f) + (tag . #s(stx-boundary (s0 (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) + (rename-one + . + #s(stx-boundary (s0 (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) + (enter-check + . + #s(stx-boundary (s0 (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) + (visit . #s(stx-boundary (s0 (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) + (resolve . #s(stx-boundary s0)) + (enter-macro + . + #s(stx-boundary (s0 (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) + (macro-pre-x + . + #s(stx-boundary (s0 (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) + (macro-post-x #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) @@ -397,43 +456,43 @@ (s9))) . #s(stx-boundary (s15 (s8 (s9 s10) (s11 (s3 s12) (s13 s14))) (s9)))) - (9 + (exit-macro . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 (s9 s10) (s11 (s3 s12) (s13 s14))) (s9)))) - (2 + (return . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 (s9 s10) (s11 (s3 s12) (s13 s14))) (s9)))) - (0 + (visit . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 (s9 s10) (s11 (s3 s12) (s13 s14))) (s9)))) - (1 . #s(stx-boundary s0)) - (8 + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 (s9 s10) (s11 (s3 s12) (s13 s14))) (s9)))) - (21 + (macro-pre-x . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 (s9 s10) (s11 (s3 s12) (s13 s14))) (s9)))) - (22 + (macro-post-x #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) @@ -445,281 +504,327 @@ (s3 s4 (s5 s6) (s7 s8) (s9 #f)) (s10 (s11 s12) (s13 (s5 s14) (s15 s16))) (s11)))) - (9 + (exit-macro . #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s10 (s11 s12) (s13 (s5 s14) (s15 s16)))) (s1 s2 (s11))))) - (2 + (return . #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s10 (s11 s12) (s13 (s5 s14) (s15 s16)))) (s1 s2 (s11))))) - (127 + (exit-check . #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s10 (s11 s12) (s13 (s5 s14) (s15 s16)))) (s1 s2 (s11))))) - (0 + (visit . #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s10 (s11 s12) (s13 (s5 s14) (s15 s16)))) (s1 s2 (s11))))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s10 (s11 s12) (s13 (s5 s14) (s15 s16)))) (s1 s2 (s11))))) - (102 . #f) - (148 + (prim-module-begin . #f) + (rename-one . #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s10 (s11 s12) (s13 (s5 s14) (s15 s16)))) (s1 s2 (s11))))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) - (21 . #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) - (130 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (132 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (141 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (100 . #f) - (7 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (2 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (133 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (131 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (22 + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) + (resolve . #s(stx-boundary s0)) + (enter-macro + . + #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) + (macro-pre-x + . + #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) + (enter-local . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (local-pre . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (start . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (return . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (local-post . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (exit-local . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (macro-post-x #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)))) . #s(stx-boundary (s8 s9 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (9 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (0 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (100 . #f) - (7 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (2 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (148 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (11 + (exit-macro . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (visit . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (return . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (rename-one . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (splice #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f))) #s(stx-boundary (s7 s8 (s9 (s10 s11) (s12 (s2 s13) (s14 s15))))) #s(stx-boundary (s7 s8 (s10)))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (100 . #f) - (7 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (2 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (148 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (6 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (158 . #f) - (6 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (101 . #f) - (157 . #f) - (142 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (148 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (127 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (102 . #f) - (148 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1))) - (100 . #f) - (7 . #s(stx-boundary (s0 s1))) - (2 . #s(stx-boundary (s0 s1))) - (148 . #s(stx-boundary (s0 s1))) - (6 . #s(stx-boundary (s0 s1))) - (119 . #f) - (7 . #s(stx-boundary (s0 s1))) - (3 . #f) - (0 . #s(stx-boundary (s0 #f))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 #f))) - (100 . #f) - (7 . #s(stx-boundary (s0 #f))) - (2 . #s(stx-boundary (s0 #f))) - (148 . #s(stx-boundary (s0 #f))) - (135) - (13 . #f) - (3 . #f) - (3 . #f) - (0 . #s(stx-boundary (s0 #f))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 #f))) - (6 . #s(stx-boundary (s0 s1 #f))) - (109 . #f) - (4 . #s(stx-boundary (s0 #f))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary #f)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . #f))) - (6 . #s(stx-boundary (s0 . #f))) - (115 . #f) - (7 . #s(stx-boundary (s0 #f))) - (2 . #s(stx-boundary (s0 #f))) - (5 . #s(stx-boundary (s0 (s1 #f)))) - (7 . #s(stx-boundary (s0 s1 (s2 #f)))) - (2 . #s(stx-boundary (s0 s1 (s2 #f)))) - (135) - (13 . #f) - (3 . #f) - (7 . #s(stx-boundary (s0 (s1 s2) (s3 s4 (s5 #f))))) - (2 . #s(stx-boundary (s0 (s1 s2) (s3 s4 (s5 #f))))) - (148 . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) - (7 . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) - (7 . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 (s3 s4) (s5 (s6 s7) (s8 s9)))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 (s3 s4) (s5 (s6 s7) (s8 s9)))))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3 s4) (s5 (s6 s7) (s8 s9)))))) - (130 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7))))) - (132 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7))))) - (141 . #f) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7))))) - (21 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7))))) - (22 + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (return . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (rename-one . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-submodule . #f) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-module . #f) + (prepare-env . #f) + (tag . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (rename-one . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (enter-check . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (exit-check . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (prim-module-begin . #f) + (rename-one . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 s1))) + (return . #s(stx-boundary (s0 s1))) + (rename-one . #s(stx-boundary (s0 s1))) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-require . #f) + (exit-prim . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary (s0 #f))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 #f))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 #f))) + (return . #s(stx-boundary (s0 #f))) + (rename-one . #s(stx-boundary (s0 #f))) + (module-lift-end-loop) + (next-group . #f) + (next . #f) + (next . #f) + (visit . #s(stx-boundary (s0 #f))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 #f))) + (enter-prim . #s(stx-boundary (s0 s1 #f))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 #f))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary #f)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . #f))) + (enter-prim . #s(stx-boundary (s0 . #f))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 #f))) + (return . #s(stx-boundary (s0 #f))) + (exit-list . #s(stx-boundary (s0 (s1 #f)))) + (exit-prim . #s(stx-boundary (s0 s1 (s2 #f)))) + (return . #s(stx-boundary (s0 s1 (s2 #f)))) + (module-lift-end-loop) + (next-group . #f) + (next . #f) + (exit-prim . #s(stx-boundary (s0 (s1 s2) (s3 s4 (s5 #f))))) + (return . #s(stx-boundary (s0 (s1 s2) (s3 s4 (s5 #f))))) + (rename-one + . + #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) + (exit-prim + . + #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) + (exit-prim + . + #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 (s3 s4) (s5 (s6 s7) (s8 s9)))))) + (resolve . #s(stx-boundary s0)) + (enter-macro + . + #s(stx-boundary (s0 s1 (s2 (s3 s4) (s5 (s6 s7) (s8 s9)))))) + (macro-pre-x + . + #s(stx-boundary (s0 s1 (s2 (s3 s4) (s5 (s6 s7) (s8 s9)))))) + (enter-local . #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7))))) + (local-pre . #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7))))) + (start . #f) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7))))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7))))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7))))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8))))) . #s(stx-boundary (s9 (s1 s3) (s4 (s5 s6) (s7 s8))))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) - (0 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) - (100 . #f) - (7 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) - (133 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) - (131 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) - (22 + (exit-macro + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) + (local-post + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) + (exit-local + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) + (macro-post-x #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 (s6 s7) (s8 s9)))))) . #s(stx-boundary (s10 s11 (s12 (s2 s4) (s5 (s6 s7) (s8 s9)))))) - (9 . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 (s6 s7) (s8 s9))))))) - (0 . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 (s6 s7) (s8 s9))))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 (s6 s7) (s8 s9))))))) - (100 . #f) - (7 . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 (s6 s7) (s8 s9))))))) - (2 . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 (s6 s7) (s8 s9))))))) - (148 . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 (s6 s7) (s8 s9))))))) - (11 + (exit-macro + . + #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 (s6 s7) (s8 s9))))))) + (visit + . + #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 (s6 s7) (s8 s9))))))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 (s6 s7) (s8 s9))))))) + (prim-stop . #f) + (exit-prim + . + #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 (s6 s7) (s8 s9))))))) + (return + . + #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 (s6 s7) (s8 s9))))))) + (rename-one + . + #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 (s6 s7) (s8 s9))))))) + (splice #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8))))) #s(stx-boundary (s9 s10 (s1)))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) - (100 . #f) - (7 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) - (148 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) - (6 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) - (103 . #f) - (157 . #f) - (20 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) - (21 . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) - (22 + (next . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) + (rename-one + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) + (enter-prim + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) + (prim-define-syntaxes . #f) + (prepare-env . #f) + (phase-up . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) + (macro-pre-x . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6)))) . #s(stx-boundary (s7 (s1) (s2 (s3 s4) (s5 s6))))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) - (0 . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary ((s1 (s2 s3) (s4 s5))))) - (10 . #s(stx-boundary ((s0 (s1 s2) (s3 s4))))) - (24 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) + (prim-lambda . #f) + (lambda-renames + #s(stx-boundary (s0)) + . + #s(stx-boundary ((s1 (s2 s3) (s4 s5))))) + (enter-block . #s(stx-boundary ((s0 (s1 s2) (s3 s4))))) + (block-renames #s(stx-boundary ((s0 (s1 s2) (s3 s4)))) . #s(stx-boundary ((s0 (s1 s2) (s3 s4))))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 s4)))) - (127 . #s(stx-boundary (s0 (s1 s2) (s3 s4)))) - (12 . #s(stx-boundary ((s0 (s1 s2) (s3 s4))))) - (4 . #s(stx-boundary ((s0 (s1 s2) (s3 s4))))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 s4)))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) (s3 s4)))) + (exit-check . #s(stx-boundary (s0 (s1 s2) (s3 s4)))) + (block->list . #s(stx-boundary ((s0 (s1 s2) (s3 s4))))) + (enter-list . #s(stx-boundary ((s0 (s1 s2) (s3 s4))))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 s4)))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)))) ((module m racket/base (define (proc x) x) (provide proc)) . - ((141 . #f) - (0 . #s(stx-boundary (s0 s1 s2 (s3 (s4 s5) s5) (s6 s4)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 s2 (s3 (s4 s5) s5) (s6 s4)))) - (101 . #f) - (157 . #f) - (142 . #s(stx-boundary (s0 (s1 (s2 s3) s3) (s4 s2)))) - (148 . #s(stx-boundary (s0 (s1 (s2 s3) s3) (s4 s2)))) - (126 . #s(stx-boundary (s0 (s1 (s2 s3) s3) (s4 s2)))) - (0 . #s(stx-boundary (s0 (s1 (s2 s3) s3) (s4 s2)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 (s2 s3) s3) (s4 s2)))) - (21 . #s(stx-boundary (s0 (s1 (s2 s3) s3) (s4 s2)))) - (22 + ((start-top . #f) + (visit . #s(stx-boundary (s0 s1 s2 (s3 (s4 s5) s5) (s6 s4)))) + (enter-check . #s(stx-boundary (s0 s1 s2 (s3 (s4 s5) s5) (s6 s4)))) + (exit-check . #s(stx-boundary (s0 s1 s2 (s3 (s4 s5) s5) (s6 s4)))) + (visit . #s(stx-boundary (s0 s1 s2 (s3 (s4 s5) s5) (s6 s4)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 s2 (s3 (s4 s5) s5) (s6 s4)))) + (prim-module . #f) + (prepare-env . #f) + (tag . #s(stx-boundary (s0 (s1 (s2 s3) s3) (s4 s2)))) + (rename-one . #s(stx-boundary (s0 (s1 (s2 s3) s3) (s4 s2)))) + (enter-check . #s(stx-boundary (s0 (s1 (s2 s3) s3) (s4 s2)))) + (visit . #s(stx-boundary (s0 (s1 (s2 s3) s3) (s4 s2)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 (s2 s3) s3) (s4 s2)))) + (macro-pre-x . #s(stx-boundary (s0 (s1 (s2 s3) s3) (s4 s2)))) + (macro-post-x #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 (s9 s10) s10) (s11 s9))) . #s(stx-boundary (s12 (s8 (s9 s10) s10) (s11 s9)))) - (9 + (exit-macro . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 (s9 s10) s10) (s11 s9)))) - (2 + (return . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 (s9 s10) s10) (s11 s9)))) - (0 + (visit . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 (s9 s10) s10) (s11 s9)))) - (1 . #s(stx-boundary s0)) - (8 + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 (s9 s10) s10) (s11 s9)))) - (21 + (macro-pre-x . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 (s9 s10) s10) (s11 s9)))) - (22 + (macro-post-x #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) @@ -731,326 +836,339 @@ (s3 s4 (s5 s6) (s7 s8) (s9 #f)) (s10 (s11 s12) s12) (s13 s11)))) - (9 + (exit-macro . #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s10 (s11 s12) s12)) (s1 s2 (s13 s11))))) - (2 + (return . #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s10 (s11 s12) s12)) (s1 s2 (s13 s11))))) - (127 + (exit-check . #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s10 (s11 s12) s12)) (s1 s2 (s13 s11))))) - (0 + (visit . #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s10 (s11 s12) s12)) (s1 s2 (s13 s11))))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s10 (s11 s12) s12)) (s1 s2 (s13 s11))))) - (102 . #f) - (148 + (prim-module-begin . #f) + (rename-one . #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s10 (s11 s12) s12)) (s1 s2 (s13 s11))))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) - (21 . #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) - (130 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (132 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (141 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (100 . #f) - (7 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (2 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (133 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (131 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (22 + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) + (resolve . #s(stx-boundary s0)) + (enter-macro + . + #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) + (macro-pre-x + . + #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) + (enter-local . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (local-pre . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (start . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (return . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (local-post . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (exit-local . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (macro-post-x #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)))) . #s(stx-boundary (s8 s9 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (9 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (0 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (100 . #f) - (7 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (2 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (148 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (11 + (exit-macro . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (visit . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (return . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (rename-one . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (splice #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f))) #s(stx-boundary (s7 s8 (s9 (s10 s11) s11))) #s(stx-boundary (s7 s8 (s12 s10)))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (100 . #f) - (7 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (2 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (148 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (6 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (158 . #f) - (6 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (101 . #f) - (157 . #f) - (142 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (148 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (127 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (102 . #f) - (148 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1))) - (100 . #f) - (7 . #s(stx-boundary (s0 s1))) - (2 . #s(stx-boundary (s0 s1))) - (148 . #s(stx-boundary (s0 s1))) - (6 . #s(stx-boundary (s0 s1))) - (119 . #f) - (7 . #s(stx-boundary (s0 s1))) - (3 . #f) - (0 . #s(stx-boundary (s0 #f))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 #f))) - (100 . #f) - (7 . #s(stx-boundary (s0 #f))) - (2 . #s(stx-boundary (s0 #f))) - (148 . #s(stx-boundary (s0 #f))) - (135) - (13 . #f) - (3 . #f) - (3 . #f) - (0 . #s(stx-boundary (s0 #f))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 #f))) - (6 . #s(stx-boundary (s0 s1 #f))) - (109 . #f) - (4 . #s(stx-boundary (s0 #f))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary #f)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . #f))) - (6 . #s(stx-boundary (s0 . #f))) - (115 . #f) - (7 . #s(stx-boundary (s0 #f))) - (2 . #s(stx-boundary (s0 #f))) - (5 . #s(stx-boundary (s0 (s1 #f)))) - (7 . #s(stx-boundary (s0 s1 (s2 #f)))) - (2 . #s(stx-boundary (s0 s1 (s2 #f)))) - (135) - (13 . #f) - (3 . #f) - (7 . #s(stx-boundary (s0 (s1 s2) (s3 s4 (s5 #f))))) - (2 . #s(stx-boundary (s0 (s1 s2) (s3 s4 (s5 #f))))) - (148 . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) - (7 . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) - (7 . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 (s3 s4) s4)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 (s3 s4) s4)))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3 s4) s4)))) - (130 . #s(stx-boundary (s0 (s1 s2) s2))) - (132 . #s(stx-boundary (s0 (s1 s2) s2))) - (141 . #f) - (0 . #s(stx-boundary (s0 (s1 s2) s2))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) s2))) - (21 . #s(stx-boundary (s0 (s1 s2) s2))) - (22 + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (return . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (rename-one . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-submodule . #f) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-module . #f) + (prepare-env . #f) + (tag . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (rename-one . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (enter-check . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (exit-check . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (prim-module-begin . #f) + (rename-one . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 s1))) + (return . #s(stx-boundary (s0 s1))) + (rename-one . #s(stx-boundary (s0 s1))) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-require . #f) + (exit-prim . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary (s0 #f))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 #f))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 #f))) + (return . #s(stx-boundary (s0 #f))) + (rename-one . #s(stx-boundary (s0 #f))) + (module-lift-end-loop) + (next-group . #f) + (next . #f) + (next . #f) + (visit . #s(stx-boundary (s0 #f))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 #f))) + (enter-prim . #s(stx-boundary (s0 s1 #f))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 #f))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary #f)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . #f))) + (enter-prim . #s(stx-boundary (s0 . #f))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 #f))) + (return . #s(stx-boundary (s0 #f))) + (exit-list . #s(stx-boundary (s0 (s1 #f)))) + (exit-prim . #s(stx-boundary (s0 s1 (s2 #f)))) + (return . #s(stx-boundary (s0 s1 (s2 #f)))) + (module-lift-end-loop) + (next-group . #f) + (next . #f) + (exit-prim . #s(stx-boundary (s0 (s1 s2) (s3 s4 (s5 #f))))) + (return . #s(stx-boundary (s0 (s1 s2) (s3 s4 (s5 #f))))) + (rename-one + . + #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) + (exit-prim + . + #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) + (exit-prim + . + #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 (s3 s4) s4)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3 s4) s4)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3 s4) s4)))) + (enter-local . #s(stx-boundary (s0 (s1 s2) s2))) + (local-pre . #s(stx-boundary (s0 (s1 s2) s2))) + (start . #f) + (visit . #s(stx-boundary (s0 (s1 s2) s2))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) s2))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) s2))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 (s3) s3))) . #s(stx-boundary (s0 (s1 s3) s3))) - (9 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (0 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (22 + (exit-macro . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (visit . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) s3))) . #s(stx-boundary (s4 s1 (s2 (s3) s3)))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (0 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (100 . #f) - (7 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (133 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (131 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (22 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (local-post . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (exit-local . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (macro-post-x #s(stx-boundary (s0 (s1 (s2) (s3 (s4) s4)))) . #s(stx-boundary (s5 s6 (s7 (s2 s4) s4)))) - (9 . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) s4))))) - (0 . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) s4))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) s4))))) - (100 . #f) - (7 . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) s4))))) - (2 . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) s4))))) - (148 . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) s4))))) - (11 + (exit-macro . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) s4))))) + (visit . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) s4))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) s4))))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) s4))))) + (return . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) s4))))) + (rename-one . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) s4))))) + (splice #s(stx-boundary (s0 (s1) (s2 (s3) s3))) #s(stx-boundary (s4 s5 (s6 s1)))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (100 . #f) - (7 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (148 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (6 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (104 . #f) - (7 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 s3)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 s3)))) - (21 . #s(stx-boundary (s0 s1 (s2 s3)))) - (130 . #s(stx-boundary (s0 s1))) - (132 . #s(stx-boundary (s0 s1))) - (141 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1))) - (21 . #s(stx-boundary (s0 s1))) - (22 #s(stx-boundary (s0 (s1 (s2 s3)))) . #s(stx-boundary (s4 s3))) - (9 . #s(stx-boundary (s0 (s1 (s2 s3))))) - (0 . #s(stx-boundary (s0 (s1 (s2 s3))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 (s2 s3))))) - (100 . #f) - (7 . #s(stx-boundary (s0 (s1 (s2 s3))))) - (2 . #s(stx-boundary (s0 (s1 (s2 s3))))) - (133 . #s(stx-boundary (s0 (s1 (s2 s3))))) - (131 . #s(stx-boundary (s0 (s1 (s2 s3))))) - (22 + (next . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (rename-one . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (prim-define-values . #f) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 s3)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 s3)))) + (enter-local . #s(stx-boundary (s0 s1))) + (local-pre . #s(stx-boundary (s0 s1))) + (start . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1))) + (macro-pre-x . #s(stx-boundary (s0 s1))) + (macro-post-x + #s(stx-boundary (s0 (s1 (s2 s3)))) + . + #s(stx-boundary (s4 s3))) + (exit-macro . #s(stx-boundary (s0 (s1 (s2 s3))))) + (visit . #s(stx-boundary (s0 (s1 (s2 s3))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 (s2 s3))))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 (s1 (s2 s3))))) + (return . #s(stx-boundary (s0 (s1 (s2 s3))))) + (local-post . #s(stx-boundary (s0 (s1 (s2 s3))))) + (exit-local . #s(stx-boundary (s0 (s1 (s2 s3))))) + (macro-post-x #s(stx-boundary (s0 (s1 (s2 (s3 s4))))) . #s(stx-boundary (s5 s6 (s7 s4)))) - (9 . #s(stx-boundary (s0 (s1 (s2 (s3 s4)))))) - (0 . #s(stx-boundary (s0 (s1 (s2 (s3 s4)))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 (s2 (s3 s4)))))) - (100 . #f) - (7 . #s(stx-boundary (s0 (s1 (s2 (s3 s4)))))) - (2 . #s(stx-boundary (s0 (s1 (s2 (s3 s4)))))) - (148 . #s(stx-boundary (s0 (s1 (s2 (s3 s4)))))) - (11 #s(stx-boundary (s0 (s1 (s2 s3))))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1 (s2 s3))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 (s2 s3))))) - (100 . #f) - (7 . #s(stx-boundary (s0 (s1 (s2 s3))))) - (2 . #s(stx-boundary (s0 (s1 (s2 s3))))) - (148 . #s(stx-boundary (s0 (s1 (s2 s3))))) - (135) - (13 . #f) - (3 . #f) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (104 . #f) - (0 . #s(stx-boundary (s0 (s1) s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) s1))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary (s0))) - (10 . #s(stx-boundary (s0))) - (24 #s(stx-boundary (s0)) . #s(stx-boundary (s0))) - (3 . #f) - (126 . #s(stx-boundary s0)) - (127 . #s(stx-boundary s0)) - (12 . #s(stx-boundary (s0))) - (4 . #s(stx-boundary (s0))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0))) - (7 . #s(stx-boundary (s0 (s1) s1))) - (2 . #s(stx-boundary (s0 (s1) s1))) - (7 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (3 . #f) - (135) - (13 . #f) - (6 . #s(stx-boundary (s0 (s1 (s2 s3))))) - (122 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1))) - (21 . #s(stx-boundary (s0 s1))) - (22 #s(stx-boundary (s0 s1)) . #s(stx-boundary (s2 s1))) - (9 . #s(stx-boundary (s0 s1))) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1))) - (100 . #f) - (7 . #s(stx-boundary (s0 s1))) - (2 . #s(stx-boundary (s0 s1))) - (7 . #f) - (3 . #f) - (7 + (exit-macro . #s(stx-boundary (s0 (s1 (s2 (s3 s4)))))) + (visit . #s(stx-boundary (s0 (s1 (s2 (s3 s4)))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 (s2 (s3 s4)))))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 (s1 (s2 (s3 s4)))))) + (return . #s(stx-boundary (s0 (s1 (s2 (s3 s4)))))) + (rename-one . #s(stx-boundary (s0 (s1 (s2 (s3 s4)))))) + (splice #s(stx-boundary (s0 (s1 (s2 s3))))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 (s2 s3))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 (s2 s3))))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 (s1 (s2 s3))))) + (return . #s(stx-boundary (s0 (s1 (s2 s3))))) + (rename-one . #s(stx-boundary (s0 (s1 (s2 s3))))) + (module-lift-end-loop) + (next-group . #f) + (next . #f) + (next . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (prim-define-values . #f) + (visit . #s(stx-boundary (s0 (s1) s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) s1))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary (s0))) + (enter-block . #s(stx-boundary (s0))) + (block-renames #s(stx-boundary (s0)) . #s(stx-boundary (s0))) + (next . #f) + (enter-check . #s(stx-boundary s0)) + (exit-check . #s(stx-boundary s0)) + (block->list . #s(stx-boundary (s0))) + (enter-list . #s(stx-boundary (s0))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0))) + (exit-prim . #s(stx-boundary (s0 (s1) s1))) + (return . #s(stx-boundary (s0 (s1) s1))) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (next . #f) + (module-lift-end-loop) + (next-group . #f) + (enter-prim . #s(stx-boundary (s0 (s1 (s2 s3))))) + (prim-provide . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1))) + (macro-pre-x . #s(stx-boundary (s0 s1))) + (macro-post-x #s(stx-boundary (s0 s1)) . #s(stx-boundary (s2 s1))) + (exit-macro . #s(stx-boundary (s0 s1))) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 s1))) + (return . #s(stx-boundary (s0 s1))) + (exit-prim . #s(stx-boundary (s0 s1))) + (next . #f) + (exit-prim . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s0 (s5 s6) (s7 s8 (s3 #f)))) (s9 (s10) (s11 (s12) s12)) (s13 s10)))) - (2 + (return . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s0 (s5 s6) (s7 s8 (s3 #f)))) (s9 (s10) (s11 (s12) s12)) (s13 s10)))) - (148 + (rename-one . #s(stx-boundary (s0 @@ -1060,7 +1178,7 @@ (s0 s4 (s5 s6) (s3 (s7 s8) (s9 s10 (s5 #f)))) (s11 (s12) (s13 (s14) s14)) (s15 s12))))) - (7 + (exit-prim . #s(stx-boundary (s0 @@ -1070,7 +1188,7 @@ (s0 s4 (s5 s6) (s3 (s7 s8) (s9 s10 (s5 #f)))) (s11 (s12) (s13 (s14) s14)) (s15 s12))))) - (2 + (return . #s(stx-boundary (s0 @@ -1082,277 +1200,298 @@ (s15 s12))))))) ((module m racket/base 'done) . - ((141 . #f) - (0 . #s(stx-boundary (s0 s1 s2 (s3 s4)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 s2 (s3 s4)))) - (101 . #f) - (157 . #f) - (148 . #s(stx-boundary (s0 s1))) - (126 . #s(stx-boundary (s0 s1))) - (127 . #s(stx-boundary (s0 s1))) - (142 . #s(stx-boundary (s0 (s1 s2)))) - (126 . #s(stx-boundary (s0 (s1 s2)))) - (0 . #s(stx-boundary (s0 (s1 s2)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2)))) - (21 . #s(stx-boundary (s0 (s1 s2)))) - (22 + ((start-top . #f) + (visit . #s(stx-boundary (s0 s1 s2 (s3 s4)))) + (enter-check . #s(stx-boundary (s0 s1 s2 (s3 s4)))) + (exit-check . #s(stx-boundary (s0 s1 s2 (s3 s4)))) + (visit . #s(stx-boundary (s0 s1 s2 (s3 s4)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 s2 (s3 s4)))) + (prim-module . #f) + (prepare-env . #f) + (rename-one . #s(stx-boundary (s0 s1))) + (enter-check . #s(stx-boundary (s0 s1))) + (exit-check . #s(stx-boundary (s0 s1))) + (tag . #s(stx-boundary (s0 (s1 s2)))) + (enter-check . #s(stx-boundary (s0 (s1 s2)))) + (visit . #s(stx-boundary (s0 (s1 s2)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2)))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2)))) + (macro-post-x #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s3 s8))) . #s(stx-boundary (s9 (s3 s8)))) - (9 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s3 s8)))) - (2 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s3 s8)))) - (0 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s3 s8)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s3 s8)))) - (21 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s3 s8)))) - (22 + (exit-macro + . + #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s3 s8)))) + (return + . + #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s3 s8)))) + (visit . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s3 s8)))) + (resolve . #s(stx-boundary s0)) + (enter-macro + . + #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s3 s8)))) + (macro-pre-x + . + #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s3 s8)))) + (macro-post-x #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s5 s10)))) . #s(stx-boundary (s11 (s3 s4 (s5 s6) (s7 s8) (s9 #f)) (s5 s10)))) - (9 + (exit-macro . #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s5 s10))))) - (2 + (return . #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s5 s10))))) - (127 + (exit-check . #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s5 s10))))) - (0 + (visit . #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s5 s10))))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s5 s10))))) - (102 . #f) - (148 + (prim-module-begin . #f) + (rename-one . #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s5 s10))))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) - (21 . #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) - (130 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (132 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (141 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (100 . #f) - (7 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (2 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (133 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (131 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (22 + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) + (resolve . #s(stx-boundary s0)) + (enter-macro + . + #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) + (macro-pre-x + . + #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) + (enter-local . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (local-pre . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (start . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (return . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (local-post . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (exit-local . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (macro-post-x #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)))) . #s(stx-boundary (s8 s9 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (9 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (0 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (100 . #f) - (7 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (2 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (148 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (11 + (exit-macro . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (visit . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (return . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (rename-one . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (splice #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f))) #s(stx-boundary (s7 s8 (s2 s9)))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (100 . #f) - (7 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (2 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (148 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (6 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (158 . #f) - (6 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (101 . #f) - (157 . #f) - (142 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (148 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (127 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (102 . #f) - (148 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1))) - (100 . #f) - (7 . #s(stx-boundary (s0 s1))) - (2 . #s(stx-boundary (s0 s1))) - (148 . #s(stx-boundary (s0 s1))) - (6 . #s(stx-boundary (s0 s1))) - (119 . #f) - (7 . #s(stx-boundary (s0 s1))) - (3 . #f) - (0 . #s(stx-boundary (s0 #f))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 #f))) - (100 . #f) - (7 . #s(stx-boundary (s0 #f))) - (2 . #s(stx-boundary (s0 #f))) - (148 . #s(stx-boundary (s0 #f))) - (135) - (13 . #f) - (3 . #f) - (3 . #f) - (0 . #s(stx-boundary (s0 #f))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 #f))) - (6 . #s(stx-boundary (s0 s1 #f))) - (109 . #f) - (4 . #s(stx-boundary (s0 #f))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary #f)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . #f))) - (6 . #s(stx-boundary (s0 . #f))) - (115 . #f) - (7 . #s(stx-boundary (s0 #f))) - (2 . #s(stx-boundary (s0 #f))) - (5 . #s(stx-boundary (s0 (s1 #f)))) - (7 . #s(stx-boundary (s0 s1 (s2 #f)))) - (2 . #s(stx-boundary (s0 s1 (s2 #f)))) - (135) - (13 . #f) - (3 . #f) - (7 . #s(stx-boundary (s0 (s1 s2) (s3 s4 (s5 #f))))) - (2 . #s(stx-boundary (s0 (s1 s2) (s3 s4 (s5 #f))))) - (148 . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) - (7 . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) - (7 . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 s3)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 s3)))) - (21 . #s(stx-boundary (s0 s1 (s2 s3)))) - (130 . #s(stx-boundary (s0 s1))) - (132 . #s(stx-boundary (s0 s1))) - (141 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1))) - (100 . #f) - (7 . #s(stx-boundary (s0 s1))) - (2 . #s(stx-boundary (s0 s1))) - (133 . #s(stx-boundary (s0 s1))) - (131 . #s(stx-boundary (s0 s1))) - (22 + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (return . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (rename-one . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-submodule . #f) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-module . #f) + (prepare-env . #f) + (tag . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (rename-one . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (enter-check . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (exit-check . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (prim-module-begin . #f) + (rename-one . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 s1))) + (return . #s(stx-boundary (s0 s1))) + (rename-one . #s(stx-boundary (s0 s1))) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-require . #f) + (exit-prim . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary (s0 #f))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 #f))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 #f))) + (return . #s(stx-boundary (s0 #f))) + (rename-one . #s(stx-boundary (s0 #f))) + (module-lift-end-loop) + (next-group . #f) + (next . #f) + (next . #f) + (visit . #s(stx-boundary (s0 #f))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 #f))) + (enter-prim . #s(stx-boundary (s0 s1 #f))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 #f))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary #f)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . #f))) + (enter-prim . #s(stx-boundary (s0 . #f))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 #f))) + (return . #s(stx-boundary (s0 #f))) + (exit-list . #s(stx-boundary (s0 (s1 #f)))) + (exit-prim . #s(stx-boundary (s0 s1 (s2 #f)))) + (return . #s(stx-boundary (s0 s1 (s2 #f)))) + (module-lift-end-loop) + (next-group . #f) + (next . #f) + (exit-prim . #s(stx-boundary (s0 (s1 s2) (s3 s4 (s5 #f))))) + (return . #s(stx-boundary (s0 (s1 s2) (s3 s4 (s5 #f))))) + (rename-one + . + #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) + (exit-prim + . + #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) + (exit-prim + . + #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 s3)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 s3)))) + (enter-local . #s(stx-boundary (s0 s1))) + (local-pre . #s(stx-boundary (s0 s1))) + (start . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 s1))) + (return . #s(stx-boundary (s0 s1))) + (local-post . #s(stx-boundary (s0 s1))) + (exit-local . #s(stx-boundary (s0 s1))) + (macro-post-x #s(stx-boundary (s0 (s1 (s2 s3)))) . #s(stx-boundary (s4 s1 (s2 s3)))) - (9 . #s(stx-boundary (s0 (s1 (s2 s3))))) - (0 . #s(stx-boundary (s0 (s1 (s2 s3))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 (s2 s3))))) - (100 . #f) - (7 . #s(stx-boundary (s0 (s1 (s2 s3))))) - (2 . #s(stx-boundary (s0 (s1 (s2 s3))))) - (148 . #s(stx-boundary (s0 (s1 (s2 s3))))) - (11 #s(stx-boundary (s0 (s1 s2)))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1 s2)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2)))) - (21 . #s(stx-boundary (s0 (s1 s2)))) - (22 + (exit-macro . #s(stx-boundary (s0 (s1 (s2 s3))))) + (visit . #s(stx-boundary (s0 (s1 (s2 s3))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 (s2 s3))))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 (s1 (s2 s3))))) + (return . #s(stx-boundary (s0 (s1 (s2 s3))))) + (rename-one . #s(stx-boundary (s0 (s1 (s2 s3))))) + (splice #s(stx-boundary (s0 (s1 s2)))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 s2)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2)))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2)))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5)) . #s(stx-boundary (s6 (s3 s4)))) - (9 . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) - (0 . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) - (100 . #f) - (7 . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) - (2 . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) - (148 . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) - (135) - (13 . #f) - (3 . #f) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) - (109 . #f) - (4 . #s(stx-boundary (s0 (s1 () (s2 s3)) s4))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary (s0 () (s1 s2)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 () (s1 s2)))) - (110 . #f) - (17 #s(stx-boundary ()) . #s(stx-boundary ((s0 s1)))) - (10 . #s(stx-boundary ((s0 s1)))) - (24 #s(stx-boundary ((s0 s1))) . #s(stx-boundary ((s0 s1)))) - (3 . #f) - (126 . #s(stx-boundary (s0 s1))) - (127 . #s(stx-boundary (s0 s1))) - (12 . #s(stx-boundary ((s0 s1)))) - (4 . #s(stx-boundary ((s0 s1)))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1))) - (117 . #f) - (7 . #s(stx-boundary (s0 s1))) - (2 . #s(stx-boundary (s0 s1))) - (5 . #s(stx-boundary ((s0 s1)))) - (7 . #s(stx-boundary (s0 () (s1 s2)))) - (2 . #s(stx-boundary (s0 () (s1 s2)))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0 (s1 () (s2 s3)) s4))) - (7 . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) - (2 . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) - (135) - (13 . #f) - (3 . #f) - (7 + (exit-macro . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) + (visit . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) + (return . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) + (rename-one . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) + (module-lift-end-loop) + (next-group . #f) + (next . #f) + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 (s1 () (s2 s3)) s4))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary (s0 () (s1 s2)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 () (s1 s2)))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary ()) . #s(stx-boundary ((s0 s1)))) + (enter-block . #s(stx-boundary ((s0 s1)))) + (block-renames #s(stx-boundary ((s0 s1))) . #s(stx-boundary ((s0 s1)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 s1))) + (exit-check . #s(stx-boundary (s0 s1))) + (block->list . #s(stx-boundary ((s0 s1)))) + (enter-list . #s(stx-boundary ((s0 s1)))) + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-quote . #f) + (exit-prim . #s(stx-boundary (s0 s1))) + (return . #s(stx-boundary (s0 s1))) + (exit-list . #s(stx-boundary ((s0 s1)))) + (exit-prim . #s(stx-boundary (s0 () (s1 s2)))) + (return . #s(stx-boundary (s0 () (s1 s2)))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0 (s1 () (s2 s3)) s4))) + (exit-prim . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) + (return . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) + (module-lift-end-loop) + (next-group . #f) + (next . #f) + (exit-prim . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s0 (s5 s6) (s7 s8 (s3 #f)))) (s7 s9 (s10 () (s3 s11)) s12)))) - (2 + (return . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s0 (s5 s6) (s7 s8 (s3 #f)))) (s7 s9 (s10 () (s3 s11)) s12)))) - (148 + (rename-one . #s(stx-boundary (s0 @@ -1361,7 +1500,7 @@ (s3 (s0 s4 (s5 s6) (s3 (s7 s8) (s9 s10 (s5 #f)))) (s9 s11 (s12 () (s5 s13)) s14))))) - (7 + (exit-prim . #s(stx-boundary (s0 @@ -1370,7 +1509,7 @@ (s3 (s0 s4 (s5 s6) (s3 (s7 s8) (s9 s10 (s5 #f)))) (s9 s11 (s12 () (s5 s13)) s14))))) - (2 + (return . #s(stx-boundary (s0 @@ -1381,210 +1520,224 @@ (s9 s11 (s12 () (s5 s13)) s14))))))) ((let () (define-syntax (ok stx) (quote-syntax 8)) (ok 5)) . - ((141 . #f) - (0 . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s3 5))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s3 5))))) - (138 . #f) - (0 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) - (21 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) - (22 + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s3 5))))) + (enter-check + . + #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s3 5))))) + (exit-check . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s3 5))))) + (visit . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s3 5))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s3 5))))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) + (macro-pre-x . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) + (macro-post-x #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5))) . #s(stx-boundary (s5 () (s1 (s2 s3) (s4 8)) (s2 5)))) - (9 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) - (0 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) - (112 . #f) - (16 () . #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s1 5)))) - (13 . #f) - (10 . #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s1 5)))) - (24 + (exit-macro . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) + (visit . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) + (prim-let-values . #f) + (let-renames () . #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s1 5)))) + (next-group . #f) + (enter-block . #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s1 5)))) + (block-renames #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s1 5))) . #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s1 5)))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (21 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (22 + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8)))) . #s(stx-boundary (s5 (s1 s3) (s4 8)))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (103 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) (s3 8))))) - (157 . #f) - (144 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 8)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1) (s2 8)))) - (21 . #s(stx-boundary (s0 (s1) (s2 8)))) - (22 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (prim-define-syntaxes . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) (s3 8))))) + (prepare-env . #f) + (enter-bind . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 8)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1) (s2 8)))) + (macro-pre-x . #s(stx-boundary (s0 (s1) (s2 8)))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 8))) . #s(stx-boundary (s3 (s1) (s2 8)))) - (9 . #s(stx-boundary (s0 (s1) (s2 8)))) - (0 . #s(stx-boundary (s0 (s1) (s2 8)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 8)))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary ((s1 8)))) - (10 . #s(stx-boundary ((s0 8)))) - (24 #s(stx-boundary ((s0 8))) . #s(stx-boundary ((s0 8)))) - (3 . #f) - (126 . #s(stx-boundary (s0 8))) - (127 . #s(stx-boundary (s0 8))) - (12 . #s(stx-boundary ((s0 8)))) - (4 . #s(stx-boundary ((s0 8)))) - (3 . #f) - (0 . #s(stx-boundary (s0 8))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 8))) - (118 . #f) - (7 . #s(stx-boundary (s0 8))) - (2 . #s(stx-boundary (s0 8))) - (5 . #s(stx-boundary ((s0 8)))) - (7 . #s(stx-boundary (s0 (s1) (s2 8)))) - (2 . #s(stx-boundary (s0 (s1) (s2 8)))) - (3 . #f) - (145 . #f) - (3 . #f) - (126 . #s(stx-boundary (s0 5))) - (0 . #s(stx-boundary (s0 5))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 5))) - (21 . #s(stx-boundary (s0 5))) - (22 #s(stx-boundary 8) . #s(stx-boundary (s0 5))) - (9 . #s(stx-boundary 8)) - (2 . #s(stx-boundary 8)) - (127 . #s(stx-boundary 8)) - (14 #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8)))) () 8))) - (0 . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8)))) () 8))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8)))) () 8))) - (114 . #f) - (19 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 8)))) + (visit . #s(stx-boundary (s0 (s1) (s2 8)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 8)))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary ((s1 8)))) + (enter-block . #s(stx-boundary ((s0 8)))) + (block-renames #s(stx-boundary ((s0 8))) . #s(stx-boundary ((s0 8)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 8))) + (exit-check . #s(stx-boundary (s0 8))) + (block->list . #s(stx-boundary ((s0 8)))) + (enter-list . #s(stx-boundary ((s0 8)))) + (next . #f) + (visit . #s(stx-boundary (s0 8))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 8))) + (prim-quote-syntax . #f) + (exit-prim . #s(stx-boundary (s0 8))) + (return . #s(stx-boundary (s0 8))) + (exit-list . #s(stx-boundary ((s0 8)))) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 8)))) + (return . #s(stx-boundary (s0 (s1) (s2 8)))) + (next . #f) + (exit-bind . #f) + (next . #f) + (enter-check . #s(stx-boundary (s0 5))) + (visit . #s(stx-boundary (s0 5))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 5))) + (macro-pre-x . #s(stx-boundary (s0 5))) + (macro-post-x #s(stx-boundary 8) . #s(stx-boundary (s0 5))) + (exit-macro . #s(stx-boundary 8)) + (return . #s(stx-boundary 8)) + (exit-check . #s(stx-boundary 8)) + (block->letrec #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8)))) () 8))) + (visit . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8)))) () 8))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8)))) () 8))) + (prim-letrec-syntaxes+values . #f) + (letrec-syntaxes-renames (#s(stx-boundary ((s0) (s1 (s2) (s3 8))))) () . #s(stx-boundary (8))) - (157 . #f) - (13 . #f) - (4 . #s(stx-boundary (8))) - (3 . #f) - (0 . #s(stx-boundary 8)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 8))) - (6 . #s(stx-boundary (s0 . 8))) - (115 . #f) - (7 . #s(stx-boundary (s0 8))) - (2 . #s(stx-boundary (s0 8))) - (5 . #s(stx-boundary ((s0 8)))) - (142 . #s(stx-boundary (s0 () (s1 8)))) - (7 . #s(stx-boundary (s0 () (s1 8)))) - (2 . #s(stx-boundary (s0 () (s1 8)))) - (7 . #s(stx-boundary (s0 () (s0 () (s1 8))))) - (2 . #s(stx-boundary (s0 () (s0 () (s1 8))))) - (7 . #s(stx-boundary (s0 (s1 () (s1 () (s2 8)))))) - (2 . #s(stx-boundary (s0 (s1 () (s1 () (s2 8)))))))) + (prepare-env . #f) + (next-group . #f) + (enter-list . #s(stx-boundary (8))) + (next . #f) + (visit . #s(stx-boundary 8)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 8))) + (enter-prim . #s(stx-boundary (s0 . 8))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 8))) + (return . #s(stx-boundary (s0 8))) + (exit-list . #s(stx-boundary ((s0 8)))) + (tag . #s(stx-boundary (s0 () (s1 8)))) + (exit-prim . #s(stx-boundary (s0 () (s1 8)))) + (return . #s(stx-boundary (s0 () (s1 8)))) + (exit-prim . #s(stx-boundary (s0 () (s0 () (s1 8))))) + (return . #s(stx-boundary (s0 () (s0 () (s1 8))))) + (exit-prim . #s(stx-boundary (s0 (s1 () (s1 () (s2 8)))))) + (return . #s(stx-boundary (s0 (s1 () (s1 () (s2 8)))))))) ((with-continuation-mark __x __y __z) . - ((141 . #f) - (0 . #s(stx-boundary (s0 (s1 s2 s3 s4)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 s2 s3 s4)))) - (138 . #f) - (0 . #s(stx-boundary (s0 s1 s2 s3))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 s2 s3))) - (106 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . s1))) - (6 . #s(stx-boundary (s0 . s1))) - (116 . #f) - (7 . #s(stx-boundary (s0 . s1))) - (2 . #s(stx-boundary (s0 . s1))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . s1))) - (6 . #s(stx-boundary (s0 . s1))) - (116 . #f) - (7 . #s(stx-boundary (s0 . s1))) - (2 . #s(stx-boundary (s0 . s1))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . s1))) - (6 . #s(stx-boundary (s0 . s1))) - (116 . #f) - (7 . #s(stx-boundary (s0 . s1))) - (2 . #s(stx-boundary (s0 . s1))) - (7 . #s(stx-boundary (s0 (s1 . s2) (s1 . s3) (s1 . s4)))) - (2 . #s(stx-boundary (s0 (s1 . s2) (s1 . s3) (s1 . s4)))) - (7 . #s(stx-boundary (s0 (s1 (s2 . s3) (s2 . s4) (s2 . s5))))) - (2 . #s(stx-boundary (s0 (s1 (s2 . s3) (s2 . s4) (s2 . s5))))))) + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 s2 s3 s4)))) + (enter-check . #s(stx-boundary (s0 (s1 s2 s3 s4)))) + (exit-check . #s(stx-boundary (s0 (s1 s2 s3 s4)))) + (visit . #s(stx-boundary (s0 (s1 s2 s3 s4)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 s2 s3 s4)))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 s1 s2 s3))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 s2 s3))) + (prim-with-continuation-mark . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . s1))) + (enter-prim . #s(stx-boundary (s0 . s1))) + (prim-#%top . #f) + (exit-prim . #s(stx-boundary (s0 . s1))) + (return . #s(stx-boundary (s0 . s1))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . s1))) + (enter-prim . #s(stx-boundary (s0 . s1))) + (prim-#%top . #f) + (exit-prim . #s(stx-boundary (s0 . s1))) + (return . #s(stx-boundary (s0 . s1))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . s1))) + (enter-prim . #s(stx-boundary (s0 . s1))) + (prim-#%top . #f) + (exit-prim . #s(stx-boundary (s0 . s1))) + (return . #s(stx-boundary (s0 . s1))) + (exit-prim . #s(stx-boundary (s0 (s1 . s2) (s1 . s3) (s1 . s4)))) + (return . #s(stx-boundary (s0 (s1 . s2) (s1 . s3) (s1 . s4)))) + (exit-prim . #s(stx-boundary (s0 (s1 (s2 . s3) (s2 . s4) (s2 . s5))))) + (return . #s(stx-boundary (s0 (s1 (s2 . s3) (s2 . s4) (s2 . s5))))))) ((#%top . __x) . - ((141 . #f) - (0 . #s(stx-boundary (s0 (s1 . s2)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 . s2)))) - (138 . #f) - (0 . #s(stx-boundary (s0 . s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 . s1))) - (116 . #f) - (7 . #s(stx-boundary (s0 . s1))) - (2 . #s(stx-boundary (s0 . s1))) - (7 . #s(stx-boundary (s0 (s1 . s2)))) - (2 . #s(stx-boundary (s0 (s1 . s2)))))) + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 . s2)))) + (enter-check . #s(stx-boundary (s0 (s1 . s2)))) + (exit-check . #s(stx-boundary (s0 (s1 . s2)))) + (visit . #s(stx-boundary (s0 (s1 . s2)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 . s2)))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 . s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 . s1))) + (prim-#%top . #f) + (exit-prim . #s(stx-boundary (s0 . s1))) + (return . #s(stx-boundary (s0 . s1))) + (exit-prim . #s(stx-boundary (s0 (s1 . s2)))) + (return . #s(stx-boundary (s0 (s1 . s2)))))) ((let () (define-syntax-rule (ok x) x) (ok 5)) . - ((141 . #f) - (0 . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) s4) (s3 5))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) s4) (s3 5))))) - (138 . #f) - (0 . #s(stx-boundary (s0 () (s1 (s2 s3) s3) (s2 5)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 () (s1 (s2 s3) s3) (s2 5)))) - (21 . #s(stx-boundary (s0 () (s1 (s2 s3) s3) (s2 5)))) - (22 + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) s4) (s3 5))))) + (enter-check . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) s4) (s3 5))))) + (exit-check . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) s4) (s3 5))))) + (visit . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) s4) (s3 5))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) s4) (s3 5))))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 () (s1 (s2 s3) s3) (s2 5)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 () (s1 (s2 s3) s3) (s2 5)))) + (macro-pre-x . #s(stx-boundary (s0 () (s1 (s2 s3) s3) (s2 5)))) + (macro-post-x #s(stx-boundary (s0 () (s1 (s2 s3) s3) (s2 5))) . #s(stx-boundary (s4 () (s1 (s2 s3) s3) (s2 5)))) - (9 . #s(stx-boundary (s0 () (s1 (s2 s3) s3) (s2 5)))) - (0 . #s(stx-boundary (s0 () (s1 (s2 s3) s3) (s2 5)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 () (s1 (s2 s3) s3) (s2 5)))) - (112 . #f) - (16 () . #s(stx-boundary ((s0 (s1 s2) s2) (s1 5)))) - (13 . #f) - (10 . #s(stx-boundary ((s0 (s1 s2) s2) (s1 5)))) - (24 + (exit-macro . #s(stx-boundary (s0 () (s1 (s2 s3) s3) (s2 5)))) + (visit . #s(stx-boundary (s0 () (s1 (s2 s3) s3) (s2 5)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 () (s1 (s2 s3) s3) (s2 5)))) + (prim-let-values . #f) + (let-renames () . #s(stx-boundary ((s0 (s1 s2) s2) (s1 5)))) + (next-group . #f) + (enter-block . #s(stx-boundary ((s0 (s1 s2) s2) (s1 5)))) + (block-renames #s(stx-boundary ((s0 (s1 s2) s2) (s1 5))) . #s(stx-boundary ((s0 (s1 s2) s2) (s1 5)))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) s2))) - (0 . #s(stx-boundary (s0 (s1 s2) s2))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) s2))) - (21 . #s(stx-boundary (s0 (s1 s2) s2))) - (22 + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) s2))) + (visit . #s(stx-boundary (s0 (s1 s2) s2))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) s2))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) s2))) + (macro-post-x #s(stx-boundary (s0 s1 @@ -1601,7 +1754,7 @@ (s7 (s11 s3 (s12 (s8)))))))) . #s(stx-boundary (s5 (s1 s8) s8))) - (9 + (exit-macro . #s(stx-boundary (s0 @@ -1617,7 +1770,7 @@ #f ((s7 s8) (s9 (s10 s3 s8))) (s7 (s11 s3 (s12 (s8))))))))) - (2 + (return . #s(stx-boundary (s0 @@ -1633,7 +1786,7 @@ #f ((s7 s8) (s9 (s10 s3 s8))) (s7 (s11 s3 (s12 (s8))))))))) - (0 + (visit . #s(stx-boundary (s0 @@ -1649,8 +1802,8 @@ #f ((s7 s8) (s9 (s10 s3 s8))) (s7 (s11 s3 (s12 (s8))))))))) - (1 . #s(stx-boundary s0)) - (8 + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 @@ -1666,7 +1819,7 @@ #f ((s7 s8) (s9 (s10 s3 s8))) (s7 (s11 s3 (s12 (s8))))))))) - (21 + (macro-pre-x . #s(stx-boundary (s0 @@ -1682,7 +1835,7 @@ #f ((s7 s8) (s9 (s10 s3 s8))) (s7 (s11 s3 (s12 (s8))))))))) - (22 + (macro-post-x #s(stx-boundary (s0 (s1) @@ -1712,7 +1865,7 @@ #f ((s7 s8) (s9 (s10 s3 s8))) (s7 (s11 s3 (s12 (s8))))))))) - (9 + (exit-macro . #s(stx-boundary (s0 @@ -1728,7 +1881,7 @@ #f ((s7 s8) (s9 (s10 s3 s8))) (s7 (s11 s3 (s12 (s8))))))))) - (2 + (return . #s(stx-boundary (s0 @@ -1744,7 +1897,7 @@ #f ((s7 s8) (s9 (s10 s3 s8))) (s7 (s11 s3 (s12 (s8))))))))) - (127 + (exit-check . #s(stx-boundary (s0 @@ -1760,8 +1913,8 @@ #f ((s7 s8) (s9 (s10 s3 s8))) (s7 (s11 s3 (s12 (s8))))))))) - (103 . #f) - (148 + (prim-define-syntaxes . #f) + (rename-one . #s(stx-boundary ((s0) @@ -1776,9 +1929,9 @@ #f ((s6 s7) (s8 (s9 s2 s7))) (s6 (s10 s2 (s11 (s7))))))))) - (157 . #f) - (144 . #f) - (0 + (prepare-env . #f) + (enter-bind . #f) + (visit . #s(stx-boundary (s0 @@ -1792,8 +1945,8 @@ #f ((s5 s6) (s7 (s8 s1 s6))) (s5 (s9 s1 (s10 (s6)))))))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 @@ -1807,8 +1960,8 @@ #f ((s5 s6) (s7 (s8 s1 s6))) (s5 (s9 s1 (s10 (s6)))))))) - (110 . #f) - (17 + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary @@ -1821,7 +1974,7 @@ #f ((s4 s5) (s6 (s7 s0 s5))) (s4 (s8 s0 (s9 (s5)))))))) - (10 + (enter-block . #s(stx-boundary ((s0 @@ -1833,7 +1986,7 @@ #f ((s4 s5) (s6 (s7 s2 s5))) (s4 (s8 s2 (s9 (s5)))))))) - (24 + (block-renames #s(stx-boundary ((s0 s1 @@ -1855,8 +2008,8 @@ #f ((s4 s5) (s6 (s7 s2 s5))) (s4 (s8 s2 (s9 (s5)))))))) - (3 . #f) - (126 + (next . #f) + (enter-check . #s(stx-boundary (s0 @@ -1868,7 +2021,7 @@ #f ((s4 s5) (s6 (s7 s2 s5))) (s4 (s8 s2 (s9 (s5))))))) - (0 + (visit . #s(stx-boundary (s0 @@ -1880,8 +2033,8 @@ #f ((s4 s5) (s6 (s7 s2 s5))) (s4 (s8 s2 (s9 (s5))))))) - (1 . #s(stx-boundary s0)) - (8 + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 @@ -1893,7 +2046,7 @@ #f ((s4 s5) (s6 (s7 s2 s5))) (s4 (s8 s2 (s9 (s5))))))) - (21 + (macro-pre-x . #s(stx-boundary (s0 @@ -1905,7 +2058,7 @@ #f ((s4 s5) (s6 (s7 s2 s5))) (s4 (s8 s2 (s9 (s5))))))) - (22 + (macro-post-x #s(stx-boundary (s0 ((s1 s2)) @@ -1949,7 +2102,7 @@ #f ((s27 s16) (s19 (s20 s2 s16))) (s27 (s21 s2 (s22 (s16))))))) - (9 + (exit-macro . #s(stx-boundary (s0 @@ -1983,7 +2136,7 @@ s3 (s0 () (s15 () () (s21 s2 (s22 (s16))))) (s23 #f #:opaque s1)))))))) - (2 + (return . #s(stx-boundary (s0 @@ -2017,7 +2170,7 @@ s3 (s0 () (s15 () () (s21 s2 (s22 (s16))))) (s23 #f #:opaque s1)))))))) - (0 + (visit . #s(stx-boundary (s0 @@ -2051,8 +2204,8 @@ s3 (s0 () (s15 () () (s21 s2 (s22 (s16))))) (s23 #f #:opaque s1)))))))) - (1 . #s(stx-boundary s0)) - (8 + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 @@ -2086,7 +2239,7 @@ s3 (s0 () (s15 () () (s21 s2 (s22 (s16))))) (s23 #f #:opaque s1)))))))) - (21 + (macro-pre-x . #s(stx-boundary (s0 @@ -2120,7 +2273,7 @@ s3 (s0 () (s15 () () (s21 s2 (s22 (s16))))) (s23 #f #:opaque s1)))))))) - (22 + (macro-post-x #s(stx-boundary (s0 (((s1) s2)) @@ -2186,7 +2339,7 @@ s4 (s3 () (s16 () () (s22 s2 (s23 (s17))))) (s24 #f #:opaque s1)))))))) - (9 + (exit-macro . #s(stx-boundary (s0 @@ -2220,7 +2373,7 @@ s4 (s3 () (s16 () () (s22 s2 (s23 (s17))))) (s24 #f #:opaque s1)))))))) - (2 + (return . #s(stx-boundary (s0 @@ -2254,7 +2407,7 @@ s4 (s3 () (s16 () () (s22 s2 (s23 (s17))))) (s24 #f #:opaque s1)))))))) - (127 + (exit-check . #s(stx-boundary (s0 @@ -2288,7 +2441,7 @@ s4 (s3 () (s16 () () (s22 s2 (s23 (s17))))) (s24 #f #:opaque s1)))))))) - (12 + (block->list . #s(stx-boundary ((s0 @@ -2322,7 +2475,7 @@ s4 (s3 () (s16 () () (s22 s2 (s23 (s17))))) (s24 #f #:opaque s1))))))))) - (4 + (enter-list . #s(stx-boundary ((s0 @@ -2356,8 +2509,8 @@ s4 (s3 () (s16 () () (s22 s2 (s23 (s17))))) (s24 #f #:opaque s1))))))))) - (3 . #f) - (0 + (next . #f) + (visit . #s(stx-boundary (s0 @@ -2391,8 +2544,8 @@ s4 (s3 () (s16 () () (s22 s2 (s23 (s17))))) (s24 #f #:opaque s1)))))))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 @@ -2426,8 +2579,8 @@ s4 (s3 () (s16 () () (s22 s2 (s23 (s17))))) (s24 #f #:opaque s1)))))))) - (112 . #f) - (16 + (prim-let-values . #f) + (let-renames (#s(stx-boundary ((s0) s1))) . #s(stx-boundary @@ -2460,13 +2613,13 @@ s3 (s2 () (s15 () () (s21 s1 (s22 (s16))))) (s23 #f #:opaque s0)))))))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (13 . #f) - (10 + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next-group . #f) + (enter-block . #s(stx-boundary ((s0 @@ -2498,7 +2651,7 @@ s1 (s0 () (s14 () () (s21 s20 (s22 (s15))))) (s23 #f #:opaque s12)))))))) - (24 + (block-renames #s(stx-boundary ((s0 ((s1 @@ -2560,8 +2713,8 @@ s1 (s0 () (s14 () () (s21 s20 (s22 (s15))))) (s23 #f #:opaque s12)))))))) - (3 . #f) - (126 + (next . #f) + (enter-check . #s(stx-boundary (s0 @@ -2593,7 +2746,7 @@ s1 (s0 () (s14 () () (s21 s20 (s22 (s15))))) (s23 #f #:opaque s12))))))) - (0 + (visit . #s(stx-boundary (s0 @@ -2625,8 +2778,8 @@ s1 (s0 () (s14 () () (s21 s20 (s22 (s15))))) (s23 #f #:opaque s12))))))) - (1 . #s(stx-boundary s0)) - (8 + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 @@ -2658,7 +2811,7 @@ s1 (s0 () (s14 () () (s21 s20 (s22 (s15))))) (s23 #f #:opaque s12))))))) - (21 + (macro-pre-x . #s(stx-boundary (s0 @@ -2690,7 +2843,7 @@ s1 (s0 () (s14 () () (s21 s20 (s22 (s15))))) (s23 #f #:opaque s12))))))) - (22 + (macro-post-x #s(stx-boundary (s0 (((s1) @@ -2752,7 +2905,7 @@ s1 (s8 () (s15 () () (s22 s21 (s23 (s16))))) (s24 #f #:opaque s13))))))) - (9 + (exit-macro . #s(stx-boundary (s0 @@ -2784,7 +2937,7 @@ s1 (s8 () (s15 () () (s22 s21 (s23 (s16))))) (s24 #f #:opaque s13))))))) - (2 + (return . #s(stx-boundary (s0 @@ -2816,7 +2969,7 @@ s1 (s8 () (s15 () () (s22 s21 (s23 (s16))))) (s24 #f #:opaque s13))))))) - (127 + (exit-check . #s(stx-boundary (s0 @@ -2848,7 +3001,7 @@ s1 (s8 () (s15 () () (s22 s21 (s23 (s16))))) (s24 #f #:opaque s13))))))) - (12 + (block->list . #s(stx-boundary ((s0 @@ -2880,7 +3033,7 @@ s1 (s8 () (s15 () () (s22 s21 (s23 (s16))))) (s24 #f #:opaque s13)))))))) - (4 + (enter-list . #s(stx-boundary ((s0 @@ -2912,8 +3065,8 @@ s1 (s8 () (s15 () () (s22 s21 (s23 (s16))))) (s24 #f #:opaque s13)))))))) - (3 . #f) - (0 + (next . #f) + (visit . #s(stx-boundary (s0 @@ -2945,8 +3098,8 @@ s1 (s8 () (s15 () () (s22 s21 (s23 (s16))))) (s24 #f #:opaque s13))))))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 @@ -2978,8 +3131,8 @@ s1 (s8 () (s15 () () (s22 s21 (s23 (s16))))) (s24 #f #:opaque s13))))))) - (112 . #f) - (16 + (prim-let-values . #f) + (let-renames (#s(stx-boundary ((s0) ((s1 @@ -3011,8 +3164,8 @@ s0 (s7 () (s14 () () (s21 s20 (s22 (s15))))) (s23 #f #:opaque s12))))))) - (3 . #f) - (0 + (next . #f) + (visit . #s(stx-boundary ((s0 @@ -3028,8 +3181,8 @@ #f) #f)) s11))) - (1 . #s(stx-boundary s0)) - (142 + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 @@ -3049,7 +3202,7 @@ #f) #f)) s12))) - (6 + (enter-prim . #s(stx-boundary (s0 @@ -3069,8 +3222,8 @@ #f) #f)) s12))) - (109 . #f) - (4 + (prim-#%app . #f) + (enter-list . #s(stx-boundary ((s0 @@ -3086,8 +3239,8 @@ #f) #f)) s11))) - (3 . #f) - (0 + (next . #f) + (visit . #s(stx-boundary (s0 @@ -3102,8 +3255,8 @@ (s10 s1)) #f) #f)))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 @@ -3118,8 +3271,8 @@ (s10 s1)) #f) #f)))) - (110 . #f) - (17 + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary @@ -3133,7 +3286,7 @@ (s10 s0)) #f) #f)))) - (10 + (enter-block . #s(stx-boundary ((s0 @@ -3146,7 +3299,7 @@ (s10 s2)) #f) #f)))) - (24 + (block-renames #s(stx-boundary ((s0 (s1 s2) @@ -3170,8 +3323,8 @@ (s10 s2)) #f) #f)))) - (3 . #f) - (126 + (next . #f) + (enter-check . #s(stx-boundary (s0 @@ -3184,7 +3337,7 @@ (s10 s2)) #f) #f))) - (127 + (exit-check . #s(stx-boundary (s0 @@ -3197,7 +3350,7 @@ (s10 s2)) #f) #f))) - (12 + (block->list . #s(stx-boundary ((s0 @@ -3210,7 +3363,7 @@ (s10 s2)) #f) #f)))) - (4 + (enter-list . #s(stx-boundary ((s0 @@ -3223,8 +3376,8 @@ (s10 s2)) #f) #f)))) - (3 . #f) - (0 + (next . #f) + (visit . #s(stx-boundary (s0 @@ -3237,8 +3390,8 @@ (s10 s2)) #f) #f))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 @@ -3251,29 +3404,29 @@ (s10 s2)) #f) #f))) - (105 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 s2))) - (6 . #s(stx-boundary (s0 s1 s2))) - (109 . #f) - (4 . #s(stx-boundary (s0 s1))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0 s1))) - (7 . #s(stx-boundary (s0 s1 s2))) - (2 . #s(stx-boundary (s0 s1 s2))) - (3 . #f) - (0 + (prim-if . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 s2))) + (enter-prim . #s(stx-boundary (s0 s1 s2))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0 s1))) + (exit-prim . #s(stx-boundary (s0 s1 s2))) + (return . #s(stx-boundary (s0 s1 s2))) + (next . #f) + (visit . #s(stx-boundary (s0 @@ -3283,8 +3436,8 @@ (s0 (s5 s2) (s6 ((s7 (s4 s2))) (s8 s7 (s9 (s10 s2)) s7)) #f)) (s10 s2)) #f))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 @@ -3294,68 +3447,68 @@ (s0 (s5 s2) (s6 ((s7 (s4 s2))) (s8 s7 (s9 (s10 s2)) s7)) #f)) (s10 s2)) #f))) - (105 . #f) - (0 . #s(stx-boundary ((s0 (s1) s2) (s3 s1)))) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 (s1 (s2) s3) (s4 s2)))) - (6 . #s(stx-boundary (s0 (s1 (s2) s3) (s4 s2)))) - (109 . #f) - (4 . #s(stx-boundary ((s0 (s1) s2) (s3 s1)))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1) s2))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) s2))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary (s1))) - (10 . #s(stx-boundary (s0))) - (24 #s(stx-boundary (s0)) . #s(stx-boundary (s0))) - (3 . #f) - (126 . #s(stx-boundary s0)) - (127 . #s(stx-boundary s0)) - (12 . #s(stx-boundary (s0))) - (4 . #s(stx-boundary (s0))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0))) - (7 . #s(stx-boundary (s0 (s1) s2))) - (2 . #s(stx-boundary (s0 (s1) s2))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 s2))) - (6 . #s(stx-boundary (s0 s1 s2))) - (109 . #f) - (4 . #s(stx-boundary (s0 s1))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0 s1))) - (7 . #s(stx-boundary (s0 s1 s2))) - (2 . #s(stx-boundary (s0 s1 s2))) - (5 . #s(stx-boundary ((s0 (s1) s2) (s3 s4 s1)))) - (7 . #s(stx-boundary (s0 (s1 (s2) s3) (s0 s4 s2)))) - (2 . #s(stx-boundary (s0 (s1 (s2) s3) (s0 s4 s2)))) - (3 . #f) - (0 + (prim-if . #f) + (visit . #s(stx-boundary ((s0 (s1) s2) (s3 s1)))) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 (s1 (s2) s3) (s4 s2)))) + (enter-prim . #s(stx-boundary (s0 (s1 (s2) s3) (s4 s2)))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary ((s0 (s1) s2) (s3 s1)))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1) s2))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) s2))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary (s1))) + (enter-block . #s(stx-boundary (s0))) + (block-renames #s(stx-boundary (s0)) . #s(stx-boundary (s0))) + (next . #f) + (enter-check . #s(stx-boundary s0)) + (exit-check . #s(stx-boundary s0)) + (block->list . #s(stx-boundary (s0))) + (enter-list . #s(stx-boundary (s0))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0))) + (exit-prim . #s(stx-boundary (s0 (s1) s2))) + (return . #s(stx-boundary (s0 (s1) s2))) + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 s2))) + (enter-prim . #s(stx-boundary (s0 s1 s2))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0 s1))) + (exit-prim . #s(stx-boundary (s0 s1 s2))) + (return . #s(stx-boundary (s0 s1 s2))) + (exit-list . #s(stx-boundary ((s0 (s1) s2) (s3 s4 s1)))) + (exit-prim . #s(stx-boundary (s0 (s1 (s2) s3) (s0 s4 s2)))) + (return . #s(stx-boundary (s0 (s1 (s2) s3) (s0 s4 s2)))) + (next . #f) + (visit . #s(stx-boundary ((s0 (s1) (s2 (s3 s1) (s4 ((s5 (s6 s1))) (s7 s5 (s8 (s9 s1)) s5)) #f)) (s9 s1)))) - (1 . #s(stx-boundary s0)) - (142 + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 @@ -3363,7 +3516,7 @@ (s2) (s3 (s4 s2) (s5 ((s6 (s7 s2))) (s8 s6 (s9 (s10 s2)) s6)) #f)) (s10 s2)))) - (6 + (enter-prim . #s(stx-boundary (s0 @@ -3371,277 +3524,287 @@ (s2) (s3 (s4 s2) (s5 ((s6 (s7 s2))) (s8 s6 (s9 (s10 s2)) s6)) #f)) (s10 s2)))) - (109 . #f) - (4 + (prim-#%app . #f) + (enter-list . #s(stx-boundary ((s0 (s1) (s2 (s3 s1) (s4 ((s5 (s6 s1))) (s7 s5 (s8 (s9 s1)) s5)) #f)) (s9 s1)))) - (3 . #f) - (0 + (next . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3 s1) (s4 ((s5 (s6 s1))) (s7 s5 (s8 (s9 s1)) s5)) #f)))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 (s3 s1) (s4 ((s5 (s6 s1))) (s7 s5 (s8 (s9 s1)) s5)) #f)))) - (110 . #f) - (17 + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary ((s1 (s2 s0) (s3 ((s4 (s5 s0))) (s6 s4 (s7 (s8 s0)) s4)) #f)))) - (10 + (enter-block . #s(stx-boundary ((s0 (s1 s2) (s3 ((s4 (s5 s2))) (s6 s4 (s7 (s8 s2)) s4)) #f)))) - (24 + (block-renames #s(stx-boundary ((s0 (s1 s2) (s3 ((s4 (s5 s2))) (s6 s4 (s7 (s8 s2)) s4)) #f))) . #s(stx-boundary ((s0 (s1 s2) (s3 ((s4 (s5 s2))) (s6 s4 (s7 (s8 s2)) s4)) #f)))) - (3 . #f) - (126 + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) (s3 ((s4 (s5 s2))) (s6 s4 (s7 (s8 s2)) s4)) #f))) - (127 + (exit-check . #s(stx-boundary (s0 (s1 s2) (s3 ((s4 (s5 s2))) (s6 s4 (s7 (s8 s2)) s4)) #f))) - (12 + (block->list . #s(stx-boundary ((s0 (s1 s2) (s3 ((s4 (s5 s2))) (s6 s4 (s7 (s8 s2)) s4)) #f)))) - (4 + (enter-list . #s(stx-boundary ((s0 (s1 s2) (s3 ((s4 (s5 s2))) (s6 s4 (s7 (s8 s2)) s4)) #f)))) - (3 . #f) - (0 + (next . #f) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 ((s4 (s5 s2))) (s6 s4 (s7 (s8 s2)) s4)) #f))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 s2) (s3 ((s4 (s5 s2))) (s6 s4 (s7 (s8 s2)) s4)) #f))) - (105 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 s2))) - (6 . #s(stx-boundary (s0 s1 s2))) - (109 . #f) - (4 . #s(stx-boundary (s0 s1))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0 s1))) - (7 . #s(stx-boundary (s0 s1 s2))) - (2 . #s(stx-boundary (s0 s1 s2))) - (3 . #f) - (0 . #s(stx-boundary (s0 ((s1 (s2 s3))) (s4 s1 (s5 (s6 s3)) s1)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 ((s1 (s2 s3))) (s4 s1 (s5 (s6 s3)) s1)))) - (21 . #s(stx-boundary (s0 ((s1 (s2 s3))) (s4 s1 (s5 (s6 s3)) s1)))) - (22 + (prim-if . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 s2))) + (enter-prim . #s(stx-boundary (s0 s1 s2))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0 s1))) + (exit-prim . #s(stx-boundary (s0 s1 s2))) + (return . #s(stx-boundary (s0 s1 s2))) + (next . #f) + (visit . #s(stx-boundary (s0 ((s1 (s2 s3))) (s4 s1 (s5 (s6 s3)) s1)))) + (resolve . #s(stx-boundary s0)) + (enter-macro + . + #s(stx-boundary (s0 ((s1 (s2 s3))) (s4 s1 (s5 (s6 s3)) s1)))) + (macro-pre-x + . + #s(stx-boundary (s0 ((s1 (s2 s3))) (s4 s1 (s5 (s6 s3)) s1)))) + (macro-post-x #s(stx-boundary (s0 (((s1) (s2 s3))) (s4 s1 (s5 (s6 s3)) s1))) . #s(stx-boundary (s7 ((s1 (s2 s3))) (s4 s1 (s5 (s6 s3)) s1)))) - (9 . #s(stx-boundary (s0 (((s1) (s2 s3))) (s4 s1 (s5 (s6 s3)) s1)))) - (0 . #s(stx-boundary (s0 (((s1) (s2 s3))) (s4 s1 (s5 (s6 s3)) s1)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (((s1) (s2 s3))) (s4 s1 (s5 (s6 s3)) s1)))) - (112 . #f) - (16 + (exit-macro + . + #s(stx-boundary (s0 (((s1) (s2 s3))) (s4 s1 (s5 (s6 s3)) s1)))) + (visit + . + #s(stx-boundary (s0 (((s1) (s2 s3))) (s4 s1 (s5 (s6 s3)) s1)))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary (s0 (((s1) (s2 s3))) (s4 s1 (s5 (s6 s3)) s1)))) + (prim-let-values . #f) + (let-renames (#s(stx-boundary ((s0) (s1 s2)))) . #s(stx-boundary ((s3 s0 (s4 (s5 s2)) s0)))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 s2))) - (6 . #s(stx-boundary (s0 s1 s2))) - (109 . #f) - (4 . #s(stx-boundary (s0 s1))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0 s1))) - (7 . #s(stx-boundary (s0 s1 s2))) - (2 . #s(stx-boundary (s0 s1 s2))) - (13 . #f) - (10 . #s(stx-boundary ((s0 s1 (s2 (s3 s4)) s1)))) - (24 + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 s2))) + (enter-prim . #s(stx-boundary (s0 s1 s2))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0 s1))) + (exit-prim . #s(stx-boundary (s0 s1 s2))) + (return . #s(stx-boundary (s0 s1 s2))) + (next-group . #f) + (enter-block . #s(stx-boundary ((s0 s1 (s2 (s3 s4)) s1)))) + (block-renames #s(stx-boundary ((s0 s1 (s2 (s3 s4)) s1))) . #s(stx-boundary ((s0 s1 (s2 (s3 s4)) s1)))) - (3 . #f) - (126 . #s(stx-boundary (s0 s1 (s2 (s3 s4)) s1))) - (0 . #s(stx-boundary (s0 s1 (s2 (s3 s4)) s1))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 (s3 s4)) s1))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3 s4)) s1))) - (22 + (next . #f) + (enter-check . #s(stx-boundary (s0 s1 (s2 (s3 s4)) s1))) + (visit . #s(stx-boundary (s0 s1 (s2 (s3 s4)) s1))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3 s4)) s1))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3 s4)) s1))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 (s3 (s4 s5)) s1) #f)) . #s(stx-boundary (s2 s1 (s3 (s4 s5)) s1))) - (9 . #s(stx-boundary (s0 s1 (s2 (s3 (s4 s5)) s1) #f))) - (2 . #s(stx-boundary (s0 s1 (s2 (s3 (s4 s5)) s1) #f))) - (127 . #s(stx-boundary (s0 s1 (s2 (s3 (s4 s5)) s1) #f))) - (12 . #s(stx-boundary ((s0 s1 (s2 (s3 (s4 s5)) s1) #f)))) - (4 . #s(stx-boundary ((s0 s1 (s2 (s3 (s4 s5)) s1) #f)))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 (s3 (s4 s5)) s1) #f))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 (s3 (s4 s5)) s1) #f))) - (105 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1 (s2 s3)) s4))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 (s2 s3)) s4))) - (21 . #s(stx-boundary (s0 (s1 (s2 s3)) s4))) - (22 + (exit-macro . #s(stx-boundary (s0 s1 (s2 (s3 (s4 s5)) s1) #f))) + (return . #s(stx-boundary (s0 s1 (s2 (s3 (s4 s5)) s1) #f))) + (exit-check . #s(stx-boundary (s0 s1 (s2 (s3 (s4 s5)) s1) #f))) + (block->list . #s(stx-boundary ((s0 s1 (s2 (s3 (s4 s5)) s1) #f)))) + (enter-list . #s(stx-boundary ((s0 s1 (s2 (s3 (s4 s5)) s1) #f)))) + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 (s3 (s4 s5)) s1) #f))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 (s3 (s4 s5)) s1) #f))) + (prim-if . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 (s2 s3)) s4))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 (s2 s3)) s4))) + (macro-pre-x . #s(stx-boundary (s0 (s1 (s2 s3)) s4))) + (macro-post-x #s(stx-boundary (s0 (s1 (s2 s3)) (s4 s5) #f)) . #s(stx-boundary (s4 (s1 (s2 s3)) s5))) - (9 . #s(stx-boundary (s0 (s1 (s2 s3)) (s4 s5) #f))) - (0 . #s(stx-boundary (s0 (s1 (s2 s3)) (s4 s5) #f))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 (s2 s3)) (s4 s5) #f))) - (105 . #f) - (0 . #s(stx-boundary (s0 (s1 s2)))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 (s2 s3)))) - (6 . #s(stx-boundary (s0 s1 (s2 s3)))) - (109 . #f) - (4 . #s(stx-boundary (s0 (s1 s2)))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 s2))) - (6 . #s(stx-boundary (s0 s1 s2))) - (109 . #f) - (4 . #s(stx-boundary (s0 s1))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0 s1))) - (7 . #s(stx-boundary (s0 s1 s2))) - (2 . #s(stx-boundary (s0 s1 s2))) - (5 . #s(stx-boundary (s0 (s1 s2 s3)))) - (7 . #s(stx-boundary (s0 s1 (s0 s2 s3)))) - (2 . #s(stx-boundary (s0 s1 (s0 s2 s3)))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1))) - (21 . #s(stx-boundary (s0 s1))) - (22 #s(stx-boundary (s0 s1)) . #s(stx-boundary (s2 s1))) - (9 . #s(stx-boundary (s0 s1))) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1))) - (138 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (142 . #s(stx-boundary s0)) - (7 . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary #f)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . #f))) - (6 . #s(stx-boundary (s0 . #f))) - (115 . #f) - (7 . #s(stx-boundary (s0 #f))) - (2 . #s(stx-boundary (s0 #f))) - (7 . #s(stx-boundary (s0 (s1 s2 (s1 s3 s4)) s5 (s6 #f)))) - (2 . #s(stx-boundary (s0 (s1 s2 (s1 s3 s4)) s5 (s6 #f)))) - (3 . #f) - (0 . #s(stx-boundary #f)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . #f))) - (6 . #s(stx-boundary (s0 . #f))) - (115 . #f) - (7 . #s(stx-boundary (s0 #f))) - (2 . #s(stx-boundary (s0 #f))) - (7 + (exit-macro . #s(stx-boundary (s0 (s1 (s2 s3)) (s4 s5) #f))) + (visit . #s(stx-boundary (s0 (s1 (s2 s3)) (s4 s5) #f))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 (s2 s3)) (s4 s5) #f))) + (prim-if . #f) + (visit . #s(stx-boundary (s0 (s1 s2)))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 (s2 s3)))) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3)))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 (s1 s2)))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 s2))) + (enter-prim . #s(stx-boundary (s0 s1 s2))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0 s1))) + (exit-prim . #s(stx-boundary (s0 s1 s2))) + (return . #s(stx-boundary (s0 s1 s2))) + (exit-list . #s(stx-boundary (s0 (s1 s2 s3)))) + (exit-prim . #s(stx-boundary (s0 s1 (s0 s2 s3)))) + (return . #s(stx-boundary (s0 s1 (s0 s2 s3)))) + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1))) + (macro-pre-x . #s(stx-boundary (s0 s1))) + (macro-post-x #s(stx-boundary (s0 s1)) . #s(stx-boundary (s2 s1))) + (exit-macro . #s(stx-boundary (s0 s1))) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-#%expression . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (tag . #s(stx-boundary s0)) + (exit-prim . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary #f)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . #f))) + (enter-prim . #s(stx-boundary (s0 . #f))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 #f))) + (return . #s(stx-boundary (s0 #f))) + (exit-prim . #s(stx-boundary (s0 (s1 s2 (s1 s3 s4)) s5 (s6 #f)))) + (return . #s(stx-boundary (s0 (s1 s2 (s1 s3 s4)) s5 (s6 #f)))) + (next . #f) + (visit . #s(stx-boundary #f)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . #f))) + (enter-prim . #s(stx-boundary (s0 . #f))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 #f))) + (return . #s(stx-boundary (s0 #f))) + (exit-prim . #s(stx-boundary (s0 s1 (s0 (s2 s3 (s2 s4 s5)) s1 (s6 #f)) (s6 #f)))) - (2 + (return . #s(stx-boundary (s0 s1 (s0 (s2 s3 (s2 s4 s5)) s1 (s6 #f)) (s6 #f)))) - (5 + (exit-list . #s(stx-boundary ((s0 s1 (s0 (s2 s3 (s2 s4 s5)) s1 (s6 #f)) (s6 #f))))) - (7 + (exit-prim . #s(stx-boundary (s0 (((s1) (s2 s3 s4))) (s5 s1 (s5 (s2 s6 (s2 s7 s4)) s1 (s8 #f)) (s8 #f))))) - (2 + (return . #s(stx-boundary (s0 (((s1) (s2 s3 s4))) (s5 s1 (s5 (s2 s6 (s2 s7 s4)) s1 (s8 #f)) (s8 #f))))) - (3 . #f) - (0 . #s(stx-boundary #f)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . #f))) - (6 . #s(stx-boundary (s0 . #f))) - (115 . #f) - (7 . #s(stx-boundary (s0 #f))) - (2 . #s(stx-boundary (s0 #f))) - (7 + (next . #f) + (visit . #s(stx-boundary #f)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . #f))) + (enter-prim . #s(stx-boundary (s0 . #f))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 #f))) + (return . #s(stx-boundary (s0 #f))) + (exit-prim . #s(stx-boundary (s0 @@ -3650,7 +3813,7 @@ (((s5) (s1 s6 s3))) (s0 s5 (s0 (s1 s7 (s1 s8 s3)) s5 (s9 #f)) (s9 #f))) (s9 #f)))) - (2 + (return . #s(stx-boundary (s0 @@ -3659,7 +3822,7 @@ (((s5) (s1 s6 s3))) (s0 s5 (s0 (s1 s7 (s1 s8 s3)) s5 (s9 #f)) (s9 #f))) (s9 #f)))) - (5 + (exit-list . #s(stx-boundary ((s0 @@ -3668,7 +3831,7 @@ (((s5) (s1 s6 s3))) (s0 s5 (s0 (s1 s7 (s1 s8 s3)) s5 (s9 #f)) (s9 #f))) (s9 #f))))) - (7 + (exit-prim . #s(stx-boundary (s0 @@ -3679,7 +3842,7 @@ (((s6) (s3 s7 s1))) (s2 s6 (s2 (s3 s8 (s3 s9 s1)) s6 (s10 #f)) (s10 #f))) (s10 #f))))) - (2 + (return . #s(stx-boundary (s0 @@ -3690,28 +3853,28 @@ (((s6) (s3 s7 s1))) (s2 s6 (s2 (s3 s8 (s3 s9 s1)) s6 (s10 #f)) (s10 #f))) (s10 #f))))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 s2))) - (6 . #s(stx-boundary (s0 s1 s2))) - (109 . #f) - (4 . #s(stx-boundary (s0 s1))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0 s1))) - (7 . #s(stx-boundary (s0 s1 s2))) - (2 . #s(stx-boundary (s0 s1 s2))) - (5 + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 s2))) + (enter-prim . #s(stx-boundary (s0 s1 s2))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0 s1))) + (exit-prim . #s(stx-boundary (s0 s1 s2))) + (return . #s(stx-boundary (s0 s1 s2))) + (exit-list . #s(stx-boundary ((s0 @@ -3723,7 +3886,7 @@ (s2 s6 (s2 (s3 s8 (s3 s9 s1)) s6 (s10 #f)) (s10 #f))) (s10 #f))) (s3 s9 s1)))) - (7 + (exit-prim . #s(stx-boundary (s0 @@ -3736,7 +3899,7 @@ (s3 s6 (s3 (s0 s8 (s0 s9 s2)) s6 (s10 #f)) (s10 #f))) (s10 #f))) (s0 s9 s2)))) - (2 + (return . #s(stx-boundary (s0 @@ -3749,15 +3912,15 @@ (s3 s6 (s3 (s0 s8 (s0 s9 s2)) s6 (s10 #f)) (s10 #f))) (s10 #f))) (s0 s9 s2)))) - (3 . #f) - (0 . #s(stx-boundary #f)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . #f))) - (6 . #s(stx-boundary (s0 . #f))) - (115 . #f) - (7 . #s(stx-boundary (s0 #f))) - (2 . #s(stx-boundary (s0 #f))) - (7 + (next . #f) + (visit . #s(stx-boundary #f)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . #f))) + (enter-prim . #s(stx-boundary (s0 . #f))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 #f))) + (return . #s(stx-boundary (s0 #f))) + (exit-prim . #s(stx-boundary (s0 @@ -3773,7 +3936,7 @@ (s11 #f))) (s1 s10 s3)) (s11 #f)))) - (2 + (return . #s(stx-boundary (s0 @@ -3789,15 +3952,15 @@ (s11 #f))) (s1 s10 s3)) (s11 #f)))) - (3 . #f) - (0 . #s(stx-boundary #f)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . #f))) - (6 . #s(stx-boundary (s0 . #f))) - (115 . #f) - (7 . #s(stx-boundary (s0 #f))) - (2 . #s(stx-boundary (s0 #f))) - (7 + (next . #f) + (visit . #s(stx-boundary #f)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . #f))) + (enter-prim . #s(stx-boundary (s0 . #f))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 #f))) + (return . #s(stx-boundary (s0 #f))) + (exit-prim . #s(stx-boundary (s0 @@ -3816,7 +3979,7 @@ (s1 s10 s3)) (s11 #f)) (s11 #f)))) - (2 + (return . #s(stx-boundary (s0 @@ -3835,7 +3998,7 @@ (s1 s10 s3)) (s11 #f)) (s11 #f)))) - (5 + (exit-list . #s(stx-boundary ((s0 @@ -3854,7 +4017,7 @@ (s1 s10 s3)) (s11 #f)) (s11 #f))))) - (7 + (exit-prim . #s(stx-boundary (s0 @@ -3875,7 +4038,7 @@ (s3 s10 s1)) (s11 #f)) (s11 #f))))) - (2 + (return . #s(stx-boundary (s0 @@ -3896,12 +4059,12 @@ (s3 s10 s1)) (s11 #f)) (s11 #f))))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary ((s0 @@ -3923,7 +4086,7 @@ (s11 #f)) (s11 #f))) s12))) - (7 + (exit-prim . #s(stx-boundary (s0 @@ -3946,7 +4109,7 @@ (s11 #f)) (s11 #f))) s12))) - (2 + (return . #s(stx-boundary (s0 @@ -3969,8 +4132,8 @@ (s11 #f)) (s11 #f))) s12))) - (13 . #f) - (10 + (next-group . #f) + (enter-block . #s(stx-boundary ((s0 @@ -3982,7 +4145,7 @@ s1 (s2 () (s4 () () (s15 s10 (s16 (s5))))) (s17 #f #:opaque s14))))))) - (24 + (block-renames #s(stx-boundary ((s0 s1 @@ -4004,8 +4167,8 @@ s1 (s2 () (s4 () () (s15 s10 (s16 (s5))))) (s17 #f #:opaque s14))))))) - (3 . #f) - (126 + (next . #f) + (enter-check . #s(stx-boundary (s0 @@ -4017,7 +4180,7 @@ s1 (s2 () (s4 () () (s15 s10 (s16 (s5))))) (s17 #f #:opaque s14)))))) - (127 + (exit-check . #s(stx-boundary (s0 @@ -4029,7 +4192,7 @@ s1 (s2 () (s4 () () (s15 s10 (s16 (s5))))) (s17 #f #:opaque s14)))))) - (12 + (block->list . #s(stx-boundary ((s0 @@ -4041,7 +4204,7 @@ s1 (s2 () (s4 () () (s15 s10 (s16 (s5))))) (s17 #f #:opaque s14))))))) - (4 + (enter-list . #s(stx-boundary ((s0 @@ -4053,8 +4216,8 @@ s1 (s2 () (s4 () () (s15 s10 (s16 (s5))))) (s17 #f #:opaque s14))))))) - (3 . #f) - (0 + (next . #f) + (visit . #s(stx-boundary (s0 @@ -4066,8 +4229,8 @@ s1 (s2 () (s4 () () (s15 s10 (s16 (s5))))) (s17 #f #:opaque s14)))))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 @@ -4079,179 +4242,183 @@ s1 (s2 () (s4 () () (s15 s10 (s16 (s5))))) (s17 #f #:opaque s14)))))) - (105 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 + (prim-if . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary (s0 ((s1 s2)) (s3 (((s4) (s5 0 (s6 s1)))) () (s7 (s8 s9 s4)))))) - (1 . #s(stx-boundary s0)) - (8 + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 ((s1 s2)) (s3 (((s4) (s5 0 (s6 s1)))) () (s7 (s8 s9 s4)))))) - (21 + (macro-pre-x . #s(stx-boundary (s0 ((s1 s2)) (s3 (((s4) (s5 0 (s6 s1)))) () (s7 (s8 s9 s4)))))) - (22 + (macro-post-x #s(stx-boundary (s0 (((s1) s2)) (s3 (((s4) (s5 0 (s6 s1)))) () (s7 (s8 s9 s4))))) . #s(stx-boundary (s10 ((s1 s2)) (s3 (((s4) (s5 0 (s6 s1)))) () (s7 (s8 s9 s4)))))) - (9 + (exit-macro . #s(stx-boundary (s0 (((s1) s2)) (s3 (((s4) (s5 0 (s6 s1)))) () (s7 (s8 s9 s4)))))) - (0 + (visit . #s(stx-boundary (s0 (((s1) s2)) (s3 (((s4) (s5 0 (s6 s1)))) () (s7 (s8 s9 s4)))))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (((s1) s2)) (s3 (((s4) (s5 0 (s6 s1)))) () (s7 (s8 s9 s4)))))) - (112 . #f) - (16 + (prim-let-values . #f) + (let-renames (#s(stx-boundary ((s0) s1))) . #s(stx-boundary ((s2 (((s3) (s4 0 (s5 s0)))) () (s6 (s7 s8 s3)))))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (13 . #f) - (10 + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next-group . #f) + (enter-block . #s(stx-boundary ((s0 (((s1) (s2 0 (s3 s4)))) () (s5 (s6 s7 s1)))))) - (24 + (block-renames #s(stx-boundary ((s0 (((s1) (s2 0 (s3 s4)))) () (s5 (s6 s7 s1))))) . #s(stx-boundary ((s0 (((s1) (s2 0 (s3 s4)))) () (s5 (s6 s7 s1)))))) - (3 . #f) - (126 + (next . #f) + (enter-check . #s(stx-boundary (s0 (((s1) (s2 0 (s3 s4)))) () (s5 (s6 s7 s1))))) - (127 + (exit-check . #s(stx-boundary (s0 (((s1) (s2 0 (s3 s4)))) () (s5 (s6 s7 s1))))) - (12 + (block->list . #s(stx-boundary ((s0 (((s1) (s2 0 (s3 s4)))) () (s5 (s6 s7 s1)))))) - (4 + (enter-list . #s(stx-boundary ((s0 (((s1) (s2 0 (s3 s4)))) () (s5 (s6 s7 s1)))))) - (3 . #f) - (0 . #s(stx-boundary (s0 (((s1) (s2 0 (s3 s4)))) () (s5 (s6 s7 s1))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (((s1) (s2 0 (s3 s4)))) () (s5 (s6 s7 s1))))) - (114 . #f) - (19 + (next . #f) + (visit + . + #s(stx-boundary (s0 (((s1) (s2 0 (s3 s4)))) () (s5 (s6 s7 s1))))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary (s0 (((s1) (s2 0 (s3 s4)))) () (s5 (s6 s7 s1))))) + (prim-letrec-syntaxes+values . #f) + (letrec-syntaxes-renames (#s(stx-boundary ((s0) (s1 0 (s2 s3))))) () . #s(stx-boundary ((s4 (s5 s6 s0))))) - (157 . #f) - (3 . #f) - (144 . #f) - (0 . #s(stx-boundary (s0 0 (s1 s2)))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 0 (s2 s3)))) - (6 . #s(stx-boundary (s0 s1 0 (s2 s3)))) - (109 . #f) - (4 . #s(stx-boundary (s0 0 (s1 s2)))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary 0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 0))) - (6 . #s(stx-boundary (s0 . 0))) - (115 . #f) - (7 . #s(stx-boundary (s0 0))) - (2 . #s(stx-boundary (s0 0))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1))) - (118 . #f) - (7 . #s(stx-boundary (s0 s1))) - (2 . #s(stx-boundary (s0 s1))) - (5 . #s(stx-boundary (s0 (s1 0) (s2 s3)))) - (7 . #s(stx-boundary (s0 s1 (s2 0) (s3 s4)))) - (2 . #s(stx-boundary (s0 s1 (s2 0) (s3 s4)))) - (3 . #f) - (145 . #f) - (13 . #f) - (10 . #s(stx-boundary ((s0 (s1 s2 s3))))) - (24 + (prepare-env . #f) + (next . #f) + (enter-bind . #f) + (visit . #s(stx-boundary (s0 0 (s1 s2)))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 0 (s2 s3)))) + (enter-prim . #s(stx-boundary (s0 s1 0 (s2 s3)))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 0 (s1 s2)))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary 0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 0))) + (enter-prim . #s(stx-boundary (s0 . 0))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 0))) + (return . #s(stx-boundary (s0 0))) + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-quote-syntax . #f) + (exit-prim . #s(stx-boundary (s0 s1))) + (return . #s(stx-boundary (s0 s1))) + (exit-list . #s(stx-boundary (s0 (s1 0) (s2 s3)))) + (exit-prim . #s(stx-boundary (s0 s1 (s2 0) (s3 s4)))) + (return . #s(stx-boundary (s0 s1 (s2 0) (s3 s4)))) + (next . #f) + (exit-bind . #f) + (next-group . #f) + (enter-block . #s(stx-boundary ((s0 (s1 s2 s3))))) + (block-renames #s(stx-boundary ((s0 (s1 s2 s3)))) . #s(stx-boundary ((s0 (s1 s2 s3))))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2 s3)))) - (127 . #s(stx-boundary (s0 (s1 s2 s3)))) - (12 . #s(stx-boundary ((s0 (s1 s2 s3))))) - (4 . #s(stx-boundary ((s0 (s1 s2 s3))))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1 s2 s3)))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 (s2 s3 s4)))) - (6 . #s(stx-boundary (s0 s1 (s2 s3 s4)))) - (109 . #f) - (4 . #s(stx-boundary (s0 (s1 s2 s3)))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 s2))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 s2))) - (21 . #s(stx-boundary (s0 s1 s2))) - (153 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (154 . #t) - (22 #s(stx-boundary (s0 s1)) . #s(stx-boundary (s2 s3 s1))) - (9 . #s(stx-boundary (s0 s1))) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1))) - (21 . #s(stx-boundary (s0 s1))) - (153 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (154 . #t) - (22 #s(stx-boundary s0) . #s(stx-boundary (s1 s2))) - (9 . #s(stx-boundary s0)) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0 s1))) - (7 . #s(stx-boundary (s0 s1 s2))) - (2 . #s(stx-boundary (s0 s1 s2))) - (5 . #s(stx-boundary ((s0 s1 s2)))) - (142 . #s(stx-boundary (s0 () (s1 s2 s3)))) - (7 . #s(stx-boundary (s0 () (s1 s2 s3)))) - (2 . #s(stx-boundary (s0 () (s1 s2 s3)))) - (5 . #s(stx-boundary ((s0 () (s1 s2 s3))))) - (7 . #s(stx-boundary (s0 (((s1) s2)) (s0 () (s3 s4 s1))))) - (2 . #s(stx-boundary (s0 (((s1) s2)) (s0 () (s3 s4 s1))))) - (3 . #f) - (0 + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2 s3)))) + (exit-check . #s(stx-boundary (s0 (s1 s2 s3)))) + (block->list . #s(stx-boundary ((s0 (s1 s2 s3))))) + (enter-list . #s(stx-boundary ((s0 (s1 s2 s3))))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 s2 s3)))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 (s2 s3 s4)))) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3 s4)))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 (s1 s2 s3)))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary (s0 s1 s2))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 s2))) + (macro-pre-x . #s(stx-boundary (s0 s1 s2))) + (local-value . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (local-value-result . #t) + (macro-post-x #s(stx-boundary (s0 s1)) . #s(stx-boundary (s2 s3 s1))) + (exit-macro . #s(stx-boundary (s0 s1))) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1))) + (macro-pre-x . #s(stx-boundary (s0 s1))) + (local-value . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (local-value-result . #t) + (macro-post-x #s(stx-boundary s0) . #s(stx-boundary (s1 s2))) + (exit-macro . #s(stx-boundary s0)) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0 s1))) + (exit-prim . #s(stx-boundary (s0 s1 s2))) + (return . #s(stx-boundary (s0 s1 s2))) + (exit-list . #s(stx-boundary ((s0 s1 s2)))) + (tag . #s(stx-boundary (s0 () (s1 s2 s3)))) + (exit-prim . #s(stx-boundary (s0 () (s1 s2 s3)))) + (return . #s(stx-boundary (s0 () (s1 s2 s3)))) + (exit-list . #s(stx-boundary ((s0 () (s1 s2 s3))))) + (exit-prim . #s(stx-boundary (s0 (((s1) s2)) (s0 () (s3 s4 s1))))) + (return . #s(stx-boundary (s0 (((s1) s2)) (s0 () (s3 s4 s1))))) + (next . #f) + (visit . #s(stx-boundary (s0 @@ -4260,8 +4427,8 @@ s1 (s0 () (s7 () () (s8 s9 (s10 (s11))))) (s12 #f #:opaque s5))))) - (1 . #s(stx-boundary s0)) - (8 + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 @@ -4270,7 +4437,7 @@ s1 (s0 () (s7 () () (s8 s9 (s10 (s11))))) (s12 #f #:opaque s5))))) - (21 + (macro-pre-x . #s(stx-boundary (s0 @@ -4279,7 +4446,7 @@ s1 (s0 () (s7 () () (s8 s9 (s10 (s11))))) (s12 #f #:opaque s5))))) - (22 + (macro-post-x #s(stx-boundary (s0 (((s1) ((s2 (s3) s4) s5))) @@ -4295,7 +4462,7 @@ s1 (s7 () (s8 () () (s9 s10 (s11 (s12))))) (s13 #f #:opaque s5))))) - (9 + (exit-macro . #s(stx-boundary (s0 @@ -4304,7 +4471,7 @@ s1 (s7 () (s8 () () (s9 s10 (s11 (s12))))) (s13 #f #:opaque s5))))) - (0 + (visit . #s(stx-boundary (s0 @@ -4313,8 +4480,8 @@ s1 (s7 () (s8 () () (s9 s10 (s11 (s12))))) (s13 #f #:opaque s5))))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 @@ -4323,8 +4490,8 @@ s1 (s7 () (s8 () () (s9 s10 (s11 (s12))))) (s13 #f #:opaque s5))))) - (112 . #f) - (16 + (prim-let-values . #f) + (let-renames (#s(stx-boundary ((s0) ((s1 (s2) s3) s4)))) . #s(stx-boundary @@ -4332,51 +4499,51 @@ s0 (s6 () (s7 () () (s8 s9 (s10 (s11))))) (s12 #f #:opaque s4))))) - (3 . #f) - (0 . #s(stx-boundary ((s0 (s1) s2) s3))) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 (s1 (s2) s3) s4))) - (6 . #s(stx-boundary (s0 (s1 (s2) s3) s4))) - (109 . #f) - (4 . #s(stx-boundary ((s0 (s1) s2) s3))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1) s2))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) s2))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary (s1))) - (10 . #s(stx-boundary (s0))) - (24 #s(stx-boundary (s0)) . #s(stx-boundary (s0))) - (3 . #f) - (126 . #s(stx-boundary s0)) - (127 . #s(stx-boundary s0)) - (12 . #s(stx-boundary (s0))) - (4 . #s(stx-boundary (s0))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0))) - (7 . #s(stx-boundary (s0 (s1) s2))) - (2 . #s(stx-boundary (s0 (s1) s2))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary ((s0 (s1) s2) s3))) - (7 . #s(stx-boundary (s0 (s1 (s2) s3) s4))) - (2 . #s(stx-boundary (s0 (s1 (s2) s3) s4))) - (13 . #f) - (10 + (next . #f) + (visit . #s(stx-boundary ((s0 (s1) s2) s3))) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 (s1 (s2) s3) s4))) + (enter-prim . #s(stx-boundary (s0 (s1 (s2) s3) s4))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary ((s0 (s1) s2) s3))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1) s2))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) s2))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary (s1))) + (enter-block . #s(stx-boundary (s0))) + (block-renames #s(stx-boundary (s0)) . #s(stx-boundary (s0))) + (next . #f) + (enter-check . #s(stx-boundary s0)) + (exit-check . #s(stx-boundary s0)) + (block->list . #s(stx-boundary (s0))) + (enter-list . #s(stx-boundary (s0))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0))) + (exit-prim . #s(stx-boundary (s0 (s1) s2))) + (return . #s(stx-boundary (s0 (s1) s2))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary ((s0 (s1) s2) s3))) + (exit-prim . #s(stx-boundary (s0 (s1 (s2) s3) s4))) + (return . #s(stx-boundary (s0 (s1 (s2) s3) s4))) + (next-group . #f) + (enter-block . #s(stx-boundary ((s0 s1 (s2 () (s3 () () (s4 s5 (s6 (s7))))) (s8 #f #:opaque s9))))) - (24 + (block-renames #s(stx-boundary ((s0 s1 (s2 () (s3 () () (s4 s5 (s6 (s7))))) (s8 #f #:opaque s9)))) . @@ -4385,182 +4552,182 @@ s1 (s2 () (s3 () () (s4 s5 (s6 (s7))))) (s8 #f #:opaque s9))))) - (3 . #f) - (126 + (next . #f) + (enter-check . #s(stx-boundary (s0 s1 (s2 () (s3 () () (s4 s5 (s6 (s7))))) (s8 #f #:opaque s9)))) - (127 + (exit-check . #s(stx-boundary (s0 s1 (s2 () (s3 () () (s4 s5 (s6 (s7))))) (s8 #f #:opaque s9)))) - (12 + (block->list . #s(stx-boundary ((s0 s1 (s2 () (s3 () () (s4 s5 (s6 (s7))))) (s8 #f #:opaque s9))))) - (4 + (enter-list . #s(stx-boundary ((s0 s1 (s2 () (s3 () () (s4 s5 (s6 (s7))))) (s8 #f #:opaque s9))))) - (3 . #f) - (0 + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 () (s3 () () (s4 s5 (s6 (s7))))) (s8 #f #:opaque s9)))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 () (s3 () () (s4 s5 (s6 (s7))))) (s8 #f #:opaque s9)))) - (105 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary (s0 () (s1 () () (s2 s3 (s4 (s5))))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 () (s1 () () (s2 s3 (s4 (s5))))))) - (21 . #s(stx-boundary (s0 () (s1 () () (s2 s3 (s4 (s5))))))) - (22 + (prim-if . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary (s0 () (s1 () () (s2 s3 (s4 (s5))))))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 () (s1 () () (s2 s3 (s4 (s5))))))) + (macro-pre-x . #s(stx-boundary (s0 () (s1 () () (s2 s3 (s4 (s5))))))) + (macro-post-x #s(stx-boundary (s0 () (s1 () () (s2 s3 (s4 (s5)))))) . #s(stx-boundary (s6 () (s1 () () (s2 s3 (s4 (s5))))))) - (9 . #s(stx-boundary (s0 () (s1 () () (s2 s3 (s4 (s5))))))) - (0 . #s(stx-boundary (s0 () (s1 () () (s2 s3 (s4 (s5))))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 () (s1 () () (s2 s3 (s4 (s5))))))) - (112 . #f) - (16 () . #s(stx-boundary ((s0 () () (s1 s2 (s3 (s4))))))) - (13 . #f) - (10 . #s(stx-boundary ((s0 () () (s1 s2 (s3 (s4))))))) - (24 + (exit-macro . #s(stx-boundary (s0 () (s1 () () (s2 s3 (s4 (s5))))))) + (visit . #s(stx-boundary (s0 () (s1 () () (s2 s3 (s4 (s5))))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 () (s1 () () (s2 s3 (s4 (s5))))))) + (prim-let-values . #f) + (let-renames () . #s(stx-boundary ((s0 () () (s1 s2 (s3 (s4))))))) + (next-group . #f) + (enter-block . #s(stx-boundary ((s0 () () (s1 s2 (s3 (s4))))))) + (block-renames #s(stx-boundary ((s0 () () (s1 s2 (s3 (s4)))))) . #s(stx-boundary ((s0 () () (s1 s2 (s3 (s4))))))) - (3 . #f) - (126 . #s(stx-boundary (s0 () () (s1 s2 (s3 (s4)))))) - (127 . #s(stx-boundary (s0 () () (s1 s2 (s3 (s4)))))) - (12 . #s(stx-boundary ((s0 () () (s1 s2 (s3 (s4))))))) - (4 . #s(stx-boundary ((s0 () () (s1 s2 (s3 (s4))))))) - (3 . #f) - (0 . #s(stx-boundary (s0 () () (s1 s2 (s3 (s4)))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 () () (s1 s2 (s3 (s4)))))) - (114 . #f) - (19 () () . #s(stx-boundary ((s0 s1 (s2 (s3)))))) - (157 . #f) - (13 . #f) - (10 . #s(stx-boundary ((s0 s1 (s2 (s3)))))) - (24 + (next . #f) + (enter-check . #s(stx-boundary (s0 () () (s1 s2 (s3 (s4)))))) + (exit-check . #s(stx-boundary (s0 () () (s1 s2 (s3 (s4)))))) + (block->list . #s(stx-boundary ((s0 () () (s1 s2 (s3 (s4))))))) + (enter-list . #s(stx-boundary ((s0 () () (s1 s2 (s3 (s4))))))) + (next . #f) + (visit . #s(stx-boundary (s0 () () (s1 s2 (s3 (s4)))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 () () (s1 s2 (s3 (s4)))))) + (prim-letrec-syntaxes+values . #f) + (letrec-syntaxes-renames () () . #s(stx-boundary ((s0 s1 (s2 (s3)))))) + (prepare-env . #f) + (next-group . #f) + (enter-block . #s(stx-boundary ((s0 s1 (s2 (s3)))))) + (block-renames #s(stx-boundary ((s0 s1 (s2 (s3))))) . #s(stx-boundary ((s0 s1 (s2 (s3)))))) - (3 . #f) - (126 . #s(stx-boundary (s0 s1 (s2 (s3))))) - (127 . #s(stx-boundary (s0 s1 (s2 (s3))))) - (12 . #s(stx-boundary ((s0 s1 (s2 (s3)))))) - (4 . #s(stx-boundary ((s0 s1 (s2 (s3)))))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 (s3))))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 s2 (s3 (s4))))) - (6 . #s(stx-boundary (s0 s1 s2 (s3 (s4))))) - (109 . #f) - (4 . #s(stx-boundary (s0 s1 (s2 (s3))))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1)))) - (117 . #f) - (7 . #s(stx-boundary (s0 (s1)))) - (2 . #s(stx-boundary (s0 (s1)))) - (5 . #s(stx-boundary (s0 s1 (s2 (s3))))) - (7 . #s(stx-boundary (s0 s1 s2 (s3 (s4))))) - (2 . #s(stx-boundary (s0 s1 s2 (s3 (s4))))) - (5 . #s(stx-boundary ((s0 s1 s2 (s3 (s4)))))) - (142 . #s(stx-boundary (s0 () (s1 s2 s3 (s4 (s5)))))) - (7 . #s(stx-boundary (s0 () (s1 s2 s3 (s4 (s5)))))) - (2 . #s(stx-boundary (s0 () (s1 s2 s3 (s4 (s5)))))) - (5 . #s(stx-boundary ((s0 () (s1 s2 s3 (s4 (s5))))))) - (7 . #s(stx-boundary (s0 () (s0 () (s1 s2 s3 (s4 (s5))))))) - (2 . #s(stx-boundary (s0 () (s0 () (s1 s2 s3 (s4 (s5))))))) - (3 . #f) - (0 . #s(stx-boundary (s0 #f #:opaque s1))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 #f #:opaque s2))) - (6 . #s(stx-boundary (s0 s1 #f #:opaque s2))) - (109 . #f) - (4 . #s(stx-boundary (s0 #f #:opaque s1))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary #f)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . #f))) - (6 . #s(stx-boundary (s0 . #f))) - (115 . #f) - (7 . #s(stx-boundary (s0 #f))) - (2 . #s(stx-boundary (s0 #f))) - (3 . #f) - (0 . #s(stx-boundary #:opaque)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . #:opaque))) - (6 . #s(stx-boundary (s0 . #:opaque))) - (115 . #f) - (7 . #s(stx-boundary (s0 #:opaque))) - (2 . #s(stx-boundary (s0 #:opaque))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0 (s1 #f) (s1 #:opaque) s2))) - (7 . #s(stx-boundary (s0 s1 (s2 #f) (s2 #:opaque) s3))) - (2 . #s(stx-boundary (s0 s1 (s2 #f) (s2 #:opaque) s3))) - (7 + (next . #f) + (enter-check . #s(stx-boundary (s0 s1 (s2 (s3))))) + (exit-check . #s(stx-boundary (s0 s1 (s2 (s3))))) + (block->list . #s(stx-boundary ((s0 s1 (s2 (s3)))))) + (enter-list . #s(stx-boundary ((s0 s1 (s2 (s3)))))) + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 (s3))))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 s2 (s3 (s4))))) + (enter-prim . #s(stx-boundary (s0 s1 s2 (s3 (s4))))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 s1 (s2 (s3))))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary (s0 (s1)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1)))) + (prim-quote . #f) + (exit-prim . #s(stx-boundary (s0 (s1)))) + (return . #s(stx-boundary (s0 (s1)))) + (exit-list . #s(stx-boundary (s0 s1 (s2 (s3))))) + (exit-prim . #s(stx-boundary (s0 s1 s2 (s3 (s4))))) + (return . #s(stx-boundary (s0 s1 s2 (s3 (s4))))) + (exit-list . #s(stx-boundary ((s0 s1 s2 (s3 (s4)))))) + (tag . #s(stx-boundary (s0 () (s1 s2 s3 (s4 (s5)))))) + (exit-prim . #s(stx-boundary (s0 () (s1 s2 s3 (s4 (s5)))))) + (return . #s(stx-boundary (s0 () (s1 s2 s3 (s4 (s5)))))) + (exit-list . #s(stx-boundary ((s0 () (s1 s2 s3 (s4 (s5))))))) + (exit-prim . #s(stx-boundary (s0 () (s0 () (s1 s2 s3 (s4 (s5))))))) + (return . #s(stx-boundary (s0 () (s0 () (s1 s2 s3 (s4 (s5))))))) + (next . #f) + (visit . #s(stx-boundary (s0 #f #:opaque s1))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 #f #:opaque s2))) + (enter-prim . #s(stx-boundary (s0 s1 #f #:opaque s2))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 #f #:opaque s1))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary #f)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . #f))) + (enter-prim . #s(stx-boundary (s0 . #f))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 #f))) + (return . #s(stx-boundary (s0 #f))) + (next . #f) + (visit . #s(stx-boundary #:opaque)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . #:opaque))) + (enter-prim . #s(stx-boundary (s0 . #:opaque))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 #:opaque))) + (return . #s(stx-boundary (s0 #:opaque))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0 (s1 #f) (s1 #:opaque) s2))) + (exit-prim . #s(stx-boundary (s0 s1 (s2 #f) (s2 #:opaque) s3))) + (return . #s(stx-boundary (s0 s1 (s2 #f) (s2 #:opaque) s3))) + (exit-prim . #s(stx-boundary (s0 s1 (s2 () (s2 () (s3 s4 s5 (s6 (s7))))) (s3 s8 (s6 #f) (s6 #:opaque) s9)))) - (2 + (return . #s(stx-boundary (s0 s1 (s2 () (s2 () (s3 s4 s5 (s6 (s7))))) (s3 s8 (s6 #f) (s6 #:opaque) s9)))) - (5 + (exit-list . #s(stx-boundary ((s0 s1 (s2 () (s2 () (s3 s4 s5 (s6 (s7))))) (s3 s8 (s6 #f) (s6 #:opaque) s9))))) - (7 + (exit-prim . #s(stx-boundary (s0 @@ -4569,7 +4736,7 @@ s1 (s0 () (s0 () (s2 s8 s9 (s10 (s11))))) (s2 s12 (s10 #f) (s10 #:opaque) s6))))) - (2 + (return . #s(stx-boundary (s0 @@ -4578,7 +4745,7 @@ s1 (s0 () (s0 () (s2 s8 s9 (s10 (s11))))) (s2 s12 (s10 #f) (s10 #:opaque) s6))))) - (7 + (exit-prim . #s(stx-boundary (s0 @@ -4590,7 +4757,7 @@ s1 (s2 () (s2 () (s4 s10 s11 (s12 (s13))))) (s4 s14 (s12 #f) (s12 #:opaque) s9)))))) - (2 + (return . #s(stx-boundary (s0 @@ -4602,7 +4769,7 @@ s1 (s2 () (s2 () (s4 s10 s11 (s12 (s13))))) (s4 s14 (s12 #f) (s12 #:opaque) s9)))))) - (5 + (exit-list . #s(stx-boundary ((s0 @@ -4614,7 +4781,7 @@ s1 (s2 () (s2 () (s4 s10 s11 (s12 (s13))))) (s4 s14 (s12 #f) (s12 #:opaque) s9))))))) - (7 + (exit-prim . #s(stx-boundary (s0 @@ -4648,7 +4815,7 @@ s1 (s0 () (s0 () (s2 s16 s17 (s12 (s18))))) (s2 s19 (s12 #f) (s12 #:opaque) s13))))))) - (2 + (return . #s(stx-boundary (s0 @@ -4682,7 +4849,7 @@ s1 (s0 () (s0 () (s2 s16 s17 (s12 (s18))))) (s2 s19 (s12 #f) (s12 #:opaque) s13))))))) - (5 + (exit-list . #s(stx-boundary ((s0 @@ -4716,7 +4883,7 @@ s1 (s0 () (s0 () (s2 s16 s17 (s12 (s18))))) (s2 s19 (s12 #f) (s12 #:opaque) s13)))))))) - (7 + (exit-prim . #s(stx-boundary (s0 @@ -4755,7 +4922,7 @@ s3 (s0 () (s0 () (s4 s17 s2 (s14 (s18))))) (s4 s19 (s14 #f) (s14 #:opaque) s1)))))))) - (2 + (return . #s(stx-boundary (s0 @@ -4794,7 +4961,7 @@ s3 (s0 () (s0 () (s4 s17 s2 (s14 (s18))))) (s4 s19 (s14 #f) (s14 #:opaque) s1)))))))) - (5 + (exit-list . #s(stx-boundary ((s0 @@ -4833,7 +5000,7 @@ s3 (s0 () (s0 () (s4 s17 s2 (s14 (s18))))) (s4 s19 (s14 #f) (s14 #:opaque) s1))))))))) - (7 + (exit-prim . #s(stx-boundary (s0 @@ -4874,7 +5041,7 @@ s4 (s2 () (s2 () (s5 s17 s1 (s14 (s18))))) (s5 s19 (s14 #f) (s14 #:opaque) s3))))))))) - (2 + (return . #s(stx-boundary (s0 @@ -4915,19 +5082,19 @@ s4 (s2 () (s2 () (s5 s17 s1 (s14 (s18))))) (s5 s19 (s14 #f) (s14 #:opaque) s3))))))))) - (3 . #f) - (145 . #f) - (3 . #f) - (126 . #s(stx-boundary (s0 5))) - (0 . #s(stx-boundary (s0 5))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 5))) - (21 . #s(stx-boundary (s0 5))) - (22 #s(stx-boundary 5) . #s(stx-boundary (s0 5))) - (9 . #s(stx-boundary 5)) - (2 . #s(stx-boundary 5)) - (127 . #s(stx-boundary 5)) - (14 + (next . #f) + (exit-bind . #f) + (next . #f) + (enter-check . #s(stx-boundary (s0 5))) + (visit . #s(stx-boundary (s0 5))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 5))) + (macro-pre-x . #s(stx-boundary (s0 5))) + (macro-post-x #s(stx-boundary 5) . #s(stx-boundary (s0 5))) + (exit-macro . #s(stx-boundary 5)) + (return . #s(stx-boundary 5)) + (exit-check . #s(stx-boundary 5)) + (block->letrec #s(stx-boundary (s0 (((s1) @@ -4944,7 +5111,7 @@ (s7 (s11 s3 (s12 (s8)))))))) () 5))) - (0 + (visit . #s(stx-boundary (s0 @@ -4962,8 +5129,8 @@ (s7 (s11 s3 (s12 (s8)))))))) () 5))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 @@ -4981,8 +5148,8 @@ (s7 (s11 s3 (s12 (s8)))))))) () 5))) - (114 . #f) - (19 + (prim-letrec-syntaxes+values . #f) + (letrec-syntaxes-renames (#s(stx-boundary ((s0) (s1 @@ -4999,254 +5166,274 @@ () . #s(stx-boundary (5))) - (157 . #f) - (13 . #f) - (4 . #s(stx-boundary (5))) - (3 . #f) - (0 . #s(stx-boundary 5)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 5))) - (6 . #s(stx-boundary (s0 . 5))) - (115 . #f) - (7 . #s(stx-boundary (s0 5))) - (2 . #s(stx-boundary (s0 5))) - (5 . #s(stx-boundary ((s0 5)))) - (142 . #s(stx-boundary (s0 () (s1 5)))) - (7 . #s(stx-boundary (s0 () (s1 5)))) - (2 . #s(stx-boundary (s0 () (s1 5)))) - (7 . #s(stx-boundary (s0 () (s0 () (s1 5))))) - (2 . #s(stx-boundary (s0 () (s0 () (s1 5))))) - (7 . #s(stx-boundary (s0 (s1 () (s1 () (s2 5)))))) - (2 . #s(stx-boundary (s0 (s1 () (s1 () (s2 5)))))))) + (prepare-env . #f) + (next-group . #f) + (enter-list . #s(stx-boundary (5))) + (next . #f) + (visit . #s(stx-boundary 5)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 5))) + (enter-prim . #s(stx-boundary (s0 . 5))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 5))) + (return . #s(stx-boundary (s0 5))) + (exit-list . #s(stx-boundary ((s0 5)))) + (tag . #s(stx-boundary (s0 () (s1 5)))) + (exit-prim . #s(stx-boundary (s0 () (s1 5)))) + (return . #s(stx-boundary (s0 () (s1 5)))) + (exit-prim . #s(stx-boundary (s0 () (s0 () (s1 5))))) + (return . #s(stx-boundary (s0 () (s0 () (s1 5))))) + (exit-prim . #s(stx-boundary (s0 (s1 () (s1 () (s2 5)))))) + (return . #s(stx-boundary (s0 (s1 () (s1 () (s2 5)))))))) ((let () (define (ok x) (second x)) (define (second y) 8) (ok 5)) . - ((141 . #f) - (0 + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 s4)) (s2 (s5 s6) 8) (s3 5))))) - (1 . #s(stx-boundary s0)) - (6 + (enter-check . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 s4)) (s2 (s5 s6) 8) (s3 5))))) - (138 . #f) - (0 + (exit-check + . + #s(stx-boundary + (s0 (s1 () (s2 (s3 s4) (s5 s4)) (s2 (s5 s6) 8) (s3 5))))) + (visit + . + #s(stx-boundary + (s0 (s1 () (s2 (s3 s4) (s5 s4)) (s2 (s5 s6) 8) (s3 5))))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary + (s0 (s1 () (s2 (s3 s4) (s5 s4)) (s2 (s5 s6) 8) (s3 5))))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 s3)) (s1 (s4 s5) 8) (s2 5)))) - (1 . #s(stx-boundary s0)) - (8 + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 s3)) (s1 (s4 s5) 8) (s2 5)))) - (21 + (macro-pre-x . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 s3)) (s1 (s4 s5) 8) (s2 5)))) - (22 + (macro-post-x #s(stx-boundary (s0 () (s1 (s2 s3) (s4 s3)) (s1 (s4 s5) 8) (s2 5))) . #s(stx-boundary (s6 () (s1 (s2 s3) (s4 s3)) (s1 (s4 s5) 8) (s2 5)))) - (9 + (exit-macro . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 s3)) (s1 (s4 s5) 8) (s2 5)))) - (0 + (visit . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 s3)) (s1 (s4 s5) 8) (s2 5)))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 s3)) (s1 (s4 s5) 8) (s2 5)))) - (112 . #f) - (16 () . #s(stx-boundary ((s0 (s1 s2) (s3 s2)) (s0 (s3 s4) 8) (s1 5)))) - (13 . #f) - (10 . #s(stx-boundary ((s0 (s1 s2) (s3 s2)) (s0 (s3 s4) 8) (s1 5)))) - (24 + (prim-let-values . #f) + (let-renames + () + . + #s(stx-boundary ((s0 (s1 s2) (s3 s2)) (s0 (s3 s4) 8) (s1 5)))) + (next-group . #f) + (enter-block + . + #s(stx-boundary ((s0 (s1 s2) (s3 s2)) (s0 (s3 s4) 8) (s1 5)))) + (block-renames #s(stx-boundary ((s0 (s1 s2) (s3 s2)) (s0 (s3 s4) 8) (s1 5))) . #s(stx-boundary ((s0 (s1 s2) (s3 s2)) (s0 (s3 s4) 8) (s1 5)))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (21 . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (22 + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3)))) . #s(stx-boundary (s0 (s1 s3) (s4 s3)))) - (9 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (2 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (0 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (22 + (exit-macro . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (return . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (visit . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3)))) . #s(stx-boundary (s5 s1 (s2 (s3) (s4 s3))))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (104 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) (s3 s2))))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) 8))) - (0 . #s(stx-boundary (s0 (s1 s2) 8))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) 8))) - (21 . #s(stx-boundary (s0 (s1 s2) 8))) - (22 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (prim-define-values . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) (s3 s2))))) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) 8))) + (visit . #s(stx-boundary (s0 (s1 s2) 8))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) 8))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) 8))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 (s3) 8))) . #s(stx-boundary (s0 (s1 s3) 8))) - (9 . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) - (2 . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) - (0 . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) - (22 + (exit-macro . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) + (return . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) + (visit . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) 8))) . #s(stx-boundary (s4 s1 (s2 (s3) 8)))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (104 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) 8)))) - (3 . #f) - (126 . #s(stx-boundary (s0 5))) - (127 . #s(stx-boundary (s0 5))) - (14 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (prim-define-values . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) 8)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 5))) + (exit-check . #s(stx-boundary (s0 5))) + (block->letrec #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 s3))) ((s4) (s2 (s5) 8))) (s1 5)))) - (0 + (visit . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 s3))) ((s4) (s2 (s5) 8))) (s1 5)))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 s3))) ((s4) (s2 (s5) 8))) (s1 5)))) - (113 . #f) - (16 + (prim-letrec-values . #f) + (let-renames (#s(stx-boundary ((s0) (s1 (s2) (s3 s2)))) #s(stx-boundary ((s3) (s1 (s4) 8)))) . #s(stx-boundary ((s0 5)))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 s1)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 s1)))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary ((s1 s0)))) - (10 . #s(stx-boundary ((s0 s1)))) - (24 #s(stx-boundary ((s0 s1))) . #s(stx-boundary ((s0 s1)))) - (3 . #f) - (126 . #s(stx-boundary (s0 s1))) - (127 . #s(stx-boundary (s0 s1))) - (12 . #s(stx-boundary ((s0 s1)))) - (4 . #s(stx-boundary ((s0 s1)))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 s2))) - (8 . #s(stx-boundary (s0 s1 s2))) - (21 . #s(stx-boundary (s0 s1 s2))) - (22 #s(stx-boundary (s0 s1 s2)) . #s(stx-boundary (s0 s1 s2))) - (9 . #s(stx-boundary (s0 s1 s2))) - (0 . #s(stx-boundary (s0 s1 s2))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 s2))) - (109 . #f) - (4 . #s(stx-boundary (s0 s1))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0 s1))) - (7 . #s(stx-boundary (s0 s1 s2))) - (2 . #s(stx-boundary (s0 s1 s2))) - (5 . #s(stx-boundary ((s0 s1 s2)))) - (7 . #s(stx-boundary (s0 (s1) (s2 s3 s1)))) - (2 . #s(stx-boundary (s0 (s1) (s2 s3 s1)))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1) 8))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) 8))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary (8))) - (10 . #s(stx-boundary (8))) - (24 #s(stx-boundary (8)) . #s(stx-boundary (8))) - (3 . #f) - (126 . #s(stx-boundary 8)) - (127 . #s(stx-boundary 8)) - (12 . #s(stx-boundary (8))) - (4 . #s(stx-boundary (8))) - (3 . #f) - (0 . #s(stx-boundary 8)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 8))) - (6 . #s(stx-boundary (s0 . 8))) - (115 . #f) - (7 . #s(stx-boundary (s0 8))) - (2 . #s(stx-boundary (s0 8))) - (5 . #s(stx-boundary ((s0 8)))) - (7 . #s(stx-boundary (s0 (s1) (s2 8)))) - (2 . #s(stx-boundary (s0 (s1) (s2 8)))) - (13 . #f) - (4 . #s(stx-boundary ((s0 5)))) - (3 . #f) - (0 . #s(stx-boundary (s0 5))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 5))) - (8 . #s(stx-boundary (s0 s1 5))) - (21 . #s(stx-boundary (s0 s1 5))) - (22 #s(stx-boundary (s0 s1 5)) . #s(stx-boundary (s0 s1 5))) - (9 . #s(stx-boundary (s0 s1 5))) - (0 . #s(stx-boundary (s0 s1 5))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 5))) - (109 . #f) - (4 . #s(stx-boundary (s0 5))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary 5)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 5))) - (6 . #s(stx-boundary (s0 . 5))) - (115 . #f) - (7 . #s(stx-boundary (s0 5))) - (2 . #s(stx-boundary (s0 5))) - (5 . #s(stx-boundary (s0 (s1 5)))) - (7 . #s(stx-boundary (s0 s1 (s2 5)))) - (2 . #s(stx-boundary (s0 s1 (s2 5)))) - (5 . #s(stx-boundary ((s0 s1 (s2 5))))) - (7 + (next . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 s1)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 s1)))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary ((s1 s0)))) + (enter-block . #s(stx-boundary ((s0 s1)))) + (block-renames #s(stx-boundary ((s0 s1))) . #s(stx-boundary ((s0 s1)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 s1))) + (exit-check . #s(stx-boundary (s0 s1))) + (block->list . #s(stx-boundary ((s0 s1)))) + (enter-list . #s(stx-boundary ((s0 s1)))) + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 s2))) + (enter-macro . #s(stx-boundary (s0 s1 s2))) + (macro-pre-x . #s(stx-boundary (s0 s1 s2))) + (macro-post-x + #s(stx-boundary (s0 s1 s2)) + . + #s(stx-boundary (s0 s1 s2))) + (exit-macro . #s(stx-boundary (s0 s1 s2))) + (visit . #s(stx-boundary (s0 s1 s2))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 s2))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0 s1))) + (exit-prim . #s(stx-boundary (s0 s1 s2))) + (return . #s(stx-boundary (s0 s1 s2))) + (exit-list . #s(stx-boundary ((s0 s1 s2)))) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 s3 s1)))) + (return . #s(stx-boundary (s0 (s1) (s2 s3 s1)))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1) 8))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) 8))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary (8))) + (enter-block . #s(stx-boundary (8))) + (block-renames #s(stx-boundary (8)) . #s(stx-boundary (8))) + (next . #f) + (enter-check . #s(stx-boundary 8)) + (exit-check . #s(stx-boundary 8)) + (block->list . #s(stx-boundary (8))) + (enter-list . #s(stx-boundary (8))) + (next . #f) + (visit . #s(stx-boundary 8)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 8))) + (enter-prim . #s(stx-boundary (s0 . 8))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 8))) + (return . #s(stx-boundary (s0 8))) + (exit-list . #s(stx-boundary ((s0 8)))) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 8)))) + (return . #s(stx-boundary (s0 (s1) (s2 8)))) + (next-group . #f) + (enter-list . #s(stx-boundary ((s0 5)))) + (next . #f) + (visit . #s(stx-boundary (s0 5))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 5))) + (enter-macro . #s(stx-boundary (s0 s1 5))) + (macro-pre-x . #s(stx-boundary (s0 s1 5))) + (macro-post-x #s(stx-boundary (s0 s1 5)) . #s(stx-boundary (s0 s1 5))) + (exit-macro . #s(stx-boundary (s0 s1 5))) + (visit . #s(stx-boundary (s0 s1 5))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 5))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 5))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary 5)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 5))) + (enter-prim . #s(stx-boundary (s0 . 5))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 5))) + (return . #s(stx-boundary (s0 5))) + (exit-list . #s(stx-boundary (s0 (s1 5)))) + (exit-prim . #s(stx-boundary (s0 s1 (s2 5)))) + (return . #s(stx-boundary (s0 s1 (s2 5)))) + (exit-list . #s(stx-boundary ((s0 s1 (s2 5))))) + (exit-prim . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 s5 s3))) ((s5) (s2 (s6) (s7 8)))) (s4 s1 (s7 5))))) - (2 + (return . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 s5 s3))) ((s5) (s2 (s6) (s7 8)))) (s4 s1 (s7 5))))) - (7 + (exit-prim . #s(stx-boundary (s0 @@ -5254,7 +5441,7 @@ (s1 (((s2) (s3 (s4) (s5 s6 s4))) ((s6) (s3 (s7) (s8 8)))) (s5 s2 (s8 5)))))) - (2 + (return . #s(stx-boundary (s0 @@ -5262,7 +5449,7 @@ (s1 (((s2) (s3 (s4) (s5 s6 s4))) ((s6) (s3 (s7) (s8 8)))) (s5 s2 (s8 5)))))) - (7 + (exit-prim . #s(stx-boundary (s0 @@ -5271,7 +5458,7 @@ (s2 (((s3) (s4 (s5) (s6 s7 s5))) ((s7) (s4 (s8) (s9 8)))) (s6 s3 (s9 5))))))) - (2 + (return . #s(stx-boundary (s0 @@ -5282,32 +5469,43 @@ (s6 s3 (s9 5))))))))) ((module m racket/base (require racket/list) foldl) . - ((141 . #f) - (0 . #s(stx-boundary (s0 s1 s2 (s3 s4) s5))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 s2 (s3 s4) s5))) - (101 . #f) - (157 . #f) - (142 . #s(stx-boundary (s0 (s1 s2) s3))) - (148 . #s(stx-boundary (s0 (s1 s2) s3))) - (126 . #s(stx-boundary (s0 (s1 s2) s3))) - (0 . #s(stx-boundary (s0 (s1 s2) s3))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) s3))) - (21 . #s(stx-boundary (s0 (s1 s2) s3))) - (22 + ((start-top . #f) + (visit . #s(stx-boundary (s0 s1 s2 (s3 s4) s5))) + (enter-check . #s(stx-boundary (s0 s1 s2 (s3 s4) s5))) + (exit-check . #s(stx-boundary (s0 s1 s2 (s3 s4) s5))) + (visit . #s(stx-boundary (s0 s1 s2 (s3 s4) s5))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 s2 (s3 s4) s5))) + (prim-module . #f) + (prepare-env . #f) + (tag . #s(stx-boundary (s0 (s1 s2) s3))) + (rename-one . #s(stx-boundary (s0 (s1 s2) s3))) + (enter-check . #s(stx-boundary (s0 (s1 s2) s3))) + (visit . #s(stx-boundary (s0 (s1 s2) s3))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) s3))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) s3))) + (macro-post-x #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 s9) s10)) . #s(stx-boundary (s11 (s8 s9) s10))) - (9 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 s9) s10))) - (2 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 s9) s10))) - (0 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 s9) s10))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 s9) s10))) - (21 + (exit-macro . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 s9) s10))) - (22 + (return + . + #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 s9) s10))) + (visit + . + #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 s9) s10))) + (resolve . #s(stx-boundary s0)) + (enter-macro + . + #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 s9) s10))) + (macro-pre-x + . + #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 s9) s10))) + (macro-post-x #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) @@ -5315,302 +5513,321 @@ (s1 s2 s12))) . #s(stx-boundary (s13 (s3 s4 (s5 s6) (s7 s8) (s9 #f)) (s10 s11) s12))) - (9 + (exit-macro . #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s10 s11)) (s1 s2 s12)))) - (2 + (return . #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s10 s11)) (s1 s2 s12)))) - (127 + (exit-check . #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s10 s11)) (s1 s2 s12)))) - (0 + (visit . #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s10 s11)) (s1 s2 s12)))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s10 s11)) (s1 s2 s12)))) - (102 . #f) - (148 + (prim-module-begin . #f) + (rename-one . #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s10 s11)) (s1 s2 s12)))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) - (21 . #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) - (130 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (132 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (141 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (100 . #f) - (7 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (2 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (133 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (131 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (22 + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) + (resolve . #s(stx-boundary s0)) + (enter-macro + . + #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) + (macro-pre-x + . + #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) + (enter-local . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (local-pre . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (start . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (return . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (local-post . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (exit-local . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (macro-post-x #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)))) . #s(stx-boundary (s8 s9 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (9 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (0 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (100 . #f) - (7 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (2 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (148 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (11 + (exit-macro . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (visit . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (return . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (rename-one . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (splice #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f))) #s(stx-boundary (s7 s8 (s9 s10))) #s(stx-boundary (s7 s8 s11))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (100 . #f) - (7 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (2 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (148 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (6 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (158 . #f) - (6 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (101 . #f) - (157 . #f) - (142 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (148 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (127 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (102 . #f) - (148 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1))) - (100 . #f) - (7 . #s(stx-boundary (s0 s1))) - (2 . #s(stx-boundary (s0 s1))) - (148 . #s(stx-boundary (s0 s1))) - (6 . #s(stx-boundary (s0 s1))) - (119 . #f) - (7 . #s(stx-boundary (s0 s1))) - (3 . #f) - (0 . #s(stx-boundary (s0 #f))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 #f))) - (100 . #f) - (7 . #s(stx-boundary (s0 #f))) - (2 . #s(stx-boundary (s0 #f))) - (148 . #s(stx-boundary (s0 #f))) - (135) - (13 . #f) - (3 . #f) - (3 . #f) - (0 . #s(stx-boundary (s0 #f))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 #f))) - (6 . #s(stx-boundary (s0 s1 #f))) - (109 . #f) - (4 . #s(stx-boundary (s0 #f))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary #f)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . #f))) - (6 . #s(stx-boundary (s0 . #f))) - (115 . #f) - (7 . #s(stx-boundary (s0 #f))) - (2 . #s(stx-boundary (s0 #f))) - (5 . #s(stx-boundary (s0 (s1 #f)))) - (7 . #s(stx-boundary (s0 s1 (s2 #f)))) - (2 . #s(stx-boundary (s0 s1 (s2 #f)))) - (135) - (13 . #f) - (3 . #f) - (7 . #s(stx-boundary (s0 (s1 s2) (s3 s4 (s5 #f))))) - (2 . #s(stx-boundary (s0 (s1 s2) (s3 s4 (s5 #f))))) - (148 . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) - (7 . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) - (7 . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 s3)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 s3)))) - (21 . #s(stx-boundary (s0 s1 (s2 s3)))) - (130 . #s(stx-boundary (s0 s1))) - (132 . #s(stx-boundary (s0 s1))) - (141 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1))) - (21 . #s(stx-boundary (s0 s1))) - (22 #s(stx-boundary (s0 s1)) . #s(stx-boundary (s2 s1))) - (9 . #s(stx-boundary (s0 s1))) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1))) - (100 . #f) - (7 . #s(stx-boundary (s0 s1))) - (2 . #s(stx-boundary (s0 s1))) - (133 . #s(stx-boundary (s0 s1))) - (131 . #s(stx-boundary (s0 s1))) - (22 #s(stx-boundary (s0 (s1 s2))) . #s(stx-boundary (s3 s4 (s5 s2)))) - (9 . #s(stx-boundary (s0 (s1 s2)))) - (0 . #s(stx-boundary (s0 (s1 s2)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 s2)))) - (100 . #f) - (7 . #s(stx-boundary (s0 (s1 s2)))) - (2 . #s(stx-boundary (s0 (s1 s2)))) - (148 . #s(stx-boundary (s0 (s1 s2)))) - (11 #s(stx-boundary (s0 s1)) #s(stx-boundary (s2 s3 s4))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1))) - (100 . #f) - (7 . #s(stx-boundary (s0 s1))) - (2 . #s(stx-boundary (s0 s1))) - (148 . #s(stx-boundary (s0 s1))) - (6 . #s(stx-boundary (s0 s1))) - (119 . #f) - (7 . #s(stx-boundary (s0 s1))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 s2))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 s2))) - (21 . #s(stx-boundary (s0 s1 s2))) - (130 . #s(stx-boundary s0)) - (132 . #s(stx-boundary s0)) - (141 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (133 . #s(stx-boundary s0)) - (131 . #s(stx-boundary s0)) - (22 #s(stx-boundary (s0 (s1 s2))) . #s(stx-boundary (s3 s1 s2))) - (9 . #s(stx-boundary (s0 (s1 s2)))) - (0 . #s(stx-boundary (s0 (s1 s2)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 s2)))) - (100 . #f) - (7 . #s(stx-boundary (s0 (s1 s2)))) - (2 . #s(stx-boundary (s0 (s1 s2)))) - (148 . #s(stx-boundary (s0 (s1 s2)))) - (11 #s(stx-boundary (s0 s1))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1))) - (21 . #s(stx-boundary (s0 s1))) - (22 #s(stx-boundary (s0 s1 (s2 () s3) s4)) . #s(stx-boundary (s5 s3))) - (9 . #s(stx-boundary (s0 s1 (s2 () s3) s4))) - (0 . #s(stx-boundary (s0 s1 (s2 () s3) s4))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 () s3) s4))) - (100 . #f) - (7 . #s(stx-boundary (s0 s1 (s2 () s3) s4))) - (2 . #s(stx-boundary (s0 s1 (s2 () s3) s4))) - (148 . #s(stx-boundary (s0 s1 (s2 () s3) s4))) - (135) - (13 . #f) - (3 . #f) - (3 . #f) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 () s3) s4))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 () s3) s4))) - (109 . #f) - (4 . #s(stx-boundary (s0 (s1 () s2) s3))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary (s0 () s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 () s1))) - (110 . #f) - (17 #s(stx-boundary ()) . #s(stx-boundary (s0))) - (10 . #s(stx-boundary (s0))) - (24 #s(stx-boundary (s0)) . #s(stx-boundary (s0))) - (3 . #f) - (126 . #s(stx-boundary s0)) - (127 . #s(stx-boundary s0)) - (12 . #s(stx-boundary (s0))) - (4 . #s(stx-boundary (s0))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0))) - (7 . #s(stx-boundary (s0 () s1))) - (2 . #s(stx-boundary (s0 () s1))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0 (s1 () s2) s3))) - (7 . #s(stx-boundary (s0 s1 (s2 () s3) s4))) - (2 . #s(stx-boundary (s0 s1 (s2 () s3) s4))) - (135) - (13 . #f) - (3 . #f) - (7 + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (return . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (rename-one . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-submodule . #f) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-module . #f) + (prepare-env . #f) + (tag . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (rename-one . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (enter-check . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (exit-check . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (prim-module-begin . #f) + (rename-one . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 s1))) + (return . #s(stx-boundary (s0 s1))) + (rename-one . #s(stx-boundary (s0 s1))) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-require . #f) + (exit-prim . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary (s0 #f))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 #f))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 #f))) + (return . #s(stx-boundary (s0 #f))) + (rename-one . #s(stx-boundary (s0 #f))) + (module-lift-end-loop) + (next-group . #f) + (next . #f) + (next . #f) + (visit . #s(stx-boundary (s0 #f))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 #f))) + (enter-prim . #s(stx-boundary (s0 s1 #f))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 #f))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary #f)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . #f))) + (enter-prim . #s(stx-boundary (s0 . #f))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 #f))) + (return . #s(stx-boundary (s0 #f))) + (exit-list . #s(stx-boundary (s0 (s1 #f)))) + (exit-prim . #s(stx-boundary (s0 s1 (s2 #f)))) + (return . #s(stx-boundary (s0 s1 (s2 #f)))) + (module-lift-end-loop) + (next-group . #f) + (next . #f) + (exit-prim . #s(stx-boundary (s0 (s1 s2) (s3 s4 (s5 #f))))) + (return . #s(stx-boundary (s0 (s1 s2) (s3 s4 (s5 #f))))) + (rename-one + . + #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) + (exit-prim + . + #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) + (exit-prim + . + #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 s3)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 s3)))) + (enter-local . #s(stx-boundary (s0 s1))) + (local-pre . #s(stx-boundary (s0 s1))) + (start . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1))) + (macro-pre-x . #s(stx-boundary (s0 s1))) + (macro-post-x #s(stx-boundary (s0 s1)) . #s(stx-boundary (s2 s1))) + (exit-macro . #s(stx-boundary (s0 s1))) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 s1))) + (return . #s(stx-boundary (s0 s1))) + (local-post . #s(stx-boundary (s0 s1))) + (exit-local . #s(stx-boundary (s0 s1))) + (macro-post-x + #s(stx-boundary (s0 (s1 s2))) + . + #s(stx-boundary (s3 s4 (s5 s2)))) + (exit-macro . #s(stx-boundary (s0 (s1 s2)))) + (visit . #s(stx-boundary (s0 (s1 s2)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 s2)))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 (s1 s2)))) + (return . #s(stx-boundary (s0 (s1 s2)))) + (rename-one . #s(stx-boundary (s0 (s1 s2)))) + (splice #s(stx-boundary (s0 s1)) #s(stx-boundary (s2 s3 s4))) + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 s1))) + (return . #s(stx-boundary (s0 s1))) + (rename-one . #s(stx-boundary (s0 s1))) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-require . #f) + (exit-prim . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary (s0 s1 s2))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 s2))) + (macro-pre-x . #s(stx-boundary (s0 s1 s2))) + (enter-local . #s(stx-boundary s0)) + (local-pre . #s(stx-boundary s0)) + (start . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (local-post . #s(stx-boundary s0)) + (exit-local . #s(stx-boundary s0)) + (macro-post-x + #s(stx-boundary (s0 (s1 s2))) + . + #s(stx-boundary (s3 s1 s2))) + (exit-macro . #s(stx-boundary (s0 (s1 s2)))) + (visit . #s(stx-boundary (s0 (s1 s2)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 s2)))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 (s1 s2)))) + (return . #s(stx-boundary (s0 (s1 s2)))) + (rename-one . #s(stx-boundary (s0 (s1 s2)))) + (splice #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1))) + (macro-pre-x . #s(stx-boundary (s0 s1))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 () s3) s4)) + . + #s(stx-boundary (s5 s3))) + (exit-macro . #s(stx-boundary (s0 s1 (s2 () s3) s4))) + (visit . #s(stx-boundary (s0 s1 (s2 () s3) s4))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 () s3) s4))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 s1 (s2 () s3) s4))) + (return . #s(stx-boundary (s0 s1 (s2 () s3) s4))) + (rename-one . #s(stx-boundary (s0 s1 (s2 () s3) s4))) + (module-lift-end-loop) + (next-group . #f) + (next . #f) + (next . #f) + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 () s3) s4))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 () s3) s4))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 (s1 () s2) s3))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary (s0 () s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 () s1))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary ()) . #s(stx-boundary (s0))) + (enter-block . #s(stx-boundary (s0))) + (block-renames #s(stx-boundary (s0)) . #s(stx-boundary (s0))) + (next . #f) + (enter-check . #s(stx-boundary s0)) + (exit-check . #s(stx-boundary s0)) + (block->list . #s(stx-boundary (s0))) + (enter-list . #s(stx-boundary (s0))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0))) + (exit-prim . #s(stx-boundary (s0 () s1))) + (return . #s(stx-boundary (s0 () s1))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0 (s1 () s2) s3))) + (exit-prim . #s(stx-boundary (s0 s1 (s2 () s3) s4))) + (return . #s(stx-boundary (s0 s1 (s2 () s3) s4))) + (module-lift-end-loop) + (next-group . #f) + (next . #f) + (exit-prim . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s0 (s5 s6) (s7 s8 (s3 #f)))) (s5 s9) (s7 s10 (s11 () s12) s13)))) - (2 + (return . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s0 (s5 s6) (s7 s8 (s3 #f)))) (s5 s9) (s7 s10 (s11 () s12) s13)))) - (148 + (rename-one . #s(stx-boundary (s0 @@ -5620,7 +5837,7 @@ (s0 s4 (s5 s6) (s3 (s7 s8) (s9 s10 (s5 #f)))) (s7 s11) (s9 s12 (s13 () s14) s15))))) - (7 + (exit-prim . #s(stx-boundary (s0 @@ -5630,7 +5847,7 @@ (s0 s4 (s5 s6) (s3 (s7 s8) (s9 s10 (s5 #f)))) (s7 s11) (s9 s12 (s13 () s14) s15))))) - (2 + (return . #s(stx-boundary (s0 @@ -5642,128 +5859,408 @@ (s9 s12 (s13 () s14) s15))))))) ('quoted . - ((141 . #f) - (0 . #s(stx-boundary (s0 (s1 s2)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 s2)))) - (138 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1))) - (117 . #f) - (7 . #s(stx-boundary (s0 s1))) - (2 . #s(stx-boundary (s0 s1))) - (7 . #s(stx-boundary (s0 (s1 s2)))) - (2 . #s(stx-boundary (s0 (s1 s2)))))) + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 s2)))) + (enter-check . #s(stx-boundary (s0 (s1 s2)))) + (exit-check . #s(stx-boundary (s0 (s1 s2)))) + (visit . #s(stx-boundary (s0 (s1 s2)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 s2)))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-quote . #f) + (exit-prim . #s(stx-boundary (s0 s1))) + (return . #s(stx-boundary (s0 s1))) + (exit-prim . #s(stx-boundary (s0 (s1 s2)))) + (return . #s(stx-boundary (s0 (s1 s2)))))) + ((let () + (define-syntax (lift stx) + (syntax-local-lift-require 'racket/list #'foldl)) + (lift)) + . + ((start-top . #f) + (visit + . + #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 (s6 s7) (s8 s9))) (s3))))) + (enter-check + . + #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 (s6 s7) (s8 s9))) (s3))))) + (exit-check + . + #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 (s6 s7) (s8 s9))) (s3))))) + (visit + . + #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 (s6 s7) (s8 s9))) (s3))))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 (s6 s7) (s8 s9))) (s3))))) + (prim-#%expression . #f) + (visit + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) + (resolve . #s(stx-boundary s0)) + (enter-macro + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) + (macro-pre-x + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) + (macro-post-x + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2))) + . + #s(stx-boundary (s9 () (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) + (exit-macro + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) + (visit + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) + (prim-let-values . #f) + (let-renames + () + . + #s(stx-boundary ((s0 (s1 s2) (s3 (s4 s5) (s6 s7))) (s1)))) + (next-group . #f) + (enter-block + . + #s(stx-boundary ((s0 (s1 s2) (s3 (s4 s5) (s6 s7))) (s1)))) + (block-renames + #s(stx-boundary ((s0 (s1 s2) (s3 (s4 s5) (s6 s7))) (s1))) + . + #s(stx-boundary ((s0 (s1 s2) (s3 (s4 s5) (s6 s7))) (s1)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7))))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7))))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7))))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7))))) + (macro-post-x + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8))))) + . + #s(stx-boundary (s9 (s1 s3) (s4 (s5 s6) (s7 s8))))) + (exit-macro + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) + (exit-check + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) + (prim-define-syntaxes . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) (s3 (s4 s5) (s6 s7)))))) + (prepare-env . #f) + (enter-bind . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) + (macro-pre-x . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) + (macro-post-x + #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6)))) + . + #s(stx-boundary (s7 (s1) (s2 (s3 s4) (s5 s6))))) + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) + (prim-lambda . #f) + (lambda-renames + #s(stx-boundary (s0)) + . + #s(stx-boundary ((s1 (s2 s3) (s4 s5))))) + (enter-block . #s(stx-boundary ((s0 (s1 s2) (s3 s4))))) + (block-renames + #s(stx-boundary ((s0 (s1 s2) (s3 s4)))) + . + #s(stx-boundary ((s0 (s1 s2) (s3 s4))))) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) (s3 s4)))) + (exit-check . #s(stx-boundary (s0 (s1 s2) (s3 s4)))) + (block->list . #s(stx-boundary ((s0 (s1 s2) (s3 s4))))) + (enter-list . #s(stx-boundary ((s0 (s1 s2) (s3 s4))))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 s4)))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5)))) + (enter-macro . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5)))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 s3) (s4 s5))) + . + #s(stx-boundary (s0 s1 (s2 s3) (s4 s5)))) + (exit-macro . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5)))) + (visit . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5)))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 (s1 s2) (s3 s4)))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-quote . #f) + (exit-prim . #s(stx-boundary (s0 s1))) + (return . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1))) + (macro-pre-x . #s(stx-boundary (s0 s1))) + (local-value . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (local-value-result . #f) + (macro-post-x #s(stx-boundary (s0 s1)) . #s(stx-boundary (s2 s1))) + (exit-macro . #s(stx-boundary (s0 s1))) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-quote-syntax . #f) + (exit-prim . #s(stx-boundary (s0 s1))) + (return . #s(stx-boundary (s0 s1))) + (exit-list . #s(stx-boundary (s0 (s1 s2) (s3 s4)))) + (exit-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5)))) + (return . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5)))) + (exit-list . #s(stx-boundary ((s0 s1 (s2 s3) (s4 s5))))) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 s3 (s4 s5) (s6 s7))))) + (return . #s(stx-boundary (s0 (s1) (s2 s3 (s4 s5) (s6 s7))))) + (next . #f) + (exit-bind . #f) + (next . #f) + (enter-check . #s(stx-boundary (s0))) + (visit . #s(stx-boundary (s0))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0))) + (macro-pre-x . #s(stx-boundary (s0))) + (lift-require + #s(stx-boundary (s0 s1)) + #s(stx-boundary s2) + . + #s(stx-boundary s2)) + (macro-post-x #s(stx-boundary s0) . #s(stx-boundary (s1))) + (exit-macro . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-check . #s(stx-boundary s0)) + (block->letrec + #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 (s5 s6) (s7 s8))))) () s8))) + (visit + . + #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 (s5 s6) (s7 s8))))) () s8))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 (s5 s6) (s7 s8))))) () s8))) + (prim-letrec-syntaxes+values . #f) + (letrec-syntaxes-renames + (#s(stx-boundary ((s0) (s1 (s2) (s3 (s4 s5) (s6 s7)))))) + () + . + #s(stx-boundary (s7))) + (prepare-env . #f) + (next-group . #f) + (enter-list . #s(stx-boundary (s0))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0))) + (tag . #s(stx-boundary (s0 () s1))) + (exit-prim . #s(stx-boundary (s0 () s1))) + (return . #s(stx-boundary (s0 () s1))) + (exit-prim . #s(stx-boundary (s0 () (s0 () s1)))) + (return . #s(stx-boundary (s0 () (s0 () s1)))) + (exit-prim . #s(stx-boundary (s0 (s1 () (s1 () s2))))) + (return . #s(stx-boundary (s0 (s1 () (s1 () s2))))) + (lift-loop . #s(stx-boundary (s0 (s1 s2) (s3 (s4 () (s4 () s5)))))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 (s4 () (s4 () s5)))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 s2) (s3 (s4 () (s4 () s5)))))) + (prim-begin . #f) + (enter-list . #s(stx-boundary ((s0 s1) (s2 (s3 () (s3 () s4)))))) + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-require . #f) + (exit-prim . #s(stx-boundary (s0 s1))) + (return . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 () (s1 () s2))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 () (s1 () s2))))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 () (s0 () s1)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 () (s0 () s1)))) + (prim-let-values . #f) + (let-renames () . #s(stx-boundary ((s0 () s1)))) + (next-group . #f) + (enter-block . #s(stx-boundary ((s0 () s1)))) + (block-renames + #s(stx-boundary ((s0 () s1))) + . + #s(stx-boundary ((s0 () s1)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 () s1))) + (exit-check . #s(stx-boundary (s0 () s1))) + (block->list . #s(stx-boundary ((s0 () s1)))) + (enter-list . #s(stx-boundary ((s0 () s1)))) + (next . #f) + (visit . #s(stx-boundary (s0 () s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 () s1))) + (prim-let-values . #f) + (let-renames () . #s(stx-boundary (s0))) + (next-group . #f) + (enter-block . #s(stx-boundary (s0))) + (block-renames #s(stx-boundary (s0)) . #s(stx-boundary (s0))) + (next . #f) + (enter-check . #s(stx-boundary s0)) + (exit-check . #s(stx-boundary s0)) + (block->list . #s(stx-boundary (s0))) + (enter-list . #s(stx-boundary (s0))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0))) + (exit-prim . #s(stx-boundary (s0 () s1))) + (return . #s(stx-boundary (s0 () s1))) + (exit-list . #s(stx-boundary ((s0 () s1)))) + (exit-prim . #s(stx-boundary (s0 () (s0 () s1)))) + (return . #s(stx-boundary (s0 () (s0 () s1)))) + (exit-prim . #s(stx-boundary (s0 (s1 () (s1 () s2))))) + (return . #s(stx-boundary (s0 (s1 () (s1 () s2))))) + (exit-list . #s(stx-boundary ((s0 s1) (s2 (s3 () (s3 () s4)))))) + (exit-prim . #s(stx-boundary (s0 (s1 s2) (s3 (s4 () (s4 () s5)))))) + (return . #s(stx-boundary (s0 (s1 s2) (s3 (s4 () (s4 () s5)))))))) ((module m '#%kernel 5) . - ((141 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 s3) 5))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 s3) 5))) - (101 . #f) - (157 . #f) - (148 . #s(stx-boundary 5)) - (126 . #s(stx-boundary 5)) - (127 . #s(stx-boundary 5)) - (142 . #s(stx-boundary (s0 5))) - (126 . #s(stx-boundary (s0 5))) - (127 . #s(stx-boundary (s0 5))) - (0 . #s(stx-boundary (s0 5))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 5))) - (102 . #f) - (148 . #s(stx-boundary (s0 5))) - (3 . #f) - (0 . #s(stx-boundary 5)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 5))) - (6 . #s(stx-boundary (s0 . 5))) - (115 . #f) - (7 . #s(stx-boundary (s0 5))) - (2 . #s(stx-boundary (s0 5))) - (148 . #s(stx-boundary (s0 5))) - (135) - (13 . #f) - (3 . #f) - (0 . #s(stx-boundary (s0 5))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 5))) - (117 . #f) - (7 . #s(stx-boundary (s0 5))) - (2 . #s(stx-boundary (s0 5))) - (135) - (13 . #f) - (3 . #f) - (7 . #s(stx-boundary (s0 (s1 5)))) - (2 . #s(stx-boundary (s0 (s1 5)))) - (148 . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s2 5))))) - (7 . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s2 5))))) - (2 . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s2 5))))))) + ((start-top . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3) 5))) + (enter-check . #s(stx-boundary (s0 s1 (s2 s3) 5))) + (exit-check . #s(stx-boundary (s0 s1 (s2 s3) 5))) + (visit . #s(stx-boundary (s0 s1 (s2 s3) 5))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) 5))) + (prim-module . #f) + (prepare-env . #f) + (rename-one . #s(stx-boundary 5)) + (enter-check . #s(stx-boundary 5)) + (exit-check . #s(stx-boundary 5)) + (tag . #s(stx-boundary (s0 5))) + (enter-check . #s(stx-boundary (s0 5))) + (exit-check . #s(stx-boundary (s0 5))) + (visit . #s(stx-boundary (s0 5))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 5))) + (prim-module-begin . #f) + (rename-one . #s(stx-boundary (s0 5))) + (next . #f) + (visit . #s(stx-boundary 5)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 5))) + (enter-prim . #s(stx-boundary (s0 . 5))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 5))) + (return . #s(stx-boundary (s0 5))) + (rename-one . #s(stx-boundary (s0 5))) + (module-lift-end-loop) + (next-group . #f) + (next . #f) + (visit . #s(stx-boundary (s0 5))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 5))) + (prim-quote . #f) + (exit-prim . #s(stx-boundary (s0 5))) + (return . #s(stx-boundary (s0 5))) + (module-lift-end-loop) + (next-group . #f) + (next . #f) + (exit-prim . #s(stx-boundary (s0 (s1 5)))) + (return . #s(stx-boundary (s0 (s1 5)))) + (rename-one . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s2 5))))) + (exit-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s2 5))))) + (return . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s2 5))))))) ((let-values (((x) __y) ((y z) __w)) __x) . - ((141 . #f) - (0 . #s(stx-boundary (s0 (s1 (((s2) s3) ((s4 s5) s6)) s7)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 (((s2) s3) ((s4 s5) s6)) s7)))) - (138 . #f) - (0 . #s(stx-boundary (s0 (((s1) s2) ((s3 s4) s5)) s6))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (((s1) s2) ((s3 s4) s5)) s6))) - (112 . #f) - (16 + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 (((s2) s3) ((s4 s5) s6)) s7)))) + (enter-check . #s(stx-boundary (s0 (s1 (((s2) s3) ((s4 s5) s6)) s7)))) + (exit-check . #s(stx-boundary (s0 (s1 (((s2) s3) ((s4 s5) s6)) s7)))) + (visit . #s(stx-boundary (s0 (s1 (((s2) s3) ((s4 s5) s6)) s7)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 (((s2) s3) ((s4 s5) s6)) s7)))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 (((s1) s2) ((s3 s4) s5)) s6))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (((s1) s2) ((s3 s4) s5)) s6))) + (prim-let-values . #f) + (let-renames (#s(stx-boundary ((s0) s1)) #s(stx-boundary ((s2 s3) s4))) . #s(stx-boundary (s5))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . s1))) - (6 . #s(stx-boundary (s0 . s1))) - (116 . #f) - (7 . #s(stx-boundary (s0 . s1))) - (2 . #s(stx-boundary (s0 . s1))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . s1))) - (6 . #s(stx-boundary (s0 . s1))) - (116 . #f) - (7 . #s(stx-boundary (s0 . s1))) - (2 . #s(stx-boundary (s0 . s1))) - (13 . #f) - (10 . #s(stx-boundary (s0))) - (24 #s(stx-boundary (s0)) . #s(stx-boundary (s0))) - (3 . #f) - (126 . #s(stx-boundary s0)) - (127 . #s(stx-boundary s0)) - (12 . #s(stx-boundary (s0))) - (4 . #s(stx-boundary (s0))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . s1))) - (6 . #s(stx-boundary (s0 . s1))) - (116 . #f) - (7 . #s(stx-boundary (s0 . s1))) - (2 . #s(stx-boundary (s0 . s1))) - (5 . #s(stx-boundary ((s0 . s1)))) - (7 + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . s1))) + (enter-prim . #s(stx-boundary (s0 . s1))) + (prim-#%top . #f) + (exit-prim . #s(stx-boundary (s0 . s1))) + (return . #s(stx-boundary (s0 . s1))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . s1))) + (enter-prim . #s(stx-boundary (s0 . s1))) + (prim-#%top . #f) + (exit-prim . #s(stx-boundary (s0 . s1))) + (return . #s(stx-boundary (s0 . s1))) + (next-group . #f) + (enter-block . #s(stx-boundary (s0))) + (block-renames #s(stx-boundary (s0)) . #s(stx-boundary (s0))) + (next . #f) + (enter-check . #s(stx-boundary s0)) + (exit-check . #s(stx-boundary s0)) + (block->list . #s(stx-boundary (s0))) + (enter-list . #s(stx-boundary (s0))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . s1))) + (enter-prim . #s(stx-boundary (s0 . s1))) + (prim-#%top . #f) + (exit-prim . #s(stx-boundary (s0 . s1))) + (return . #s(stx-boundary (s0 . s1))) + (exit-list . #s(stx-boundary ((s0 . s1)))) + (exit-prim . #s(stx-boundary (s0 (((s1) (s2 . s3)) ((s4 s5) (s2 . s6))) (s2 . s7)))) - (2 + (return . #s(stx-boundary (s0 (((s1) (s2 . s3)) ((s4 s5) (s2 . s6))) (s2 . s7)))) - (7 + (exit-prim . #s(stx-boundary (s0 (s1 (((s2) (s3 . s4)) ((s5 s6) (s3 . s7))) (s3 . s8))))) - (2 + (return . #s(stx-boundary (s0 (s1 (((s2) (s3 . s4)) ((s5 s6) (s3 . s7))) (s3 . s8))))))) @@ -5772,24 +6269,41 @@ (ok) (list (ok) (ok))) . - ((141 . #f) - (0 + ((start-top . #f) + (visit . #s(stx-boundary (s0 s1 s2 (s3 (s4 s5) (s6 8)) (s4) (s7 (s4) (s4))))) - (1 . #s(stx-boundary s0)) - (6 + (enter-check . #s(stx-boundary (s0 s1 s2 (s3 (s4 s5) (s6 8)) (s4) (s7 (s4) (s4))))) - (101 . #f) - (157 . #f) - (142 . #s(stx-boundary (s0 (s1 (s2 s3) (s4 8)) (s2) (s5 (s2) (s2))))) - (148 . #s(stx-boundary (s0 (s1 (s2 s3) (s4 8)) (s2) (s5 (s2) (s2))))) - (126 . #s(stx-boundary (s0 (s1 (s2 s3) (s4 8)) (s2) (s5 (s2) (s2))))) - (0 . #s(stx-boundary (s0 (s1 (s2 s3) (s4 8)) (s2) (s5 (s2) (s2))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 (s2 s3) (s4 8)) (s2) (s5 (s2) (s2))))) - (21 . #s(stx-boundary (s0 (s1 (s2 s3) (s4 8)) (s2) (s5 (s2) (s2))))) - (22 + (exit-check + . + #s(stx-boundary (s0 s1 s2 (s3 (s4 s5) (s6 8)) (s4) (s7 (s4) (s4))))) + (visit + . + #s(stx-boundary (s0 s1 s2 (s3 (s4 s5) (s6 8)) (s4) (s7 (s4) (s4))))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary (s0 s1 s2 (s3 (s4 s5) (s6 8)) (s4) (s7 (s4) (s4))))) + (prim-module . #f) + (prepare-env . #f) + (tag . #s(stx-boundary (s0 (s1 (s2 s3) (s4 8)) (s2) (s5 (s2) (s2))))) + (rename-one + . + #s(stx-boundary (s0 (s1 (s2 s3) (s4 8)) (s2) (s5 (s2) (s2))))) + (enter-check + . + #s(stx-boundary (s0 (s1 (s2 s3) (s4 8)) (s2) (s5 (s2) (s2))))) + (visit . #s(stx-boundary (s0 (s1 (s2 s3) (s4 8)) (s2) (s5 (s2) (s2))))) + (resolve . #s(stx-boundary s0)) + (enter-macro + . + #s(stx-boundary (s0 (s1 (s2 s3) (s4 8)) (s2) (s5 (s2) (s2))))) + (macro-pre-x + . + #s(stx-boundary (s0 (s1 (s2 s3) (s4 8)) (s2) (s5 (s2) (s2))))) + (macro-post-x #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) @@ -5798,7 +6312,7 @@ (s12 (s9) (s9)))) . #s(stx-boundary (s13 (s8 (s9 s10) (s11 8)) (s9) (s12 (s9) (s9))))) - (9 + (exit-macro . #s(stx-boundary (s0 @@ -5806,7 +6320,7 @@ (s8 (s9 s10) (s11 8)) (s9) (s12 (s9) (s9))))) - (2 + (return . #s(stx-boundary (s0 @@ -5814,7 +6328,7 @@ (s8 (s9 s10) (s11 8)) (s9) (s12 (s9) (s9))))) - (0 + (visit . #s(stx-boundary (s0 @@ -5822,8 +6336,8 @@ (s8 (s9 s10) (s11 8)) (s9) (s12 (s9) (s9))))) - (1 . #s(stx-boundary s0)) - (8 + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 @@ -5831,7 +6345,7 @@ (s8 (s9 s10) (s11 8)) (s9) (s12 (s9) (s9))))) - (21 + (macro-pre-x . #s(stx-boundary (s0 @@ -5839,7 +6353,7 @@ (s8 (s9 s10) (s11 8)) (s9) (s12 (s9) (s9))))) - (22 + (macro-post-x #s(stx-boundary (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) @@ -5853,7 +6367,7 @@ (s10 (s11 s12) (s13 8)) (s11) (s14 (s11) (s11))))) - (9 + (exit-macro . #s(stx-boundary (s0 @@ -5861,7 +6375,7 @@ (s1 s2 (s10 (s11 s12) (s13 8))) (s1 s2 (s11)) (s1 s2 (s14 (s11) (s11)))))) - (2 + (return . #s(stx-boundary (s0 @@ -5869,7 +6383,7 @@ (s1 s2 (s10 (s11 s12) (s13 8))) (s1 s2 (s11)) (s1 s2 (s14 (s11) (s11)))))) - (127 + (exit-check . #s(stx-boundary (s0 @@ -5877,7 +6391,7 @@ (s1 s2 (s10 (s11 s12) (s13 8))) (s1 s2 (s11)) (s1 s2 (s14 (s11) (s11)))))) - (0 + (visit . #s(stx-boundary (s0 @@ -5885,8 +6399,8 @@ (s1 s2 (s10 (s11 s12) (s13 8))) (s1 s2 (s11)) (s1 s2 (s14 (s11) (s11)))))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 @@ -5894,8 +6408,8 @@ (s1 s2 (s10 (s11 s12) (s13 8))) (s1 s2 (s11)) (s1 s2 (s14 (s11) (s11)))))) - (102 . #f) - (148 + (prim-module-begin . #f) + (rename-one . #s(stx-boundary (s0 @@ -5903,1233 +6417,1316 @@ (s1 s2 (s10 (s11 s12) (s13 8))) (s1 s2 (s11)) (s1 s2 (s14 (s11) (s11)))))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) - (21 . #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) - (130 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (132 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (141 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (100 . #f) - (7 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (2 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (133 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (131 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (22 + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) + (resolve . #s(stx-boundary s0)) + (enter-macro + . + #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) + (macro-pre-x + . + #s(stx-boundary (s0 s1 (s2 s3 (s4 s5) (s6 s7) (s8 #f))))) + (enter-local . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (local-pre . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (start . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (return . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (local-post . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (exit-local . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (macro-post-x #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)))) . #s(stx-boundary (s8 s9 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (9 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (0 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (100 . #f) - (7 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (2 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (148 . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (11 + (exit-macro . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (visit . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (return . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (rename-one . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (splice #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f))) #s(stx-boundary (s7 s8 (s9 (s10 s11) (s12 8)))) #s(stx-boundary (s7 s8 (s10))) #s(stx-boundary (s7 s8 (s13 (s10) (s10))))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (100 . #f) - (7 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (2 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (148 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (6 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (158 . #f) - (6 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (101 . #f) - (157 . #f) - (142 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (148 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (127 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (102 . #f) - (148 . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1))) - (100 . #f) - (7 . #s(stx-boundary (s0 s1))) - (2 . #s(stx-boundary (s0 s1))) - (148 . #s(stx-boundary (s0 s1))) - (6 . #s(stx-boundary (s0 s1))) - (119 . #f) - (7 . #s(stx-boundary (s0 s1))) - (3 . #f) - (0 . #s(stx-boundary (s0 #f))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 #f))) - (100 . #f) - (7 . #s(stx-boundary (s0 #f))) - (2 . #s(stx-boundary (s0 #f))) - (148 . #s(stx-boundary (s0 #f))) - (135) - (13 . #f) - (3 . #f) - (3 . #f) - (0 . #s(stx-boundary (s0 #f))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 #f))) - (6 . #s(stx-boundary (s0 s1 #f))) - (109 . #f) - (4 . #s(stx-boundary (s0 #f))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary #f)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . #f))) - (6 . #s(stx-boundary (s0 . #f))) - (115 . #f) - (7 . #s(stx-boundary (s0 #f))) - (2 . #s(stx-boundary (s0 #f))) - (5 . #s(stx-boundary (s0 (s1 #f)))) - (7 . #s(stx-boundary (s0 s1 (s2 #f)))) - (2 . #s(stx-boundary (s0 s1 (s2 #f)))) - (135) - (13 . #f) - (3 . #f) - (7 . #s(stx-boundary (s0 (s1 s2) (s3 s4 (s5 #f))))) - (2 . #s(stx-boundary (s0 (s1 s2) (s3 s4 (s5 #f))))) - (148 . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) - (7 . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) - (7 . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 (s2 (s3 s4) (s5 8))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 (s3 s4) (s5 8))))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3 s4) (s5 8))))) - (130 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (132 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (141 . #f) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (21 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (22 + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (return . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (rename-one . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-submodule . #f) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-module . #f) + (prepare-env . #f) + (tag . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (rename-one . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (enter-check . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (exit-check . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (prim-module-begin . #f) + (rename-one . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 s1))) + (return . #s(stx-boundary (s0 s1))) + (rename-one . #s(stx-boundary (s0 s1))) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-require . #f) + (exit-prim . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary (s0 #f))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 #f))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 #f))) + (return . #s(stx-boundary (s0 #f))) + (rename-one . #s(stx-boundary (s0 #f))) + (module-lift-end-loop) + (next-group . #f) + (next . #f) + (next . #f) + (visit . #s(stx-boundary (s0 #f))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 #f))) + (enter-prim . #s(stx-boundary (s0 s1 #f))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 #f))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary #f)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . #f))) + (enter-prim . #s(stx-boundary (s0 . #f))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 #f))) + (return . #s(stx-boundary (s0 #f))) + (exit-list . #s(stx-boundary (s0 (s1 #f)))) + (exit-prim . #s(stx-boundary (s0 s1 (s2 #f)))) + (return . #s(stx-boundary (s0 s1 (s2 #f)))) + (module-lift-end-loop) + (next-group . #f) + (next . #f) + (exit-prim . #s(stx-boundary (s0 (s1 s2) (s3 s4 (s5 #f))))) + (return . #s(stx-boundary (s0 (s1 s2) (s3 s4 (s5 #f))))) + (rename-one + . + #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) + (exit-prim + . + #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) + (exit-prim + . + #s(stx-boundary (s0 s1 (s2 s3) (s4 (s5 s6) (s7 s8 (s2 #f)))))) + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 (s3 s4) (s5 8))))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3 s4) (s5 8))))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3 s4) (s5 8))))) + (enter-local . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (local-pre . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (start . #f) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8)))) . #s(stx-boundary (s5 (s1 s3) (s4 8)))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (0 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (100 . #f) - (7 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (133 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (131 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (22 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (local-post . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (exit-local . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (macro-post-x #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 8))))) . #s(stx-boundary (s6 s7 (s8 (s2 s4) (s5 8))))) - (9 . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 8)))))) - (0 . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 8)))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 8)))))) - (100 . #f) - (7 . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 8)))))) - (2 . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 8)))))) - (148 . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 8)))))) - (11 + (exit-macro . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 8)))))) + (visit . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 8)))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 8)))))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 8)))))) + (return . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 8)))))) + (rename-one . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 8)))))) + (splice #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8)))) #s(stx-boundary (s5 s6 (s1))) #s(stx-boundary (s5 s6 (s7 (s1) (s1))))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (100 . #f) - (7 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (148 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (6 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (103 . #f) - (157 . #f) - (20 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 8)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1) (s2 8)))) - (21 . #s(stx-boundary (s0 (s1) (s2 8)))) - (22 + (next . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (prim-stop . #f) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (rename-one . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (prim-define-syntaxes . #f) + (prepare-env . #f) + (phase-up . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 8)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1) (s2 8)))) + (macro-pre-x . #s(stx-boundary (s0 (s1) (s2 8)))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 8))) . #s(stx-boundary (s3 (s1) (s2 8)))) - (9 . #s(stx-boundary (s0 (s1) (s2 8)))) - (0 . #s(stx-boundary (s0 (s1) (s2 8)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 8)))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary ((s1 8)))) - (10 . #s(stx-boundary ((s0 8)))) - (24 #s(stx-boundary ((s0 8))) . #s(stx-boundary ((s0 8)))) - (3 . #f) - (126 . #s(stx-boundary (s0 8))) - (127 . #s(stx-boundary (s0 8))) - (12 . #s(stx-boundary ((s0 8)))) - (4 . #s(stx-boundary ((s0 8)))) - (3 . #f) - (0 . #s(stx-boundary (s0 8))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)))) + (exit-macro . #s(stx-boundary (s0 (s1) (s2 8)))) + (visit . #s(stx-boundary (s0 (s1) (s2 8)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 8)))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary ((s1 8)))) + (enter-block . #s(stx-boundary ((s0 8)))) + (block-renames #s(stx-boundary ((s0 8))) . #s(stx-boundary ((s0 8)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 8))) + (exit-check . #s(stx-boundary (s0 8))) + (block->list . #s(stx-boundary ((s0 8)))) + (enter-list . #s(stx-boundary ((s0 8)))) + (next . #f) + (visit . #s(stx-boundary (s0 8))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)))) ((let () (define-syntax (ok stx) (quote-syntax 8)) (define (ident x) x) 9) . - ((141 . #f) - (0 + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s6 (s7 s8) s8) 9)))) - (1 . #s(stx-boundary s0)) - (6 + (enter-check . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s6 (s7 s8) s8) 9)))) - (138 . #f) - (0 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s5 (s6 s7) s7) 9))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s5 (s6 s7) s7) 9))) - (21 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s5 (s6 s7) s7) 9))) - (22 + (exit-check + . + #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s6 (s7 s8) s8) 9)))) + (visit + . + #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s6 (s7 s8) s8) 9)))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s6 (s7 s8) s8) 9)))) + (prim-#%expression . #f) + (visit + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s5 (s6 s7) s7) 9))) + (resolve . #s(stx-boundary s0)) + (enter-macro + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s5 (s6 s7) s7) 9))) + (macro-pre-x + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s5 (s6 s7) s7) 9))) + (macro-post-x #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s5 (s6 s7) s7) 9)) . #s(stx-boundary (s8 () (s1 (s2 s3) (s4 8)) (s5 (s6 s7) s7) 9))) - (9 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s5 (s6 s7) s7) 9))) - (0 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s5 (s6 s7) s7) 9))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s5 (s6 s7) s7) 9))) - (112 . #f) - (16 () . #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s4 (s5 s6) s6) 9))) - (13 . #f) - (10 . #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s4 (s5 s6) s6) 9))) - (24 + (exit-macro + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s5 (s6 s7) s7) 9))) + (visit + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s5 (s6 s7) s7) 9))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s5 (s6 s7) s7) 9))) + (prim-let-values . #f) + (let-renames + () + . + #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s4 (s5 s6) s6) 9))) + (next-group . #f) + (enter-block + . + #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s4 (s5 s6) s6) 9))) + (block-renames #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s4 (s5 s6) s6) 9)) . #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s4 (s5 s6) s6) 9))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (21 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (22 + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8)))) . #s(stx-boundary (s5 (s1 s3) (s4 8)))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (103 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) (s3 8))))) - (157 . #f) - (144 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 8)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1) (s2 8)))) - (21 . #s(stx-boundary (s0 (s1) (s2 8)))) - (22 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (prim-define-syntaxes . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) (s3 8))))) + (prepare-env . #f) + (enter-bind . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 8)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1) (s2 8)))) + (macro-pre-x . #s(stx-boundary (s0 (s1) (s2 8)))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 8))) . #s(stx-boundary (s3 (s1) (s2 8)))) - (9 . #s(stx-boundary (s0 (s1) (s2 8)))) - (0 . #s(stx-boundary (s0 (s1) (s2 8)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 8)))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary ((s1 8)))) - (10 . #s(stx-boundary ((s0 8)))) - (24 #s(stx-boundary ((s0 8))) . #s(stx-boundary ((s0 8)))) - (3 . #f) - (126 . #s(stx-boundary (s0 8))) - (127 . #s(stx-boundary (s0 8))) - (12 . #s(stx-boundary ((s0 8)))) - (4 . #s(stx-boundary ((s0 8)))) - (3 . #f) - (0 . #s(stx-boundary (s0 8))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 8))) - (118 . #f) - (7 . #s(stx-boundary (s0 8))) - (2 . #s(stx-boundary (s0 8))) - (5 . #s(stx-boundary ((s0 8)))) - (7 . #s(stx-boundary (s0 (s1) (s2 8)))) - (2 . #s(stx-boundary (s0 (s1) (s2 8)))) - (3 . #f) - (145 . #f) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) s2))) - (0 . #s(stx-boundary (s0 (s1 s2) s2))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) s2))) - (21 . #s(stx-boundary (s0 (s1 s2) s2))) - (22 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 8)))) + (visit . #s(stx-boundary (s0 (s1) (s2 8)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 8)))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary ((s1 8)))) + (enter-block . #s(stx-boundary ((s0 8)))) + (block-renames #s(stx-boundary ((s0 8))) . #s(stx-boundary ((s0 8)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 8))) + (exit-check . #s(stx-boundary (s0 8))) + (block->list . #s(stx-boundary ((s0 8)))) + (enter-list . #s(stx-boundary ((s0 8)))) + (next . #f) + (visit . #s(stx-boundary (s0 8))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 8))) + (prim-quote-syntax . #f) + (exit-prim . #s(stx-boundary (s0 8))) + (return . #s(stx-boundary (s0 8))) + (exit-list . #s(stx-boundary ((s0 8)))) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 8)))) + (return . #s(stx-boundary (s0 (s1) (s2 8)))) + (next . #f) + (exit-bind . #f) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) s2))) + (visit . #s(stx-boundary (s0 (s1 s2) s2))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) s2))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) s2))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 (s3) s3))) . #s(stx-boundary (s0 (s1 s3) s3))) - (9 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (2 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (0 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (22 + (exit-macro . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (return . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (visit . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) s3))) . #s(stx-boundary (s4 s1 (s2 (s3) s3)))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (104 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) s2)))) - (3 . #f) - (126 . #s(stx-boundary 9)) - (127 . #s(stx-boundary 9)) - (14 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (prim-define-values . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) s2)))) + (next . #f) + (enter-check . #s(stx-boundary 9)) + (exit-check . #s(stx-boundary 9)) + (block->letrec #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8)))) (((s5) (s6 (s7) s7))) 9))) - (0 + (visit . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8)))) (((s5) (s6 (s7) s7))) 9))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8)))) (((s5) (s6 (s7) s7))) 9))) - (114 . #f) - (19 + (prim-letrec-syntaxes+values . #f) + (letrec-syntaxes-renames (#s(stx-boundary ((s0) (s1 (s2) (s3 8))))) (#s(stx-boundary ((s4) (s5 (s6) s6)))) . #s(stx-boundary (9))) - (157 . #f) - (13 . #f) - (113 . #f) - (16 (#s(stx-boundary ((s0) (s1 (s2) s2)))) . #s(stx-boundary (9))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1) s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) s1))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary (s0))) - (10 . #s(stx-boundary (s0))) - (24 #s(stx-boundary (s0)) . #s(stx-boundary (s0))) - (3 . #f) - (126 . #s(stx-boundary s0)) - (127 . #s(stx-boundary s0)) - (12 . #s(stx-boundary (s0))) - (4 . #s(stx-boundary (s0))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0))) - (7 . #s(stx-boundary (s0 (s1) s1))) - (2 . #s(stx-boundary (s0 (s1) s1))) - (13 . #f) - (4 . #s(stx-boundary (9))) - (3 . #f) - (0 . #s(stx-boundary 9)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 9))) - (6 . #s(stx-boundary (s0 . 9))) - (115 . #f) - (7 . #s(stx-boundary (s0 9))) - (2 . #s(stx-boundary (s0 9))) - (5 . #s(stx-boundary ((s0 9)))) - (142 . #s(stx-boundary (s0 (((s1) (s2 (s3) s3))) (s4 9)))) - (7 . #s(stx-boundary (s0 (((s1) (s2 (s3) s3))) (s4 9)))) - (2 . #s(stx-boundary (s0 (((s1) (s2 (s3) s3))) (s4 9)))) - (7 . #s(stx-boundary (s0 () (s0 (((s1) (s2 (s3) s3))) (s4 9))))) - (2 . #s(stx-boundary (s0 () (s0 (((s1) (s2 (s3) s3))) (s4 9))))) - (7 . #s(stx-boundary (s0 (s1 () (s1 (((s2) (s3 (s4) s4))) (s5 9)))))) - (2 . #s(stx-boundary (s0 (s1 () (s1 (((s2) (s3 (s4) s4))) (s5 9)))))))) + (prepare-env . #f) + (next-group . #f) + (prim-letrec-values . #f) + (let-renames + (#s(stx-boundary ((s0) (s1 (s2) s2)))) + . + #s(stx-boundary (9))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1) s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) s1))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary (s0))) + (enter-block . #s(stx-boundary (s0))) + (block-renames #s(stx-boundary (s0)) . #s(stx-boundary (s0))) + (next . #f) + (enter-check . #s(stx-boundary s0)) + (exit-check . #s(stx-boundary s0)) + (block->list . #s(stx-boundary (s0))) + (enter-list . #s(stx-boundary (s0))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0))) + (exit-prim . #s(stx-boundary (s0 (s1) s1))) + (return . #s(stx-boundary (s0 (s1) s1))) + (next-group . #f) + (enter-list . #s(stx-boundary (9))) + (next . #f) + (visit . #s(stx-boundary 9)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 9))) + (enter-prim . #s(stx-boundary (s0 . 9))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 9))) + (return . #s(stx-boundary (s0 9))) + (exit-list . #s(stx-boundary ((s0 9)))) + (tag . #s(stx-boundary (s0 (((s1) (s2 (s3) s3))) (s4 9)))) + (exit-prim . #s(stx-boundary (s0 (((s1) (s2 (s3) s3))) (s4 9)))) + (return . #s(stx-boundary (s0 (((s1) (s2 (s3) s3))) (s4 9)))) + (exit-prim + . + #s(stx-boundary (s0 () (s0 (((s1) (s2 (s3) s3))) (s4 9))))) + (return . #s(stx-boundary (s0 () (s0 (((s1) (s2 (s3) s3))) (s4 9))))) + (exit-prim + . + #s(stx-boundary (s0 (s1 () (s1 (((s2) (s3 (s4) s4))) (s5 9)))))) + (return + . + #s(stx-boundary (s0 (s1 () (s1 (((s2) (s3 (s4) s4))) (s5 9)))))))) ((set! __x 99) . - ((141 . #f) - (0 . #s(stx-boundary (s0 (s1 s2 99)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 s2 99)))) - (138 . #f) - (0 . #s(stx-boundary (s0 s1 99))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 99))) - (123 . #f) - (1 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary 99)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 99))) - (6 . #s(stx-boundary (s0 . 99))) - (115 . #f) - (7 . #s(stx-boundary (s0 99))) - (2 . #s(stx-boundary (s0 99))) - (7 . #s(stx-boundary (s0 s1 (s2 99)))) - (2 . #s(stx-boundary (s0 s1 (s2 99)))) - (7 . #s(stx-boundary (s0 (s1 s2 (s3 99))))) - (2 . #s(stx-boundary (s0 (s1 s2 (s3 99))))))) + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 s2 99)))) + (enter-check . #s(stx-boundary (s0 (s1 s2 99)))) + (exit-check . #s(stx-boundary (s0 (s1 s2 99)))) + (visit . #s(stx-boundary (s0 (s1 s2 99)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 s2 99)))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 s1 99))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 99))) + (prim-set! . #f) + (resolve . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary 99)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 99))) + (enter-prim . #s(stx-boundary (s0 . 99))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 99))) + (return . #s(stx-boundary (s0 99))) + (exit-prim . #s(stx-boundary (s0 s1 (s2 99)))) + (return . #s(stx-boundary (s0 s1 (s2 99)))) + (exit-prim . #s(stx-boundary (s0 (s1 s2 (s3 99))))) + (return . #s(stx-boundary (s0 (s1 s2 (s3 99))))))) ((let () (define-syntax (lift stx) (syntax-local-lift-expression #'(+ 1 2))) (lift)) . - ((141 . #f) - (0 + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 (s6 (s7 1 2)))) (s3))))) - (1 . #s(stx-boundary s0)) - (6 + (enter-check . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 (s6 (s7 1 2)))) (s3))))) - (138 . #f) - (0 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 (s6 1 2)))) (s2)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 (s6 1 2)))) (s2)))) - (21 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 (s6 1 2)))) (s2)))) - (22 + (exit-check + . + #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 (s6 (s7 1 2)))) (s3))))) + (visit + . + #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 (s6 (s7 1 2)))) (s3))))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 (s6 (s7 1 2)))) (s3))))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 (s6 1 2)))) (s2)))) + (resolve . #s(stx-boundary s0)) + (enter-macro + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 (s6 1 2)))) (s2)))) + (macro-pre-x + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 (s6 1 2)))) (s2)))) + (macro-post-x #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 (s6 1 2)))) (s2))) . #s(stx-boundary (s7 () (s1 (s2 s3) (s4 (s5 (s6 1 2)))) (s2)))) - (9 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 (s6 1 2)))) (s2)))) - (0 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 (s6 1 2)))) (s2)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 (s6 1 2)))) (s2)))) - (112 . #f) - (16 () . #s(stx-boundary ((s0 (s1 s2) (s3 (s4 (s5 1 2)))) (s1)))) - (13 . #f) - (10 . #s(stx-boundary ((s0 (s1 s2) (s3 (s4 (s5 1 2)))) (s1)))) - (24 + (exit-macro + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 (s6 1 2)))) (s2)))) + (visit . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 (s6 1 2)))) (s2)))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 (s6 1 2)))) (s2)))) + (prim-let-values . #f) + (let-renames + () + . + #s(stx-boundary ((s0 (s1 s2) (s3 (s4 (s5 1 2)))) (s1)))) + (next-group . #f) + (enter-block . #s(stx-boundary ((s0 (s1 s2) (s3 (s4 (s5 1 2)))) (s1)))) + (block-renames #s(stx-boundary ((s0 (s1 s2) (s3 (s4 (s5 1 2)))) (s1))) . #s(stx-boundary ((s0 (s1 s2) (s3 (s4 (s5 1 2)))) (s1)))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 1 2)))))) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 1 2)))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 1 2)))))) - (21 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 1 2)))))) - (22 + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 1 2)))))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 1 2)))))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 1 2)))))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 1 2)))))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 1 2)))))) . #s(stx-boundary (s7 (s1 s3) (s4 (s5 (s6 1 2)))))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 1 2))))))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 1 2))))))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 1 2))))))) - (103 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) (s3 (s4 (s5 1 2))))))) - (157 . #f) - (144 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 1 2)))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 1 2)))))) - (21 . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 1 2)))))) - (22 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 1 2))))))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 1 2))))))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 1 2))))))) + (prim-define-syntaxes . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) (s3 (s4 (s5 1 2))))))) + (prepare-env . #f) + (enter-bind . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 1 2)))))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 1 2)))))) + (macro-pre-x . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 1 2)))))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3 (s4 1 2))))) . #s(stx-boundary (s5 (s1) (s2 (s3 (s4 1 2)))))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 1 2)))))) - (0 . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 1 2)))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 1 2)))))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary ((s1 (s2 (s3 1 2)))))) - (10 . #s(stx-boundary ((s0 (s1 (s2 1 2)))))) - (24 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 1 2)))))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 1 2)))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 1 2)))))) + (prim-lambda . #f) + (lambda-renames + #s(stx-boundary (s0)) + . + #s(stx-boundary ((s1 (s2 (s3 1 2)))))) + (enter-block . #s(stx-boundary ((s0 (s1 (s2 1 2)))))) + (block-renames #s(stx-boundary ((s0 (s1 (s2 1 2))))) . #s(stx-boundary ((s0 (s1 (s2 1 2)))))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 (s2 1 2))))) - (127 . #s(stx-boundary (s0 (s1 (s2 1 2))))) - (12 . #s(stx-boundary ((s0 (s1 (s2 1 2)))))) - (4 . #s(stx-boundary ((s0 (s1 (s2 1 2)))))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1 (s2 1 2))))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 (s2 (s3 1 2))))) - (8 . #s(stx-boundary (s0 s1 (s2 (s3 1 2))))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3 1 2))))) - (22 + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 (s2 1 2))))) + (exit-check . #s(stx-boundary (s0 (s1 (s2 1 2))))) + (block->list . #s(stx-boundary ((s0 (s1 (s2 1 2)))))) + (enter-list . #s(stx-boundary ((s0 (s1 (s2 1 2)))))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 (s2 1 2))))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 (s2 (s3 1 2))))) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3 1 2))))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3 1 2))))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 (s3 1 2)))) . #s(stx-boundary (s0 s1 (s2 (s3 1 2))))) - (9 . #s(stx-boundary (s0 s1 (s2 (s3 1 2))))) - (0 . #s(stx-boundary (s0 s1 (s2 (s3 1 2))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 (s3 1 2))))) - (109 . #f) - (4 . #s(stx-boundary (s0 (s1 (s2 1 2))))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1 1 2)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 1 2)))) - (21 . #s(stx-boundary (s0 (s1 1 2)))) - (153 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (154 . #f) - (22 #s(stx-boundary (s0 (s1 1 2))) . #s(stx-boundary (s2 (s1 1 2)))) - (9 . #s(stx-boundary (s0 (s1 1 2)))) - (0 . #s(stx-boundary (s0 (s1 1 2)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 1 2)))) - (118 . #f) - (7 . #s(stx-boundary (s0 (s1 1 2)))) - (2 . #s(stx-boundary (s0 (s1 1 2)))) - (5 . #s(stx-boundary (s0 (s1 (s2 1 2))))) - (7 . #s(stx-boundary (s0 s1 (s2 (s3 1 2))))) - (2 . #s(stx-boundary (s0 s1 (s2 (s3 1 2))))) - (5 . #s(stx-boundary ((s0 s1 (s2 (s3 1 2)))))) - (7 . #s(stx-boundary (s0 (s1) (s2 s3 (s4 (s5 1 2)))))) - (2 . #s(stx-boundary (s0 (s1) (s2 s3 (s4 (s5 1 2)))))) - (3 . #f) - (145 . #f) - (3 . #f) - (126 . #s(stx-boundary (s0))) - (0 . #s(stx-boundary (s0))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0))) - (21 . #s(stx-boundary (s0))) - (129 (#s(stx-boundary s0)) . #s(stx-boundary (s1 1 2))) - (22 #s(stx-boundary s0) . #s(stx-boundary (s1))) - (9 . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (127 . #s(stx-boundary s0)) - (14 #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 (s5 (s6 1 2)))))) () s7))) - (0 . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 (s5 (s6 1 2)))))) () s7))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 (s5 (s6 1 2)))))) () s7))) - (114 . #f) - (19 + (exit-macro . #s(stx-boundary (s0 s1 (s2 (s3 1 2))))) + (visit . #s(stx-boundary (s0 s1 (s2 (s3 1 2))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 (s3 1 2))))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 (s1 (s2 1 2))))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 1 2)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 1 2)))) + (macro-pre-x . #s(stx-boundary (s0 (s1 1 2)))) + (local-value . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (local-value-result . #f) + (macro-post-x + #s(stx-boundary (s0 (s1 1 2))) + . + #s(stx-boundary (s2 (s1 1 2)))) + (exit-macro . #s(stx-boundary (s0 (s1 1 2)))) + (visit . #s(stx-boundary (s0 (s1 1 2)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 1 2)))) + (prim-quote-syntax . #f) + (exit-prim . #s(stx-boundary (s0 (s1 1 2)))) + (return . #s(stx-boundary (s0 (s1 1 2)))) + (exit-list . #s(stx-boundary (s0 (s1 (s2 1 2))))) + (exit-prim . #s(stx-boundary (s0 s1 (s2 (s3 1 2))))) + (return . #s(stx-boundary (s0 s1 (s2 (s3 1 2))))) + (exit-list . #s(stx-boundary ((s0 s1 (s2 (s3 1 2)))))) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 s3 (s4 (s5 1 2)))))) + (return . #s(stx-boundary (s0 (s1) (s2 s3 (s4 (s5 1 2)))))) + (next . #f) + (exit-bind . #f) + (next . #f) + (enter-check . #s(stx-boundary (s0))) + (visit . #s(stx-boundary (s0))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0))) + (macro-pre-x . #s(stx-boundary (s0))) + (lift-expr (#s(stx-boundary s0)) . #s(stx-boundary (s1 1 2))) + (macro-post-x #s(stx-boundary s0) . #s(stx-boundary (s1))) + (exit-macro . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-check . #s(stx-boundary s0)) + (block->letrec + #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 (s5 (s6 1 2)))))) () s7))) + (visit + . + #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 (s5 (s6 1 2)))))) () s7))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 (s5 (s6 1 2)))))) () s7))) + (prim-letrec-syntaxes+values . #f) + (letrec-syntaxes-renames (#s(stx-boundary ((s0) (s1 (s2) (s3 (s4 (s5 1 2))))))) () . #s(stx-boundary (s6))) - (157 . #f) - (13 . #f) - (4 . #s(stx-boundary (s0))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0))) - (142 . #s(stx-boundary (s0 () s1))) - (7 . #s(stx-boundary (s0 () s1))) - (2 . #s(stx-boundary (s0 () s1))) - (7 . #s(stx-boundary (s0 () (s0 () s1)))) - (2 . #s(stx-boundary (s0 () (s0 () s1)))) - (7 . #s(stx-boundary (s0 (s1 () (s1 () s2))))) - (2 . #s(stx-boundary (s0 (s1 () (s1 () s2))))) - (128 + (prepare-env . #f) + (next-group . #f) + (enter-list . #s(stx-boundary (s0))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0))) + (tag . #s(stx-boundary (s0 () s1))) + (exit-prim . #s(stx-boundary (s0 () s1))) + (return . #s(stx-boundary (s0 () s1))) + (exit-prim . #s(stx-boundary (s0 () (s0 () s1)))) + (return . #s(stx-boundary (s0 () (s0 () s1)))) + (exit-prim . #s(stx-boundary (s0 (s1 () (s1 () s2))))) + (return . #s(stx-boundary (s0 (s1 () (s1 () s2))))) + (lift-loop . #s(stx-boundary (s0 (s1 (s2) (s3 1 2)) (s4 (s5 () (s5 () s2)))))) - (0 . #s(stx-boundary (s0 (s1 (s2) (s3 1 2)) (s4 (s5 () (s5 () s2)))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 (s2) (s3 1 2)) (s4 (s5 () (s5 () s2)))))) - (107 . #f) - (4 . #s(stx-boundary ((s0 (s1) (s2 1 2)) (s3 (s4 () (s4 () s1)))))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 1 2)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 1 2)))) - (104 . #f) - (0 . #s(stx-boundary (s0 1 2))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 1 2))) - (8 . #s(stx-boundary (s0 s1 1 2))) - (21 . #s(stx-boundary (s0 s1 1 2))) - (22 #s(stx-boundary (s0 s1 1 2)) . #s(stx-boundary (s0 s1 1 2))) - (9 . #s(stx-boundary (s0 s1 1 2))) - (0 . #s(stx-boundary (s0 s1 1 2))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 1 2))) - (109 . #f) - (4 . #s(stx-boundary (s0 1 2))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary 1)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 1))) - (6 . #s(stx-boundary (s0 . 1))) - (115 . #f) - (7 . #s(stx-boundary (s0 1))) - (2 . #s(stx-boundary (s0 1))) - (3 . #f) - (0 . #s(stx-boundary 2)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 2))) - (6 . #s(stx-boundary (s0 . 2))) - (115 . #f) - (7 . #s(stx-boundary (s0 2))) - (2 . #s(stx-boundary (s0 2))) - (5 . #s(stx-boundary (s0 (s1 1) (s1 2)))) - (7 . #s(stx-boundary (s0 s1 (s2 1) (s2 2)))) - (2 . #s(stx-boundary (s0 s1 (s2 1) (s2 2)))) - (7 . #s(stx-boundary (s0 (s1) (s2 s3 (s4 1) (s4 2))))) - (2 . #s(stx-boundary (s0 (s1) (s2 s3 (s4 1) (s4 2))))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1 () (s1 () s2))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 () (s1 () s2))))) - (138 . #f) - (0 . #s(stx-boundary (s0 () (s0 () s1)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 () (s0 () s1)))) - (112 . #f) - (16 () . #s(stx-boundary ((s0 () s1)))) - (13 . #f) - (10 . #s(stx-boundary ((s0 () s1)))) - (24 #s(stx-boundary ((s0 () s1))) . #s(stx-boundary ((s0 () s1)))) - (3 . #f) - (126 . #s(stx-boundary (s0 () s1))) - (127 . #s(stx-boundary (s0 () s1))) - (12 . #s(stx-boundary ((s0 () s1)))) - (4 . #s(stx-boundary ((s0 () s1)))) - (3 . #f) - (0 . #s(stx-boundary (s0 () s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 () s1))) - (112 . #f) - (16 () . #s(stx-boundary (s0))) - (13 . #f) - (10 . #s(stx-boundary (s0))) - (24 #s(stx-boundary (s0)) . #s(stx-boundary (s0))) - (3 . #f) - (126 . #s(stx-boundary s0)) - (127 . #s(stx-boundary s0)) - (12 . #s(stx-boundary (s0))) - (4 . #s(stx-boundary (s0))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0))) - (7 . #s(stx-boundary (s0 () s1))) - (2 . #s(stx-boundary (s0 () s1))) - (5 . #s(stx-boundary ((s0 () s1)))) - (7 . #s(stx-boundary (s0 () (s0 () s1)))) - (2 . #s(stx-boundary (s0 () (s0 () s1)))) - (7 . #s(stx-boundary (s0 (s1 () (s1 () s2))))) - (2 . #s(stx-boundary (s0 (s1 () (s1 () s2))))) - (5 + (visit + . + #s(stx-boundary (s0 (s1 (s2) (s3 1 2)) (s4 (s5 () (s5 () s2)))))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary (s0 (s1 (s2) (s3 1 2)) (s4 (s5 () (s5 () s2)))))) + (prim-begin . #f) + (enter-list + . + #s(stx-boundary ((s0 (s1) (s2 1 2)) (s3 (s4 () (s4 () s1)))))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 1 2)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 1 2)))) + (prim-define-values . #f) + (visit . #s(stx-boundary (s0 1 2))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 1 2))) + (enter-macro . #s(stx-boundary (s0 s1 1 2))) + (macro-pre-x . #s(stx-boundary (s0 s1 1 2))) + (macro-post-x + #s(stx-boundary (s0 s1 1 2)) + . + #s(stx-boundary (s0 s1 1 2))) + (exit-macro . #s(stx-boundary (s0 s1 1 2))) + (visit . #s(stx-boundary (s0 s1 1 2))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 1 2))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 1 2))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary 1)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 1))) + (enter-prim . #s(stx-boundary (s0 . 1))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 1))) + (return . #s(stx-boundary (s0 1))) + (next . #f) + (visit . #s(stx-boundary 2)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 2))) + (enter-prim . #s(stx-boundary (s0 . 2))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 2))) + (return . #s(stx-boundary (s0 2))) + (exit-list . #s(stx-boundary (s0 (s1 1) (s1 2)))) + (exit-prim . #s(stx-boundary (s0 s1 (s2 1) (s2 2)))) + (return . #s(stx-boundary (s0 s1 (s2 1) (s2 2)))) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 s3 (s4 1) (s4 2))))) + (return . #s(stx-boundary (s0 (s1) (s2 s3 (s4 1) (s4 2))))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 () (s1 () s2))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 () (s1 () s2))))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 () (s0 () s1)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 () (s0 () s1)))) + (prim-let-values . #f) + (let-renames () . #s(stx-boundary ((s0 () s1)))) + (next-group . #f) + (enter-block . #s(stx-boundary ((s0 () s1)))) + (block-renames + #s(stx-boundary ((s0 () s1))) + . + #s(stx-boundary ((s0 () s1)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 () s1))) + (exit-check . #s(stx-boundary (s0 () s1))) + (block->list . #s(stx-boundary ((s0 () s1)))) + (enter-list . #s(stx-boundary ((s0 () s1)))) + (next . #f) + (visit . #s(stx-boundary (s0 () s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 () s1))) + (prim-let-values . #f) + (let-renames () . #s(stx-boundary (s0))) + (next-group . #f) + (enter-block . #s(stx-boundary (s0))) + (block-renames #s(stx-boundary (s0)) . #s(stx-boundary (s0))) + (next . #f) + (enter-check . #s(stx-boundary s0)) + (exit-check . #s(stx-boundary s0)) + (block->list . #s(stx-boundary (s0))) + (enter-list . #s(stx-boundary (s0))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0))) + (exit-prim . #s(stx-boundary (s0 () s1))) + (return . #s(stx-boundary (s0 () s1))) + (exit-list . #s(stx-boundary ((s0 () s1)))) + (exit-prim . #s(stx-boundary (s0 () (s0 () s1)))) + (return . #s(stx-boundary (s0 () (s0 () s1)))) + (exit-prim . #s(stx-boundary (s0 (s1 () (s1 () s2))))) + (return . #s(stx-boundary (s0 (s1 () (s1 () s2))))) + (exit-list . #s(stx-boundary ((s0 (s1) (s2 s3 (s4 1) (s4 2))) (s5 (s6 () (s6 () s1)))))) - (7 + (exit-prim . #s(stx-boundary (s0 (s1 (s2) (s3 s4 (s5 1) (s5 2))) (s6 (s7 () (s7 () s2)))))) - (2 + (return . #s(stx-boundary (s0 (s1 (s2) (s3 s4 (s5 1) (s5 2))) (s6 (s7 () (s7 () s2)))))))) ((let () (define (ok x) '8) (ok 5)) . - ((141 . #f) - (0 . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s3 5))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s3 5))))) - (138 . #f) - (0 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) - (21 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) - (22 + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s3 5))))) + (enter-check + . + #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s3 5))))) + (exit-check . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s3 5))))) + (visit . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s3 5))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s3 5))))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) + (macro-pre-x . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) + (macro-post-x #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5))) . #s(stx-boundary (s5 () (s1 (s2 s3) (s4 8)) (s2 5)))) - (9 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) - (0 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) - (112 . #f) - (16 () . #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s1 5)))) - (13 . #f) - (10 . #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s1 5)))) - (24 + (exit-macro . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) + (visit . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) + (prim-let-values . #f) + (let-renames () . #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s1 5)))) + (next-group . #f) + (enter-block . #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s1 5)))) + (block-renames #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s1 5))) . #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s1 5)))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (21 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (22 + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 (s3) (s4 8)))) . #s(stx-boundary (s0 (s1 s3) (s4 8)))) - (9 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 8))))) - (2 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 8))))) - (0 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 8))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 8))))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 8))))) - (22 + (exit-macro . #s(stx-boundary (s0 s1 (s2 (s3) (s4 8))))) + (return . #s(stx-boundary (s0 s1 (s2 (s3) (s4 8))))) + (visit . #s(stx-boundary (s0 s1 (s2 (s3) (s4 8))))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3) (s4 8))))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3) (s4 8))))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8)))) . #s(stx-boundary (s5 s1 (s2 (s3) (s4 8))))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (104 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) (s3 8))))) - (3 . #f) - (126 . #s(stx-boundary (s0 5))) - (127 . #s(stx-boundary (s0 5))) - (14 #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8)))) (s1 5)))) - (0 . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8)))) (s1 5)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8)))) (s1 5)))) - (113 . #f) - (16 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (prim-define-values . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) (s3 8))))) + (next . #f) + (enter-check . #s(stx-boundary (s0 5))) + (exit-check . #s(stx-boundary (s0 5))) + (block->letrec #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8)))) (s1 5)))) + (visit . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8)))) (s1 5)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8)))) (s1 5)))) + (prim-letrec-values . #f) + (let-renames (#s(stx-boundary ((s0) (s1 (s2) (s3 8))))) . #s(stx-boundary ((s0 5)))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 8)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 8)))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary ((s1 8)))) - (10 . #s(stx-boundary ((s0 8)))) - (24 #s(stx-boundary ((s0 8))) . #s(stx-boundary ((s0 8)))) - (3 . #f) - (126 . #s(stx-boundary (s0 8))) - (127 . #s(stx-boundary (s0 8))) - (12 . #s(stx-boundary ((s0 8)))) - (4 . #s(stx-boundary ((s0 8)))) - (3 . #f) - (0 . #s(stx-boundary (s0 8))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 8))) - (117 . #f) - (7 . #s(stx-boundary (s0 8))) - (2 . #s(stx-boundary (s0 8))) - (5 . #s(stx-boundary ((s0 8)))) - (7 . #s(stx-boundary (s0 (s1) (s2 8)))) - (2 . #s(stx-boundary (s0 (s1) (s2 8)))) - (13 . #f) - (4 . #s(stx-boundary ((s0 5)))) - (3 . #f) - (0 . #s(stx-boundary (s0 5))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 5))) - (8 . #s(stx-boundary (s0 s1 5))) - (21 . #s(stx-boundary (s0 s1 5))) - (22 #s(stx-boundary (s0 s1 5)) . #s(stx-boundary (s0 s1 5))) - (9 . #s(stx-boundary (s0 s1 5))) - (0 . #s(stx-boundary (s0 s1 5))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 5))) - (109 . #f) - (4 . #s(stx-boundary (s0 5))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary 5)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 5))) - (6 . #s(stx-boundary (s0 . 5))) - (115 . #f) - (7 . #s(stx-boundary (s0 5))) - (2 . #s(stx-boundary (s0 5))) - (5 . #s(stx-boundary (s0 (s1 5)))) - (7 . #s(stx-boundary (s0 s1 (s2 5)))) - (2 . #s(stx-boundary (s0 s1 (s2 5)))) - (5 . #s(stx-boundary ((s0 s1 (s2 5))))) - (7 . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8)))) (s5 s1 (s4 5))))) - (2 . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8)))) (s5 s1 (s4 5))))) - (7 + (next . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 8)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 8)))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary ((s1 8)))) + (enter-block . #s(stx-boundary ((s0 8)))) + (block-renames #s(stx-boundary ((s0 8))) . #s(stx-boundary ((s0 8)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 8))) + (exit-check . #s(stx-boundary (s0 8))) + (block->list . #s(stx-boundary ((s0 8)))) + (enter-list . #s(stx-boundary ((s0 8)))) + (next . #f) + (visit . #s(stx-boundary (s0 8))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 8))) + (prim-quote . #f) + (exit-prim . #s(stx-boundary (s0 8))) + (return . #s(stx-boundary (s0 8))) + (exit-list . #s(stx-boundary ((s0 8)))) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 8)))) + (return . #s(stx-boundary (s0 (s1) (s2 8)))) + (next-group . #f) + (enter-list . #s(stx-boundary ((s0 5)))) + (next . #f) + (visit . #s(stx-boundary (s0 5))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 5))) + (enter-macro . #s(stx-boundary (s0 s1 5))) + (macro-pre-x . #s(stx-boundary (s0 s1 5))) + (macro-post-x #s(stx-boundary (s0 s1 5)) . #s(stx-boundary (s0 s1 5))) + (exit-macro . #s(stx-boundary (s0 s1 5))) + (visit . #s(stx-boundary (s0 s1 5))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 5))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 5))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary 5)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 5))) + (enter-prim . #s(stx-boundary (s0 . 5))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 5))) + (return . #s(stx-boundary (s0 5))) + (exit-list . #s(stx-boundary (s0 (s1 5)))) + (exit-prim . #s(stx-boundary (s0 s1 (s2 5)))) + (return . #s(stx-boundary (s0 s1 (s2 5)))) + (exit-list . #s(stx-boundary ((s0 s1 (s2 5))))) + (exit-prim + . + #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8)))) (s5 s1 (s4 5))))) + (return + . + #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8)))) (s5 s1 (s4 5))))) + (exit-prim . #s(stx-boundary (s0 () (s0 (((s1) (s2 (s3) (s4 8)))) (s5 s1 (s4 5)))))) - (2 + (return . #s(stx-boundary (s0 () (s0 (((s1) (s2 (s3) (s4 8)))) (s5 s1 (s4 5)))))) - (7 + (exit-prim . #s(stx-boundary (s0 (s1 () (s1 (((s2) (s3 (s4) (s5 8)))) (s6 s2 (s5 5))))))) - (2 + (return . #s(stx-boundary (s0 (s1 () (s1 (((s2) (s3 (s4) (s5 8)))) (s6 s2 (s5 5))))))))) ((begin0 '3 '5) . - ((141 . #f) - (0 . #s(stx-boundary (s0 (s1 (s2 3) (s2 5))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 (s2 3) (s2 5))))) - (138 . #f) - (0 . #s(stx-boundary (s0 (s1 3) (s1 5)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 3) (s1 5)))) - (108 . #f) - (3 . #f) - (0 . #s(stx-boundary (s0 3))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 3))) - (117 . #f) - (7 . #s(stx-boundary (s0 3))) - (2 . #s(stx-boundary (s0 3))) - (3 . #f) - (4 . #s(stx-boundary ((s0 5)))) - (3 . #f) - (0 . #s(stx-boundary (s0 5))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 5))) - (117 . #f) - (7 . #s(stx-boundary (s0 5))) - (2 . #s(stx-boundary (s0 5))) - (5 . #s(stx-boundary ((s0 5)))) - (7 . #s(stx-boundary (s0 (s1 3) (s1 5)))) - (2 . #s(stx-boundary (s0 (s1 3) (s1 5)))) - (7 . #s(stx-boundary (s0 (s1 (s2 3) (s2 5))))) - (2 . #s(stx-boundary (s0 (s1 (s2 3) (s2 5))))))) + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 (s2 3) (s2 5))))) + (enter-check . #s(stx-boundary (s0 (s1 (s2 3) (s2 5))))) + (exit-check . #s(stx-boundary (s0 (s1 (s2 3) (s2 5))))) + (visit . #s(stx-boundary (s0 (s1 (s2 3) (s2 5))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 (s2 3) (s2 5))))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 (s1 3) (s1 5)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 3) (s1 5)))) + (prim-begin0 . #f) + (next . #f) + (visit . #s(stx-boundary (s0 3))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 3))) + (prim-quote . #f) + (exit-prim . #s(stx-boundary (s0 3))) + (return . #s(stx-boundary (s0 3))) + (next . #f) + (enter-list . #s(stx-boundary ((s0 5)))) + (next . #f) + (visit . #s(stx-boundary (s0 5))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 5))) + (prim-quote . #f) + (exit-prim . #s(stx-boundary (s0 5))) + (return . #s(stx-boundary (s0 5))) + (exit-list . #s(stx-boundary ((s0 5)))) + (exit-prim . #s(stx-boundary (s0 (s1 3) (s1 5)))) + (return . #s(stx-boundary (s0 (s1 3) (s1 5)))) + (exit-prim . #s(stx-boundary (s0 (s1 (s2 3) (s2 5))))) + (return . #s(stx-boundary (s0 (s1 (s2 3) (s2 5))))))) ((case-lambda ((x) x) ((x y) (+ x y))) . - ((141 . #f) - (0 . #s(stx-boundary (s0 (s1 ((s2) s2) ((s2 s3) (s4 s2 s3)))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 ((s2) s2) ((s2 s3) (s4 s2 s3)))))) - (138 . #f) - (0 . #s(stx-boundary (s0 ((s1) s1) ((s1 s2) (s3 s1 s2))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 ((s1) s1) ((s1 s2) (s3 s1 s2))))) - (111 . #f) - (3 . #f) - (18 #s(stx-boundary (s0)) . #s(stx-boundary (s0))) - (10 . #s(stx-boundary (s0))) - (24 #s(stx-boundary (s0)) . #s(stx-boundary (s0))) - (3 . #f) - (126 . #s(stx-boundary s0)) - (127 . #s(stx-boundary s0)) - (12 . #s(stx-boundary (s0))) - (4 . #s(stx-boundary (s0))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0))) - (3 . #f) - (18 #s(stx-boundary (s0 s1)) . #s(stx-boundary ((s2 s0 s1)))) - (10 . #s(stx-boundary ((s0 s1 s2)))) - (24 #s(stx-boundary ((s0 s1 s2))) . #s(stx-boundary ((s0 s1 s2)))) - (3 . #f) - (126 . #s(stx-boundary (s0 s1 s2))) - (127 . #s(stx-boundary (s0 s1 s2))) - (12 . #s(stx-boundary ((s0 s1 s2)))) - (4 . #s(stx-boundary ((s0 s1 s2)))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 s2))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 s2 s3))) - (8 . #s(stx-boundary (s0 s1 s2 s3))) - (21 . #s(stx-boundary (s0 s1 s2 s3))) - (22 #s(stx-boundary (s0 s1 s2 s3)) . #s(stx-boundary (s0 s1 s2 s3))) - (9 . #s(stx-boundary (s0 s1 s2 s3))) - (0 . #s(stx-boundary (s0 s1 s2 s3))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 s2 s3))) - (109 . #f) - (4 . #s(stx-boundary (s0 s1 s2))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0 s1 s2))) - (7 . #s(stx-boundary (s0 s1 s2 s3))) - (2 . #s(stx-boundary (s0 s1 s2 s3))) - (5 . #s(stx-boundary ((s0 s1 s2 s3)))) - (7 . #s(stx-boundary (s0 ((s1) s1) ((s1 s2) (s3 s4 s1 s2))))) - (2 . #s(stx-boundary (s0 ((s1) s1) ((s1 s2) (s3 s4 s1 s2))))) - (7 . #s(stx-boundary (s0 (s1 ((s2) s2) ((s2 s3) (s4 s5 s2 s3)))))) - (2 . #s(stx-boundary (s0 (s1 ((s2) s2) ((s2 s3) (s4 s5 s2 s3)))))))) + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 ((s2) s2) ((s2 s3) (s4 s2 s3)))))) + (enter-check + . + #s(stx-boundary (s0 (s1 ((s2) s2) ((s2 s3) (s4 s2 s3)))))) + (exit-check + . + #s(stx-boundary (s0 (s1 ((s2) s2) ((s2 s3) (s4 s2 s3)))))) + (visit . #s(stx-boundary (s0 (s1 ((s2) s2) ((s2 s3) (s4 s2 s3)))))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary (s0 (s1 ((s2) s2) ((s2 s3) (s4 s2 s3)))))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 ((s1) s1) ((s1 s2) (s3 s1 s2))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 ((s1) s1) ((s1 s2) (s3 s1 s2))))) + (prim-case-lambda . #f) + (next . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary (s0))) + (enter-block . #s(stx-boundary (s0))) + (block-renames #s(stx-boundary (s0)) . #s(stx-boundary (s0))) + (next . #f) + (enter-check . #s(stx-boundary s0)) + (exit-check . #s(stx-boundary s0)) + (block->list . #s(stx-boundary (s0))) + (enter-list . #s(stx-boundary (s0))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0))) + (next . #f) + (lambda-renames + #s(stx-boundary (s0 s1)) + . + #s(stx-boundary ((s2 s0 s1)))) + (enter-block . #s(stx-boundary ((s0 s1 s2)))) + (block-renames + #s(stx-boundary ((s0 s1 s2))) + . + #s(stx-boundary ((s0 s1 s2)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 s1 s2))) + (exit-check . #s(stx-boundary (s0 s1 s2))) + (block->list . #s(stx-boundary ((s0 s1 s2)))) + (enter-list . #s(stx-boundary ((s0 s1 s2)))) + (next . #f) + (visit . #s(stx-boundary (s0 s1 s2))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 s2 s3))) + (enter-macro . #s(stx-boundary (s0 s1 s2 s3))) + (macro-pre-x . #s(stx-boundary (s0 s1 s2 s3))) + (macro-post-x + #s(stx-boundary (s0 s1 s2 s3)) + . + #s(stx-boundary (s0 s1 s2 s3))) + (exit-macro . #s(stx-boundary (s0 s1 s2 s3))) + (visit . #s(stx-boundary (s0 s1 s2 s3))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 s2 s3))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 s1 s2))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0 s1 s2))) + (exit-prim . #s(stx-boundary (s0 s1 s2 s3))) + (return . #s(stx-boundary (s0 s1 s2 s3))) + (exit-list . #s(stx-boundary ((s0 s1 s2 s3)))) + (exit-prim . #s(stx-boundary (s0 ((s1) s1) ((s1 s2) (s3 s4 s1 s2))))) + (return . #s(stx-boundary (s0 ((s1) s1) ((s1 s2) (s3 s4 s1 s2))))) + (exit-prim + . + #s(stx-boundary (s0 (s1 ((s2) s2) ((s2 s3) (s4 s5 s2 s3)))))) + (return + . + #s(stx-boundary (s0 (s1 ((s2) s2) ((s2 s3) (s4 s5 s2 s3)))))))) ((let () (define-syntax (ok stx) - (define-values - (exp opaque) - (syntax-local-expand-expression (cadr (syntax-e stx)))) - opaque) - (#%expression (ok 9))) + (local-expand (cadr (syntax-e stx)) 'expression #f)) + (ok 9)) . - ((141 . #f) - (0 + ((start-top . #f) + (visit . #s(stx-boundary - (s0 - (s1 - () - (s2 (s3 s4) (s5 (s6 s7) (s8 (s9 (s10 s4)))) s7) - (s0 (s3 9)))))) - (1 . #s(stx-boundary s0)) - (6 + (s0 (s1 () (s2 (s3 s4) (s5 (s6 (s7 s4)) (s8 s9) #f)) (s3 9))))) + (enter-check . #s(stx-boundary - (s0 - (s1 - () - (s2 (s3 s4) (s5 (s6 s7) (s8 (s9 (s10 s4)))) s7) - (s0 (s3 9)))))) - (138 . #f) - (0 + (s0 (s1 () (s2 (s3 s4) (s5 (s6 (s7 s4)) (s8 s9) #f)) (s3 9))))) + (exit-check . #s(stx-boundary - (s0 - () - (s1 (s2 s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6) - (s10 (s2 9))))) - (1 . #s(stx-boundary s0)) - (8 + (s0 (s1 () (s2 (s3 s4) (s5 (s6 (s7 s4)) (s8 s9) #f)) (s3 9))))) + (visit . #s(stx-boundary - (s0 - () - (s1 (s2 s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6) - (s10 (s2 9))))) - (21 + (s0 (s1 () (s2 (s3 s4) (s5 (s6 (s7 s4)) (s8 s9) #f)) (s3 9))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary - (s0 - () - (s1 (s2 s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6) - (s10 (s2 9))))) - (22 - #s(stx-boundary - (s0 - () - (s1 (s2 s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6) - (s10 (s2 9)))) + (s0 (s1 () (s2 (s3 s4) (s5 (s6 (s7 s4)) (s8 s9) #f)) (s3 9))))) + (prim-#%expression . #f) + (visit . #s(stx-boundary - (s11 - () - (s1 (s2 s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6) - (s10 (s2 9))))) - (9 + (s0 () (s1 (s2 s3) (s4 (s5 (s6 s3)) (s7 s8) #f)) (s2 9)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary - (s0 - () - (s1 (s2 s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6) - (s10 (s2 9))))) - (0 + (s0 () (s1 (s2 s3) (s4 (s5 (s6 s3)) (s7 s8) #f)) (s2 9)))) + (macro-pre-x . #s(stx-boundary - (s0 - () - (s1 (s2 s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6) - (s10 (s2 9))))) - (1 . #s(stx-boundary s0)) - (6 + (s0 () (s1 (s2 s3) (s4 (s5 (s6 s3)) (s7 s8) #f)) (s2 9)))) + (macro-post-x + #s(stx-boundary + (s0 () (s1 (s2 s3) (s4 (s5 (s6 s3)) (s7 s8) #f)) (s2 9))) . #s(stx-boundary - (s0 - () - (s1 (s2 s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6) - (s10 (s2 9))))) - (112 . #f) - (16 + (s9 () (s1 (s2 s3) (s4 (s5 (s6 s3)) (s7 s8) #f)) (s2 9)))) + (exit-macro + . + #s(stx-boundary + (s0 () (s1 (s2 s3) (s4 (s5 (s6 s3)) (s7 s8) #f)) (s2 9)))) + (visit + . + #s(stx-boundary + (s0 () (s1 (s2 s3) (s4 (s5 (s6 s3)) (s7 s8) #f)) (s2 9)))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary + (s0 () (s1 (s2 s3) (s4 (s5 (s6 s3)) (s7 s8) #f)) (s2 9)))) + (prim-let-values . #f) + (let-renames () . - #s(stx-boundary - ((s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5) (s9 (s1 9))))) - (13 . #f) - (10 + #s(stx-boundary ((s0 (s1 s2) (s3 (s4 (s5 s2)) (s6 s7) #f)) (s1 9)))) + (next-group . #f) + (enter-block . - #s(stx-boundary - ((s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5) (s9 (s1 9))))) - (24 - #s(stx-boundary - ((s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5) (s9 (s1 9)))) + #s(stx-boundary ((s0 (s1 s2) (s3 (s4 (s5 s2)) (s6 s7) #f)) (s1 9)))) + (block-renames + #s(stx-boundary ((s0 (s1 s2) (s3 (s4 (s5 s2)) (s6 s7) #f)) (s1 9))) . - #s(stx-boundary - ((s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5) (s9 (s1 9))))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5))) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5))) - (21 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5))) - (22 - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6))) + #s(stx-boundary ((s0 (s1 s2) (s3 (s4 (s5 s2)) (s6 s7) #f)) (s1 9)))) + (next . #f) + (enter-check . - #s(stx-boundary (s10 (s1 s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6))) - (9 + #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s2)) (s6 s7) #f)))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s2)) (s6 s7) #f)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . - #s(stx-boundary - (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6)))) - (2 + #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s2)) (s6 s7) #f)))) + (macro-pre-x . - #s(stx-boundary - (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6)))) - (127 + #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s2)) (s6 s7) #f)))) + (macro-post-x + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 s3)) (s7 s8) #f)))) . - #s(stx-boundary - (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6)))) - (103 . #f) - (148 + #s(stx-boundary (s9 (s1 s3) (s4 (s5 (s6 s3)) (s7 s8) #f)))) + (exit-macro . - #s(stx-boundary ((s0) (s1 (s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5)))) - (157 . #f) - (144 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 (s6 (s7 s1)))) s4))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 (s6 (s7 s1)))) s4))) - (21 . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 (s6 (s7 s1)))) s4))) - (22 - #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 (s6 (s7 s1)))) s4)) + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 s3)) (s7 s8) #f))))) + (return . - #s(stx-boundary (s8 (s1) (s2 (s3 s4) (s5 (s6 (s7 s1)))) s4))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 (s6 (s7 s1)))) s4))) - (0 . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 (s6 (s7 s1)))) s4))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 (s6 (s7 s1)))) s4))) - (110 . #f) - (17 + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 s3)) (s7 s8) #f))))) + (exit-check + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 s3)) (s7 s8) #f))))) + (prim-define-syntaxes . #f) + (rename-one + . + #s(stx-boundary ((s0) (s1 (s2) (s3 (s4 (s5 s2)) (s6 s7) #f))))) + (prepare-env . #f) + (enter-bind . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 s1)) (s5 s6) #f)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 s1)) (s5 s6) #f)))) + (macro-pre-x . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 s1)) (s5 s6) #f)))) + (macro-post-x + #s(stx-boundary (s0 (s1) (s2 (s3 (s4 s1)) (s5 s6) #f))) + . + #s(stx-boundary (s7 (s1) (s2 (s3 (s4 s1)) (s5 s6) #f)))) + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 s1)) (s5 s6) #f)))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 s1)) (s5 s6) #f)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 s1)) (s5 s6) #f)))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . - #s(stx-boundary ((s1 (s2 s3) (s4 (s5 (s6 s0)))) s3))) - (10 . #s(stx-boundary ((s0 (s1 s2) (s3 (s4 (s5 s6)))) s2))) - (24 - #s(stx-boundary ((s0 (s1 s2) (s3 (s4 (s5 s6)))) s2)) + #s(stx-boundary ((s1 (s2 (s3 s0)) (s4 s5) #f)))) + (enter-block . #s(stx-boundary ((s0 (s1 (s2 s3)) (s4 s5) #f)))) + (block-renames + #s(stx-boundary ((s0 (s1 (s2 s3)) (s4 s5) #f))) . - #s(stx-boundary ((s0 (s1 s2) (s3 (s4 (s5 s6)))) s2))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s6)))))) - (127 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s6)))))) - (104 . #f) - (148 . #s(stx-boundary ((s0 s1) (s2 (s3 (s4 s5)))))) - (3 . #f) - (126 . #s(stx-boundary s0)) - (127 . #s(stx-boundary s0)) - (14 #s(stx-boundary (s0 (((s1 s2) (s3 (s4 (s5 s6))))) s2))) - (0 . #s(stx-boundary (s0 (((s1 s2) (s3 (s4 (s5 s6))))) s2))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (((s1 s2) (s3 (s4 (s5 s6))))) s2))) - (113 . #f) - (16 - (#s(stx-boundary ((s0 s1) (s2 (s3 (s4 s5)))))) + #s(stx-boundary ((s0 (s1 (s2 s3)) (s4 s5) #f)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 (s2 s3)) (s4 s5) #f))) + (exit-check . #s(stx-boundary (s0 (s1 (s2 s3)) (s4 s5) #f))) + (block->list . #s(stx-boundary ((s0 (s1 (s2 s3)) (s4 s5) #f)))) + (enter-list . #s(stx-boundary ((s0 (s1 (s2 s3)) (s4 s5) #f)))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 (s2 s3)) (s4 s5) #f))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 (s2 (s3 s4)) (s5 s6) #f))) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3 s4)) (s5 s6) #f))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3 s4)) (s5 s6) #f))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 (s3 s4)) (s5 s6) #f)) . - #s(stx-boundary (s1))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1 (s2 s3))))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 (s2 (s3 s4))))) - (8 . #s(stx-boundary (s0 s1 (s2 (s3 s4))))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3 s4))))) - (22 - #s(stx-boundary (s0 s1 (s2 (s3 s4)))) - . - #s(stx-boundary (s0 s1 (s2 (s3 s4))))) - (9 . #s(stx-boundary (s0 s1 (s2 (s3 s4))))) - (0 . #s(stx-boundary (s0 s1 (s2 (s3 s4))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 (s3 s4))))) - (109 . #f) - (4 . #s(stx-boundary (s0 (s1 (s2 s3))))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1 s2)))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 (s2 s3)))) - (8 . #s(stx-boundary (s0 s1 (s2 s3)))) - (21 . #s(stx-boundary (s0 s1 (s2 s3)))) - (22 + #s(stx-boundary (s0 s1 (s2 (s3 s4)) (s5 s6) #f))) + (exit-macro . #s(stx-boundary (s0 s1 (s2 (s3 s4)) (s5 s6) #f))) + (visit . #s(stx-boundary (s0 s1 (s2 (s3 s4)) (s5 s6) #f))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 (s3 s4)) (s5 s6) #f))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 (s1 (s2 s3)) (s4 s5) #f))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 s2)))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 (s2 s3)))) + (enter-macro . #s(stx-boundary (s0 s1 (s2 s3)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 s3)))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 s3))) . #s(stx-boundary (s0 s1 (s2 s3)))) - (9 . #s(stx-boundary (s0 s1 (s2 s3)))) - (0 . #s(stx-boundary (s0 s1 (s2 s3)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 s3)))) - (109 . #f) - (4 . #s(stx-boundary (s0 (s1 s2)))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 s2))) - (8 . #s(stx-boundary (s0 s1 s2))) - (21 . #s(stx-boundary (s0 s1 s2))) - (22 #s(stx-boundary (s0 s1 s2)) . #s(stx-boundary (s0 s1 s2))) - (9 . #s(stx-boundary (s0 s1 s2))) - (0 . #s(stx-boundary (s0 s1 s2))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 s2))) - (109 . #f) - (4 . #s(stx-boundary (s0 s1))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0 s1))) - (7 . #s(stx-boundary (s0 s1 s2))) - (2 . #s(stx-boundary (s0 s1 s2))) - (5 . #s(stx-boundary (s0 (s1 s2 s3)))) - (7 . #s(stx-boundary (s0 s1 (s0 s2 s3)))) - (2 . #s(stx-boundary (s0 s1 (s0 s2 s3)))) - (5 . #s(stx-boundary (s0 (s1 s2 (s1 s3 s4))))) - (7 . #s(stx-boundary (s0 s1 (s0 s2 (s0 s3 s4))))) - (2 . #s(stx-boundary (s0 s1 (s0 s2 (s0 s3 s4))))) - (13 . #f) - (4 . #s(stx-boundary (s0))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0))) - (7 . #s(stx-boundary (s0 (((s1 s2) (s3 s4 (s3 s5 (s3 s6 s7))))) s2))) - (2 . #s(stx-boundary (s0 (((s1 s2) (s3 s4 (s3 s5 (s3 s6 s7))))) s2))) - (7 + (exit-macro . #s(stx-boundary (s0 s1 (s2 s3)))) + (visit . #s(stx-boundary (s0 s1 (s2 s3)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3)))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 (s1 s2)))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 s2))) + (enter-macro . #s(stx-boundary (s0 s1 s2))) + (macro-pre-x . #s(stx-boundary (s0 s1 s2))) + (macro-post-x + #s(stx-boundary (s0 s1 s2)) + . + #s(stx-boundary (s0 s1 s2))) + (exit-macro . #s(stx-boundary (s0 s1 s2))) + (visit . #s(stx-boundary (s0 s1 s2))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 s2))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0 s1))) + (exit-prim . #s(stx-boundary (s0 s1 s2))) + (return . #s(stx-boundary (s0 s1 s2))) + (exit-list . #s(stx-boundary (s0 (s1 s2 s3)))) + (exit-prim . #s(stx-boundary (s0 s1 (s0 s2 s3)))) + (return . #s(stx-boundary (s0 s1 (s0 s2 s3)))) + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-quote . #f) + (exit-prim . #s(stx-boundary (s0 s1))) + (return . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary #f)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . #f))) + (enter-prim . #s(stx-boundary (s0 . #f))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 #f))) + (return . #s(stx-boundary (s0 #f))) + (exit-list . #s(stx-boundary (s0 (s1 s2 (s1 s3 s4)) (s5 s6) (s5 #f)))) + (exit-prim + . + #s(stx-boundary (s0 s1 (s0 s2 (s0 s3 s4)) (s5 s6) (s5 #f)))) + (return . #s(stx-boundary (s0 s1 (s0 s2 (s0 s3 s4)) (s5 s6) (s5 #f)))) + (exit-list + . + #s(stx-boundary ((s0 s1 (s0 s2 (s0 s3 s4)) (s5 s6) (s5 #f))))) + (exit-prim + . + #s(stx-boundary (s0 (s1) (s2 s3 (s2 s4 (s2 s5 s1)) (s6 s7) (s6 #f))))) + (return + . + #s(stx-boundary (s0 (s1) (s2 s3 (s2 s4 (s2 s5 s1)) (s6 s7) (s6 #f))))) + (next . #f) + (exit-bind . #f) + (next . #f) + (enter-check . #s(stx-boundary (s0 9))) + (visit . #s(stx-boundary (s0 9))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 9))) + (macro-pre-x . #s(stx-boundary (s0 9))) + (enter-local . #s(stx-boundary 9)) + (local-pre . #s(stx-boundary 9)) + (enter-check . #s(stx-boundary 9)) + (exit-check . #s(stx-boundary 9)) + (local-post . #s(stx-boundary 9)) + (exit-local . #s(stx-boundary 9)) + (macro-post-x #s(stx-boundary 9) . #s(stx-boundary (s0 9))) + (exit-macro . #s(stx-boundary 9)) + (return . #s(stx-boundary 9)) + (exit-check . #s(stx-boundary 9)) + (block->letrec + #s(stx-boundary + (s0 (((s1) (s2 (s3) (s4 (s5 (s6 s3)) (s7 s8) #f)))) () 9))) + (visit . #s(stx-boundary - (s0 (s1) (s2 (((s3 s4) (s5 s6 (s5 s7 (s5 s8 s1))))) s4)))) - (2 + (s0 (((s1) (s2 (s3) (s4 (s5 (s6 s3)) (s7 s8) #f)))) () 9))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary - (s0 (s1) (s2 (((s3 s4) (s5 s6 (s5 s7 (s5 s8 s1))))) s4)))) - (3 . #f) - (145 . #f) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 9)))) - (127 . #s(stx-boundary (s0 (s1 9)))) - (14 - #s(stx-boundary - (s0 - (((s1) (s2 (s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6))) - () - (s10 (s1 9))))) - (0 - . - #s(stx-boundary - (s0 - (((s1) (s2 (s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6))) - () - (s10 (s1 9))))) - (1 . #s(stx-boundary s0)) - (6 - . - #s(stx-boundary - (s0 - (((s1) (s2 (s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6))) - () - (s10 (s1 9))))) - (114 . #f) - (19 - (#s(stx-boundary ((s0) (s1 (s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5)))) + (s0 (((s1) (s2 (s3) (s4 (s5 (s6 s3)) (s7 s8) #f)))) () 9))) + (prim-letrec-syntaxes+values . #f) + (letrec-syntaxes-renames + (#s(stx-boundary ((s0) (s1 (s2) (s3 (s4 (s5 s2)) (s6 s7) #f))))) () . - #s(stx-boundary ((s9 (s0 9))))) - (157 . #f) - (13 . #f) - (4 . #s(stx-boundary ((s0 (s1 9))))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1 9)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 9)))) - (138 . #f) - (0 . #s(stx-boundary (s0 9))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 9))) - (21 . #s(stx-boundary (s0 9))) - (130 . #s(stx-boundary 9)) - (132 . #s(stx-boundary 9)) - (141 . #f) - (0 . #s(stx-boundary 9)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 9))) - (6 . #s(stx-boundary (s0 . 9))) - (115 . #f) - (7 . #s(stx-boundary (s0 9))) - (2 . #s(stx-boundary (s0 9))) - (133 . #s(stx-boundary (s0 9))) - (146 . #s(stx-boundary #:opaque)) - (131 . #s(stx-boundary (s0 9))) - (22 #s(stx-boundary #:opaque) . #s(stx-boundary (s0 9))) - (9 . #s(stx-boundary #:opaque)) - (0 . #s(stx-boundary #:opaque)) - (146 . #s(stx-boundary (s0 9))) - (142 . #s(stx-boundary (s0 9))) - (7 . #s(stx-boundary (s0 9))) - (2 . #s(stx-boundary (s0 9))) - (5 . #s(stx-boundary ((s0 9)))) - (142 . #s(stx-boundary (s0 () (s1 9)))) - (7 . #s(stx-boundary (s0 () (s1 9)))) - (2 . #s(stx-boundary (s0 () (s1 9)))) - (7 . #s(stx-boundary (s0 () (s0 () (s1 9))))) - (2 . #s(stx-boundary (s0 () (s0 () (s1 9))))) - (7 . #s(stx-boundary (s0 (s1 () (s1 () (s2 9)))))) - (2 . #s(stx-boundary (s0 (s1 () (s1 () (s2 9)))))))) + #s(stx-boundary (9))) + (prepare-env . #f) + (next-group . #f) + (enter-list . #s(stx-boundary (9))) + (next . #f) + (visit . #s(stx-boundary 9)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 9))) + (enter-prim . #s(stx-boundary (s0 . 9))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 9))) + (return . #s(stx-boundary (s0 9))) + (exit-list . #s(stx-boundary ((s0 9)))) + (tag . #s(stx-boundary (s0 () (s1 9)))) + (exit-prim . #s(stx-boundary (s0 () (s1 9)))) + (return . #s(stx-boundary (s0 () (s1 9)))) + (exit-prim . #s(stx-boundary (s0 () (s0 () (s1 9))))) + (return . #s(stx-boundary (s0 () (s0 () (s1 9))))) + (exit-prim . #s(stx-boundary (s0 (s1 () (s1 () (s2 9)))))) + (return . #s(stx-boundary (s0 (s1 () (s1 () (s2 9)))))))) ((let () (define (first z) z) (define (ok x) (second x)) @@ -7137,8 +7734,8 @@ (define (second y) 8) (ok (first 5))) . - ((141 . #f) - (0 + ((start-top . #f) + (visit . #s(stx-boundary (s0 @@ -7149,8 +7746,7 @@ (s8 #:opaque) (s2 (s7 s9) 8) (s5 (s3 5)))))) - (1 . #s(stx-boundary s0)) - (6 + (enter-check . #s(stx-boundary (s0 @@ -7161,8 +7757,42 @@ (s8 #:opaque) (s2 (s7 s9) 8) (s5 (s3 5)))))) - (138 . #f) - (0 + (exit-check + . + #s(stx-boundary + (s0 + (s1 + () + (s2 (s3 s4) s4) + (s2 (s5 s6) (s7 s6)) + (s8 #:opaque) + (s2 (s7 s9) 8) + (s5 (s3 5)))))) + (visit + . + #s(stx-boundary + (s0 + (s1 + () + (s2 (s3 s4) s4) + (s2 (s5 s6) (s7 s6)) + (s8 #:opaque) + (s2 (s7 s9) 8) + (s5 (s3 5)))))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary + (s0 + (s1 + () + (s2 (s3 s4) s4) + (s2 (s5 s6) (s7 s6)) + (s8 #:opaque) + (s2 (s7 s9) 8) + (s5 (s3 5)))))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 @@ -7172,8 +7802,8 @@ (s7 #:opaque) (s1 (s6 s8) 8) (s4 (s2 5))))) - (1 . #s(stx-boundary s0)) - (8 + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 @@ -7183,7 +7813,7 @@ (s7 #:opaque) (s1 (s6 s8) 8) (s4 (s2 5))))) - (21 + (macro-pre-x . #s(stx-boundary (s0 @@ -7193,7 +7823,7 @@ (s7 #:opaque) (s1 (s6 s8) 8) (s4 (s2 5))))) - (22 + (macro-post-x #s(stx-boundary (s0 () @@ -7211,7 +7841,7 @@ (s7 #:opaque) (s1 (s6 s8) 8) (s4 (s2 5))))) - (9 + (exit-macro . #s(stx-boundary (s0 @@ -7221,7 +7851,7 @@ (s7 #:opaque) (s1 (s6 s8) 8) (s4 (s2 5))))) - (0 + (visit . #s(stx-boundary (s0 @@ -7231,8 +7861,8 @@ (s7 #:opaque) (s1 (s6 s8) 8) (s4 (s2 5))))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 @@ -7242,8 +7872,8 @@ (s7 #:opaque) (s1 (s6 s8) 8) (s4 (s2 5))))) - (112 . #f) - (16 + (prim-let-values . #f) + (let-renames () . #s(stx-boundary @@ -7252,8 +7882,8 @@ (s6 #:opaque) (s0 (s5 s7) 8) (s3 (s1 5))))) - (13 . #f) - (10 + (next-group . #f) + (enter-block . #s(stx-boundary ((s0 (s1 s2) s2) @@ -7261,7 +7891,7 @@ (s6 #:opaque) (s0 (s5 s7) 8) (s3 (s1 5))))) - (24 + (block-renames #s(stx-boundary ((s0 (s1 s2) s2) (s0 (s3 s4) (s5 s4)) @@ -7275,88 +7905,88 @@ (s6 #:opaque) (s0 (s5 s7) 8) (s3 (s1 5))))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) s2))) - (0 . #s(stx-boundary (s0 (s1 s2) s2))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) s2))) - (21 . #s(stx-boundary (s0 (s1 s2) s2))) - (22 + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) s2))) + (visit . #s(stx-boundary (s0 (s1 s2) s2))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) s2))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) s2))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 (s3) s3))) . #s(stx-boundary (s0 (s1 s3) s3))) - (9 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (2 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (0 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (22 + (exit-macro . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (return . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (visit . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) s3))) . #s(stx-boundary (s4 s1 (s2 (s3) s3)))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (104 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) s2)))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (21 . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (22 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (prim-define-values . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) s2)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3)))) . #s(stx-boundary (s0 (s1 s3) (s4 s3)))) - (9 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (2 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (0 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (22 + (exit-macro . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (return . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (visit . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3)))) . #s(stx-boundary (s5 s1 (s2 (s3) (s4 s3))))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (104 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) (s3 s2))))) - (3 . #f) - (126 . #s(stx-boundary (s0 #:opaque))) - (127 . #s(stx-boundary (s0 #:opaque))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) 8))) - (0 . #s(stx-boundary (s0 (s1 s2) 8))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) 8))) - (21 . #s(stx-boundary (s0 (s1 s2) 8))) - (22 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (prim-define-values . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) (s3 s2))))) + (next . #f) + (enter-check . #s(stx-boundary (s0 #:opaque))) + (exit-check . #s(stx-boundary (s0 #:opaque))) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) 8))) + (visit . #s(stx-boundary (s0 (s1 s2) 8))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) 8))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) 8))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 (s3) 8))) . #s(stx-boundary (s0 (s1 s3) 8))) - (9 . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) - (2 . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) - (0 . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) - (22 + (exit-macro . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) + (return . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) + (visit . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) 8))) . #s(stx-boundary (s4 s1 (s2 (s3) 8)))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (104 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) 8)))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 5)))) - (127 . #s(stx-boundary (s0 (s1 5)))) - (14 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (prim-define-values . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) 8)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 5)))) + (exit-check . #s(stx-boundary (s0 (s1 5)))) + (block->letrec #s(stx-boundary (s0 (((s1) (s2 (s3) s3)) @@ -7364,7 +7994,7 @@ (() (s7 (s8 #:opaque) (s9))) ((s6) (s2 (s10) 8))) (s4 (s1 5))))) - (0 + (visit . #s(stx-boundary (s0 @@ -7373,8 +8003,8 @@ (() (s7 (s8 #:opaque) (s9))) ((s6) (s2 (s10) 8))) (s4 (s1 5))))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 @@ -7383,216 +8013,222 @@ (() (s7 (s8 #:opaque) (s9))) ((s6) (s2 (s10) 8))) (s4 (s1 5))))) - (113 . #f) - (16 + (prim-letrec-values . #f) + (let-renames (#s(stx-boundary ((s0) (s1 (s2) s2))) #s(stx-boundary ((s3) (s1 (s4) (s5 s4)))) #s(stx-boundary (() (s6 (s7 #:opaque) (s8)))) #s(stx-boundary ((s5) (s1 (s9) 8)))) . #s(stx-boundary ((s3 (s0 5))))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1) s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) s1))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary (s0))) - (10 . #s(stx-boundary (s0))) - (24 #s(stx-boundary (s0)) . #s(stx-boundary (s0))) - (3 . #f) - (126 . #s(stx-boundary s0)) - (127 . #s(stx-boundary s0)) - (12 . #s(stx-boundary (s0))) - (4 . #s(stx-boundary (s0))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0))) - (7 . #s(stx-boundary (s0 (s1) s1))) - (2 . #s(stx-boundary (s0 (s1) s1))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 s1)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 s1)))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary ((s1 s0)))) - (10 . #s(stx-boundary ((s0 s1)))) - (24 #s(stx-boundary ((s0 s1))) . #s(stx-boundary ((s0 s1)))) - (3 . #f) - (126 . #s(stx-boundary (s0 s1))) - (127 . #s(stx-boundary (s0 s1))) - (12 . #s(stx-boundary ((s0 s1)))) - (4 . #s(stx-boundary ((s0 s1)))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 s2))) - (8 . #s(stx-boundary (s0 s1 s2))) - (21 . #s(stx-boundary (s0 s1 s2))) - (22 #s(stx-boundary (s0 s1 s2)) . #s(stx-boundary (s0 s1 s2))) - (9 . #s(stx-boundary (s0 s1 s2))) - (0 . #s(stx-boundary (s0 s1 s2))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 s2))) - (109 . #f) - (4 . #s(stx-boundary (s0 s1))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0 s1))) - (7 . #s(stx-boundary (s0 s1 s2))) - (2 . #s(stx-boundary (s0 s1 s2))) - (5 . #s(stx-boundary ((s0 s1 s2)))) - (7 . #s(stx-boundary (s0 (s1) (s2 s3 s1)))) - (2 . #s(stx-boundary (s0 (s1) (s2 s3 s1)))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1 #:opaque) (s2)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 #:opaque) (s2)))) - (107 . #f) - (4 . #s(stx-boundary ((s0 #:opaque) (s1)))) - (3 . #f) - (0 . #s(stx-boundary (s0 #:opaque))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 #:opaque))) - (8 . #s(stx-boundary (s0 s1 #:opaque))) - (21 . #s(stx-boundary (s0 s1 #:opaque))) - (22 + (next . #f) + (visit . #s(stx-boundary (s0 (s1) s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) s1))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary (s0))) + (enter-block . #s(stx-boundary (s0))) + (block-renames #s(stx-boundary (s0)) . #s(stx-boundary (s0))) + (next . #f) + (enter-check . #s(stx-boundary s0)) + (exit-check . #s(stx-boundary s0)) + (block->list . #s(stx-boundary (s0))) + (enter-list . #s(stx-boundary (s0))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0))) + (exit-prim . #s(stx-boundary (s0 (s1) s1))) + (return . #s(stx-boundary (s0 (s1) s1))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 s1)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 s1)))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary ((s1 s0)))) + (enter-block . #s(stx-boundary ((s0 s1)))) + (block-renames #s(stx-boundary ((s0 s1))) . #s(stx-boundary ((s0 s1)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 s1))) + (exit-check . #s(stx-boundary (s0 s1))) + (block->list . #s(stx-boundary ((s0 s1)))) + (enter-list . #s(stx-boundary ((s0 s1)))) + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 s2))) + (enter-macro . #s(stx-boundary (s0 s1 s2))) + (macro-pre-x . #s(stx-boundary (s0 s1 s2))) + (macro-post-x + #s(stx-boundary (s0 s1 s2)) + . + #s(stx-boundary (s0 s1 s2))) + (exit-macro . #s(stx-boundary (s0 s1 s2))) + (visit . #s(stx-boundary (s0 s1 s2))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 s2))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0 s1))) + (exit-prim . #s(stx-boundary (s0 s1 s2))) + (return . #s(stx-boundary (s0 s1 s2))) + (exit-list . #s(stx-boundary ((s0 s1 s2)))) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 s3 s1)))) + (return . #s(stx-boundary (s0 (s1) (s2 s3 s1)))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 #:opaque) (s2)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 #:opaque) (s2)))) + (prim-begin . #f) + (enter-list . #s(stx-boundary ((s0 #:opaque) (s1)))) + (next . #f) + (visit . #s(stx-boundary (s0 #:opaque))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 #:opaque))) + (enter-macro . #s(stx-boundary (s0 s1 #:opaque))) + (macro-pre-x . #s(stx-boundary (s0 s1 #:opaque))) + (macro-post-x #s(stx-boundary (s0 s1 #:opaque)) . #s(stx-boundary (s0 s1 #:opaque))) - (9 . #s(stx-boundary (s0 s1 #:opaque))) - (0 . #s(stx-boundary (s0 s1 #:opaque))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 #:opaque))) - (109 . #f) - (4 . #s(stx-boundary (s0 #:opaque))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary #:opaque)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . #:opaque))) - (6 . #s(stx-boundary (s0 . #:opaque))) - (115 . #f) - (7 . #s(stx-boundary (s0 #:opaque))) - (2 . #s(stx-boundary (s0 #:opaque))) - (5 . #s(stx-boundary (s0 (s1 #:opaque)))) - (7 . #s(stx-boundary (s0 s1 (s2 #:opaque)))) - (2 . #s(stx-boundary (s0 s1 (s2 #:opaque)))) - (3 . #f) - (0 . #s(stx-boundary (s0))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1))) - (6 . #s(stx-boundary (s0 s1))) - (109 . #f) - (4 . #s(stx-boundary (s0))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0))) - (7 . #s(stx-boundary (s0 s1))) - (2 . #s(stx-boundary (s0 s1))) - (5 . #s(stx-boundary ((s0 s1 (s2 #:opaque)) (s0 s3)))) - (7 . #s(stx-boundary (s0 (s1 s2 (s3 #:opaque)) (s1 s4)))) - (2 . #s(stx-boundary (s0 (s1 s2 (s3 #:opaque)) (s1 s4)))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1) 8))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) 8))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary (8))) - (10 . #s(stx-boundary (8))) - (24 #s(stx-boundary (8)) . #s(stx-boundary (8))) - (3 . #f) - (126 . #s(stx-boundary 8)) - (127 . #s(stx-boundary 8)) - (12 . #s(stx-boundary (8))) - (4 . #s(stx-boundary (8))) - (3 . #f) - (0 . #s(stx-boundary 8)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 8))) - (6 . #s(stx-boundary (s0 . 8))) - (115 . #f) - (7 . #s(stx-boundary (s0 8))) - (2 . #s(stx-boundary (s0 8))) - (5 . #s(stx-boundary ((s0 8)))) - (7 . #s(stx-boundary (s0 (s1) (s2 8)))) - (2 . #s(stx-boundary (s0 (s1) (s2 8)))) - (13 . #f) - (4 . #s(stx-boundary ((s0 (s1 5))))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1 5)))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 (s2 5)))) - (8 . #s(stx-boundary (s0 s1 (s2 5)))) - (21 . #s(stx-boundary (s0 s1 (s2 5)))) - (22 #s(stx-boundary (s0 s1 (s2 5))) . #s(stx-boundary (s0 s1 (s2 5)))) - (9 . #s(stx-boundary (s0 s1 (s2 5)))) - (0 . #s(stx-boundary (s0 s1 (s2 5)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 5)))) - (109 . #f) - (4 . #s(stx-boundary (s0 (s1 5)))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary (s0 5))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 5))) - (8 . #s(stx-boundary (s0 s1 5))) - (21 . #s(stx-boundary (s0 s1 5))) - (22 #s(stx-boundary (s0 s1 5)) . #s(stx-boundary (s0 s1 5))) - (9 . #s(stx-boundary (s0 s1 5))) - (0 . #s(stx-boundary (s0 s1 5))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 5))) - (109 . #f) - (4 . #s(stx-boundary (s0 5))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary 5)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 5))) - (6 . #s(stx-boundary (s0 . 5))) - (115 . #f) - (7 . #s(stx-boundary (s0 5))) - (2 . #s(stx-boundary (s0 5))) - (5 . #s(stx-boundary (s0 (s1 5)))) - (7 . #s(stx-boundary (s0 s1 (s2 5)))) - (2 . #s(stx-boundary (s0 s1 (s2 5)))) - (5 . #s(stx-boundary (s0 (s1 s2 (s3 5))))) - (7 . #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) - (2 . #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) - (5 . #s(stx-boundary ((s0 s1 (s0 s2 (s3 5)))))) - (7 + (exit-macro . #s(stx-boundary (s0 s1 #:opaque))) + (visit . #s(stx-boundary (s0 s1 #:opaque))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 #:opaque))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 #:opaque))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary #:opaque)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . #:opaque))) + (enter-prim . #s(stx-boundary (s0 . #:opaque))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 #:opaque))) + (return . #s(stx-boundary (s0 #:opaque))) + (exit-list . #s(stx-boundary (s0 (s1 #:opaque)))) + (exit-prim . #s(stx-boundary (s0 s1 (s2 #:opaque)))) + (return . #s(stx-boundary (s0 s1 (s2 #:opaque)))) + (next . #f) + (visit . #s(stx-boundary (s0))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1))) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0))) + (exit-prim . #s(stx-boundary (s0 s1))) + (return . #s(stx-boundary (s0 s1))) + (exit-list . #s(stx-boundary ((s0 s1 (s2 #:opaque)) (s0 s3)))) + (exit-prim . #s(stx-boundary (s0 (s1 s2 (s3 #:opaque)) (s1 s4)))) + (return . #s(stx-boundary (s0 (s1 s2 (s3 #:opaque)) (s1 s4)))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1) 8))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) 8))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary (8))) + (enter-block . #s(stx-boundary (8))) + (block-renames #s(stx-boundary (8)) . #s(stx-boundary (8))) + (next . #f) + (enter-check . #s(stx-boundary 8)) + (exit-check . #s(stx-boundary 8)) + (block->list . #s(stx-boundary (8))) + (enter-list . #s(stx-boundary (8))) + (next . #f) + (visit . #s(stx-boundary 8)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 8))) + (enter-prim . #s(stx-boundary (s0 . 8))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 8))) + (return . #s(stx-boundary (s0 8))) + (exit-list . #s(stx-boundary ((s0 8)))) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 8)))) + (return . #s(stx-boundary (s0 (s1) (s2 8)))) + (next-group . #f) + (enter-list . #s(stx-boundary ((s0 (s1 5))))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 5)))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 (s2 5)))) + (enter-macro . #s(stx-boundary (s0 s1 (s2 5)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 5)))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 5))) + . + #s(stx-boundary (s0 s1 (s2 5)))) + (exit-macro . #s(stx-boundary (s0 s1 (s2 5)))) + (visit . #s(stx-boundary (s0 s1 (s2 5)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 5)))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 (s1 5)))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary (s0 5))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 5))) + (enter-macro . #s(stx-boundary (s0 s1 5))) + (macro-pre-x . #s(stx-boundary (s0 s1 5))) + (macro-post-x #s(stx-boundary (s0 s1 5)) . #s(stx-boundary (s0 s1 5))) + (exit-macro . #s(stx-boundary (s0 s1 5))) + (visit . #s(stx-boundary (s0 s1 5))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 5))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 5))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary 5)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 5))) + (enter-prim . #s(stx-boundary (s0 . 5))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 5))) + (return . #s(stx-boundary (s0 5))) + (exit-list . #s(stx-boundary (s0 (s1 5)))) + (exit-prim . #s(stx-boundary (s0 s1 (s2 5)))) + (return . #s(stx-boundary (s0 s1 (s2 5)))) + (exit-list . #s(stx-boundary (s0 (s1 s2 (s3 5))))) + (exit-prim . #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) + (return . #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) + (exit-list . #s(stx-boundary ((s0 s1 (s0 s2 (s3 5)))))) + (exit-prim . #s(stx-boundary (s0 @@ -7602,7 +8238,7 @@ (() (s9 (s7 s10 (s11 #:opaque)) (s7 s12))) ((s8) (s2 (s13) (s11 8)))) (s7 s5 (s7 s1 (s11 5))))))) - (2 + (return . #s(stx-boundary (s0 @@ -7612,7 +8248,7 @@ (() (s9 (s7 s10 (s11 #:opaque)) (s7 s12))) ((s8) (s2 (s13) (s11 8)))) (s7 s5 (s7 s1 (s11 5))))))) - (7 + (exit-prim . #s(stx-boundary (s0 @@ -7624,7 +8260,7 @@ (() (s9 (s7 s10 (s11 #:opaque)) (s7 s12))) ((s8) (s2 (s13) (s11 8)))) (s7 s5 (s7 s1 (s11 5)))))))) - (2 + (return . #s(stx-boundary (s0 @@ -7636,7 +8272,7 @@ (() (s9 (s7 s10 (s11 #:opaque)) (s7 s12))) ((s8) (s2 (s13) (s11 8)))) (s7 s5 (s7 s1 (s11 5)))))))) - (7 + (exit-prim . #s(stx-boundary (s0 @@ -7649,7 +8285,7 @@ (() (s10 (s8 s11 (s12 #:opaque)) (s8 s13))) ((s9) (s3 (s14) (s12 8)))) (s8 s6 (s8 s2 (s12 5))))))))) - (2 + (return . #s(stx-boundary (s0 @@ -7664,798 +8300,718 @@ (s8 s6 (s8 s2 (s12 5))))))))))) ((#%variable-reference __z) . - ((141 . #f) - (0 . #s(stx-boundary (s0 (s1 s2)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 s2)))) - (138 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1))) - (149 . #f) - (7 . #s(stx-boundary (s0 s1))) - (2 . #s(stx-boundary (s0 s1))) - (7 . #s(stx-boundary (s0 (s1 s2)))) - (2 . #s(stx-boundary (s0 (s1 s2)))))) - ((let () - (define-syntax (lift stx) - (syntax-local-lift-require 'racket/list #'foldl)) - (lift)) - . - ((141 . #f) - (0 - . - #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 (s6 s7) (s8 s9))) (s3))))) - (1 . #s(stx-boundary s0)) - (6 - . - #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 (s6 s7) (s8 s9))) (s3))))) - (138 . #f) - (0 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) - (21 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) - (22 - #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2))) - . - #s(stx-boundary (s9 () (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) - (9 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) - (0 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) - (112 . #f) - (16 () . #s(stx-boundary ((s0 (s1 s2) (s3 (s4 s5) (s6 s7))) (s1)))) - (13 . #f) - (10 . #s(stx-boundary ((s0 (s1 s2) (s3 (s4 s5) (s6 s7))) (s1)))) - (24 - #s(stx-boundary ((s0 (s1 s2) (s3 (s4 s5) (s6 s7))) (s1))) - . - #s(stx-boundary ((s0 (s1 s2) (s3 (s4 s5) (s6 s7))) (s1)))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7))))) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7))))) - (21 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7))))) - (22 - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8))))) - . - #s(stx-boundary (s9 (s1 s3) (s4 (s5 s6) (s7 s8))))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) - (103 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) (s3 (s4 s5) (s6 s7)))))) - (157 . #f) - (144 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) - (21 . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) - (22 - #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6)))) - . - #s(stx-boundary (s7 (s1) (s2 (s3 s4) (s5 s6))))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) - (0 . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary ((s1 (s2 s3) (s4 s5))))) - (10 . #s(stx-boundary ((s0 (s1 s2) (s3 s4))))) - (24 - #s(stx-boundary ((s0 (s1 s2) (s3 s4)))) - . - #s(stx-boundary ((s0 (s1 s2) (s3 s4))))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 s4)))) - (127 . #s(stx-boundary (s0 (s1 s2) (s3 s4)))) - (12 . #s(stx-boundary ((s0 (s1 s2) (s3 s4))))) - (4 . #s(stx-boundary ((s0 (s1 s2) (s3 s4))))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 s4)))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5)))) - (8 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5)))) - (21 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5)))) - (22 - #s(stx-boundary (s0 s1 (s2 s3) (s4 s5))) - . - #s(stx-boundary (s0 s1 (s2 s3) (s4 s5)))) - (9 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5)))) - (0 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5)))) - (109 . #f) - (4 . #s(stx-boundary (s0 (s1 s2) (s3 s4)))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1))) - (117 . #f) - (7 . #s(stx-boundary (s0 s1))) - (2 . #s(stx-boundary (s0 s1))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1))) - (21 . #s(stx-boundary (s0 s1))) - (153 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (154 . #f) - (22 #s(stx-boundary (s0 s1)) . #s(stx-boundary (s2 s1))) - (9 . #s(stx-boundary (s0 s1))) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1))) - (118 . #f) - (7 . #s(stx-boundary (s0 s1))) - (2 . #s(stx-boundary (s0 s1))) - (5 . #s(stx-boundary (s0 (s1 s2) (s3 s4)))) - (7 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5)))) - (2 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5)))) - (5 . #s(stx-boundary ((s0 s1 (s2 s3) (s4 s5))))) - (7 . #s(stx-boundary (s0 (s1) (s2 s3 (s4 s5) (s6 s7))))) - (2 . #s(stx-boundary (s0 (s1) (s2 s3 (s4 s5) (s6 s7))))) - (3 . #f) - (145 . #f) - (3 . #f) - (126 . #s(stx-boundary (s0))) - (0 . #s(stx-boundary (s0))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0))) - (21 . #s(stx-boundary (s0))) - (150 - #s(stx-boundary (s0 s1)) - #s(stx-boundary s2) - . - #s(stx-boundary s2)) - (22 #s(stx-boundary s0) . #s(stx-boundary (s1))) - (9 . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (127 . #s(stx-boundary s0)) - (14 - #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 (s5 s6) (s7 s8))))) () s8))) - (0 - . - #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 (s5 s6) (s7 s8))))) () s8))) - (1 . #s(stx-boundary s0)) - (6 - . - #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 (s5 s6) (s7 s8))))) () s8))) - (114 . #f) - (19 - (#s(stx-boundary ((s0) (s1 (s2) (s3 (s4 s5) (s6 s7)))))) - () - . - #s(stx-boundary (s7))) - (157 . #f) - (13 . #f) - (4 . #s(stx-boundary (s0))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0))) - (142 . #s(stx-boundary (s0 () s1))) - (7 . #s(stx-boundary (s0 () s1))) - (2 . #s(stx-boundary (s0 () s1))) - (7 . #s(stx-boundary (s0 () (s0 () s1)))) - (2 . #s(stx-boundary (s0 () (s0 () s1)))) - (7 . #s(stx-boundary (s0 (s1 () (s1 () s2))))) - (2 . #s(stx-boundary (s0 (s1 () (s1 () s2))))) - (128 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 () (s4 () s5)))))) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 () (s4 () s5)))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 () (s4 () s5)))))) - (107 . #f) - (4 . #s(stx-boundary ((s0 s1) (s2 (s3 () (s3 () s4)))))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1))) - (119 . #f) - (7 . #s(stx-boundary (s0 s1))) - (2 . #s(stx-boundary (s0 s1))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1 () (s1 () s2))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 () (s1 () s2))))) - (138 . #f) - (0 . #s(stx-boundary (s0 () (s0 () s1)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 () (s0 () s1)))) - (112 . #f) - (16 () . #s(stx-boundary ((s0 () s1)))) - (13 . #f) - (10 . #s(stx-boundary ((s0 () s1)))) - (24 #s(stx-boundary ((s0 () s1))) . #s(stx-boundary ((s0 () s1)))) - (3 . #f) - (126 . #s(stx-boundary (s0 () s1))) - (127 . #s(stx-boundary (s0 () s1))) - (12 . #s(stx-boundary ((s0 () s1)))) - (4 . #s(stx-boundary ((s0 () s1)))) - (3 . #f) - (0 . #s(stx-boundary (s0 () s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 () s1))) - (112 . #f) - (16 () . #s(stx-boundary (s0))) - (13 . #f) - (10 . #s(stx-boundary (s0))) - (24 #s(stx-boundary (s0)) . #s(stx-boundary (s0))) - (3 . #f) - (126 . #s(stx-boundary s0)) - (127 . #s(stx-boundary s0)) - (12 . #s(stx-boundary (s0))) - (4 . #s(stx-boundary (s0))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0))) - (7 . #s(stx-boundary (s0 () s1))) - (2 . #s(stx-boundary (s0 () s1))) - (5 . #s(stx-boundary ((s0 () s1)))) - (7 . #s(stx-boundary (s0 () (s0 () s1)))) - (2 . #s(stx-boundary (s0 () (s0 () s1)))) - (7 . #s(stx-boundary (s0 (s1 () (s1 () s2))))) - (2 . #s(stx-boundary (s0 (s1 () (s1 () s2))))) - (5 . #s(stx-boundary ((s0 s1) (s2 (s3 () (s3 () s4)))))) - (7 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 () (s4 () s5)))))) - (2 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 () (s4 () s5)))))))) - ((letrec-values (((x) __y) ((y z) __w)) __x) - . - ((141 . #f) - (0 . #s(stx-boundary (s0 (s1 (((s2) s3) ((s4 s5) s6)) s7)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 (((s2) s3) ((s4 s5) s6)) s7)))) - (138 . #f) - (0 . #s(stx-boundary (s0 (((s1) s2) ((s3 s4) s5)) s6))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (((s1) s2) ((s3 s4) s5)) s6))) - (113 . #f) - (16 - (#s(stx-boundary ((s0) s1)) #s(stx-boundary ((s2 s3) s4))) - . - #s(stx-boundary (s5))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . s1))) - (6 . #s(stx-boundary (s0 . s1))) - (116 . #f) - (7 . #s(stx-boundary (s0 . s1))) - (2 . #s(stx-boundary (s0 . s1))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . s1))) - (6 . #s(stx-boundary (s0 . s1))) - (116 . #f) - (7 . #s(stx-boundary (s0 . s1))) - (2 . #s(stx-boundary (s0 . s1))) - (13 . #f) - (10 . #s(stx-boundary (s0))) - (24 #s(stx-boundary (s0)) . #s(stx-boundary (s0))) - (3 . #f) - (126 . #s(stx-boundary s0)) - (127 . #s(stx-boundary s0)) - (12 . #s(stx-boundary (s0))) - (4 . #s(stx-boundary (s0))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . s1))) - (6 . #s(stx-boundary (s0 . s1))) - (116 . #f) - (7 . #s(stx-boundary (s0 . s1))) - (2 . #s(stx-boundary (s0 . s1))) - (5 . #s(stx-boundary ((s0 . s1)))) - (7 - . - #s(stx-boundary - (s0 (((s1) (s2 . s3)) ((s4 s5) (s2 . s6))) (s2 . s7)))) - (2 - . - #s(stx-boundary - (s0 (((s1) (s2 . s3)) ((s4 s5) (s2 . s6))) (s2 . s7)))) - (7 - . - #s(stx-boundary - (s0 (s1 (((s2) (s3 . s4)) ((s5 s6) (s3 . s7))) (s3 . s8))))) - (2 - . - #s(stx-boundary - (s0 (s1 (((s2) (s3 . s4)) ((s5 s6) (s3 . s7))) (s3 . s8))))))) + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 s2)))) + (enter-check . #s(stx-boundary (s0 (s1 s2)))) + (exit-check . #s(stx-boundary (s0 (s1 s2)))) + (visit . #s(stx-boundary (s0 (s1 s2)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 s2)))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-#%variable-reference . #f) + (exit-prim . #s(stx-boundary (s0 s1))) + (return . #s(stx-boundary (s0 s1))) + (exit-prim . #s(stx-boundary (s0 (s1 s2)))) + (return . #s(stx-boundary (s0 (s1 s2)))))) ((let () (define-syntax (ok stx) - (local-expand (cadr (syntax-e stx)) 'expression #f)) - (ok 9)) + (define-values + (exp opaque) + (syntax-local-expand-expression (cadr (syntax-e stx)))) + opaque) + (#%expression (ok 9))) . - ((141 . #f) - (0 + ((start-top . #f) + (visit . #s(stx-boundary - (s0 (s1 () (s2 (s3 s4) (s5 (s6 (s7 s4)) (s8 s9) #f)) (s3 9))))) - (1 . #s(stx-boundary s0)) - (6 + (s0 + (s1 + () + (s2 (s3 s4) (s5 (s6 s7) (s8 (s9 (s10 s4)))) s7) + (s0 (s3 9)))))) + (enter-check . #s(stx-boundary - (s0 (s1 () (s2 (s3 s4) (s5 (s6 (s7 s4)) (s8 s9) #f)) (s3 9))))) - (138 . #f) - (0 + (s0 + (s1 + () + (s2 (s3 s4) (s5 (s6 s7) (s8 (s9 (s10 s4)))) s7) + (s0 (s3 9)))))) + (exit-check . #s(stx-boundary - (s0 () (s1 (s2 s3) (s4 (s5 (s6 s3)) (s7 s8) #f)) (s2 9)))) - (1 . #s(stx-boundary s0)) - (8 + (s0 + (s1 + () + (s2 (s3 s4) (s5 (s6 s7) (s8 (s9 (s10 s4)))) s7) + (s0 (s3 9)))))) + (visit . #s(stx-boundary - (s0 () (s1 (s2 s3) (s4 (s5 (s6 s3)) (s7 s8) #f)) (s2 9)))) - (21 + (s0 + (s1 + () + (s2 (s3 s4) (s5 (s6 s7) (s8 (s9 (s10 s4)))) s7) + (s0 (s3 9)))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary - (s0 () (s1 (s2 s3) (s4 (s5 (s6 s3)) (s7 s8) #f)) (s2 9)))) - (22 - #s(stx-boundary - (s0 () (s1 (s2 s3) (s4 (s5 (s6 s3)) (s7 s8) #f)) (s2 9))) + (s0 + (s1 + () + (s2 (s3 s4) (s5 (s6 s7) (s8 (s9 (s10 s4)))) s7) + (s0 (s3 9)))))) + (prim-#%expression . #f) + (visit . #s(stx-boundary - (s9 () (s1 (s2 s3) (s4 (s5 (s6 s3)) (s7 s8) #f)) (s2 9)))) - (9 + (s0 + () + (s1 (s2 s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6) + (s10 (s2 9))))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary - (s0 () (s1 (s2 s3) (s4 (s5 (s6 s3)) (s7 s8) #f)) (s2 9)))) - (0 + (s0 + () + (s1 (s2 s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6) + (s10 (s2 9))))) + (macro-pre-x . #s(stx-boundary - (s0 () (s1 (s2 s3) (s4 (s5 (s6 s3)) (s7 s8) #f)) (s2 9)))) - (1 . #s(stx-boundary s0)) - (6 + (s0 + () + (s1 (s2 s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6) + (s10 (s2 9))))) + (macro-post-x + #s(stx-boundary + (s0 + () + (s1 (s2 s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6) + (s10 (s2 9)))) . #s(stx-boundary - (s0 () (s1 (s2 s3) (s4 (s5 (s6 s3)) (s7 s8) #f)) (s2 9)))) - (112 . #f) - (16 + (s11 + () + (s1 (s2 s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6) + (s10 (s2 9))))) + (exit-macro + . + #s(stx-boundary + (s0 + () + (s1 (s2 s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6) + (s10 (s2 9))))) + (visit + . + #s(stx-boundary + (s0 + () + (s1 (s2 s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6) + (s10 (s2 9))))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary + (s0 + () + (s1 (s2 s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6) + (s10 (s2 9))))) + (prim-let-values . #f) + (let-renames () . - #s(stx-boundary ((s0 (s1 s2) (s3 (s4 (s5 s2)) (s6 s7) #f)) (s1 9)))) - (13 . #f) - (10 + #s(stx-boundary + ((s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5) (s9 (s1 9))))) + (next-group . #f) + (enter-block . - #s(stx-boundary ((s0 (s1 s2) (s3 (s4 (s5 s2)) (s6 s7) #f)) (s1 9)))) - (24 - #s(stx-boundary ((s0 (s1 s2) (s3 (s4 (s5 s2)) (s6 s7) #f)) (s1 9))) + #s(stx-boundary + ((s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5) (s9 (s1 9))))) + (block-renames + #s(stx-boundary + ((s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5) (s9 (s1 9)))) . - #s(stx-boundary ((s0 (s1 s2) (s3 (s4 (s5 s2)) (s6 s7) #f)) (s1 9)))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s2)) (s6 s7) #f)))) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s2)) (s6 s7) #f)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s2)) (s6 s7) #f)))) - (21 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s2)) (s6 s7) #f)))) - (22 - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 s3)) (s7 s8) #f)))) + #s(stx-boundary + ((s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5) (s9 (s1 9))))) + (next . #f) + (enter-check . - #s(stx-boundary (s9 (s1 s3) (s4 (s5 (s6 s3)) (s7 s8) #f)))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 s3)) (s7 s8) #f))))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 s3)) (s7 s8) #f))))) - (127 + #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5))) + (visit . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 s3)) (s7 s8) #f))))) - (103 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) (s3 (s4 (s5 s2)) (s6 s7) #f))))) - (157 . #f) - (144 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 s1)) (s5 s6) #f)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 s1)) (s5 s6) #f)))) - (21 . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 s1)) (s5 s6) #f)))) - (22 - #s(stx-boundary (s0 (s1) (s2 (s3 (s4 s1)) (s5 s6) #f))) + #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5))) + (resolve . #s(stx-boundary s0)) + (enter-macro . - #s(stx-boundary (s7 (s1) (s2 (s3 (s4 s1)) (s5 s6) #f)))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 s1)) (s5 s6) #f)))) - (0 . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 s1)) (s5 s6) #f)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 s1)) (s5 s6) #f)))) - (110 . #f) - (17 + #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5))) + (macro-pre-x + . + #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5))) + (macro-post-x + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6))) + . + #s(stx-boundary (s10 (s1 s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6))) + (exit-macro + . + #s(stx-boundary + (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6)))) + (return + . + #s(stx-boundary + (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6)))) + (exit-check + . + #s(stx-boundary + (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6)))) + (prim-define-syntaxes . #f) + (rename-one + . + #s(stx-boundary ((s0) (s1 (s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5)))) + (prepare-env . #f) + (enter-bind . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 (s6 (s7 s1)))) s4))) + (resolve . #s(stx-boundary s0)) + (enter-macro + . + #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 (s6 (s7 s1)))) s4))) + (macro-pre-x + . + #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 (s6 (s7 s1)))) s4))) + (macro-post-x + #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 (s6 (s7 s1)))) s4)) + . + #s(stx-boundary (s8 (s1) (s2 (s3 s4) (s5 (s6 (s7 s1)))) s4))) + (exit-macro + . + #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 (s6 (s7 s1)))) s4))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 (s6 (s7 s1)))) s4))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 (s6 (s7 s1)))) s4))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . - #s(stx-boundary ((s1 (s2 (s3 s0)) (s4 s5) #f)))) - (10 . #s(stx-boundary ((s0 (s1 (s2 s3)) (s4 s5) #f)))) - (24 - #s(stx-boundary ((s0 (s1 (s2 s3)) (s4 s5) #f))) + #s(stx-boundary ((s1 (s2 s3) (s4 (s5 (s6 s0)))) s3))) + (enter-block . #s(stx-boundary ((s0 (s1 s2) (s3 (s4 (s5 s6)))) s2))) + (block-renames + #s(stx-boundary ((s0 (s1 s2) (s3 (s4 (s5 s6)))) s2)) . - #s(stx-boundary ((s0 (s1 (s2 s3)) (s4 s5) #f)))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 (s2 s3)) (s4 s5) #f))) - (127 . #s(stx-boundary (s0 (s1 (s2 s3)) (s4 s5) #f))) - (12 . #s(stx-boundary ((s0 (s1 (s2 s3)) (s4 s5) #f)))) - (4 . #s(stx-boundary ((s0 (s1 (s2 s3)) (s4 s5) #f)))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1 (s2 s3)) (s4 s5) #f))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 (s2 (s3 s4)) (s5 s6) #f))) - (8 . #s(stx-boundary (s0 s1 (s2 (s3 s4)) (s5 s6) #f))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3 s4)) (s5 s6) #f))) - (22 - #s(stx-boundary (s0 s1 (s2 (s3 s4)) (s5 s6) #f)) + #s(stx-boundary ((s0 (s1 s2) (s3 (s4 (s5 s6)))) s2))) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s6)))))) + (exit-check . #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s6)))))) + (prim-define-values . #f) + (rename-one . #s(stx-boundary ((s0 s1) (s2 (s3 (s4 s5)))))) + (next . #f) + (enter-check . #s(stx-boundary s0)) + (exit-check . #s(stx-boundary s0)) + (block->letrec #s(stx-boundary (s0 (((s1 s2) (s3 (s4 (s5 s6))))) s2))) + (visit . #s(stx-boundary (s0 (((s1 s2) (s3 (s4 (s5 s6))))) s2))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (((s1 s2) (s3 (s4 (s5 s6))))) s2))) + (prim-letrec-values . #f) + (let-renames + (#s(stx-boundary ((s0 s1) (s2 (s3 (s4 s5)))))) . - #s(stx-boundary (s0 s1 (s2 (s3 s4)) (s5 s6) #f))) - (9 . #s(stx-boundary (s0 s1 (s2 (s3 s4)) (s5 s6) #f))) - (0 . #s(stx-boundary (s0 s1 (s2 (s3 s4)) (s5 s6) #f))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 (s3 s4)) (s5 s6) #f))) - (109 . #f) - (4 . #s(stx-boundary (s0 (s1 (s2 s3)) (s4 s5) #f))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1 s2)))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 (s2 s3)))) - (8 . #s(stx-boundary (s0 s1 (s2 s3)))) - (21 . #s(stx-boundary (s0 s1 (s2 s3)))) - (22 + #s(stx-boundary (s1))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 (s2 s3))))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 (s2 (s3 s4))))) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3 s4))))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3 s4))))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 (s3 s4)))) + . + #s(stx-boundary (s0 s1 (s2 (s3 s4))))) + (exit-macro . #s(stx-boundary (s0 s1 (s2 (s3 s4))))) + (visit . #s(stx-boundary (s0 s1 (s2 (s3 s4))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 (s3 s4))))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 (s1 (s2 s3))))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 s2)))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 (s2 s3)))) + (enter-macro . #s(stx-boundary (s0 s1 (s2 s3)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 s3)))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 s3))) . #s(stx-boundary (s0 s1 (s2 s3)))) - (9 . #s(stx-boundary (s0 s1 (s2 s3)))) - (0 . #s(stx-boundary (s0 s1 (s2 s3)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 s3)))) - (109 . #f) - (4 . #s(stx-boundary (s0 (s1 s2)))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 s2))) - (8 . #s(stx-boundary (s0 s1 s2))) - (21 . #s(stx-boundary (s0 s1 s2))) - (22 #s(stx-boundary (s0 s1 s2)) . #s(stx-boundary (s0 s1 s2))) - (9 . #s(stx-boundary (s0 s1 s2))) - (0 . #s(stx-boundary (s0 s1 s2))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 s2))) - (109 . #f) - (4 . #s(stx-boundary (s0 s1))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0 s1))) - (7 . #s(stx-boundary (s0 s1 s2))) - (2 . #s(stx-boundary (s0 s1 s2))) - (5 . #s(stx-boundary (s0 (s1 s2 s3)))) - (7 . #s(stx-boundary (s0 s1 (s0 s2 s3)))) - (2 . #s(stx-boundary (s0 s1 (s0 s2 s3)))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1))) - (117 . #f) - (7 . #s(stx-boundary (s0 s1))) - (2 . #s(stx-boundary (s0 s1))) - (3 . #f) - (0 . #s(stx-boundary #f)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . #f))) - (6 . #s(stx-boundary (s0 . #f))) - (115 . #f) - (7 . #s(stx-boundary (s0 #f))) - (2 . #s(stx-boundary (s0 #f))) - (5 . #s(stx-boundary (s0 (s1 s2 (s1 s3 s4)) (s5 s6) (s5 #f)))) - (7 . #s(stx-boundary (s0 s1 (s0 s2 (s0 s3 s4)) (s5 s6) (s5 #f)))) - (2 . #s(stx-boundary (s0 s1 (s0 s2 (s0 s3 s4)) (s5 s6) (s5 #f)))) - (5 . #s(stx-boundary ((s0 s1 (s0 s2 (s0 s3 s4)) (s5 s6) (s5 #f))))) - (7 + (exit-macro . #s(stx-boundary (s0 s1 (s2 s3)))) + (visit . #s(stx-boundary (s0 s1 (s2 s3)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3)))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 (s1 s2)))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 s2))) + (enter-macro . #s(stx-boundary (s0 s1 s2))) + (macro-pre-x . #s(stx-boundary (s0 s1 s2))) + (macro-post-x + #s(stx-boundary (s0 s1 s2)) . - #s(stx-boundary (s0 (s1) (s2 s3 (s2 s4 (s2 s5 s1)) (s6 s7) (s6 #f))))) - (2 + #s(stx-boundary (s0 s1 s2))) + (exit-macro . #s(stx-boundary (s0 s1 s2))) + (visit . #s(stx-boundary (s0 s1 s2))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 s2))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0 s1))) + (exit-prim . #s(stx-boundary (s0 s1 s2))) + (return . #s(stx-boundary (s0 s1 s2))) + (exit-list . #s(stx-boundary (s0 (s1 s2 s3)))) + (exit-prim . #s(stx-boundary (s0 s1 (s0 s2 s3)))) + (return . #s(stx-boundary (s0 s1 (s0 s2 s3)))) + (exit-list . #s(stx-boundary (s0 (s1 s2 (s1 s3 s4))))) + (exit-prim . #s(stx-boundary (s0 s1 (s0 s2 (s0 s3 s4))))) + (return . #s(stx-boundary (s0 s1 (s0 s2 (s0 s3 s4))))) + (next-group . #f) + (enter-list . #s(stx-boundary (s0))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0))) + (exit-prim . - #s(stx-boundary (s0 (s1) (s2 s3 (s2 s4 (s2 s5 s1)) (s6 s7) (s6 #f))))) - (3 . #f) - (145 . #f) - (3 . #f) - (126 . #s(stx-boundary (s0 9))) - (0 . #s(stx-boundary (s0 9))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 9))) - (21 . #s(stx-boundary (s0 9))) - (130 . #s(stx-boundary 9)) - (132 . #s(stx-boundary 9)) - (126 . #s(stx-boundary 9)) - (127 . #s(stx-boundary 9)) - (133 . #s(stx-boundary 9)) - (131 . #s(stx-boundary 9)) - (22 #s(stx-boundary 9) . #s(stx-boundary (s0 9))) - (9 . #s(stx-boundary 9)) - (2 . #s(stx-boundary 9)) - (127 . #s(stx-boundary 9)) - (14 - #s(stx-boundary - (s0 (((s1) (s2 (s3) (s4 (s5 (s6 s3)) (s7 s8) #f)))) () 9))) - (0 + #s(stx-boundary (s0 (((s1 s2) (s3 s4 (s3 s5 (s3 s6 s7))))) s2))) + (return + . + #s(stx-boundary (s0 (((s1 s2) (s3 s4 (s3 s5 (s3 s6 s7))))) s2))) + (exit-prim . #s(stx-boundary - (s0 (((s1) (s2 (s3) (s4 (s5 (s6 s3)) (s7 s8) #f)))) () 9))) - (1 . #s(stx-boundary s0)) - (6 + (s0 (s1) (s2 (((s3 s4) (s5 s6 (s5 s7 (s5 s8 s1))))) s4)))) + (return . #s(stx-boundary - (s0 (((s1) (s2 (s3) (s4 (s5 (s6 s3)) (s7 s8) #f)))) () 9))) - (114 . #f) - (19 - (#s(stx-boundary ((s0) (s1 (s2) (s3 (s4 (s5 s2)) (s6 s7) #f))))) + (s0 (s1) (s2 (((s3 s4) (s5 s6 (s5 s7 (s5 s8 s1))))) s4)))) + (next . #f) + (exit-bind . #f) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 9)))) + (exit-check . #s(stx-boundary (s0 (s1 9)))) + (block->letrec + #s(stx-boundary + (s0 + (((s1) (s2 (s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6))) + () + (s10 (s1 9))))) + (visit + . + #s(stx-boundary + (s0 + (((s1) (s2 (s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6))) + () + (s10 (s1 9))))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary + (s0 + (((s1) (s2 (s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6))) + () + (s10 (s1 9))))) + (prim-letrec-syntaxes+values . #f) + (letrec-syntaxes-renames + (#s(stx-boundary ((s0) (s1 (s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5)))) () . - #s(stx-boundary (9))) - (157 . #f) - (13 . #f) - (4 . #s(stx-boundary (9))) - (3 . #f) - (0 . #s(stx-boundary 9)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 9))) - (6 . #s(stx-boundary (s0 . 9))) - (115 . #f) - (7 . #s(stx-boundary (s0 9))) - (2 . #s(stx-boundary (s0 9))) - (5 . #s(stx-boundary ((s0 9)))) - (142 . #s(stx-boundary (s0 () (s1 9)))) - (7 . #s(stx-boundary (s0 () (s1 9)))) - (2 . #s(stx-boundary (s0 () (s1 9)))) - (7 . #s(stx-boundary (s0 () (s0 () (s1 9))))) - (2 . #s(stx-boundary (s0 () (s0 () (s1 9))))) - (7 . #s(stx-boundary (s0 (s1 () (s1 () (s2 9)))))) - (2 . #s(stx-boundary (s0 (s1 () (s1 () (s2 9)))))))) + #s(stx-boundary ((s9 (s0 9))))) + (prepare-env . #f) + (next-group . #f) + (enter-list . #s(stx-boundary ((s0 (s1 9))))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 9)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 9)))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 9))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 9))) + (macro-pre-x . #s(stx-boundary (s0 9))) + (enter-local . #s(stx-boundary 9)) + (local-pre . #s(stx-boundary 9)) + (start . #f) + (visit . #s(stx-boundary 9)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 9))) + (enter-prim . #s(stx-boundary (s0 . 9))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 9))) + (return . #s(stx-boundary (s0 9))) + (local-post . #s(stx-boundary (s0 9))) + (opaque-expr . #s(stx-boundary #:opaque)) + (exit-local . #s(stx-boundary (s0 9))) + (macro-post-x #s(stx-boundary #:opaque) . #s(stx-boundary (s0 9))) + (exit-macro . #s(stx-boundary #:opaque)) + (visit . #s(stx-boundary #:opaque)) + (opaque-expr . #s(stx-boundary (s0 9))) + (tag . #s(stx-boundary (s0 9))) + (exit-prim . #s(stx-boundary (s0 9))) + (return . #s(stx-boundary (s0 9))) + (exit-list . #s(stx-boundary ((s0 9)))) + (tag . #s(stx-boundary (s0 () (s1 9)))) + (exit-prim . #s(stx-boundary (s0 () (s1 9)))) + (return . #s(stx-boundary (s0 () (s1 9)))) + (exit-prim . #s(stx-boundary (s0 () (s0 () (s1 9))))) + (return . #s(stx-boundary (s0 () (s0 () (s1 9))))) + (exit-prim . #s(stx-boundary (s0 (s1 () (s1 () (s2 9)))))) + (return . #s(stx-boundary (s0 (s1 () (s1 () (s2 9)))))))) + ((letrec-values (((x) __y) ((y z) __w)) __x) + . + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 (((s2) s3) ((s4 s5) s6)) s7)))) + (enter-check . #s(stx-boundary (s0 (s1 (((s2) s3) ((s4 s5) s6)) s7)))) + (exit-check . #s(stx-boundary (s0 (s1 (((s2) s3) ((s4 s5) s6)) s7)))) + (visit . #s(stx-boundary (s0 (s1 (((s2) s3) ((s4 s5) s6)) s7)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 (((s2) s3) ((s4 s5) s6)) s7)))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 (((s1) s2) ((s3 s4) s5)) s6))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (((s1) s2) ((s3 s4) s5)) s6))) + (prim-letrec-values . #f) + (let-renames + (#s(stx-boundary ((s0) s1)) #s(stx-boundary ((s2 s3) s4))) + . + #s(stx-boundary (s5))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . s1))) + (enter-prim . #s(stx-boundary (s0 . s1))) + (prim-#%top . #f) + (exit-prim . #s(stx-boundary (s0 . s1))) + (return . #s(stx-boundary (s0 . s1))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . s1))) + (enter-prim . #s(stx-boundary (s0 . s1))) + (prim-#%top . #f) + (exit-prim . #s(stx-boundary (s0 . s1))) + (return . #s(stx-boundary (s0 . s1))) + (next-group . #f) + (enter-block . #s(stx-boundary (s0))) + (block-renames #s(stx-boundary (s0)) . #s(stx-boundary (s0))) + (next . #f) + (enter-check . #s(stx-boundary s0)) + (exit-check . #s(stx-boundary s0)) + (block->list . #s(stx-boundary (s0))) + (enter-list . #s(stx-boundary (s0))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . s1))) + (enter-prim . #s(stx-boundary (s0 . s1))) + (prim-#%top . #f) + (exit-prim . #s(stx-boundary (s0 . s1))) + (return . #s(stx-boundary (s0 . s1))) + (exit-list . #s(stx-boundary ((s0 . s1)))) + (exit-prim + . + #s(stx-boundary + (s0 (((s1) (s2 . s3)) ((s4 s5) (s2 . s6))) (s2 . s7)))) + (return + . + #s(stx-boundary + (s0 (((s1) (s2 . s3)) ((s4 s5) (s2 . s6))) (s2 . s7)))) + (exit-prim + . + #s(stx-boundary + (s0 (s1 (((s2) (s3 . s4)) ((s5 s6) (s3 . s7))) (s3 . s8))))) + (return + . + #s(stx-boundary + (s0 (s1 (((s2) (s3 . s4)) ((s5 s6) (s3 . s7))) (s3 . s8))))))) ((lambda (x) (define y (+ x x)) y) . - ((141 . #f) - (0 . #s(stx-boundary (s0 (s1 (s2) (s3 s4 (s5 s2 s2)) s4)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 (s2) (s3 s4 (s5 s2 s2)) s4)))) - (138 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 s3 (s4 s1 s1)) s3))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1) (s2 s3 (s4 s1 s1)) s3))) - (21 . #s(stx-boundary (s0 (s1) (s2 s3 (s4 s1 s1)) s3))) - (22 + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 (s2) (s3 s4 (s5 s2 s2)) s4)))) + (enter-check . #s(stx-boundary (s0 (s1 (s2) (s3 s4 (s5 s2 s2)) s4)))) + (exit-check . #s(stx-boundary (s0 (s1 (s2) (s3 s4 (s5 s2 s2)) s4)))) + (visit . #s(stx-boundary (s0 (s1 (s2) (s3 s4 (s5 s2 s2)) s4)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 (s2) (s3 s4 (s5 s2 s2)) s4)))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 s3 (s4 s1 s1)) s3))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1) (s2 s3 (s4 s1 s1)) s3))) + (macro-pre-x . #s(stx-boundary (s0 (s1) (s2 s3 (s4 s1 s1)) s3))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 s3 (s4 s1 s1)) s3)) . #s(stx-boundary (s0 (s1) (s2 s3 (s4 s1 s1)) s3))) - (9 . #s(stx-boundary (s0 (s1) (s2 s3 (s4 s1 s1)) s3))) - (0 . #s(stx-boundary (s0 (s1) (s2 s3 (s4 s1 s1)) s3))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 s3 (s4 s1 s1)) s3))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary ((s1 s2 (s3 s0 s0)) s2))) - (10 . #s(stx-boundary ((s0 s1 (s2 s3 s3)) s1))) - (24 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 s3 (s4 s1 s1)) s3))) + (visit . #s(stx-boundary (s0 (s1) (s2 s3 (s4 s1 s1)) s3))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 s3 (s4 s1 s1)) s3))) + (prim-lambda . #f) + (lambda-renames + #s(stx-boundary (s0)) + . + #s(stx-boundary ((s1 s2 (s3 s0 s0)) s2))) + (enter-block . #s(stx-boundary ((s0 s1 (s2 s3 s3)) s1))) + (block-renames #s(stx-boundary ((s0 s1 (s2 s3 s3)) s1)) . #s(stx-boundary ((s0 s1 (s2 s3 s3)) s1))) - (3 . #f) - (126 . #s(stx-boundary (s0 s1 (s2 s3 s3)))) - (0 . #s(stx-boundary (s0 s1 (s2 s3 s3)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 s3 s3)))) - (21 . #s(stx-boundary (s0 s1 (s2 s3 s3)))) - (22 + (next . #f) + (enter-check . #s(stx-boundary (s0 s1 (s2 s3 s3)))) + (visit . #s(stx-boundary (s0 s1 (s2 s3 s3)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 s3 s3)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 s3 s3)))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 s3 s3))) . #s(stx-boundary (s0 s1 (s2 s3 s3)))) - (9 . #s(stx-boundary (s0 s1 (s2 s3 s3)))) - (2 . #s(stx-boundary (s0 s1 (s2 s3 s3)))) - (0 . #s(stx-boundary (s0 s1 (s2 s3 s3)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 s3 s3)))) - (21 . #s(stx-boundary (s0 s1 (s2 s3 s3)))) - (22 + (exit-macro . #s(stx-boundary (s0 s1 (s2 s3 s3)))) + (return . #s(stx-boundary (s0 s1 (s2 s3 s3)))) + (visit . #s(stx-boundary (s0 s1 (s2 s3 s3)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 s3 s3)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 s3 s3)))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 s3 s3))) . #s(stx-boundary (s4 s1 (s2 s3 s3)))) - (9 . #s(stx-boundary (s0 (s1) (s2 s3 s3)))) - (2 . #s(stx-boundary (s0 (s1) (s2 s3 s3)))) - (127 . #s(stx-boundary (s0 (s1) (s2 s3 s3)))) - (104 . #f) - (148 . #s(stx-boundary ((s0) (s1 s2 s2)))) - (3 . #f) - (126 . #s(stx-boundary s0)) - (127 . #s(stx-boundary s0)) - (14 #s(stx-boundary (s0 (((s1) (s2 s3 s3))) s1))) - (0 . #s(stx-boundary (s0 (((s1) (s2 s3 s3))) s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (((s1) (s2 s3 s3))) s1))) - (113 . #f) - (16 (#s(stx-boundary ((s0) (s1 s2 s2)))) . #s(stx-boundary (s0))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1 s1))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 s2 s2))) - (8 . #s(stx-boundary (s0 s1 s2 s2))) - (21 . #s(stx-boundary (s0 s1 s2 s2))) - (22 #s(stx-boundary (s0 s1 s2 s2)) . #s(stx-boundary (s0 s1 s2 s2))) - (9 . #s(stx-boundary (s0 s1 s2 s2))) - (0 . #s(stx-boundary (s0 s1 s2 s2))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 s2 s2))) - (109 . #f) - (4 . #s(stx-boundary (s0 s1 s1))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0 s1 s1))) - (7 . #s(stx-boundary (s0 s1 s2 s2))) - (2 . #s(stx-boundary (s0 s1 s2 s2))) - (13 . #f) - (4 . #s(stx-boundary (s0))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0))) - (7 . #s(stx-boundary (s0 (((s1) (s2 s3 s4 s4))) s1))) - (2 . #s(stx-boundary (s0 (((s1) (s2 s3 s4 s4))) s1))) - (7 . #s(stx-boundary (s0 (s1) (s2 (((s3) (s4 s5 s1 s1))) s3)))) - (2 . #s(stx-boundary (s0 (s1) (s2 (((s3) (s4 s5 s1 s1))) s3)))) - (7 . #s(stx-boundary (s0 (s1 (s2) (s3 (((s4) (s5 s6 s2 s2))) s4))))) - (2 . #s(stx-boundary (s0 (s1 (s2) (s3 (((s4) (s5 s6 s2 s2))) s4))))))) + (exit-macro . #s(stx-boundary (s0 (s1) (s2 s3 s3)))) + (return . #s(stx-boundary (s0 (s1) (s2 s3 s3)))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 s3 s3)))) + (prim-define-values . #f) + (rename-one . #s(stx-boundary ((s0) (s1 s2 s2)))) + (next . #f) + (enter-check . #s(stx-boundary s0)) + (exit-check . #s(stx-boundary s0)) + (block->letrec #s(stx-boundary (s0 (((s1) (s2 s3 s3))) s1))) + (visit . #s(stx-boundary (s0 (((s1) (s2 s3 s3))) s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (((s1) (s2 s3 s3))) s1))) + (prim-letrec-values . #f) + (let-renames + (#s(stx-boundary ((s0) (s1 s2 s2)))) + . + #s(stx-boundary (s0))) + (next . #f) + (visit . #s(stx-boundary (s0 s1 s1))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 s2 s2))) + (enter-macro . #s(stx-boundary (s0 s1 s2 s2))) + (macro-pre-x . #s(stx-boundary (s0 s1 s2 s2))) + (macro-post-x + #s(stx-boundary (s0 s1 s2 s2)) + . + #s(stx-boundary (s0 s1 s2 s2))) + (exit-macro . #s(stx-boundary (s0 s1 s2 s2))) + (visit . #s(stx-boundary (s0 s1 s2 s2))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 s2 s2))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 s1 s1))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0 s1 s1))) + (exit-prim . #s(stx-boundary (s0 s1 s2 s2))) + (return . #s(stx-boundary (s0 s1 s2 s2))) + (next-group . #f) + (enter-list . #s(stx-boundary (s0))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0))) + (exit-prim . #s(stx-boundary (s0 (((s1) (s2 s3 s4 s4))) s1))) + (return . #s(stx-boundary (s0 (((s1) (s2 s3 s4 s4))) s1))) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 (((s3) (s4 s5 s1 s1))) s3)))) + (return . #s(stx-boundary (s0 (s1) (s2 (((s3) (s4 s5 s1 s1))) s3)))) + (exit-prim + . + #s(stx-boundary (s0 (s1 (s2) (s3 (((s4) (s5 s6 s2 s2))) s4))))) + (return + . + #s(stx-boundary (s0 (s1 (s2) (s3 (((s4) (s5 s6 s2 s2))) s4))))))) ((if 1 2 3) . - ((141 . #f) - (0 . #s(stx-boundary (s0 (s1 1 2 3)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 1 2 3)))) - (138 . #f) - (0 . #s(stx-boundary (s0 1 2 3))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 1 2 3))) - (105 . #f) - (0 . #s(stx-boundary 1)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 1))) - (6 . #s(stx-boundary (s0 . 1))) - (115 . #f) - (7 . #s(stx-boundary (s0 1))) - (2 . #s(stx-boundary (s0 1))) - (3 . #f) - (0 . #s(stx-boundary 2)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 2))) - (6 . #s(stx-boundary (s0 . 2))) - (115 . #f) - (7 . #s(stx-boundary (s0 2))) - (2 . #s(stx-boundary (s0 2))) - (3 . #f) - (0 . #s(stx-boundary 3)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 3))) - (6 . #s(stx-boundary (s0 . 3))) - (115 . #f) - (7 . #s(stx-boundary (s0 3))) - (2 . #s(stx-boundary (s0 3))) - (7 . #s(stx-boundary (s0 (s1 1) (s1 2) (s1 3)))) - (2 . #s(stx-boundary (s0 (s1 1) (s1 2) (s1 3)))) - (7 . #s(stx-boundary (s0 (s1 (s2 1) (s2 2) (s2 3))))) - (2 . #s(stx-boundary (s0 (s1 (s2 1) (s2 2) (s2 3))))))) + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 1 2 3)))) + (enter-check . #s(stx-boundary (s0 (s1 1 2 3)))) + (exit-check . #s(stx-boundary (s0 (s1 1 2 3)))) + (visit . #s(stx-boundary (s0 (s1 1 2 3)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 1 2 3)))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 1 2 3))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 1 2 3))) + (prim-if . #f) + (visit . #s(stx-boundary 1)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 1))) + (enter-prim . #s(stx-boundary (s0 . 1))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 1))) + (return . #s(stx-boundary (s0 1))) + (next . #f) + (visit . #s(stx-boundary 2)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 2))) + (enter-prim . #s(stx-boundary (s0 . 2))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 2))) + (return . #s(stx-boundary (s0 2))) + (next . #f) + (visit . #s(stx-boundary 3)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 3))) + (enter-prim . #s(stx-boundary (s0 . 3))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 3))) + (return . #s(stx-boundary (s0 3))) + (exit-prim . #s(stx-boundary (s0 (s1 1) (s1 2) (s1 3)))) + (return . #s(stx-boundary (s0 (s1 1) (s1 2) (s1 3)))) + (exit-prim . #s(stx-boundary (s0 (s1 (s2 1) (s2 2) (s2 3))))) + (return . #s(stx-boundary (s0 (s1 (s2 1) (s2 2) (s2 3))))))) ((begin 1 __x (+ 3 4)) . - ((141 . #f) - (0 . #s(stx-boundary (s0 (s1 1 s2 (s3 3 4))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 1 s2 (s3 3 4))))) - (138 . #f) - (0 . #s(stx-boundary (s0 1 s1 (s2 3 4)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 1 s1 (s2 3 4)))) - (107 . #f) - (4 . #s(stx-boundary (1 s0 (s1 3 4)))) - (3 . #f) - (0 . #s(stx-boundary 1)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 1))) - (6 . #s(stx-boundary (s0 . 1))) - (115 . #f) - (7 . #s(stx-boundary (s0 1))) - (2 . #s(stx-boundary (s0 1))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . s1))) - (6 . #s(stx-boundary (s0 . s1))) - (116 . #f) - (7 . #s(stx-boundary (s0 . s1))) - (2 . #s(stx-boundary (s0 . s1))) - (3 . #f) - (0 . #s(stx-boundary (s0 3 4))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 3 4))) - (8 . #s(stx-boundary (s0 s1 3 4))) - (21 . #s(stx-boundary (s0 s1 3 4))) - (22 #s(stx-boundary (s0 s1 3 4)) . #s(stx-boundary (s0 s1 3 4))) - (9 . #s(stx-boundary (s0 s1 3 4))) - (0 . #s(stx-boundary (s0 s1 3 4))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 3 4))) - (109 . #f) - (4 . #s(stx-boundary (s0 3 4))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary 3)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 3))) - (6 . #s(stx-boundary (s0 . 3))) - (115 . #f) - (7 . #s(stx-boundary (s0 3))) - (2 . #s(stx-boundary (s0 3))) - (3 . #f) - (0 . #s(stx-boundary 4)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 4))) - (6 . #s(stx-boundary (s0 . 4))) - (115 . #f) - (7 . #s(stx-boundary (s0 4))) - (2 . #s(stx-boundary (s0 4))) - (5 . #s(stx-boundary (s0 (s1 3) (s1 4)))) - (7 . #s(stx-boundary (s0 s1 (s2 3) (s2 4)))) - (2 . #s(stx-boundary (s0 s1 (s2 3) (s2 4)))) - (5 . #s(stx-boundary ((s0 1) (s1 . s2) (s3 s4 (s0 3) (s0 4))))) - (7 . #s(stx-boundary (s0 (s1 1) (s2 . s3) (s4 s5 (s1 3) (s1 4))))) - (2 . #s(stx-boundary (s0 (s1 1) (s2 . s3) (s4 s5 (s1 3) (s1 4))))) - (7 . #s(stx-boundary (s0 (s1 (s2 1) (s3 . s4) (s5 s6 (s2 3) (s2 4)))))) - (2 + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 1 s2 (s3 3 4))))) + (enter-check . #s(stx-boundary (s0 (s1 1 s2 (s3 3 4))))) + (exit-check . #s(stx-boundary (s0 (s1 1 s2 (s3 3 4))))) + (visit . #s(stx-boundary (s0 (s1 1 s2 (s3 3 4))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 1 s2 (s3 3 4))))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 1 s1 (s2 3 4)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 1 s1 (s2 3 4)))) + (prim-begin . #f) + (enter-list . #s(stx-boundary (1 s0 (s1 3 4)))) + (next . #f) + (visit . #s(stx-boundary 1)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 1))) + (enter-prim . #s(stx-boundary (s0 . 1))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 1))) + (return . #s(stx-boundary (s0 1))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . s1))) + (enter-prim . #s(stx-boundary (s0 . s1))) + (prim-#%top . #f) + (exit-prim . #s(stx-boundary (s0 . s1))) + (return . #s(stx-boundary (s0 . s1))) + (next . #f) + (visit . #s(stx-boundary (s0 3 4))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 3 4))) + (enter-macro . #s(stx-boundary (s0 s1 3 4))) + (macro-pre-x . #s(stx-boundary (s0 s1 3 4))) + (macro-post-x + #s(stx-boundary (s0 s1 3 4)) + . + #s(stx-boundary (s0 s1 3 4))) + (exit-macro . #s(stx-boundary (s0 s1 3 4))) + (visit . #s(stx-boundary (s0 s1 3 4))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 3 4))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 3 4))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary 3)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 3))) + (enter-prim . #s(stx-boundary (s0 . 3))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 3))) + (return . #s(stx-boundary (s0 3))) + (next . #f) + (visit . #s(stx-boundary 4)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 4))) + (enter-prim . #s(stx-boundary (s0 . 4))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 4))) + (return . #s(stx-boundary (s0 4))) + (exit-list . #s(stx-boundary (s0 (s1 3) (s1 4)))) + (exit-prim . #s(stx-boundary (s0 s1 (s2 3) (s2 4)))) + (return . #s(stx-boundary (s0 s1 (s2 3) (s2 4)))) + (exit-list . #s(stx-boundary ((s0 1) (s1 . s2) (s3 s4 (s0 3) (s0 4))))) + (exit-prim + . + #s(stx-boundary (s0 (s1 1) (s2 . s3) (s4 s5 (s1 3) (s1 4))))) + (return . #s(stx-boundary (s0 (s1 1) (s2 . s3) (s4 s5 (s1 3) (s1 4))))) + (exit-prim + . + #s(stx-boundary (s0 (s1 (s2 1) (s3 . s4) (s5 s6 (s2 3) (s2 4)))))) + (return . #s(stx-boundary (s0 (s1 (s2 1) (s3 . s4) (s5 s6 (s2 3) (s2 4)))))))) ((#%stratified-body @@ -8464,8 +9020,8 @@ (define (second y) 8) (ok (first 5))) . - ((141 . #f) - (0 + ((start-top . #f) + (visit . #s(stx-boundary (s0 @@ -8474,8 +9030,7 @@ (s2 (s5 s6) (s7 s6)) (s2 (s7 s8) 8) (s5 (s3 5)))))) - (1 . #s(stx-boundary s0)) - (6 + (enter-check . #s(stx-boundary (s0 @@ -8484,8 +9039,36 @@ (s2 (s5 s6) (s7 s6)) (s2 (s7 s8) 8) (s5 (s3 5)))))) - (138 . #f) - (0 + (exit-check + . + #s(stx-boundary + (s0 + (s1 + (s2 (s3 s4) s4) + (s2 (s5 s6) (s7 s6)) + (s2 (s7 s8) 8) + (s5 (s3 5)))))) + (visit + . + #s(stx-boundary + (s0 + (s1 + (s2 (s3 s4) s4) + (s2 (s5 s6) (s7 s6)) + (s2 (s7 s8) 8) + (s5 (s3 5)))))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary + (s0 + (s1 + (s2 (s3 s4) s4) + (s2 (s5 s6) (s7 s6)) + (s2 (s7 s8) 8) + (s5 (s3 5)))))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 @@ -8493,8 +9076,8 @@ (s1 (s4 s5) (s6 s5)) (s1 (s6 s7) 8) (s4 (s2 5))))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 @@ -8502,279 +9085,288 @@ (s1 (s4 s5) (s6 s5)) (s1 (s6 s7) 8) (s4 (s2 5))))) - (155 . #f) - (10 + (prim-#%stratified . #f) + (enter-block . #s(stx-boundary ((s0 (s1 s2) s2) (s0 (s3 s4) (s5 s4)) (s0 (s5 s6) 8) (s3 (s1 5))))) - (24 + (block-renames #s(stx-boundary ((s0 (s1 s2) s2) (s0 (s3 s4) (s5 s4)) (s0 (s5 s6) 8) (s3 (s1 5)))) . #s(stx-boundary ((s0 (s1 s2) s2) (s0 (s3 s4) (s5 s4)) (s0 (s5 s6) 8) (s3 (s1 5))))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) s2))) - (0 . #s(stx-boundary (s0 (s1 s2) s2))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) s2))) - (21 . #s(stx-boundary (s0 (s1 s2) s2))) - (22 + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) s2))) + (visit . #s(stx-boundary (s0 (s1 s2) s2))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) s2))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) s2))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 (s3) s3))) . #s(stx-boundary (s0 (s1 s3) s3))) - (9 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (2 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (0 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (22 + (exit-macro . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (return . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (visit . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) s3))) . #s(stx-boundary (s4 s1 (s2 (s3) s3)))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (104 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) s2)))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (21 . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (22 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (prim-define-values . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) s2)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3)))) . #s(stx-boundary (s0 (s1 s3) (s4 s3)))) - (9 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (2 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (0 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (22 + (exit-macro . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (return . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (visit . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3)))) . #s(stx-boundary (s5 s1 (s2 (s3) (s4 s3))))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (104 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) (s3 s2))))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) 8))) - (0 . #s(stx-boundary (s0 (s1 s2) 8))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) 8))) - (21 . #s(stx-boundary (s0 (s1 s2) 8))) - (22 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (prim-define-values . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) (s3 s2))))) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) 8))) + (visit . #s(stx-boundary (s0 (s1 s2) 8))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) 8))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) 8))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 (s3) 8))) . #s(stx-boundary (s0 (s1 s3) 8))) - (9 . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) - (2 . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) - (0 . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) - (22 + (exit-macro . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) + (return . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) + (visit . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3) 8)))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) 8))) . #s(stx-boundary (s4 s1 (s2 (s3) 8)))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (104 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) 8)))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 5)))) - (127 . #s(stx-boundary (s0 (s1 5)))) - (14 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (prim-define-values . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) 8)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 5)))) + (exit-check . #s(stx-boundary (s0 (s1 5)))) + (block->letrec #s(stx-boundary (s0 (((s1) (s2 (s3) s3)) ((s4) (s2 (s5) (s6 s5))) ((s6) (s2 (s7) 8))) (s8 (s4 (s1 5)))))) - (0 + (visit . #s(stx-boundary (s0 (((s1) (s2 (s3) s3)) ((s4) (s2 (s5) (s6 s5))) ((s6) (s2 (s7) 8))) (s8 (s4 (s1 5)))))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (((s1) (s2 (s3) s3)) ((s4) (s2 (s5) (s6 s5))) ((s6) (s2 (s7) 8))) (s8 (s4 (s1 5)))))) - (113 . #f) - (16 + (prim-letrec-values . #f) + (let-renames (#s(stx-boundary ((s0) (s1 (s2) s2))) #s(stx-boundary ((s3) (s1 (s4) (s5 s4)))) #s(stx-boundary ((s5) (s1 (s6) 8)))) . #s(stx-boundary ((s7 (s3 (s0 5)))))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1) s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) s1))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary (s0))) - (10 . #s(stx-boundary (s0))) - (24 #s(stx-boundary (s0)) . #s(stx-boundary (s0))) - (3 . #f) - (126 . #s(stx-boundary s0)) - (127 . #s(stx-boundary s0)) - (12 . #s(stx-boundary (s0))) - (4 . #s(stx-boundary (s0))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0))) - (7 . #s(stx-boundary (s0 (s1) s1))) - (2 . #s(stx-boundary (s0 (s1) s1))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 s1)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 s1)))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary ((s1 s0)))) - (10 . #s(stx-boundary ((s0 s1)))) - (24 #s(stx-boundary ((s0 s1))) . #s(stx-boundary ((s0 s1)))) - (3 . #f) - (126 . #s(stx-boundary (s0 s1))) - (127 . #s(stx-boundary (s0 s1))) - (12 . #s(stx-boundary ((s0 s1)))) - (4 . #s(stx-boundary ((s0 s1)))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 s2))) - (8 . #s(stx-boundary (s0 s1 s2))) - (21 . #s(stx-boundary (s0 s1 s2))) - (22 #s(stx-boundary (s0 s1 s2)) . #s(stx-boundary (s0 s1 s2))) - (9 . #s(stx-boundary (s0 s1 s2))) - (0 . #s(stx-boundary (s0 s1 s2))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 s2))) - (109 . #f) - (4 . #s(stx-boundary (s0 s1))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0 s1))) - (7 . #s(stx-boundary (s0 s1 s2))) - (2 . #s(stx-boundary (s0 s1 s2))) - (5 . #s(stx-boundary ((s0 s1 s2)))) - (7 . #s(stx-boundary (s0 (s1) (s2 s3 s1)))) - (2 . #s(stx-boundary (s0 (s1) (s2 s3 s1)))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1) 8))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) 8))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary (8))) - (10 . #s(stx-boundary (8))) - (24 #s(stx-boundary (8)) . #s(stx-boundary (8))) - (3 . #f) - (126 . #s(stx-boundary 8)) - (127 . #s(stx-boundary 8)) - (12 . #s(stx-boundary (8))) - (4 . #s(stx-boundary (8))) - (3 . #f) - (0 . #s(stx-boundary 8)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 8))) - (6 . #s(stx-boundary (s0 . 8))) - (115 . #f) - (7 . #s(stx-boundary (s0 8))) - (2 . #s(stx-boundary (s0 8))) - (5 . #s(stx-boundary ((s0 8)))) - (7 . #s(stx-boundary (s0 (s1) (s2 8)))) - (2 . #s(stx-boundary (s0 (s1) (s2 8)))) - (13 . #f) - (4 . #s(stx-boundary ((s0 (s1 (s2 5)))))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1 (s2 5))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 (s2 5))))) - (155 . #f) - (10 . #s(stx-boundary ((s0 (s1 5))))) - (24 #s(stx-boundary ((s0 (s1 5)))) . #s(stx-boundary ((s0 (s1 5))))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 5)))) - (127 . #s(stx-boundary (s0 (s1 5)))) - (12 . #s(stx-boundary ((s0 (s1 5))))) - (4 . #s(stx-boundary ((s0 (s1 5))))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1 5)))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 (s2 5)))) - (8 . #s(stx-boundary (s0 s1 (s2 5)))) - (21 . #s(stx-boundary (s0 s1 (s2 5)))) - (22 #s(stx-boundary (s0 s1 (s2 5))) . #s(stx-boundary (s0 s1 (s2 5)))) - (9 . #s(stx-boundary (s0 s1 (s2 5)))) - (0 . #s(stx-boundary (s0 s1 (s2 5)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 5)))) - (109 . #f) - (4 . #s(stx-boundary (s0 (s1 5)))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary (s0 5))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 5))) - (8 . #s(stx-boundary (s0 s1 5))) - (21 . #s(stx-boundary (s0 s1 5))) - (22 #s(stx-boundary (s0 s1 5)) . #s(stx-boundary (s0 s1 5))) - (9 . #s(stx-boundary (s0 s1 5))) - (0 . #s(stx-boundary (s0 s1 5))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 5))) - (109 . #f) - (4 . #s(stx-boundary (s0 5))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary 5)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 5))) - (6 . #s(stx-boundary (s0 . 5))) - (115 . #f) - (7 . #s(stx-boundary (s0 5))) - (2 . #s(stx-boundary (s0 5))) - (5 . #s(stx-boundary (s0 (s1 5)))) - (7 . #s(stx-boundary (s0 s1 (s2 5)))) - (2 . #s(stx-boundary (s0 s1 (s2 5)))) - (5 . #s(stx-boundary (s0 (s1 s2 (s3 5))))) - (7 . #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) - (2 . #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) - (5 . #s(stx-boundary ((s0 s1 (s0 s2 (s3 5)))))) - (7 . #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) - (2 . #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) - (5 . #s(stx-boundary ((s0 s1 (s0 s2 (s3 5)))))) - (7 + (next . #f) + (visit . #s(stx-boundary (s0 (s1) s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) s1))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary (s0))) + (enter-block . #s(stx-boundary (s0))) + (block-renames #s(stx-boundary (s0)) . #s(stx-boundary (s0))) + (next . #f) + (enter-check . #s(stx-boundary s0)) + (exit-check . #s(stx-boundary s0)) + (block->list . #s(stx-boundary (s0))) + (enter-list . #s(stx-boundary (s0))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0))) + (exit-prim . #s(stx-boundary (s0 (s1) s1))) + (return . #s(stx-boundary (s0 (s1) s1))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 s1)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 s1)))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary ((s1 s0)))) + (enter-block . #s(stx-boundary ((s0 s1)))) + (block-renames #s(stx-boundary ((s0 s1))) . #s(stx-boundary ((s0 s1)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 s1))) + (exit-check . #s(stx-boundary (s0 s1))) + (block->list . #s(stx-boundary ((s0 s1)))) + (enter-list . #s(stx-boundary ((s0 s1)))) + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 s2))) + (enter-macro . #s(stx-boundary (s0 s1 s2))) + (macro-pre-x . #s(stx-boundary (s0 s1 s2))) + (macro-post-x + #s(stx-boundary (s0 s1 s2)) + . + #s(stx-boundary (s0 s1 s2))) + (exit-macro . #s(stx-boundary (s0 s1 s2))) + (visit . #s(stx-boundary (s0 s1 s2))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 s2))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0 s1))) + (exit-prim . #s(stx-boundary (s0 s1 s2))) + (return . #s(stx-boundary (s0 s1 s2))) + (exit-list . #s(stx-boundary ((s0 s1 s2)))) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 s3 s1)))) + (return . #s(stx-boundary (s0 (s1) (s2 s3 s1)))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1) 8))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) 8))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary (8))) + (enter-block . #s(stx-boundary (8))) + (block-renames #s(stx-boundary (8)) . #s(stx-boundary (8))) + (next . #f) + (enter-check . #s(stx-boundary 8)) + (exit-check . #s(stx-boundary 8)) + (block->list . #s(stx-boundary (8))) + (enter-list . #s(stx-boundary (8))) + (next . #f) + (visit . #s(stx-boundary 8)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 8))) + (enter-prim . #s(stx-boundary (s0 . 8))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 8))) + (return . #s(stx-boundary (s0 8))) + (exit-list . #s(stx-boundary ((s0 8)))) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 8)))) + (return . #s(stx-boundary (s0 (s1) (s2 8)))) + (next-group . #f) + (enter-list . #s(stx-boundary ((s0 (s1 (s2 5)))))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 (s2 5))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 (s2 5))))) + (prim-#%stratified . #f) + (enter-block . #s(stx-boundary ((s0 (s1 5))))) + (block-renames + #s(stx-boundary ((s0 (s1 5)))) + . + #s(stx-boundary ((s0 (s1 5))))) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 5)))) + (exit-check . #s(stx-boundary (s0 (s1 5)))) + (block->list . #s(stx-boundary ((s0 (s1 5))))) + (enter-list . #s(stx-boundary ((s0 (s1 5))))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 5)))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 (s2 5)))) + (enter-macro . #s(stx-boundary (s0 s1 (s2 5)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 5)))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 5))) + . + #s(stx-boundary (s0 s1 (s2 5)))) + (exit-macro . #s(stx-boundary (s0 s1 (s2 5)))) + (visit . #s(stx-boundary (s0 s1 (s2 5)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 5)))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 (s1 5)))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary (s0 5))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 5))) + (enter-macro . #s(stx-boundary (s0 s1 5))) + (macro-pre-x . #s(stx-boundary (s0 s1 5))) + (macro-post-x #s(stx-boundary (s0 s1 5)) . #s(stx-boundary (s0 s1 5))) + (exit-macro . #s(stx-boundary (s0 s1 5))) + (visit . #s(stx-boundary (s0 s1 5))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 5))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 5))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary 5)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 5))) + (enter-prim . #s(stx-boundary (s0 . 5))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 5))) + (return . #s(stx-boundary (s0 5))) + (exit-list . #s(stx-boundary (s0 (s1 5)))) + (exit-prim . #s(stx-boundary (s0 s1 (s2 5)))) + (return . #s(stx-boundary (s0 s1 (s2 5)))) + (exit-list . #s(stx-boundary (s0 (s1 s2 (s3 5))))) + (exit-prim . #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) + (return . #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) + (exit-list . #s(stx-boundary ((s0 s1 (s0 s2 (s3 5)))))) + (exit-prim . #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) + (return . #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) + (exit-list . #s(stx-boundary ((s0 s1 (s0 s2 (s3 5)))))) + (exit-prim . #s(stx-boundary (s0 @@ -8782,7 +9374,7 @@ ((s4) (s2 (s5) (s6 s7 s5))) ((s7) (s2 (s8) (s9 8)))) (s6 s4 (s6 s1 (s9 5)))))) - (2 + (return . #s(stx-boundary (s0 @@ -8790,7 +9382,7 @@ ((s4) (s2 (s5) (s6 s7 s5))) ((s7) (s2 (s8) (s9 8)))) (s6 s4 (s6 s1 (s9 5)))))) - (7 + (exit-prim . #s(stx-boundary (s0 @@ -8798,7 +9390,7 @@ ((s4) (s2 (s5) (s6 s7 s5))) ((s7) (s2 (s8) (s9 8)))) (s6 s4 (s6 s1 (s9 5)))))) - (2 + (return . #s(stx-boundary (s0 @@ -8806,7 +9398,7 @@ ((s4) (s2 (s5) (s6 s7 s5))) ((s7) (s2 (s8) (s9 8)))) (s6 s4 (s6 s1 (s9 5)))))) - (7 + (exit-prim . #s(stx-boundary (s0 @@ -8815,7 +9407,7 @@ ((s5) (s3 (s6) (s7 s8 s6))) ((s8) (s3 (s9) (s10 8)))) (s7 s5 (s7 s2 (s10 5))))))) - (2 + (return . #s(stx-boundary (s0 @@ -8826,245 +9418,260 @@ (s7 s5 (s7 s2 (s10 5))))))))) ((let () (define (ok x) '8) (define (second y) (ok y)) (second 5)) . - ((141 . #f) - (0 + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s2 (s6 s7) (s3 s7)) (s6 5))))) - (1 . #s(stx-boundary s0)) - (6 + (enter-check . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s2 (s6 s7) (s3 s7)) (s6 5))))) - (138 . #f) - (0 + (exit-check + . + #s(stx-boundary + (s0 (s1 () (s2 (s3 s4) (s5 8)) (s2 (s6 s7) (s3 s7)) (s6 5))))) + (visit + . + #s(stx-boundary + (s0 (s1 () (s2 (s3 s4) (s5 8)) (s2 (s6 s7) (s3 s7)) (s6 5))))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary + (s0 (s1 () (s2 (s3 s4) (s5 8)) (s2 (s6 s7) (s3 s7)) (s6 5))))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s6) (s2 s6)) (s5 5)))) - (1 . #s(stx-boundary s0)) - (8 + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s6) (s2 s6)) (s5 5)))) - (21 + (macro-pre-x . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s6) (s2 s6)) (s5 5)))) - (22 + (macro-post-x #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s6) (s2 s6)) (s5 5))) . #s(stx-boundary (s7 () (s1 (s2 s3) (s4 8)) (s1 (s5 s6) (s2 s6)) (s5 5)))) - (9 + (exit-macro . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s6) (s2 s6)) (s5 5)))) - (0 + (visit . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s6) (s2 s6)) (s5 5)))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s6) (s2 s6)) (s5 5)))) - (112 . #f) - (16 + (prim-let-values . #f) + (let-renames () . #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s0 (s4 s5) (s1 s5)) (s4 5)))) - (13 . #f) - (10 + (next-group . #f) + (enter-block . #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s0 (s4 s5) (s1 s5)) (s4 5)))) - (24 + (block-renames #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s0 (s4 s5) (s1 s5)) (s4 5))) . #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s0 (s4 s5) (s1 s5)) (s4 5)))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (21 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (22 + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 (s3) (s4 8)))) . #s(stx-boundary (s0 (s1 s3) (s4 8)))) - (9 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 8))))) - (2 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 8))))) - (0 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 8))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 8))))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 8))))) - (22 + (exit-macro . #s(stx-boundary (s0 s1 (s2 (s3) (s4 8))))) + (return . #s(stx-boundary (s0 s1 (s2 (s3) (s4 8))))) + (visit . #s(stx-boundary (s0 s1 (s2 (s3) (s4 8))))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3) (s4 8))))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3) (s4 8))))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8)))) . #s(stx-boundary (s5 s1 (s2 (s3) (s4 8))))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (104 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) (s3 8))))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (21 . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (22 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (prim-define-values . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) (s3 8))))) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3)))) . #s(stx-boundary (s0 (s1 s3) (s4 s3)))) - (9 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (2 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (0 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) - (22 + (exit-macro . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (return . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (visit . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3))))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3)))) . #s(stx-boundary (s5 s1 (s2 (s3) (s4 s3))))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (104 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) (s3 s2))))) - (3 . #f) - (126 . #s(stx-boundary (s0 5))) - (127 . #s(stx-boundary (s0 5))) - (14 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (prim-define-values . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) (s3 s2))))) + (next . #f) + (enter-check . #s(stx-boundary (s0 5))) + (exit-check . #s(stx-boundary (s0 5))) + (block->letrec #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8))) ((s5) (s2 (s6) (s1 s6)))) (s5 5)))) - (0 + (visit . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8))) ((s5) (s2 (s6) (s1 s6)))) (s5 5)))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8))) ((s5) (s2 (s6) (s1 s6)))) (s5 5)))) - (113 . #f) - (16 + (prim-letrec-values . #f) + (let-renames (#s(stx-boundary ((s0) (s1 (s2) (s3 8)))) #s(stx-boundary ((s4) (s1 (s5) (s0 s5))))) . #s(stx-boundary ((s4 5)))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 8)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 8)))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary ((s1 8)))) - (10 . #s(stx-boundary ((s0 8)))) - (24 #s(stx-boundary ((s0 8))) . #s(stx-boundary ((s0 8)))) - (3 . #f) - (126 . #s(stx-boundary (s0 8))) - (127 . #s(stx-boundary (s0 8))) - (12 . #s(stx-boundary ((s0 8)))) - (4 . #s(stx-boundary ((s0 8)))) - (3 . #f) - (0 . #s(stx-boundary (s0 8))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 8))) - (117 . #f) - (7 . #s(stx-boundary (s0 8))) - (2 . #s(stx-boundary (s0 8))) - (5 . #s(stx-boundary ((s0 8)))) - (7 . #s(stx-boundary (s0 (s1) (s2 8)))) - (2 . #s(stx-boundary (s0 (s1) (s2 8)))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 s1)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 s1)))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary ((s1 s0)))) - (10 . #s(stx-boundary ((s0 s1)))) - (24 #s(stx-boundary ((s0 s1))) . #s(stx-boundary ((s0 s1)))) - (3 . #f) - (126 . #s(stx-boundary (s0 s1))) - (127 . #s(stx-boundary (s0 s1))) - (12 . #s(stx-boundary ((s0 s1)))) - (4 . #s(stx-boundary ((s0 s1)))) - (3 . #f) - (0 . #s(stx-boundary (s0 s1))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 s2))) - (8 . #s(stx-boundary (s0 s1 s2))) - (21 . #s(stx-boundary (s0 s1 s2))) - (22 #s(stx-boundary (s0 s1 s2)) . #s(stx-boundary (s0 s1 s2))) - (9 . #s(stx-boundary (s0 s1 s2))) - (0 . #s(stx-boundary (s0 s1 s2))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 s2))) - (109 . #f) - (4 . #s(stx-boundary (s0 s1))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0 s1))) - (7 . #s(stx-boundary (s0 s1 s2))) - (2 . #s(stx-boundary (s0 s1 s2))) - (5 . #s(stx-boundary ((s0 s1 s2)))) - (7 . #s(stx-boundary (s0 (s1) (s2 s3 s1)))) - (2 . #s(stx-boundary (s0 (s1) (s2 s3 s1)))) - (13 . #f) - (4 . #s(stx-boundary ((s0 5)))) - (3 . #f) - (0 . #s(stx-boundary (s0 5))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 5))) - (8 . #s(stx-boundary (s0 s1 5))) - (21 . #s(stx-boundary (s0 s1 5))) - (22 #s(stx-boundary (s0 s1 5)) . #s(stx-boundary (s0 s1 5))) - (9 . #s(stx-boundary (s0 s1 5))) - (0 . #s(stx-boundary (s0 s1 5))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 5))) - (109 . #f) - (4 . #s(stx-boundary (s0 5))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary 5)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 5))) - (6 . #s(stx-boundary (s0 . 5))) - (115 . #f) - (7 . #s(stx-boundary (s0 5))) - (2 . #s(stx-boundary (s0 5))) - (5 . #s(stx-boundary (s0 (s1 5)))) - (7 . #s(stx-boundary (s0 s1 (s2 5)))) - (2 . #s(stx-boundary (s0 s1 (s2 5)))) - (5 . #s(stx-boundary ((s0 s1 (s2 5))))) - (7 + (next . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 8)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 8)))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary ((s1 8)))) + (enter-block . #s(stx-boundary ((s0 8)))) + (block-renames #s(stx-boundary ((s0 8))) . #s(stx-boundary ((s0 8)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 8))) + (exit-check . #s(stx-boundary (s0 8))) + (block->list . #s(stx-boundary ((s0 8)))) + (enter-list . #s(stx-boundary ((s0 8)))) + (next . #f) + (visit . #s(stx-boundary (s0 8))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 8))) + (prim-quote . #f) + (exit-prim . #s(stx-boundary (s0 8))) + (return . #s(stx-boundary (s0 8))) + (exit-list . #s(stx-boundary ((s0 8)))) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 8)))) + (return . #s(stx-boundary (s0 (s1) (s2 8)))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 s1)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 s1)))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary ((s1 s0)))) + (enter-block . #s(stx-boundary ((s0 s1)))) + (block-renames #s(stx-boundary ((s0 s1))) . #s(stx-boundary ((s0 s1)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 s1))) + (exit-check . #s(stx-boundary (s0 s1))) + (block->list . #s(stx-boundary ((s0 s1)))) + (enter-list . #s(stx-boundary ((s0 s1)))) + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 s2))) + (enter-macro . #s(stx-boundary (s0 s1 s2))) + (macro-pre-x . #s(stx-boundary (s0 s1 s2))) + (macro-post-x + #s(stx-boundary (s0 s1 s2)) + . + #s(stx-boundary (s0 s1 s2))) + (exit-macro . #s(stx-boundary (s0 s1 s2))) + (visit . #s(stx-boundary (s0 s1 s2))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 s2))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0 s1))) + (exit-prim . #s(stx-boundary (s0 s1 s2))) + (return . #s(stx-boundary (s0 s1 s2))) + (exit-list . #s(stx-boundary ((s0 s1 s2)))) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 s3 s1)))) + (return . #s(stx-boundary (s0 (s1) (s2 s3 s1)))) + (next-group . #f) + (enter-list . #s(stx-boundary ((s0 5)))) + (next . #f) + (visit . #s(stx-boundary (s0 5))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 5))) + (enter-macro . #s(stx-boundary (s0 s1 5))) + (macro-pre-x . #s(stx-boundary (s0 s1 5))) + (macro-post-x #s(stx-boundary (s0 s1 5)) . #s(stx-boundary (s0 s1 5))) + (exit-macro . #s(stx-boundary (s0 s1 5))) + (visit . #s(stx-boundary (s0 s1 5))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 5))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 5))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary 5)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 5))) + (enter-prim . #s(stx-boundary (s0 . 5))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 5))) + (return . #s(stx-boundary (s0 5))) + (exit-list . #s(stx-boundary (s0 (s1 5)))) + (exit-prim . #s(stx-boundary (s0 s1 (s2 5)))) + (return . #s(stx-boundary (s0 s1 (s2 5)))) + (exit-list . #s(stx-boundary ((s0 s1 (s2 5))))) + (exit-prim . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8)))) (s0 (((s5) (s2 (s6) (s7 s1 s6)))) (s7 s5 (s4 5)))))) - (2 + (return . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8)))) (s0 (((s5) (s2 (s6) (s7 s1 s6)))) (s7 s5 (s4 5)))))) - (7 + (exit-prim . #s(stx-boundary (s0 @@ -9072,7 +9679,7 @@ (s0 (((s1) (s2 (s3) (s4 8)))) (s0 (((s5) (s2 (s6) (s7 s1 s6)))) (s7 s5 (s4 5))))))) - (2 + (return . #s(stx-boundary (s0 @@ -9080,7 +9687,7 @@ (s0 (((s1) (s2 (s3) (s4 8)))) (s0 (((s5) (s2 (s6) (s7 s1 s6)))) (s7 s5 (s4 5))))))) - (7 + (exit-prim . #s(stx-boundary (s0 @@ -9089,7 +9696,7 @@ (s1 (((s2) (s3 (s4) (s5 8)))) (s1 (((s6) (s3 (s7) (s8 s2 s7)))) (s8 s6 (s5 5)))))))) - (2 + (return . #s(stx-boundary (s0 @@ -9100,256 +9707,274 @@ (s1 (((s6) (s3 (s7) (s8 s2 s7)))) (s8 s6 (s5 5)))))))))) ((#%plain-app 1 2) . - ((141 . #f) - (0 . #s(stx-boundary (s0 (s1 1 2)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 1 2)))) - (138 . #f) - (0 . #s(stx-boundary (s0 1 2))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 1 2))) - (109 . #f) - (4 . #s(stx-boundary (1 2))) - (3 . #f) - (0 . #s(stx-boundary 1)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 1))) - (6 . #s(stx-boundary (s0 . 1))) - (115 . #f) - (7 . #s(stx-boundary (s0 1))) - (2 . #s(stx-boundary (s0 1))) - (3 . #f) - (0 . #s(stx-boundary 2)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 2))) - (6 . #s(stx-boundary (s0 . 2))) - (115 . #f) - (7 . #s(stx-boundary (s0 2))) - (2 . #s(stx-boundary (s0 2))) - (5 . #s(stx-boundary ((s0 1) (s0 2)))) - (7 . #s(stx-boundary (s0 (s1 1) (s1 2)))) - (2 . #s(stx-boundary (s0 (s1 1) (s1 2)))) - (7 . #s(stx-boundary (s0 (s1 (s2 1) (s2 2))))) - (2 . #s(stx-boundary (s0 (s1 (s2 1) (s2 2))))))) + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 1 2)))) + (enter-check . #s(stx-boundary (s0 (s1 1 2)))) + (exit-check . #s(stx-boundary (s0 (s1 1 2)))) + (visit . #s(stx-boundary (s0 (s1 1 2)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 1 2)))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 1 2))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 1 2))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (1 2))) + (next . #f) + (visit . #s(stx-boundary 1)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 1))) + (enter-prim . #s(stx-boundary (s0 . 1))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 1))) + (return . #s(stx-boundary (s0 1))) + (next . #f) + (visit . #s(stx-boundary 2)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 2))) + (enter-prim . #s(stx-boundary (s0 . 2))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 2))) + (return . #s(stx-boundary (s0 2))) + (exit-list . #s(stx-boundary ((s0 1) (s0 2)))) + (exit-prim . #s(stx-boundary (s0 (s1 1) (s1 2)))) + (return . #s(stx-boundary (s0 (s1 1) (s1 2)))) + (exit-prim . #s(stx-boundary (s0 (s1 (s2 1) (s2 2))))) + (return . #s(stx-boundary (s0 (s1 (s2 1) (s2 2))))))) ((let () (define-syntax (ok stx) (quote-syntax 8)) (define-syntax (second stx) (quote-syntax (ok 6))) (second 5)) . - ((141 . #f) - (0 + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s2 (s6 s4) (s5 (s3 6))) (s6 5))))) - (1 . #s(stx-boundary s0)) - (6 + (enter-check . #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s2 (s6 s4) (s5 (s3 6))) (s6 5))))) - (138 . #f) - (0 + (exit-check + . + #s(stx-boundary + (s0 (s1 () (s2 (s3 s4) (s5 8)) (s2 (s6 s4) (s5 (s3 6))) (s6 5))))) + (visit + . + #s(stx-boundary + (s0 (s1 () (s2 (s3 s4) (s5 8)) (s2 (s6 s4) (s5 (s3 6))) (s6 5))))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary + (s0 (s1 () (s2 (s3 s4) (s5 8)) (s2 (s6 s4) (s5 (s3 6))) (s6 5))))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5)))) - (1 . #s(stx-boundary s0)) - (8 + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5)))) - (21 + (macro-pre-x . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5)))) - (22 + (macro-post-x #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5))) . #s(stx-boundary (s6 () (s1 (s2 s3) (s4 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5)))) - (9 + (exit-macro . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5)))) - (0 + (visit . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5)))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5)))) - (112 . #f) - (16 + (prim-let-values . #f) + (let-renames () . #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s0 (s4 s2) (s3 (s1 6))) (s4 5)))) - (13 . #f) - (10 + (next-group . #f) + (enter-block . #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s0 (s4 s2) (s3 (s1 6))) (s4 5)))) - (24 + (block-renames #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s0 (s4 s2) (s3 (s1 6))) (s4 5))) . #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s0 (s4 s2) (s3 (s1 6))) (s4 5)))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (21 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (22 + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8)))) . #s(stx-boundary (s5 (s1 s3) (s4 8)))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (103 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) (s3 8))))) - (157 . #f) - (144 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 8)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1) (s2 8)))) - (21 . #s(stx-boundary (s0 (s1) (s2 8)))) - (22 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (prim-define-syntaxes . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) (s3 8))))) + (prepare-env . #f) + (enter-bind . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 8)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1) (s2 8)))) + (macro-pre-x . #s(stx-boundary (s0 (s1) (s2 8)))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 8))) . #s(stx-boundary (s3 (s1) (s2 8)))) - (9 . #s(stx-boundary (s0 (s1) (s2 8)))) - (0 . #s(stx-boundary (s0 (s1) (s2 8)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 8)))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary ((s1 8)))) - (10 . #s(stx-boundary ((s0 8)))) - (24 #s(stx-boundary ((s0 8))) . #s(stx-boundary ((s0 8)))) - (3 . #f) - (126 . #s(stx-boundary (s0 8))) - (127 . #s(stx-boundary (s0 8))) - (12 . #s(stx-boundary ((s0 8)))) - (4 . #s(stx-boundary ((s0 8)))) - (3 . #f) - (0 . #s(stx-boundary (s0 8))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 8))) - (118 . #f) - (7 . #s(stx-boundary (s0 8))) - (2 . #s(stx-boundary (s0 8))) - (5 . #s(stx-boundary ((s0 8)))) - (7 . #s(stx-boundary (s0 (s1) (s2 8)))) - (2 . #s(stx-boundary (s0 (s1) (s2 8)))) - (3 . #f) - (145 . #f) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 6))))) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 6))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 6))))) - (21 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 6))))) - (22 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 8)))) + (visit . #s(stx-boundary (s0 (s1) (s2 8)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 8)))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary ((s1 8)))) + (enter-block . #s(stx-boundary ((s0 8)))) + (block-renames #s(stx-boundary ((s0 8))) . #s(stx-boundary ((s0 8)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 8))) + (exit-check . #s(stx-boundary (s0 8))) + (block->list . #s(stx-boundary ((s0 8)))) + (enter-list . #s(stx-boundary ((s0 8)))) + (next . #f) + (visit . #s(stx-boundary (s0 8))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 8))) + (prim-quote-syntax . #f) + (exit-prim . #s(stx-boundary (s0 8))) + (return . #s(stx-boundary (s0 8))) + (exit-list . #s(stx-boundary ((s0 8)))) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 8)))) + (return . #s(stx-boundary (s0 (s1) (s2 8)))) + (next . #f) + (exit-bind . #f) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) (s3 (s4 6))))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 (s4 6))))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) (s3 (s4 6))))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) (s3 (s4 6))))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6))))) . #s(stx-boundary (s6 (s1 s3) (s4 (s5 6))))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) - (103 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) (s3 (s4 6)))))) - (157 . #f) - (144 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) - (21 . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) - (22 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) + (prim-define-syntaxes . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) (s3 (s4 6)))))) + (prepare-env . #f) + (enter-bind . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) + (macro-pre-x . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3 6)))) . #s(stx-boundary (s4 (s1) (s2 (s3 6))))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) - (0 . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary ((s1 (s2 6))))) - (10 . #s(stx-boundary ((s0 (s1 6))))) - (24 #s(stx-boundary ((s0 (s1 6)))) . #s(stx-boundary ((s0 (s1 6))))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 6)))) - (127 . #s(stx-boundary (s0 (s1 6)))) - (12 . #s(stx-boundary ((s0 (s1 6))))) - (4 . #s(stx-boundary ((s0 (s1 6))))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1 6)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 6)))) - (118 . #f) - (7 . #s(stx-boundary (s0 (s1 6)))) - (2 . #s(stx-boundary (s0 (s1 6)))) - (5 . #s(stx-boundary ((s0 (s1 6))))) - (7 . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) - (3 . #f) - (145 . #f) - (3 . #f) - (126 . #s(stx-boundary (s0 5))) - (0 . #s(stx-boundary (s0 5))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 5))) - (21 . #s(stx-boundary (s0 5))) - (22 #s(stx-boundary (s0 6)) . #s(stx-boundary (s1 5))) - (9 . #s(stx-boundary (s0 6))) - (2 . #s(stx-boundary (s0 6))) - (0 . #s(stx-boundary (s0 6))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 6))) - (21 . #s(stx-boundary (s0 6))) - (22 #s(stx-boundary 8) . #s(stx-boundary (s0 6))) - (9 . #s(stx-boundary 8)) - (2 . #s(stx-boundary 8)) - (127 . #s(stx-boundary 8)) - (14 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary ((s1 (s2 6))))) + (enter-block . #s(stx-boundary ((s0 (s1 6))))) + (block-renames + #s(stx-boundary ((s0 (s1 6)))) + . + #s(stx-boundary ((s0 (s1 6))))) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 6)))) + (exit-check . #s(stx-boundary (s0 (s1 6)))) + (block->list . #s(stx-boundary ((s0 (s1 6))))) + (enter-list . #s(stx-boundary ((s0 (s1 6))))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 6)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 6)))) + (prim-quote-syntax . #f) + (exit-prim . #s(stx-boundary (s0 (s1 6)))) + (return . #s(stx-boundary (s0 (s1 6)))) + (exit-list . #s(stx-boundary ((s0 (s1 6))))) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) + (next . #f) + (exit-bind . #f) + (next . #f) + (enter-check . #s(stx-boundary (s0 5))) + (visit . #s(stx-boundary (s0 5))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 5))) + (macro-pre-x . #s(stx-boundary (s0 5))) + (macro-post-x #s(stx-boundary (s0 6)) . #s(stx-boundary (s1 5))) + (exit-macro . #s(stx-boundary (s0 6))) + (return . #s(stx-boundary (s0 6))) + (visit . #s(stx-boundary (s0 6))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 6))) + (macro-pre-x . #s(stx-boundary (s0 6))) + (macro-post-x #s(stx-boundary 8) . #s(stx-boundary (s0 6))) + (exit-macro . #s(stx-boundary 8)) + (return . #s(stx-boundary 8)) + (exit-check . #s(stx-boundary 8)) + (block->letrec #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8))) ((s5) (s2 (s3) (s4 (s1 6))))) () 8))) - (0 + (visit . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8))) ((s5) (s2 (s3) (s4 (s1 6))))) () 8))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8))) ((s5) (s2 (s3) (s4 (s1 6))))) () 8))) - (114 . #f) - (19 + (prim-letrec-syntaxes+values . #f) + (letrec-syntaxes-renames (#s(stx-boundary ((s0) (s1 (s2) (s3 8)))) #s(stx-boundary ((s4) (s1 (s2) (s3 (s0 6)))))) () . #s(stx-boundary (8))) - (157 . #f) - (13 . #f) - (4 . #s(stx-boundary (8))) - (3 . #f) - (0 . #s(stx-boundary 8)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 8))) - (6 . #s(stx-boundary (s0 . 8))) - (115 . #f) - (7 . #s(stx-boundary (s0 8))) - (2 . #s(stx-boundary (s0 8))) - (5 . #s(stx-boundary ((s0 8)))) - (142 . #s(stx-boundary (s0 () (s1 8)))) - (7 . #s(stx-boundary (s0 () (s1 8)))) - (2 . #s(stx-boundary (s0 () (s1 8)))) - (7 . #s(stx-boundary (s0 () (s0 () (s1 8))))) - (2 . #s(stx-boundary (s0 () (s0 () (s1 8))))) - (7 . #s(stx-boundary (s0 (s1 () (s1 () (s2 8)))))) - (2 . #s(stx-boundary (s0 (s1 () (s1 () (s2 8)))))))) + (prepare-env . #f) + (next-group . #f) + (enter-list . #s(stx-boundary (8))) + (next . #f) + (visit . #s(stx-boundary 8)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 8))) + (enter-prim . #s(stx-boundary (s0 . 8))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 8))) + (return . #s(stx-boundary (s0 8))) + (exit-list . #s(stx-boundary ((s0 8)))) + (tag . #s(stx-boundary (s0 () (s1 8)))) + (exit-prim . #s(stx-boundary (s0 () (s1 8)))) + (return . #s(stx-boundary (s0 () (s1 8)))) + (exit-prim . #s(stx-boundary (s0 () (s0 () (s1 8))))) + (return . #s(stx-boundary (s0 () (s0 () (s1 8))))) + (exit-prim . #s(stx-boundary (s0 (s1 () (s1 () (s2 8)))))) + (return . #s(stx-boundary (s0 (s1 () (s1 () (s2 8)))))))) ((let () (define-syntax (ok stx) (quote-syntax 8)) (define-syntax (second stx) (quote-syntax (ok 6))) @@ -9357,8 +9982,8 @@ (define (second-ident y) y) (ident (second-ident (second)))) . - ((141 . #f) - (0 + ((start-top . #f) + (visit . #s(stx-boundary (s0 @@ -9369,8 +9994,7 @@ (s7 (s8 s9) s9) (s7 (s10 s11) s11) (s8 (s10 (s6))))))) - (1 . #s(stx-boundary s0)) - (6 + (enter-check . #s(stx-boundary (s0 @@ -9381,8 +10005,42 @@ (s7 (s8 s9) s9) (s7 (s10 s11) s11) (s8 (s10 (s6))))))) - (138 . #f) - (0 + (exit-check + . + #s(stx-boundary + (s0 + (s1 + () + (s2 (s3 s4) (s5 8)) + (s2 (s6 s4) (s5 (s3 6))) + (s7 (s8 s9) s9) + (s7 (s10 s11) s11) + (s8 (s10 (s6))))))) + (visit + . + #s(stx-boundary + (s0 + (s1 + () + (s2 (s3 s4) (s5 8)) + (s2 (s6 s4) (s5 (s3 6))) + (s7 (s8 s9) s9) + (s7 (s10 s11) s11) + (s8 (s10 (s6))))))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary + (s0 + (s1 + () + (s2 (s3 s4) (s5 8)) + (s2 (s6 s4) (s5 (s3 6))) + (s7 (s8 s9) s9) + (s7 (s10 s11) s11) + (s8 (s10 (s6))))))) + (prim-#%expression . #f) + (visit . #s(stx-boundary (s0 @@ -9392,8 +10050,8 @@ (s6 (s7 s8) s8) (s6 (s9 s10) s10) (s7 (s9 (s5)))))) - (1 . #s(stx-boundary s0)) - (8 + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 @@ -9403,7 +10061,7 @@ (s6 (s7 s8) s8) (s6 (s9 s10) s10) (s7 (s9 (s5)))))) - (21 + (macro-pre-x . #s(stx-boundary (s0 @@ -9413,7 +10071,7 @@ (s6 (s7 s8) s8) (s6 (s9 s10) s10) (s7 (s9 (s5)))))) - (22 + (macro-post-x #s(stx-boundary (s0 () @@ -9431,7 +10089,7 @@ (s6 (s7 s8) s8) (s6 (s9 s10) s10) (s7 (s9 (s5)))))) - (9 + (exit-macro . #s(stx-boundary (s0 @@ -9441,7 +10099,7 @@ (s6 (s7 s8) s8) (s6 (s9 s10) s10) (s7 (s9 (s5)))))) - (0 + (visit . #s(stx-boundary (s0 @@ -9451,8 +10109,8 @@ (s6 (s7 s8) s8) (s6 (s9 s10) s10) (s7 (s9 (s5)))))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 @@ -9462,8 +10120,8 @@ (s6 (s7 s8) s8) (s6 (s9 s10) s10) (s7 (s9 (s5)))))) - (112 . #f) - (16 + (prim-let-values . #f) + (let-renames () . #s(stx-boundary @@ -9472,8 +10130,8 @@ (s5 (s6 s7) s7) (s5 (s8 s9) s9) (s6 (s8 (s4)))))) - (13 . #f) - (10 + (next-group . #f) + (enter-block . #s(stx-boundary ((s0 (s1 s2) (s3 8)) @@ -9481,7 +10139,7 @@ (s5 (s6 s7) s7) (s5 (s8 s9) s9) (s6 (s8 (s4)))))) - (24 + (block-renames #s(stx-boundary ((s0 (s1 s2) (s3 8)) (s0 (s4 s2) (s3 (s1 6))) @@ -9495,327 +10153,333 @@ (s5 (s6 s7) s7) (s5 (s8 s9) s9) (s6 (s8 (s4)))))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (21 . #s(stx-boundary (s0 (s1 s2) (s3 8)))) - (22 + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8)))) . #s(stx-boundary (s5 (s1 s3) (s4 8)))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (103 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) (s3 8))))) - (157 . #f) - (144 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 8)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1) (s2 8)))) - (21 . #s(stx-boundary (s0 (s1) (s2 8)))) - (22 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (prim-define-syntaxes . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) (s3 8))))) + (prepare-env . #f) + (enter-bind . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 8)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1) (s2 8)))) + (macro-pre-x . #s(stx-boundary (s0 (s1) (s2 8)))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 8))) . #s(stx-boundary (s3 (s1) (s2 8)))) - (9 . #s(stx-boundary (s0 (s1) (s2 8)))) - (0 . #s(stx-boundary (s0 (s1) (s2 8)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 8)))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary ((s1 8)))) - (10 . #s(stx-boundary ((s0 8)))) - (24 #s(stx-boundary ((s0 8))) . #s(stx-boundary ((s0 8)))) - (3 . #f) - (126 . #s(stx-boundary (s0 8))) - (127 . #s(stx-boundary (s0 8))) - (12 . #s(stx-boundary ((s0 8)))) - (4 . #s(stx-boundary ((s0 8)))) - (3 . #f) - (0 . #s(stx-boundary (s0 8))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 8))) - (118 . #f) - (7 . #s(stx-boundary (s0 8))) - (2 . #s(stx-boundary (s0 8))) - (5 . #s(stx-boundary ((s0 8)))) - (7 . #s(stx-boundary (s0 (s1) (s2 8)))) - (2 . #s(stx-boundary (s0 (s1) (s2 8)))) - (3 . #f) - (145 . #f) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 6))))) - (0 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 6))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 6))))) - (21 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 6))))) - (22 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 8)))) + (visit . #s(stx-boundary (s0 (s1) (s2 8)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 8)))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary ((s1 8)))) + (enter-block . #s(stx-boundary ((s0 8)))) + (block-renames #s(stx-boundary ((s0 8))) . #s(stx-boundary ((s0 8)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 8))) + (exit-check . #s(stx-boundary (s0 8))) + (block->list . #s(stx-boundary ((s0 8)))) + (enter-list . #s(stx-boundary ((s0 8)))) + (next . #f) + (visit . #s(stx-boundary (s0 8))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 8))) + (prim-quote-syntax . #f) + (exit-prim . #s(stx-boundary (s0 8))) + (return . #s(stx-boundary (s0 8))) + (exit-list . #s(stx-boundary ((s0 8)))) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 8)))) + (return . #s(stx-boundary (s0 (s1) (s2 8)))) + (next . #f) + (exit-bind . #f) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) (s3 (s4 6))))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 (s4 6))))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) (s3 (s4 6))))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) (s3 (s4 6))))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6))))) . #s(stx-boundary (s6 (s1 s3) (s4 (s5 6))))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) - (103 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) (s3 (s4 6)))))) - (157 . #f) - (144 . #f) - (0 . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) - (21 . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) - (22 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) + (prim-define-syntaxes . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) (s3 (s4 6)))))) + (prepare-env . #f) + (enter-bind . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) + (macro-pre-x . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3 6)))) . #s(stx-boundary (s4 (s1) (s2 (s3 6))))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) - (0 . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary ((s1 (s2 6))))) - (10 . #s(stx-boundary ((s0 (s1 6))))) - (24 #s(stx-boundary ((s0 (s1 6)))) . #s(stx-boundary ((s0 (s1 6))))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 6)))) - (127 . #s(stx-boundary (s0 (s1 6)))) - (12 . #s(stx-boundary ((s0 (s1 6))))) - (4 . #s(stx-boundary ((s0 (s1 6))))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1 6)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1 6)))) - (118 . #f) - (7 . #s(stx-boundary (s0 (s1 6)))) - (2 . #s(stx-boundary (s0 (s1 6)))) - (5 . #s(stx-boundary ((s0 (s1 6))))) - (7 . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) - (3 . #f) - (145 . #f) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) s2))) - (0 . #s(stx-boundary (s0 (s1 s2) s2))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) s2))) - (21 . #s(stx-boundary (s0 (s1 s2) s2))) - (22 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary ((s1 (s2 6))))) + (enter-block . #s(stx-boundary ((s0 (s1 6))))) + (block-renames + #s(stx-boundary ((s0 (s1 6)))) + . + #s(stx-boundary ((s0 (s1 6))))) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 6)))) + (exit-check . #s(stx-boundary (s0 (s1 6)))) + (block->list . #s(stx-boundary ((s0 (s1 6))))) + (enter-list . #s(stx-boundary ((s0 (s1 6))))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 6)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1 6)))) + (prim-quote-syntax . #f) + (exit-prim . #s(stx-boundary (s0 (s1 6)))) + (return . #s(stx-boundary (s0 (s1 6)))) + (exit-list . #s(stx-boundary ((s0 (s1 6))))) + (exit-prim . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) + (next . #f) + (exit-bind . #f) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) s2))) + (visit . #s(stx-boundary (s0 (s1 s2) s2))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) s2))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) s2))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 (s3) s3))) . #s(stx-boundary (s0 (s1 s3) s3))) - (9 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (2 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (0 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (22 + (exit-macro . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (return . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (visit . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) s3))) . #s(stx-boundary (s4 s1 (s2 (s3) s3)))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (104 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) s2)))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 s2) s2))) - (0 . #s(stx-boundary (s0 (s1 s2) s2))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 (s1 s2) s2))) - (21 . #s(stx-boundary (s0 (s1 s2) s2))) - (22 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (prim-define-values . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) s2)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 s2) s2))) + (visit . #s(stx-boundary (s0 (s1 s2) s2))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 (s1 s2) s2))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) s2))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 (s3) s3))) . #s(stx-boundary (s0 (s1 s3) s3))) - (9 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (2 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (0 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) - (22 + (exit-macro . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (return . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (visit . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3) s3)))) + (macro-post-x #s(stx-boundary (s0 (s1) (s2 (s3) s3))) . #s(stx-boundary (s4 s1 (s2 (s3) s3)))) - (9 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (2 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (127 . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (104 . #f) - (148 . #s(stx-boundary ((s0) (s1 (s2) s2)))) - (3 . #f) - (126 . #s(stx-boundary (s0 (s1 (s2))))) - (127 . #s(stx-boundary (s0 (s1 (s2))))) - (14 + (exit-macro . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (return . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (exit-check . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (prim-define-values . #f) + (rename-one . #s(stx-boundary ((s0) (s1 (s2) s2)))) + (next . #f) + (enter-check . #s(stx-boundary (s0 (s1 (s2))))) + (exit-check . #s(stx-boundary (s0 (s1 (s2))))) + (block->letrec #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8))) ((s5) (s2 (s3) (s4 (s1 6))))) (((s6) (s7 (s8) s8)) ((s9) (s7 (s10) s10))) (s6 (s9 (s5)))))) - (0 + (visit . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8))) ((s5) (s2 (s3) (s4 (s1 6))))) (((s6) (s7 (s8) s8)) ((s9) (s7 (s10) s10))) (s6 (s9 (s5)))))) - (1 . #s(stx-boundary s0)) - (6 + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8))) ((s5) (s2 (s3) (s4 (s1 6))))) (((s6) (s7 (s8) s8)) ((s9) (s7 (s10) s10))) (s6 (s9 (s5)))))) - (114 . #f) - (19 + (prim-letrec-syntaxes+values . #f) + (letrec-syntaxes-renames (#s(stx-boundary ((s0) (s1 (s2) (s3 8)))) #s(stx-boundary ((s4) (s1 (s2) (s3 (s0 6)))))) (#s(stx-boundary ((s5) (s6 (s7) s7))) #s(stx-boundary ((s8) (s6 (s9) s9)))) . #s(stx-boundary ((s5 (s8 (s4)))))) - (157 . #f) - (13 . #f) - (113 . #f) - (16 + (prepare-env . #f) + (next-group . #f) + (prim-letrec-values . #f) + (let-renames (#s(stx-boundary ((s0) (s1 (s2) s2))) #s(stx-boundary ((s3) (s1 (s4) s4)))) . #s(stx-boundary ((s0 (s3 (s5)))))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1) s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) s1))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary (s0))) - (10 . #s(stx-boundary (s0))) - (24 #s(stx-boundary (s0)) . #s(stx-boundary (s0))) - (3 . #f) - (126 . #s(stx-boundary s0)) - (127 . #s(stx-boundary s0)) - (12 . #s(stx-boundary (s0))) - (4 . #s(stx-boundary (s0))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0))) - (7 . #s(stx-boundary (s0 (s1) s1))) - (2 . #s(stx-boundary (s0 (s1) s1))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1) s1))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 (s1) s1))) - (110 . #f) - (17 #s(stx-boundary (s0)) . #s(stx-boundary (s0))) - (10 . #s(stx-boundary (s0))) - (24 #s(stx-boundary (s0)) . #s(stx-boundary (s0))) - (3 . #f) - (126 . #s(stx-boundary s0)) - (127 . #s(stx-boundary s0)) - (12 . #s(stx-boundary (s0))) - (4 . #s(stx-boundary (s0))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (5 . #s(stx-boundary (s0))) - (7 . #s(stx-boundary (s0 (s1) s1))) - (2 . #s(stx-boundary (s0 (s1) s1))) - (13 . #f) - (4 . #s(stx-boundary ((s0 (s1 (s2)))))) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1 (s2))))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 (s2 (s3))))) - (8 . #s(stx-boundary (s0 s1 (s2 (s3))))) - (21 . #s(stx-boundary (s0 s1 (s2 (s3))))) - (22 + (next . #f) + (visit . #s(stx-boundary (s0 (s1) s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) s1))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary (s0))) + (enter-block . #s(stx-boundary (s0))) + (block-renames #s(stx-boundary (s0)) . #s(stx-boundary (s0))) + (next . #f) + (enter-check . #s(stx-boundary s0)) + (exit-check . #s(stx-boundary s0)) + (block->list . #s(stx-boundary (s0))) + (enter-list . #s(stx-boundary (s0))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0))) + (exit-prim . #s(stx-boundary (s0 (s1) s1))) + (return . #s(stx-boundary (s0 (s1) s1))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1) s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) s1))) + (prim-lambda . #f) + (lambda-renames #s(stx-boundary (s0)) . #s(stx-boundary (s0))) + (enter-block . #s(stx-boundary (s0))) + (block-renames #s(stx-boundary (s0)) . #s(stx-boundary (s0))) + (next . #f) + (enter-check . #s(stx-boundary s0)) + (exit-check . #s(stx-boundary s0)) + (block->list . #s(stx-boundary (s0))) + (enter-list . #s(stx-boundary (s0))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (exit-list . #s(stx-boundary (s0))) + (exit-prim . #s(stx-boundary (s0 (s1) s1))) + (return . #s(stx-boundary (s0 (s1) s1))) + (next-group . #f) + (enter-list . #s(stx-boundary ((s0 (s1 (s2)))))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 (s2))))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 (s2 (s3))))) + (enter-macro . #s(stx-boundary (s0 s1 (s2 (s3))))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 (s3))))) + (macro-post-x #s(stx-boundary (s0 s1 (s2 (s3)))) . #s(stx-boundary (s0 s1 (s2 (s3))))) - (9 . #s(stx-boundary (s0 s1 (s2 (s3))))) - (0 . #s(stx-boundary (s0 s1 (s2 (s3))))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2 (s3))))) - (109 . #f) - (4 . #s(stx-boundary (s0 (s1 (s2))))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary (s0 (s1)))) - (1 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 s1 (s2)))) - (8 . #s(stx-boundary (s0 s1 (s2)))) - (21 . #s(stx-boundary (s0 s1 (s2)))) - (22 #s(stx-boundary (s0 s1 (s2))) . #s(stx-boundary (s0 s1 (s2)))) - (9 . #s(stx-boundary (s0 s1 (s2)))) - (0 . #s(stx-boundary (s0 s1 (s2)))) - (1 . #s(stx-boundary s0)) - (6 . #s(stx-boundary (s0 s1 (s2)))) - (109 . #f) - (4 . #s(stx-boundary (s0 (s1)))) - (3 . #f) - (0 . #s(stx-boundary s0)) - (1 . #s(stx-boundary s0)) - (125 #s(stx-boundary s0) . #s(stx-boundary s0)) - (2 . #s(stx-boundary s0)) - (3 . #f) - (0 . #s(stx-boundary (s0))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0))) - (21 . #s(stx-boundary (s0))) - (22 #s(stx-boundary (s0 6)) . #s(stx-boundary (s1))) - (9 . #s(stx-boundary (s0 6))) - (0 . #s(stx-boundary (s0 6))) - (1 . #s(stx-boundary s0)) - (8 . #s(stx-boundary (s0 6))) - (21 . #s(stx-boundary (s0 6))) - (22 #s(stx-boundary 8) . #s(stx-boundary (s0 6))) - (9 . #s(stx-boundary 8)) - (0 . #s(stx-boundary 8)) - (1 . #s(stx-boundary s0)) - (142 . #s(stx-boundary (s0 . 8))) - (6 . #s(stx-boundary (s0 . 8))) - (115 . #f) - (7 . #s(stx-boundary (s0 8))) - (2 . #s(stx-boundary (s0 8))) - (5 . #s(stx-boundary (s0 (s1 8)))) - (7 . #s(stx-boundary (s0 s1 (s2 8)))) - (2 . #s(stx-boundary (s0 s1 (s2 8)))) - (5 . #s(stx-boundary (s0 (s1 s2 (s3 8))))) - (7 . #s(stx-boundary (s0 s1 (s0 s2 (s3 8))))) - (2 . #s(stx-boundary (s0 s1 (s0 s2 (s3 8))))) - (5 . #s(stx-boundary ((s0 s1 (s0 s2 (s3 8)))))) - (142 + (exit-macro . #s(stx-boundary (s0 s1 (s2 (s3))))) + (visit . #s(stx-boundary (s0 s1 (s2 (s3))))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2 (s3))))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 (s1 (s2))))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary (s0 (s1)))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 s1 (s2)))) + (enter-macro . #s(stx-boundary (s0 s1 (s2)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2)))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2))) + . + #s(stx-boundary (s0 s1 (s2)))) + (exit-macro . #s(stx-boundary (s0 s1 (s2)))) + (visit . #s(stx-boundary (s0 s1 (s2)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 (s2)))) + (prim-#%app . #f) + (enter-list . #s(stx-boundary (s0 (s1)))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (variable #s(stx-boundary s0) . #s(stx-boundary s0)) + (return . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary (s0))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0))) + (macro-pre-x . #s(stx-boundary (s0))) + (macro-post-x #s(stx-boundary (s0 6)) . #s(stx-boundary (s1))) + (exit-macro . #s(stx-boundary (s0 6))) + (visit . #s(stx-boundary (s0 6))) + (resolve . #s(stx-boundary s0)) + (enter-macro . #s(stx-boundary (s0 6))) + (macro-pre-x . #s(stx-boundary (s0 6))) + (macro-post-x #s(stx-boundary 8) . #s(stx-boundary (s0 6))) + (exit-macro . #s(stx-boundary 8)) + (visit . #s(stx-boundary 8)) + (resolve . #s(stx-boundary s0)) + (tag . #s(stx-boundary (s0 . 8))) + (enter-prim . #s(stx-boundary (s0 . 8))) + (prim-#%datum . #f) + (exit-prim . #s(stx-boundary (s0 8))) + (return . #s(stx-boundary (s0 8))) + (exit-list . #s(stx-boundary (s0 (s1 8)))) + (exit-prim . #s(stx-boundary (s0 s1 (s2 8)))) + (return . #s(stx-boundary (s0 s1 (s2 8)))) + (exit-list . #s(stx-boundary (s0 (s1 s2 (s3 8))))) + (exit-prim . #s(stx-boundary (s0 s1 (s0 s2 (s3 8))))) + (return . #s(stx-boundary (s0 s1 (s0 s2 (s3 8))))) + (exit-list . #s(stx-boundary ((s0 s1 (s0 s2 (s3 8)))))) + (tag . #s(stx-boundary (s0 (((s1) (s2 (s3) s3))) (s0 (((s4) (s2 (s5) s5))) (s6 s1 (s6 s4 (s7 8))))))) - (7 + (exit-prim . #s(stx-boundary (s0 (((s1) (s2 (s3) s3))) (s0 (((s4) (s2 (s5) s5))) (s6 s1 (s6 s4 (s7 8))))))) - (2 + (return . #s(stx-boundary (s0 (((s1) (s2 (s3) s3))) (s0 (((s4) (s2 (s5) s5))) (s6 s1 (s6 s4 (s7 8))))))) - (7 + (exit-prim . #s(stx-boundary (s0 @@ -9823,7 +10487,7 @@ (s0 (((s1) (s2 (s3) s3))) (s0 (((s4) (s2 (s5) s5))) (s6 s1 (s6 s4 (s7 8)))))))) - (2 + (return . #s(stx-boundary (s0 @@ -9831,7 +10495,7 @@ (s0 (((s1) (s2 (s3) s3))) (s0 (((s4) (s2 (s5) s5))) (s6 s1 (s6 s4 (s7 8)))))))) - (7 + (exit-prim . #s(stx-boundary (s0 @@ -9840,7 +10504,7 @@ (s1 (((s2) (s3 (s4) s4))) (s1 (((s5) (s3 (s6) s6))) (s7 s2 (s7 s5 (s8 8))))))))) - (2 + (return . #s(stx-boundary (s0 diff --git a/racket/src/expander/eval/main.rkt b/racket/src/expander/eval/main.rkt index 41fe305e64..79ef7fbb02 100644 --- a/racket/src/expander/eval/main.rkt +++ b/racket/src/expander/eval/main.rkt @@ -57,7 +57,7 @@ (per-top-level s ns #:single (lambda (s ns tail?) (eval-compiled (compile s ns) ns tail?)) - #:observable? #f)])) + #:observer #f)])) (define (eval-compiled c ns [as-tail? #t]) (cond @@ -88,7 +88,7 @@ serializable? to-source?))) #:combine append - #:observable? #f)])) + #:observer #f)])) (if (and (= 1 (length cs)) (not (compiled-multiple-top? (car cs)))) (car cs) @@ -132,19 +132,21 @@ ;; [Don't use keyword arguments here, because the function is ;; exported for use by an embedding runtime system.] (define (expand s [ns (current-namespace)] [observable? #f] [to-parsed? #f] [serializable? #f]) - (when observable? (log-expand-start-top)) - (per-top-level s ns - #:single (lambda (s ns as-tail?) (expand-single s ns observable? to-parsed? serializable?)) - #:combine cons - #:wrap re-pair - #:observable? observable?)) + (define observer (and observable? (current-expand-observe))) + (when observer (...log-expand observer ['start-top])) + (parameterize ((current-expand-observe #f)) + (per-top-level s ns + #:single (lambda (s ns as-tail?) (expand-single s ns observer to-parsed? serializable?)) + #:combine cons + #:wrap re-pair + #:observer observer))) -(define (expand-single s ns observable? to-parsed? serializable?) +(define (expand-single s ns observer to-parsed? serializable?) (define rebuild-s (keep-properties-only s)) (define ctx (make-expand-context ns #:to-parsed? to-parsed? #:for-serializable? serializable? - #:observable? observable?)) + #:observer observer)) (define-values (require-lifts lifts exp-s) (expand-capturing-lifts s ctx)) (cond [(and (null? require-lifts) (null? lifts)) exp-s] @@ -153,14 +155,14 @@ lifts exp-s rebuild-s #:adjust-form (lambda (form) - (expand-single form ns observable? to-parsed? serializable?)))] + (expand-single form ns observer to-parsed? serializable?)))] [else (log-top-lift-begin-before ctx require-lifts lifts exp-s ns) (define new-s (wrap-lifts-as-begin (append require-lifts lifts) #:adjust-form (lambda (form) (log-expand ctx 'next) - (expand-single form ns observable? to-parsed? serializable?)) + (expand-single form ns observer to-parsed? serializable?)) #:adjust-body (lambda (form) (cond [to-parsed? form] @@ -169,7 +171,7 @@ ;; This re-expansion should be unnecessary, but we do it ;; for a kind of consistentcy with `expand/capture-lifts` ;; and for expansion observers - (expand-single form ns observable? to-parsed? serializable?)])) + (expand-single form ns observer to-parsed? serializable?)])) exp-s (namespace-phase ns))) (log-top-begin-after ctx new-s) @@ -181,11 +183,11 @@ #:combine cons #:wrap re-pair #:just-once? #t - #:observable? #t)) + #:observer #f)) (define (expand-single-once s ns) (define-values (require-lifts lifts exp-s) - (expand-capturing-lifts s (struct*-copy expand-context (make-expand-context ns #:observable? #t) + (expand-capturing-lifts s (struct*-copy expand-context (make-expand-context ns) [just-once? #t]))) (cond [(and (null? require-lifts) (null? lifts)) exp-s] @@ -197,11 +199,13 @@ (define (expand-to-top-form s [ns (current-namespace)]) ;; Use `per-top-level` for immediate expansion and lift handling, ;; but `#:single #f` makes it return immediately - (log-expand-start-top) - (per-top-level s ns - #:single #f - #:quick-immediate? #f - #:observable? #t)) + (define observer (current-expand-observe)) + (when observer (...log-expand observer ['start-top])) + (parameterize ((current-expand-observe #f)) + (per-top-level s ns + #:single #f + #:quick-immediate? #f + #:observer observer))) ;; ---------------------------------------- @@ -215,9 +219,9 @@ #:just-once? [just-once? #f] ; single expansion step #:quick-immediate? [quick-immediate? #t] #:serializable? [serializable? #f] ; for module+submodule expansion - #:observable? observable?) + #:observer observer) (define s (maybe-intro given-s ns)) - (define ctx (make-expand-context ns #:observable? observable?)) + (define ctx (make-expand-context ns #:observer observer)) (define phase (namespace-phase ns)) (let loop ([s s] [phase phase] [ns ns] [as-tail? #t]) (define tl-ctx (struct*-copy expand-context ctx diff --git a/racket/src/expander/expand/context.rkt b/racket/src/expander/expand/context.rkt index d6a93a90bd..5d3d52c5c5 100644 --- a/racket/src/expander/expand/context.rkt +++ b/racket/src/expander/expand/context.rkt @@ -70,7 +70,7 @@ (define (make-expand-context ns #:to-parsed? [to-parsed? #f] #:for-serializable? [for-serializable? #f] - #:observable? [observable? #f]) + #:observer [observer #f]) (define root-ctx (namespace-get-root-expand-ctx ns)) (expand-context (root-expand-context-module-scopes root-ctx) (root-expand-context-post-expansion-scope root-ctx) @@ -107,7 +107,7 @@ #f ; to-module-lifts #f ; requires+provides #f ; name - (and observable? (current-expand-observe)) + observer for-serializable? #f)) @@ -136,8 +136,10 @@ ;; ---------------------------------------- -;; For macro debugging; see "log.rkt" - +;; For macro debugging. This parameter is only used by the expander +;; entry points in "../eval/main.rkt" to set the expand-context +;; observer. Other expander code uses "log.rkt" to send expansion +;; events to the observer. (define current-expand-observe (make-parameter #f (lambda (v) (unless (or (not v) diff --git a/racket/src/expander/expand/log.rkt b/racket/src/expander/expand/log.rkt index 5dd08f1f79..8201f47c9e 100644 --- a/racket/src/expander/expand/log.rkt +++ b/racket/src/expander/expand/log.rkt @@ -4,8 +4,7 @@ (provide log-expand log-expand* log-expand... - ...log-expand - log-expand-start-top) + ...log-expand) (define-syntax log-expand... (syntax-rules (lambda) @@ -45,11 +44,6 @@ [(null? args) #f] [else (apply list* args)]))) -(define (log-expand-start-top) - (define obs (current-expand-observe)) - (when obs - (call-expand-observe obs 'start-top))) - (define key->arity ;; event-symbol => (U Nat 'any) #hash(;; basic empty tokens diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index bdaf94e400..202c5e22a9 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -14807,13 +14807,13 @@ static const char *startup_source = "(lambda(v_123)(begin(expand-context/inner-should-not-encounter-macros?(root-expand-context/outer-inner v_123)))))" "(define-values" "(make-expand-context10.1)" -"(lambda(for-serializable?4_0 for-serializable?7_0 observable?5_0 observable?8_0 to-parsed?3_0 to-parsed?6_0 ns9_0)" +"(lambda(for-serializable?4_0 for-serializable?7_0 observer5_0 observer8_0 to-parsed?3_0 to-parsed?6_0 ns9_0)" "(begin" " 'make-expand-context10" "(let-values(((ns_43) ns9_0))" "(let-values(((to-parsed?_1)(if to-parsed?6_0 to-parsed?3_0 #f)))" "(let-values(((for-serializable?_1)(if for-serializable?7_0 for-serializable?4_0 #f)))" -"(let-values(((observable?_0)(if observable?8_0 observable?5_0 #f)))" +"(let-values(((observer_1)(if observer8_0 observer5_0 #f)))" "(let-values()" "(let-values(((root-ctx_1)(namespace-get-root-expand-ctx ns_43)))" "(expand-context/make" @@ -14852,7 +14852,7 @@ static const char *startup_source = " #f" " #f" " #f" -"(if observable?_0(current-expand-observe) #f)" +" observer_1" " for-serializable?_1" " #f))))))))))" "(define-values" @@ -37482,99 +37482,99 @@ static const char *startup_source = "(call-expand-observe)" "(lambda(obs_0 key_80 . args_5)" "(begin" -"(obs_0" -"(hash-ref key->number key_80)" -"(if(null? args_5)(let-values() #f)(let-values()(apply list* args_5)))))))" -"(define-values" -"(log-expand-start)" -"(lambda()" "(begin" -"(let-values(((obs_1)(current-expand-observe)))" -"(if obs_1(let-values()(call-expand-observe obs_1 'start-expand))(void))))))" +"(let-values(((c1_27)(hash-ref key->arity key_80 #f)))" +"(if c1_27" +"((lambda(arity_2)" +"(if(let-values(((or-part_34)(eq? arity_2 'any)))" +"(if or-part_34 or-part_34(eqv?(length args_5) arity_2)))" +"(void)" +" (let-values () (error 'call-expand-observe \"wrong arity for ~s: ~e\" key_80 args_5))))" +" c1_27)" +" (let-values () (error 'call-expand-observe \"bad key: ~s\" key_80))))" +"(obs_0 key_80(if(null? args_5)(let-values() #f)(let-values()(apply list* args_5))))))))" "(define-values" -"(key->number)" -" '#hash((block->letrec . 14)" -"(block->list . 12)" -"(block-renames . 24)" -"(case-lambda-renames . 18)" -"(enter-bind . 144)" -"(enter-block . 10)" -"(enter-check . 126)" -"(enter-list . 4)" -"(enter-local . 130)" -"(enter-local-expr . 139)" -"(enter-macro . 8)" -"(enter-prim . 6)" -"(exit-bind . 145)" -"(exit-check . 127)" -"(exit-list . 5)" -"(exit-local . 131)" -"(exit-local-bind . 160)" -"(exit-local-expr . 140)" -"(exit-macro . 9)" -"(exit-prim . 7)" -"(lambda-renames . 17)" -"(let-renames . 16)" -"(letlift-loop . 136)" -"(letrec-syntaxes-renames . 19)" -"(lift-loop . 128)" -"(lift-provide . 151)" -"(lift-require . 150)" -"(lift-statement . 134)" -"(local-bind . 143)" -"(local-lift . 129)" -"(local-post . 133)" -"(local-pre . 132)" -"(local-value . 153)" -"(local-value-result . 154)" -"(macro-post-x . 22)" -"(macro-pre-x . 21)" -"(module-body . 23)" -"(module-lift-end-loop . 135)" -"(module-lift-loop . 137)" -"(next . 3)" -"(next-group . 13)" -"(opaque-expr . 146)" -"(phase-up . 20)" -"(prepare-env . 157)" -"(prim-#%app . 109)" -"(prim-#%datum . 115)" -"(prim-#%expression . 138)" -"(prim-#%stratified . 155)" -"(prim-#%top . 116)" -"(prim-#%variable-reference . 149)" -"(prim-begin . 107)" -"(prim-begin-for-syntax . 156)" -"(prim-begin0 . 108)" -"(prim-case-lambda . 111)" -"(prim-define-syntaxes . 103)" -"(prim-define-values . 104)" -"(prim-if . 105)" -"(prim-lambda . 110)" -"(prim-let-values . 112)" -"(prim-letrec-syntaxes+values . 114)" -"(prim-letrec-values . 113)" -"(prim-module . 101)" -"(prim-module-begin . 102)" -"(prim-provide . 122)" -"(prim-quote . 117)" -"(prim-quote-syntax . 118)" -"(prim-require . 119)" -"(prim-set! . 123)" -"(prim-stop . 100)" -"(prim-submodule . 158)" -"(prim-submodule* . 159)" -"(prim-with-continuation-mark . 106)" -"(rename-list . 147)" -"(rename-one . 148)" +"(key->arity)" +" '#hash((block->letrec . 1)" +"(block->list . 1)" +"(block-renames . 2)" +"(enter-bind . 0)" +"(enter-block . 1)" +"(enter-check . 1)" +"(enter-list . 1)" +"(enter-local . 1)" +"(enter-macro . 1)" +"(enter-prim . 1)" +"(exit-bind . 0)" +"(exit-check . 1)" +"(exit-list . 1)" +"(exit-local . 1)" +"(exit-local-bind . 0)" +"(exit-macro . 1)" +"(exit-prim . 1)" +"(lambda-renames . 2)" +"(let-renames . any)" +"(letlift-loop . 1)" +"(letrec-syntaxes-renames . any)" +"(lift-expr . 2)" +"(lift-loop . 1)" +"(lift-provide . 1)" +"(lift-require . 3)" +"(lift-statement . 1)" +"(local-bind . 1)" +"(local-post . 1)" +"(local-pre . 1)" +"(local-value . 1)" +"(local-value-result . 1)" +"(macro-post-x . 2)" +"(macro-pre-x . 1)" +"(module-body . 1)" +"(module-lift-end-loop . 1)" +"(module-lift-loop . 1)" +"(next . 0)" +"(next-group . 0)" +"(opaque-expr . 1)" +"(phase-up . 0)" +"(prepare-env . 0)" +"(prim-#%app . 0)" +"(prim-#%datum . 0)" +"(prim-#%expression . 0)" +"(prim-#%stratified . 0)" +"(prim-#%top . 0)" +"(prim-#%variable-reference . 0)" +"(prim-begin . 0)" +"(prim-begin-for-syntax . 0)" +"(prim-begin0 . 0)" +"(prim-case-lambda . 0)" +"(prim-define-syntaxes . 0)" +"(prim-define-values . 0)" +"(prim-if . 0)" +"(prim-lambda . 0)" +"(prim-let-values . 0)" +"(prim-letrec-syntaxes+values . 0)" +"(prim-letrec-values . 0)" +"(prim-module . 0)" +"(prim-module-begin . 0)" +"(prim-provide . 0)" +"(prim-quote . 0)" +"(prim-quote-syntax . 0)" +"(prim-require . 0)" +"(prim-set! . 0)" +"(prim-stop . 0)" +"(prim-submodule . 0)" +"(prim-submodule* . 0)" +"(prim-with-continuation-mark . 0)" +"(rename-list . 1)" +"(rename-one . 1)" "(resolve . 1)" -"(return . 2)" -"(splice . 11)" -"(start-expand . 141)" -"(tag . 142)" -"(track-origin . 152)" -"(variable . 125)" -"(visit . 0)))" +"(return . 1)" +"(splice . 1)" +"(start . 0)" +"(start-top . 0)" +"(tag . 1)" +"(track-origin . 2)" +"(variable . 2)" +"(visit . 1)))" "(define-values" "(rebuild5.1)" "(lambda(track?1_0 track?2_0 orig-s3_0 new4_0)" @@ -37843,13 +37843,13 @@ static const char *startup_source = "(let-values(((skip-log?_0)(if skip-log?4_0 skip-log?2_0 #f)))" "(let-values()" "(begin" -"(let-values(((obs_2)(expand-context-observer ctx_14)))" -"(if obs_2" +"(let-values(((obs_1)(expand-context-observer ctx_14)))" +"(if obs_1" "(let-values()" "(if(not skip-log?_0)" "(let-values()" "(call-expand-observe" -" obs_2" +" obs_1" "(if(expand-context-only-immediate? ctx_14) 'enter-check 'visit)" " s_398))" "(void)))" @@ -37872,17 +37872,17 @@ static const char *startup_source = "(if(free-id-set-member?(expand-context-stops ctx_15)(expand-context-phase ctx_15) id_57)" "(let-values()" "(begin" -"(let-values(((obs_3)(expand-context-observer ctx_15)))" -"(if obs_3" +"(let-values(((obs_2)(expand-context-observer ctx_15)))" +"(if obs_2" "(let-values()" "(if(not(expand-context-only-immediate? ctx_15))" "(let-values()" "(begin" -"(call-expand-observe obs_3 'resolve id_57)" -"(call-expand-observe obs_3 'enter-prim s_43)" -"(call-expand-observe obs_3 'prim-stop)" -"(call-expand-observe obs_3 'exit-prim s_43)" -"(call-expand-observe obs_3 'return s_43)))" +"(call-expand-observe obs_2 'resolve id_57)" +"(call-expand-observe obs_2 'enter-prim s_43)" +"(call-expand-observe obs_2 'prim-stop)" +"(call-expand-observe obs_2 'exit-prim s_43)" +"(call-expand-observe obs_2 'return s_43)))" "(void)))" "(void)))" " s_43))" @@ -37893,11 +37893,11 @@ static const char *startup_source = "((temp80_1) #t))" "(resolve+shift30.1 temp79_0 #t #f #f #f #f temp80_1 #t #f #f id_57 temp78_2))))" "(begin" -"(let-values(((obs_4)(expand-context-observer ctx_15)))" -"(if obs_4" +"(let-values(((obs_3)(expand-context-observer ctx_15)))" +"(if obs_3" "(let-values()" "(if(not(expand-context-only-immediate? ctx_15))" -"(let-values()(call-expand-observe obs_4 'resolve id_57))" +"(let-values()(call-expand-observe obs_3 'resolve id_57))" "(void)))" "(void)))" "(if(eq? binding_19 'ambiguous)" @@ -37920,17 +37920,17 @@ static const char *startup_source = "(if(free-id-set-member?(expand-context-stops ctx_16)(expand-context-phase ctx_16) id_58)" "(let-values()" "(begin" -"(let-values(((obs_5)(expand-context-observer ctx_16)))" -"(if obs_5" +"(let-values(((obs_4)(expand-context-observer ctx_16)))" +"(if obs_4" "(let-values()" "(if(not(expand-context-only-immediate? ctx_16))" "(let-values()" "(begin" -"(call-expand-observe obs_5 'resolve id_58)" -"(call-expand-observe obs_5 'enter-prim s_399)" -"(call-expand-observe obs_5 'prim-stop)" -"(call-expand-observe obs_5 'exit-prim s_399)" -"(call-expand-observe obs_5 'return s_399)))" +"(call-expand-observe obs_4 'resolve id_58)" +"(call-expand-observe obs_4 'enter-prim s_399)" +"(call-expand-observe obs_4 'prim-stop)" +"(call-expand-observe obs_4 'exit-prim s_399)" +"(call-expand-observe obs_4 'return s_399)))" "(void)))" "(void)))" " s_399))" @@ -37941,11 +37941,11 @@ static const char *startup_source = "((temp89_1) #t))" "(resolve+shift30.1 temp88_1 #t #f #f #f #f temp89_1 #t #f #f id_58 temp87_1))))" "(begin" -"(let-values(((obs_6)(expand-context-observer ctx_16)))" -"(if obs_6" +"(let-values(((obs_5)(expand-context-observer ctx_16)))" +"(if obs_5" "(let-values()" "(if(not(expand-context-only-immediate? ctx_16))" -"(let-values()(call-expand-observe obs_6 'resolve id_58))" +"(let-values()(call-expand-observe obs_5 'resolve id_58))" "(void)))" "(void)))" "(if(eq? binding_20 'ambiguous)" @@ -37969,8 +37969,8 @@ static const char *startup_source = "(if(expand-context-only-immediate? ctx_17)" "(let-values()" "(begin" -"(let-values(((obs_7)(expand-context-observer ctx_17)))" -"(if obs_7(let-values()(let-values()(call-expand-observe obs_7 'exit-check s_17)))(void)))" +"(let-values(((obs_6)(expand-context-observer ctx_17)))" +"(if obs_6(let-values()(let-values()(call-expand-observe obs_6 'exit-check s_17)))(void)))" " s_17))" "(let-values()" "(let-values(((disarmed-s_1)(syntax-disarm$1 s_17)))" @@ -37978,26 +37978,26 @@ static const char *startup_source = "(if(free-id-set-member?(expand-context-stops ctx_17)(expand-context-phase ctx_17) id_15)" "(let-values()" "(begin" -"(let-values(((obs_8)(expand-context-observer ctx_17)))" -"(if obs_8" +"(let-values(((obs_7)(expand-context-observer ctx_17)))" +"(if obs_7" "(let-values()" "(if(not(expand-context-only-immediate? ctx_17))" "(let-values()" "(begin" -"(call-expand-observe obs_8 'resolve id_15)" -"(call-expand-observe obs_8 'enter-prim s_17)" -"(call-expand-observe obs_8 'prim-stop)" -"(call-expand-observe obs_8 'exit-prim s_17)" -"(call-expand-observe obs_8 'return s_17)))" +"(call-expand-observe obs_7 'resolve id_15)" +"(call-expand-observe obs_7 'enter-prim s_17)" +"(call-expand-observe obs_7 'prim-stop)" +"(call-expand-observe obs_7 'exit-prim s_17)" +"(call-expand-observe obs_7 'return s_17)))" "(void)))" "(void)))" " s_17))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_9)(expand-context-observer ctx_17)))" -"(if obs_9" -"(let-values()(let-values()(call-expand-observe obs_9 'resolve id_15)))" +"(let-values(((obs_8)(expand-context-observer ctx_17)))" +"(if obs_8" +"(let-values()(let-values()(call-expand-observe obs_8 'resolve id_15)))" "(void)))" "(values))))" "(let-values(((b_78)" @@ -38095,9 +38095,9 @@ static const char *startup_source = "(let-values()" "(let-values(((result-s_1)(syntax-track-origin$1 exp-s_0 s_163)))" "(begin" -"(let-values(((obs_10)(expand-context-observer ctx_18)))" -"(if obs_10" -"(let-values()(let-values()(call-expand-observe obs_10 'opaque-expr result-s_1)))" +"(let-values(((obs_9)(expand-context-observer ctx_18)))" +"(if obs_9" +"(let-values()(let-values()(call-expand-observe obs_9 'opaque-expr result-s_1)))" "(void)))" "(if(if(expand-context-to-parsed? ctx_18)(free-id-set-empty?(expand-context-stops ctx_18)) #f)" "(let-values(((result-s104_0) result-s_1)((ctx105_0) ctx_18))" @@ -38110,8 +38110,8 @@ static const char *startup_source = "(let-values(((new-s_0)" "(syntax-rearm$1(datum->syntax$1 disarmed-s_2(cons sym_62 disarmed-s_2) s_77 s_77) s_77)))" "(begin" -"(let-values(((obs_11)(expand-context-observer ctx_19)))" -"(if obs_11(let-values()(let-values()(call-expand-observe obs_11 'tag new-s_0)))(void)))" +"(let-values(((obs_10)(expand-context-observer ctx_19)))" +"(if obs_10(let-values()(let-values()(call-expand-observe obs_10 'tag new-s_0)))(void)))" " new-s_0)))))" "(define-values" "(dispatch)" @@ -38131,27 +38131,27 @@ static const char *startup_source = "(if(expand-context-only-immediate? ctx_21)" "(let-values()" "(begin" -"(let-values(((obs_12)(expand-context-observer ctx_21)))" -"(if obs_12(let-values()(let-values()(call-expand-observe obs_12 'exit-check s_29)))(void)))" +"(let-values(((obs_11)(expand-context-observer ctx_21)))" +"(if obs_11(let-values()(let-values()(call-expand-observe obs_11 'exit-check s_29)))(void)))" " s_29))" "(if(expand-context-observer ctx_21)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_13)(expand-context-observer ctx_21)))" -"(if obs_13" -"(let-values()(let-values()(call-expand-observe obs_13 'enter-prim s_29)))" +"(let-values(((obs_12)(expand-context-observer ctx_21)))" +"(if obs_12" +"(let-values()(let-values()(call-expand-observe obs_12 'enter-prim s_29)))" "(void)))" "(values))))" "(let-values(((result-s_2)((core-form-expander t_47) s_29 ctx_21)))" "(begin" -"(let-values(((obs_14)(expand-context-observer ctx_21)))" -"(if obs_14" +"(let-values(((obs_13)(expand-context-observer ctx_21)))" +"(if obs_13" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_14 'exit-prim(extract-syntax result-s_2))" -"(call-expand-observe obs_14 'return(extract-syntax result-s_2)))))" +"(call-expand-observe obs_13 'exit-prim(extract-syntax result-s_2))" +"(call-expand-observe obs_13 'return(extract-syntax result-s_2)))))" "(void)))" " result-s_2))))" "(let-values()((core-form-expander t_47) s_29 ctx_21)))))))" @@ -38161,20 +38161,20 @@ static const char *startup_source = "(begin" "(let-values((()" "(begin" -"(let-values(((obs_15)(expand-context-observer ctx_0)))" -"(if obs_15" -"(let-values()(let-values()(call-expand-observe obs_15 'enter-prim s_400)))" +"(let-values(((obs_14)(expand-context-observer ctx_0)))" +"(if obs_14" +"(let-values()(let-values()(call-expand-observe obs_14 'enter-prim s_400)))" "(void)))" "(values))))" "(let-values(((result-s_3)((core-form-expander t_48) s_400 ctx_0 #t)))" "(begin" -"(let-values(((obs_16)(expand-context-observer ctx_0)))" -"(if obs_16" +"(let-values(((obs_15)(expand-context-observer ctx_0)))" +"(if obs_15" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_16 'exit-prim result-s_3)" -"(call-expand-observe obs_16 'return result-s_3))))" +"(call-expand-observe obs_15 'exit-prim result-s_3)" +"(call-expand-observe obs_15 'return result-s_3))))" "(void)))" " result-s_3))))))" "(define-values" @@ -38185,15 +38185,15 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_17)(expand-context-observer ctx_22)))" -"(if obs_17" -"(let-values()(let-values()(call-expand-observe obs_17 'enter-macro s_401)))" +"(let-values(((obs_16)(expand-context-observer ctx_22)))" +"(if obs_16" +"(let-values()(let-values()(call-expand-observe obs_16 'enter-macro s_401)))" "(void)))" "(values))))" "(let-values(((adj-s_0)(avoid-current-expand-context(substitute-alternate-id s_401 id_60) t_49 ctx_22)))" "(begin" -"(let-values(((obs_18)(expand-context-observer ctx_22)))" -"(if obs_18(let-values()(let-values()(call-expand-observe obs_18 'exit-macro s_401)))(void)))" +"(let-values(((obs_17)(expand-context-observer ctx_22)))" +"(if obs_17(let-values()(let-values()(call-expand-observe obs_17 'exit-macro s_401)))(void)))" "(let-values(((adj-s106_0) adj-s_0)((ctx107_0) ctx_22))" "(expand7.1 #f #f #f #f adj-s106_0 ctx107_0))))))" "(if(expand-context-should-not-encounter-macros? ctx_22)" @@ -38202,14 +38202,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_19)(expand-context-observer ctx_22)))" -"(if obs_19" +"(let-values(((obs_18)(expand-context-observer ctx_22)))" +"(if obs_18" "(let-values()" "(if(if(expand-context-only-immediate? ctx_22)(not(1/rename-transformer? t_49)) #f)" "(let-values()" "(begin" -"(call-expand-observe obs_19 'visit s_401)" -"(call-expand-observe obs_19 'resolve id_60)))" +"(call-expand-observe obs_18 'visit s_401)" +"(call-expand-observe obs_18 'resolve id_60)))" "(void)))" "(void)))" "(values))))" @@ -38218,11 +38218,11 @@ static const char *startup_source = "(values s_401 ctx_22)" "(apply-transformer t_49 insp-of-t_4 s_401 id_60 ctx_22 binding_22))))" "(begin" -"(let-values(((obs_20)(expand-context-observer ctx_22)))" -"(if obs_20" +"(let-values(((obs_19)(expand-context-observer ctx_22)))" +"(if obs_19" "(let-values()" "(if(if(expand-context-only-immediate? ctx_22)(not(1/rename-transformer? t_49)) #f)" -"(let-values()(call-expand-observe obs_20 'return exp-s_1))" +"(let-values()(call-expand-observe obs_19 'return exp-s_1))" "(void)))" "(void)))" "(if(expand-context-just-once? ctx_22)" @@ -38246,15 +38246,15 @@ static const char *startup_source = "(if(expand-context-only-immediate? ctx_23)" "(let-values()" "(begin" -"(let-values(((obs_21)(expand-context-observer ctx_23)))" -"(if obs_21(let-values()(let-values()(call-expand-observe obs_21 'exit-check s_311)))(void)))" +"(let-values(((obs_20)(expand-context-observer ctx_23)))" +"(if obs_20(let-values()(let-values()(call-expand-observe obs_20 'exit-check s_311)))(void)))" " id_61))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_22)(expand-context-observer ctx_23)))" -"(if obs_22" -"(let-values()(let-values()(call-expand-observe obs_22 'variable s_311 id_61)))" +"(let-values(((obs_21)(expand-context-observer ctx_23)))" +"(if obs_21" +"(let-values()(let-values()(call-expand-observe obs_21 'variable s_311 id_61)))" "(void)))" "(values))))" "(let-values((()(begin(register-variable-referenced-if-local! binding_23)(values))))" @@ -38271,9 +38271,9 @@ static const char *startup_source = "(parsed-id2.1 prop-s_0 binding_23 insp_16)))))" "(let-values()" "(begin" -"(let-values(((obs_23)(expand-context-observer ctx_23)))" -"(if obs_23" -"(let-values()(let-values()(call-expand-observe obs_23 'return result-s_4)))" +"(let-values(((obs_22)(expand-context-observer ctx_23)))" +"(if obs_22" +"(let-values()(let-values()(call-expand-observe obs_22 'return result-s_4)))" "(void)))" " result-s_4)))))))))))" "(define-values" @@ -38283,9 +38283,9 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_24)(expand-context-observer ctx_24)))" -"(if obs_24" -"(let-values()(let-values()(call-expand-observe obs_24 'enter-macro s_54)))" +"(let-values(((obs_23)(expand-context-observer ctx_24)))" +"(if obs_23" +"(let-values()(let-values()(call-expand-observe obs_23 'enter-macro s_54)))" "(void)))" "(values))))" "(let-values(((disarmed-s_3)(syntax-disarm$1 s_54)))" @@ -38313,10 +38313,10 @@ static const char *startup_source = "(lambda(t-s_0)(syntax-rearm$1 t-s_0 s_54))" "(expand-context-phase ctx_24))))" "(begin" -"(let-values(((obs_25)(expand-context-observer ctx_24)))" -"(if obs_25" +"(let-values(((obs_24)(expand-context-observer ctx_24)))" +"(if obs_24" "(let-values()" -"(let-values()(call-expand-observe obs_25 'exit-macro rearmed-s_0)))" +"(let-values()(call-expand-observe obs_24 'exit-macro rearmed-s_0)))" "(void)))" "(values" " rearmed-s_0" @@ -38327,9 +38327,9 @@ static const char *startup_source = "(begin" "(let-values((()" "(begin" -"(let-values(((obs_26)(expand-context-observer ctx_25)))" -"(if obs_26" -"(let-values()(let-values()(call-expand-observe obs_26 'macro-pre-x cleaned-s_1)))" +"(let-values(((obs_25)(expand-context-observer ctx_25)))" +"(if obs_25" +"(let-values()(let-values()(call-expand-observe obs_25 'macro-pre-x cleaned-s_1)))" "(void)))" "(values))))" "(let-values(((confine-def-ctx-scopes?_0)" @@ -38391,10 +38391,10 @@ static const char *startup_source = "(call-with-continuation-barrier" "(lambda()((transformer->procedure t_52) cleaned-s_1)))))))" "(begin" -"(let-values(((obs_27)(expand-context-observer ctx_25)))" -"(if obs_27" +"(let-values(((obs_26)(expand-context-observer ctx_25)))" +"(if obs_26" "(let-values()" -"(let-values()(call-expand-observe obs_27 'macro-post-x transformed-s_1 cleaned-s_1)))" +"(let-values()(call-expand-observe obs_26 'macro-post-x transformed-s_1 cleaned-s_1)))" "(void)))" "(if(syntax?$1 transformed-s_1)" "(void)" @@ -38733,13 +38733,13 @@ static const char *startup_source = "(let-values() with-lifts-s_0)" "(let-values()" "(begin" -"(let-values(((obs_28)" +"(let-values(((obs_27)" "(expand-context-observer ctx_31)))" -"(if obs_28" +"(if obs_27" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_28" +" obs_27" " 'letlift-loop" " with-lifts-s_0)))" "(void)))" @@ -38897,8 +38897,8 @@ static const char *startup_source = "(begin" "(if log-next?_0" "(let-values()" -"(let-values(((obs_29)(expand-context-observer ctx_34)))" -"(if obs_29(let-values()(let-values()(call-expand-observe obs_29 'next)))(void))))" +"(let-values(((obs_28)(expand-context-observer ctx_34)))" +"(if obs_28(let-values()(let-values()(call-expand-observe obs_28 'next)))(void))))" "(void))" "(values" " exp-rhs_0" @@ -39362,9 +39362,9 @@ static const char *startup_source = "(let-values(((temp43_1) 'local-expand))(get-current-expand-context17.1 #f #f temp43_1 #t))))" "(let-values((()" "(begin" -"(let-values(((obs_30)(expand-context-observer ctx_43)))" -"(if obs_30" -"(let-values()(let-values()(call-expand-observe obs_30 'local-bind ids_25)))" +"(let-values(((obs_29)(expand-context-observer ctx_43)))" +"(if obs_29" +"(let-values()(let-values()(call-expand-observe obs_29 'local-bind ids_25)))" "(void)))" "(values))))" "(let-values(((phase_110)(expand-context-phase ctx_43)))" @@ -39416,10 +39416,10 @@ static const char *startup_source = " lst_286))))))" "(let-values((()" "(begin" -"(let-values(((obs_31)(expand-context-observer ctx_43)))" -"(if obs_31" +"(let-values(((obs_30)(expand-context-observer ctx_43)))" +"(if obs_30" "(let-values()" -"(let-values()(call-expand-observe obs_31 'rename-list intdef-ids_0)))" +"(let-values()(call-expand-observe obs_30 'rename-list intdef-ids_0)))" "(void)))" "(values))))" "(let-values(((syms_21)" @@ -39514,12 +39514,12 @@ static const char *startup_source = " lst_288)))))" "(let-values((()" "(begin" -"(let-values(((obs_32)" +"(let-values(((obs_31)" "(expand-context-observer ctx_43)))" -"(if obs_32" +"(if obs_31" "(let-values()" "(let-values()" -"(call-expand-observe obs_32 'enter-bind)))" +"(call-expand-observe obs_31 'enter-bind)))" "(void)))" "(values))))" "(let-values(((vals_6)" @@ -39583,10 +39583,10 @@ static const char *startup_source = " #f" " temp54_1)))))" "(begin" -"(let-values(((obs_20)(expand-context-observer ctx_43)))" -"(if obs_20" +"(let-values(((obs_19)(expand-context-observer ctx_43)))" +"(if obs_19" "(let-values()" -"(let-values()(call-expand-observe obs_20 'exit-bind)))" +"(let-values()(call-expand-observe obs_19 'exit-bind)))" "(void)))" " vals_6))))))" "(let-values()" @@ -39684,9 +39684,9 @@ static const char *startup_source = " lst_289" " lst_98))))" "(unbox env-mixins_0)))" -"(let-values(((obs_33)(expand-context-observer ctx_43)))" -"(if obs_33" -"(let-values()(let-values()(call-expand-observe obs_33 'exit-local-bind)))" +"(let-values(((obs_32)(expand-context-observer ctx_43)))" +"(if obs_32" +"(let-values()(let-values()(call-expand-observe obs_32 'exit-local-bind)))" "(void)))))))))))))))))))" "(define-values" "(1/internal-definition-context-binding-identifiers)" @@ -40338,9 +40338,10 @@ static const char *startup_source = "((ext-s_1 base-s_1)(begin 'make-syntax-delta-introducer(make-syntax-delta-introducer9_0 ext-s_1 base-s_1 #f #f)))" "((ext-s_2 base-s_2 phase5_1)(make-syntax-delta-introducer9_0 ext-s_2 base-s_2 phase5_1 #t)))))" "(define-values" -"(syntax-local-make-delta-introducer)" +"(1/syntax-local-make-delta-introducer)" "(lambda(id-stx_1)" "(begin" +" 'syntax-local-make-delta-introducer" "(begin" "(if(identifier? id-stx_1)" "(void)" @@ -40428,10 +40429,10 @@ static const char *startup_source = " current-ctx_0)))" "(let-values((()" "(begin" -"(let-values(((obs_34)(expand-context-observer ctx_51)))" -"(if obs_34" +"(let-values(((obs_33)(expand-context-observer ctx_51)))" +"(if obs_33" "(let-values()" -"(let-values()(call-expand-observe obs_34 'local-value id_74)))" +"(let-values()(call-expand-observe obs_33 'local-value id_74)))" "(void)))" "(values))))" "(let-values(((phase_113)(expand-context-phase ctx_51)))" @@ -40460,22 +40461,22 @@ static const char *startup_source = " phase_113" "(expand-context-namespace ctx_51)))))" "(begin" -"(let-values(((obs_35)(expand-context-observer ctx_51)))" -"(if obs_35" +"(let-values(((obs_34)(expand-context-observer ctx_51)))" +"(if obs_34" "(let-values()" "(let-values()" -"(call-expand-observe obs_35 'resolve id_75)))" +"(call-expand-observe obs_34 'resolve id_75)))" "(void)))" "(if(not b_54)" "(let-values()" "(begin" -"(let-values(((obs_30)" +"(let-values(((obs_29)" "(expand-context-observer ctx_51)))" -"(if obs_30" +"(if obs_29" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_30" +" obs_29" " 'local-value-result" " #f)))" "(void)))" @@ -40500,13 +40501,13 @@ static const char *startup_source = "(if or-part_282 or-part_282(core-form? v_51)))" "(let-values()" "(begin" -"(let-values(((obs_36)" +"(let-values(((obs_35)" "(expand-context-observer ctx_51)))" -"(if obs_36" +"(if obs_35" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_36" +" obs_35" " 'local-value-result" " #f)))" "(void)))" @@ -40518,9 +40519,9 @@ static const char *startup_source = " id_75))))" "(let-values()" "(begin" -"(let-values(((obs_37)" +"(let-values(((obs_36)" "(expand-context-observer ctx_51)))" -"(if obs_37" +"(if obs_36" "(let-values()" "(if(not" "(if(1/rename-transformer? v_51)" @@ -40528,7 +40529,7 @@ static const char *startup_source = " #f))" "(let-values()" "(call-expand-observe" -" obs_37" +" obs_36" " 'local-value-result" " #t))" "(void)))" @@ -40661,9 +40662,9 @@ static const char *startup_source = " null" " start_40))))))" "(begin" -"(let-values(((obs_38)(expand-context-observer ctx_52)))" -"(if obs_38" -"(let-values()(let-values()(call-expand-observe obs_38 'local-lift ids_26 s_316)))" +"(let-values(((obs_37)(expand-context-observer ctx_52)))" +"(if obs_37" +"(let-values()(let-values()(call-expand-observe obs_37 'lift-expr ids_26 s_316)))" "(void)))" "(map2" "(lambda(id_81)(flip-introduction-scopes id_81 ctx_52))" @@ -40723,9 +40724,9 @@ static const char *startup_source = "(add-lifted-module! lifts_9(flip-introduction-scopes s_58 ctx_54) phase_114))))" "(let-values()" " (raise-arguments-error 'syntax-local-lift-module \"not a module form\" \"given form\" s_58))))" -"(let-values(((obs_39)(expand-context-observer ctx_54)))" -"(if obs_39" -"(let-values()(let-values()(call-expand-observe obs_39 'lift-statement s_58)))" +"(let-values(((obs_38)(expand-context-observer ctx_54)))" +"(if obs_38" +"(let-values()(let-values()(call-expand-observe obs_38 'lift-statement s_58)))" "(void))))))))))" "(define-values" "(do-local-lift-to-module54.1)" @@ -40888,10 +40889,10 @@ static const char *startup_source = "(values))))" "(let-values(((result-s_6)(add-scope use-s_1 sc_29)))" "(begin" -"(let-values(((obs_28)(expand-context-observer ctx_56)))" -"(if obs_28" +"(let-values(((obs_27)(expand-context-observer ctx_56)))" +"(if obs_27" "(let-values()" -"(let-values()(call-expand-observe obs_28 'lift-require added-s_1 use-s_1 result-s_6)))" +"(let-values()(call-expand-observe obs_27 'lift-require added-s_1 use-s_1 result-s_6)))" "(void)))" " result-s_6))))))))" "(define-values" @@ -40928,8 +40929,8 @@ static const char *startup_source = " #t" " temp118_1" " s119_0))))" -"(let-values(((obs_40)(expand-context-observer ctx_57)))" -"(if obs_40(let-values()(let-values()(call-expand-observe obs_40 'lift-provide result-s_7)))(void)))))))" +"(let-values(((obs_39)(expand-context-observer ctx_57)))" +"(if obs_39(let-values()(let-values()(call-expand-observe obs_39 'lift-provide result-s_7)))(void)))))))" "(define-values" "(1/syntax-local-lift-module-end-declaration)" "(lambda(s_215)" @@ -40967,8 +40968,8 @@ static const char *startup_source = " #t" " temp126_1" " s127_0))))" -"(let-values(((obs_41)(expand-context-observer ctx_58)))" -"(if obs_41(let-values()(let-values()(call-expand-observe obs_41 'lift-statement s_215)))(void)))))))" +"(let-values(((obs_40)(expand-context-observer ctx_58)))" +"(if obs_40(let-values()(let-values()(call-expand-observe obs_40 'lift-statement s_215)))(void)))))))" "(define-values" "(wrap-form)" "(lambda(sym_65 s_120 phase_126)" @@ -41697,9 +41698,9 @@ static const char *startup_source = "(begin" "(if ctx_64" "(let-values()" -"(let-values(((obs_16)(expand-context-observer ctx_64)))" -"(if obs_16" -"(let-values()(let-values()(call-expand-observe obs_16 'track-origin new-stx_8 s_424)))" +"(let-values(((obs_15)(expand-context-observer ctx_64)))" +"(if obs_15" +"(let-values()(let-values()(call-expand-observe obs_15 'track-origin new-stx_8 s_424)))" "(void))))" "(void))" " s_424)))))))))" @@ -43320,29 +43321,37 @@ static const char *startup_source = " 'expand40" "(let-values(((s_50) s39_0))" "(let-values(((ns_93)(if ns35_0 ns31_2(1/current-namespace))))" -"(let-values(((observable?_1)(if observable?36_0 observable?32_0 #f)))" +"(let-values(((observable?_0)(if observable?36_0 observable?32_0 #f)))" "(let-values(((to-parsed?_2)(if to-parsed?37_0 to-parsed?33_0 #f)))" "(let-values(((serializable?_8)(if serializable?38_0 serializable?34_0 #f)))" "(let-values()" +"(let-values(((observer_2)(if observable?_0(current-expand-observe) #f)))" "(begin" -"(if observable?_1(let-values()(log-expand-start))(void))" +"(if observer_2(let-values()(call-expand-observe observer_2 'start-top))(void))" +"(with-continuation-mark" +" parameterization-key" +"(extend-parameterization" +"(continuation-mark-set-first #f parameterization-key)" +" current-expand-observe" +" #f)" +"(let-values()" "(let-values(((temp110_3)" -"(lambda(s_315 ns_94 as-tail?_5)" +"(lambda(s_52 ns_94 as-tail?_5)" "(expand-single" -" s_315" +" s_52" " ns_94" -" observable?_1" +" observer_2" " to-parsed?_2" " serializable?_8)))" "((cons111_0) cons)" "((re-pair112_0) re-pair)" -"((observable?113_0) observable?_1))" +"((observer113_0) observer_2))" "(per-top-level68.1" " cons111_0" " #t" " #f" " #f" -" observable?113_0" +" observer113_0" " #f" " #f" " #f" @@ -43351,32 +43360,31 @@ static const char *startup_source = " re-pair112_0" " #t" " s_50" -" ns_93)))))))))))))" +" ns_93))))))))))))))))" "(case-lambda" "((s_432)(begin 'expand(expand40_0 s_432 #f #f #f #f #f #f #f #f)))" -"((s_433 ns_95 observable?_2 to-parsed?_3 serializable?34_1)" -"(expand40_0 s_433 ns_95 observable?_2 to-parsed?_3 serializable?34_1 #t #t #t #t))" -"((s_54 ns_96 observable?_3 to-parsed?33_1)(expand40_0 s_54 ns_96 observable?_3 to-parsed?33_1 #f #t #t #t #f))" -"((s_55 ns_97 observable?32_1)(expand40_0 s_55 ns_97 observable?32_1 #f #f #t #t #f #f))" -"((s_318 ns31_3)(expand40_0 s_318 ns31_3 #f #f #f #t #f #f #f)))))" +"((s_433 ns_95 observable?_1 to-parsed?_3 serializable?34_1)" +"(expand40_0 s_433 ns_95 observable?_1 to-parsed?_3 serializable?34_1 #t #t #t #t))" +"((s_434 ns_96 observable?_2 to-parsed?33_1)(expand40_0 s_434 ns_96 observable?_2 to-parsed?33_1 #f #t #t #t #f))" +"((s_317 ns_97 observable?32_1)(expand40_0 s_317 ns_97 observable?32_1 #f #f #t #t #f #f))" +"((s_435 ns31_3)(expand40_0 s_435 ns31_3 #f #f #f #t #f #f #f)))))" "(define-values" "(expand-single)" -"(lambda(s_388 ns_98 observable?_4 to-parsed?_4 serializable?_9)" +"(lambda(s_436 ns_98 observer_3 to-parsed?_4 serializable?_9)" "(begin" -"(let-values(((rebuild-s_2)(keep-properties-only s_388)))" +"(let-values(((rebuild-s_2)(keep-properties-only s_436)))" "(let-values(((ctx_65)" "(let-values(((to-parsed?115_0) to-parsed?_4)" "((serializable?116_0) serializable?_9)" -"((observable?117_0) observable?_4))" -"(make-expand-context10.1 serializable?116_0 #t observable?117_0 #t to-parsed?115_0 #t ns_98))))" -"(let-values(((require-lifts_3 lifts_10 exp-s_6)(expand-capturing-lifts s_388 ctx_65)))" +"((observer117_0) observer_3))" +"(make-expand-context10.1 serializable?116_0 #t observer117_0 #t to-parsed?115_0 #t ns_98))))" +"(let-values(((require-lifts_3 lifts_10 exp-s_6)(expand-capturing-lifts s_436 ctx_65)))" "(if(if(null? require-lifts_3)(null? lifts_10) #f)" "(let-values() exp-s_6)" "(if to-parsed?_4" "(let-values()" "(let-values(((temp122_2)" -"(lambda(form_0)" -"(expand-single form_0 ns_98 observable?_4 to-parsed?_4 serializable?_9))))" +"(lambda(form_0)(expand-single form_0 ns_98 observer_3 to-parsed?_4 serializable?_9))))" "(wrap-lifts-as-lifted-parsed-begin77.1 temp122_2 require-lifts_3 lifts_10 exp-s_6 rebuild-s_2)))" "(let-values()" "(let-values((()" @@ -43388,15 +43396,15 @@ static const char *startup_source = "((temp124_2)" "(lambda(form_1)" "(begin" -"(let-values(((obs_26)(expand-context-observer ctx_65)))" -"(if obs_26" +"(let-values(((obs_38)(expand-context-observer ctx_65)))" +"(if obs_38" "(let-values()" -"(let-values()(call-expand-observe obs_26 'next)))" +"(let-values()(call-expand-observe obs_38 'next)))" "(void)))" "(expand-single" " form_1" " ns_98" -" observable?_4" +" observer_3" " to-parsed?_4" " serializable?_9))))" "((temp125_1)" @@ -43405,15 +43413,15 @@ static const char *startup_source = "(let-values() form_2)" "(let-values()" "(begin" -"(let-values(((obs_42)(expand-context-observer ctx_65)))" -"(if obs_42" +"(let-values(((obs_41)(expand-context-observer ctx_65)))" +"(if obs_41" "(let-values()" -"(let-values()(call-expand-observe obs_42 'next)))" +"(let-values()(call-expand-observe obs_41 'next)))" "(void)))" "(expand-single" " form_2" " ns_98" -" observable?_4" +" observer_3" " to-parsed?_4" " serializable?_9))))))" "((exp-s126_0) exp-s_6)" @@ -43433,15 +43441,14 @@ static const char *startup_source = "(lambda(s44_1 ns42_1 ns43_0)" "(begin" " 'expand-once45" -"(let-values(((s_196) s44_1))" -"(let-values(((ns_99)(if ns43_0 ns42_1(1/current-namespace))))" +"(let-values(((s_197) s44_1))" +"(let-values(((ns_15)(if ns43_0 ns42_1(1/current-namespace))))" "(let-values()" -"(let-values(((temp130_2)" -"(lambda(s_199 ns_100 as-tail?_6)(expand-single-once s_199 ns_100)))" +"(let-values(((temp130_2)(lambda(s_37 ns_18 as-tail?_6)(expand-single-once s_37 ns_18)))" "((cons131_0) cons)" "((re-pair132_0) re-pair)" "((temp133_2) #t)" -"((temp134_1) #t))" +"((temp134_1) #f))" "(per-top-level68.1" " cons131_0" " #t" @@ -43455,117 +43462,125 @@ static const char *startup_source = " temp130_2" " re-pair132_0" " #t" -" s_196" -" ns_99)))))))))" +" s_197" +" ns_15)))))))))" "(case-lambda" -"((s_319)(begin 'expand-once(expand-once45_0 s_319 #f #f)))" -"((s_434 ns42_2)(expand-once45_0 s_434 ns42_2 #t)))))" +"((s_437)(begin 'expand-once(expand-once45_0 s_437 #f #f)))" +"((s_438 ns42_2)(expand-once45_0 s_438 ns42_2 #t)))))" "(define-values" "(expand-single-once)" -"(lambda(s_63 ns_101)" +"(lambda(s_320 ns_99)" "(begin" "(let-values(((require-lifts_4 lifts_11 exp-s_7)" "(expand-capturing-lifts" -" s_63" -"(let-values(((v_111)" -"(let-values(((temp136_1) #t))" -"(make-expand-context10.1 #f #f temp136_1 #t #f #f ns_101))))" -"(let-values(((the-struct_71) v_111))" -"(if(expand-context/outer? the-struct_71)" -"(let-values(((inner137_0)" -"(let-values(((the-struct_72)(root-expand-context/outer-inner v_111)))" -"(if(expand-context/inner? the-struct_72)" -"(let-values(((just-once?138_0) #t))" +" s_320" +"(let-values(((v_112)" +"(let-values(((ns135_1) ns_99))" +"(make-expand-context10.1 #f #f #f #f #f #f ns135_1))))" +"(let-values(((the-struct_55) v_112))" +"(if(expand-context/outer? the-struct_55)" +"(let-values(((inner136_0)" +"(let-values(((the-struct_71)(root-expand-context/outer-inner v_112)))" +"(if(expand-context/inner? the-struct_71)" +"(let-values(((just-once?137_0) #t))" "(expand-context/inner2.1" -"(root-expand-context/inner-module-scopes the-struct_72)" -"(root-expand-context/inner-top-level-bind-scope the-struct_72)" -"(root-expand-context/inner-all-scopes-stx the-struct_72)" -"(root-expand-context/inner-defined-syms the-struct_72)" -"(root-expand-context/inner-counter the-struct_72)" -"(root-expand-context/inner-lift-key the-struct_72)" -"(expand-context/inner-to-parsed? the-struct_72)" -"(expand-context/inner-phase the-struct_72)" -"(expand-context/inner-namespace the-struct_72)" -" just-once?138_0" -"(expand-context/inner-module-begin-k the-struct_72)" -"(expand-context/inner-allow-unbound? the-struct_72)" -"(expand-context/inner-in-local-expand? the-struct_72)" -"(expand-context/inner-stops the-struct_72)" -"(expand-context/inner-declared-submodule-names the-struct_72)" -"(expand-context/inner-lifts the-struct_72)" -"(expand-context/inner-lift-envs the-struct_72)" -"(expand-context/inner-module-lifts the-struct_72)" -"(expand-context/inner-require-lifts the-struct_72)" -"(expand-context/inner-to-module-lifts the-struct_72)" -"(expand-context/inner-requires+provides the-struct_72)" -"(expand-context/inner-observer the-struct_72)" -"(expand-context/inner-for-serializable? the-struct_72)" -"(expand-context/inner-should-not-encounter-macros? the-struct_72)))" +"(root-expand-context/inner-module-scopes the-struct_71)" +"(root-expand-context/inner-top-level-bind-scope the-struct_71)" +"(root-expand-context/inner-all-scopes-stx the-struct_71)" +"(root-expand-context/inner-defined-syms the-struct_71)" +"(root-expand-context/inner-counter the-struct_71)" +"(root-expand-context/inner-lift-key the-struct_71)" +"(expand-context/inner-to-parsed? the-struct_71)" +"(expand-context/inner-phase the-struct_71)" +"(expand-context/inner-namespace the-struct_71)" +" just-once?137_0" +"(expand-context/inner-module-begin-k the-struct_71)" +"(expand-context/inner-allow-unbound? the-struct_71)" +"(expand-context/inner-in-local-expand? the-struct_71)" +"(expand-context/inner-stops the-struct_71)" +"(expand-context/inner-declared-submodule-names the-struct_71)" +"(expand-context/inner-lifts the-struct_71)" +"(expand-context/inner-lift-envs the-struct_71)" +"(expand-context/inner-module-lifts the-struct_71)" +"(expand-context/inner-require-lifts the-struct_71)" +"(expand-context/inner-to-module-lifts the-struct_71)" +"(expand-context/inner-requires+provides the-struct_71)" +"(expand-context/inner-observer the-struct_71)" +"(expand-context/inner-for-serializable? the-struct_71)" +"(expand-context/inner-should-not-encounter-macros? the-struct_71)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_72)))))" +" the-struct_71)))))" "(expand-context/outer1.1" -" inner137_0" -"(root-expand-context/outer-post-expansion-scope the-struct_71)" -"(root-expand-context/outer-use-site-scopes the-struct_71)" -"(root-expand-context/outer-frame-id the-struct_71)" -"(expand-context/outer-context the-struct_71)" -"(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_71)))))))" +" inner136_0" +"(root-expand-context/outer-post-expansion-scope the-struct_55)" +"(root-expand-context/outer-use-site-scopes the-struct_55)" +"(root-expand-context/outer-frame-id the-struct_55)" +"(expand-context/outer-context the-struct_55)" +"(expand-context/outer-env the-struct_55)" +"(expand-context/outer-post-expansion-scope-action the-struct_55)" +"(expand-context/outer-scopes the-struct_55)" +"(expand-context/outer-def-ctx-scopes the-struct_55)" +"(expand-context/outer-binding-layer the-struct_55)" +"(expand-context/outer-reference-records the-struct_55)" +"(expand-context/outer-only-immediate? the-struct_55)" +"(expand-context/outer-need-eventually-defined the-struct_55)" +"(expand-context/outer-current-introduction-scopes the-struct_55)" +"(expand-context/outer-name the-struct_55)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_55)))))))" "(if(if(null? require-lifts_4)(null? lifts_11) #f)" "(let-values() exp-s_7)" "(let-values()" -"(let-values(((temp139_0)(append require-lifts_4 lifts_11))" -"((exp-s140_0) exp-s_7)" -"((temp141_1)(namespace-phase ns_101)))" -"(wrap-lifts-as-begin16.1 #f #f #f #f temp139_0 exp-s140_0 temp141_1))))))))" +"(let-values(((temp138_2)(append require-lifts_4 lifts_11))" +"((exp-s139_0) exp-s_7)" +"((temp140_0)(namespace-phase ns_99)))" +"(wrap-lifts-as-begin16.1 #f #f #f #f temp138_2 exp-s139_0 temp140_0))))))))" "(define-values" "(expand-to-top-form$1)" "(let-values(((expand-to-top-form50_0)" "(lambda(s49_0 ns47_0 ns48_2)" "(begin" " 'expand-to-top-form50" -"(let-values(((s_202) s49_0))" -"(let-values(((ns_102)(if ns48_2 ns47_0(1/current-namespace))))" +"(let-values(((s_203) s49_0))" +"(let-values(((ns_81)(if ns48_2 ns47_0(1/current-namespace))))" "(let-values()" +"(let-values(((observer_4)(current-expand-observe)))" "(begin" -"(log-expand-start)" -"(let-values(((temp144_1) #f)((temp145_0) #f)((temp146_0) #t))" +"(if observer_4(let-values()(call-expand-observe observer_4 'start-top))(void))" +"(with-continuation-mark" +" parameterization-key" +"(extend-parameterization" +"(continuation-mark-set-first #f parameterization-key)" +" current-expand-observe" +" #f)" +"(let-values()" +"(let-values(((temp143_1) #f)((temp144_1) #f)((observer145_0) observer_4))" "(per-top-level68.1" " #f" " #f" " #f" " #f" -" temp146_0" -" temp145_0" +" observer145_0" +" temp144_1" " #t" " #f" " #f" -" temp144_1" +" temp143_1" " #f" " #f" -" s_202" -" ns_102))))))))))" +" s_203" +" ns_81)))))))))))))" "(case-lambda" -"((s_435)(begin 'expand-to-top-form(expand-to-top-form50_0 s_435 #f #f)))" -"((s_436 ns47_1)(expand-to-top-form50_0 s_436 ns47_1 #t)))))" +"((s_151)(begin 'expand-to-top-form(expand-to-top-form50_0 s_151 #f #f)))" +"((s_89 ns47_1)(expand-to-top-form50_0 s_89 ns47_1 #t)))))" "(define-values" "(per-top-level68.1)" "(lambda(combine53_0" " combine60_0" " just-once?55_0" " just-once?62_0" -" observable?58_0" +" observer58_0" " quick-immediate?56_0" " quick-immediate?63_0" " serializable?57_0" @@ -43578,44 +43593,159 @@ static const char *startup_source = "(begin" " 'per-top-level68" "(let-values(((given-s_0) given-s66_0))" -"(let-values(((ns_103) ns67_1))" +"(let-values(((ns_100) ns67_1))" "(let-values(((single_0) single52_0))" "(let-values(((combine_0)(if combine60_0 combine53_0 #f)))" "(let-values(((wrap_2)(if wrap61_0 wrap54_0 #f)))" "(let-values(((just-once?_1)(if just-once?62_0 just-once?55_0 #f)))" "(let-values(((quick-immediate?_0)(if quick-immediate?63_0 quick-immediate?56_0 #t)))" "(let-values(((serializable?_10)(if serializable?64_0 serializable?57_0 #f)))" -"(let-values(((observable?_5) observable?58_0))" +"(let-values(((observer_5) observer58_0))" "(let-values()" -"(let-values(((s_437)(maybe-intro given-s_0 ns_103)))" -"(let-values(((ctx_1)" -"(let-values(((observable?148_0) observable?_5))" -"(make-expand-context10.1 #f #f observable?148_0 #t #f #f ns_103))))" -"(let-values(((phase_137)(namespace-phase ns_103)))" +"(let-values(((s_439)(maybe-intro given-s_0 ns_100)))" +"(let-values(((ctx_66)" +"(let-values(((observer147_0) observer_5))" +"(make-expand-context10.1 #f #f observer147_0 #t #f #f ns_100))))" +"(let-values(((phase_137)(namespace-phase ns_100)))" "((letrec-values(((loop_98)" -"(lambda(s_208 phase_50 ns_104 as-tail?_7)" +"(lambda(s_440 phase_138 ns_101 as-tail?_7)" "(begin" " 'loop" "(let-values(((tl-ctx_0)" -"(let-values(((v_191) ctx_1))" -"(let-values(((the-struct_73) v_191))" -"(if(expand-context/outer? the-struct_73)" -"(let-values(((inner149_0)" -"(let-values(((the-struct_74)" +"(let-values(((v_191) ctx_66))" +"(let-values(((the-struct_72) v_191))" +"(if(expand-context/outer? the-struct_72)" +"(let-values(((inner148_0)" +"(let-values(((the-struct_73)" "(root-expand-context/outer-inner" " v_191)))" "(if(expand-context/inner?" -" the-struct_74)" -"(let-values(((phase150_0)" -" phase_50)" -"((namespace151_0)" -" ns_104)" -"((just-once?152_0)" +" the-struct_73)" +"(let-values(((phase149_0)" +" phase_138)" +"((namespace150_0)" +" ns_101)" +"((just-once?151_0)" " just-once?_1)" -"((for-serializable?153_0)" +"((for-serializable?152_0)" " serializable?_10))" "(expand-context/inner2.1" "(root-expand-context/inner-module-scopes" +" the-struct_73)" +"(root-expand-context/inner-top-level-bind-scope" +" the-struct_73)" +"(root-expand-context/inner-all-scopes-stx" +" the-struct_73)" +"(root-expand-context/inner-defined-syms" +" the-struct_73)" +"(root-expand-context/inner-counter" +" the-struct_73)" +"(root-expand-context/inner-lift-key" +" the-struct_73)" +"(expand-context/inner-to-parsed?" +" the-struct_73)" +" phase149_0" +" namespace150_0" +" just-once?151_0" +"(expand-context/inner-module-begin-k" +" the-struct_73)" +"(expand-context/inner-allow-unbound?" +" the-struct_73)" +"(expand-context/inner-in-local-expand?" +" the-struct_73)" +"(expand-context/inner-stops" +" the-struct_73)" +"(expand-context/inner-declared-submodule-names" +" the-struct_73)" +"(expand-context/inner-lifts" +" the-struct_73)" +"(expand-context/inner-lift-envs" +" the-struct_73)" +"(expand-context/inner-module-lifts" +" the-struct_73)" +"(expand-context/inner-require-lifts" +" the-struct_73)" +"(expand-context/inner-to-module-lifts" +" the-struct_73)" +"(expand-context/inner-requires+provides" +" the-struct_73)" +"(expand-context/inner-observer" +" the-struct_73)" +" for-serializable?152_0" +"(expand-context/inner-should-not-encounter-macros?" +" the-struct_73)))" +"(raise-argument-error" +" 'struct-copy" +" \"expand-context/inner?\"" +" the-struct_73)))))" +"(expand-context/outer1.1" +" inner148_0" +"(root-expand-context/outer-post-expansion-scope" +" the-struct_72)" +"(root-expand-context/outer-use-site-scopes" +" the-struct_72)" +"(root-expand-context/outer-frame-id" +" the-struct_72)" +"(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)))" +"(raise-argument-error" +" 'struct-copy" +" \"expand-context/outer?\"" +" the-struct_72))))))" +"(let-values(((wb-s_0)(if just-once?_1 s_440 #f)))" +"(let-values((()" +"(begin" +"(let-values(((obs_42)" +"(expand-context-observer" +" tl-ctx_0)))" +"(if obs_42" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_42" +" 'visit" +" s_440)))" +"(void)))" +"(values))))" +"(let-values(((require-lifts_5 lifts_12 exp-s_8)" +"(expand-capturing-lifts" +" s_440" +"(let-values(((v_143) tl-ctx_0))" +"(let-values(((the-struct_16) v_143))" +"(if(expand-context/outer? the-struct_16)" +"(let-values(((only-immediate?153_0)" +" #t)" +"((def-ctx-scopes154_0)" +"(box null))" +"((inner155_1)" +"(let-values(((the-struct_74)" +"(root-expand-context/outer-inner" +" v_143)))" +"(if(expand-context/inner?" +" the-struct_74)" +"(let-values(((phase156_1)" +" phase_138)" +"((namespace157_1)" +" ns_101))" +"(expand-context/inner2.1" +"(root-expand-context/inner-module-scopes" " the-struct_74)" "(root-expand-context/inner-top-level-bind-scope" " the-struct_74)" @@ -43629,9 +43759,10 @@ static const char *startup_source = " the-struct_74)" "(expand-context/inner-to-parsed?" " the-struct_74)" -" phase150_0" -" namespace151_0" -" just-once?152_0" +" phase156_1" +" namespace157_1" +"(expand-context/inner-just-once?" +" the-struct_74)" "(expand-context/inner-module-begin-k" " the-struct_74)" "(expand-context/inner-allow-unbound?" @@ -43656,174 +43787,71 @@ static const char *startup_source = " the-struct_74)" "(expand-context/inner-observer" " the-struct_74)" -" for-serializable?153_0" +"(expand-context/inner-for-serializable?" +" the-struct_74)" "(expand-context/inner-should-not-encounter-macros?" " the-struct_74)))" "(raise-argument-error" " 'struct-copy" -" \"expand-context/inner?\"" +" \"expand-context/inner?\"" " the-struct_74)))))" "(expand-context/outer1.1" -" inner149_0" +" inner155_1" "(root-expand-context/outer-post-expansion-scope" -" the-struct_73)" +" the-struct_16)" "(root-expand-context/outer-use-site-scopes" -" the-struct_73)" +" the-struct_16)" "(root-expand-context/outer-frame-id" -" the-struct_73)" +" the-struct_16)" "(expand-context/outer-context" -" the-struct_73)" -"(expand-context/outer-env the-struct_73)" -"(expand-context/outer-post-expansion-scope-action" -" the-struct_73)" -"(expand-context/outer-scopes the-struct_73)" -"(expand-context/outer-def-ctx-scopes" -" the-struct_73)" -"(expand-context/outer-binding-layer" -" the-struct_73)" -"(expand-context/outer-reference-records" -" the-struct_73)" -"(expand-context/outer-only-immediate?" -" the-struct_73)" -"(expand-context/outer-need-eventually-defined" -" the-struct_73)" -"(expand-context/outer-current-introduction-scopes" -" the-struct_73)" -"(expand-context/outer-name the-struct_73)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/outer?\"" -" the-struct_73))))))" -"(let-values(((wb-s_0)(if just-once?_1 s_208 #f)))" -"(let-values(((require-lifts_5 lifts_12 exp-s_8)" -"(if(if quick-immediate?_0" -"(core-form-sym s_208 phase_50)" -" #f)" -"(values null null s_208)" -"(expand-capturing-lifts" -" s_208" -"(let-values(((v_192) tl-ctx_0))" -"(let-values(((the-struct_75) v_192))" -"(if(expand-context/outer? the-struct_75)" -"(let-values(((only-immediate?154_0)" -" #t)" -"((def-ctx-scopes155_0)" -"(box null))" -"((inner156_0)" -"(let-values(((the-struct_76)" -"(root-expand-context/outer-inner" -" v_192)))" -"(if(expand-context/inner?" -" the-struct_76)" -"(let-values(((phase157_0)" -" phase_50)" -"((namespace158_0)" -" ns_104))" -"(expand-context/inner2.1" -"(root-expand-context/inner-module-scopes" -" the-struct_76)" -"(root-expand-context/inner-top-level-bind-scope" -" the-struct_76)" -"(root-expand-context/inner-all-scopes-stx" -" the-struct_76)" -"(root-expand-context/inner-defined-syms" -" the-struct_76)" -"(root-expand-context/inner-counter" -" the-struct_76)" -"(root-expand-context/inner-lift-key" -" the-struct_76)" -"(expand-context/inner-to-parsed?" -" the-struct_76)" -" phase157_0" -" namespace158_0" -"(expand-context/inner-just-once?" -" the-struct_76)" -"(expand-context/inner-module-begin-k" -" the-struct_76)" -"(expand-context/inner-allow-unbound?" -" the-struct_76)" -"(expand-context/inner-in-local-expand?" -" the-struct_76)" -"(expand-context/inner-stops" -" the-struct_76)" -"(expand-context/inner-declared-submodule-names" -" the-struct_76)" -"(expand-context/inner-lifts" -" the-struct_76)" -"(expand-context/inner-lift-envs" -" the-struct_76)" -"(expand-context/inner-module-lifts" -" the-struct_76)" -"(expand-context/inner-require-lifts" -" the-struct_76)" -"(expand-context/inner-to-module-lifts" -" the-struct_76)" -"(expand-context/inner-requires+provides" -" the-struct_76)" -"(expand-context/inner-observer" -" the-struct_76)" -"(expand-context/inner-for-serializable?" -" the-struct_76)" -"(expand-context/inner-should-not-encounter-macros?" -" the-struct_76)))" -"(raise-argument-error" -" 'struct-copy" -" \"expand-context/inner?\"" -" the-struct_76)))))" -"(expand-context/outer1.1" -" inner156_0" -"(root-expand-context/outer-post-expansion-scope" -" the-struct_75)" -"(root-expand-context/outer-use-site-scopes" -" the-struct_75)" -"(root-expand-context/outer-frame-id" -" the-struct_75)" -"(expand-context/outer-context" -" the-struct_75)" +" the-struct_16)" "(expand-context/outer-env" -" the-struct_75)" +" the-struct_16)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_75)" +" the-struct_16)" "(expand-context/outer-scopes" -" the-struct_75)" -" def-ctx-scopes155_0" +" the-struct_16)" +" def-ctx-scopes154_0" "(expand-context/outer-binding-layer" -" the-struct_75)" +" the-struct_16)" "(expand-context/outer-reference-records" -" the-struct_75)" -" only-immediate?154_0" +" the-struct_16)" +" only-immediate?153_0" "(expand-context/outer-need-eventually-defined" -" the-struct_75)" +" the-struct_16)" "(expand-context/outer-current-introduction-scopes" -" the-struct_75)" +" the-struct_16)" "(expand-context/outer-name" -" the-struct_75)))" +" the-struct_16)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_75))))))))" -"(let-values(((disarmed-exp-s_0)(syntax-disarm$1 exp-s_8)))" -"(if(let-values(((or-part_295)(pair? require-lifts_5)))" +" the-struct_16)))))))" +"(let-values(((disarmed-exp-s_0)" +"(syntax-disarm$1 exp-s_8)))" +"(if(let-values(((or-part_295)" +"(pair? require-lifts_5)))" "(if or-part_295 or-part_295(pair? lifts_12)))" "(let-values()" "(let-values(((new-s_2)" -"(let-values(((temp159_1)" +"(let-values(((temp158_0)" "(append" " require-lifts_5" " lifts_12))" -"((exp-s160_0) exp-s_8)" -"((phase161_0) phase_50))" +"((exp-s159_0) exp-s_8)" +"((phase160_0) phase_138))" "(wrap-lifts-as-begin16.1" " #f" " #f" " #f" " #f" -" temp159_1" -" exp-s160_0" -" phase161_0))))" +" temp158_0" +" exp-s159_0" +" phase160_0))))" "(begin" "(let-values(((obs_43)" -"(expand-context-observer tl-ctx_0)))" +"(expand-context-observer" +" tl-ctx_0)))" "(if obs_43" "(let-values()" "(let-values()" @@ -43834,77 +43862,101 @@ static const char *startup_source = "(void)))" "(if just-once?_1" " new-s_2" -"(loop_98 new-s_2 phase_50 ns_104 as-tail?_7)))))" +"(loop_98" +" new-s_2" +" phase_138" +" ns_101" +" as-tail?_7)))))" "(if(not single_0)" -"(let-values() exp-s_8)" +"(let-values()" +"(begin" +"(let-values(((obs_44)" +"(expand-context-observer" +" tl-ctx_0)))" +"(if obs_44" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_44" +" 'return" +" exp-s_8)))" +"(void)))" +" exp-s_8))" "(if(if just-once?_1(not(eq? exp-s_8 wb-s_0)) #f)" "(let-values() exp-s_8)" "(let-values()" "(let-values(((tmp_36)" "(core-form-sym" " disarmed-exp-s_0" -" phase_50)))" +" phase_138)))" "(if(equal? tmp_36 'begin)" "(let-values()" "(let-values((()" "(begin" -"(log-top-begin-before" -" ctx_1" -" exp-s_8)" +"(let-values(((obs_45)" +"(expand-context-observer" +" ctx_66)))" +"(if obs_45" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_45" +" 'prim-begin)))" +"(void)))" "(values))))" -"(let-values(((ok?_28 begin162_0 e163_0)" -"(let-values(((s_395)" +"(let-values(((ok?_28 begin161_0 e162_0)" +"(let-values(((s_441)" " disarmed-exp-s_0))" "(let-values(((orig-s_33)" -" s_395))" -"(let-values(((begin162_1" -" e163_1)" -"(let-values(((s_111)" +" s_441))" +"(let-values(((begin161_1" +" e162_1)" +"(let-values(((s_442)" "(if(syntax?$1" -" s_395)" +" s_441)" "(syntax-e$1" -" s_395)" -" s_395)))" +" s_441)" +" s_441)))" "(if(pair?" -" s_111)" -"(let-values(((begin164_0)" -"(let-values(((s_438)" +" s_442)" +"(let-values(((begin163_0)" +"(let-values(((s_113)" "(car" -" s_111)))" -" s_438))" -"((e165_0)" -"(let-values(((s_112)" +" s_442)))" +" s_113))" +"((e164_0)" +"(let-values(((s_114)" "(cdr" -" s_111)))" -"(let-values(((s_439)" +" s_442)))" +"(let-values(((s_115)" "(if(syntax?$1" -" s_112)" +" s_114)" "(syntax-e$1" -" s_112)" -" s_112)))" +" s_114)" +" s_114)))" "(let-values(((flat-s_20)" "(to-syntax-list.1" -" s_439)))" +" s_115)))" "(if(not" " flat-s_20)" "(let-values()" "(raise-syntax-error$1" " #f" -" \"bad syntax\"" +" \"bad syntax\"" " orig-s_33))" "(let-values()" " flat-s_20)))))))" "(values" -" begin164_0" -" e165_0))" +" begin163_0" +" e164_0))" "(raise-syntax-error$1" " #f" -" \"bad syntax\"" +" \"bad syntax\"" " orig-s_33)))))" "(values" " #t" -" begin162_1" -" e163_1))))))" +" begin161_1" +" e162_1))))))" "(letrec-values(((begin-loop_0)" "(lambda(es_2)" "(begin" @@ -43923,20 +43975,20 @@ static const char *startup_source = "(let-values()" "(loop_98" "(car es_2)" -" phase_50" -" ns_104" +" phase_138" +" ns_101" " as-tail?_7))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_44)" +"(let-values(((obs_46)" "(expand-context-observer" " tl-ctx_0)))" -"(if obs_44" +"(if obs_46" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_44" +" obs_46" " 'next)))" "(void)))" "(values))))" @@ -43945,15 +43997,15 @@ static const char *startup_source = "(loop_98" "(car" " es_2)" -" phase_50" -" ns_104" +" phase_138" +" ns_101" " #f)" "(begin" "(loop_98" "(car" " es_2)" -" phase_50" -" ns_104" +" phase_138" +" ns_101" " #f)" "(void)))))" "(if combine_0" @@ -43969,86 +44021,120 @@ static const char *startup_source = "(let-values()" "(let-values(((new-s_3)" "(wrap_2" -" begin162_0" +" begin161_0" " exp-s_8" "(begin-loop_0" -" e163_0))))" +" e162_0))))" "(begin" -"(log-top-begin-after" -" tl-ctx_0" -" new-s_3)" +"(let-values(((obs_47)" +"(expand-context-observer" +" tl-ctx_0)))" +"(if obs_47" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_47" +" 'return" +" new-s_3)))" +"(void)))" " new-s_3)))" "(let-values()" -"(begin-loop_0 e163_0)))))))" +"(begin-loop_0 e162_0)))))))" "(if(equal? tmp_36 'begin-for-syntax)" "(let-values()" +"(let-values((()" +"(begin" +"(let-values(((obs_48)" +"(expand-context-observer" +" tl-ctx_0)))" +"(if obs_48" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_48" +" 'prim-begin-for-syntax)))" +"(void)))" +"(values))))" "(let-values(((ok?_29" -" begin-for-syntax166_0" -" e167_0)" -"(let-values(((s_220)" +" begin-for-syntax165_0" +" e166_0)" +"(let-values(((s_443)" " disarmed-exp-s_0))" "(let-values(((orig-s_34)" -" s_220))" -"(let-values(((begin-for-syntax166_1" -" e167_1)" -"(let-values(((s_440)" +" s_443))" +"(let-values(((begin-for-syntax165_1" +" e166_1)" +"(let-values(((s_444)" "(if(syntax?$1" -" s_220)" +" s_443)" "(syntax-e$1" -" s_220)" -" s_220)))" +" s_443)" +" s_443)))" "(if(pair?" -" s_440)" -"(let-values(((begin-for-syntax168_0)" -"(let-values(((s_441)" +" s_444)" +"(let-values(((begin-for-syntax167_0)" +"(let-values(((s_445)" "(car" -" s_440)))" -" s_441))" -"((e169_0)" -"(let-values(((s_442)" +" s_444)))" +" s_445))" +"((e168_0)" +"(let-values(((s_446)" "(cdr" -" s_440)))" -"(let-values(((s_223)" +" s_444)))" +"(let-values(((s_447)" "(if(syntax?$1" -" s_442)" +" s_446)" "(syntax-e$1" -" s_442)" -" s_442)))" +" s_446)" +" s_446)))" "(let-values(((flat-s_21)" "(to-syntax-list.1" -" s_223)))" +" s_447)))" "(if(not" " flat-s_21)" "(let-values()" "(raise-syntax-error$1" " #f" -" \"bad syntax\"" +" \"bad syntax\"" " orig-s_34))" "(let-values()" " flat-s_21)))))))" "(values" -" begin-for-syntax168_0" -" e169_0))" +" begin-for-syntax167_0" +" e168_0))" "(raise-syntax-error$1" " #f" -" \"bad syntax\"" +" \"bad syntax\"" " orig-s_34)))))" "(values" " #t" -" begin-for-syntax166_1" -" e167_1))))))" +" begin-for-syntax165_1" +" e166_1))))))" "(let-values(((next-phase_0)" -"(add1 phase_50)))" +"(add1 phase_138)))" "(let-values(((next-ns_0)" "(namespace->namespace-at-phase" -" ns_104" +" ns_101" " next-phase_0)))" "(let-values((()" "(begin" +"(let-values(((obs_49)" +"(expand-context-observer" +" tl-ctx_0)))" +"(if obs_49" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_49" +" 'prepare-env)))" +"(void)))" +"(values))))" +"(let-values((()" +"(begin" "(if quick-immediate?_0" "(let-values()" "(namespace-visit-available-modules!" -" ns_104))" +" ns_101))" "(void))" "(values))))" "(let-values((()" @@ -44059,7 +44145,7 @@ static const char *startup_source = "(let-values(((l_72)" "(reverse$1" "(let-values(((lst_293)" -" e167_0))" +" e166_0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -44067,213 +44153,238 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_293)))" -"((letrec-values(((for-loop_253)" -"(lambda(fold-var_258" +"((letrec-values(((for-loop_247)" +"(lambda(fold-var_243" " lst_294)" "(begin" " 'for-loop" "(if(pair?" " lst_294)" -"(let-values(((s_443)" +"(let-values(((s_448)" "(unsafe-car" " lst_294))" "((rest_166)" "(unsafe-cdr" " lst_294)))" -"(let-values(((fold-var_259)" -"(let-values(((fold-var_260)" -" fold-var_258))" -"(let-values(((fold-var_261)" +"(let-values(((fold-var_244)" +"(let-values(((fold-var_245)" +" fold-var_243))" +"(let-values(((fold-var_246)" "(let-values()" "(cons" "(let-values()" +"(begin" +"(let-values(((obs_50)" +"(expand-context-observer" +" tl-ctx_0)))" +"(if obs_50" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_50" +" 'next)))" +"(void)))" "(loop_98" -" s_443" +" s_448" " next-phase_0" " next-ns_0" -" #f))" -" fold-var_260))))" +" #f)))" +" fold-var_245))))" "(values" -" fold-var_261)))))" +" fold-var_246)))))" "(if(not" " #f)" -"(for-loop_253" -" fold-var_259" +"(for-loop_247" +" fold-var_244" " rest_166)" -" fold-var_259)))" -" fold-var_258)))))" -" for-loop_253)" +" fold-var_244)))" +" fold-var_243)))))" +" for-loop_247)" " null" " lst_293))))))" "(if wrap_2" "(let-values()" +"(let-values(((new-s_4)" "(wrap_2" -" begin-for-syntax166_0" +" begin-for-syntax165_0" " exp-s_8" -" l_72))" +" l_72)))" +"(begin" +"(let-values(((obs_51)" +"(expand-context-observer" +" tl-ctx_0)))" +"(if obs_51" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_51" +" 'return" +" new-s_4)))" +"(void)))" +" new-s_4)))" "(if combine_0" "(let-values() l_72)" "(let-values()" -"(void)))))))))))" +"(void)))))))))))))" "(let-values()" "(single_0" " exp-s_8" -" ns_104" -" as-tail?_7)))))))))))))))))" +" ns_101" +" as-tail?_7))))))))))))))))))" " loop_98)" -" s_437" +" s_439" " phase_137" -" ns_103" +" ns_100" " #t)))))))))))))))))" "(define-values" "(maybe-intro)" -"(lambda(s_234 ns_105)" -"(begin(if(syntax?$1 s_234) s_234(1/namespace-syntax-introduce(1/datum->syntax #f s_234) ns_105)))))" +"(lambda(s_345 ns_102)" +"(begin(if(syntax?$1 s_345) s_345(1/namespace-syntax-introduce(1/datum->syntax #f s_345) ns_102)))))" "(define-values" "(re-pair)" -"(lambda(form-id_0 s_444 r_45)" -"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_444)(cons form-id_0 r_45) s_444 s_444) s_444))))" +"(lambda(form-id_0 s_449 r_45)" +"(begin(syntax-rearm$1(1/datum->syntax(syntax-disarm$1 s_449)(cons form-id_0 r_45) s_449 s_449) s_449))))" "(define-values" "(expand-capturing-lifts)" -"(lambda(s_339 ctx_66)" +"(lambda(s_450 ctx_67)" "(begin" "(let-values()" -"(let-values(((ns_106)(expand-context-namespace ctx_66)))" -"(let-values((()(begin(namespace-visit-available-modules! ns_106)(values))))" +"(let-values(((ns_103)(expand-context-namespace ctx_67)))" +"(let-values((()(begin(namespace-visit-available-modules! ns_103)(values))))" "(let-values(((lift-ctx_6)" -"(let-values(((temp170_1)(make-top-level-lift ctx_66)))" -"(make-lift-context6.1 #f #f temp170_1))))" +"(let-values(((temp169_0)(make-top-level-lift ctx_67)))" +"(make-lift-context6.1 #f #f temp169_0))))" "(let-values(((require-lift-ctx_2)" "(make-require-lift-context" -"(namespace-phase ns_106)" -"(make-parse-top-lifted-require ns_106))))" +"(namespace-phase ns_103)" +"(make-parse-top-lifted-require ns_103))))" "(let-values(((exp-s_9)" -"(let-values(((s171_0) s_339)" -"((temp172_0)" -"(let-values(((v_193) ctx_66))" -"(let-values(((the-struct_77) v_193))" -"(if(expand-context/outer? the-struct_77)" -"(let-values(((inner173_0)" -"(let-values(((the-struct_78)" -"(root-expand-context/outer-inner v_193)))" -"(if(expand-context/inner? the-struct_78)" -"(let-values(((lifts174_0) lift-ctx_6)" -"((module-lifts175_0) lift-ctx_6)" -"((require-lifts176_0)" +"(let-values(((s170_0) s_450)" +"((temp171_0)" +"(let-values(((v_160) ctx_67))" +"(let-values(((the-struct_75) v_160))" +"(if(expand-context/outer? the-struct_75)" +"(let-values(((inner172_0)" +"(let-values(((the-struct_76)" +"(root-expand-context/outer-inner v_160)))" +"(if(expand-context/inner? the-struct_76)" +"(let-values(((lifts173_0) lift-ctx_6)" +"((module-lifts174_0) lift-ctx_6)" +"((require-lifts175_0)" " require-lift-ctx_2))" "(expand-context/inner2.1" "(root-expand-context/inner-module-scopes" -" the-struct_78)" +" the-struct_76)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_78)" +" the-struct_76)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_78)" +" the-struct_76)" "(root-expand-context/inner-defined-syms" -" the-struct_78)" -"(root-expand-context/inner-counter the-struct_78)" +" the-struct_76)" +"(root-expand-context/inner-counter the-struct_76)" "(root-expand-context/inner-lift-key" -" the-struct_78)" -"(expand-context/inner-to-parsed? the-struct_78)" -"(expand-context/inner-phase the-struct_78)" -"(expand-context/inner-namespace the-struct_78)" -"(expand-context/inner-just-once? the-struct_78)" +" the-struct_76)" +"(expand-context/inner-to-parsed? the-struct_76)" +"(expand-context/inner-phase the-struct_76)" +"(expand-context/inner-namespace the-struct_76)" +"(expand-context/inner-just-once? the-struct_76)" "(expand-context/inner-module-begin-k" -" the-struct_78)" +" the-struct_76)" "(expand-context/inner-allow-unbound?" -" the-struct_78)" +" the-struct_76)" "(expand-context/inner-in-local-expand?" -" the-struct_78)" -"(expand-context/inner-stops the-struct_78)" +" the-struct_76)" +"(expand-context/inner-stops the-struct_76)" "(expand-context/inner-declared-submodule-names" -" the-struct_78)" -" lifts174_0" -"(expand-context/inner-lift-envs the-struct_78)" -" module-lifts175_0" -" require-lifts176_0" +" the-struct_76)" +" lifts173_0" +"(expand-context/inner-lift-envs the-struct_76)" +" module-lifts174_0" +" require-lifts175_0" "(expand-context/inner-to-module-lifts" -" the-struct_78)" +" the-struct_76)" "(expand-context/inner-requires+provides" -" the-struct_78)" -"(expand-context/inner-observer the-struct_78)" +" the-struct_76)" +"(expand-context/inner-observer the-struct_76)" "(expand-context/inner-for-serializable?" -" the-struct_78)" +" the-struct_76)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_78)))" +" the-struct_76)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_78)))))" +" the-struct_76)))))" "(expand-context/outer1.1" -" inner173_0" -"(root-expand-context/outer-post-expansion-scope the-struct_77)" -"(root-expand-context/outer-use-site-scopes the-struct_77)" -"(root-expand-context/outer-frame-id the-struct_77)" -"(expand-context/outer-context the-struct_77)" -"(expand-context/outer-env the-struct_77)" -"(expand-context/outer-post-expansion-scope-action the-struct_77)" -"(expand-context/outer-scopes the-struct_77)" -"(expand-context/outer-def-ctx-scopes the-struct_77)" -"(expand-context/outer-binding-layer the-struct_77)" -"(expand-context/outer-reference-records the-struct_77)" -"(expand-context/outer-only-immediate? the-struct_77)" -"(expand-context/outer-need-eventually-defined the-struct_77)" -"(expand-context/outer-current-introduction-scopes the-struct_77)" -"(expand-context/outer-name the-struct_77)))" +" inner172_0" +"(root-expand-context/outer-post-expansion-scope the-struct_75)" +"(root-expand-context/outer-use-site-scopes the-struct_75)" +"(root-expand-context/outer-frame-id the-struct_75)" +"(expand-context/outer-context the-struct_75)" +"(expand-context/outer-env the-struct_75)" +"(expand-context/outer-post-expansion-scope-action the-struct_75)" +"(expand-context/outer-scopes the-struct_75)" +"(expand-context/outer-def-ctx-scopes the-struct_75)" +"(expand-context/outer-binding-layer the-struct_75)" +"(expand-context/outer-reference-records the-struct_75)" +"(expand-context/outer-only-immediate? the-struct_75)" +"(expand-context/outer-need-eventually-defined the-struct_75)" +"(expand-context/outer-current-introduction-scopes the-struct_75)" +"(expand-context/outer-name the-struct_75)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_77))))))" -"(expand7.1 #f #f #f #f s171_0 temp172_0))))" +" the-struct_75))))))" +"(expand7.1 #f #f #f #f s170_0 temp171_0))))" "(values" "(get-and-clear-require-lifts! require-lift-ctx_2)" "(get-and-clear-lifts! lift-ctx_6)" " exp-s_9))))))))))" "(define-values" "(make-parse-top-lifted-require)" -"(lambda(ns_107)" +"(lambda(ns_104)" "(begin" -"(lambda(s_445 phase_138)" -"(let-values(((ok?_30 #%require177_0 req178_0)" -"(let-values(((s_350)(syntax-disarm$1 s_445)))" -"(let-values(((orig-s_35) s_350))" -"(let-values(((#%require177_1 req178_1)" -"(let-values(((s_243)(if(syntax?$1 s_350)(syntax-e$1 s_350) s_350)))" -"(if(pair? s_243)" -"(let-values(((#%require179_0)(let-values(((s_446)(car s_243))) s_446))" -"((req180_0)" -"(let-values(((s_447)(cdr s_243)))" -"(let-values(((s_448)" -"(if(syntax?$1 s_447)" -"(syntax-e$1 s_447)" -" s_447)))" -"(if(pair? s_448)" -"(let-values(((req181_0)" -"(let-values(((s_449)(car s_448)))" -" s_449))" +"(lambda(s_241 phase_139)" +"(let-values(((ok?_30 #%require176_0 req177_0)" +"(let-values(((s_451)(syntax-disarm$1 s_241)))" +"(let-values(((orig-s_35) s_451))" +"(let-values(((#%require176_1 req177_1)" +"(let-values(((s_452)(if(syntax?$1 s_451)(syntax-e$1 s_451) s_451)))" +"(if(pair? s_452)" +"(let-values(((#%require178_0)(let-values(((s_358)(car s_452))) s_358))" +"((req179_0)" +"(let-values(((s_359)(cdr s_452)))" +"(let-values(((s_453)" +"(if(syntax?$1 s_359)" +"(syntax-e$1 s_359)" +" s_359)))" +"(if(pair? s_453)" +"(let-values(((req180_0)" +"(let-values(((s_361)(car s_453)))" +" s_361))" "(()" -"(let-values(((s_450)(cdr s_448)))" -"(let-values(((s_355)" -"(if(syntax?$1 s_450)" -"(syntax-e$1 s_450)" -" s_450)))" -"(if(null? s_355)" +"(let-values(((s_362)(cdr s_453)))" +"(let-values(((s_454)" +"(if(syntax?$1 s_362)" +"(syntax-e$1 s_362)" +" s_362)))" +"(if(null? s_454)" "(values)" "(raise-syntax-error$1" " #f" " \"bad syntax\"" " orig-s_35))))))" -"(values req181_0))" +"(values req180_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_35))))))" -"(values #%require179_0 req180_0))" +"(values #%require178_0 req179_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_35)))))" -"(values #t #%require177_1 req178_1))))))" -"(let-values(((temp182_0)(list req178_0))" -"((s183_0) s_445)" -"((ns184_0) ns_107)" -"((phase185_0) phase_138)" -"((phase186_0) phase_138)" -"((temp187_0)(let-values(((temp189_0) #f))(make-requires+provides8.1 #f #f temp189_0)))" -"((temp188_0) 'require))" +"(values #t #%require176_1 req177_1))))))" +"(let-values(((temp181_0)(list req177_0))" +"((s182_0) s_241)" +"((ns183_0) ns_104)" +"((phase184_1) phase_139)" +"((phase185_0) phase_139)" +"((temp186_0)(let-values(((temp188_0) #f))(make-requires+provides8.1 #f #f temp188_0)))" +"((temp187_0) 'require))" "(parse-and-perform-requires!30.1" " #f" " #f" @@ -44283,7 +44394,7 @@ static const char *startup_source = " #f" " #f" " #f" -" phase186_0" +" phase185_0" " #t" " #f" " #f" @@ -44293,12 +44404,12 @@ static const char *startup_source = " #f" " #f" " #f" -" temp188_0" -" temp182_0" -" s183_0" -" ns184_0" -" phase185_0" -" temp187_0)))))))" +" temp187_0" +" temp181_0" +" s182_0" +" ns183_0" +" phase184_1" +" temp186_0)))))))" "(define-values" "(wrap-lifts-as-lifted-parsed-begin77.1)" "(lambda(adjust-form71_0 require-lifts73_0 lifts74_0 exp-s75_0 rebuild-s76_0)" @@ -44318,43 +44429,43 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_295)))" -"((letrec-values(((for-loop_254)" -"(lambda(fold-var_262 lst_296)" +"((letrec-values(((for-loop_253)" +"(lambda(fold-var_258 lst_296)" "(begin" " 'for-loop" "(if(pair? lst_296)" "(let-values(((req_19)(unsafe-car lst_296))" "((rest_167)(unsafe-cdr lst_296)))" -"(let-values(((fold-var_263)" -"(let-values(((fold-var_264) fold-var_262))" -"(let-values(((fold-var_265)" +"(let-values(((fold-var_259)" +"(let-values(((fold-var_260) fold-var_258))" +"(let-values(((fold-var_261)" "(let-values()" "(cons" "(let-values()" "(parsed-require23.1 req_19))" -" fold-var_264))))" -"(values fold-var_265)))))" -"(if(not #f)(for-loop_254 fold-var_263 rest_167) fold-var_263)))" -" fold-var_262)))))" -" for-loop_254)" +" fold-var_260))))" +"(values fold-var_261)))))" +"(if(not #f)(for-loop_253 fold-var_259 rest_167) fold-var_259)))" +" fold-var_258)))))" +" for-loop_253)" " null" " lst_295))))" "(reverse$1" -"(let-values(((lst_297)(get-lifts-as-lists lifts_13)))" +"(let-values(((lst_140)(get-lifts-as-lists lifts_13)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_297)))" -"((letrec-values(((for-loop_255)" -"(lambda(fold-var_266 lst_298)" +"(let-values()(check-list lst_140)))" +"((letrec-values(((for-loop_254)" +"(lambda(fold-var_262 lst_297)" "(begin" " 'for-loop" -"(if(pair? lst_298)" -"(let-values(((ids+syms+rhs_0)(unsafe-car lst_298))" -"((rest_168)(unsafe-cdr lst_298)))" -"(let-values(((fold-var_267)" -"(let-values(((fold-var_268) fold-var_266))" -"(let-values(((fold-var_269)" +"(if(pair? lst_297)" +"(let-values(((ids+syms+rhs_0)(unsafe-car lst_297))" +"((rest_168)(unsafe-cdr lst_297)))" +"(let-values(((fold-var_263)" +"(let-values(((fold-var_264) fold-var_262))" +"(let-values(((fold-var_265)" "(let-values()" "(cons" "(let-values()" @@ -44378,64 +44489,64 @@ static const char *startup_source = " just-rhs_0)))" "(if(lifted-parsed-begin?" " exp-rhs_3)" -"(let-values(((the-struct_79)" +"(let-values(((the-struct_77)" " exp-rhs_3))" "(if(lifted-parsed-begin?" -" the-struct_79)" -"(let-values(((last190_0)" +" the-struct_77)" +"(let-values(((last189_0)" " dv_0))" "(lifted-parsed-begin30.1" "(lifted-parsed-begin-seq" -" the-struct_79)" -" last190_0))" +" the-struct_77)" +" last189_0))" "(raise-argument-error" " 'struct-copy" " \"lifted-parsed-begin?\"" -" the-struct_79)))" +" the-struct_77)))" " dv_0)))))" -" fold-var_268))))" -"(values fold-var_269)))))" -"(if(not #f)(for-loop_255 fold-var_267 rest_168) fold-var_267)))" -" fold-var_266)))))" -" for-loop_255)" +" fold-var_264))))" +"(values fold-var_265)))))" +"(if(not #f)(for-loop_254 fold-var_263 rest_168) fold-var_263)))" +" fold-var_262)))))" +" for-loop_254)" " null" -" lst_297)))))" +" lst_140)))))" " exp-s_10))))))))))" "(define-values" "(log-top-lift-begin-before)" -"(lambda(ctx_67 require-lifts_7 lifts_14 exp-s_11 ns_108)" +"(lambda(ctx_68 require-lifts_7 lifts_14 exp-s_11 ns_105)" "(begin" -"(let-values(((obs_45)(expand-context-observer ctx_67)))" -"(if obs_45" +"(let-values(((obs_52)(expand-context-observer ctx_68)))" +"(if obs_52" "(let-values()" -"(let-values(((new-s_4)" -"(let-values(((temp191_0)(append require-lifts_7 lifts_14))" -"((exp-s192_0) exp-s_11)" -"((temp193_0)(namespace-phase ns_108)))" -"(wrap-lifts-as-begin16.1 #f #f #f #f temp191_0 exp-s192_0 temp193_0))))" -"(begin(call-expand-observe obs_45 'lift-loop new-s_4)(log-top-begin-before ctx_67 new-s_4))))" +"(let-values(((new-s_5)" +"(let-values(((temp190_0)(append require-lifts_7 lifts_14))" +"((exp-s191_0) exp-s_11)" +"((temp192_0)(namespace-phase ns_105)))" +"(wrap-lifts-as-begin16.1 #f #f #f #f temp190_0 exp-s191_0 temp192_0))))" +"(begin(call-expand-observe obs_52 'lift-loop new-s_5)(log-top-begin-before ctx_68 new-s_5))))" "(void))))))" "(define-values" "(log-top-begin-before)" -"(lambda(ctx_68 new-s_5)" +"(lambda(ctx_69 new-s_6)" "(begin" -"(let-values(((obs_46)(expand-context-observer ctx_68)))" -"(if obs_46" +"(let-values(((obs_53)(expand-context-observer ctx_69)))" +"(if obs_53" "(let-values()" -"(let-values(((ok?_31 begin194_0 e195_0)" -"(let-values(((s_261) new-s_5))" -"(let-values(((orig-s_36) s_261))" -"(let-values(((begin194_1 e195_1)" -"(let-values(((s_451)(if(syntax?$1 s_261)(syntax-e$1 s_261) s_261)))" -"(if(pair? s_451)" -"(let-values(((begin196_0)(let-values(((s_265)(car s_451))) s_265))" -"((e197_0)" -"(let-values(((s_266)(cdr s_451)))" -"(let-values(((s_452)" -"(if(syntax?$1 s_266)" -"(syntax-e$1 s_266)" -" s_266)))" -"(let-values(((flat-s_22)(to-syntax-list.1 s_452)))" +"(let-values(((ok?_31 begin193_0 e194_0)" +"(let-values(((s_455) new-s_6))" +"(let-values(((orig-s_36) s_455))" +"(let-values(((begin193_1 e194_1)" +"(let-values(((s_456)(if(syntax?$1 s_455)(syntax-e$1 s_455) s_455)))" +"(if(pair? s_456)" +"(let-values(((begin195_0)(let-values(((s_457)(car s_456))) s_457))" +"((e196_0)" +"(let-values(((s_458)(cdr s_456)))" +"(let-values(((s_459)" +"(if(syntax?$1 s_458)" +"(syntax-e$1 s_458)" +" s_458)))" +"(let-values(((flat-s_22)(to-syntax-list.1 s_459)))" "(if(not flat-s_22)" "(let-values()" "(raise-syntax-error$1" @@ -44443,37 +44554,37 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_36))" "(let-values() flat-s_22)))))))" -"(values begin196_0 e197_0))" +"(values begin195_0 e196_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_36)))))" -"(values #t begin194_1 e195_1))))))" +"(values #t begin193_1 e194_1))))))" "(begin" -"(call-expand-observe obs_46 'visit new-s_5)" -"(call-expand-observe obs_46 'resolve begin194_0)" -"(call-expand-observe obs_46 'enter-prim new-s_5)" -"(call-expand-observe obs_46 'prim-begin)" -"(call-expand-observe obs_46 'enter-list(1/datum->syntax #f e195_0 new-s_5)))))" +"(call-expand-observe obs_53 'visit new-s_6)" +"(call-expand-observe obs_53 'resolve begin193_0)" +"(call-expand-observe obs_53 'enter-prim new-s_6)" +"(call-expand-observe obs_53 'prim-begin)" +"(call-expand-observe obs_53 'enter-list(1/datum->syntax #f e194_0 new-s_6)))))" "(void))))))" "(define-values" "(log-top-begin-after)" -"(lambda(ctx_69 new-s_6)" +"(lambda(ctx_70 new-s_7)" "(begin" -"(let-values(((obs_47)(expand-context-observer ctx_69)))" -"(if obs_47" +"(let-values(((obs_54)(expand-context-observer ctx_70)))" +"(if obs_54" "(let-values()" -"(let-values(((ok?_32 begin198_0 e199_0)" -"(let-values(((s_453) new-s_6))" -"(let-values(((orig-s_37) s_453))" -"(let-values(((begin198_1 e199_1)" -"(let-values(((s_454)(if(syntax?$1 s_453)(syntax-e$1 s_453) s_453)))" -"(if(pair? s_454)" -"(let-values(((begin200_0)(let-values(((s_455)(car s_454))) s_455))" -"((e201_0)" -"(let-values(((s_456)(cdr s_454)))" -"(let-values(((s_457)" -"(if(syntax?$1 s_456)" -"(syntax-e$1 s_456)" -" s_456)))" -"(let-values(((flat-s_23)(to-syntax-list.1 s_457)))" +"(let-values(((ok?_32 begin197_0 e198_0)" +"(let-values(((s_460) new-s_7))" +"(let-values(((orig-s_37) s_460))" +"(let-values(((begin197_1 e198_1)" +"(let-values(((s_461)(if(syntax?$1 s_460)(syntax-e$1 s_460) s_460)))" +"(if(pair? s_461)" +"(let-values(((begin199_0)(let-values(((s_462)(car s_461))) s_462))" +"((e200_0)" +"(let-values(((s_463)(cdr s_461)))" +"(let-values(((s_464)" +"(if(syntax?$1 s_463)" +"(syntax-e$1 s_463)" +" s_463)))" +"(let-values(((flat-s_23)(to-syntax-list.1 s_464)))" "(if(not flat-s_23)" "(let-values()" "(raise-syntax-error$1" @@ -44481,17 +44592,17 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_37))" "(let-values() flat-s_23)))))))" -"(values begin200_0 e201_0))" +"(values begin199_0 e200_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_37)))))" -"(values #t begin198_1 e199_1))))))" -"(let-values(((obs_48)(expand-context-observer ctx_69)))" -"(if obs_48" +"(values #t begin197_1 e198_1))))))" +"(let-values(((obs_55)(expand-context-observer ctx_70)))" +"(if obs_55" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_48 'exit-list(1/datum->syntax #f e199_0 new-s_6))" -"(call-expand-observe obs_48 'exit-prim new-s_6)" -"(call-expand-observe obs_48 'return new-s_6))))" +"(call-expand-observe obs_55 'exit-list(1/datum->syntax #f e198_0 new-s_7))" +"(call-expand-observe obs_55 'exit-prim new-s_7)" +"(call-expand-observe obs_55 'return new-s_7))))" "(void)))))" "(void))))))" "(define-values" @@ -44552,10 +44663,10 @@ static const char *startup_source = "(resolved-module-path->module-path mod-path_5)" " #f))))))" "(let-values(((mod-name_22)(1/module-path-index-resolve mpi_46 #t)))" -"(let-values(((phase_139)(namespace-phase ns_57)))" +"(let-values(((phase_140)(namespace-phase ns_57)))" "(if(not sym_80)" "(let-values()" -"(let-values(((phase23_0) phase_139)((temp24_5) #f))" +"(let-values(((phase23_0) phase_140)((temp24_5) #f))" "(namespace-module-instantiate!96.1" " temp24_5" " #t" @@ -44567,10 +44678,10 @@ static const char *startup_source = " #f" " ns_57" " mpi_46" -" phase_139)))" +" phase_140)))" "(if(equal? sym_80 0)" "(let-values()" -"(let-values(((phase28_1) phase_139))" +"(let-values(((phase28_1) phase_140))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -44582,16 +44693,16 @@ static const char *startup_source = " #f" " ns_57" " mpi_46" -" phase_139)))" +" phase_140)))" "(if(void? sym_80)" "(let-values()" -"(let-values(((phase32_4) phase_139))" +"(let-values(((phase32_4) phase_140))" "(namespace-module-visit!104.1" " phase32_4" " #t" " ns_57" " mpi_46" -" phase_139)))" +" phase_140)))" "(let-values()" "(let-values(((m_22)(namespace->module ns_57 mod-name_22)))" "(let-values((()" @@ -44629,7 +44740,7 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((phase36_0)" -" phase_139))" +" phase_140))" "(namespace-module-instantiate!96.1" " #f" " #f" @@ -44641,7 +44752,7 @@ static const char *startup_source = " #f" " ns_57" " mpi_46" -" phase_139))" +" phase_140))" "(values))))" "(let-values(((ex-mod-name_0)" "(1/module-path-index-resolve" @@ -44652,7 +44763,7 @@ static const char *startup_source = "(let-values(((m-ns_16)" "(let-values(((temp39_4)" "(phase-" -" phase_139" +" phase_140" " ex-phase_0))" "((temp40_2) #t))" "(namespace->module-namespace82.1" @@ -44745,13 +44856,13 @@ static const char *startup_source = "(let-values((()" "(begin" "(let-values(((phase44_0)" -" phase_139))" +" phase_140))" "(namespace-module-visit!104.1" " phase44_0" " #t" " ns_57" " mpi_46" -" phase_139))" +" phase_140))" "(values))))" "(let-values(((t_54)" "(namespace-get-transformer" @@ -44823,8 +44934,8 @@ static const char *startup_source = "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " 1/current-namespace" -"(let-values(((ns_109)(1/current-namespace)))" -"(namespace->namespace-at-phase ns_109(add1(namespace-phase ns_109)))))" +"(let-values(((ns_106)(1/current-namespace)))" +"(namespace->namespace-at-phase ns_106(add1(namespace-phase ns_106)))))" "(let-values()" "(do-dynamic-require 'dynamic-require-for-syntax mod-path_22 sym_85 fail-k_4)))))))))))" "(case-lambda" @@ -44988,12 +45099,12 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_145)))" -"((letrec-values(((for-loop_256)" +"((letrec-values(((for-loop_255)" "(lambda(table_201 i_86)" "(begin" " 'for-loop" "(if i_86" -"(let-values(((k_35 v_194)(hash-iterate-key+value ht_145 i_86)))" +"(let-values(((k_35 v_192)(hash-iterate-key+value ht_145 i_86)))" "(let-values(((table_202)" "(let-values(((table_103) table_201))" "(let-values(((table_203)" @@ -45002,17 +45113,17 @@ static const char *startup_source = "(let-values()" "(values" " k_35" -"(to-path v_194)))))" +"(to-path v_192)))))" "(hash-set" " table_103" " key_82" " val_73)))))" "(values table_203)))))" "(if(not #f)" -"(for-loop_256 table_202(hash-iterate-next ht_145 i_86))" +"(for-loop_255 table_202(hash-iterate-next ht_145 i_86))" " table_202)))" " table_201)))))" -" for-loop_256)" +" for-loop_255)" " '#hash()" "(hash-iterate-first ht_145)))))))))" " l_74)))))))" @@ -45065,7 +45176,7 @@ static const char *startup_source = " (let-values () (raise-argument-error 'use-compiled-file-check \"(or/c 'modify-seconds 'exists)\" v_181)))" " v_181))))))" "(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_195)(if v_195 #t #f))))" +"(define-values(1/use-user-specific-search-paths)(make-parameter #t(lambda(v_193)(if v_193 #t #f))))" "(define-values(complete-path-string?)(lambda(p_20)(begin(if(path-string? p_20)(complete-path? p_20) #f))))" "(define-values" "(relative-path-string?$1)" @@ -45511,8 +45622,8 @@ static const char *startup_source = "(let-values()(hash-set! ht_148 #f null)))" "(hash-for-each" " ht_148" -"(lambda(k_37 v_196)" -"(hash-set! ht_148 k_37(cons dir_1 v_196))))))" +"(lambda(k_37 v_194)" +"(hash-set! ht_148 k_37(cons dir_1 v_194))))))" "(let-values()" "(let-values(((s_16)(string->symbol(car p_62))))" "(hash-set!" @@ -45523,7 +45634,7 @@ static const char *startup_source = " v_131)" "(hash-for-each" " ht_148" -"(lambda(k_38 v_197)(hash-set! ht_148 k_38(reverse$1 v_197))))" +"(lambda(k_38 v_195)(hash-set! ht_148 k_38(reverse$1 v_195))))" "(hash-set! links-cache links-path_0(cons ts_1 ht_148))" " ht_148))))))))))))))))))))))" "(define-values" @@ -45765,13 +45876,13 @@ static const char *startup_source = "(if(null? l_80)" " null" "(let-values(((collects-path_1)(car l_80)))" -"(let-values(((v_198)" +"(let-values(((v_196)" "(exe-relative-path->complete-path" " collects-path_1)))" -"(if v_198" +"(if v_196" "(cons" "(simplify-path" -"(path->complete-path v_198(current-directory)))" +"(path->complete-path v_196(current-directory)))" "(loop_83(cdr l_80)))" "(loop_83(cdr l_80))))))))))" " loop_83)" @@ -45921,43 +46032,43 @@ static const char *startup_source = " indentations_0" " keep-comment?_0))))" "(define-values(read-config-wrap)(lambda(v_183)(begin(read-config/outer-wrap v_183))))" -"(define-values(read-config-line)(lambda(v_199)(begin(read-config/outer-line v_199))))" -"(define-values(read-config-col)(lambda(v_200)(begin(read-config/outer-col v_200))))" -"(define-values(read-config-pos)(lambda(v_201)(begin(read-config/outer-pos v_201))))" -"(define-values(read-config-indentations)(lambda(v_202)(begin(read-config/outer-indentations v_202))))" -"(define-values(read-config-keep-comment?)(lambda(v_203)(begin(read-config/outer-keep-comment? v_203))))" +"(define-values(read-config-line)(lambda(v_197)(begin(read-config/outer-line v_197))))" +"(define-values(read-config-col)(lambda(v_198)(begin(read-config/outer-col v_198))))" +"(define-values(read-config-pos)(lambda(v_199)(begin(read-config/outer-pos v_199))))" +"(define-values(read-config-indentations)(lambda(v_200)(begin(read-config/outer-indentations v_200))))" +"(define-values(read-config-keep-comment?)(lambda(v_201)(begin(read-config/outer-keep-comment? v_201))))" "(define-values" "(read-config-readtable)" -"(lambda(v_204)(begin(read-config/inner-readtable(read-config/outer-inner v_204)))))" +"(lambda(v_202)(begin(read-config/inner-readtable(read-config/outer-inner v_202)))))" "(define-values" "(read-config-next-readtable)" "(lambda(v_92)(begin(read-config/inner-next-readtable(read-config/outer-inner v_92)))))" "(define-values" "(read-config-for-syntax?)" -"(lambda(v_205)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_205)))))" +"(lambda(v_203)(begin(read-config/inner-for-syntax?(read-config/outer-inner v_203)))))" "(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_206)(begin(read-config/inner-read-compiled(read-config/outer-inner v_206)))))" +"(lambda(v_204)(begin(read-config/inner-read-compiled(read-config/outer-inner v_204)))))" "(define-values" "(read-config-dynamic-require)" -"(lambda(v_207)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_207)))))" +"(lambda(v_205)(begin(read-config/inner-dynamic-require(read-config/outer-inner v_205)))))" "(define-values" "(read-config-module-declared?)" "(lambda(v_38)(begin(read-config/inner-module-declared?(read-config/outer-inner v_38)))))" "(define-values" "(read-config-coerce)" -"(lambda(v_208)(begin(read-config/inner-coerce(read-config/outer-inner v_208)))))" +"(lambda(v_206)(begin(read-config/inner-coerce(read-config/outer-inner v_206)))))" "(define-values" "(read-config-coerce-key)" -"(lambda(v_209)(begin(read-config/inner-coerce-key(read-config/outer-inner v_209)))))" +"(lambda(v_207)(begin(read-config/inner-coerce-key(read-config/outer-inner v_207)))))" "(define-values" "(read-config-parameter-override)" -"(lambda(v_198)(begin(read-config/inner-parameter-override(read-config/outer-inner v_198)))))" +"(lambda(v_196)(begin(read-config/inner-parameter-override(read-config/outer-inner v_196)))))" "(define-values" "(read-config-parameter-cache)" -"(lambda(v_210)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_210)))))" -"(define-values(read-config-st)(lambda(v_211)(begin(read-config/inner-st(read-config/outer-inner v_211)))))" +"(lambda(v_208)(begin(read-config/inner-parameter-cache(read-config/outer-inner v_208)))))" +"(define-values(read-config-st)(lambda(v_209)(begin(read-config/inner-st(read-config/outer-inner v_209)))))" "(define-values" "(struct:read-config-state" " read-config-state3.1" @@ -46078,14 +46189,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_212) config_0))" -"(let-values(((the-struct_80) v_212))" -"(if(read-config/outer? the-struct_80)" +"(let-values(((v_210) config_0))" +"(let-values(((the-struct_78) v_210))" +"(if(read-config/outer? the-struct_78)" "(let-values(((wrap48_0) wrap_5)" "((keep-comment?49_0) keep-comment?_2)" "((inner50_0)" -"(let-values(((the-struct_81)(read-config/outer-inner v_212)))" -"(if(read-config/inner? the-struct_81)" +"(let-values(((the-struct_79)(read-config/outer-inner v_210)))" +"(if(read-config/inner? the-struct_79)" "(let-values(((for-syntax?51_0) for-syntax?_4)" "((readtable52_0) readtable_2)" "((next-readtable53_0) next-readtable_2)" @@ -46097,25 +46208,25 @@ static const char *startup_source = " readtable52_0" " next-readtable53_0" " for-syntax?51_0" -"(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-source the-struct_79)" +"(read-config/inner-read-compiled the-struct_79)" +"(read-config/inner-dynamic-require the-struct_79)" +"(read-config/inner-module-declared? the-struct_79)" +"(read-config/inner-coerce the-struct_79)" +"(read-config/inner-coerce-key the-struct_79)" +"(read-config/inner-parameter-override the-struct_79)" +"(read-config/inner-parameter-cache the-struct_79)" " st54_0))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_81)))))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_79)))))" "(read-config/outer1.1" " inner50_0" " wrap48_0" -"(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-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?49_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_80)))))))))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_78)))))))))))))))" "(define-values" "(port+config->srcloc)" "(lambda(in_1 config_1)" @@ -46131,56 +46242,56 @@ static const char *startup_source = "(reading-at)" "(lambda(config_2 line_2 col_1 pos_105)" "(begin" -"(let-values(((v_213) config_2))" -"(let-values(((the-struct_82) v_213))" -"(if(read-config/outer? the-struct_82)" +"(let-values(((v_211) config_2))" +"(let-values(((the-struct_80) v_211))" +"(if(read-config/outer? the-struct_80)" "(let-values(((line55_0) line_2)" "((col56_0) col_1)" "((pos57_0) pos_105)" -"((inner58_1)(read-config/outer-inner v_213)))" +"((inner58_1)(read-config/outer-inner v_211)))" "(read-config/outer1.1" " inner58_1" -"(read-config/outer-wrap the-struct_82)" +"(read-config/outer-wrap the-struct_80)" " line55_0" " col56_0" " pos57_0" -"(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-indentations the-struct_80)" +"(read-config/outer-keep-comment? the-struct_80)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_80)))))))" "(define-values" "(disable-wrapping)" "(lambda(config_3)" "(begin" -"(let-values(((v_214) config_3))" -"(let-values(((the-struct_83) v_214))" -"(if(read-config/outer? the-struct_83)" -"(let-values(((wrap59_0) #f)((inner60_0)(read-config/outer-inner v_214)))" +"(let-values(((v_212) config_3))" +"(let-values(((the-struct_81) v_212))" +"(if(read-config/outer? the-struct_81)" +"(let-values(((wrap59_0) #f)((inner60_0)(read-config/outer-inner v_212)))" "(read-config/outer1.1" " inner60_0" " wrap59_0" -"(read-config/outer-line the-struct_83)" -"(read-config/outer-col the-struct_83)" -"(read-config/outer-pos the-struct_83)" -"(read-config/outer-indentations the-struct_83)" -"(read-config/outer-keep-comment? the-struct_83)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))" +"(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" "(keep-comment)" "(lambda(config_4)" "(begin" "(let-values(((v_144) config_4))" -"(let-values(((the-struct_84) v_144))" -"(if(read-config/outer? the-struct_84)" +"(let-values(((the-struct_82) v_144))" +"(if(read-config/outer? the-struct_82)" "(let-values(((keep-comment?61_0) #t)((inner62_0)(read-config/outer-inner v_144)))" "(read-config/outer1.1" " inner62_0" -"(read-config/outer-wrap the-struct_84)" -"(read-config/outer-line the-struct_84)" -"(read-config/outer-col the-struct_84)" -"(read-config/outer-pos the-struct_84)" -"(read-config/outer-indentations the-struct_84)" +"(read-config/outer-wrap the-struct_82)" +"(read-config/outer-line the-struct_82)" +"(read-config/outer-col the-struct_82)" +"(read-config/outer-pos the-struct_82)" +"(read-config/outer-indentations the-struct_82)" " keep-comment?61_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_84)))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_82)))))))" "(define-values" "(discard-comment)" "(lambda(config_5)" @@ -46188,19 +46299,19 @@ static const char *startup_source = "(if(not(read-config-keep-comment? config_5))" "(let-values() config_5)" "(let-values()" -"(let-values(((v_215) config_5))" -"(let-values(((the-struct_85) v_215))" -"(if(read-config/outer? the-struct_85)" -"(let-values(((keep-comment?63_0) #f)((inner64_0)(read-config/outer-inner v_215)))" +"(let-values(((v_213) config_5))" +"(let-values(((the-struct_83) v_213))" +"(if(read-config/outer? the-struct_83)" +"(let-values(((keep-comment?63_0) #f)((inner64_0)(read-config/outer-inner v_213)))" "(read-config/outer1.1" " inner64_0" -"(read-config/outer-wrap the-struct_85)" -"(read-config/outer-line the-struct_85)" -"(read-config/outer-col the-struct_85)" -"(read-config/outer-pos the-struct_85)" -"(read-config/outer-indentations the-struct_85)" +"(read-config/outer-wrap the-struct_83)" +"(read-config/outer-line the-struct_83)" +"(read-config/outer-col the-struct_83)" +"(read-config/outer-pos the-struct_83)" +"(read-config/outer-indentations the-struct_83)" " keep-comment?63_0))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_85)))))))))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_83)))))))))" "(define-values" "(next-readtable)" "(lambda(config_6)" @@ -46208,36 +46319,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_216) config_6))" -"(let-values(((the-struct_86) v_216))" -"(if(read-config/outer? the-struct_86)" +"(let-values(((v_214) config_6))" +"(let-values(((the-struct_84) v_214))" +"(if(read-config/outer? the-struct_84)" "(let-values(((inner65_0)" -"(let-values(((the-struct_87)(read-config/outer-inner v_216)))" -"(if(read-config/inner? the-struct_87)" +"(let-values(((the-struct_85)(read-config/outer-inner v_214)))" +"(if(read-config/inner? the-struct_85)" "(let-values(((readtable66_0)(read-config-next-readtable config_6)))" "(read-config/inner2.1" " readtable66_0" -"(read-config/inner-next-readtable the-struct_87)" -"(read-config/inner-for-syntax? the-struct_87)" -"(read-config/inner-source the-struct_87)" -"(read-config/inner-read-compiled the-struct_87)" -"(read-config/inner-dynamic-require the-struct_87)" -"(read-config/inner-module-declared? the-struct_87)" -"(read-config/inner-coerce the-struct_87)" -"(read-config/inner-coerce-key the-struct_87)" -"(read-config/inner-parameter-override the-struct_87)" -"(read-config/inner-parameter-cache the-struct_87)" -"(read-config/inner-st the-struct_87)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_87)))))" +"(read-config/inner-next-readtable the-struct_85)" +"(read-config/inner-for-syntax? the-struct_85)" +"(read-config/inner-source the-struct_85)" +"(read-config/inner-read-compiled the-struct_85)" +"(read-config/inner-dynamic-require the-struct_85)" +"(read-config/inner-module-declared? the-struct_85)" +"(read-config/inner-coerce the-struct_85)" +"(read-config/inner-coerce-key the-struct_85)" +"(read-config/inner-parameter-override the-struct_85)" +"(read-config/inner-parameter-cache the-struct_85)" +"(read-config/inner-st the-struct_85)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_85)))))" "(read-config/outer1.1" " inner65_0" -"(read-config/outer-wrap the-struct_86)" -"(read-config/outer-line the-struct_86)" -"(read-config/outer-col the-struct_86)" -"(read-config/outer-pos the-struct_86)" -"(read-config/outer-indentations the-struct_86)" -"(read-config/outer-keep-comment? the-struct_86)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_86)))))))))" +"(read-config/outer-wrap the-struct_84)" +"(read-config/outer-line the-struct_84)" +"(read-config/outer-col the-struct_84)" +"(read-config/outer-pos the-struct_84)" +"(read-config/outer-indentations the-struct_84)" +"(read-config/outer-keep-comment? the-struct_84)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_84)))))))))" "(define-values" "(coerce)" "(lambda(val_74 in_2 config_7)" @@ -46247,20 +46358,20 @@ static const char *startup_source = " for-syntax?_5" " val_74" "(if for-syntax?_5(port+config->srcloc in_2 config_7) #f))))))" -"(define-values(default-reader-guard$1)(lambda(v_217)(begin 'default-reader-guard v_217)))" +"(define-values(default-reader-guard$1)(lambda(v_215)(begin 'default-reader-guard v_215)))" "(define-values" "(1/current-reader-guard)" "(make-parameter" " default-reader-guard$1" -"(lambda(v_218)" +"(lambda(v_216)" "(begin" -"(if(if(procedure? v_218)(procedure-arity-includes? v_218 1) #f)" +"(if(if(procedure? v_216)(procedure-arity-includes? v_216 1) #f)" "(void)" -" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_218)))" -" v_218))))" +" (let-values () (raise-argument-error 'current-reader-guard \"(procedure-arity-includes/c 1)\" v_216)))" +" v_216))))" "(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_219)(if v_219 #t #f))))" -"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_220)(if v_220 #t #f))))" +"(define-values(1/read-curly-brace-as-paren)(make-parameter #t(lambda(v_217)(if v_217 #t #f))))" +"(define-values(1/read-square-bracket-with-tag)(make-parameter #f(lambda(v_218)(if v_218 #t #f))))" "(define-values(1/read-curly-brace-with-tag)(make-parameter #f(lambda(v_62)(if v_62 #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_63)(if v_63 #t #f))))" @@ -46288,36 +46399,36 @@ static const char *startup_source = "(lambda(param_1 config_9 v_28)" "(begin" "(let-values(((v_93) config_9))" -"(let-values(((the-struct_88) v_93))" -"(if(read-config/outer? the-struct_88)" +"(let-values(((the-struct_86) v_93))" +"(if(read-config/outer? the-struct_86)" "(let-values(((inner1_0)" -"(let-values(((the-struct_89)(read-config/outer-inner v_93)))" -"(if(read-config/inner? the-struct_89)" +"(let-values(((the-struct_87)(read-config/outer-inner v_93)))" +"(if(read-config/inner? the-struct_87)" "(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_89)" -"(read-config/inner-next-readtable the-struct_89)" -"(read-config/inner-for-syntax? the-struct_89)" -"(read-config/inner-source the-struct_89)" -"(read-config/inner-read-compiled the-struct_89)" -"(read-config/inner-dynamic-require the-struct_89)" -"(read-config/inner-module-declared? the-struct_89)" -"(read-config/inner-coerce the-struct_89)" -"(read-config/inner-coerce-key the-struct_89)" +"(read-config/inner-readtable the-struct_87)" +"(read-config/inner-next-readtable the-struct_87)" +"(read-config/inner-for-syntax? the-struct_87)" +"(read-config/inner-source the-struct_87)" +"(read-config/inner-read-compiled the-struct_87)" +"(read-config/inner-dynamic-require the-struct_87)" +"(read-config/inner-module-declared? the-struct_87)" +"(read-config/inner-coerce the-struct_87)" +"(read-config/inner-coerce-key the-struct_87)" " parameter-override2_0" -"(read-config/inner-parameter-cache the-struct_89)" -"(read-config/inner-st the-struct_89)))" -" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_89)))))" +"(read-config/inner-parameter-cache the-struct_87)" +"(read-config/inner-st the-struct_87)))" +" (raise-argument-error 'struct-copy \"read-config/inner?\" the-struct_87)))))" "(read-config/outer1.1" " inner1_0" -"(read-config/outer-wrap the-struct_88)" -"(read-config/outer-line the-struct_88)" -"(read-config/outer-col the-struct_88)" -"(read-config/outer-pos the-struct_88)" -"(read-config/outer-indentations the-struct_88)" -"(read-config/outer-keep-comment? the-struct_88)))" -" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_88)))))))" +"(read-config/outer-wrap the-struct_86)" +"(read-config/outer-line the-struct_86)" +"(read-config/outer-col the-struct_86)" +"(read-config/outer-pos the-struct_86)" +"(read-config/outer-indentations the-struct_86)" +"(read-config/outer-keep-comment? the-struct_86)))" +" (raise-argument-error 'struct-copy \"read-config/outer?\" the-struct_86)))))))" "(define-values" "(force-parameters!)" "(lambda(config_10)" @@ -46706,15 +46817,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_151)))" -"((letrec-values(((for-loop_257)" +"((letrec-values(((for-loop_256)" "(lambda(fold-var_79 i_172)" "(begin" " 'for-loop" "(if i_172" -"(let-values(((k_39 v_221)(hash-iterate-key+value ht_151 i_172)))" -"(let-values(((fold-var_270)" +"(let-values(((k_39 v_219)(hash-iterate-key+value ht_151 i_172)))" +"(let-values(((fold-var_266)" "(let-values(((fold-var_82) fold-var_79))" -"(if(eqv? v_221 c_61)" +"(if(eqv? v_219 c_61)" "(let-values(((fold-var_232) fold-var_82))" "(let-values(((fold-var_13)" "(let-values()" @@ -46722,10 +46833,10 @@ static const char *startup_source = "(values fold-var_13)))" " fold-var_82))))" "(if(not #f)" -"(for-loop_257 fold-var_270(hash-iterate-next ht_151 i_172))" -" fold-var_270)))" +"(for-loop_256 fold-var_266(hash-iterate-next ht_151 i_172))" +" fold-var_266)))" " fold-var_79)))))" -" for-loop_257)" +" for-loop_256)" " null" "(hash-iterate-first ht_151))))))))))" "(define-values" @@ -46805,8 +46916,8 @@ static const char *startup_source = " 'with-handlers-handler27" " (let-values (((temp30_2) \"~a\")" "((temp31_4)" -"(let-values(((s_458)(exn-message exn_2)))" -" (regexp-replace \"^[a-z-]*: \" s_458 \"\")))" +"(let-values(((s_465)(exn-message exn_2)))" +" (regexp-replace \"^[a-z-]*: \" s_465 \"\")))" "((temp32_2)(exn-continuation-marks exn_2)))" "(reader-error10.1 temp32_2 #t #f #f #f #f in_8 config_18 temp30_2(list temp31_4)))))))" "(let-values(((bpz_3)(continuation-mark-set-first #f break-enabled-key)))" @@ -47339,19 +47450,19 @@ static const char *startup_source = "(let-values()" "(let-values(((missing_2)" "(let-values(((or-part_262)" -"(let-values(((lst_299)(cdr indts_1)))" +"(let-values(((lst_298)(cdr indts_1)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_299)))" -"((letrec-values(((for-loop_258)" -"(lambda(result_37 lst_300)" +"(let-values()(check-list lst_298)))" +"((letrec-values(((for-loop_257)" +"(lambda(result_37 lst_299)" "(begin" " 'for-loop" -"(if(pair? lst_300)" -"(let-values(((indt_3)(unsafe-car lst_300))" +"(if(pair? lst_299)" +"(let-values(((indt_3)(unsafe-car lst_299))" "((rest_169)" -"(unsafe-cdr lst_300)))" +"(unsafe-cdr lst_299)))" "(let-values(((result_112)" "(let-values()" "(let-values(((result_76)" @@ -47369,12 +47480,12 @@ static const char *startup_source = " indt_3))" "(not #f)" " #f)" -"(for-loop_258 result_112 rest_169)" +"(for-loop_257 result_112 rest_169)" " result_112)))" " result_37)))))" -" for-loop_258)" +" for-loop_257)" " #f" -" lst_299)))))" +" lst_298)))))" " (if or-part_262 or-part_262 \"expected\"))))" "(let-values(((opener-str_0)(opener-name(closer->opener(indentation-closer indt_2)) config_33)))" "(format" @@ -47566,7 +47677,7 @@ static const char *startup_source = " temp31_5" "(list)))))" "(values))))" -"(let-values(((v_222)" +"(let-values(((v_220)" "(read-one/not-eof_0" " #f" " first-read-one_1" @@ -47587,11 +47698,11 @@ static const char *startup_source = "(let-values()" "(if(null?" " accum_0)" -" v_222" +" v_220" "(append" "(reverse$1" " accum_0)" -" v_222)))" +" v_220)))" "(if(if(eqv?" " rest-ec_0" " '#\\.)" @@ -47630,7 +47741,7 @@ static const char *startup_source = "(begin" "(set! head_0" "(box" -" v_222))" +" v_220))" "(values))))" "(let-values(((dot2-line_0" " dot2-col_0" @@ -47715,12 +47826,12 @@ static const char *startup_source = " temp39_5" "(list)))))))))))))" "(let-values()" -"(let-values(((v_196)" +"(let-values(((v_194)" "(read-one/not-eof_0" " c_67" " first-read-one_1" " config/keep-comment_0)))" -"(if(1/special-comment? v_196)" +"(if(1/special-comment? v_194)" "(let-values()" "(loop_106" " depth_11" @@ -47732,13 +47843,13 @@ static const char *startup_source = "(let-values()" "(loop_106" " depth_11" -"(cons v_196 accum_0)" +"(cons v_194 accum_0)" " #f" " #f" " read-one_1))" "(let-values()" "(cons" -" v_196" +" v_194" "(loop_106" "(add1 depth_11)" " null" @@ -47767,10 +47878,10 @@ static const char *startup_source = "(let-values()(if(check-parameter 1/read-curly-brace-with-tag config_35) '#%braces #f))" "(let-values() #f))))))" "(if tag_0(cons(wrap tag_0 in_22 config_35 #f) seq_1) seq_1)))))" -" (define-values (not-an-fX.1) (lambda (who_26 v_223) (begin 'not-an-fX (raise-argument-error who_26 \"fixnum?\" v_223))))" +" (define-values (not-an-fX.1) (lambda (who_26 v_221) (begin 'not-an-fX (raise-argument-error who_26 \"fixnum?\" v_221))))" "(define-values" "(not-an-fX.1$1)" -" (lambda (who_26 v_223) (begin 'not-an-fX (raise-argument-error who_26 \"flonum?\" v_223))))" +" (lambda (who_26 v_221) (begin 'not-an-fX (raise-argument-error who_26 \"flonum?\" v_221))))" "(define-values" "(read-digits13.1)" "(lambda(base1_0" @@ -47806,11 +47917,11 @@ static const char *startup_source = "(consume-char in_12 c_69)" "(if accum-str_0(let-values()(accum-string-add! accum-str_0 c_69))(void))" "((letrec-values(((loop_62)" -"(lambda(v_224 max-count_1)" +"(lambda(v_222 max-count_1)" "(begin" " 'loop" "(if(zero? max-count_1)" -"(let-values() v_224)" +"(let-values() v_222)" "(let-values()" "(let-values(((c_39)" "(let-values(((in_24) in_12)" @@ -47834,9 +47945,9 @@ static const char *startup_source = "(let-values()(accum-string-add! accum-str_0 c_39))" "(void))" "(loop_62" -"(+(digit->number c_39)(* v_224 base_22))" +"(+(digit->number c_39)(* v_222 base_22))" "(sub1 max-count_1))))" -"(let-values() v_224)))))))))" +"(let-values() v_222)))))))))" " loop_62)" "(+(digit->number c_69)(* init-v_0 base_22))" "(sub1 max-count_0))))" @@ -47935,9 +48046,9 @@ static const char *startup_source = " decimal-mode74_0" " convert-mode75_0))))))))))))))" "(case-lambda" -"((s_459)(begin 'string->number(string->number8_0 s_459 #f #f #f #f #f #f)))" -"((s_460 radix_1 convert-mode_1 decimal-mode3_1)" -"(string->number8_0 s_460 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" +"((s_466)(begin 'string->number(string->number8_0 s_466 #f #f #f #f #f #f)))" +"((s_467 radix_1 convert-mode_1 decimal-mode3_1)" +"(string->number8_0 s_467 radix_1 convert-mode_1 decimal-mode3_1 #t #t #t))" "((s_78 radix_2 convert-mode2_1)(string->number8_0 s_78 radix_2 convert-mode2_1 #f #t #t #f))" "((s_427 radix1_1)(string->number8_0 s_427 radix1_1 #f #f #t #f #f)))))" "(define-values" @@ -48139,19 +48250,19 @@ static const char *startup_source = " radix86_0" " exactness88_0" " temp89_4)))))))))))))))" -"(let-values(((c1_27)" +"(let-values(((c1_28)" "(if(char-sign? c_75)" "(read-special-number s_22 start_44 end_33 convert-mode_2)" " #f)))" -"(if c1_27" -"((lambda(v_225)" +"(if c1_28" +"((lambda(v_223)" "(if(eq? exactness_0 'exact)" "(let-values()" "(if(eq? convert-mode_2 'must-read)" -" (let-values () (format \"no exact representation for `~a`\" v_225))" +" (let-values () (format \"no exact representation for `~a`\" v_223))" "(let-values() #f)))" -"(let-values() v_225)))" -" c1_27)" +"(let-values() v_223)))" +" c1_28)" "(let-values(((c2_3)" "(if(char-sign? c_75)" "(if(not in-complex_0)" @@ -48169,17 +48280,17 @@ static const char *startup_source = " #f)" " #f)))" "(if c2_3" -"((lambda(v_226)" +"((lambda(v_224)" "(let-values(((temp91_0)(+ start_44 6))" "((temp92_1)(sub1 end_33))" "((radix93_0) radix_3)" "((exactness94_0) exactness_0)" "((convert-mode95_0) convert-mode_2)" "((temp96_3) 'i)" -"((v97_0) v_226)" +"((v97_0) v_224)" "((temp98_3)" -"(lambda(v_227 v2_0)" -"(begin 'temp98(make-rectangular v_227 v2_0)))))" +"(lambda(v_225 v2_0)" +"(begin 'temp98(make-rectangular v_225 v2_0)))))" "(read-for-special-compound65.1" " temp96_3" " #f" @@ -48220,8 +48331,8 @@ static const char *startup_source = "((temp106_2) #t)" "((v2107_0) v2_1)" "((temp108_2)" -"(lambda(v2_2 v_200)" -"(begin 'temp108(make-rectangular v_200 v2_2)))))" +"(lambda(v2_2 v_198)" +"(begin 'temp108(make-rectangular v_198 v2_2)))))" "(read-for-special-compound65.1" " temp105_2" " temp106_2" @@ -48250,17 +48361,17 @@ static const char *startup_source = " #f)" " #f)))" "(if c4_0" -"((lambda(v_202)" +"((lambda(v_200)" "(let-values(((temp110_4)(+ start_44 7))" "((end111_0) end_33)" "((radix112_0) radix_3)" "((exactness113_0) exactness_0)" "((convert-mode114_0) convert-mode_2)" "((temp115_0) '@)" -"((v116_0) v_202)" +"((v116_0) v_200)" "((temp117_3)" -"(lambda(v_208 v2_3)" -"(begin 'temp117(make-polar v_208 v2_3)))))" +"(lambda(v_206 v2_3)" +"(begin 'temp117(make-polar v_206 v2_3)))))" "(read-for-special-compound65.1" " temp115_0" " #f" @@ -48296,8 +48407,8 @@ static const char *startup_source = "((temp125_2) #t)" "((v2126_0) v2_4)" "((temp127_3)" -"(lambda(v2_5 v_228)" -"(begin 'temp127(make-polar v_228 v2_5)))))" +"(lambda(v2_5 v_226)" +"(begin 'temp127(make-polar v_226 v2_5)))))" "(read-for-special-compound65.1" " temp124_3" " temp125_2" @@ -48395,7 +48506,7 @@ static const char *startup_source = "(let-values() #f)))" "(if i-pos_3" "(let-values()" -"(let-values(((temp140_0)(sub1 end_34))" +"(let-values(((temp140_1)(sub1 end_34))" "((i-pos141_0) i-pos_3)" "((sign-pos142_0) sign-pos_0)" "((radix143_0) radix_5)" @@ -48410,7 +48521,7 @@ static const char *startup_source = " start_45" " sign-pos_0" " sign-pos_0" -" temp140_0" +" temp140_1" " i-pos141_0" " sign-pos142_0" " radix143_0" @@ -48425,10 +48536,10 @@ static const char *startup_source = "((radix155_0) radix_5)" "((radix-set?156_0) radix-set?_1)" "((exactness157_0) exactness_1)" -"((temp158_0) '@)" +"((temp158_1) '@)" "((convert-mode159_0) convert-mode_3))" "(string->complex-number50.1" -" temp158_0" +" temp158_1" " radix-set?156_0" " s_86" " start_45" @@ -48911,10 +49022,10 @@ static const char *startup_source = " p_69))))))))))))))))))))))))))))" "(define-values" "(string->real-number)" -"(lambda(s_461 start_46 end_35 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" +"(lambda(s_468 start_46 end_35 dot-pos_2 slash-pos_1 exp-pos_1 any-hashes?_1 radix_7 exactness_3 convert-mode_5)" "(begin" "(let-values(((extfl-mark?_0)" -"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_461 exp-pos_1)) '#\\t)))))" +"(lambda()(begin 'extfl-mark?(char=?(char-downcase(string-ref s_468 exp-pos_1)) '#\\t)))))" "(let-values(((simple?_0)" "(if(not slash-pos_1)" "(if(let-values(((or-part_326)(eq? exactness_3 'inexact)))" @@ -48927,17 +49038,17 @@ static const char *startup_source = " or-part_328" "(let-values(((or-part_229)(not(eq? convert-mode_5 'number-or-false))))" "(if or-part_229 or-part_229(not(extfl-mark?_0))))))" -"(not(if any-hashes?_1(hashes? s_461 start_46 end_35) #f))" +"(not(if any-hashes?_1(hashes? s_468 start_46 end_35) #f))" " #f)" " #f)" " #f)))" -"(let-values(((has-sign?_0)(if(> end_35 start_46)(char-sign?(string-ref s_461 start_46)) #f)))" +"(let-values(((has-sign?_0)(if(> end_35 start_46)(char-sign?(string-ref s_468 start_46)) #f)))" "(if(=(- end_35 start_46)(+(if dot-pos_2 1 0)(if exp-pos_1 1 0)(if has-sign?_0 1 0)))" "(let-values()" "(if(= end_35 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_461 start_46 end_35)))" +" (let-values () (format \"missing digits in `~.a`\" (substring s_468 start_46 end_35)))" "(let-values() #f))))" "(if simple?_0" "(let-values()" @@ -48949,23 +49060,23 @@ 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_461 start_46 end_35)))" +" (format \"missing digits before exponent marker in `~.a`\" (substring s_468 start_46 end_35)))" "(let-values() #f)))" "(if(if exp-pos_1" "(let-values(((or-part_329)(= exp-pos_1(sub1 end_35))))" "(if or-part_329" " or-part_329" -"(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_461(sub1 end_35))) #f)))" +"(if(= exp-pos_1(- end_35 2))(char-sign?(string-ref s_468(sub1 end_35))) #f)))" " #f)" "(let-values()" "(if(eq? convert-mode_5 'must-read)" "(let-values()" -" (format \"missing digits after exponent marker in `~.a`\" (substring s_461 start_46 end_35)))" +" (format \"missing digits after exponent marker in `~.a`\" (substring s_468 start_46 end_35)))" "(let-values() #f)))" "(let-values()" "(let-values(((n_30)" "(string->number$1" -"(maybe-substring s_461 start_46 end_35)" +"(maybe-substring s_468 start_46 end_35)" " radix_7" "(if(let-values(((or-part_330)(eq? convert-mode_5 'number-or-false)))" "(if or-part_330" @@ -48979,7 +49090,7 @@ static const char *startup_source = "(error" " 'string->number" " \"host `string->number` failed on ~s\"" -"(substring s_461 start_46 end_35)))" +"(substring s_468 start_46 end_35)))" "(if(eq? exactness_3 'inexact)" "(let-values()" "(if(extflonum? n_30)" @@ -48988,9 +49099,9 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to inexact\"" -"(substring s_461 start_46 end_35)))" +"(substring s_468 start_46 end_35)))" "(let-values() #f)))" -"(if(if(eqv? n_30 0)(char=?(string-ref s_461 start_46) '#\\-) #f)" +"(if(if(eqv? n_30 0)(char=?(string-ref s_468 start_46) '#\\-) #f)" "(let-values() -0.0)" "(let-values()(exact->inexact n_30)))))" "(let-values() n_30))))))))" @@ -48998,7 +49109,7 @@ static const char *startup_source = "(let-values()" "(let-values(((m-v_0)" "(string->real-number" -" s_461" +" s_468" " start_46" " exp-pos_1" " dot-pos_2" @@ -49009,12 +49120,12 @@ static const char *startup_source = " 'exact" " convert-mode_5)))" "(let-values(((e-v_0)" -"(string->exact-integer-number s_461(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))" +"(string->exact-integer-number s_468(+ exp-pos_1 1) end_35 radix_7 convert-mode_5)))" "(let-values(((real->precision-inexact_0)" "(lambda(r_47)" "(begin" " 'real->precision-inexact" -"(let-values(((tmp_41)(string-ref s_461 exp-pos_1)))" +"(let-values(((tmp_41)(string-ref s_468 exp-pos_1)))" "(if(if(equal? tmp_41 '#\\s)" " #t" "(if(equal? tmp_41 '#\\S)" @@ -49026,7 +49137,7 @@ static const char *startup_source = "(if(extflonum-available?)" "(real->extfl r_47)" "(string->number$1" -"(replace-hashes s_461 start_46 end_35)" +"(replace-hashes s_468 start_46 end_35)" " radix_7" " 'read)))" "(let-values()(real->double-flonum r_47)))))))))" @@ -49046,7 +49157,7 @@ static const char *startup_source = "(let-values()" "(real->precision-inexact_0" "(if(eqv? m-v_0 0)" -"(let-values()(if(char=?(string-ref s_461 start_46) '#\\-) -0.0 0.0))" +"(let-values()(if(char=?(string-ref s_468 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))))))" @@ -49056,7 +49167,7 @@ static const char *startup_source = "(let-values()" "(format" " \"cannot convert extflonum `~.a` to ~a\"" -"(substring s_461 start_46 end_35)" +"(substring s_468 start_46 end_35)" " exactness_3))" "(let-values() #f)))" "(let-values()" @@ -49066,14 +49177,14 @@ static const char *startup_source = "(if or-part_334 or-part_334(eq? exactness_3 'decimal-as-exact)))" " #f)" "(let-values() n_31)" -"(if(if(eqv? n_31 0)(char=?(string-ref s_461 start_46) '#\\-) #f)" +"(if(if(eqv? n_31 0)(char=?(string-ref s_468 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_461" +" s_468" " start_46" " slash-pos_1" " #f" @@ -49085,7 +49196,7 @@ static const char *startup_source = " convert-mode_5)))" "(let-values(((d-v_0)" "(string->real-number" -" s_461" +" s_468" "(add1 slash-pos_1)" " end_35" " #f" @@ -49103,7 +49214,7 @@ static const char *startup_source = "(if or-part_335" " or-part_335" "(if(not(eq? exactness_3 'exact))" -"(hashes? s_461 from-pos_0 end_35)" +"(hashes? s_468 from-pos_0 end_35)" " #f)))))))" "(if(let-values(((or-part_336)(not n-v_0)))(if or-part_336 or-part_336(not d-v_0)))" "(let-values() #f)" @@ -49118,14 +49229,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_461 start_46 end_35)))" +" (format \"division by zero in `~.a`\" (substring s_468 start_46 end_35)))" "(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_461" +" s_468" " start_46" " end_35" " dot-pos_2" @@ -49134,7 +49245,7 @@ static const char *startup_source = " convert-mode_5))))))))))))" "(define-values" "(string->decimal-number)" -"(lambda(s_445 start_47 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)" +"(lambda(s_469 start_47 end_36 dot-pos_3 radix_8 exactness_4 convert-mode_6)" "(begin" "(let-values(((get-exact?_0)" "(let-values(((or-part_337)(eq? exactness_4 'exact)))" @@ -49150,22 +49261,22 @@ static const char *startup_source = "(let-values()" "(if(eq? convert-mode_6 'must-read)" "(let-values()" -" (format \"misplaced `#` in `~.a`\" (substring s_445 start_47 end_36)))" +" (format \"misplaced `#` in `~.a`\" (substring s_469 start_47 end_36)))" "(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_445 start_47 end_36))" +"(let-values()(fail-bad-number convert-mode_6 s_469 start_47 end_36))" "(if(not get-exact?_0)" "(let-values()" -"(if(if(eqv? n_33 0)(char=?(string-ref s_445 start_47) '#\\-) #f)" +"(if(if(eqv? n_33 0)(char=?(string-ref s_469 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_36 dot-pos_3 1))))" "(let-values() n_33))))))))" "(let-values()" -"(let-values(((c_77)(string-ref s_445 i_174)))" +"(let-values(((c_77)(string-ref s_469 i_174)))" "(if(char=? c_77 '#\\.)" "(let-values()" "(if get-exact?_0" @@ -49202,7 +49313,7 @@ static const char *startup_source = "(let-values()" "(format" " \"misplaced `#` in `~.a`\"" -"(substring s_445 start_47 end_36)))" +"(substring s_469 start_47 end_36)))" "(let-values() #f)))))" "(let-values()" "(begin" @@ -49231,31 +49342,31 @@ static const char *startup_source = "(let-values() n_34))))))))" "(define-values" "(read-special-number)" -"(lambda(s_447 start_49 end_38 convert-mode_8)" +"(lambda(s_470 start_49 end_38 convert-mode_8)" "(begin" "(if(=(- end_38 start_49) 6)" -"(if(let-values(((or-part_339)(char=?(string-ref s_447 start_49) '#\\+)))" -"(if or-part_339 or-part_339(char=?(string-ref s_447 start_49) '#\\-)))" +"(if(let-values(((or-part_339)(char=?(string-ref s_470 start_49) '#\\+)))" +"(if or-part_339 or-part_339(char=?(string-ref s_470 start_49) '#\\-)))" "(let-values(((or-part_224)" -"(if(char=?(char-downcase(string-ref s_447(+ start_49 1))) '#\\i)" -"(if(char=?(char-downcase(string-ref s_447(+ start_49 2))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_447(+ start_49 3))) '#\\f)" -"(if(char=?(char-downcase(string-ref s_447(+ start_49 4))) '#\\.)" +"(if(char=?(char-downcase(string-ref s_470(+ start_49 1))) '#\\i)" +"(if(char=?(char-downcase(string-ref s_470(+ start_49 2))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_470(+ start_49 3))) '#\\f)" +"(if(char=?(char-downcase(string-ref s_470(+ start_49 4))) '#\\.)" "(let-values(((or-part_340)" -"(if(char=?(char-downcase(string-ref s_447(+ start_49 5))) '#\\0)" -"(if(char=?(string-ref s_447 start_49) '#\\+) +inf.0 -inf.0)" +"(if(char=?(char-downcase(string-ref s_470(+ start_49 5))) '#\\0)" +"(if(char=?(string-ref s_470 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_447(+ start_49 5))) '#\\f)" -"(if(char=?(string-ref s_447 start_49) '#\\+) +inf.f -inf.f)" +"(if(char=?(char-downcase(string-ref s_470(+ start_49 5))) '#\\f)" +"(if(char=?(string-ref s_470 start_49) '#\\+) +inf.f -inf.f)" " #f)))" "(if or-part_341" " or-part_341" -"(if(char=?(char-downcase(string-ref s_447(+ start_49 5))) '#\\t)" +"(if(char=?(char-downcase(string-ref s_470(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false))" -"(if(char=?(string-ref s_447 start_49) '#\\+) '+inf.t '-inf.t)" +"(if(char=?(string-ref s_470 start_49) '#\\+) '+inf.t '-inf.t)" " #f)" " #f)))))" " #f)" @@ -49264,19 +49375,19 @@ static const char *startup_source = " #f)))" "(if or-part_224" " or-part_224" -"(if(char=?(char-downcase(string-ref s_447(+ start_49 1))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_447(+ start_49 2))) '#\\a)" -"(if(char=?(char-downcase(string-ref s_447(+ start_49 3))) '#\\n)" -"(if(char=?(char-downcase(string-ref s_447(+ start_49 4))) '#\\.)" +"(if(char=?(char-downcase(string-ref s_470(+ start_49 1))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_470(+ start_49 2))) '#\\a)" +"(if(char=?(char-downcase(string-ref s_470(+ start_49 3))) '#\\n)" +"(if(char=?(char-downcase(string-ref s_470(+ start_49 4))) '#\\.)" "(let-values(((or-part_342)" -"(if(char=?(char-downcase(string-ref s_447(+ start_49 5))) '#\\0) +nan.0 #f)))" +"(if(char=?(char-downcase(string-ref s_470(+ 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_447(+ start_49 5))) '#\\f) +nan.f #f)))" +"(if(char=?(char-downcase(string-ref s_470(+ start_49 5))) '#\\f) +nan.f #f)))" "(if or-part_343" " or-part_343" -"(if(char=?(char-downcase(string-ref s_447(+ start_49 5))) '#\\t)" +"(if(char=?(char-downcase(string-ref s_470(+ start_49 5))) '#\\t)" "(if(not(eq? convert-mode_8 'number-or-false)) '+nan.t #f)" " #f)))))" " #f)" @@ -49287,10 +49398,10 @@ static const char *startup_source = " #f))))" "(define-values" "(fail-extflonum)" -"(lambda(convert-mode_9 v_229)" +"(lambda(convert-mode_9 v_227)" "(begin" "(if(eq? convert-mode_9 'must-read)" -" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_229))" +" (let-values () (format \"cannot combine extflonum `~a` into complex number\" v_227))" "(let-values() #f)))))" "(define-values" "(read-for-special-compound65.1)" @@ -49307,7 +49418,7 @@ static const char *startup_source = " combine64_0)" "(begin" " 'read-for-special-compound65" -"(let-values(((s_462) s57_0))" +"(let-values(((s_471) s57_0))" "(let-values(((start_50) start58_0))" "(let-values(((end_39) end59_0))" "(let-values(((radix_10) radix60_0))" @@ -49315,19 +49426,19 @@ 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_230) v63_0))" +"(let-values(((v_228) 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_230))" +" (let-values () (format \"no exact representation for `~a`\" v_228))" "(let-values() #f)))" -"(if(if(extflonum? v_230)" +"(if(if(extflonum? v_228)" "(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_230))" +"(let-values()(fail-extflonum convert-mode_10 v_228))" "(let-values()" "(let-values(((v2_7)" "(let-values(((temp180_0) #t)" @@ -49338,7 +49449,7 @@ static const char *startup_source = " in-complex182_0" " #t" " temp180_0" -" s_462" +" s_471" " start_50" " end_39" " radix_10" @@ -49348,12 +49459,12 @@ static const char *startup_source = "(let-values() v2_7)" "(if(not v2_7)" "(let-values() v2_7)" -"(if(extflonum? v_230)" -"(let-values()(fail-extflonum convert-mode_10 v_230))" -"(let-values()(combine_1 v_230 v2_7)))))))))))))))))))))))" +"(if(extflonum? v_228)" +"(let-values()(fail-extflonum convert-mode_10 v_228))" +"(let-values()(combine_1 v_228 v2_7)))))))))))))))))))))))" "(define-values" "(hashes?)" -"(lambda(s_463 start_51 end_40)" +"(lambda(s_472 start_51 end_40)" "(begin" "(let-values(((v*_6 start*_5 stop*_6 step*_5)" "(normalise-inputs" @@ -49361,13 +49472,13 @@ static const char *startup_source = " \"string\"" "(lambda(x_81)(string? x_81))" "(lambda(x_82)(unsafe-string-length x_82))" -" s_463" +" s_472" " start_51" " end_40" " 1)))" "(begin" " #t" -"((letrec-values(((for-loop_259)" +"((letrec-values(((for-loop_258)" "(lambda(result_113 idx_5)" "(begin" " 'for-loop" @@ -49379,17 +49490,17 @@ static const char *startup_source = "(let-values()(let-values()(char=? c_78 '#\\#)))))" "(values result_115)))))" "(if(if(not((lambda x_83 result_114) c_78))(not #f) #f)" -"(for-loop_259 result_114(unsafe-fx+ idx_5 1))" +"(for-loop_258 result_114(unsafe-fx+ idx_5 1))" " result_114)))" " result_113)))))" -" for-loop_259)" +" for-loop_258)" " #f" " start*_5))))))" "(define-values" "(replace-hashes)" "(lambda(s_263 start_52 end_41)" "(begin" -"(let-values(((new-s_7)(make-string(- end_41 start_52))))" +"(let-values(((new-s_8)(make-string(- end_41 start_52))))" "(begin" "(let-values(((v*_7 start*_6 stop*_7 step*_6)" "(normalise-inputs" @@ -49407,7 +49518,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-naturals start_53)))" -"((letrec-values(((for-loop_260)" +"((letrec-values(((for-loop_259)" "(lambda(idx_6 pos_111)" "(begin" " 'for-loop" @@ -49420,21 +49531,21 @@ static const char *startup_source = "(begin" "(let-values()" "(if(char=? c_79 '#\\#)" -"(string-set! new-s_7 i_175 '#\\0)" -"(string-set! new-s_7 i_175 c_79)))" +"(string-set! new-s_8 i_175 '#\\0)" +"(string-set! new-s_8 i_175 c_79)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_260(unsafe-fx+ idx_6 1)(+ pos_111 1))(values))))" +"(if(not #f)(for-loop_259(unsafe-fx+ idx_6 1)(+ pos_111 1))(values))))" "(values))))))" -" for-loop_260)" +" for-loop_259)" " start*_6" " start_53)))" "(void)" -" new-s_7)))))" +" new-s_8)))))" "(define-values" "(maybe-substring)" -"(lambda(s_464 start_54 end_42)" -"(begin(if(if(= 0 start_54)(= end_42(string-length s_464)) #f) s_464(substring s_464 start_54 end_42)))))" +"(lambda(s_457 start_54 end_42)" +"(begin(if(if(= 0 start_54)(= end_42(string-length s_457)) #f) s_457(substring s_457 start_54 end_42)))))" "(define-values" "(exactness-set?)" "(lambda(exactness_6)" @@ -49448,24 +49559,24 @@ static const char *startup_source = "(digit?)" "(lambda(c_81 radix_11)" "(begin" -"(let-values(((v_231)(char->integer c_81)))" +"(let-values(((v_229)(char->integer c_81)))" "(let-values(((or-part_347)" -"(if(>= v_231(char->integer '#\\0))(<(- v_231(char->integer '#\\0)) radix_11) #f)))" +"(if(>= v_229(char->integer '#\\0))(<(- v_229(char->integer '#\\0)) radix_11) #f)))" "(if or-part_347" " or-part_347" "(if(> radix_11 10)" "(let-values(((or-part_348)" -"(if(>= v_231(char->integer '#\\a))(<(- v_231(-(char->integer '#\\a) 10)) radix_11) #f)))" +"(if(>= v_229(char->integer '#\\a))(<(- v_229(-(char->integer '#\\a) 10)) radix_11) #f)))" "(if or-part_348" " or-part_348" -"(if(>= v_231(char->integer '#\\A))(<(- v_231(-(char->integer '#\\A) 10)) radix_11) #f)))" +"(if(>= v_229(char->integer '#\\A))(<(- v_229(-(char->integer '#\\A) 10)) radix_11) #f)))" " #f)))))))" "(define-values" "(fail-bad-number)" -"(lambda(convert-mode_11 s_454 start_55 end_43)" +"(lambda(convert-mode_11 s_473 start_55 end_43)" "(begin" "(if(eq? convert-mode_11 'must-read)" -" (let-values () (format \"bad number `~.a`\" (substring s_454 start_55 end_43)))" +" (let-values () (format \"bad number `~.a`\" (substring s_473 start_55 end_43)))" "(let-values() #f)))))" "(define-values" "(read-complains)" @@ -49482,14 +49593,14 @@ static const char *startup_source = "(let-values(((extra-prefix_0)(if extra-prefix4_0 extra-prefix2_0 #f)))" "(let-values()" "(let-values(((rt_11)(read-config-readtable config_24)))" -"(let-values(((c1_28)" +"(let-values(((c1_29)" "(if rt_11" "(if(let-values(((or-part_3)(eq? mode_17 'symbol-or-number)))" "(if or-part_3 or-part_3(eq? mode_17 'symbol/indirect)))" "(readtable-symbol-parser rt_11)" " #f)" " #f)))" -"(if c1_28" +"(if c1_29" "((lambda(handler_2)" "(readtable-apply" " handler_2" @@ -49499,7 +49610,7 @@ static const char *startup_source = "(read-config-line config_24)" "(read-config-col config_24)" "(read-config-pos config_24)))" -" c1_28)" +" c1_29)" "(let-values()" "(let-values(((accum-str_1)(accum-string-init! config_24)))" "(let-values(((quoted-ever?_0) #f))" @@ -49943,16 +50054,16 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_263)))" "((letrec-values(((for-loop_97)" -"(lambda(i_1 lst_301)" +"(lambda(i_1 lst_300)" "(begin" " 'for-loop" -"(if(pair? lst_301)" +"(if(pair? lst_300)" "(let-values(((e_75)" "(unsafe-car" -" lst_301))" +" lst_300))" "((rest_170)" "(unsafe-cdr" -" lst_301)))" +" lst_300)))" "(let-values(((i_176)" "(let-values(((i_3)" " i_1))" @@ -50005,7 +50116,7 @@ static const char *startup_source = " \"exact-nonnegative-integer?\"" " len_38)))" "(let-values(((fill_1) 0.0))" -"(let-values(((v_232)(make-flvector len_38 fill_1)))" +"(let-values(((v_230)(make-flvector len_38 fill_1)))" "(begin" "(if(zero? len_38)" "(void)" @@ -50016,7 +50127,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_261)" +"((letrec-values(((for-loop_260)" "(lambda(i_56 lst_54)" "(begin" " 'for-loop" @@ -50039,7 +50150,7 @@ static const char *startup_source = "(if(flonum?" " elem_1)" "(unsafe-flvector-set!" -" v_232" +" v_230" " i_178" " elem_1)" "(not-an-fX.1$1" @@ -50058,15 +50169,15 @@ static const char *startup_source = " e_76))" "(not #f)" " #f)" -"(for-loop_261" +"(for-loop_260" " i_177" " rest_171)" " i_177)))" " i_56)))))" -" for-loop_261)" +" for-loop_260)" " 0" " lst_78)))))" -" v_232))))))" +" v_230))))))" "(let-values()(void)))))))" "(let-values()" "(let-values(((len_39)(length seq_2)))" @@ -50102,11 +50213,11 @@ static const char *startup_source = "(list temp25_7 expected-len26_0 len27_0))))" "(let-values()" "(let-values(((last-or_0)" -"(lambda(v_233)" +"(lambda(v_231)" "(begin" " 'last-or" "(if(null? seq_2)" -"(wrap v_233 in_28 config_39 #f)" +"(wrap v_231 in_28 config_39 #f)" "((letrec-values(((loop_110)" "(lambda(seq_3)" "(begin" @@ -50161,18 +50272,18 @@ static const char *startup_source = "(void)" "(let-values()(check-naturals start_17)))" "((letrec-values(((for-loop_16)" -"(lambda(lst_302 pos_113)" +"(lambda(lst_301 pos_113)" "(begin" " 'for-loop" -"(if(if(pair? lst_302)" +"(if(if(pair? lst_301)" " #t" " #f)" "(let-values(((e_77)" "(unsafe-car" -" lst_302))" +" lst_301))" "((rest_172)" "(unsafe-cdr" -" lst_302))" +" lst_301))" "((i_92)" " pos_113))" "(let-values((()" @@ -50431,7 +50542,7 @@ static const char *startup_source = "(let-values(((accum-str_2)(accum-string-init! config_43)))" "(let-values((()(begin(accum-string-add! accum-str_2 init-c_9)(values))))" "(let-values(((init-v_1)(digit->number init-c_9)))" -"(let-values(((v_234)" +"(let-values(((v_232)" "(let-values(((temp72_0) 10)" "((temp73_1) +inf.0)" "((init-v74_0) init-v_1)" @@ -50448,7 +50559,7 @@ static const char *startup_source = " accum-str_2" " #t))))" "(values" -" v_234" +" v_232" "(let-values(((accum-str76_0) accum-str_2)((config77_0) config_43))" "(accum-string-get!6.1 #f #f accum-str76_0 config77_0))" "(let-values(((in_34) in_33)((source_20)(read-config-source config_43)))" @@ -51289,7 +51400,7 @@ static const char *startup_source = " temp71_1" "(list temp72_1)))))" "(values))))" -"(let-values(((v_235)(read-one_8 #f in_38 elem-config_1)))" +"(let-values(((v_233)(read-one_8 #f in_38 elem-config_1)))" "(let-values(((closer-c_0)" "(read-char/skip-whitespace-and-comments #f read-one_8 in_38 config_47)))" "(let-values(((closer-line_0 closer-col_0 closer-pos_0)" @@ -51319,7 +51430,7 @@ static const char *startup_source = " temp74_0" " temp76_0" "(list temp77_1)))))" -"(cons(coerce-key k_40 elem-config_1) v_235))))))))))))))))))))))" +"(cons(coerce-key k_40 elem-config_1) v_233))))))))))))))))))))))" "(define-values" "(read-string5.1)" "(lambda(mode1_1 mode2_0 in3_0 config4_0)" @@ -51710,7 +51821,7 @@ static const char *startup_source = "(let-values(((pos_117)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_195)" +"(let-values(((v_193)" "(let-values(((temp42_3)" " 16)" "((temp43_4)" @@ -51727,13 +51838,13 @@ static const char *startup_source = " accum-str_4" " #t))))" "(begin" -"(if(integer? v_195)" +"(if(integer? v_193)" "(void)" "(let-values()" "(no-hex-digits" " in_40" " config_22" -" v_195" +" v_193" " escaping-c_0" " escaped-c_0)))" "(set-accum-string-count!" @@ -51742,7 +51853,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_195))))))" +" v_193))))))" "(if(unsafe-fx< index_3 15)" "(let-values()" "(let-values((()" @@ -51757,7 +51868,7 @@ static const char *startup_source = "(let-values(((pos_99)" "(accum-string-count" " accum-str_4)))" -"(let-values(((v_222)" +"(let-values(((v_220)" "(let-values(((temp47_1)" " 16)" "((temp48_1)" @@ -51774,23 +51885,23 @@ static const char *startup_source = " accum-str_4" " #t))))" "(begin" -"(if(integer? v_222)" +"(if(integer? v_220)" "(void)" "(let-values()" "(no-hex-digits" " in_40" " config_22" -" v_222" +" v_220" " escaping-c_0" " escaped-c_0)))" "(if(let-values(((or-part_22)" "(<" -" v_222" +" v_220" " 55296)))" "(if or-part_22" " or-part_22" "(>" -" v_222" +" v_220" " 57343)))" "(let-values()" "(begin" @@ -51800,7 +51911,7 @@ static const char *startup_source = "(accum-string-add!" " accum-str_4" "(integer->char" -" v_222))))" +" v_220))))" "(let-values()" "(let-values(((next!_0)" "(lambda()" @@ -51878,7 +51989,7 @@ static const char *startup_source = "(+" "(arithmetic-shift" "(-" -" v_222" +" v_220" " 55296)" " 10)" "(-" @@ -52296,7 +52407,7 @@ static const char *startup_source = "(let-values(((in_41) in_4)" "((source_27)(read-config-source config_8)))" "(read-char-or-special in_41 special1.1 source_27))))" -"(let-values(((v_219)" +"(let-values(((v_217)" "(if(if(char? c3_5)(octal-digit? c3_5) #f)" "(let-values()" "(+" @@ -52305,7 +52416,7 @@ static const char *startup_source = "(digit->number c3_5)))" "(let-values() #f))))" "(begin" -"(if(if v_219(<= v_219 255) #f)" +"(if(if v_217(<= v_217 255) #f)" "(void)" "(let-values()" "(let-values(((c311_0) c3_5)" @@ -52324,7 +52435,7 @@ static const char *startup_source = " config_8" " temp12_1" "(list c13_2 c214_0 temp15_7)))))" -"(integer->char v_219))))))" +"(integer->char v_217))))))" "(let-values() c_96))))" "(if(let-values(((or-part_160)(char=? c_96 '#\\u)))" "(if or-part_160 or-part_160(char=? c_96 '#\\U)))" @@ -53077,11 +53188,11 @@ static const char *startup_source = "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_30)))" "((letrec-values(((for-loop_24)" -"(lambda(lst_303)" +"(lambda(lst_302)" "(begin" " 'for-loop" -"(if(pair? lst_303)" -"(let-values(((c_100)(unsafe-car lst_303))((rest_173)(unsafe-cdr lst_303)))" +"(if(pair? lst_302)" +"(let-values(((c_100)(unsafe-car lst_302))((rest_173)(unsafe-cdr lst_302)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -53366,8 +53477,8 @@ static const char *startup_source = "(if keep-comment?28_0 keep-comment?14_1 recursive?_0)))" "(let-values()" "(let-values(((config_54)" -"(let-values(((c1_29)(if recursive?_0(current-read-config) #f)))" -"(if c1_29" +"(let-values(((c1_30)(if recursive?_0(current-read-config) #f)))" +"(if c1_30" "((lambda(config_55)" "(let-values(((for-syntax?53_0) for-syntax?_9)" "((wrap54_1) wrap_7)" @@ -53384,7 +53495,7 @@ static const char *startup_source = " local-graph?57_0" " wrap54_1" " config_55)))" -" c1_29)" +" c1_30)" "(let-values()" "(let-values(((readtable59_0) readtable_3)" "((next-readtable60_0) next-readtable_3)" @@ -53514,12 +53625,12 @@ static const char *startup_source = "(if(check-parameter 1/read-cdot config_57)" "(let-values()" "(let-values(((line_10 col_9 pos_98)(port-next-location in_61)))" -"(let-values(((v_236)(read-undotted init-c_14 in_61 config_57)))" -"(if(1/special-comment? v_236)" -"(let-values() v_236)" +"(let-values(((v_234)(read-undotted init-c_14 in_61 config_57)))" +"(if(1/special-comment? v_234)" +"(let-values() v_234)" "(let-values()" "((letrec-values(((loop_118)" -"(lambda(v_237)" +"(lambda(v_235)" "(begin" " 'loop" "(let-values(((c_102)" @@ -53535,9 +53646,9 @@ static const char *startup_source = "(if(eq? c_103 'special)(special1.1 'special) c_103)))))" "(let-values(((ec_9)(effective-char c_102 config_57)))" "(if(not(char? ec_9))" -"(let-values() v_237)" +"(let-values() v_235)" "(if(char-whitespace? ec_9)" -"(let-values()(begin(consume-char in_61 c_102)(loop_118 v_237)))" +"(let-values()(begin(consume-char in_61 c_102)(loop_118 v_235)))" "(if(char=? ec_9 '#\\.)" "(let-values()" "(let-values(((dot-line_2 dot-col_2 dot-pos_5)" @@ -53557,13 +53668,13 @@ static const char *startup_source = "(read-undotted #f in_61 config_57)))" "(loop_118" "(wrap" -"(list cdot_0 v_237 post-v_0)" +"(list cdot_0 v_235 post-v_0)" " in_61" "(reading-at config_57 line_10 col_9 pos_98)" " '#\\.)))))))" -"(let-values() v_237))))))))))" +"(let-values() v_235))))))))))" " loop_118)" -" v_236))))))" +" v_234))))))" "(void))))))" "(define-values" "(read-undotted)" @@ -53575,15 +53686,15 @@ static const char *startup_source = "(let-values() eof)" "(if(not(char? c_104))" "(let-values()" -"(let-values(((v_238)(special-value c_104)))" -"(if(1/special-comment? v_238)" -"(let-values()(if(read-config-keep-comment? config_58) v_238(read-undotted #f in_63 config_58)))" -"(let-values()(coerce v_238 in_63(reading-at config_58 line_11 col_10 pos_118))))))" +"(let-values(((v_236)(special-value c_104)))" +"(if(1/special-comment? v_236)" +"(let-values()(if(read-config-keep-comment? config_58) v_236(read-undotted #f in_63 config_58)))" +"(let-values()(coerce v_236 in_63(reading-at config_58 line_11 col_10 pos_118))))))" "(let-values(((c2_7)(readtable-handler config_58 c_104)))" "(if c2_7" "((lambda(handler_3)" -"(let-values(((v_239)(readtable-apply handler_3 c_104 in_63 config_58 line_11 col_10 pos_118)))" -"(retry-special-comment v_239 in_63 config_58)))" +"(let-values(((v_237)(readtable-apply handler_3 c_104 in_63 config_58 line_11 col_10 pos_118)))" +"(retry-special-comment v_237 in_63 config_58)))" " c2_7)" "(let-values()" "(let-values(((ec_10)(effective-char c_104 config_58)))" @@ -53652,7 +53763,7 @@ static const char *startup_source = "(if(unsafe-fx< index_4 2)" "(if(unsafe-fx< index_4 1)" "(let-values()" -"(let-values(((v_240)" +"(let-values(((v_191)" "(let-values(((temp82_4)" "(if(let-values(((or-part_354)(eq? c_104 ec_10)))" "(if or-part_354" @@ -53670,7 +53781,7 @@ static const char *startup_source = " c_104" " in_63" " r-config_0))))" -"(retry-special-comment v_240 in_63 config_58)))" +"(retry-special-comment v_191 in_63 config_58)))" "(let-values()(read-dispatch c_104 in_63 r-config_0 config_58)))" "(if(unsafe-fx< index_4 3)" " (let-values () (read-quote read-one 'quote \"quoting '\" c_104 in_63 r-config_0))" @@ -53957,7 +54068,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in136_0) in_63)" "((r-config137_0) r-config_0)" -" ((temp138_2) \"illegal use of `~a`\")" +" ((temp138_3) \"illegal use of `~a`\")" "((c139_0) c_104))" "(reader-error10.1" " #f" @@ -53968,18 +54079,18 @@ static const char *startup_source = " #f" " in136_0" " r-config137_0" -" temp138_2" +" temp138_3" "(list c139_0))))))" "(if(unsafe-fx< index_4 12)" "(let-values()" "(let-values(((in140_0) in_63)((r-config141_0) r-config_0))" "(read-string5.1 #f #f in140_0 r-config141_0)))" "(let-values()" -"(let-values(((temp145_1) 'symbol))" +"(let-values(((temp145_0) 'symbol))" "(read-symbol-or-number8.1" " #f" " #f" -" temp145_1" +" temp145_0" " #t" " c_104" " in_63" @@ -54005,9 +54116,9 @@ static const char *startup_source = "(let-values(((line_12)(read-config-line config_59)))" "(let-values(((col_11)(read-config-col config_59)))" "(let-values(((pos_119)(read-config-pos config_59)))" -"(let-values(((v_241)" +"(let-values(((v_238)" "(readtable-apply handler_4 c_106 in_65 config_59 line_12 col_11 pos_119)))" -"(retry-special-comment v_241 in_65 orig-config_0))))))" +"(retry-special-comment v_238 in_65 orig-config_0))))))" " c3_8)" "(let-values()" "(let-values()" @@ -54121,7 +54232,7 @@ static const char *startup_source = "(let-values()" "(let-values(((in156_0) in_65)" "((config157_0) config_59)" -" ((temp158_1) \"bad syntax `~a~a`\")" +" ((temp158_2) \"bad syntax `~a~a`\")" "((dispatch-c159_0) dispatch-c_5)" "((c160_0) c_106))" "(reader-error10.1" @@ -54133,7 +54244,7 @@ static const char *startup_source = " #f" " in156_0" " config157_0" -" temp158_1" +" temp158_2" "(list dispatch-c159_0 c160_0))))" "(if(unsafe-fx< index_5 2)" "(let-values()(read-vector-or-graph read-one dispatch-c_5 c_106 in_65 config_59))" @@ -54162,8 +54273,8 @@ static const char *startup_source = "(let-values()" "(let-values(((read-one167_0) read-one)" "((temp168_0) '#\\[)" -"((temp169_0) '#\\[)" -"((temp170_2) '#\\])" +"((temp169_1) '#\\[)" +"((temp170_1) '#\\])" "((in171_0) in_65)" "((config172_0) config_59))" "(read-vector11.1" @@ -54173,8 +54284,8 @@ static const char *startup_source = " #f" " read-one167_0" " temp168_0" -" temp169_0" -" temp170_2" +" temp169_1" +" temp170_1" " in171_0" " config172_0)))" "(let-values()" @@ -54264,7 +54375,7 @@ static const char *startup_source = "(begin(consume-char in_65 '#\\<)(read-here-string in_65 config_59)))" "(let-values()" "(let-values(((c2190_0) c2_9)" -" ((temp191_1) \"bad syntax `~a<`\")" +" ((temp191_0) \"bad syntax `~a<`\")" "((dispatch-c192_0) dispatch-c_5))" "(reader-error10.1" " #f" @@ -54275,7 +54386,7 @@ static const char *startup_source = " #f" " in_65" " config_59" -" temp191_1" +" temp191_0" "(list dispatch-c192_0)))))))" "(let-values()" "(let-values(((dispatch-c196_0) dispatch-c_5)((temp197_0) 'symbol))" @@ -54594,11 +54705,11 @@ static const char *startup_source = "(list dispatch-c279_0)))))))))))))))))))))))))" "(define-values" "(retry-special-comment)" -"(lambda(v_242 in_74 config_60)" +"(lambda(v_239 in_74 config_60)" "(begin" -"(if(1/special-comment? v_242)" -"(let-values()(if(read-config-keep-comment? config_60) v_242(read-undotted #f in_74 config_60)))" -"(let-values() v_242)))))" +"(if(1/special-comment? v_239)" +"(let-values()(if(read-config-keep-comment? config_60) v_239(read-undotted #f in_74 config_60)))" +"(let-values() v_239)))))" "(define-values" "(1/module-declared?)" "(let-values(((module-declared?4_0)" @@ -54615,11 +54726,11 @@ static const char *startup_source = "(let-values()" "(raise-argument-error 'module-declared? module-reference-str mod_4)))" "(values))))" -"(let-values(((ns_110)(1/current-namespace)))" +"(let-values(((ns_107)(1/current-namespace)))" "(let-values(((name_69)" "(let-values(((load?36_0) load?_3))" "(reference->resolved-module-path32.1 load?36_0 mod_4))))" -"(if(namespace->module ns_110 name_69) #t #f)))))))))))" +"(if(namespace->module ns_107 name_69) #t #f)))))))))))" "(case-lambda" "((mod_5)(begin 'module-declared?(module-declared?4_0 mod_5 #f #f)))" "((mod_6 load?1_1)(module-declared?4_0 mod_6 load?1_1 #t)))))" @@ -54718,7 +54829,7 @@ static const char *startup_source = "(begin" " 'module->namespace21" "(let-values(((mod_18) mod20_0))" -"(let-values(((ns_111)(if ns19_0 ns18_1(1/current-namespace))))" +"(let-values(((ns_108)(if ns19_0 ns18_1(1/current-namespace))))" "(let-values()" "(let-values((()" "(begin" @@ -54729,17 +54840,17 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(1/namespace? ns_111)" +"(if(1/namespace? ns_108)" "(void)" "(let-values()" -" (raise-argument-error 'module->namespace \"namespace?\" ns_111)))" +" (raise-argument-error 'module->namespace \"namespace?\" ns_108)))" "(values))))" "(let-values(((name_41)" "(let-values(((temp45_1) #t))" "(reference->resolved-module-path32.1 temp45_1 mod_18))))" -"(let-values(((phase_94)(namespace-phase ns_111)))" +"(let-values(((phase_94)(namespace-phase ns_108)))" "(let-values(((m-ns_17)" -"(let-values(((ns46_0) ns_111)" +"(let-values(((ns46_0) ns_108)" "((name47_1) name_41)" "((phase48_0) phase_94))" "(namespace->module-namespace82.1" @@ -54757,7 +54868,7 @@ static const char *startup_source = "(void)" "(let-values()" "(begin" -"(namespace->module/complain 'module->namespace ns_111 name_41)" +"(namespace->module/complain 'module->namespace ns_108 name_41)" "(raise-arguments-error" " 'module->namespace" " \"module not instantiated in the current namespace\"" @@ -54777,7 +54888,7 @@ static const char *startup_source = "(namespace-set-root-expand-ctx!" " m-ns_17" "(let-values()(make-root-expand-context11.1 #f #f #f #f #f #f #f #f)))))" -"(let-values(((ns41_2) ns_111)" +"(let-values(((ns41_2) ns_108)" "((temp42_4)(namespace-mpi m-ns_17))" "((phase43_2) phase_94))" "(namespace-module-make-available!112.1 #f #f ns41_2 temp42_4 phase43_2))" @@ -54793,7 +54904,7 @@ static const char *startup_source = " 'namespace-unprotect-module27" "(let-values(((insp_18) insp25_0))" "(let-values(((mod_21) mod26_0))" -"(let-values(((ns_112)(if ns24_1 ns23_0(1/current-namespace))))" +"(let-values(((ns_109)(if ns24_1 ns23_0(1/current-namespace))))" "(let-values()" "(let-values((()" "(begin" @@ -54817,20 +54928,20 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(if(1/namespace? ns_112)" +"(if(1/namespace? ns_109)" "(void)" "(let-values()" "(raise-argument-error" " 'namespace-unprotect-module" " \"namespace?\"" -" ns_112)))" +" ns_109)))" "(values))))" "(let-values(((name_70)" "(let-values(((temp50_4) #f))" "(reference->resolved-module-path32.1 temp50_4 mod_21))))" -"(let-values(((phase_95)(namespace-phase ns_112)))" +"(let-values(((phase_95)(namespace-phase ns_109)))" "(let-values(((m-ns_18)" -"(let-values(((ns51_1) ns_112)" +"(let-values(((ns51_1) ns_109)" "((name52_0) name_70)" "((phase53_0) phase_95))" "(namespace->module-namespace82.1" @@ -54863,9 +54974,9 @@ static const char *startup_source = "((insp_19 mod_23 ns23_1)(namespace-unprotect-module27_0 insp_19 mod_23 ns23_1 #t)))))" "(define-values" "(namespace->module/complain)" -"(lambda(who_32 ns_113 name_62)" +"(lambda(who_32 ns_110 name_62)" "(begin" -"(let-values(((or-part_25)(namespace->module ns_113 name_62)))" +"(let-values(((or-part_25)(namespace->module ns_110 name_62)))" "(if or-part_25" " or-part_25" " (raise-arguments-error who_32 \"unknown module in the current namespace\" \"name\" name_62))))))" @@ -55038,8 +55149,8 @@ static const char *startup_source = "(read-to-syntax)" "(lambda(s-exp_4 srcloc_10 rep_1)" "(begin" -"(let-values(((the-struct_90) empty-syntax))" -"(if(syntax?$1 the-struct_90)" +"(let-values(((the-struct_88) empty-syntax))" +"(if(syntax?$1 the-struct_88)" "(let-values(((content63_0)(datum-intern-literal s-exp_4))" "((srcloc64_0) srcloc_10)" "((props65_0)" @@ -55051,14 +55162,14 @@ static const char *startup_source = "(let-values() original-props))))))" "(syntax1.1" " content63_0" -"(syntax-scopes the-struct_90)" -"(syntax-shifted-multi-scopes the-struct_90)" -"(syntax-scope-propagations+tamper the-struct_90)" -"(syntax-mpi-shifts the-struct_90)" +"(syntax-scopes the-struct_88)" +"(syntax-shifted-multi-scopes the-struct_88)" +"(syntax-scope-propagations+tamper the-struct_88)" +"(syntax-mpi-shifts the-struct_88)" " srcloc64_0" " props65_0" -"(syntax-inspector the-struct_90)))" -" (raise-argument-error 'struct-copy \"syntax?\" the-struct_90))))))" +"(syntax-inspector the-struct_88)))" +" (raise-argument-error 'struct-copy \"syntax?\" the-struct_88))))))" "(define-values(original-props)(syntax-props(syntax-property$1 empty-syntax original-property-sym #t)))" "(define-values" "(original-square-props)" @@ -55069,11 +55180,11 @@ static const char *startup_source = "(define-values(read-module-declared?)(lambda(mod-path_29)(begin(1/module-declared? mod-path_29 #t))))" "(define-values" "(read-coerce)" -"(lambda(for-syntax?_12 v_243 srcloc_11)" +"(lambda(for-syntax?_12 v_240 srcloc_11)" "(begin" "(if(not for-syntax?_12)" -"(let-values()(if(syntax?$1 v_243)(let-values()(syntax->datum$1 v_243))(let-values() v_243)))" -"(let-values()(datum->syntax$1 #f v_243(if srcloc_11(to-srcloc-stx srcloc_11) #f)))))))" +"(let-values()(if(syntax?$1 v_240)(let-values()(syntax->datum$1 v_240))(let-values() v_240)))" +"(let-values()(datum->syntax$1 #f v_240(if srcloc_11(to-srcloc-stx srcloc_11) #f)))))))" "(define-values" "(read-coerce-key)" "(lambda(for-syntax?_13 k_41)" @@ -55273,13 +55384,13 @@ static const char *startup_source = "(begin" " (if (syntax?$1 s_1) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_1)))" "((1/current-eval) s_1))))" -"((s_168 ns_114)" +"((s_168 ns_111)" "(begin" " (if (syntax?$1 s_168) (void) (let-values () (raise-argument-error 'eval-syntax \"syntax?\" s_168)))" -" (if (1/namespace? ns_114) (void) (let-values () (raise-argument-error 'eval-syntax \"namespace?\" ns_114)))" +" (if (1/namespace? ns_111) (void) (let-values () (raise-argument-error 'eval-syntax \"namespace?\" ns_111)))" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_114)" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_111)" "(let-values()((1/current-eval) s_168)))))))" "(define-values(compile$1)(lambda(s_2)(begin 'compile((1/current-compile)(intro s_2) #f))))" "(define-values" @@ -55310,7 +55421,7 @@ static const char *startup_source = "(expand-once$1 s_9)))))" "(define-values" "(1/expand-to-top-form)" -"(lambda(s_465)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_465)))))" +"(lambda(s_474)(begin 'expand-to-top-form(expand-to-top-form$1(intro s_474)))))" "(define-values" "(1/expand-syntax-to-top-form)" "(lambda(s_421)" @@ -55326,10 +55437,10 @@ static const char *startup_source = "(begin" " 'intro4" "(let-values(((given-s_1) given-s3_0))" -"(let-values(((ns_115)(if ns2_1 ns1_6(1/current-namespace))))" +"(let-values(((ns_112)(if ns2_1 ns1_6(1/current-namespace))))" "(let-values()" "(let-values(((s_10)(if(syntax?$1 given-s_1) given-s_1(1/datum->syntax #f given-s_1))))" -"(1/namespace-syntax-introduce s_10 ns_115)))))))))" +"(1/namespace-syntax-introduce s_10 ns_112)))))))))" "(case-lambda((given-s_2)(begin(intro4_0 given-s_2 #f #f)))((given-s_3 ns1_7)(intro4_0 given-s_3 ns1_7 #t)))))" "(define-values" "(declare-primitive-module!)" @@ -55418,7 +55529,7 @@ static const char *startup_source = " lst_260)))))" "((temp9_5)" "(lambda(data-box_5" -" ns_116" +" ns_113" " phase-shift_19" " phase-level_21" " self_27" @@ -55427,11 +55538,11 @@ static const char *startup_source = "(if(= 0 phase-level_21)" "(let-values()" "(begin" -"(let-values(((lst_301)(1/instance-variable-names inst_7)))" +"(let-values(((lst_300)(1/instance-variable-names inst_7)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_301)))" +"(let-values()(check-list lst_300)))" "((letrec-values(((for-loop_220)" "(lambda(lst_264)" "(begin" @@ -55450,7 +55561,7 @@ static const char *startup_source = " inst_7" " sym_94)))" "(namespace-set-variable!" -" ns_116" +" ns_113" " 0" " sym_94" " val_77)))" @@ -55461,7 +55572,7 @@ static const char *startup_source = "(values))))" "(values))))))" " for-loop_220)" -" lst_301)))" +" lst_300)))" "(void)))" "(void)))))" "(make-module39.1" @@ -55789,22 +55900,22 @@ static const char *startup_source = "(begin" " 'local-transformer-expand/capture-lifts" "(local-transformer-expand/capture-lifts31_0 s_304 context_20 stop-ids_13 #f #f #f #f)))" -"((s_466 context_21 stop-ids_14 intdefs_8 lift-key25_1)" -"(local-transformer-expand/capture-lifts31_0 s_466 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" -"((s_467 context_22 stop-ids_15 intdefs24_1)" -"(local-transformer-expand/capture-lifts31_0 s_467 context_22 stop-ids_15 intdefs24_1 #f #t #f)))))" +"((s_475 context_21 stop-ids_14 intdefs_8 lift-key25_1)" +"(local-transformer-expand/capture-lifts31_0 s_475 context_21 stop-ids_14 intdefs_8 lift-key25_1 #t #t))" +"((s_476 context_22 stop-ids_15 intdefs24_1)" +"(local-transformer-expand/capture-lifts31_0 s_476 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_0 opaque-only?33_0 opaque-only?34_0)" "(begin" " 'syntax-local-expand-expression36" -"(let-values(((s_458) s35_0))" +"(let-values(((s_465) s35_0))" "(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_2) 'syntax-local-expand-expression)" -"((s86_0) s_458)" +"((s86_0) s_465)" "((temp87_3) 'expression)" "((null88_0) null)" "((temp89_6) #f)" @@ -55830,7 +55941,7 @@ static const char *startup_source = " null88_0" " temp89_6" " #t))))" -"(let-values(((ctx_70)(let-values()(get-current-expand-context17.1 #f #f #f #f))))" +"(let-values(((ctx_71)(let-values()(get-current-expand-context17.1 #f #f #f #f))))" "(let-values(((ae_1)" "(flip-introduction-scopes" "(datum->syntax$1" @@ -55838,17 +55949,17 @@ static const char *startup_source = "(already-expanded1.1" "(if(parsed? exp-s_12)" " exp-s_12" -"(flip-introduction-scopes exp-s_12 ctx_70))" -"(expand-context-binding-layer ctx_70)))" -" ctx_70)))" +"(flip-introduction-scopes exp-s_12 ctx_71))" +"(expand-context-binding-layer ctx_71)))" +" ctx_71)))" "(begin" -"(let-values(((obs_31)(expand-context-observer ctx_70)))" -"(if obs_31" -"(let-values()(let-values()(call-expand-observe obs_31 'opaque-expr ae_1)))" +"(let-values(((obs_30)(expand-context-observer ctx_71)))" +"(if obs_30" +"(let-values()(let-values()(call-expand-observe obs_30 'opaque-expr ae_1)))" "(void)))" -"(let-values(((obs_49)(expand-context-observer ctx_70)))" -"(if obs_49" -"(let-values()(let-values()(call-expand-observe obs_49 'exit-local exp-s_12)))" +"(let-values(((obs_56)(expand-context-observer ctx_71)))" +"(if obs_56" +"(let-values()(let-values()(call-expand-observe obs_56 'exit-local exp-s_12)))" "(void)))" "(values(if(not opaque-only?_0) exp-s_12 #f) ae_1))))))))))))" "(case-lambda" @@ -55947,16 +56058,16 @@ static const char *startup_source = "(let-values()" "(raise-argument-error" " who_33" -" \"(or/c #f internal-definitionc-context? (listof internal-definitionc-context?))\"" +" \"(or/c #f internal-definition-context? (listof internal-definition-context?))\"" " intdefs_9)))" "(values))))" -"(let-values(((ctx_71)" +"(let-values(((ctx_72)" "(let-values(((who93_0) who_33))" "(get-current-expand-context17.1 #f #f who93_0 #t))))" "(let-values(((phase_25)" "(if as-transformer?_5" -"(add1(expand-context-phase ctx_71))" -"(expand-context-phase ctx_71))))" +"(add1(expand-context-phase ctx_72))" +"(expand-context-phase ctx_72))))" "(let-values(((local-ctx_0)" "(let-values(((context95_0) context_23)" "((phase96_0) phase_25)" @@ -55976,29 +56087,29 @@ static const char *startup_source = " #t" " track-to-be-defined?100_0" " #t" -" ctx_71))))" +" ctx_72))))" "(let-values((()" "(begin" "(namespace-visit-available-modules!" -"(expand-context-namespace ctx_71)" +"(expand-context-namespace ctx_72)" " phase_25)" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_50)" +"(let-values(((obs_57)" "(expand-context-observer local-ctx_0)))" -"(if obs_50" +"(if obs_57" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_50" +" obs_57" " 'enter-local" " s_310)))" "(void)))" "(values))))" "(let-values(((input-s_1)" "(let-values(((temp101_4)" -"(flip-introduction-scopes s_310 ctx_71))" +"(flip-introduction-scopes s_310 ctx_72))" "((intdefs102_0) intdefs_9))" "(add-intdef-scopes21.1" " #f" @@ -56011,26 +56122,26 @@ static const char *startup_source = "(begin" "(if as-transformer?_5" "(let-values()" -"(let-values(((obs_51)" +"(let-values(((obs_58)" "(expand-context-observer" " local-ctx_0)))" -"(if obs_51" +"(if obs_58" "(let-values()" "(let-values()" -"(call-expand-observe obs_51 'phase-up)))" +"(call-expand-observe obs_58 'phase-up)))" "(void))))" "(void))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_52)" +"(let-values(((obs_59)" "(expand-context-observer" " local-ctx_0)))" -"(if obs_52" +"(if obs_59" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_52" +" obs_59" " 'local-pre" " input-s_1)))" "(void)))" @@ -56039,15 +56150,15 @@ static const char *startup_source = "(begin" "(if stop-ids_16" "(let-values()" -"(let-values(((obs_53)" +"(let-values(((obs_60)" "(expand-context-observer" " local-ctx_0)))" -"(if obs_53" +"(if obs_60" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_53" -" 'start-expand)))" +" obs_60" +" 'start)))" "(void))))" "(void))" "(values))))" @@ -56128,14 +56239,14 @@ static const char *startup_source = " local-ctx124_0))))))))" "(let-values((()" "(begin" -"(let-values(((obs_54)" +"(let-values(((obs_61)" "(expand-context-observer" " local-ctx_0)))" -"(if obs_54" +"(if obs_61" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_54" +" obs_61" " 'local-post" " output-s_0)))" "(void)))" @@ -56145,19 +56256,19 @@ static const char *startup_source = " output-s_0" "(flip-introduction-scopes" " output-s_0" -" ctx_71))))" +" ctx_72))))" "(begin" "(if skip-log-exit?_0" "(void)" "(let-values()" -"(let-values(((obs_55)" +"(let-values(((obs_62)" "(expand-context-observer" " local-ctx_0)))" -"(if obs_55" +"(if obs_62" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_55" +" obs_62" " 'exit-local" " result-s_8)))" "(void)))))" @@ -56202,13 +56313,13 @@ static const char *startup_source = "(let-values()" "(taint-dispatch" " s_3" -"(lambda(s_465)(syntax-arm$1 s_465 insp_21))" +"(lambda(s_474)(syntax-arm$1 s_474 insp_21))" "(1/syntax-local-phase-level)))" "(let-values()(syntax-arm$1 s_3 insp_21))))))))))))))" "(case-lambda" "((s_421)(begin 'syntax-arm(syntax-arm6_0 s_421 #f #f #f #f)))" -"((s_468 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_468 maybe-insp_1 use-mode?2_1 #t #t))" -"((s_469 maybe-insp1_1)(syntax-arm6_0 s_469 maybe-insp1_1 #f #t #f)))))" +"((s_477 maybe-insp_1 use-mode?2_1)(syntax-arm6_0 s_477 maybe-insp_1 use-mode?2_1 #t #t))" +"((s_478 maybe-insp1_1)(syntax-arm6_0 s_478 maybe-insp1_1 #f #t #f)))))" "(define-values" "(1/syntax-disarm)" "(lambda(s_411 maybe-insp_2)" @@ -56341,7 +56452,7 @@ static const char *startup_source = "(let-values()" " (raise-argument-error 'variable-reference->module-source \"variable-reference?\" vr_4)))" "(values))))" -"(let-values(((ns_117)(1/variable-reference->namespace vr_4)))(namespace-source-name ns_117))))))" +"(let-values(((ns_114)(1/variable-reference->namespace vr_4)))(namespace-source-name ns_114))))))" "(define-values" "(1/variable-reference->phase)" "(lambda(vr_5)" @@ -56594,7 +56705,7 @@ static const char *startup_source = "(add-core-primitive! 'syntax-local-name 1/syntax-local-name)" "(add-core-primitive! 'make-syntax-introducer 1/make-syntax-introducer)" "(add-core-primitive! 'make-syntax-delta-introducer 1/make-syntax-delta-introducer)" -"(add-core-primitive! 'syntax-local-make-delta-introducer syntax-local-make-delta-introducer)" +"(add-core-primitive! 'syntax-local-make-delta-introducer 1/syntax-local-make-delta-introducer)" "(add-core-primitive! 'syntax-local-value 1/syntax-local-value)" "(add-core-primitive! 'syntax-local-value/immediate 1/syntax-local-value/immediate)" "(add-core-primitive! 'syntax-local-lift-expression 1/syntax-local-lift-expression)" @@ -56707,7 +56818,7 @@ static const char *startup_source = " 'copy-runtime-module!26" "(let-values(((name_73) name25_0))" "(let-values(((to-name_0)(if to18_0 to11_0 name_73)))" -"(let-values(((ns_118) namespace12_0))" +"(let-values(((ns_115) namespace12_0))" "(let-values(((skip-syms_0)(if skip20_0 skip13_0(seteq))))" "(let-values(((alts_0)(if alts21_0 alts14_0 '#hasheq())))" "(let-values(((extras_0)(if extras22_0 extras15_0 '#hasheq())))" @@ -56807,7 +56918,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_157)))" -"((letrec-values(((for-loop_262)" +"((letrec-values(((for-loop_261)" "(lambda(ht_158 i_181)" "(begin" " 'for-loop" @@ -56827,15 +56938,15 @@ static const char *startup_source = " v_40))))" "(values ht_160)))))" "(if(not #f)" -"(for-loop_262" +"(for-loop_261" " ht_159" "(hash-iterate-next ht_157 i_181))" " ht_159)))" " ht_158)))))" -" for-loop_262)" +" for-loop_261)" " ht_155" "(hash-iterate-first ht_157))))))" -"(let-values(((ns63_0) ns_118)" +"(let-values(((ns63_0) ns_115)" "((primitive?64_0) primitive?_9)" "((protected?65_0) protected?_2))" "(declare-hash-based-module!41.1" @@ -56867,14 +56978,14 @@ static const char *startup_source = " 'declare-hash-based-module!41" "(let-values(((name_74) name39_0))" "(let-values(((ht_161) ht40_0))" -"(let-values(((ns_119) namespace29_0))" +"(let-values(((ns_116) namespace29_0))" "(let-values(((primitive?_6)(if primitive?35_0 primitive?30_0 #f)))" "(let-values(((protected?_3)(if protected?36_0 protected?31_0 #f)))" "(let-values(((protected-syms_0)(if protected37_0 protected32_0 null)))" "(let-values(((register-builtin?_0)(if register-builtin?38_0 register-builtin?33_0 #f)))" "(let-values()" "(let-values(((mpi_50)(1/module-path-index-join(list 'quote name_74) #f)))" -"(let-values(((ns66_1) ns_119)" +"(let-values(((ns66_1) ns_116)" "((temp67_3)" "(let-values(((temp69_5) #t)" "((primitive?70_0) primitive?_6)" @@ -56976,7 +57087,7 @@ static const char *startup_source = "(hash-iterate-first ht_162))))))" "((temp75_2)" "(lambda(data-box_6" -" ns_120" +" ns_117" " phase-shift_20" " phase-level_5" " self_7" @@ -56991,7 +57102,7 @@ static const char *startup_source = "(#%variable-reference))" "(void)" "(let-values()(check-in-hash ht_125)))" -"((letrec-values(((for-loop_263)" +"((letrec-values(((for-loop_262)" "(lambda(i_183)" "(begin" " 'for-loop" @@ -57007,20 +57118,20 @@ static const char *startup_source = "(begin" "(let-values()" "(namespace-set-variable!" -" ns_120" +" ns_117" " 0" " sym_98" " val_81))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_263" +"(for-loop_262" "(hash-iterate-next" " ht_125" " i_183))" "(values))))" "(values))))))" -" for-loop_263)" +" for-loop_262)" "(hash-iterate-first ht_125))))" "(void)))" "(void)))))" @@ -57068,7 +57179,7 @@ static const char *startup_source = "(let-values(((name_75) name48_0))" "(let-values(((require-names_0) require-names49_0))" "(let-values(((reexport?_0)(if reexport?46_0 reexport?44_0 #t)))" -"(let-values(((ns_121) namespace45_0))" +"(let-values(((ns_118) namespace45_0))" "(let-values()" "(let-values(((mpi_51)(1/module-path-index-join(list 'quote name_75) #f)))" "(let-values(((require-mpis_0)" @@ -57079,15 +57190,15 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_150)))" "((letrec-values(((for-loop_244)" -"(lambda(fold-var_271 lst_304)" +"(lambda(fold-var_267 lst_303)" "(begin" " 'for-loop" -"(if(pair? lst_304)" -"(let-values(((require-name_0)(unsafe-car lst_304))" -"((rest_175)(unsafe-cdr lst_304)))" +"(if(pair? lst_303)" +"(let-values(((require-name_0)(unsafe-car lst_303))" +"((rest_175)(unsafe-cdr lst_303)))" "(let-values(((fold-var_138)" -"(let-values(((fold-var_272) fold-var_271))" -"(let-values(((fold-var_273)" +"(let-values(((fold-var_268) fold-var_267))" +"(let-values(((fold-var_269)" "(let-values()" "(cons" "(let-values()" @@ -57096,16 +57207,16 @@ static const char *startup_source = " 'quote" " require-name_0)" " #f))" -" fold-var_272))))" -"(values fold-var_273)))))" +" fold-var_268))))" +"(values fold-var_269)))))" "(if(not #f)" "(for-loop_244 fold-var_138 rest_175)" " fold-var_138)))" -" fold-var_271)))))" +" fold-var_267)))))" " for-loop_244)" " null" " lst_150))))))" -"(let-values(((ns79_1) ns_121)" +"(let-values(((ns79_1) ns_118)" "((temp80_6)" "(let-values(((temp82_6) #t)" "((temp83_4) #t)" @@ -57115,29 +57226,29 @@ static const char *startup_source = "(if reexport?_0" "(hasheqv" " 0" -"(let-values(((lst_305) require-mpis_0))" +"(let-values(((lst_304) require-mpis_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_305)))" +"(let-values()(check-list lst_304)))" "((letrec-values(((for-loop_120)" -"(lambda(table_211 lst_306)" +"(lambda(table_211 lst_305)" "(begin" " 'for-loop" -"(if(pair? lst_306)" +"(if(pair? lst_305)" "(let-values(((require-mpi_0)" -"(unsafe-car lst_306))" +"(unsafe-car lst_305))" "((rest_176)" -"(unsafe-cdr lst_306)))" +"(unsafe-cdr lst_305)))" "(let-values(((table_212)" "(let-values(((m_29)" "(namespace->module" -" ns_121" +" ns_118" "(1/module-path-index-resolve" " require-mpi_0))))" "(begin" " #t" -"((letrec-values(((for-loop_264)" +"((letrec-values(((for-loop_263)" "(lambda(table_213)" "(begin" " 'for-loop" @@ -57201,7 +57312,7 @@ static const char *startup_source = "(hash-iterate-first" " ht_163))))))" " table_214))))))" -" for-loop_264)" +" for-loop_263)" " table_211)))))" "(if(not #f)" "(for-loop_120 table_212 rest_176)" @@ -57209,7 +57320,7 @@ static const char *startup_source = " table_211)))))" " for-loop_120)" " '#hash()" -" lst_305))))" +" lst_304))))" " '#hasheqv()))" "((void87_0) void))" "(make-module39.1" @@ -57676,8 +57787,8 @@ static const char *startup_source = "(with-module-reading-parameterization+delay-source" " path_12" "(lambda()" -"(let-values(((c1_30)(linklet-directory-start i_185)))" -"(if c1_30" +"(let-values(((c1_31)(linklet-directory-start i_185)))" +"(if c1_31" "((lambda(pos_120)" "(let-values(((b-pos_0)" "(search-directory i_185 pos_120(encode-symbols expected-mod_0))))" @@ -57706,7 +57817,7 @@ static const char *startup_source = " 'default-load-handler" " (string-append \"could not find main module\\n\" \" in: ~e\")" "(object-name i_185)))))))" -" c1_30)" +" c1_31)" "(if(if(pair? expected-mod_0)(not(car expected-mod_0)) #f)" "(let-values() void)" "(let-values(((c2_15)(cached-bundle i_185)))" @@ -57879,7 +57990,7 @@ static const char *startup_source = "(lambda(i_188)" "(begin" " 'read-byte/not-eof" -"(let-values(((v_244)(read-byte i_188)))(if(eof-object? v_244) 0 v_244))))))" +"(let-values(((v_241)(read-byte i_188)))(if(eof-object? v_241) 0 v_241))))))" "(bitwise-ior" "(read-byte/not-eof_0 i_41)" "(arithmetic-shift(read-byte/not-eof_0 i_41) 8)" @@ -57894,9 +58005,9 @@ static const char *startup_source = "(let-values()" "(let-values((()(begin(file-position i_189 pos_122)(values))))" "(let-values(((name-len_0)(read-number i_189)))" -"(let-values(((v_245)(read-bytes name-len_0 i_189)))" +"(let-values(((v_242)(read-bytes name-len_0 i_189)))" "(begin" -"(if(if(bytes? v_245)(=(bytes-length v_245) name-len_0) #f)" +"(if(if(bytes? v_242)(=(bytes-length v_242) name-len_0) #f)" "(void)" "(let-values()" "(error" @@ -57910,10 +58021,10 @@ static const char *startup_source = "(object-name i_189)" " pos_122" " name-len_0" -" v_245)))" -"(if(bytes=? bstr_5 v_245)" +" v_242)))" +"(if(bytes=? bstr_5 v_242)" "(let-values()(read-number i_189))" -"(if(bytesbytes/utf-8" -"(symbol->string s_470))))" +"(symbol->string s_479))))" "(let-values(((len_41)" "(bytes-length bstr_6)))" "(if(< len_41 255)" @@ -57977,7 +58088,7 @@ static const char *startup_source = " fold-var_67)))))" " for-loop_102)" " null" -" lst_307))))))))))" +" lst_306))))))))))" "(define-values" "(with-module-reading-parameterization+delay-source)" "(lambda(path_13 thunk_7)" @@ -58191,7 +58302,7 @@ static const char *startup_source = "(begin" " 'with-dir" "(with-dir*_0 base_25 t_56)))))" -"(let-values(((c1_31)" +"(let-values(((c1_32)" "(if try-main?_0" "(date>=?_0" " modes_3" @@ -58199,7 +58310,7 @@ static const char *startup_source = " so_0" " path-d_0)" " #f)))" -"(if c1_31" +"(if c1_32" "((lambda(so-d_0)" "(with-continuation-mark" " parameterization-key" @@ -58215,7 +58326,7 @@ static const char *startup_source = "((current-load-extension)" "(car so-d_0)" " expect-module_0))))))" -" c1_31)" +" c1_32)" "(let-values(((c2_16)" "(if try-alt?_0" "(date>=?_0" @@ -58355,7 +58466,7 @@ static const char *startup_source = "(begin(let-values(((e_40)(hash-ref -module-hash-table-table reg_0 #f)))(if e_40(ephemeron-value e_40) #f)))))" "(define-values" "(registry-table-set!)" -"(lambda(reg_1 v_197)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_197)))))" +"(lambda(reg_1 v_195)(begin(hash-set! -module-hash-table-table reg_1(make-ephemeron reg_1 v_195)))))" "(define-values(CACHE-N) 512)" "(define-values(-path-cache)(make-vector CACHE-N #f))" "(define-values" @@ -58384,30 +58495,30 @@ static const char *startup_source = "(define-values(-prev-relto-dir) #f)" "(define-values" "(split-relative-string)" -"(lambda(s_466 coll-mode?_0)" +"(lambda(s_475 coll-mode?_0)" "(begin" "(let-values(((l_19)" "((letrec-values(((loop_120)" -"(lambda(s_471)" +"(lambda(s_480)" "(begin" " 'loop" -"(let-values(((len_42)(string-length s_471)))" +"(let-values(((len_42)(string-length s_480)))" "((letrec-values(((iloop_2)" "(lambda(i_191)" "(begin" " 'iloop" "(if(= i_191 len_42)" -"(let-values()(list s_471))" -"(if(char=? '#\\/(string-ref s_471 i_191))" +"(let-values()(list s_480))" +"(if(char=? '#\\/(string-ref s_480 i_191))" "(let-values()" "(cons" -"(substring s_471 0 i_191)" -"(loop_120(substring s_471(add1 i_191)))))" +"(substring s_480 0 i_191)" +"(loop_120(substring s_480(add1 i_191)))))" "(let-values()(iloop_2(add1 i_191)))))))))" " iloop_2)" " 0))))))" " loop_120)" -" s_466)))" +" s_475)))" "(if coll-mode?_0" " l_19" "((letrec-values(((loop_101)" @@ -58499,14 +58610,14 @@ static const char *startup_source = "(void))))" "(void))))" "(void)))))))" -"((s_472 relto_0 stx_17)" +"((s_481 relto_0 stx_17)" "(begin" "(log-message" "(current-logger)" " 'error" " \"default module name resolver called with three arguments (deprecated)\"" " #f)" -"(standard-module-name-resolver_0 s_472 relto_0 stx_17 #t)))" +"(standard-module-name-resolver_0 s_481 relto_0 stx_17 #t)))" "((s_26 relto_1 stx_18 load?_7)" "(let-values((()" "(begin" @@ -58708,27 +58819,27 @@ static const char *startup_source = "(current-continuation-marks)" " s_26)))))))" "((ss->rkt_0)" -"(lambda(s_473)" +"(lambda(s_482)" "(begin" " 'ss->rkt" -"(let-values(((len_43)(string-length s_473)))" +"(let-values(((len_43)(string-length s_482)))" "(if(if(>= len_43 3)" "(if(equal?" " '#\\." -"(string-ref s_473(- len_43 3)))" +"(string-ref s_482(- len_43 3)))" "(if(equal?" " '#\\s" -"(string-ref s_473(- len_43 2)))" +"(string-ref s_482(- len_43 2)))" "(equal?" " '#\\s" -"(string-ref s_473(- len_43 1)))" +"(string-ref s_482(- len_43 1)))" " #f)" " #f)" " #f)" "(string-append" -"(substring s_473 0(- len_43 3))" +"(substring s_482 0(- len_43 3))" " \".rkt\")" -" s_473)))))" +" s_482)))))" "((path-ss->rkt_0)" "(lambda(p_77)" "(begin" @@ -58740,9 +58851,9 @@ static const char *startup_source = " p_77)))))" "((s_31)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" -"(let-values(((v_246)(cadr s_26)))" -" (if (let-values (((or-part_360) (equal? v_246 \".\")))" -" (if or-part_360 or-part_360 (equal? v_246 \"..\")))" +"(let-values(((v_243)(cadr s_26)))" +" (if (let-values (((or-part_360) (equal? v_243 \".\")))" +" (if or-part_360 or-part_360 (equal? v_243 \"..\")))" "(if relto_1" "(let-values(((p_78)" "(1/resolved-module-path-name" @@ -58752,7 +58863,7 @@ static const char *startup_source = " 'standard-module-name-resolver" " \"no base path for relative submodule path: ~.s\"" " s_26))" -" v_246))" +" v_243))" " s_26))" "((subm-path_0)" "(if(if(pair? s_26)(eq? 'submod(car s_26)) #f)" @@ -59129,12 +59240,12 @@ static const char *startup_source = " s_61" "(1/current-namespace)" "(let-values(((c_112)(1/current-compile)))" -"(lambda(e_83 ns_122)" -"(if(eq? ns_122(1/current-namespace))" +"(lambda(e_83 ns_119)" +"(if(eq? ns_119(1/current-namespace))" "(c_112 e_83 #t)" "(with-continuation-mark" " parameterization-key" -"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_122)" +"(extend-parameterization(continuation-mark-set-first #f parameterization-key) 1/current-namespace ns_119)" "(let-values()(c_112 e_83 #t))))))))))" "(define-values" "(default-compile-handler)" @@ -59175,10 +59286,10 @@ static const char *startup_source = "(define-values(boot-primitives)(hash 'boot boot 'seal seal 'orig-paramz orig-paramz))" "(define-values" "(prepare-next-phase-namespace)" -"(lambda(ctx_72)" +"(lambda(ctx_73)" "(begin" -"(let-values(((phase_40)(add1(expand-context-phase ctx_72))))" -"(let-values(((ns_58)(namespace->namespace-at-phase(expand-context-namespace ctx_72) phase_40)))" +"(let-values(((phase_40)(add1(expand-context-phase ctx_73))))" +"(let-values(((ns_58)(namespace->namespace-at-phase(expand-context-namespace ctx_73) phase_40)))" "(namespace-visit-available-modules! ns_58 phase_40))))))" "(define-values" "(expand-body7.1)" @@ -59192,11 +59303,11 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_56)(expand-context-observer ctx_14)))" -"(if obs_56" +"(let-values(((obs_63)(expand-context-observer ctx_14)))" +"(if obs_63" "(let-values()" "(let-values()" -"(call-expand-observe obs_56 'enter-block(datum->syntax$1 #f bodys_7))))" +"(call-expand-observe obs_63 'enter-block(datum->syntax$1 #f bodys_7))))" "(void)))" "(values))))" "(let-values(((inside-sc_0)(new-scope 'intdef)))" @@ -59207,7 +59318,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_264)))" -"((letrec-values(((for-loop_265)" +"((letrec-values(((for-loop_264)" "(lambda(fold-var_65 lst_168)" "(begin" " 'for-loop" @@ -59226,32 +59337,32 @@ static const char *startup_source = " fold-var_12))))" "(values fold-var_211)))))" "(if(not #f)" -"(for-loop_265 fold-var_11 rest_140)" +"(for-loop_264 fold-var_11 rest_140)" " fold-var_11)))" " fold-var_65)))))" -" for-loop_265)" +" for-loop_264)" " null" " lst_264))))))" "(let-values((()" "(begin" -"(let-values(((obs_57)(expand-context-observer ctx_14)))" -"(if obs_57" +"(let-values(((obs_64)(expand-context-observer ctx_14)))" +"(if obs_64" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_57" +" obs_64" " 'block-renames" "(datum->syntax$1 #f init-bodys_0)" "(datum->syntax$1 #f bodys_7))))" "(void)))" "(values))))" -"(let-values(((phase_140)(expand-context-phase ctx_14)))" +"(let-values(((phase_141)(expand-context-phase ctx_14)))" "(let-values(((frame-id_2)(make-reference-record)))" "(let-values(((def-ctx-scopes_6)(box null)))" "(let-values(((body-ctx_0)" -"(let-values(((v_247) ctx_14))" -"(let-values(((the-struct_91) v_247))" -"(if(expand-context/outer? the-struct_91)" +"(let-values(((v_244) ctx_14))" +"(let-values(((the-struct_89) v_244))" +"(if(expand-context/outer? the-struct_89)" "(let-values(((context51_0)(list(make-liberal-define-context)))" "((name52_1) #f)" "((only-immediate?53_0) #t)" @@ -59266,27 +59377,27 @@ static const char *startup_source = "(cons" " frame-id_2" "(expand-context-reference-records ctx_14)))" -"((inner61_0)(root-expand-context/outer-inner v_247)))" +"((inner61_0)(root-expand-context/outer-inner v_244)))" "(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_91)" +"(expand-context/outer-env the-struct_89)" " post-expansion-scope-action56_0" " scopes57_1" " def-ctx-scopes54_0" -"(expand-context/outer-binding-layer the-struct_91)" +"(expand-context/outer-binding-layer the-struct_89)" " reference-records60_0" " only-immediate?53_0" -"(expand-context/outer-need-eventually-defined the-struct_91)" -"(expand-context/outer-current-introduction-scopes the-struct_91)" +"(expand-context/outer-need-eventually-defined the-struct_89)" +"(expand-context/outer-current-introduction-scopes the-struct_89)" " name52_1))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_91))))))" +" the-struct_89))))))" "(let-values(((maybe-increment-binding-layer_0)" "(lambda(ids_27 body-ctx_1)" "(begin" @@ -59340,14 +59451,14 @@ static const char *startup_source = "(let-values(((rest-bodys_0)(cdr bodys_8)))" "(let-values((()" "(begin" -"(let-values(((obs_58)" +"(let-values(((obs_65)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_58" +"(if obs_65" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_58" +" obs_65" " 'next)))" "(void)))" "(values))))" @@ -59360,10 +59471,10 @@ static const char *startup_source = " #f)" "(let-values(((v_85)" " body-ctx_2))" -"(let-values(((the-struct_92)" +"(let-values(((the-struct_90)" " v_85))" "(if(expand-context/outer?" -" the-struct_92)" +" the-struct_90)" "(let-values(((name77_0)" " name_79)" "((inner78_0)" @@ -59372,36 +59483,36 @@ static const char *startup_source = "(expand-context/outer1.1" " inner78_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_92)" +" the-struct_90)" "(root-expand-context/outer-use-site-scopes" -" the-struct_92)" +" the-struct_90)" "(root-expand-context/outer-frame-id" -" the-struct_92)" +" the-struct_90)" "(expand-context/outer-context" -" the-struct_92)" +" the-struct_90)" "(expand-context/outer-env" -" the-struct_92)" +" the-struct_90)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_92)" +" the-struct_90)" "(expand-context/outer-scopes" -" the-struct_92)" +" the-struct_90)" "(expand-context/outer-def-ctx-scopes" -" the-struct_92)" +" the-struct_90)" "(expand-context/outer-binding-layer" -" the-struct_92)" +" the-struct_90)" "(expand-context/outer-reference-records" -" the-struct_92)" +" the-struct_90)" "(expand-context/outer-only-immediate?" -" the-struct_92)" +" the-struct_90)" "(expand-context/outer-need-eventually-defined" -" the-struct_92)" +" the-struct_90)" "(expand-context/outer-current-introduction-scopes" -" the-struct_92)" +" the-struct_90)" " name77_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_92))))" +" the-struct_90))))" " body-ctx_2)))" "(expand7.1" " #f" @@ -59415,19 +59526,19 @@ static const char *startup_source = "(let-values(((tmp_60)" "(core-form-sym" " disarmed-exp-body_0" -" phase_140)))" +" phase_141)))" "(if(equal? tmp_60 'begin)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_59)" +"(let-values(((obs_66)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_59" +"(if obs_66" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_59" +" obs_66" " 'prim-begin)))" "(void)))" "(values))))" @@ -59438,23 +59549,23 @@ static const char *startup_source = " s_396))" "(let-values(((begin79_1" " e80_1)" -"(let-values(((s_474)" +"(let-values(((s_483)" "(if(syntax?$1" " s_396)" "(syntax-e$1" " s_396)" " s_396)))" "(if(pair?" -" s_474)" +" s_483)" "(let-values(((begin81_0)" "(let-values(((s_44)" "(car" -" s_474)))" +" s_483)))" " s_44))" "((e82_0)" "(let-values(((s_166)" "(cdr" -" s_474)))" +" s_483)))" "(let-values(((s_167)" "(if(syntax?$1" " s_166)" @@ -59496,14 +59607,14 @@ static const char *startup_source = "(map2 track_0 e80_0)" " rest-bodys_0)))" "(begin" -"(let-values(((obs_60)" +"(let-values(((obs_67)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_60" +"(if obs_67" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_60" +" obs_67" " 'splice" " splice-bodys_0)))" "(void)))" @@ -59522,14 +59633,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_61)" +"(let-values(((obs_68)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_61" +"(if obs_68" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_61" +" obs_68" " 'prim-define-values)))" "(void)))" "(values))))" @@ -59592,7 +59703,7 @@ static const char *startup_source = " orig-s_39))" "(let-values()" "(let-values(((id_16)" -"(let-values(((lst_308)" +"(let-values(((lst_307)" " flat-s_25))" "(begin" "(if(variable-reference-from-unsafe?" @@ -59600,20 +59711,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_308)))" -"((letrec-values(((for-loop_266)" +" lst_307)))" +"((letrec-values(((for-loop_265)" "(lambda(id_99" -" lst_309)" +" lst_308)" "(begin" " 'for-loop" "(if(pair?" -" lst_309)" +" lst_308)" "(let-values(((s_314)" "(unsafe-car" -" lst_309))" +" lst_308))" "((rest_177)" "(unsafe-cdr" -" lst_309)))" +" lst_308)))" "(let-values(((id_100)" "(let-values(((id_101)" " id_99))" @@ -59645,43 +59756,43 @@ static const char *startup_source = " id_79)))))" "(if(not" " #f)" -"(for-loop_266" +"(for-loop_265" " id_100" " rest_177)" " id_100)))" " id_99)))))" -" for-loop_266)" +" for-loop_265)" " null" -" lst_308)))))" +" lst_307)))))" "(reverse$1" " id_16))))))))" "((rhs90_0)" -"(let-values(((s_475)" +"(let-values(((s_484)" "(cdr" " s_69)))" -"(let-values(((s_476)" +"(let-values(((s_485)" "(if(syntax?$1" -" s_475)" +" s_484)" "(syntax-e$1" -" s_475)" -" s_475)))" +" s_484)" +" s_484)))" "(if(pair?" -" s_476)" +" s_485)" "(let-values(((rhs91_0)" "(let-values(((s_54)" "(car" -" s_476)))" +" s_485)))" " s_54))" "(()" -"(let-values(((s_477)" +"(let-values(((s_434)" "(cdr" -" s_476)))" +" s_485)))" "(let-values(((s_316)" "(if(syntax?$1" -" s_477)" +" s_434)" "(syntax-e$1" -" s_477)" -" s_477)))" +" s_434)" +" s_434)))" "(if(null?" " s_316)" "(values)" @@ -59721,14 +59832,14 @@ static const char *startup_source = " body-ctx_2)))" "(let-values((()" "(begin" -"(let-values(((obs_62)" +"(let-values(((obs_69)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_62" +"(if obs_69" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_62" +" obs_69" " 'rename-one" "(datum->syntax$1" " #f" @@ -59741,7 +59852,7 @@ static const char *startup_source = "(let-values(((ids93_0)" " ids_4)" "((phase94_0)" -" phase_140)" +" phase_141)" "((exp-body95_0)" " exp-body_0)" "((dups96_0)" @@ -59769,21 +59880,21 @@ static const char *startup_source = "(check-list" " lst_191)))" "((letrec-values(((for-loop_12)" -"(lambda(fold-var_274" -" lst_310)" +"(lambda(fold-var_270" +" lst_309)" "(begin" " 'for-loop" "(if(pair?" -" lst_310)" +" lst_309)" "(let-values(((id_102)" "(unsafe-car" -" lst_310))" +" lst_309))" "((rest_178)" "(unsafe-cdr" -" lst_310)))" -"(let-values(((fold-var_275)" +" lst_309)))" +"(let-values(((fold-var_271)" "(let-values(((fold-var_242)" -" fold-var_274))" +" fold-var_270))" "(let-values(((fold-var_229)" "(let-values()" "(cons" @@ -59798,7 +59909,7 @@ static const char *startup_source = " exp-body101_0" " #t" " id_102" -" phase_140" +" phase_141" " counter_5)))" " fold-var_242))))" "(values" @@ -59806,15 +59917,15 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_12" -" fold-var_275" +" fold-var_271" " rest_178)" -" fold-var_275)))" -" fold-var_274)))))" +" fold-var_271)))" +" fold-var_270)))))" " for-loop_12)" " null" " lst_191))))))" "(let-values(((extended-env_0)" -"(let-values(((lst_311)" +"(let-values(((lst_310)" " keys_5)" "((lst_221)" " ids_4))" @@ -59824,7 +59935,7 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_311)))" +" lst_310)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" @@ -59877,13 +59988,13 @@ static const char *startup_source = " for-loop_229)" "(expand-context-env" " body-ctx_2)" -" lst_311" +" lst_310" " lst_221)))))" "(loop_123" -"(let-values(((v_248)" +"(let-values(((v_245)" " body-ctx_2))" "(let-values(((the-struct_52)" -" v_248))" +" v_245))" "(if(expand-context/outer?" " the-struct_52)" "(let-values(((env102_0)" @@ -59894,7 +60005,7 @@ static const char *startup_source = " body-ctx_2))" "((inner104_0)" "(root-expand-context/outer-inner" -" v_248)))" +" v_245)))" "(expand-context/outer1.1" " inner104_0" "(root-expand-context/outer-post-expansion-scope" @@ -59955,23 +60066,23 @@ static const char *startup_source = "((rest_180)" "(unsafe-cdr" " lst_196)))" -"(let-values(((fold-var_276)" -"(let-values(((fold-var_277)" +"(let-values(((fold-var_272)" +"(let-values(((fold-var_273)" " fold-var_187))" -"(let-values(((fold-var_278)" +"(let-values(((fold-var_274)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_277))))" +" fold-var_273))))" "(values" -" fold-var_278)))))" +" fold-var_274)))))" "(if(not" " #f)" "(for-loop_41" -" fold-var_276" +" fold-var_272" " rest_180)" -" fold-var_276)))" +" fold-var_272)))" " fold-var_187)))))" " for-loop_41)" " null" @@ -59981,7 +60092,7 @@ static const char *startup_source = " keys_5" "(append" "(reverse$1" -"(let-values(((lst_312)" +"(let-values(((lst_311)" " done-bodys_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -59989,41 +60100,41 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_312)))" -"((letrec-values(((for-loop_267)" +" lst_311)))" +"((letrec-values(((for-loop_266)" "(lambda(fold-var_190" -" lst_313)" +" lst_312)" "(begin" " 'for-loop" "(if(pair?" -" lst_313)" +" lst_312)" "(let-values(((done-body_1)" "(unsafe-car" -" lst_313))" +" lst_312))" "((rest_181)" "(unsafe-cdr" -" lst_313)))" -"(let-values(((fold-var_279)" -"(let-values(((fold-var_280)" +" lst_312)))" +"(let-values(((fold-var_275)" +"(let-values(((fold-var_276)" " fold-var_190))" -"(let-values(((fold-var_281)" +"(let-values(((fold-var_277)" "(let-values()" "(cons" "(let-values()" " null)" -" fold-var_280))))" +" fold-var_276))))" "(values" -" fold-var_281)))))" +" fold-var_277)))))" "(if(not" " #f)" -"(for-loop_267" -" fold-var_279" +"(for-loop_266" +" fold-var_275" " rest_181)" -" fold-var_279)))" +" fold-var_275)))" " fold-var_190)))))" -" for-loop_267)" +" for-loop_266)" " null" -" lst_312))))" +" lst_311))))" " val-keyss_0))" "(cons" " rhs85_0" @@ -60039,21 +60150,21 @@ static const char *startup_source = "(check-list" " lst_148)))" "((letrec-values(((for-loop_115)" -"(lambda(fold-var_282" -" lst_314)" +"(lambda(fold-var_278" +" lst_313)" "(begin" " 'for-loop" "(if(pair?" -" lst_314)" +" lst_313)" "(let-values(((done-body_2)" "(unsafe-car" -" lst_314))" +" lst_313))" "((rest_182)" "(unsafe-cdr" -" lst_314)))" +" lst_313)))" "(let-values(((fold-var_41)" -"(let-values(((fold-var_283)" -" fold-var_282))" +"(let-values(((fold-var_279)" +" fold-var_278))" "(let-values(((fold-var_22)" "(let-values()" "(cons" @@ -60061,8 +60172,8 @@ static const char *startup_source = "(no-binds" " done-body_2" " s_40" -" phase_140))" -" fold-var_283))))" +" phase_141))" +" fold-var_279))))" "(values" " fold-var_22)))))" "(if(not" @@ -60071,7 +60182,7 @@ static const char *startup_source = " fold-var_41" " rest_182)" " fold-var_41)))" -" fold-var_282)))))" +" fold-var_278)))))" " for-loop_115)" " null" " lst_148))))" @@ -60131,14 +60242,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_63)" +"(let-values(((obs_70)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_63" +"(if obs_70" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_63" +" obs_70" " 'prim-define-syntaxes)))" "(void)))" "(values))))" @@ -60162,33 +60273,33 @@ static const char *startup_source = "(if(pair?" " s_95)" "(let-values(((define-syntaxes108_0)" -"(let-values(((s_478)" +"(let-values(((s_486)" "(car" " s_95)))" -" s_478))" +" s_486))" "((id109_0" " rhs110_0)" -"(let-values(((s_437)" +"(let-values(((s_487)" "(cdr" " s_95)))" -"(let-values(((s_479)" +"(let-values(((s_488)" "(if(syntax?$1" -" s_437)" +" s_487)" "(syntax-e$1" -" s_437)" -" s_437)))" +" s_487)" +" s_487)))" "(if(pair?" -" s_479)" +" s_488)" "(let-values(((id111_0)" -"(let-values(((s_480)" +"(let-values(((s_489)" "(car" -" s_479)))" +" s_488)))" "(let-values(((s_208)" "(if(syntax?$1" -" s_480)" +" s_489)" "(syntax-e$1" -" s_480)" -" s_480)))" +" s_489)" +" s_489)))" "(let-values(((flat-s_26)" "(to-syntax-list.1" " s_208)))" @@ -60267,7 +60378,7 @@ static const char *startup_source = "((rhs112_0)" "(let-values(((s_102)" "(cdr" -" s_479)))" +" s_488)))" "(let-values(((s_154)" "(if(syntax?$1" " s_102)" @@ -60277,22 +60388,22 @@ static const char *startup_source = "(if(pair?" " s_154)" "(let-values(((rhs113_0)" -"(let-values(((s_481)" +"(let-values(((s_490)" "(car" " s_154)))" -" s_481))" +" s_490))" "(()" -"(let-values(((s_482)" +"(let-values(((s_491)" "(cdr" " s_154)))" -"(let-values(((s_483)" +"(let-values(((s_492)" "(if(syntax?$1" -" s_482)" +" s_491)" "(syntax-e$1" -" s_482)" -" s_482)))" +" s_491)" +" s_491)))" "(if(null?" -" s_483)" +" s_492)" "(values)" "(raise-syntax-error$1" " #f" @@ -60330,14 +60441,14 @@ static const char *startup_source = " body-ctx_2)))" "(let-values((()" "(begin" -"(let-values(((obs_64)" +"(let-values(((obs_42)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_64" +"(if obs_42" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_64" +" obs_42" " 'rename-one" "(datum->syntax$1" " #f" @@ -60350,7 +60461,7 @@ static const char *startup_source = "(let-values(((ids115_0)" " ids_28)" "((phase116_0)" -" phase_140)" +" phase_141)" "((exp-body117_0)" " exp-body_0)" "((dups118_0)" @@ -60368,7 +60479,7 @@ static const char *startup_source = " ctx_14)))" "(let-values(((keys_6)" "(reverse$1" -"(let-values(((lst_315)" +"(let-values(((lst_314)" " ids_28))" "(begin" "(if(variable-reference-from-unsafe?" @@ -60376,24 +60487,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_315)))" -"((letrec-values(((for-loop_268)" -"(lambda(fold-var_284" -" lst_316)" +" lst_314)))" +"((letrec-values(((for-loop_267)" +"(lambda(fold-var_280" +" lst_315)" "(begin" " 'for-loop" "(if(pair?" -" lst_316)" +" lst_315)" "(let-values(((id_109)" "(unsafe-car" -" lst_316))" +" lst_315))" "((rest_183)" "(unsafe-cdr" -" lst_316)))" -"(let-values(((fold-var_285)" -"(let-values(((fold-var_286)" -" fold-var_284))" -"(let-values(((fold-var_287)" +" lst_315)))" +"(let-values(((fold-var_281)" +"(let-values(((fold-var_282)" +" fold-var_280))" +"(let-values(((fold-var_283)" "(let-values()" "(cons" "(let-values()" @@ -60407,31 +60518,31 @@ static const char *startup_source = " exp-body123_0" " #t" " id_109" -" phase_140" +" phase_141" " counter_6)))" -" fold-var_286))))" +" fold-var_282))))" "(values" -" fold-var_287)))))" +" fold-var_283)))))" "(if(not" " #f)" -"(for-loop_268" -" fold-var_285" +"(for-loop_267" +" fold-var_281" " rest_183)" -" fold-var_285)))" -" fold-var_284)))))" -" for-loop_268)" +" fold-var_281)))" +" fold-var_280)))))" +" for-loop_267)" " null" -" lst_315))))))" +" lst_314))))))" "(let-values((()" "(begin" -"(let-values(((obs_65)" +"(let-values(((obs_71)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_65" +"(if obs_71" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_65" +" obs_71" " 'prepare-env)))" "(void)))" "(values))))" @@ -60442,14 +60553,14 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_66)" +"(let-values(((obs_72)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_66" +"(if obs_72" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_66" +" obs_72" " 'enter-bind)))" "(void)))" "(values))))" @@ -60459,11 +60570,11 @@ static const char *startup_source = " ids_28" " body-ctx_2)))" "(let-values(((extended-env_1)" -"(let-values(((lst_317)" +"(let-values(((lst_316)" " keys_6)" -"((lst_318)" +"((lst_317)" " vals_8)" -"((lst_319)" +"((lst_318)" " ids_28))" "(begin" "(if(variable-reference-from-unsafe?" @@ -60471,6 +60582,12 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" +" lst_316)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_317)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -60478,45 +60595,39 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_318)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_319)))" -"((letrec-values(((for-loop_269)" +"((letrec-values(((for-loop_268)" "(lambda(env_21" +" lst_319" " lst_320" -" lst_321" -" lst_322)" +" lst_321)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_320)" +" lst_319)" "(if(pair?" -" lst_321)" +" lst_320)" "(pair?" -" lst_322)" +" lst_321)" " #f)" " #f)" "(let-values(((key_91)" "(unsafe-car" -" lst_320))" +" lst_319))" "((rest_184)" "(unsafe-cdr" -" lst_320))" +" lst_319))" "((val_83)" "(unsafe-car" -" lst_321))" +" lst_320))" "((rest_185)" "(unsafe-cdr" -" lst_321))" +" lst_320))" "((id_110)" "(unsafe-car" -" lst_322))" +" lst_321))" "((rest_186)" "(unsafe-cdr" -" lst_322)))" +" lst_321)))" "(let-values(((env_22)" "(let-values(((env_23)" " env_21))" @@ -60526,7 +60637,7 @@ static const char *startup_source = "(maybe-install-free=id-in-context!" " val_83" " id_110" -" phase_140" +" phase_141" " body-ctx_2)" "(env-extend" " env_23" @@ -60536,37 +60647,37 @@ static const char *startup_source = " env_24)))))" "(if(not" " #f)" -"(for-loop_269" +"(for-loop_268" " env_22" " rest_184" " rest_185" " rest_186)" " env_22)))" " env_21)))))" -" for-loop_269)" +" for-loop_268)" "(expand-context-env" " body-ctx_2)" +" lst_316" " lst_317" -" lst_318" -" lst_319)))))" +" lst_318)))))" "(begin" -"(let-values(((obs_67)" +"(let-values(((obs_73)" "(expand-context-observer" " body-ctx_2)))" -"(if obs_67" +"(if obs_73" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_67" +" obs_73" " 'exit-bind)))" "(void)))" "(loop_123" -"(let-values(((v_249)" +"(let-values(((v_246)" " body-ctx_2))" -"(let-values(((the-struct_93)" -" v_249))" +"(let-values(((the-struct_91)" +" v_246))" "(if(expand-context/outer?" -" the-struct_93)" +" the-struct_91)" "(let-values(((env124_0)" " extended-env_1)" "((binding-layer125_0)" @@ -60575,39 +60686,39 @@ static const char *startup_source = " body-ctx_2))" "((inner126_0)" "(root-expand-context/outer-inner" -" v_249)))" +" v_246)))" "(expand-context/outer1.1" " inner126_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_93)" +" the-struct_91)" "(root-expand-context/outer-use-site-scopes" -" the-struct_93)" +" the-struct_91)" "(root-expand-context/outer-frame-id" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-context" -" the-struct_93)" +" the-struct_91)" " env124_0" "(expand-context/outer-post-expansion-scope-action" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-scopes" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-def-ctx-scopes" -" the-struct_93)" +" the-struct_91)" " binding-layer125_0" "(expand-context/outer-reference-records" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-only-immediate?" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-need-eventually-defined" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-current-introduction-scopes" -" the-struct_93)" +" the-struct_91)" "(expand-context/outer-name" -" the-struct_93)))" +" the-struct_91)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_93))))" +" the-struct_91))))" " rest-bodys_0" " done-bodys_0" " val-idss_0" @@ -60651,7 +60762,7 @@ static const char *startup_source = "(cons" "(core-id" " '#%stratified-body" -" phase_140)" +" phase_141)" "(cons" " exp-body_0" " rest-bodys_0)))))" @@ -60711,7 +60822,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_484) source10_0))" +"(let-values(((s_493) source10_0))" "(let-values(((stratified?_1) stratified?11_0))" "(let-values(((name_80) name12_0))" "(let-values(((disappeared-transformer-bindings_0) disappeared-transformer-bindings13_0))" @@ -60723,16 +60834,16 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"no expression after a sequence of internal definitions\"" -" s_484))" +" s_493))" "(void))" "(values))))" "(let-values(((finish-ctx_0)" -"(let-values(((v_250)" +"(let-values(((v_247)" "(accumulate-def-ctx-scopes" " body-ctx_3" " def-ctx-scopes_7)))" -"(let-values(((the-struct_94) v_250))" -"(if(expand-context/outer? the-struct_94)" +"(let-values(((the-struct_92) v_247))" +"(if(expand-context/outer? the-struct_92)" "(let-values(((context127_0) 'expression)" "((use-site-scopes128_0)(box null))" "((scopes129_0)" @@ -60745,29 +60856,29 @@ static const char *startup_source = "((def-ctx-scopes131_0) #f)" "((post-expansion-scope132_0) #f)" "((inner133_0)" -"(root-expand-context/outer-inner v_250)))" +"(root-expand-context/outer-inner v_247)))" "(expand-context/outer1.1" " inner133_0" " post-expansion-scope132_0" " use-site-scopes128_0" -"(root-expand-context/outer-frame-id the-struct_94)" +"(root-expand-context/outer-frame-id the-struct_92)" " context127_0" -"(expand-context/outer-env the-struct_94)" +"(expand-context/outer-env the-struct_92)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_94)" +" the-struct_92)" " scopes129_0" " def-ctx-scopes131_0" -"(expand-context/outer-binding-layer the-struct_94)" -"(expand-context/outer-reference-records the-struct_94)" +"(expand-context/outer-binding-layer the-struct_92)" +"(expand-context/outer-reference-records the-struct_92)" " only-immediate?130_0" -"(expand-context/outer-need-eventually-defined the-struct_94)" +"(expand-context/outer-need-eventually-defined the-struct_92)" "(expand-context/outer-current-introduction-scopes" -" the-struct_94)" -"(expand-context/outer-name the-struct_94)))" +" the-struct_92)" +"(expand-context/outer-name the-struct_92)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_94))))))" +" the-struct_92))))))" "(let-values(((finish-bodys_0)" "(lambda()" "(begin" @@ -60778,28 +60889,28 @@ static const char *startup_source = "(if block->list?_0" "(void)" "(let-values()" -"(let-values(((obs_68)" +"(let-values(((obs_74)" "(expand-context-observer" " body-ctx_3)))" -"(if obs_68" +"(if obs_74" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_68" +" obs_74" " 'next-group)))" "(void)))))" "(values))))" "(let-values(((last-i_1)(sub1(length done-bodys_1))))" "(let-values((()" "(begin" -"(let-values(((obs_69)" +"(let-values(((obs_75)" "(expand-context-observer" " body-ctx_3)))" -"(if obs_69" +"(if obs_75" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_69" +" obs_75" " 'enter-list" "(datum->syntax$1" " #f" @@ -60808,53 +60919,53 @@ static const char *startup_source = "(values))))" "(let-values(((exp-bodys_0)" "(reverse$1" -"(let-values(((lst_323) done-bodys_1)" +"(let-values(((lst_322) done-bodys_1)" "((start_64) 0))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_323)))" +"(check-list lst_322)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-naturals start_64)))" "((letrec-values(((for-loop_132)" -"(lambda(fold-var_288" -" lst_324" +"(lambda(fold-var_284" +" lst_323" " pos_123)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_324)" +" lst_323)" " #t" " #f)" "(let-values(((done-body_4)" "(unsafe-car" -" lst_324))" +" lst_323))" "((rest_187)" "(unsafe-cdr" -" lst_324))" +" lst_323))" "((i_192)" " pos_123))" -"(let-values(((fold-var_289)" +"(let-values(((fold-var_285)" "(let-values(((fold-var_203)" -" fold-var_288))" -"(let-values(((fold-var_290)" +" fold-var_284))" +"(let-values(((fold-var_286)" "(let-values()" "(cons" "(let-values()" "(begin" -"(let-values(((obs_70)" +"(let-values(((obs_76)" "(expand-context-observer" " body-ctx_3)))" -"(if obs_70" +"(if obs_76" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_70" +" obs_76" " 'next)))" "(void)))" "(let-values(((done-body134_0)" @@ -60865,50 +60976,50 @@ static const char *startup_source = " i_192" " last-i_1)" " #f)" -"(let-values(((v_251)" +"(let-values(((v_248)" " finish-ctx_0))" -"(let-values(((the-struct_95)" -" v_251))" +"(let-values(((the-struct_93)" +" v_248))" "(if(expand-context/outer?" -" the-struct_95)" +" the-struct_93)" "(let-values(((name136_0)" " name_80)" -"((inner137_1)" +"((inner137_0)" "(root-expand-context/outer-inner" -" v_251)))" +" v_248)))" "(expand-context/outer1.1" -" inner137_1" +" inner137_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_95)" +" the-struct_93)" "(root-expand-context/outer-use-site-scopes" -" the-struct_95)" +" the-struct_93)" "(root-expand-context/outer-frame-id" -" the-struct_95)" +" the-struct_93)" "(expand-context/outer-context" -" the-struct_95)" +" the-struct_93)" "(expand-context/outer-env" -" the-struct_95)" +" the-struct_93)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_95)" +" the-struct_93)" "(expand-context/outer-scopes" -" the-struct_95)" +" the-struct_93)" "(expand-context/outer-def-ctx-scopes" -" the-struct_95)" +" the-struct_93)" "(expand-context/outer-binding-layer" -" the-struct_95)" +" the-struct_93)" "(expand-context/outer-reference-records" -" the-struct_95)" +" the-struct_93)" "(expand-context/outer-only-immediate?" -" the-struct_95)" +" the-struct_93)" "(expand-context/outer-need-eventually-defined" -" the-struct_95)" +" the-struct_93)" "(expand-context/outer-current-introduction-scopes" -" the-struct_95)" +" the-struct_93)" " name136_0))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_95))))" +" the-struct_93))))" " finish-ctx_0)))" "(expand7.1" " #f" @@ -60919,29 +61030,29 @@ static const char *startup_source = " temp135_2))))" " fold-var_203))))" "(values" -" fold-var_290)))))" +" fold-var_286)))))" "(if(not" " #f)" "(for-loop_132" -" fold-var_289" +" fold-var_285" " rest_187" "(+" " pos_123" " 1))" -" fold-var_289)))" -" fold-var_288)))))" +" fold-var_285)))" +" fold-var_284)))))" " for-loop_132)" " null" -" lst_323" +" lst_322" " start_64))))))" "(begin" -"(let-values(((obs_71)" +"(let-values(((obs_77)" "(expand-context-observer body-ctx_3)))" -"(if obs_71" +"(if obs_77" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_71" +" obs_77" " 'exit-list" "(datum->syntax$1 #f exp-bodys_0))))" "(void)))" @@ -60950,27 +61061,27 @@ static const char *startup_source = "(if(if(null? val-idss_1)(null? disappeared-transformer-bindings_0) #f)" "(let-values()" "(begin" -"(let-values(((obs_72)(expand-context-observer finish-ctx_0)))" -"(if obs_72" +"(let-values(((obs_78)(expand-context-observer finish-ctx_0)))" +"(if obs_78" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_72" +" obs_78" " 'block->list" -"(datum->syntax$1 s_484 done-bodys_1))))" +"(datum->syntax$1 s_493 done-bodys_1))))" "(void)))" "(finish-bodys_0)))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_73)" +"(let-values(((obs_79)" "(expand-context-observer finish-ctx_0)))" -"(if obs_73" +"(if obs_79" "(let-values()" "(log-letrec-values$1" -" obs_73" +" obs_79" " finish-ctx_0" -" s_484" +" s_493" " val-idss_1" " val-rhss_1" " track-stxs_1" @@ -60982,7 +61093,7 @@ static const char *startup_source = "(let-values(((temp142_1)(not stratified?_1))" "((frame-id143_0) frame-id_13)" "((finish-ctx144_0) finish-ctx_0)" -"((s145_0) s_484)" +"((s145_0) s_493)" "((temp146_1)(pair? stx-clauses_1))" "((finish-bodys147_0) finish-bodys_0)" "((temp148_1) #f))" @@ -60999,13 +61110,13 @@ static const char *startup_source = " val-rhss_1" " track-stxs_1))))" "(begin" -"(let-values(((obs_74)(expand-context-observer body-ctx_3)))" -"(if obs_74" +"(let-values(((obs_80)(expand-context-observer body-ctx_3)))" +"(if obs_80" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_74 'exit-prim exp-s_13)" -"(call-expand-observe obs_74 'return exp-s_13))))" +"(call-expand-observe obs_80 'exit-prim exp-s_13)" +"(call-expand-observe obs_80 'return exp-s_13))))" "(void)))" "(if(expand-context-to-parsed? body-ctx_3)" "(list exp-s_13)" @@ -61034,13 +61145,13 @@ static const char *startup_source = "(let-values(((track-stxs_2) track-stxs47_0))" "(let-values(((split?_0) split?30_0))" "(let-values(((frame-id_14) frame-id31_0))" -"(let-values(((ctx_73) ctx32_0))" +"(let-values(((ctx_74) ctx32_0))" "(let-values(((s_370) source33_0))" "(let-values(((had-stxes?_0) had-stxes?34_0))" "(let-values(((get-body_0) get-body35_0))" "(let-values(((track?_1) track?36_0))" "(let-values()" -"(let-values(((phase_141)(expand-context-phase ctx_73)))" +"(let-values(((phase_142)(expand-context-phase ctx_74)))" "((letrec-values(((loop_124)" "(lambda(idss_2" " keyss_1" @@ -61062,7 +61173,7 @@ static const char *startup_source = "(let-values()" "(let-values(((exp-body_1)(get-body_0)))" "(let-values(((result-s_9)" -"(if(expand-context-to-parsed? ctx_73)" +"(if(expand-context-to-parsed? ctx_74)" "(if(null? accum-idss_0)" "(parsed-let-values17.1" "(keep-properties-only s_370)" @@ -61085,10 +61196,10 @@ static const char *startup_source = "(if(null? accum-idss_0)" "(core-id" " 'let-values" -" phase_141)" +" phase_142)" "(core-id" " 'letrec-values" -" phase_141))" +" phase_142))" "(build-clauses" " accum-idss_0" " accum-rhss_0" @@ -61100,16 +61211,16 @@ static const char *startup_source = " s150_0" " temp151_2)))))" "(begin" -"(let-values(((obs_75)" -"(expand-context-observer ctx_73)))" -"(if obs_75" +"(let-values(((obs_81)" +"(expand-context-observer ctx_74)))" +"(if obs_81" "(let-values()" "(if(if can-log?_0" -"(log-tag? had-stxes?_0 ctx_73)" +"(log-tag? had-stxes?_0 ctx_74)" " #f)" "(let-values()" "(call-expand-observe" -" obs_75" +" obs_81" " 'tag" " result-s_9))" "(void)))" @@ -61118,13 +61229,13 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_76)" +"(let-values(((obs_82)" "(expand-context-observer" -" ctx_73)))" -"(if obs_76" +" ctx_74)))" +"(if obs_82" "(let-values()" "(let-values()" -"(call-expand-observe obs_76 'next)))" +"(call-expand-observe obs_82 'next)))" "(void)))" "(values))))" "(let-values(((ids_29)(car idss_2)))" @@ -61132,7 +61243,7 @@ static const char *startup_source = "(let-values(((temp152_1)(car rhss_2))" "((temp153_0)" "(as-named-context" -" ctx_73" +" ctx_74" " ids_29)))" "(expand7.1" " #f" @@ -61181,7 +61292,7 @@ static const char *startup_source = " #f)))" "(let-values(((result-s_10)" "(if(expand-context-to-parsed?" -" ctx_73)" +" ctx_74)" "(parsed-let-values17.1" "(keep-properties-only" " s_370)" @@ -61199,7 +61310,7 @@ static const char *startup_source = "(list*" "(core-id" " 'let-values" -" phase_141)" +" phase_142)" "(list" "(build-clause" " ids_29" @@ -61212,19 +61323,19 @@ static const char *startup_source = " s155_0" " temp156_0)))))" "(begin" -"(let-values(((obs_77)" +"(let-values(((obs_83)" "(expand-context-observer" -" ctx_73)))" -"(if obs_77" +" ctx_74)))" +"(if obs_83" "(let-values()" "(if(if can-log?_0" "(log-tag?" " had-stxes?_0" -" ctx_73)" +" ctx_74)" " #f)" "(let-values()" "(call-expand-observe" -" obs_77" +" obs_83" " 'tag" " result-s_10))" "(void)))" @@ -61254,7 +61365,7 @@ static const char *startup_source = " #f)))" "(let-values(((result-s_11)" "(if(expand-context-to-parsed?" -" ctx_73)" +" ctx_74)" "(parsed-letrec-values18.1" "(keep-properties-only" " s_370)" @@ -61276,11 +61387,11 @@ static const char *startup_source = " track?_2)" "((s158_0)" " s_370)" -"((temp159_2)" +"((temp159_1)" "(list*" "(core-id" " 'letrec-values" -" phase_141)" +" phase_142)" "(build-clauses" "(cons" " ids_29" @@ -61296,21 +61407,21 @@ static const char *startup_source = " track?157_0" " #t" " s158_0" -" temp159_2)))))" +" temp159_1)))))" "(begin" -"(let-values(((obs_78)" +"(let-values(((obs_84)" "(expand-context-observer" -" ctx_73)))" -"(if obs_78" +" ctx_74)))" +"(if obs_84" "(let-values()" "(if(if can-log?_0" "(log-tag?" " had-stxes?_0" -" ctx_73)" +" ctx_74)" " #f)" "(let-values()" "(call-expand-observe" -" obs_78" +" obs_84" " 'tag" " result-s_11))" "(void)))" @@ -61355,49 +61466,49 @@ 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_485 phase_142)" +"(lambda(expr_10 s_494 phase_143)" "(begin" -"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_142)))" +"(let-values(((s-runtime-stx_0)(syntax-shift-phase-level$1 runtime-stx phase_143)))" "(datum->syntax$1" -"(core-id '#%app phase_142)" -"(list(core-id 'begin phase_142) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" -" s_485)))))" +"(core-id '#%app phase_143)" +"(list(core-id 'begin phase_143) expr_10(list(datum->syntax$1 s-runtime-stx_0 'values)))" +" s_494)))))" "(define-values" "(log-tag?)" -"(lambda(had-stxes?_1 ctx_74)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_74)) #f))))" +"(lambda(had-stxes?_1 ctx_75)(begin(if had-stxes?_1(not(expand-context-only-immediate? ctx_75)) #f))))" "(define-values" "(log-letrec-values$1)" -"(lambda(obs_79 ctx_75 s_486 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" +"(lambda(obs_85 ctx_76 s_495 val-idss_2 val-rhss_2 track-stxs_4 stx-clauses_2 done-bodys_2)" "(begin" " 'log-letrec-values" -"(let-values(((phase_143)(expand-context-phase ctx_75)))" +"(let-values(((phase_144)(expand-context-phase ctx_76)))" "(let-values(((clauses_0)" "(reverse$1" -"(let-values(((lst_325) val-idss_2)((lst_326) val-rhss_2)((lst_327) track-stxs_4))" +"(let-values(((lst_324) val-idss_2)((lst_325) val-rhss_2)((lst_326) track-stxs_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" +"(let-values()(check-list lst_324)))" +"(if(variable-reference-from-unsafe?(#%variable-reference))" +"(void)" "(let-values()(check-list lst_325)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_326)))" -"(if(variable-reference-from-unsafe?(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_327)))" -"((letrec-values(((for-loop_270)" -"(lambda(fold-var_291 lst_238 lst_328 lst_329)" +"((letrec-values(((for-loop_269)" +"(lambda(fold-var_287 lst_238 lst_327 lst_328)" "(begin" " 'for-loop" -"(if(if(pair? lst_238)(if(pair? lst_328)(pair? lst_329) #f) #f)" +"(if(if(pair? lst_238)(if(pair? lst_327)(pair? lst_328) #f) #f)" "(let-values(((val-ids_0)(unsafe-car lst_238))" "((rest_188)(unsafe-cdr lst_238))" -"((val-rhs_0)(unsafe-car lst_328))" -"((rest_189)(unsafe-cdr lst_328))" -"((track-stx_2)(unsafe-car lst_329))" -"((rest_190)(unsafe-cdr lst_329)))" -"(let-values(((fold-var_292)" -"(let-values(((fold-var_293) fold-var_291))" -"(let-values(((fold-var_294)" +"((val-rhs_0)(unsafe-car lst_327))" +"((rest_189)(unsafe-cdr lst_327))" +"((track-stx_2)(unsafe-car lst_328))" +"((rest_190)(unsafe-cdr lst_328)))" +"(let-values(((fold-var_288)" +"(let-values(((fold-var_289) fold-var_287))" +"(let-values(((fold-var_290)" "(let-values()" "(cons" "(let-values()" @@ -61405,74 +61516,74 @@ static const char *startup_source = " #f" "(list val-ids_0 val-rhs_0)" " track-stx_2))" -" fold-var_293))))" -"(values fold-var_294)))))" +" fold-var_289))))" +"(values fold-var_290)))))" "(if(not #f)" -"(for-loop_270 fold-var_292 rest_188 rest_189 rest_190)" -" fold-var_292)))" -" fold-var_291)))))" -" for-loop_270)" +"(for-loop_269 fold-var_288 rest_188 rest_189 rest_190)" +" fold-var_288)))" +" fold-var_287)))))" +" for-loop_269)" " null" +" lst_324" " lst_325" -" lst_326" -" lst_327))))))" +" lst_326))))))" "(let-values(((had-stxes?_2)(not(null? stx-clauses_2))))" -"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_143)))" +"(let-values(((lv-id_0)(core-id(if had-stxes?_2 'letrec-syntaxes+values 'letrec-values) phase_144)))" "(let-values(((lv-s_0)" "(datum->syntax$1" " #f" "(if had-stxes?_2" "(list* lv-id_0 stx-clauses_2 clauses_0 done-bodys_2)" "(list* lv-id_0 clauses_0 done-bodys_2))" -" s_486)))" +" s_495)))" "(begin" -"(call-expand-observe obs_79 'block->letrec(list lv-s_0))" -"(call-expand-observe obs_79 'visit lv-s_0)" -"(call-expand-observe obs_79 'resolve lv-id_0)" -"(call-expand-observe obs_79 'enter-prim lv-s_0)" +"(call-expand-observe obs_85 'block->letrec(list lv-s_0))" +"(call-expand-observe obs_85 'visit lv-s_0)" +"(call-expand-observe obs_85 'resolve lv-id_0)" +"(call-expand-observe obs_85 'enter-prim lv-s_0)" "(if had-stxes?_2" "(let-values()" "(begin" -"(call-expand-observe obs_79 'prim-letrec-syntaxes+values #f)" +"(call-expand-observe obs_85 'prim-letrec-syntaxes+values)" "(call-expand-observe" -" obs_79" +" obs_85" " 'letrec-syntaxes-renames" " stx-clauses_2" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_486))" -"(call-expand-observe obs_79 'prepare-env)" -"(call-expand-observe obs_79 'next-group)" +"(datum->syntax$1 #f done-bodys_2 s_495))" +"(call-expand-observe obs_85 'prepare-env)" +"(call-expand-observe obs_85 'next-group)" "(if(null? val-idss_2)" "(void)" "(let-values()" "(begin" -"(call-expand-observe obs_79 'prim-letrec-values)" +"(call-expand-observe obs_85 'prim-letrec-values)" "(call-expand-observe" -" obs_79" +" obs_85" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_486)))))))" +"(datum->syntax$1 #f done-bodys_2 s_495)))))))" "(let-values()" "(begin" -"(call-expand-observe obs_79 'prim-letrec-values #f)" +"(call-expand-observe obs_85 'prim-letrec-values)" "(call-expand-observe" -" obs_79" +" obs_85" " 'let-renames" " clauses_0" -"(datum->syntax$1 #f done-bodys_2 s_486))))))))))))))" +"(datum->syntax$1 #f done-bodys_2 s_495))))))))))))))" "(define-values" "(lambda-clause-expander)" -"(lambda(s_70 disarmed-s_5 formals_1 bodys_9 ctx_76 log-renames-tag_0)" +"(lambda(s_70 disarmed-s_5 formals_1 bodys_9 ctx_77 log-renames-tag_0)" "(begin" "(let-values(((sc_31)(new-scope 'local)))" -"(let-values(((phase_78)(expand-context-phase ctx_76)))" +"(let-values(((phase_78)(expand-context-phase ctx_77)))" "(let-values(((ids_31)(parse-and-flatten-formals formals_1 sc_31 disarmed-s_5)))" "(let-values((()" "(begin" " (let-values (((temp37_4) \"argument name\"))" "(check-no-duplicate-ids8.1 temp37_4 #t ids_31 phase_78 s_70 #f #f))" "(values))))" -"(let-values(((counter_7)(root-expand-context-counter ctx_76)))" +"(let-values(((counter_7)(root-expand-context-counter ctx_77)))" "(let-values(((keys_7)" "(reverse$1" "(let-values(((lst_269) ids_31))" @@ -61480,14 +61591,14 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_269)))" -"((letrec-values(((for-loop_271)" +"((letrec-values(((for-loop_270)" "(lambda(fold-var_63 lst_38)" "(begin" " 'for-loop" "(if(pair? lst_38)" "(let-values(((id_111)(unsafe-car lst_38))" "((rest_191)(unsafe-cdr lst_38)))" -"(let-values(((fold-var_295)" +"(let-values(((fold-var_291)" "(let-values(((fold-var_64) fold-var_63))" "(let-values(((fold-var_150)" "(let-values()" @@ -61506,18 +61617,18 @@ static const char *startup_source = " fold-var_64))))" "(values fold-var_150)))))" "(if(not #f)" -"(for-loop_271 fold-var_295 rest_191)" -" fold-var_295)))" +"(for-loop_270 fold-var_291 rest_191)" +" fold-var_291)))" " fold-var_63)))))" -" for-loop_271)" +" for-loop_270)" " null" " lst_269))))))" "(let-values(((body-env_0)" -"(let-values(((lst_301) keys_7)((lst_23) ids_31))" +"(let-values(((lst_300) keys_7)((lst_23) ids_31))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_301)))" +"(let-values()(check-list lst_300)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_23)))" @@ -61545,8 +61656,8 @@ static const char *startup_source = " env_26)))" " env_25)))))" " for-loop_20)" -"(expand-context-env ctx_76)" -" lst_301" +"(expand-context-env ctx_77)" +" lst_300" " lst_23)))))" "(let-values(((sc-formals_0)(add-scope formals_1 sc_31)))" "(let-values(((sc-bodys_0)" @@ -61563,10 +61674,10 @@ static const char *startup_source = "(if(pair? lst_18)" "(let-values(((body_12)(unsafe-car lst_18))" "((rest_5)(unsafe-cdr lst_18)))" -"(let-values(((fold-var_296)" +"(let-values(((fold-var_292)" "(let-values(((fold-var_167)" " fold-var_164))" -"(let-values(((fold-var_297)" +"(let-values(((fold-var_293)" "(let-values()" "(cons" "(let-values()" @@ -61574,64 +61685,64 @@ static const char *startup_source = " body_12" " sc_31))" " fold-var_167))))" -"(values fold-var_297)))))" +"(values fold-var_293)))))" "(if(not #f)" -"(for-loop_10 fold-var_296 rest_5)" -" fold-var_296)))" +"(for-loop_10 fold-var_292 rest_5)" +" fold-var_292)))" " fold-var_164)))))" " for-loop_10)" " null" " lst_17))))))" "(let-values((()" "(begin" -"(let-values(((obs_80)(expand-context-observer ctx_76)))" -"(if obs_80" +"(let-values(((obs_86)(expand-context-observer ctx_77)))" +"(if obs_86" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_80" +" obs_86" " log-renames-tag_0" " sc-formals_0" "(datum->syntax$1 #f sc-bodys_0))))" "(void)))" "(values))))" "(let-values(((body-ctx_4)" -"(let-values(((v_252) ctx_76))" -"(let-values(((the-struct_96) v_252))" -"(if(expand-context/outer? the-struct_96)" +"(let-values(((v_249) ctx_77))" +"(let-values(((the-struct_94) v_249))" +"(if(expand-context/outer? the-struct_94)" "(let-values(((env42_0) body-env_0)" -"((scopes43_0)(cons sc_31(expand-context-scopes ctx_76)))" +"((scopes43_0)(cons sc_31(expand-context-scopes ctx_77)))" "((binding-layer44_0)" -"(increment-binding-layer ids_31 ctx_76 sc_31))" +"(increment-binding-layer ids_31 ctx_77 sc_31))" "((frame-id45_0) #f)" -"((inner46_1)(root-expand-context/outer-inner v_252)))" +"((inner46_1)(root-expand-context/outer-inner v_249)))" "(expand-context/outer1.1" " inner46_1" -"(root-expand-context/outer-post-expansion-scope the-struct_96)" -"(root-expand-context/outer-use-site-scopes the-struct_96)" +"(root-expand-context/outer-post-expansion-scope the-struct_94)" +"(root-expand-context/outer-use-site-scopes the-struct_94)" " frame-id45_0" -"(expand-context/outer-context the-struct_96)" +"(expand-context/outer-context the-struct_94)" " env42_0" -"(expand-context/outer-post-expansion-scope-action the-struct_96)" +"(expand-context/outer-post-expansion-scope-action the-struct_94)" " scopes43_0" -"(expand-context/outer-def-ctx-scopes the-struct_96)" +"(expand-context/outer-def-ctx-scopes the-struct_94)" " binding-layer44_0" -"(expand-context/outer-reference-records the-struct_96)" -"(expand-context/outer-only-immediate? the-struct_96)" -"(expand-context/outer-need-eventually-defined the-struct_96)" -"(expand-context/outer-current-introduction-scopes the-struct_96)" -"(expand-context/outer-name the-struct_96)))" +"(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/outer?\"" -" the-struct_96))))))" +" the-struct_94))))))" "(let-values(((exp-body_2)" "(let-values(((temp49_2)" "(let-values(((temp52_6) #t))" -"(keep-as-needed74.1 #f #f temp52_6 #t #f #f ctx_76 s_70))))" +"(keep-as-needed74.1 #f #f temp52_6 #t #f #f ctx_77 s_70))))" "(expand-body7.1 temp49_2 #f #f sc-bodys_0 body-ctx_4))))" "(values" -"(if(expand-context-to-parsed? ctx_76)" +"(if(expand-context-to-parsed? ctx_77)" "(unflatten-like-formals keys_7 formals_1)" " sc-formals_0)" " exp-body_2))))))))))))))))" @@ -61639,11 +61750,11 @@ static const char *startup_source = "(make-expand-lambda)" "(lambda(get-lambda_0)" "(begin" -"(lambda(s_180 ctx_77)" +"(lambda(s_180 ctx_78)" "(let-values((()" "(begin" -"(let-values(((obs_81)(expand-context-observer ctx_77)))" -"(if obs_81(let-values()(let-values()(call-expand-observe obs_81 'prim-lambda)))(void)))" +"(let-values(((obs_87)(expand-context-observer ctx_78)))" +"(if obs_87(let-values()(let-values()(call-expand-observe obs_87 'prim-lambda)))(void)))" "(values))))" "(let-values(((disarmed-s_6)(syntax-disarm$1 s_180)))" "(let-values(((ok?_34 lambda53_0 formals54_0 body55_0)" @@ -61654,21 +61765,21 @@ static const char *startup_source = "(if(pair? s_304)" "(let-values(((lambda56_0)(let-values(((s_186)(car s_304))) s_186))" "((formals57_0 body58_0)" -"(let-values(((s_487)(cdr s_304)))" +"(let-values(((s_496)(cdr s_304)))" "(let-values(((s_403)" -"(if(syntax?$1 s_487)" -"(syntax-e$1 s_487)" -" s_487)))" +"(if(syntax?$1 s_496)" +"(syntax-e$1 s_496)" +" s_496)))" "(if(pair? s_403)" "(let-values(((formals59_0)" -"(let-values(((s_488)(car s_403)))" -" s_488))" +"(let-values(((s_497)(car s_403)))" +" s_497))" "((body60_0)" -"(let-values(((s_489)(cdr s_403)))" +"(let-values(((s_498)(cdr s_403)))" "(let-values(((s_162)" -"(if(syntax?$1 s_489)" -"(syntax-e$1 s_489)" -" s_489)))" +"(if(syntax?$1 s_498)" +"(syntax-e$1 s_498)" +" s_498)))" "(let-values(((flat-s_27)" "(to-syntax-list.1" " s_162)))" @@ -61695,37 +61806,37 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_41)))))" "(values #t lambda53_1 formals54_1 body55_1))))))" "(let-values(((rebuild-s_4)" -"(let-values(((temp63_4) #t))(keep-as-needed74.1 #f #f #f #f temp63_4 #t ctx_77 s_180))))" +"(let-values(((temp63_4) #t))(keep-as-needed74.1 #f #f #f #f temp63_4 #t ctx_78 s_180))))" "(let-values(((formals_2 body_13)" -"(lambda-clause-expander s_180 disarmed-s_6 formals54_0 body55_0 ctx_77 'lambda-renames)))" -"(if(expand-context-to-parsed? ctx_77)" +"(lambda-clause-expander s_180 disarmed-s_6 formals54_0 body55_0 ctx_78 'lambda-renames)))" +"(if(expand-context-to-parsed? ctx_78)" "(parsed-lambda5.1 rebuild-s_4 formals_2 body_13)" "(let-values(((rebuild-s64_0) rebuild-s_4)" -"((temp65_7)(list*(get-lambda_0 ctx_77 lambda53_0) formals_2 body_13)))" +"((temp65_7)(list*(get-lambda_0 ctx_78 lambda53_0) formals_2 body_13)))" "(rebuild5.1 #f #f rebuild-s64_0 temp65_7))))))))))))" -"(void(add-core-form!* 'lambda(make-expand-lambda(lambda(ctx_78 lam-id_0) lam-id_0))))" +"(void(add-core-form!* 'lambda(make-expand-lambda(lambda(ctx_79 lam-id_0) lam-id_0))))" "(void" "(add-core-form!*" " 'λ" "(make-expand-lambda" -"(lambda(ctx_79 lam-id_1)" +"(lambda(ctx_80 lam-id_1)" "(datum->syntax$1" -"(syntax-shift-phase-level$1 core-stx(expand-context-phase ctx_79))" +"(syntax-shift-phase-level$1 core-stx(expand-context-phase ctx_80))" " 'lambda" " lam-id_1" " lam-id_1)))))" "(void" "(add-core-form!*" " 'case-lambda" -"(lambda(s_490 ctx_80)" +"(lambda(s_499 ctx_81)" "(let-values((()" "(begin" -"(let-values(((obs_32)(expand-context-observer ctx_80)))" -"(if obs_32" -"(let-values()(let-values()(call-expand-observe obs_32 'prim-case-lambda)))" +"(let-values(((obs_31)(expand-context-observer ctx_81)))" +"(if obs_31" +"(let-values()(let-values()(call-expand-observe obs_31 'prim-case-lambda)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_7)(syntax-disarm$1 s_490)))" +"(let-values(((disarmed-s_7)(syntax-disarm$1 s_499)))" "(let-values(((ok?_35 case-lambda66_0 formals67_0 body68_0)" "(let-values(((s_32) disarmed-s_7))" "(let-values(((orig-s_42) s_32))" @@ -61734,25 +61845,25 @@ static const char *startup_source = "(if(pair? s_69)" "(let-values(((case-lambda69_0)(let-values(((s_310)(car s_69))) s_310))" "((formals70_0 body71_0)" -"(let-values(((s_473)(cdr s_69)))" -"(let-values(((s_491)" -"(if(syntax?$1 s_473)" -"(syntax-e$1 s_473)" -" s_473)))" -"(let-values(((flat-s_28)(to-syntax-list.1 s_491)))" +"(let-values(((s_482)(cdr s_69)))" +"(let-values(((s_500)" +"(if(syntax?$1 s_482)" +"(syntax-e$1 s_482)" +" s_482)))" +"(let-values(((flat-s_28)(to-syntax-list.1 s_500)))" "(if(not flat-s_28)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_42))" "(let-values()" "(let-values(((formals_3 body_14)" -"(let-values(((lst_309) flat-s_28))" +"(let-values(((lst_308) flat-s_28))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_309)))" -"((letrec-values(((for-loop_272)" +"(check-list lst_308)))" +"((letrec-values(((for-loop_271)" "(lambda(formals_4" " body_15" " lst_98)" @@ -61760,7 +61871,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_98)" -"(let-values(((s_432)" +"(let-values(((s_501)" "(unsafe-car" " lst_98))" "((rest_192)" @@ -61780,10 +61891,10 @@ static const char *startup_source = "(let-values()" "(let-values(((s_55)" "(if(syntax?$1" -" s_432)" +" s_501)" "(syntax-e$1" -" s_432)" -" s_432)))" +" s_501)" +" s_501)))" "(if(pair?" " s_55)" "(let-values(((formals72_0)" @@ -61792,15 +61903,15 @@ static const char *startup_source = " s_55)))" " s_318))" "((body73_0)" -"(let-values(((s_492)" +"(let-values(((s_435)" "(cdr" " s_55)))" "(let-values(((s_388)" "(if(syntax?$1" -" s_492)" +" s_435)" "(syntax-e$1" -" s_492)" -" s_492)))" +" s_435)" +" s_435)))" "(let-values(((flat-s_29)" "(to-syntax-list.1" " s_388)))" @@ -61839,7 +61950,7 @@ static const char *startup_source = " body_18)))))" "(if(not" " #f)" -"(for-loop_272" +"(for-loop_271" " formals_5" " body_16" " rest_192)" @@ -61849,10 +61960,10 @@ static const char *startup_source = "(values" " formals_4" " body_15))))))" -" for-loop_272)" +" for-loop_271)" " null" " null" -" lst_309)))))" +" lst_308)))))" "(values" "(reverse$1 formals_3)" "(reverse$1 body_14))))))))))" @@ -61868,11 +61979,11 @@ static const char *startup_source = "(let-values(((case-lambda76_0)" "(let-values(((s_391)(car s_303))) s_391))" "((clause77_0)" -"(let-values(((s_493)(cdr s_303)))" +"(let-values(((s_502)(cdr s_303)))" "(let-values(((s_57)" -"(if(syntax?$1 s_493)" -"(syntax-e$1 s_493)" -" s_493)))" +"(if(syntax?$1 s_502)" +"(syntax-e$1 s_502)" +" s_502)))" "(let-values(((flat-s_30)(to-syntax-list.1 s_57)))" "(if(not flat-s_30)" "(let-values()" @@ -61882,7 +61993,7 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_43)))))" "(values #t case-lambda74_1 clause75_1))))))" "(let-values(((rebuild-s_5)" -"(let-values(((temp82_7) #t))(keep-as-needed74.1 #f #f #f #f temp82_7 #t ctx_80 s_490))))" +"(let-values(((temp82_7) #t))(keep-as-needed74.1 #f #f #f #f temp82_7 #t ctx_81 s_499))))" "(let-values(((clauses_1)" "(reverse$1" "(let-values(((lst_192) formals67_0)((lst_223) body68_0)((lst_224) clause75_0))" @@ -61896,41 +62007,41 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_224)))" -"((letrec-values(((for-loop_273)" -"(lambda(fold-var_298 lst_330 lst_331 lst_332)" +"((letrec-values(((for-loop_272)" +"(lambda(fold-var_294 lst_329 lst_330 lst_331)" "(begin" " 'for-loop" -"(if(if(pair? lst_330)" -"(if(pair? lst_331)(pair? lst_332) #f)" +"(if(if(pair? lst_329)" +"(if(pair? lst_330)(pair? lst_331) #f)" " #f)" -"(let-values(((formals_8)(unsafe-car lst_330))" -"((rest_193)(unsafe-cdr lst_330))" -"((body_19)(unsafe-car lst_331))" -"((rest_194)(unsafe-cdr lst_331))" -"((clause_3)(unsafe-car lst_332))" -"((rest_195)(unsafe-cdr lst_332)))" -"(let-values(((fold-var_299)" -"(let-values(((fold-var_300) fold-var_298))" +"(let-values(((formals_8)(unsafe-car lst_329))" +"((rest_193)(unsafe-cdr lst_329))" +"((body_19)(unsafe-car lst_330))" +"((rest_194)(unsafe-cdr lst_330))" +"((clause_3)(unsafe-car lst_331))" +"((rest_195)(unsafe-cdr lst_331)))" +"(let-values(((fold-var_295)" +"(let-values(((fold-var_296) fold-var_294))" "(let-values(((fold-var_187)" "(let-values()" "(cons" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_82)" +"(let-values(((obs_88)" "(expand-context-observer" -" ctx_80)))" -"(if obs_82" +" ctx_81)))" +"(if obs_88" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_82" +" obs_88" " 'next)))" "(void)))" "(values))))" "(let-values(((rebuild-clause_0)" "(let-values(((ctx83_0)" -" ctx_80)" +" ctx_81)" "((clause84_0)" " clause_3))" "(keep-as-needed74.1" @@ -61945,14 +62056,14 @@ static const char *startup_source = "(let-values(((exp-formals_0" " exp-body_3)" "(lambda-clause-expander" -" s_490" +" s_499" " disarmed-s_7" " formals_8" " body_19" -" ctx_80" -" 'case-lambda-renames)))" +" ctx_81" +" 'lambda-renames)))" "(if(expand-context-to-parsed?" -" ctx_80)" +" ctx_81)" "(list" " exp-formals_0" " exp-body_3)" @@ -61967,18 +62078,18 @@ static const char *startup_source = " #f" " rebuild-clause85_0" " temp86_2)))))))" -" fold-var_300))))" +" fold-var_296))))" "(values fold-var_187)))))" "(if(not #f)" -"(for-loop_273 fold-var_299 rest_193 rest_194 rest_195)" -" fold-var_299)))" -" fold-var_298)))))" -" for-loop_273)" +"(for-loop_272 fold-var_295 rest_193 rest_194 rest_195)" +" fold-var_295)))" +" fold-var_294)))))" +" for-loop_272)" " null" " lst_192" " lst_223" " lst_224))))))" -"(if(expand-context-to-parsed? ctx_80)" +"(if(expand-context-to-parsed? ctx_81)" "(parsed-case-lambda6.1 rebuild-s_5 clauses_1)" "(let-values(((rebuild-s87_0) rebuild-s_5)((temp88_3)(list* case-lambda66_0 clauses_1)))" "(rebuild5.1 #f #f rebuild-s87_0 temp88_3))))))))))))" @@ -62051,12 +62162,12 @@ static const char *startup_source = "(let-values(((split-by-reference?_0)(if split-by-reference?9_0 split-by-reference?4_0 #f)))" "(let-values(((renames-log-tag_0)(if renames-log-tag10_0 renames-log-tag5_0 'let-renames)))" "(let-values()" -"(lambda(s_89 ctx_81)" +"(lambda(s_89 ctx_82)" "(let-values((()" "(begin" -"(let-values(((obs_83)(expand-context-observer ctx_81)))" -"(if obs_83" -"(let-values()(let-values()(call-expand-observe obs_83 log-tag_0)))" +"(let-values(((obs_43)(expand-context-observer ctx_82)))" +"(if obs_43" +"(let-values()(let-values()(call-expand-observe obs_43 log-tag_0)))" "(void)))" "(values))))" "(let-values(((disarmed-s_8)(syntax-disarm$1 s_89)))" @@ -62082,29 +62193,29 @@ static const char *startup_source = " s_107)))" "(if(pair? s_212)" "(let-values(((letrec-syntaxes+values95_0)" -"(let-values(((s_494)(car s_212))) s_494))" +"(let-values(((s_503)(car s_212))) s_503))" "((id:trans96_0" " trans-rhs97_0" " id:val98_0" " val-rhs99_0" " body100_0)" "(let-values(((s_111)(cdr s_212)))" -"(let-values(((s_495)" +"(let-values(((s_441)" "(if(syntax?$1 s_111)" "(syntax-e$1 s_111)" " s_111)))" -"(if(pair? s_495)" +"(if(pair? s_441)" "(let-values(((id:trans101_0" " trans-rhs102_0)" -"(let-values(((s_496)" +"(let-values(((s_504)" "(car" -" s_495)))" +" s_441)))" "(let-values(((s_113)" "(if(syntax?$1" -" s_496)" +" s_504)" "(syntax-e$1" -" s_496)" -" s_496)))" +" s_504)" +" s_504)))" "(let-values(((flat-s_31)" "(to-syntax-list.1" " s_113)))" @@ -62118,7 +62229,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:trans_0" " trans-rhs_0)" -"(let-values(((lst_333)" +"(let-values(((lst_332)" " flat-s_31))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62126,21 +62237,21 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_333)))" -"((letrec-values(((for-loop_274)" +" lst_332)))" +"((letrec-values(((for-loop_273)" "(lambda(id:trans_1" " trans-rhs_1" -" lst_334)" +" lst_333)" "(begin" " 'for-loop" "(if(pair?" -" lst_334)" -"(let-values(((s_497)" +" lst_333)" +"(let-values(((s_505)" "(unsafe-car" -" lst_334))" +" lst_333))" "((rest_196)" "(unsafe-cdr" -" lst_334)))" +" lst_333)))" "(let-values(((id:trans_2" " trans-rhs_2)" "(let-values(((id:trans_3)" @@ -62155,25 +62266,25 @@ static const char *startup_source = "(let-values()" "(let-values(((s_220)" "(if(syntax?$1" -" s_497)" +" s_505)" "(syntax-e$1" -" s_497)" -" s_497)))" +" s_505)" +" s_505)))" "(if(pair?" " s_220)" "(let-values(((id:trans106_0)" -"(let-values(((s_498)" +"(let-values(((s_506)" "(car" " s_220)))" -"(let-values(((s_440)" +"(let-values(((s_507)" "(if(syntax?$1" -" s_498)" +" s_506)" "(syntax-e$1" -" s_498)" -" s_498)))" +" s_506)" +" s_506)))" "(let-values(((flat-s_32)" "(to-syntax-list.1" -" s_440)))" +" s_507)))" "(if(not" " flat-s_32)" "(let-values()" @@ -62183,7 +62294,7 @@ static const char *startup_source = " orig-s_44))" "(let-values()" "(let-values(((id:trans_5)" -"(let-values(((lst_335)" +"(let-values(((lst_334)" " flat-s_32))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62191,20 +62302,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_335)))" -"((letrec-values(((for-loop_275)" +" lst_334)))" +"((letrec-values(((for-loop_274)" "(lambda(id:trans_6" -" lst_336)" +" lst_335)" "(begin" " 'for-loop" "(if(pair?" -" lst_336)" -"(let-values(((s_499)" +" lst_335)" +"(let-values(((s_444)" "(unsafe-car" -" lst_336))" +" lst_335))" "((rest_197)" "(unsafe-cdr" -" lst_336)))" +" lst_335)))" "(let-values(((id:trans_7)" "(let-values(((id:trans_8)" " id:trans_6))" @@ -62214,21 +62325,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_283)" "(if(syntax?$1" -" s_499)" +" s_444)" "(symbol?" "(syntax-e$1" -" s_499))" +" s_444))" " #f)))" "(if or-part_283" " or-part_283" "(symbol?" -" s_499)))" -" s_499" +" s_444)))" +" s_444" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_44" -" s_499)))))" +" s_444)))))" "(cons" " id:trans134_0" " id:trans_8)))))" @@ -62236,45 +62347,45 @@ static const char *startup_source = " id:trans_9)))))" "(if(not" " #f)" -"(for-loop_275" +"(for-loop_274" " id:trans_7" " rest_197)" " id:trans_7)))" " id:trans_6)))))" -" for-loop_275)" +" for-loop_274)" " null" -" lst_335)))))" +" lst_334)))))" "(reverse$1" " id:trans_5))))))))" "((trans-rhs107_0)" -"(let-values(((s_500)" +"(let-values(((s_508)" "(cdr" " s_220)))" -"(let-values(((s_501)" +"(let-values(((s_509)" "(if(syntax?$1" -" s_500)" +" s_508)" "(syntax-e$1" -" s_500)" -" s_500)))" +" s_508)" +" s_508)))" "(if(pair?" -" s_501)" +" s_509)" "(let-values(((trans-rhs108_0)" -"(let-values(((s_502)" +"(let-values(((s_510)" "(car" -" s_501)))" -" s_502))" +" s_509)))" +" s_510))" "(()" -"(let-values(((s_503)" +"(let-values(((s_511)" "(cdr" -" s_501)))" -"(let-values(((s_504)" +" s_509)))" +"(let-values(((s_448)" "(if(syntax?$1" -" s_503)" +" s_511)" "(syntax-e$1" -" s_503)" -" s_503)))" +" s_511)" +" s_511)))" "(if(null?" -" s_504)" +" s_448)" "(values)" "(raise-syntax-error$1" " #f" @@ -62305,7 +62416,7 @@ static const char *startup_source = " trans-rhs_4)))))" "(if(not" " #f)" -"(for-loop_274" +"(for-loop_273" " id:trans_2" " trans-rhs_2" " rest_196)" @@ -62315,10 +62426,10 @@ static const char *startup_source = "(values" " id:trans_1" " trans-rhs_1))))))" -" for-loop_274)" +" for-loop_273)" " null" " null" -" lst_333)))))" +" lst_332)))))" "(values" "(reverse$1" " id:trans_0)" @@ -62329,28 +62440,28 @@ static const char *startup_source = " body105_0)" "(let-values(((s_123)" "(cdr" -" s_495)))" -"(let-values(((s_505)" +" s_441)))" +"(let-values(((s_512)" "(if(syntax?$1" " s_123)" "(syntax-e$1" " s_123)" " s_123)))" -"(if(pair? s_505)" +"(if(pair? s_512)" "(let-values(((id:val109_0" " val-rhs110_0)" -"(let-values(((s_506)" +"(let-values(((s_513)" "(car" -" s_505)))" -"(let-values(((s_507)" +" s_512)))" +"(let-values(((s_514)" "(if(syntax?$1" -" s_506)" +" s_513)" "(syntax-e$1" -" s_506)" -" s_506)))" +" s_513)" +" s_513)))" "(let-values(((flat-s_33)" "(to-syntax-list.1" -" s_507)))" +" s_514)))" "(if(not" " flat-s_33)" "(let-values()" @@ -62370,7 +62481,7 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_201)))" -"((letrec-values(((for-loop_276)" +"((letrec-values(((for-loop_275)" "(lambda(id:val_1" " val-rhs_2" " lst_204)" @@ -62378,7 +62489,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_204)" -"(let-values(((s_508)" +"(let-values(((s_515)" "(unsafe-car" " lst_204))" "((rest_198)" @@ -62398,10 +62509,10 @@ static const char *startup_source = "(let-values()" "(let-values(((s_230)" "(if(syntax?$1" -" s_508)" +" s_515)" "(syntax-e$1" -" s_508)" -" s_508)))" +" s_515)" +" s_515)))" "(if(pair?" " s_230)" "(let-values(((id:val112_0)" @@ -62426,7 +62537,7 @@ static const char *startup_source = " orig-s_44))" "(let-values()" "(let-values(((id:val_5)" -"(let-values(((lst_337)" +"(let-values(((lst_336)" " flat-s_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62434,20 +62545,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_337)))" -"((letrec-values(((for-loop_277)" +" lst_336)))" +"((letrec-values(((for-loop_276)" "(lambda(id:val_6" -" lst_338)" +" lst_337)" "(begin" " 'for-loop" "(if(pair?" -" lst_338)" +" lst_337)" "(let-values(((s_340)" "(unsafe-car" -" lst_338))" +" lst_337))" "((rest_199)" "(unsafe-cdr" -" lst_338)))" +" lst_337)))" "(let-values(((id:val_7)" "(let-values(((id:val_8)" " id:val_6))" @@ -62479,43 +62590,43 @@ static const char *startup_source = " id:val_9)))))" "(if(not" " #f)" -"(for-loop_277" +"(for-loop_276" " id:val_7" " rest_199)" " id:val_7)))" " id:val_6)))))" -" for-loop_277)" +" for-loop_276)" " null" -" lst_337)))))" +" lst_336)))))" "(reverse$1" " id:val_5))))))))" "((val-rhs113_0)" "(let-values(((s_347)" "(cdr" " s_230)))" -"(let-values(((s_509)" +"(let-values(((s_449)" "(if(syntax?$1" " s_347)" "(syntax-e$1" " s_347)" " s_347)))" "(if(pair?" -" s_509)" +" s_449)" "(let-values(((val-rhs114_0)" -"(let-values(((s_510)" +"(let-values(((s_450)" "(car" -" s_509)))" -" s_510))" +" s_449)))" +" s_450))" "(()" -"(let-values(((s_511)" +"(let-values(((s_516)" "(cdr" -" s_509)))" +" s_449)))" "(let-values(((s_235)" "(if(syntax?$1" -" s_511)" +" s_516)" "(syntax-e$1" -" s_511)" -" s_511)))" +" s_516)" +" s_516)))" "(if(null?" " s_235)" "(values)" @@ -62548,7 +62659,7 @@ static const char *startup_source = " val-rhs_5)))))" "(if(not" " #f)" -"(for-loop_276" +"(for-loop_275" " id:val_2" " val-rhs_3" " rest_198)" @@ -62558,7 +62669,7 @@ static const char *startup_source = "(values" " id:val_1" " val-rhs_2))))))" -" for-loop_276)" +" for-loop_275)" " null" " null" " lst_201)))))" @@ -62568,15 +62679,15 @@ static const char *startup_source = "(reverse$1" " val-rhs_1)))))))))" "((body111_0)" -"(let-values(((s_512)" +"(let-values(((s_517)" "(cdr" -" s_505)))" +" s_512)))" "(let-values(((s_348)" "(if(syntax?$1" -" s_512)" +" s_517)" "(syntax-e$1" -" s_512)" -" s_512)))" +" s_517)" +" s_517)))" "(let-values(((flat-s_35)" "(to-syntax-list.1" " s_348)))" @@ -62632,31 +62743,31 @@ static const char *startup_source = " body94_1)))" "(values #f #f #f #f #f #f #f)))))" "(let-values(((ok?_38 let-values115_0 id:val116_0 val-rhs117_0 body118_0)" -"(let-values(((s_445) disarmed-s_8))" +"(let-values(((s_469) disarmed-s_8))" "(if(if(not syntaxes?_0) #t #f)" -"(let-values(((orig-s_45) s_445))" +"(let-values(((orig-s_45) s_469))" "(let-values(((let-values115_1 id:val116_1 val-rhs117_1 body118_1)" "(let-values(((s_238)" -"(if(syntax?$1 s_445)" -"(syntax-e$1 s_445)" -" s_445)))" +"(if(syntax?$1 s_469)" +"(syntax-e$1 s_469)" +" s_469)))" "(if(pair? s_238)" "(let-values(((let-values119_0)" "(let-values(((s_241)(car s_238)))" " s_241))" "((id:val120_0 val-rhs121_0 body122_0)" "(let-values(((s_242)(cdr s_238)))" -"(let-values(((s_513)" +"(let-values(((s_518)" "(if(syntax?$1 s_242)" "(syntax-e$1 s_242)" " s_242)))" -"(if(pair? s_513)" +"(if(pair? s_518)" "(let-values(((id:val123_0" " val-rhs124_0)" "(let-values(((s_352)" "(car" -" s_513)))" -"(let-values(((s_514)" +" s_518)))" +"(let-values(((s_519)" "(if(syntax?$1" " s_352)" "(syntax-e$1" @@ -62664,7 +62775,7 @@ static const char *startup_source = " s_352)))" "(let-values(((flat-s_36)" "(to-syntax-list.1" -" s_514)))" +" s_519)))" "(if(not" " flat-s_36)" "(let-values()" @@ -62675,7 +62786,7 @@ static const char *startup_source = "(let-values()" "(let-values(((id:val_10" " val-rhs_6)" -"(let-values(((lst_339)" +"(let-values(((lst_338)" " flat-s_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62683,8 +62794,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_339)))" -"((letrec-values(((for-loop_278)" +" lst_338)))" +"((letrec-values(((for-loop_277)" "(lambda(id:val_11" " val-rhs_7" " lst_212)" @@ -62692,7 +62803,7 @@ static const char *startup_source = " 'for-loop" "(if(pair?" " lst_212)" -"(let-values(((s_450)" +"(let-values(((s_520)" "(unsafe-car" " lst_212))" "((rest_200)" @@ -62712,25 +62823,25 @@ static const char *startup_source = "(let-values()" "(let-values(((s_361)" "(if(syntax?$1" -" s_450)" +" s_520)" "(syntax-e$1" -" s_450)" -" s_450)))" +" s_520)" +" s_520)))" "(if(pair?" " s_361)" "(let-values(((id:val126_0)" -"(let-values(((s_515)" +"(let-values(((s_521)" "(car" " s_361)))" -"(let-values(((s_516)" +"(let-values(((s_522)" "(if(syntax?$1" -" s_515)" +" s_521)" "(syntax-e$1" -" s_515)" -" s_515)))" +" s_521)" +" s_521)))" "(let-values(((flat-s_37)" "(to-syntax-list.1" -" s_516)))" +" s_522)))" "(if(not" " flat-s_37)" "(let-values()" @@ -62740,7 +62851,7 @@ static const char *startup_source = " orig-s_45))" "(let-values()" "(let-values(((id:val_15)" -"(let-values(((lst_340)" +"(let-values(((lst_339)" " flat-s_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62748,20 +62859,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_340)))" -"((letrec-values(((for-loop_279)" +" lst_339)))" +"((letrec-values(((for-loop_278)" "(lambda(id:val_16" -" lst_341)" +" lst_340)" "(begin" " 'for-loop" "(if(pair?" -" lst_341)" -"(let-values(((s_517)" +" lst_340)" +"(let-values(((s_523)" "(unsafe-car" -" lst_341))" +" lst_340))" "((rest_201)" "(unsafe-cdr" -" lst_341)))" +" lst_340)))" "(let-values(((id:val_17)" "(let-values(((id:val_18)" " id:val_16))" @@ -62771,21 +62882,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_373)" "(if(syntax?$1" -" s_517)" +" s_523)" "(symbol?" "(syntax-e$1" -" s_517))" +" s_523))" " #f)))" "(if or-part_373" " or-part_373" "(symbol?" -" s_517)))" -" s_517" +" s_523)))" +" s_523" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_45" -" s_517)))))" +" s_523)))))" "(cons" " id:val140_0" " id:val_18)))))" @@ -62793,45 +62904,45 @@ static const char *startup_source = " id:val_19)))))" "(if(not" " #f)" -"(for-loop_279" +"(for-loop_278" " id:val_17" " rest_201)" " id:val_17)))" " id:val_16)))))" -" for-loop_279)" +" for-loop_278)" " null" -" lst_340)))))" +" lst_339)))))" "(reverse$1" " id:val_15))))))))" "((val-rhs127_0)" -"(let-values(((s_518)" +"(let-values(((s_524)" "(cdr" " s_361)))" -"(let-values(((s_519)" +"(let-values(((s_525)" "(if(syntax?$1" -" s_518)" +" s_524)" "(syntax-e$1" -" s_518)" -" s_518)))" +" s_524)" +" s_524)))" "(if(pair?" -" s_519)" +" s_525)" "(let-values(((val-rhs128_0)" "(let-values(((s_247)" "(car" -" s_519)))" +" s_525)))" " s_247))" "(()" "(let-values(((s_248)" "(cdr" -" s_519)))" -"(let-values(((s_520)" +" s_525)))" +"(let-values(((s_526)" "(if(syntax?$1" " s_248)" "(syntax-e$1" " s_248)" " s_248)))" "(if(null?" -" s_520)" +" s_526)" "(values)" "(raise-syntax-error$1" " #f" @@ -62862,7 +62973,7 @@ static const char *startup_source = " val-rhs_10)))))" "(if(not" " #f)" -"(for-loop_278" +"(for-loop_277" " id:val_12" " val-rhs_8" " rest_200)" @@ -62872,28 +62983,28 @@ static const char *startup_source = "(values" " id:val_11" " val-rhs_7))))))" -" for-loop_278)" +" for-loop_277)" " null" " null" -" lst_339)))))" +" lst_338)))))" "(values" "(reverse$1" " id:val_10)" "(reverse$1" " val-rhs_6)))))))))" "((body125_0)" -"(let-values(((s_521)" +"(let-values(((s_527)" "(cdr" -" s_513)))" -"(let-values(((s_522)" +" s_518)))" +"(let-values(((s_528)" "(if(syntax?$1" -" s_521)" +" s_527)" "(syntax-e$1" -" s_521)" -" s_521)))" +" s_527)" +" s_527)))" "(let-values(((flat-s_38)" "(to-syntax-list.1" -" s_522)))" +" s_528)))" "(if(not" " flat-s_38)" "(let-values()" @@ -62927,33 +63038,33 @@ static const char *startup_source = "(values #t let-values115_1 id:val116_1 val-rhs117_1 body118_1)))" "(values #f #f #f #f #f)))))" "(let-values(((sc_7)(new-scope 'local)))" -"(let-values(((phase_144)(expand-context-phase ctx_81)))" +"(let-values(((phase_145)(expand-context-phase ctx_82)))" "(let-values(((frame-id_15)(if syntaxes?_0(make-reference-record) #f)))" "(let-values(((trans-idss_2)" "(reverse$1" -"(let-values(((lst_342)(if syntaxes?_0 id:trans90_0 null)))" +"(let-values(((lst_341)(if syntaxes?_0 id:trans90_0 null)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_342)))" -"((letrec-values(((for-loop_280)" -"(lambda(fold-var_301 lst_343)" +"(let-values()(check-list lst_341)))" +"((letrec-values(((for-loop_279)" +"(lambda(fold-var_297 lst_342)" "(begin" " 'for-loop" -"(if(pair? lst_343)" +"(if(pair? lst_342)" "(let-values(((ids_32)" -"(unsafe-car lst_343))" +"(unsafe-car lst_342))" "((rest_202)" -"(unsafe-cdr lst_343)))" -"(let-values(((fold-var_302)" -"(let-values(((fold-var_303)" -" fold-var_301))" -"(let-values(((fold-var_267)" +"(unsafe-cdr lst_342)))" +"(let-values(((fold-var_258)" +"(let-values(((fold-var_298)" +" fold-var_297))" +"(let-values(((fold-var_299)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_344)" +"(let-values(((lst_343)" " ids_32))" "(begin" "(if(variable-reference-from-unsafe?" @@ -62961,78 +63072,78 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_344)))" -"((letrec-values(((for-loop_281)" -"(lambda(fold-var_304" -" lst_345)" +" lst_343)))" +"((letrec-values(((for-loop_280)" +"(lambda(fold-var_260" +" lst_344)" "(begin" " 'for-loop" "(if(pair?" -" lst_345)" +" lst_344)" "(let-values(((id_113)" "(unsafe-car" -" lst_345))" +" lst_344))" "((rest_203)" "(unsafe-cdr" -" lst_345)))" -"(let-values(((fold-var_305)" -"(let-values(((fold-var_306)" -" fold-var_304))" -"(let-values(((fold-var_307)" +" lst_344)))" +"(let-values(((fold-var_262)" +"(let-values(((fold-var_300)" +" fold-var_260))" +"(let-values(((fold-var_301)" "(let-values()" "(cons" "(let-values()" "(add-scope" " id_113" " sc_7))" -" fold-var_306))))" +" fold-var_300))))" "(values" -" fold-var_307)))))" +" fold-var_301)))))" "(if(not" " #f)" -"(for-loop_281" -" fold-var_305" +"(for-loop_280" +" fold-var_262" " rest_203)" -" fold-var_305)))" -" fold-var_304)))))" -" for-loop_281)" -" null" -" lst_344)))))" -" fold-var_303))))" -"(values" -" fold-var_267)))))" -"(if(not #f)" -"(for-loop_280 fold-var_302 rest_202)" -" fold-var_302)))" -" fold-var_301)))))" +" fold-var_262)))" +" fold-var_260)))))" " for-loop_280)" " null" -" lst_342))))))" +" lst_343)))))" +" fold-var_298))))" +"(values" +" fold-var_299)))))" +"(if(not #f)" +"(for-loop_279 fold-var_258 rest_202)" +" fold-var_258)))" +" fold-var_297)))))" +" for-loop_279)" +" null" +" lst_341))))))" "(let-values(((val-idss_3)" "(reverse$1" -"(let-values(((lst_346)(if syntaxes?_0 id:val92_0 id:val116_0)))" +"(let-values(((lst_345)(if syntaxes?_0 id:val92_0 id:val116_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_346)))" -"((letrec-values(((for-loop_282)" -"(lambda(fold-var_308 lst_347)" +"(let-values()(check-list lst_345)))" +"((letrec-values(((for-loop_281)" +"(lambda(fold-var_264 lst_346)" "(begin" " 'for-loop" -"(if(pair? lst_347)" +"(if(pair? lst_346)" "(let-values(((ids_20)" -"(unsafe-car lst_347))" +"(unsafe-car lst_346))" "((rest_204)" -"(unsafe-cdr lst_347)))" -"(let-values(((fold-var_309)" -"(let-values(((fold-var_310)" -" fold-var_308))" -"(let-values(((fold-var_311)" +"(unsafe-cdr lst_346)))" +"(let-values(((fold-var_302)" +"(let-values(((fold-var_303)" +" fold-var_264))" +"(let-values(((fold-var_304)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_348)" +"(let-values(((lst_347)" " ids_20))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63040,100 +63151,100 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_348)))" -"((letrec-values(((for-loop_283)" -"(lambda(fold-var_312" -" lst_349)" +" lst_347)))" +"((letrec-values(((for-loop_282)" +"(lambda(fold-var_305" +" lst_348)" "(begin" " 'for-loop" "(if(pair?" -" lst_349)" +" lst_348)" "(let-values(((id_114)" "(unsafe-car" -" lst_349))" +" lst_348))" "((rest_205)" "(unsafe-cdr" -" lst_349)))" -"(let-values(((fold-var_313)" -"(let-values(((fold-var_314)" -" fold-var_312))" -"(let-values(((fold-var_315)" +" lst_348)))" +"(let-values(((fold-var_306)" +"(let-values(((fold-var_307)" +" fold-var_305))" +"(let-values(((fold-var_308)" "(let-values()" "(cons" "(let-values()" "(add-scope" " id_114" " sc_7))" -" fold-var_314))))" +" fold-var_307))))" "(values" -" fold-var_315)))))" +" fold-var_308)))))" "(if(not" " #f)" -"(for-loop_283" -" fold-var_313" -" rest_205)" -" fold-var_313)))" -" fold-var_312)))))" -" for-loop_283)" -" null" -" lst_348)))))" -" fold-var_310))))" -"(values" -" fold-var_311)))))" -"(if(not #f)" "(for-loop_282" -" fold-var_309" -" rest_204)" -" fold-var_309)))" -" fold-var_308)))))" +" fold-var_306" +" rest_205)" +" fold-var_306)))" +" fold-var_305)))))" " for-loop_282)" " null" -" lst_346))))))" +" lst_347)))))" +" fold-var_303))))" +"(values" +" fold-var_304)))))" +"(if(not #f)" +"(for-loop_281" +" fold-var_302" +" rest_204)" +" fold-var_302)))" +" fold-var_264)))))" +" for-loop_281)" +" null" +" lst_345))))))" "(let-values(((val-rhss_3)" "(if rec?_1" "(reverse$1" -"(let-values(((lst_350)" +"(let-values(((lst_349)" "(if syntaxes?_0 val-rhs93_0 val-rhs117_0)))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_350)))" -"((letrec-values(((for-loop_284)" -"(lambda(fold-var_316 lst_351)" +"(let-values()(check-list lst_349)))" +"((letrec-values(((for-loop_283)" +"(lambda(fold-var_309 lst_350)" "(begin" " 'for-loop" -"(if(pair? lst_351)" +"(if(pair? lst_350)" "(let-values(((rhs_20)" -"(unsafe-car lst_351))" +"(unsafe-car lst_350))" "((rest_206)" -"(unsafe-cdr lst_351)))" -"(let-values(((fold-var_317)" -"(let-values(((fold-var_318)" -" fold-var_316))" -"(let-values(((fold-var_319)" +"(unsafe-cdr lst_350)))" +"(let-values(((fold-var_310)" +"(let-values(((fold-var_311)" +" fold-var_309))" +"(let-values(((fold-var_312)" "(let-values()" "(cons" "(let-values()" "(add-scope" " rhs_20" " sc_7))" -" fold-var_318))))" +" fold-var_311))))" "(values" -" fold-var_319)))))" +" fold-var_312)))))" "(if(not #f)" -"(for-loop_284" -" fold-var_317" +"(for-loop_283" +" fold-var_310" " rest_206)" -" fold-var_317)))" -" fold-var_316)))))" -" for-loop_284)" +" fold-var_310)))" +" fold-var_309)))))" +" for-loop_283)" " null" -" lst_350))))" +" lst_349))))" "(if syntaxes?_0 val-rhs93_0 val-rhs117_0))))" "(let-values((()" "(begin" "(let-values(((temp129_2)(list trans-idss_2 val-idss_3))" -"((phase130_0) phase_144)" +"((phase130_0) phase_145)" "((s131_0) s_89))" "(check-no-duplicate-ids8.1" " #f" @@ -63144,35 +63255,35 @@ static const char *startup_source = " #f" " #f))" "(values))))" -"(let-values(((counter_8)(root-expand-context-counter ctx_81)))" +"(let-values(((counter_8)(root-expand-context-counter ctx_82)))" "(let-values(((trans-keyss_0)" "(reverse$1" -"(let-values(((lst_352) trans-idss_2))" +"(let-values(((lst_351) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_352)))" -"((letrec-values(((for-loop_285)" -"(lambda(fold-var_320 lst_353)" +"(let-values()(check-list lst_351)))" +"((letrec-values(((for-loop_284)" +"(lambda(fold-var_313 lst_352)" "(begin" " 'for-loop" -"(if(pair? lst_353)" +"(if(pair? lst_352)" "(let-values(((ids_33)" "(unsafe-car" -" lst_353))" +" lst_352))" "((rest_207)" "(unsafe-cdr" -" lst_353)))" -"(let-values(((fold-var_321)" -"(let-values(((fold-var_322)" -" fold-var_320))" -"(let-values(((fold-var_323)" +" lst_352)))" +"(let-values(((fold-var_314)" +"(let-values(((fold-var_315)" +" fold-var_313))" +"(let-values(((fold-var_316)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_354)" +"(let-values(((lst_353)" " ids_33))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63180,23 +63291,23 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_354)))" -"((letrec-values(((for-loop_286)" -"(lambda(fold-var_324" -" lst_355)" +" lst_353)))" +"((letrec-values(((for-loop_285)" +"(lambda(fold-var_317" +" lst_354)" "(begin" " 'for-loop" "(if(pair?" -" lst_355)" +" lst_354)" "(let-values(((id_115)" "(unsafe-car" -" lst_355))" +" lst_354))" "((rest_208)" "(unsafe-cdr" -" lst_355)))" -"(let-values(((fold-var_325)" +" lst_354)))" +"(let-values(((fold-var_318)" "(let-values(((fold-var_98)" -" fold-var_324))" +" fold-var_317))" "(let-values(((fold-var_99)" "(let-values()" "(cons" @@ -63211,61 +63322,61 @@ static const char *startup_source = " s145_1" " #t" " id_115" -" phase_144" +" phase_145" " counter_8)))" " fold-var_98))))" "(values" " fold-var_99)))))" "(if(not" " #f)" -"(for-loop_286" -" fold-var_325" -" rest_208)" -" fold-var_325)))" -" fold-var_324)))))" -" for-loop_286)" -" null" -" lst_354)))))" -" fold-var_322))))" -"(values" -" fold-var_323)))))" -"(if(not #f)" "(for-loop_285" -" fold-var_321" -" rest_207)" -" fold-var_321)))" -" fold-var_320)))))" +" fold-var_318" +" rest_208)" +" fold-var_318)))" +" fold-var_317)))))" " for-loop_285)" " null" -" lst_352))))))" +" lst_353)))))" +" fold-var_315))))" +"(values" +" fold-var_316)))))" +"(if(not #f)" +"(for-loop_284" +" fold-var_314" +" rest_207)" +" fold-var_314)))" +" fold-var_313)))))" +" for-loop_284)" +" null" +" lst_351))))))" "(let-values(((val-keyss_2)" "(reverse$1" -"(let-values(((lst_356) val-idss_3))" +"(let-values(((lst_355) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_356)))" -"((letrec-values(((for-loop_287)" -"(lambda(fold-var_326 lst_357)" +"(let-values()(check-list lst_355)))" +"((letrec-values(((for-loop_286)" +"(lambda(fold-var_319 lst_356)" "(begin" " 'for-loop" -"(if(pair? lst_357)" +"(if(pair? lst_356)" "(let-values(((ids_34)" "(unsafe-car" -" lst_357))" +" lst_356))" "((rest_209)" "(unsafe-cdr" -" lst_357)))" -"(let-values(((fold-var_327)" -"(let-values(((fold-var_328)" -" fold-var_326))" -"(let-values(((fold-var_329)" +" lst_356)))" +"(let-values(((fold-var_320)" +"(let-values(((fold-var_321)" +" fold-var_319))" +"(let-values(((fold-var_322)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_358)" +"(let-values(((lst_357)" " ids_34))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63273,24 +63384,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_358)))" -"((letrec-values(((for-loop_288)" -"(lambda(fold-var_330" -" lst_359)" +" lst_357)))" +"((letrec-values(((for-loop_287)" +"(lambda(fold-var_323" +" lst_358)" "(begin" " 'for-loop" "(if(pair?" -" lst_359)" +" lst_358)" "(let-values(((id_116)" "(unsafe-car" -" lst_359))" +" lst_358))" "((rest_210)" "(unsafe-cdr" -" lst_359)))" -"(let-values(((fold-var_331)" -"(let-values(((fold-var_332)" -" fold-var_330))" -"(let-values(((fold-var_333)" +" lst_358)))" +"(let-values(((fold-var_324)" +"(let-values(((fold-var_325)" +" fold-var_323))" +"(let-values(((fold-var_326)" "(let-values()" "(cons" "(let-values()" @@ -63304,83 +63415,83 @@ static const char *startup_source = " s150_1" " #t" " id_116" -" phase_144" +" phase_145" " counter_8)))" -" fold-var_332))))" +" fold-var_325))))" "(values" -" fold-var_333)))))" +" fold-var_326)))))" "(if(not" " #f)" -"(for-loop_288" -" fold-var_331" -" rest_210)" -" fold-var_331)))" -" fold-var_330)))))" -" for-loop_288)" -" null" -" lst_358)))))" -" fold-var_328))))" -"(values" -" fold-var_329)))))" -"(if(not #f)" "(for-loop_287" -" fold-var_327" -" rest_209)" -" fold-var_327)))" -" fold-var_326)))))" +" fold-var_324" +" rest_210)" +" fold-var_324)))" +" fold-var_323)))))" " for-loop_287)" " null" -" lst_356))))))" +" lst_357)))))" +" fold-var_321))))" +"(values" +" fold-var_322)))))" +"(if(not #f)" +"(for-loop_286" +" fold-var_320" +" rest_209)" +" fold-var_320)))" +" fold-var_319)))))" +" for-loop_286)" +" null" +" lst_355))))))" "(let-values(((bodys_10)" "(reverse$1" -"(let-values(((lst_360)" +"(let-values(((lst_359)" "(if syntaxes?_0 body94_0 body118_0)))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_360)))" -"((letrec-values(((for-loop_289)" -"(lambda(fold-var_334 lst_361)" +"(let-values()(check-list lst_359)))" +"((letrec-values(((for-loop_288)" +"(lambda(fold-var_327 lst_360)" "(begin" " 'for-loop" -"(if(pair? lst_361)" +"(if(pair? lst_360)" "(let-values(((body_20)" "(unsafe-car" -" lst_361))" +" lst_360))" "((rest_211)" "(unsafe-cdr" -" lst_361)))" -"(let-values(((fold-var_335)" -"(let-values(((fold-var_336)" -" fold-var_334))" -"(let-values(((fold-var_337)" +" lst_360)))" +"(let-values(((fold-var_328)" +"(let-values(((fold-var_329)" +" fold-var_327))" +"(let-values(((fold-var_330)" "(let-values()" "(cons" "(let-values()" "(add-scope" " body_20" " sc_7))" -" fold-var_336))))" +" fold-var_329))))" "(values" -" fold-var_337)))))" +" fold-var_330)))))" "(if(not #f)" -"(for-loop_289" -" fold-var_335" +"(for-loop_288" +" fold-var_328" " rest_211)" -" fold-var_335)))" -" fold-var_334)))))" -" for-loop_289)" +" fold-var_328)))" +" fold-var_327)))))" +" for-loop_288)" " null" -" lst_360))))))" +" lst_359))))))" "(let-values((()" "(begin" -"(let-values(((obs_84)" -"(expand-context-observer ctx_81)))" -"(if obs_84" +"(let-values(((obs_89)" +"(expand-context-observer ctx_82)))" +"(if obs_89" "(let-values()" "(log-let-renames" -" obs_84" +" obs_89" " renames-log-tag_0" " val-idss_3" " val-rhss_3" @@ -63395,41 +63506,41 @@ static const char *startup_source = "(if syntaxes?_0" "(let-values()" "(begin" -"(let-values(((obs_85)" +"(let-values(((obs_90)" "(expand-context-observer" -" ctx_81)))" -"(if obs_85" +" ctx_82)))" +"(if obs_90" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_85" +" obs_90" " 'prepare-env)))" "(void)))" -"(prepare-next-phase-namespace ctx_81)))" +"(prepare-next-phase-namespace ctx_82)))" "(void))" "(values))))" "(let-values(((trans-valss_0)" "(reverse$1" -"(let-values(((lst_362)" +"(let-values(((lst_361)" "(if syntaxes?_0 trans-rhs91_0 '()))" -"((lst_363) trans-idss_2))" +"((lst_362) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" +"(let-values()(check-list lst_361)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" "(let-values()(check-list lst_362)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_363)))" -"((letrec-values(((for-loop_290)" -"(lambda(fold-var_338" +"((letrec-values(((for-loop_289)" +"(lambda(fold-var_331" " lst_231" -" lst_364)" +" lst_363)" "(begin" " 'for-loop" "(if(if(pair? lst_231)" -"(pair? lst_364)" +"(pair? lst_363)" " #f)" "(let-values(((rhs_19)" "(unsafe-car" @@ -63439,31 +63550,31 @@ static const char *startup_source = " lst_231))" "((ids_35)" "(unsafe-car" -" lst_364))" +" lst_363))" "((rest_213)" "(unsafe-cdr" -" lst_364)))" -"(let-values(((fold-var_339)" -"(let-values(((fold-var_340)" -" fold-var_338))" -"(let-values(((fold-var_341)" +" lst_363)))" +"(let-values(((fold-var_332)" +"(let-values(((fold-var_333)" +" fold-var_331))" +"(let-values(((fold-var_334)" "(let-values()" "(cons" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_86)" +"(let-values(((obs_91)" "(expand-context-observer" -" ctx_81)))" -"(if obs_86" +" ctx_82)))" +"(if obs_91" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_86" +" obs_91" " 'next)" "(call-expand-observe" -" obs_86" +" obs_91" " 'enter-bind))))" "(void)))" "(values))))" @@ -63473,46 +63584,46 @@ static const char *startup_source = " rhs_19" " sc_7)" " ids_35" -" ctx_81)))" +" ctx_82)))" "(begin" -"(let-values(((obs_79)" +"(let-values(((obs_85)" "(expand-context-observer" -" ctx_81)))" -"(if obs_79" +" ctx_82)))" +"(if obs_85" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_79" +" obs_85" " 'exit-bind)))" "(void)))" " trans-val_1))))" -" fold-var_340))))" +" fold-var_333))))" "(values" -" fold-var_341)))))" +" fold-var_334)))))" "(if(not #f)" -"(for-loop_290" -" fold-var_339" +"(for-loop_289" +" fold-var_332" " rest_212" " rest_213)" -" fold-var_339)))" -" fold-var_338)))))" -" for-loop_290)" +" fold-var_332)))" +" fold-var_331)))))" +" for-loop_289)" " null" -" lst_362" -" lst_363))))))" +" lst_361" +" lst_362))))))" "(let-values(((rec-val-env_0)" -"(let-values(((lst_365) val-keyss_2)" +"(let-values(((lst_364) val-keyss_2)" "((lst_120) val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_365)))" +"(let-values()(check-list lst_364)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-list lst_120)))" -"((letrec-values(((for-loop_291)" +"((letrec-values(((for-loop_290)" "(lambda(env_29" " lst_234" " lst_235)" @@ -63536,9 +63647,9 @@ static const char *startup_source = "(let-values(((env_6)" "(let-values(((env_30)" " env_29))" -"(let-values(((lst_325)" +"(let-values(((lst_324)" " keys_10)" -"((lst_326)" +"((lst_325)" " ids_36))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63546,30 +63657,30 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_325)))" +" lst_324)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_326)))" -"((letrec-values(((for-loop_292)" +" lst_325)))" +"((letrec-values(((for-loop_291)" "(lambda(env_31" -" lst_366" +" lst_365" " lst_238)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_366)" +" lst_365)" "(pair?" " lst_238)" " #f)" "(let-values(((key_93)" "(unsafe-car" -" lst_366))" +" lst_365))" "((rest_215)" "(unsafe-cdr" -" lst_366))" +" lst_365))" "((id_117)" "(unsafe-car" " lst_238))" @@ -63590,57 +63701,57 @@ static const char *startup_source = " env_34)))))" "(if(not" " #f)" -"(for-loop_292" +"(for-loop_291" " env_32" " rest_215" " rest_188)" " env_32)))" " env_31)))))" -" for-loop_292)" +" for-loop_291)" " env_30" -" lst_325" -" lst_326))))))" +" lst_324" +" lst_325))))))" "(if(not #f)" -"(for-loop_291" +"(for-loop_290" " env_6" " rest_156" " rest_214)" " env_6)))" " env_29)))))" -" for-loop_291)" -"(expand-context-env ctx_81)" -" lst_365" +" for-loop_290)" +"(expand-context-env ctx_82)" +" lst_364" " lst_120)))))" "(let-values(((rec-env_0)" -"(let-values(((lst_367) trans-keyss_0)" -"((lst_368) trans-valss_0)" -"((lst_369) trans-idss_2))" +"(let-values(((lst_366) trans-keyss_0)" +"((lst_367) trans-valss_0)" +"((lst_368) trans-idss_2))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" +"(let-values()(check-list lst_366)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" "(let-values()(check-list lst_367)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()(check-list lst_368)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()(check-list lst_369)))" -"((letrec-values(((for-loop_293)" +"((letrec-values(((for-loop_292)" "(lambda(env_35" " lst_241" -" lst_370" -" lst_371)" +" lst_369" +" lst_370)" "(begin" " 'for-loop" "(if(if(pair?" " lst_241)" "(if(pair?" -" lst_370)" +" lst_369)" "(pair?" -" lst_371)" +" lst_370)" " #f)" " #f)" "(let-values(((keys_11)" @@ -63651,16 +63762,16 @@ static const char *startup_source = " lst_241))" "((vals_9)" "(unsafe-car" -" lst_370))" +" lst_369))" "((rest_217)" "(unsafe-cdr" -" lst_370))" +" lst_369))" "((ids_37)" "(unsafe-car" -" lst_371))" +" lst_370))" "((rest_218)" "(unsafe-cdr" -" lst_371)))" +" lst_370)))" "(let-values(((env_36)" "(let-values(((env_37)" " env_35))" @@ -63668,9 +63779,9 @@ static const char *startup_source = "(let-values()" "(let-values(((lst_121)" " keys_11)" -"((lst_372)" +"((lst_371)" " vals_9)" -"((lst_373)" +"((lst_372)" " ids_37))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63684,46 +63795,46 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_372)))" +" lst_371)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list" -" lst_373)))" -"((letrec-values(((for-loop_294)" +" lst_372)))" +"((letrec-values(((for-loop_293)" "(lambda(env_39" +" lst_373" " lst_374" -" lst_375" -" lst_376)" +" lst_375)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_374)" +" lst_373)" "(if(pair?" -" lst_375)" +" lst_374)" "(pair?" -" lst_376)" +" lst_375)" " #f)" " #f)" "(let-values(((key_94)" "(unsafe-car" -" lst_374))" +" lst_373))" "((rest_219)" "(unsafe-cdr" -" lst_374))" +" lst_373))" "((val_84)" "(unsafe-car" -" lst_375))" +" lst_374))" "((rest_220)" "(unsafe-cdr" -" lst_375))" +" lst_374))" "((id_118)" "(unsafe-car" -" lst_376))" +" lst_375))" "((rest_221)" "(unsafe-cdr" -" lst_376)))" +" lst_375)))" "(let-values(((env_40)" "(let-values(((env_41)" " env_39))" @@ -63733,8 +63844,8 @@ static const char *startup_source = "(maybe-install-free=id-in-context!" " val_84" " id_118" -" phase_144" -" ctx_81)" +" phase_145" +" ctx_82)" "(env-extend" " env_41" " key_94" @@ -63743,48 +63854,48 @@ static const char *startup_source = " env_42)))))" "(if(not" " #f)" -"(for-loop_294" +"(for-loop_293" " env_40" " rest_219" " rest_220" " rest_221)" " env_40)))" " env_39)))))" -" for-loop_294)" +" for-loop_293)" " env_37" " lst_121" -" lst_372" -" lst_373))))))" +" lst_371" +" lst_372))))))" "(values" " env_38)))))" "(if(not #f)" -"(for-loop_293" +"(for-loop_292" " env_36" " rest_216" " rest_217" " rest_218)" " env_36)))" " env_35)))))" -" for-loop_293)" +" for-loop_292)" " rec-val-env_0" +" lst_366" " lst_367" -" lst_368" -" lst_369)))))" -"(let-values(((expr-ctx_0)(as-expression-context ctx_81)))" +" lst_368)))))" +"(let-values(((expr-ctx_0)(as-expression-context ctx_82)))" "(let-values(((orig-rrs_0)" "(expand-context-reference-records" " expr-ctx_0)))" "(let-values(((rec-ctx_0)" -"(let-values(((v_253) expr-ctx_0))" -"(let-values(((the-struct_97) v_253))" +"(let-values(((v_250) expr-ctx_0))" +"(let-values(((the-struct_95) v_250))" "(if(expand-context/outer?" -" the-struct_97)" +" the-struct_95)" "(let-values(((env151_1) rec-env_0)" "((scopes152_0)" "(cons" " sc_7" "(expand-context-scopes" -" ctx_81)))" +" ctx_82)))" "((reference-records153_0)" "(if split-by-reference?_0" "(cons" @@ -63796,93 +63907,93 @@ static const char *startup_source = "(cons" " trans-idss_2" " val-idss_3)" -" ctx_81" +" ctx_82" " sc_7))" -"((inner155_1)" +"((inner155_2)" "(root-expand-context/outer-inner" -" v_253)))" +" v_250)))" "(expand-context/outer1.1" -" inner155_1" +" inner155_2" "(root-expand-context/outer-post-expansion-scope" -" the-struct_97)" +" the-struct_95)" "(root-expand-context/outer-use-site-scopes" -" the-struct_97)" +" the-struct_95)" "(root-expand-context/outer-frame-id" -" the-struct_97)" +" the-struct_95)" "(expand-context/outer-context" -" the-struct_97)" +" the-struct_95)" " env151_1" "(expand-context/outer-post-expansion-scope-action" -" the-struct_97)" +" the-struct_95)" " scopes152_0" "(expand-context/outer-def-ctx-scopes" -" the-struct_97)" +" the-struct_95)" " binding-layer154_0" " reference-records153_0" "(expand-context/outer-only-immediate?" -" the-struct_97)" +" the-struct_95)" "(expand-context/outer-need-eventually-defined" -" the-struct_97)" +" the-struct_95)" "(expand-context/outer-current-introduction-scopes" -" the-struct_97)" +" the-struct_95)" "(expand-context/outer-name" -" the-struct_97)))" +" the-struct_95)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_97))))))" +" the-struct_95))))))" "(let-values(((letrec-values-id_0)" "(if(not" -"(expand-context-to-parsed? ctx_81))" +"(expand-context-to-parsed? ctx_82))" "(if syntaxes?_0" -"(core-id 'letrec-values phase_144)" +"(core-id 'letrec-values phase_145)" " let-values115_0)" " #f)))" "(let-values(((rebuild-s_6)" -"(let-values(((temp158_2) #t))" +"(let-values(((temp158_3) #t))" "(keep-as-needed74.1" " #f" " #f" -" temp158_2" +" temp158_3" " #t" " #f" " #f" -" ctx_81" +" ctx_82" " s_89))))" "(let-values(((val-name-idss_0)" "(if(expand-context-to-parsed?" -" ctx_81)" +" ctx_82)" "(reverse$1" -"(let-values(((lst_377)" +"(let-values(((lst_376)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" -"(check-list lst_377)))" -"((letrec-values(((for-loop_295)" +"(check-list lst_376)))" +"((letrec-values(((for-loop_294)" "(lambda(fold-var_106" -" lst_378)" +" lst_377)" "(begin" " 'for-loop" "(if(pair?" -" lst_378)" +" lst_377)" "(let-values(((val-ids_1)" "(unsafe-car" -" lst_378))" +" lst_377))" "((rest_222)" "(unsafe-cdr" -" lst_378)))" -"(let-values(((fold-var_342)" -"(let-values(((fold-var_343)" +" lst_377)))" +"(let-values(((fold-var_335)" +"(let-values(((fold-var_336)" " fold-var_106))" -"(let-values(((fold-var_344)" +"(let-values(((fold-var_337)" "(let-values()" "(cons" "(let-values()" "(reverse$1" -"(let-values(((lst_379)" +"(let-values(((lst_378)" " val-ids_1))" "(begin" "(if(variable-reference-from-unsafe?" @@ -63890,24 +64001,24 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_379)))" -"((letrec-values(((for-loop_296)" -"(lambda(fold-var_345" -" lst_380)" +" lst_378)))" +"((letrec-values(((for-loop_295)" +"(lambda(fold-var_338" +" lst_379)" "(begin" " 'for-loop" "(if(pair?" -" lst_380)" +" lst_379)" "(let-values(((val-id_0)" "(unsafe-car" -" lst_380))" +" lst_379))" "((rest_223)" "(unsafe-cdr" -" lst_380)))" +" lst_379)))" "(let-values(((fold-var_109)" -"(let-values(((fold-var_346)" -" fold-var_345))" -"(let-values(((fold-var_347)" +"(let-values(((fold-var_339)" +" fold-var_338))" +"(let-values(((fold-var_340)" "(let-values()" "(cons" "(let-values()" @@ -63917,44 +64028,44 @@ static const char *startup_source = " val-id_0)" " val-id_0" " val-id_0))" -" fold-var_346))))" +" fold-var_339))))" "(values" -" fold-var_347)))))" -"(if(not" -" #f)" -"(for-loop_296" -" fold-var_109" -" rest_223)" -" fold-var_109)))" -" fold-var_345)))))" -" for-loop_296)" -" null" -" lst_379)))))" -" fold-var_343))))" -"(values" -" fold-var_344)))))" +" fold-var_340)))))" "(if(not" " #f)" "(for-loop_295" -" fold-var_342" -" rest_222)" -" fold-var_342)))" -" fold-var_106)))))" +" fold-var_109" +" rest_223)" +" fold-var_109)))" +" fold-var_338)))))" " for-loop_295)" " null" -" lst_377))))" +" lst_378)))))" +" fold-var_336))))" +"(values" +" fold-var_337)))))" +"(if(not" +" #f)" +"(for-loop_294" +" fold-var_335" +" rest_222)" +" fold-var_335)))" +" fold-var_106)))))" +" for-loop_294)" +" null" +" lst_376))))" " val-idss_3)))" "(let-values((()" "(begin" "(if syntaxes?_0" "(let-values()" -"(let-values(((obs_87)" +"(let-values(((obs_92)" "(expand-context-observer" -" ctx_81)))" -"(if obs_87" +" ctx_82)))" +"(if obs_92" "(let-values()" "(log-letrec-values" -" obs_87" +" obs_92" " val-idss_3" " val-rhss_3" " bodys_10))" @@ -63967,10 +64078,10 @@ static const char *startup_source = " 'get-body" "(let-values((()" "(begin" -"(let-values(((obs_88)" +"(let-values(((obs_93)" "(expand-context-observer" -" ctx_81)))" -"(if obs_88" +" ctx_82)))" +"(if obs_93" "(let-values()" "(if(not" "(if syntaxes?_0" @@ -63979,59 +64090,59 @@ static const char *startup_source = " #f))" "(let-values()" "(call-expand-observe" -" obs_88" +" obs_93" " 'next-group))" "(void)))" "(void)))" "(values))))" "(let-values(((body-ctx_5)" -"(let-values(((v_254)" +"(let-values(((v_251)" " rec-ctx_0))" -"(let-values(((the-struct_98)" -" v_254))" +"(let-values(((the-struct_96)" +" v_251))" "(if(expand-context/outer?" -" the-struct_98)" +" the-struct_96)" "(let-values(((reference-records162_0)" " orig-rrs_0)" "((inner163_0)" "(root-expand-context/outer-inner" -" v_254)))" +" v_251)))" "(expand-context/outer1.1" " inner163_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_98)" +" the-struct_96)" "(root-expand-context/outer-use-site-scopes" -" the-struct_98)" +" the-struct_96)" "(root-expand-context/outer-frame-id" -" the-struct_98)" +" the-struct_96)" "(expand-context/outer-context" -" the-struct_98)" +" the-struct_96)" "(expand-context/outer-env" -" the-struct_98)" +" the-struct_96)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_98)" +" the-struct_96)" "(expand-context/outer-scopes" -" the-struct_98)" +" the-struct_96)" "(expand-context/outer-def-ctx-scopes" -" the-struct_98)" +" the-struct_96)" "(expand-context/outer-binding-layer" -" the-struct_98)" +" the-struct_96)" " reference-records162_0" "(expand-context/outer-only-immediate?" -" the-struct_98)" +" the-struct_96)" "(expand-context/outer-need-eventually-defined" -" the-struct_98)" +" the-struct_96)" "(expand-context/outer-current-introduction-scopes" -" the-struct_98)" +" the-struct_96)" "(expand-context/outer-name" -" the-struct_98)))" +" the-struct_96)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_98))))))" +" the-struct_96))))))" "(let-values(((temp160_2)" "(let-values(((ctx165_0)" -" ctx_81))" +" ctx_82))" "(as-tail-context23.1" " ctx165_0" " body-ctx_5)))" @@ -64049,11 +64160,11 @@ static const char *startup_source = "(let-values()" "(let-values(((clauses_2)" "(reverse$1" -"(let-values(((lst_381)" +"(let-values(((lst_380)" " val-name-idss_0)" -"((lst_382)" +"((lst_381)" " val-keyss_2)" -"((lst_383)" +"((lst_382)" " val-rhss_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64061,6 +64172,12 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" +" lst_380)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_381)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -64068,46 +64185,40 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_382)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_383)))" "((letrec-values(((for-loop_158)" "(lambda(fold-var_116" +" lst_383" " lst_384" -" lst_385" -" lst_386)" +" lst_385)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_384)" +" lst_383)" "(if(pair?" -" lst_385)" +" lst_384)" "(pair?" -" lst_386)" +" lst_385)" " #f)" " #f)" "(let-values(((ids_38)" "(unsafe-car" -" lst_384))" +" lst_383))" "((rest_224)" "(unsafe-cdr" -" lst_384))" +" lst_383))" "((keys_12)" "(unsafe-car" -" lst_385))" +" lst_384))" "((rest_225)" "(unsafe-cdr" -" lst_385))" +" lst_384))" "((rhs_21)" "(unsafe-car" -" lst_386))" +" lst_385))" "((rest_226)" "(unsafe-cdr" -" lst_386)))" -"(let-values(((fold-var_348)" +" lst_385)))" +"(let-values(((fold-var_341)" "(let-values(((fold-var_119)" " fold-var_116))" "(let-values(((fold-var_120)" @@ -64116,14 +64227,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_89)" +"(let-values(((obs_94)" "(expand-context-observer" -" ctx_81)))" -"(if obs_89" +" ctx_82)))" +"(if obs_94" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_89" +" obs_94" " 'next)))" "(void)))" "(values))))" @@ -64146,7 +64257,7 @@ static const char *startup_source = " rhs166_0" " temp167_1))))" "(if(expand-context-to-parsed?" -" ctx_81)" +" ctx_82)" "(list" " keys_12" " exp-rhs_4)" @@ -64159,17 +64270,17 @@ static const char *startup_source = "(if(not" " #f)" "(for-loop_158" -" fold-var_348" +" fold-var_341" " rest_224" " rest_225" " rest_226)" -" fold-var_348)))" +" fold-var_341)))" " fold-var_116)))))" " for-loop_158)" " null" +" lst_380" " lst_381" -" lst_382" -" lst_383))))))" +" lst_382))))))" "(let-values(((exp-body_4)" "(get-body_1)))" "(begin" @@ -64179,7 +64290,7 @@ static const char *startup_source = " frame-id_15))" "(void))" "(if(expand-context-to-parsed?" -" ctx_81)" +" ctx_82)" "(if rec?_1" "(parsed-letrec-values18.1" " rebuild-s_6" @@ -64193,7 +64304,7 @@ static const char *startup_source = " exp-body_4))" "(let-values(((rebuild-s168_0)" " rebuild-s_6)" -"((temp169_1)" +"((temp169_2)" "(list*" " letrec-values-id_0" " clauses_2" @@ -64202,11 +64313,11 @@ static const char *startup_source = " #f" " #f" " rebuild-s168_0" -" temp169_1)))))))" +" temp169_2)))))))" "(let-values()" "(let-values(((temp173_0)" "(reverse$1" -"(let-values(((lst_387)" +"(let-values(((lst_386)" " val-idss_3))" "(begin" "(if(variable-reference-from-unsafe?" @@ -64214,41 +64325,41 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_387)))" -"((letrec-values(((for-loop_297)" -"(lambda(fold-var_349" -" lst_388)" +" lst_386)))" +"((letrec-values(((for-loop_296)" +"(lambda(fold-var_342" +" lst_387)" "(begin" " 'for-loop" "(if(pair?" -" lst_388)" +" lst_387)" "(let-values(((rhs_22)" "(unsafe-car" -" lst_388))" +" lst_387))" "((rest_227)" "(unsafe-cdr" -" lst_388)))" -"(let-values(((fold-var_350)" -"(let-values(((fold-var_351)" -" fold-var_349))" -"(let-values(((fold-var_352)" +" lst_387)))" +"(let-values(((fold-var_343)" +"(let-values(((fold-var_344)" +" fold-var_342))" +"(let-values(((fold-var_345)" "(let-values()" "(cons" "(let-values()" " #f)" -" fold-var_351))))" +" fold-var_344))))" "(values" -" fold-var_352)))))" +" fold-var_345)))))" "(if(not" " #f)" -"(for-loop_297" -" fold-var_350" +"(for-loop_296" +" fold-var_343" " rest_227)" -" fold-var_350)))" -" fold-var_349)))))" -" for-loop_297)" +" fold-var_343)))" +" fold-var_342)))))" +" for-loop_296)" " null" -" lst_387)))))" +" lst_386)))))" "((temp174_0)" " #t)" "((frame-id175_0)" @@ -64275,82 +64386,82 @@ static const char *startup_source = " val-keyss_2" " val-rhss_3" " temp173_0))))))" -"(if(expand-context-to-parsed? ctx_81)" +"(if(expand-context-to-parsed? ctx_82)" " result-s_12" "(attach-disappeared-transformer-bindings" " result-s_12" " trans-idss_2)))))))))))))))))))))))))))))))))))))))))" "(define-values" "(log-let-renames)" -"(lambda(obs_90 renames-log-tag_1 val-idss_4 val-rhss_4 bodys_11 trans-idss_3 trans-rhss_0 sc_33)" +"(lambda(obs_95 renames-log-tag_1 val-idss_4 val-rhss_4 bodys_11 trans-idss_3 trans-rhss_0 sc_33)" "(begin" "(let-values(((vals+body_0)" "(cons" "(reverse$1" -"(let-values(((lst_389) val-idss_4)((lst_59) val-rhss_4))" +"(let-values(((lst_388) val-idss_4)((lst_59) val-rhss_4))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_389)))" +"(let-values()(check-list lst_388)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_59)))" -"((letrec-values(((for-loop_298)" -"(lambda(fold-var_353 lst_390 lst_391)" +"((letrec-values(((for-loop_297)" +"(lambda(fold-var_346 lst_389 lst_390)" "(begin" " 'for-loop" -"(if(if(pair? lst_390)(pair? lst_391) #f)" -"(let-values(((val-ids_2)(unsafe-car lst_390))" -"((rest_228)(unsafe-cdr lst_390))" -"((val-rhs_11)(unsafe-car lst_391))" -"((rest_229)(unsafe-cdr lst_391)))" -"(let-values(((fold-var_354)" -"(let-values(((fold-var_355) fold-var_353))" -"(let-values(((fold-var_356)" +"(if(if(pair? lst_389)(pair? lst_390) #f)" +"(let-values(((val-ids_2)(unsafe-car lst_389))" +"((rest_228)(unsafe-cdr lst_389))" +"((val-rhs_11)(unsafe-car lst_390))" +"((rest_229)(unsafe-cdr lst_390)))" +"(let-values(((fold-var_347)" +"(let-values(((fold-var_348) fold-var_346))" +"(let-values(((fold-var_349)" "(let-values()" "(cons" "(let-values()" "(datum->syntax$1" " #f" "(list val-ids_2 val-rhs_11)))" -" fold-var_355))))" -"(values fold-var_356)))))" +" fold-var_348))))" +"(values fold-var_349)))))" "(if(not #f)" -"(for-loop_298 fold-var_354 rest_228 rest_229)" -" fold-var_354)))" -" fold-var_353)))))" -" for-loop_298)" +"(for-loop_297 fold-var_347 rest_228 rest_229)" +" fold-var_347)))" +" fold-var_346)))))" +" for-loop_297)" " null" -" lst_389" +" lst_388" " lst_59))))" "(datum->syntax$1 #f bodys_11))))" "(call-expand-observe" -" obs_90" +" obs_95" " renames-log-tag_1" "(if(not trans-rhss_0)" " vals+body_0" "(cons" "(reverse$1" -"(let-values(((lst_62) trans-idss_3)((lst_392) trans-rhss_0))" +"(let-values(((lst_62) trans-idss_3)((lst_391) trans-rhss_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_62)))" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_392)))" -"((letrec-values(((for-loop_299)" -"(lambda(fold-var_357 lst_393 lst_394)" +"(let-values()(check-list lst_391)))" +"((letrec-values(((for-loop_298)" +"(lambda(fold-var_350 lst_392 lst_393)" "(begin" " 'for-loop" -"(if(if(pair? lst_393)(pair? lst_394) #f)" -"(let-values(((trans-ids_0)(unsafe-car lst_393))" -"((rest_230)(unsafe-cdr lst_393))" -"((trans-rhs_5)(unsafe-car lst_394))" -"((rest_231)(unsafe-cdr lst_394)))" +"(if(if(pair? lst_392)(pair? lst_393) #f)" +"(let-values(((trans-ids_0)(unsafe-car lst_392))" +"((rest_230)(unsafe-cdr lst_392))" +"((trans-rhs_5)(unsafe-car lst_393))" +"((rest_231)(unsafe-cdr lst_393)))" "(let-values(((fold-var_122)" -"(let-values(((fold-var_358) fold-var_357))" -"(let-values(((fold-var_359)" +"(let-values(((fold-var_351) fold-var_350))" +"(let-values(((fold-var_352)" "(let-values()" "(cons" "(let-values()" @@ -64359,72 +64470,72 @@ static const char *startup_source = "(list" " trans-ids_0" "(add-scope trans-rhs_5 sc_33))))" -" fold-var_358))))" -"(values fold-var_359)))))" -"(if(not #f)(for-loop_299 fold-var_122 rest_230 rest_231) fold-var_122)))" -" fold-var_357)))))" -" for-loop_299)" +" fold-var_351))))" +"(values fold-var_352)))))" +"(if(not #f)(for-loop_298 fold-var_122 rest_230 rest_231) fold-var_122)))" +" fold-var_350)))))" +" for-loop_298)" " null" " lst_62" -" lst_392))))" +" lst_391))))" " vals+body_0)))))))" "(define-values" "(log-letrec-values)" -"(lambda(obs_91 val-idss_5 val-rhss_5 bodys_12)" +"(lambda(obs_96 val-idss_5 val-rhss_5 bodys_12)" "(begin" "(begin" -"(call-expand-observe obs_91 'next-group)" +"(call-expand-observe obs_96 'next-group)" "(if(null? val-idss_5)" "(void)" "(let-values()" "(begin" -"(call-expand-observe obs_91 'prim-letrec-values)" -"(log-let-renames obs_91 'let-renames val-idss_5 val-rhss_5 bodys_12 #f #f #f))))))))" +"(call-expand-observe obs_96 'prim-letrec-values)" +"(log-let-renames obs_96 'let-renames val-idss_5 val-rhss_5 bodys_12 #f #f #f))))))))" "(void" "(add-core-form!*" " 'let-values" -"(let-values(((temp181_0) 'prim-let-values))(make-let-values-form11.1 temp181_0 #f #f #f #f #f #f #f #f))))" +"(let-values(((temp181_1) 'prim-let-values))(make-let-values-form11.1 temp181_1 #f #f #f #f #f #f #f #f))))" "(void" "(add-core-form!*" " 'letrec-values" -"(let-values(((temp182_1) #t)((temp183_0) 'prim-letrec-values))" -"(make-let-values-form11.1 temp183_0 temp182_1 #t #f #f #f #f #f #f))))" +"(let-values(((temp182_0) #t)((temp183_0) 'prim-letrec-values))" +"(make-let-values-form11.1 temp183_0 temp182_0 #t #f #f #f #f #f #f))))" "(void" "(add-core-form!*" " 'letrec-syntaxes+values" "(let-values(((temp184_1) #t)" "((temp185_0) #t)" -"((temp186_0) #t)" +"((temp186_1) #t)" "((temp187_2) 'prim-letrec-syntaxes+values)" "((temp188_1) 'letrec-syntaxes-renames))" -"(make-let-values-form11.1 temp187_2 temp185_0 #t temp188_1 #t temp186_0 #t temp184_1 #t))))" +"(make-let-values-form11.1 temp187_2 temp185_0 #t temp188_1 #t temp186_1 #t temp184_1 #t))))" "(void" "(add-core-form!*" " '#%stratified-body" -"(lambda(s_523 ctx_82)" +"(lambda(s_529 ctx_83)" "(let-values((()" "(begin" -"(let-values(((obs_92)(expand-context-observer ctx_82)))" -"(if obs_92" -"(let-values()(let-values()(call-expand-observe obs_92 'prim-#%stratified)))" +"(let-values(((obs_97)(expand-context-observer ctx_83)))" +"(if obs_97" +"(let-values()(let-values()(call-expand-observe obs_97 'prim-#%stratified)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_9)(syntax-disarm$1 s_523)))" +"(let-values(((disarmed-s_9)(syntax-disarm$1 s_529)))" "(let-values(((ok?_39 #%stratified-body189_0 body190_0)" -"(let-values(((s_524) disarmed-s_9))" -"(let-values(((orig-s_46) s_524))" +"(let-values(((s_530) disarmed-s_9))" +"(let-values(((orig-s_46) s_530))" "(let-values(((#%stratified-body189_1 body190_1)" -"(let-values(((s_525)(if(syntax?$1 s_524)(syntax-e$1 s_524) s_524)))" -"(if(pair? s_525)" +"(let-values(((s_531)(if(syntax?$1 s_530)(syntax-e$1 s_530) s_530)))" +"(if(pair? s_531)" "(let-values(((#%stratified-body191_0)" -"(let-values(((s_526)(car s_525))) s_526))" +"(let-values(((s_532)(car s_531))) s_532))" "((body192_0)" -"(let-values(((s_527)(cdr s_525)))" -"(let-values(((s_528)" -"(if(syntax?$1 s_527)" -"(syntax-e$1 s_527)" -" s_527)))" -"(let-values(((flat-s_39)(to-syntax-list.1 s_528)))" +"(let-values(((s_533)(cdr s_531)))" +"(let-values(((s_534)" +"(if(syntax?$1 s_533)" +"(syntax-e$1 s_533)" +" s_533)))" +"(let-values(((flat-s_39)(to-syntax-list.1 s_534)))" "(if(not flat-s_39)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_46))" @@ -64436,39 +64547,39 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_46)))))" "(values #t #%stratified-body189_1 body190_1))))))" "(let-values(((rebuild-s_7)" -"(let-values(((temp195_0) #t))(keep-as-needed74.1 #f #f temp195_0 #t #f #f ctx_82 s_523))))" +"(let-values(((temp195_0) #t))(keep-as-needed74.1 #f #f temp195_0 #t #f #f ctx_83 s_529))))" "(let-values(((exp-body_5)" "(let-values(((temp196_0) body190_0)" -"((ctx197_0) ctx_82)" +"((ctx197_0) ctx_83)" "((temp198_1) #t)" "((rebuild-s199_0) rebuild-s_7))" "(expand-body7.1 rebuild-s199_0 temp198_1 #t temp196_0 ctx197_0))))" -"(if(expand-context-to-parsed? ctx_82)" +"(if(expand-context-to-parsed? ctx_83)" "(parsed-begin12.1 rebuild-s_7 exp-body_5)" "(let-values(((rebuild-s200_0) rebuild-s_7)" "((temp201_1)" "(if(null?(cdr exp-body_5))" "(car exp-body_5)" -"(list*(core-id 'begin(expand-context-phase ctx_82)) exp-body_5))))" +"(list*(core-id 'begin(expand-context-phase ctx_83)) exp-body_5))))" "(rebuild5.1 #f #f rebuild-s200_0 temp201_1)))))))))))" "(void" "(add-core-form!*" " '#%datum" -"(lambda(s_529 ctx_83)" +"(lambda(s_535 ctx_84)" "(let-values((()" "(begin" -"(let-values(((obs_93)(expand-context-observer ctx_83)))" -"(if obs_93(let-values()(let-values()(call-expand-observe obs_93 'prim-#%datum)))(void)))" +"(let-values(((obs_98)(expand-context-observer ctx_84)))" +"(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_529)))" +"(let-values(((disarmed-s_10)(syntax-disarm$1 s_535)))" "(let-values(((ok?_40 #%datum202_0 datum203_0)" "(let-values(((s_192) disarmed-s_10))" "(let-values(((orig-s_47) s_192))" "(let-values(((#%datum202_1 datum203_1)" -"(let-values(((s_530)(if(syntax?$1 s_192)(syntax-e$1 s_192) s_192)))" -"(if(pair? s_530)" -"(let-values(((#%datum204_0)(let-values(((s_531)(car s_530))) s_531))" -"((datum205_0)(let-values(((s_532)(cdr s_530))) s_532)))" +"(let-values(((s_536)(if(syntax?$1 s_192)(syntax-e$1 s_192) s_192)))" +"(if(pair? s_536)" +"(let-values(((#%datum204_0)(let-values(((s_537)(car s_536))) s_537))" +"((datum205_0)(let-values(((s_538)(cdr s_536))) s_538)))" "(values #%datum204_0 datum205_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_47)))))" "(values #t #%datum202_1 datum203_1))))))" @@ -64480,35 +64591,35 @@ static const char *startup_source = " (raise-syntax-error$1 '#%datum \"keyword misused as an expression\" #f datum_2))" "(void))" "(values))))" -"(let-values(((phase_145)(expand-context-phase ctx_83)))" -"(if(if(expand-context-to-parsed? ctx_83)(free-id-set-empty?(expand-context-stops ctx_83)) #f)" -"(parsed-quote14.1(keep-properties-only~ s_529)(syntax->datum$1 datum_2))" -"(let-values(((s206_0) s_529)((temp207_0)(list(core-id 'quote phase_145) datum_2)))" +"(let-values(((phase_146)(expand-context-phase ctx_84)))" +"(if(if(expand-context-to-parsed? ctx_84)(free-id-set-empty?(expand-context-stops ctx_84)) #f)" +"(parsed-quote14.1(keep-properties-only~ s_535)(syntax->datum$1 datum_2))" +"(let-values(((s206_0) s_535)((temp207_0)(list(core-id 'quote phase_146) datum_2)))" "(rebuild5.1 #f #f s206_0 temp207_0))))))))))))" "(void" "(add-core-form!*" " '#%app" -"(lambda(s_533 ctx_84)" +"(lambda(s_539 ctx_85)" "(let-values((()" "(begin" -"(let-values(((obs_94)(expand-context-observer ctx_84)))" -"(if obs_94(let-values()(let-values()(call-expand-observe obs_94 'prim-#%app)))(void)))" +"(let-values(((obs_99)(expand-context-observer ctx_85)))" +"(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_533)))" +"(let-values(((disarmed-s_11)(syntax-disarm$1 s_539)))" "(let-values(((ok?_41 #%app208_0 e209_0)" -"(let-values(((s_534) disarmed-s_11))" -"(let-values(((orig-s_48) s_534))" +"(let-values(((s_540) disarmed-s_11))" +"(let-values(((orig-s_48) s_540))" "(let-values(((#%app208_1 e209_1)" -"(let-values(((s_535)(if(syntax?$1 s_534)(syntax-e$1 s_534) s_534)))" -"(if(pair? s_535)" -"(let-values(((#%app210_0)(let-values(((s_536)(car s_535))) s_536))" +"(let-values(((s_541)(if(syntax?$1 s_540)(syntax-e$1 s_540) s_540)))" +"(if(pair? s_541)" +"(let-values(((#%app210_0)(let-values(((s_542)(car s_541))) s_542))" "((e211_0)" -"(let-values(((s_537)(cdr s_535)))" -"(let-values(((s_538)" -"(if(syntax?$1 s_537)" -"(syntax-e$1 s_537)" -" s_537)))" -"(let-values(((flat-s_40)(to-syntax-list.1 s_538)))" +"(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_40)(to-syntax-list.1 s_544)))" "(if(not flat-s_40)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_48))" @@ -64519,35 +64630,35 @@ static const char *startup_source = "(let-values(((es_3) e209_0))" "(if(null? es_3)" "(let-values()" -"(let-values(((phase_146)(expand-context-phase ctx_84)))" -"(if(expand-context-to-parsed? ctx_84)" -"(parsed-quote14.1(keep-properties-only~ s_533) null)" -"(let-values(((s212_0) s_533)((temp213_1)(list(core-id 'quote phase_146) null)))" +"(let-values(((phase_147)(expand-context-phase ctx_85)))" +"(if(expand-context-to-parsed? ctx_85)" +"(parsed-quote14.1(keep-properties-only~ s_539) null)" +"(let-values(((s212_0) s_539)((temp213_1)(list(core-id 'quote phase_147) null)))" "(rebuild5.1 #f #f s212_0 temp213_1)))))" "(let-values()" "(let-values(((keep-for-parsed?_1)(eq?(system-type 'vm) 'chez-scheme)))" "(let-values(((rebuild-s_8)" "(let-values(((keep-for-parsed?216_0) keep-for-parsed?_1))" -"(keep-as-needed74.1 #f #f #f #f keep-for-parsed?216_0 #t ctx_84 s_533))))" +"(keep-as-needed74.1 #f #f #f #f keep-for-parsed?216_0 #t ctx_85 s_539))))" "(let-values(((prefixless_0)(cdr(syntax-e$1 disarmed-s_11))))" "(let-values(((rebuild-prefixless_0)" "(if(syntax?$1 prefixless_0)" "(let-values(((keep-for-parsed?219_0) keep-for-parsed?_1))" -"(keep-as-needed74.1 #f #f #f #f keep-for-parsed?219_0 #t ctx_84 prefixless_0))" +"(keep-as-needed74.1 #f #f #f #f keep-for-parsed?219_0 #t ctx_85 prefixless_0))" " #f)))" -"(let-values(((expr-ctx_1)(as-expression-context ctx_84)))" +"(let-values(((expr-ctx_1)(as-expression-context ctx_85)))" "(let-values((()" "(begin" -"(let-values(((obs_95)(expand-context-observer expr-ctx_1)))" -"(if obs_95" +"(let-values(((obs_100)(expand-context-observer expr-ctx_1)))" +"(if obs_100" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_95" +" obs_100" " 'enter-list" -"(datum->syntax$1 #f es_3 s_533))" -"(call-expand-observe obs_95 'next))))" +"(datum->syntax$1 #f es_3 s_539))" +"(call-expand-observe obs_100 'next))))" "(void)))" "(values))))" "(let-values(((rest-es_0)(cdr es_3)))" @@ -64556,35 +64667,35 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp220_1 expr-ctx221_0))))" "(let-values(((exp-es_0)" "(reverse$1" -"(let-values(((lst_395) rest-es_0))" +"(let-values(((lst_394) rest-es_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_395)))" -"((letrec-values(((for-loop_300)" -"(lambda(fold-var_56 lst_396)" +"(let-values()(check-list lst_394)))" +"((letrec-values(((for-loop_299)" +"(lambda(fold-var_56 lst_395)" "(begin" " 'for-loop" -"(if(pair? lst_396)" -"(let-values(((e_85)(unsafe-car lst_396))" +"(if(pair? lst_395)" +"(let-values(((e_85)(unsafe-car lst_395))" "((rest_232)" -"(unsafe-cdr lst_396)))" -"(let-values(((fold-var_360)" -"(let-values(((fold-var_361)" +"(unsafe-cdr lst_395)))" +"(let-values(((fold-var_353)" +"(let-values(((fold-var_354)" " fold-var_56))" -"(let-values(((fold-var_362)" +"(let-values(((fold-var_355)" "(let-values()" "(cons" "(let-values()" "(begin" -"(let-values(((obs_96)" +"(let-values(((obs_101)" "(expand-context-observer" " expr-ctx_1)))" -"(if obs_96" +"(if obs_101" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_96" +" obs_101" " 'next)))" "(void)))" "(let-values(((e222_0)" @@ -64598,17 +64709,17 @@ static const char *startup_source = " #f" " e222_0" " expr-ctx223_0))))" -" fold-var_361))))" +" fold-var_354))))" "(values" -" fold-var_362)))))" +" fold-var_355)))))" "(if(not #f)" -"(for-loop_300 fold-var_360 rest_232)" -" fold-var_360)))" +"(for-loop_299 fold-var_353 rest_232)" +" fold-var_353)))" " fold-var_56)))))" -" for-loop_300)" +" for-loop_299)" " null" -" lst_395))))))" -"(if(expand-context-to-parsed? ctx_84)" +" lst_394))))))" +"(if(expand-context-to-parsed? ctx_85)" "(let-values()" "(parsed-app7.1" "(let-values(((or-part_374) rebuild-prefixless_0))" @@ -64624,12 +64735,12 @@ static const char *startup_source = "(rebuild5.1 #f #f rebuild-prefixless226_0 exp-es227_0))" " exp-es_1))))" "(begin" -"(let-values(((obs_97)(expand-context-observer expr-ctx_1)))" -"(if obs_97" +"(let-values(((obs_102)(expand-context-observer expr-ctx_1)))" +"(if obs_102" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_97" +" obs_102" " 'exit-list" "(datum->syntax$1 #f es_4 rebuild-s_8))))" "(void)))" @@ -64639,35 +64750,35 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'quote" -"(lambda(s_539 ctx_85)" +"(lambda(s_545 ctx_86)" "(let-values((()" "(begin" -"(let-values(((obs_98)(expand-context-observer ctx_85)))" -"(if obs_98(let-values()(let-values()(call-expand-observe obs_98 'prim-quote)))(void)))" +"(let-values(((obs_103)(expand-context-observer ctx_86)))" +"(if obs_103(let-values()(let-values()(call-expand-observe obs_103 'prim-quote)))(void)))" "(values))))" "(let-values(((ok?_42 quote228_0 datum229_0)" -"(let-values(((s_540)(syntax-disarm$1 s_539)))" -"(let-values(((orig-s_49) s_540))" +"(let-values(((s_546)(syntax-disarm$1 s_545)))" +"(let-values(((orig-s_49) s_546))" "(let-values(((quote228_1 datum229_1)" -"(let-values(((s_541)(if(syntax?$1 s_540)(syntax-e$1 s_540) s_540)))" -"(if(pair? s_541)" -"(let-values(((quote230_0)(let-values(((s_542)(car s_541))) s_542))" +"(let-values(((s_547)(if(syntax?$1 s_546)(syntax-e$1 s_546) s_546)))" +"(if(pair? s_547)" +"(let-values(((quote230_0)(let-values(((s_548)(car s_547))) s_548))" "((datum231_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_549)(cdr s_547)))" +"(let-values(((s_550)" +"(if(syntax?$1 s_549)" +"(syntax-e$1 s_549)" +" s_549)))" +"(if(pair? s_550)" "(let-values(((datum232_0)" -"(let-values(((s_545)(car s_544))) s_545))" +"(let-values(((s_551)(car s_550))) s_551))" "(()" -"(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_552)(cdr s_550)))" +"(let-values(((s_553)" +"(if(syntax?$1 s_552)" +"(syntax-e$1 s_552)" +" s_552)))" +"(if(null? s_553)" "(values)" "(raise-syntax-error$1" " #f" @@ -64678,41 +64789,41 @@ static const char *startup_source = "(values quote230_0 datum231_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_49)))))" "(values #t quote228_1 datum229_1))))))" -"(if(expand-context-to-parsed? ctx_85)" -"(parsed-quote14.1(keep-properties-only~ s_539)(syntax->datum$1 datum229_0))" -" s_539))))))" +"(if(expand-context-to-parsed? ctx_86)" +"(parsed-quote14.1(keep-properties-only~ s_545)(syntax->datum$1 datum229_0))" +" s_545))))))" "(void" "(add-core-form!*" " 'quote-syntax" -"(lambda(s_548 ctx_86)" +"(lambda(s_554 ctx_87)" "(let-values((()" "(begin" -"(let-values(((obs_99)(expand-context-observer ctx_86)))" -"(if obs_99" -"(let-values()(let-values()(call-expand-observe obs_99 'prim-quote-syntax)))" +"(let-values(((obs_104)(expand-context-observer ctx_87)))" +"(if obs_104" +"(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_554)))" "(let-values(((ok?_43 quote-syntax233_0 datum234_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_551)(car s_550))) #t)" -"(let-values(((s_552)(cdr s_550)))" -"(let-values(((s_553)(if(syntax?$1 s_552)(syntax-e$1 s_552) s_552)))" -"(if(pair? s_553)" -"(if(let-values(((s_554)(car s_553))) #t)" -"(let-values(((s_555)(cdr s_553)))" -"(let-values(((s_556)(if(syntax?$1 s_555)(syntax-e$1 s_555) s_555)))" +"(let-values(((s_555) disarmed-s_12))" +"(if(let-values(((s_556)(if(syntax?$1 s_555)(syntax-e$1 s_555) s_555)))" "(if(pair? s_556)" -"(if(let-values(((s_557)(car s_556)))" -"(let-values(((s_558)" -"(if(syntax?$1 s_557)(syntax-e$1 s_557) s_557)))" -"(eq? '#:local s_558)))" -"(let-values(((s_559)(cdr s_556)))" -"(let-values(((s_560)" -"(if(syntax?$1 s_559)(syntax-e$1 s_559) s_559)))" -"(null? s_560)))" +"(if(let-values(((s_557)(car s_556))) #t)" +"(let-values(((s_558)(cdr s_556)))" +"(let-values(((s_559)(if(syntax?$1 s_558)(syntax-e$1 s_558) s_558)))" +"(if(pair? s_559)" +"(if(let-values(((s_560)(car s_559))) #t)" +"(let-values(((s_561)(cdr s_559)))" +"(let-values(((s_562)(if(syntax?$1 s_561)(syntax-e$1 s_561) s_561)))" +"(if(pair? s_562)" +"(if(let-values(((s_563)(car s_562)))" +"(let-values(((s_564)" +"(if(syntax?$1 s_563)(syntax-e$1 s_563) s_563)))" +"(eq? '#:local s_564)))" +"(let-values(((s_565)(cdr s_562)))" +"(let-values(((s_566)" +"(if(syntax?$1 s_565)(syntax-e$1 s_565) s_565)))" +"(null? s_566)))" " #f)" " #f)))" " #f)" @@ -64721,44 +64832,44 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((quote-syntax233_1 datum234_1)" -"(let-values(((s_561)(if(syntax?$1 s_549)(syntax-e$1 s_549) s_549)))" +"(let-values(((s_567)(if(syntax?$1 s_555)(syntax-e$1 s_555) s_555)))" "(let-values(((quote-syntax235_0)" -"(let-values(((s_562)(car s_561))) s_562))" +"(let-values(((s_568)(car s_567))) s_568))" "((datum236_0)" -"(let-values(((s_563)(cdr s_561)))" -"(let-values(((s_564)" -"(if(syntax?$1 s_563)" -"(syntax-e$1 s_563)" -" s_563)))" +"(let-values(((s_569)(cdr s_567)))" +"(let-values(((s_570)" +"(if(syntax?$1 s_569)" +"(syntax-e$1 s_569)" +" s_569)))" "(let-values(((datum237_0)" -"(let-values(((s_565)(car s_564))) s_565))" +"(let-values(((s_571)(car s_570))) s_571))" "(()" -"(let-values(((s_566)(cdr s_564)))" -"(let-values(((s_567)" -"(if(syntax?$1 s_566)" -"(syntax-e$1 s_566)" -" s_566)))" +"(let-values(((s_572)(cdr s_570)))" +"(let-values(((s_573)" +"(if(syntax?$1 s_572)" +"(syntax-e$1 s_572)" +" s_572)))" "(let-values((()" -"(let-values(((s_568)" +"(let-values(((s_574)" "(car" -" s_567)))" -"(let-values(((s_569)" +" s_573)))" +"(let-values(((s_575)" "(if(syntax?$1" -" s_568)" +" s_574)" "(syntax-e$1" -" s_568)" -" s_568)))" +" s_574)" +" s_574)))" "(values))))" "(()" -"(let-values(((s_570)" +"(let-values(((s_576)" "(cdr" -" s_567)))" -"(let-values(((s_571)" +" s_573)))" +"(let-values(((s_577)" "(if(syntax?$1" -" s_570)" +" s_576)" "(syntax-e$1" -" s_570)" -" s_570)))" +" s_576)" +" s_576)))" "(values)))))" "(values))))))" "(values datum237_0))))))" @@ -64766,31 +64877,31 @@ static const char *startup_source = "(values #t quote-syntax233_1 datum234_1)))" "(values #f #f #f)))))" "(let-values(((ok?_44 quote-syntax238_0 datum239_0)" -"(let-values(((s_572) disarmed-s_12))" +"(let-values(((s_578) disarmed-s_12))" "(if(if(not ok?_43) #t #f)" -"(let-values(((orig-s_50) s_572))" +"(let-values(((orig-s_50) s_578))" "(let-values(((quote-syntax238_1 datum239_1)" -"(let-values(((s_573)(if(syntax?$1 s_572)(syntax-e$1 s_572) s_572)))" -"(if(pair? s_573)" +"(let-values(((s_579)(if(syntax?$1 s_578)(syntax-e$1 s_578) s_578)))" +"(if(pair? s_579)" "(let-values(((quote-syntax240_0)" -"(let-values(((s_574)(car s_573))) s_574))" +"(let-values(((s_580)(car s_579))) s_580))" "((datum241_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(((s_581)(cdr s_579)))" +"(let-values(((s_582)" +"(if(syntax?$1 s_581)" +"(syntax-e$1 s_581)" +" s_581)))" +"(if(pair? s_582)" "(let-values(((datum242_0)" -"(let-values(((s_577)(car s_576)))" -" s_577))" +"(let-values(((s_583)(car s_582)))" +" s_583))" "(()" -"(let-values(((s_578)(cdr s_576)))" -"(let-values(((s_579)" -"(if(syntax?$1 s_578)" -"(syntax-e$1 s_578)" -" s_578)))" -"(if(null? s_579)" +"(let-values(((s_584)(cdr s_582)))" +"(let-values(((s_585)" +"(if(syntax?$1 s_584)" +"(syntax-e$1 s_584)" +" s_584)))" +"(if(null? s_585)" "(values)" "(raise-syntax-error$1" " #f" @@ -64809,7 +64920,7 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(reference-records-all-used!(expand-context-reference-records ctx_86))" +"(reference-records-all-used!(expand-context-reference-records ctx_87))" "(values))))" "(let-values(((ok?_45 _243_0 _244_0 kw245_0)" "(let-values(((s_272) disarmed-s_12))" @@ -64828,36 +64939,36 @@ static const char *startup_source = " s_277)))" "(if(pair? s_278)" "(let-values(((_249_0)" -"(let-values(((s_580)" +"(let-values(((s_586)" "(car s_278)))" -" s_580))" +" s_586))" "((kw250_0)" -"(let-values(((s_581)" +"(let-values(((s_587)" "(cdr s_278)))" -"(let-values(((s_582)" +"(let-values(((s_588)" "(if(syntax?$1" -" s_581)" +" s_587)" "(syntax-e$1" -" s_581)" -" s_581)))" -"(if(pair? s_582)" +" s_587)" +" s_587)))" +"(if(pair? s_588)" "(let-values(((kw251_0)" -"(let-values(((s_583)" +"(let-values(((s_589)" "(car" -" s_582)))" -" s_583))" +" s_588)))" +" s_589))" "(()" -"(let-values(((s_584)" +"(let-values(((s_590)" "(cdr" -" s_582)))" -"(let-values(((s_585)" +" s_588)))" +"(let-values(((s_591)" "(if(syntax?$1" -" s_584)" +" s_590)" "(syntax-e$1" -" s_584)" -" s_584)))" +" s_590)" +" s_590)))" "(if(null?" -" s_585)" +" s_591)" "(values)" "(raise-syntax-error$1" " #f" @@ -64876,42 +64987,42 @@ static const char *startup_source = "(values _246_0 _247_0 kw248_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_51)))))" "(values #t _243_1 _244_1 kw245_1))))))" -"(if(expand-context-to-parsed? ctx_86)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_548) datum234_0)" -"(let-values(((s252_0) s_548)((temp253_1)(list quote-syntax233_0 datum234_0 kw245_0)))" +"(if(expand-context-to-parsed? ctx_87)" +"(parsed-quote-syntax15.1(keep-properties-only~ s_554) datum234_0)" +"(let-values(((s252_0) s_554)((temp253_1)(list quote-syntax233_0 datum234_0 kw245_0)))" "(rebuild5.1 #f #f s252_0 temp253_1))))))" "(let-values()" -"(let-values(((datum-s_0)(remove-scopes datum239_0(expand-context-scopes ctx_86))))" -"(if(if(expand-context-to-parsed? ctx_86)(free-id-set-empty?(expand-context-stops ctx_86)) #f)" -"(parsed-quote-syntax15.1(keep-properties-only~ s_548) datum-s_0)" -"(let-values(((s254_0) s_548)((temp255_0)(list quote-syntax238_0 datum-s_0)))" +"(let-values(((datum-s_0)(remove-scopes datum239_0(expand-context-scopes ctx_87))))" +"(if(if(expand-context-to-parsed? ctx_87)(free-id-set-empty?(expand-context-stops ctx_87)) #f)" +"(parsed-quote-syntax15.1(keep-properties-only~ s_554) datum-s_0)" +"(let-values(((s254_0) s_554)((temp255_0)(list quote-syntax238_0 datum-s_0)))" "(rebuild5.1 #f #f s254_0 temp255_0)))))))))))))" "(void" "(add-core-form!*" " 'if" -"(lambda(s_279 ctx_87)" +"(lambda(s_279 ctx_88)" "(let-values((()" "(begin" -"(let-values(((obs_100)(expand-context-observer ctx_87)))" -"(if obs_100(let-values()(let-values()(call-expand-observe obs_100 'prim-if)))(void)))" +"(let-values(((obs_105)(expand-context-observer ctx_88)))" +"(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_279)))" "(let-values(((ok?_46 _256_0 _257_0 _258_0)" -"(let-values(((s_586) disarmed-s_13))" -"(if(let-values(((s_587)(if(syntax?$1 s_586)(syntax-e$1 s_586) s_586)))" -"(if(pair? s_587)" -"(if(let-values(((s_588)(car s_587))) #t)" -"(let-values(((s_289)(cdr s_587)))" -"(let-values(((s_589)(if(syntax?$1 s_289)(syntax-e$1 s_289) s_289)))" -"(if(pair? s_589)" -"(if(let-values(((s_590)(car s_589))) #t)" -"(let-values(((s_591)(cdr s_589)))" -"(let-values(((s_290)(if(syntax?$1 s_591)(syntax-e$1 s_591) s_591)))" +"(let-values(((s_592) disarmed-s_13))" +"(if(let-values(((s_593)(if(syntax?$1 s_592)(syntax-e$1 s_592) s_592)))" +"(if(pair? s_593)" +"(if(let-values(((s_594)(car s_593))) #t)" +"(let-values(((s_289)(cdr s_593)))" +"(let-values(((s_595)(if(syntax?$1 s_289)(syntax-e$1 s_289) s_289)))" +"(if(pair? s_595)" +"(if(let-values(((s_596)(car s_595))) #t)" +"(let-values(((s_597)(cdr s_595)))" +"(let-values(((s_290)(if(syntax?$1 s_597)(syntax-e$1 s_597) s_597)))" "(if(pair? s_290)" -"(if(let-values(((s_592)(car s_290))) #t)" -"(let-values(((s_593)(cdr s_290)))" +"(if(let-values(((s_598)(car s_290))) #t)" +"(let-values(((s_599)(cdr s_290)))" "(let-values(((s_291)" -"(if(syntax?$1 s_593)(syntax-e$1 s_593) s_593)))" +"(if(syntax?$1 s_599)(syntax-e$1 s_599) s_599)))" "(null? s_291)))" " #f)" " #f)))" @@ -64921,37 +65032,37 @@ static const char *startup_source = " #f))" "(let-values()" "(let-values(((_256_1 _257_1 _258_1)" -"(let-values(((s_594)(if(syntax?$1 s_586)(syntax-e$1 s_586) s_586)))" -"(let-values(((_259_0)(let-values(((s_595)(car s_594))) s_595))" +"(let-values(((s_600)(if(syntax?$1 s_592)(syntax-e$1 s_592) s_592)))" +"(let-values(((_259_0)(let-values(((s_601)(car s_600))) s_601))" "((_260_0 _261_0)" -"(let-values(((s_596)(cdr s_594)))" -"(let-values(((s_597)" -"(if(syntax?$1 s_596)" -"(syntax-e$1 s_596)" -" s_596)))" +"(let-values(((s_602)(cdr s_600)))" +"(let-values(((s_603)" +"(if(syntax?$1 s_602)" +"(syntax-e$1 s_602)" +" s_602)))" "(let-values(((_262_0)" -"(let-values(((s_598)(car s_597))) s_598))" +"(let-values(((s_604)(car s_603))) s_604))" "((_263_0)" -"(let-values(((s_599)(cdr s_597)))" -"(let-values(((s_600)" -"(if(syntax?$1 s_599)" -"(syntax-e$1 s_599)" -" s_599)))" +"(let-values(((s_605)(cdr s_603)))" +"(let-values(((s_606)" +"(if(syntax?$1 s_605)" +"(syntax-e$1 s_605)" +" s_605)))" "(let-values(((_264_0)" -"(let-values(((s_601)" +"(let-values(((s_607)" "(car" -" s_600)))" -" s_601))" +" s_606)))" +" s_607))" "(()" -"(let-values(((s_602)" +"(let-values(((s_608)" "(cdr" -" s_600)))" +" s_606)))" "(let-values(((s_294)" "(if(syntax?$1" -" s_602)" +" s_608)" "(syntax-e$1" -" s_602)" -" s_602)))" +" s_608)" +" s_608)))" "(values)))))" "(values _264_0))))))" "(values _262_0 _263_0))))))" @@ -64965,63 +65076,63 @@ static const char *startup_source = "(void))" "(values))))" "(let-values(((ok?_47 if265_0 tst266_0 thn267_0 els268_0)" -"(let-values(((s_603) disarmed-s_13))" -"(let-values(((orig-s_52) s_603))" +"(let-values(((s_609) disarmed-s_13))" +"(let-values(((orig-s_52) s_609))" "(let-values(((if265_1 tst266_1 thn267_1 els268_1)" -"(let-values(((s_604)(if(syntax?$1 s_603)(syntax-e$1 s_603) s_603)))" -"(if(pair? s_604)" -"(let-values(((if269_0)(let-values(((s_605)(car s_604))) s_605))" +"(let-values(((s_610)(if(syntax?$1 s_609)(syntax-e$1 s_609) s_609)))" +"(if(pair? s_610)" +"(let-values(((if269_0)(let-values(((s_611)(car s_610))) s_611))" "((tst270_0 thn271_0 els272_0)" -"(let-values(((s_606)(cdr s_604)))" +"(let-values(((s_612)(cdr s_610)))" "(let-values(((s_299)" -"(if(syntax?$1 s_606)" -"(syntax-e$1 s_606)" -" s_606)))" +"(if(syntax?$1 s_612)" +"(syntax-e$1 s_612)" +" s_612)))" "(if(pair? s_299)" "(let-values(((tst273_0)" -"(let-values(((s_607)(car s_299)))" -" s_607))" -"((thn274_0 els275_0)" -"(let-values(((s_608)(cdr s_299)))" -"(let-values(((s_609)" -"(if(syntax?$1 s_608)" -"(syntax-e$1 s_608)" -" s_608)))" -"(if(pair? s_609)" -"(let-values(((thn276_0)" -"(let-values(((s_610)" -"(car" -" s_609)))" -" s_610))" -"((els277_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(((els278_0)" -"(let-values(((s_613)" -"(car" -" s_612)))" +"(let-values(((s_613)(car s_299)))" " s_613))" -"(()" -"(let-values(((s_614)" -"(cdr" -" s_612)))" +"((thn274_0 els275_0)" +"(let-values(((s_614)(cdr s_299)))" "(let-values(((s_615)" -"(if(syntax?$1" -" s_614)" -"(syntax-e$1" -" s_614)" +"(if(syntax?$1 s_614)" +"(syntax-e$1 s_614)" " s_614)))" +"(if(pair? s_615)" +"(let-values(((thn276_0)" +"(let-values(((s_616)" +"(car" +" s_615)))" +" s_616))" +"((els277_0)" +"(let-values(((s_617)" +"(cdr" +" s_615)))" +"(let-values(((s_618)" +"(if(syntax?$1" +" s_617)" +"(syntax-e$1" +" s_617)" +" s_617)))" +"(if(pair?" +" s_618)" +"(let-values(((els278_0)" +"(let-values(((s_619)" +"(car" +" s_618)))" +" s_619))" +"(()" +"(let-values(((s_620)" +"(cdr" +" s_618)))" +"(let-values(((s_621)" +"(if(syntax?$1" +" s_620)" +"(syntax-e$1" +" s_620)" +" s_620)))" "(if(null?" -" s_615)" +" s_621)" "(values)" "(raise-syntax-error$1" " #f" @@ -65046,20 +65157,20 @@ static const char *startup_source = "(values if269_0 tst270_0 thn271_0 els272_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_52)))))" "(values #t if265_1 tst266_1 thn267_1 els268_1))))))" -"(let-values(((expr-ctx_2)(as-expression-context ctx_87)))" +"(let-values(((expr-ctx_2)(as-expression-context ctx_88)))" "(let-values(((tail-ctx_0)" -"(let-values(((ctx280_0) ctx_87))(as-tail-context23.1 ctx280_0 expr-ctx_2))))" +"(let-values(((ctx280_0) ctx_88))(as-tail-context23.1 ctx280_0 expr-ctx_2))))" "(let-values(((rebuild-s_9)" -"(let-values(((ctx281_0) ctx_87)((s282_0) s_279))" +"(let-values(((ctx281_0) ctx_88)((s282_0) s_279))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx281_0 s282_0))))" "(let-values(((exp-tst_0)" "(let-values(((temp283_0) tst266_0)((expr-ctx284_0) expr-ctx_2))" "(expand7.1 #f #f #f #f temp283_0 expr-ctx284_0))))" "(let-values((()" "(begin" -"(let-values(((obs_101)(expand-context-observer ctx_87)))" -"(if obs_101" -"(let-values()(let-values()(call-expand-observe obs_101 'next)))" +"(let-values(((obs_106)(expand-context-observer ctx_88)))" +"(if obs_106" +"(let-values()(let-values()(call-expand-observe obs_106 'next)))" "(void)))" "(values))))" "(let-values(((exp-thn_0)" @@ -65067,15 +65178,15 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp285_0 tail-ctx286_0))))" "(let-values((()" "(begin" -"(let-values(((obs_102)(expand-context-observer ctx_87)))" -"(if obs_102" -"(let-values()(let-values()(call-expand-observe obs_102 'next)))" +"(let-values(((obs_107)(expand-context-observer ctx_88)))" +"(if obs_107" +"(let-values()(let-values()(call-expand-observe obs_107 'next)))" "(void)))" "(values))))" "(let-values(((exp-els_0)" "(let-values(((temp287_0) els268_0)((tail-ctx288_0) tail-ctx_0))" "(expand7.1 #f #f #f #f temp287_0 tail-ctx288_0))))" -"(if(expand-context-to-parsed? ctx_87)" +"(if(expand-context-to-parsed? ctx_88)" "(parsed-if8.1 rebuild-s_9 exp-tst_0 exp-thn_0 exp-els_0)" "(let-values(((rebuild-s289_0) rebuild-s_9)" "((temp290_0)(list if265_0 exp-tst_0 exp-thn_0 exp-els_0)))" @@ -65083,73 +65194,73 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'with-continuation-mark" -"(lambda(s_616 ctx_88)" +"(lambda(s_622 ctx_89)" "(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-with-continuation-mark)))" +"(let-values(((obs_108)(expand-context-observer ctx_89)))" +"(if obs_108" +"(let-values()(let-values()(call-expand-observe obs_108 'prim-with-continuation-mark)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_14)(syntax-disarm$1 s_616)))" +"(let-values(((disarmed-s_14)(syntax-disarm$1 s_622)))" "(let-values(((ok?_48 with-continuation-mark291_0 key292_0 val293_0 body294_0)" -"(let-values(((s_617) disarmed-s_14))" -"(let-values(((orig-s_53) s_617))" +"(let-values(((s_623) disarmed-s_14))" +"(let-values(((orig-s_53) s_623))" "(let-values(((with-continuation-mark291_1 key292_1 val293_1 body294_1)" -"(let-values(((s_618)(if(syntax?$1 s_617)(syntax-e$1 s_617) s_617)))" -"(if(pair? s_618)" -"(let-values(((with-continuation-mark295_0)" -"(let-values(((s_619)(car s_618))) s_619))" -"((key296_0 val297_0 body298_0)" -"(let-values(((s_620)(cdr s_618)))" -"(let-values(((s_621)" -"(if(syntax?$1 s_620)" -"(syntax-e$1 s_620)" -" s_620)))" -"(if(pair? s_621)" -"(let-values(((key299_0)" -"(let-values(((s_622)(car s_621)))" -" s_622))" -"((val300_0 body301_0)" -"(let-values(((s_623)(cdr s_621)))" -"(let-values(((s_624)" -"(if(syntax?$1 s_623)" -"(syntax-e$1 s_623)" -" s_623)))" +"(let-values(((s_624)(if(syntax?$1 s_623)(syntax-e$1 s_623) s_623)))" "(if(pair? s_624)" -"(let-values(((val302_0)" -"(let-values(((s_625)" -"(car" -" s_624)))" -" s_625))" -"((body303_0)" -"(let-values(((s_626)" -"(cdr" -" s_624)))" +"(let-values(((with-continuation-mark295_0)" +"(let-values(((s_625)(car s_624))) s_625))" +"((key296_0 val297_0 body298_0)" +"(let-values(((s_626)(cdr s_624)))" "(let-values(((s_627)" -"(if(syntax?$1" -" s_626)" -"(syntax-e$1" -" s_626)" +"(if(syntax?$1 s_626)" +"(syntax-e$1 s_626)" " s_626)))" "(if(pair? s_627)" -"(let-values(((body304_0)" -"(let-values(((s_628)" -"(car" -" s_627)))" +"(let-values(((key299_0)" +"(let-values(((s_628)(car s_627)))" " s_628))" -"(()" -"(let-values(((s_629)" -"(cdr" -" s_627)))" +"((val300_0 body301_0)" +"(let-values(((s_629)(cdr s_627)))" "(let-values(((s_630)" -"(if(syntax?$1" -" s_629)" -"(syntax-e$1" -" s_629)" +"(if(syntax?$1 s_629)" +"(syntax-e$1 s_629)" " s_629)))" +"(if(pair? s_630)" +"(let-values(((val302_0)" +"(let-values(((s_631)" +"(car" +" s_630)))" +" s_631))" +"((body303_0)" +"(let-values(((s_632)" +"(cdr" +" s_630)))" +"(let-values(((s_633)" +"(if(syntax?$1" +" s_632)" +"(syntax-e$1" +" s_632)" +" s_632)))" +"(if(pair? s_633)" +"(let-values(((body304_0)" +"(let-values(((s_634)" +"(car" +" s_633)))" +" s_634))" +"(()" +"(let-values(((s_635)" +"(cdr" +" s_633)))" +"(let-values(((s_636)" +"(if(syntax?$1" +" s_635)" +"(syntax-e$1" +" s_635)" +" s_635)))" "(if(null?" -" s_630)" +" s_636)" "(values)" "(raise-syntax-error$1" " #f" @@ -65171,18 +65282,18 @@ static const char *startup_source = "(values with-continuation-mark295_0 key296_0 val297_0 body298_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_53)))))" "(values #t with-continuation-mark291_1 key292_1 val293_1 body294_1))))))" -"(let-values(((expr-ctx_3)(as-expression-context ctx_88)))" +"(let-values(((expr-ctx_3)(as-expression-context ctx_89)))" "(let-values(((rebuild-s_10)" -"(let-values(((ctx305_0) ctx_88)((s306_0) s_616))" +"(let-values(((ctx305_0) ctx_89)((s306_0) s_622))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx305_0 s306_0))))" "(let-values(((exp-key_0)" "(let-values(((temp307_0) key292_0)((expr-ctx308_0) expr-ctx_3))" "(expand7.1 #f #f #f #f temp307_0 expr-ctx308_0))))" "(let-values((()" "(begin" -"(let-values(((obs_104)(expand-context-observer ctx_88)))" -"(if obs_104" -"(let-values()(let-values()(call-expand-observe obs_104 'next)))" +"(let-values(((obs_109)(expand-context-observer ctx_89)))" +"(if obs_109" +"(let-values()(let-values()(call-expand-observe obs_109 'next)))" "(void)))" "(values))))" "(let-values(((exp-val_0)" @@ -65190,18 +65301,18 @@ static const char *startup_source = "(expand7.1 #f #f #f #f temp309_0 expr-ctx310_0))))" "(let-values((()" "(begin" -"(let-values(((obs_105)(expand-context-observer ctx_88)))" -"(if obs_105" -"(let-values()(let-values()(call-expand-observe obs_105 'next)))" +"(let-values(((obs_110)(expand-context-observer ctx_89)))" +"(if obs_110" +"(let-values()(let-values()(call-expand-observe obs_110 'next)))" "(void)))" "(values))))" "(let-values(((exp-body_6)" "(let-values(((temp311_0) body294_0)" "((temp312_0)" -"(let-values(((ctx314_0) ctx_88))" +"(let-values(((ctx314_0) ctx_89))" "(as-tail-context23.1 ctx314_0 expr-ctx_3))))" "(expand7.1 #f #f #f #f temp311_0 temp312_0))))" -"(if(expand-context-to-parsed? ctx_88)" +"(if(expand-context-to-parsed? ctx_89)" "(parsed-with-continuation-mark10.1 rebuild-s_10 exp-key_0 exp-val_0 exp-body_6)" "(let-values(((rebuild-s315_0) rebuild-s_10)" "((temp316_0)(list with-continuation-mark291_0 exp-key_0 exp-val_0 exp-body_6)))" @@ -65216,32 +65327,32 @@ 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_631 ctx_89)" +"(lambda(s_637 ctx_90)" "(let-values((()" "(begin" -"(let-values(((obs_106)(expand-context-observer ctx_89)))" -"(if obs_106" -"(let-values()(let-values()(call-expand-observe obs_106 log-tag_1)))" +"(let-values(((obs_111)(expand-context-observer ctx_90)))" +"(if obs_111" +"(let-values()(let-values()(call-expand-observe obs_111 log-tag_1)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_15)(syntax-disarm$1 s_631)))" +"(let-values(((disarmed-s_15)(syntax-disarm$1 s_637)))" "(let-values(((ok?_49 begin317_0 e318_0)" -"(let-values(((s_632) disarmed-s_15))" -"(let-values(((orig-s_54) s_632))" +"(let-values(((s_638) disarmed-s_15))" +"(let-values(((orig-s_54) s_638))" "(let-values(((begin317_1 e318_1)" -"(let-values(((s_633)" -"(if(syntax?$1 s_632)(syntax-e$1 s_632) s_632)))" -"(if(pair? s_633)" +"(let-values(((s_639)" +"(if(syntax?$1 s_638)(syntax-e$1 s_638) s_638)))" +"(if(pair? s_639)" "(let-values(((begin319_0)" -"(let-values(((s_634)(car s_633))) s_634))" +"(let-values(((s_640)(car s_639))) s_640))" "((e320_0)" -"(let-values(((s_635)(cdr s_633)))" -"(let-values(((s_636)" -"(if(syntax?$1 s_635)" -"(syntax-e$1 s_635)" -" s_635)))" +"(let-values(((s_641)(cdr s_639)))" +"(let-values(((s_642)" +"(if(syntax?$1 s_641)" +"(syntax-e$1 s_641)" +" s_641)))" "(let-values(((flat-s_41)" -"(to-syntax-list.1 s_636)))" +"(to-syntax-list.1 s_642)))" "(if(not flat-s_41)" "(let-values()" "(raise-syntax-error$1" @@ -65260,10 +65371,10 @@ static const char *startup_source = "(values #t begin317_1 e318_1))))))" "(let-values(((expr-ctx_4)" "(if last-is-tail?_0" -"(as-begin-expression-context ctx_89)" -"(as-expression-context ctx_89))))" +"(as-begin-expression-context ctx_90)" +"(as-expression-context ctx_90))))" "(let-values(((rebuild-s_11)" -"(let-values(((ctx321_0) ctx_89)((s322_0) s_631))" +"(let-values(((ctx321_0) ctx_90)((s322_0) s_637))" "(keep-as-needed74.1 #f #f #f #f #f #f ctx321_0 s322_0))))" "(let-values(((exp-es_2)" "((letrec-values(((loop_127)" @@ -65273,17 +65384,17 @@ static const char *startup_source = "(begin" "(if(zero? index_6)" "(let-values()" -"(let-values(((obs_107)" -"(expand-context-observer ctx_89)))" -"(if obs_107" +"(let-values(((obs_112)" +"(expand-context-observer ctx_90)))" +"(if obs_112" "(let-values()" "(begin" "(if(zero? list-start-index_0)" "(void)" "(let-values()" -"(call-expand-observe obs_107 'next)))" +"(call-expand-observe obs_112 'next)))" "(call-expand-observe" -" obs_107" +" obs_112" " 'enter-list" "(datum->syntax$1 #f es_5 rebuild-s_11))))" "(void))))" @@ -65293,13 +65404,13 @@ static const char *startup_source = "(let-values()" "(let-values(((rest-es_1)(cdr es_5)))" "(begin" -"(let-values(((obs_108)" +"(let-values(((obs_113)" "(expand-context-observer" -" ctx_89)))" -"(if obs_108" +" ctx_90)))" +"(if obs_113" "(let-values()" "(let-values()" -"(call-expand-observe obs_108 'next)))" +"(call-expand-observe obs_113 'next)))" "(void)))" "(cons" "(let-values(((temp323_0)(car es_5))" @@ -65308,7 +65419,7 @@ static const char *startup_source = "(null? rest-es_1)" " #f)" "(let-values(((ctx326_0)" -" ctx_89))" +" ctx_90))" "(as-tail-context23.1" " ctx326_0" " expr-ctx_4))" @@ -65325,16 +65436,16 @@ static const char *startup_source = " e318_0" " list-start-index_0)))" "(begin" -"(let-values(((obs_109)(expand-context-observer ctx_89)))" -"(if obs_109" +"(let-values(((obs_114)(expand-context-observer ctx_90)))" +"(if obs_114" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_109" +" obs_114" " 'exit-list" "(datum->syntax$1 #f(list-tail exp-es_2 list-start-index_0) rebuild-s_11))))" "(void)))" -"(if(expand-context-to-parsed? ctx_89)" +"(if(expand-context-to-parsed? ctx_90)" "(parsed-begin_0 rebuild-s_11 exp-es_2)" "(let-values(((rebuild-s327_0) rebuild-s_11)((temp328_0)(cons begin317_0 exp-es_2)))" "(rebuild5.1 #f #f rebuild-s327_0 temp328_0)))))))))))))))))))" @@ -65347,39 +65458,39 @@ static const char *startup_source = "((temp331_0) 0)" "((temp332_1) #t))" "(make-begin20.1 temp332_1 temp331_0 temp329_0 parsed-begin330_0))))" -"(lambda(s_637 ctx_90)" -"(let-values(((context_24)(expand-context-context ctx_90)))" +"(lambda(s_643 ctx_91)" +"(let-values(((context_24)(expand-context-context ctx_91)))" "(if(let-values(((or-part_375)(eq? context_24 'top-level)))" "(if or-part_375 or-part_375(eq? context_24 'module)))" "(let-values()" -"(let-values(((disarmed-s_16)(syntax-disarm$1 s_637)))" +"(let-values(((disarmed-s_16)(syntax-disarm$1 s_643)))" "(let-values(((ok?_50 begin333_0)" -"(let-values(((s_638) disarmed-s_16))" -"(if(let-values(((s_639)(if(syntax?$1 s_638)(syntax-e$1 s_638) s_638)))" -"(if(pair? s_639)" -"(if(let-values(((s_640)(car s_639))) #t)" -"(let-values(((s_641)(cdr s_639)))" -"(let-values(((s_642)(if(syntax?$1 s_641)(syntax-e$1 s_641) s_641)))" -"(null? s_642)))" +"(let-values(((s_644) disarmed-s_16))" +"(if(let-values(((s_645)(if(syntax?$1 s_644)(syntax-e$1 s_644) s_644)))" +"(if(pair? s_645)" +"(if(let-values(((s_646)(car s_645))) #t)" +"(let-values(((s_647)(cdr s_645)))" +"(let-values(((s_648)(if(syntax?$1 s_647)(syntax-e$1 s_647) s_647)))" +"(null? s_648)))" " #f)" " #f))" "(let-values()" "(let-values(((begin333_1)" -"(let-values(((s_643)(if(syntax?$1 s_638)(syntax-e$1 s_638) s_638)))" +"(let-values(((s_649)(if(syntax?$1 s_644)(syntax-e$1 s_644) s_644)))" "(let-values(((begin334_0)" -"(let-values(((s_644)(car s_643))) s_644))" +"(let-values(((s_650)(car s_649))) s_650))" "(()" -"(let-values(((s_645)(cdr s_643)))" -"(let-values(((s_646)" -"(if(syntax?$1 s_645)" -"(syntax-e$1 s_645)" -" s_645)))" +"(let-values(((s_651)(cdr s_649)))" +"(let-values(((s_652)" +"(if(syntax?$1 s_651)" +"(syntax-e$1 s_651)" +" s_651)))" "(values)))))" "(values begin334_0)))))" "(values #t begin333_1)))" "(values #f #f)))))" -"(if ok?_50 s_637(nonempty-begin_0 s_637 ctx_90)))))" -"(let-values()(nonempty-begin_0 s_637 ctx_90))))))))" +"(if ok?_50 s_643(nonempty-begin_0 s_643 ctx_91)))))" +"(let-values()(nonempty-begin_0 s_643 ctx_91))))))))" "(void" "(add-core-form!*" " 'begin0" @@ -65387,14 +65498,14 @@ static const char *startup_source = "(make-begin20.1 temp338_0 temp337_0 temp335_0 parsed-begin0336_0))))" "(define-values" "(register-eventual-variable!?)" -"(lambda(id_119 ctx_91)" +"(lambda(id_119 ctx_92)" "(begin" -"(if(if(expand-context-need-eventually-defined ctx_91)(>=(expand-context-phase ctx_91) 1) #f)" +"(if(if(expand-context-need-eventually-defined ctx_92)(>=(expand-context-phase ctx_92) 1) #f)" "(let-values()" "(begin" "(hash-update!" -"(expand-context-need-eventually-defined ctx_91)" -"(expand-context-phase ctx_91)" +"(expand-context-need-eventually-defined ctx_92)" +"(expand-context-phase ctx_92)" "(lambda(l_83)(cons id_119 l_83))" " null)" " #t))" @@ -65406,58 +65517,58 @@ static const char *startup_source = "(lambda(s341_0 ctx342_0 implicit-omitted?339_0 implicit-omitted?340_0)" "(begin" " 'core343" -"(let-values(((s_647) s341_0))" -"(let-values(((ctx_92) ctx342_0))" +"(let-values(((s_653) s341_0))" +"(let-values(((ctx_93) ctx342_0))" "(let-values(((implicit-omitted?_0)(if implicit-omitted?340_0 implicit-omitted?339_0 #f)))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_110)(expand-context-observer ctx_92)))" -"(if obs_110" +"(let-values(((obs_115)(expand-context-observer ctx_93)))" +"(if obs_115" "(let-values()" -"(let-values()(call-expand-observe obs_110 'prim-#%top)))" +"(let-values()(call-expand-observe obs_115 'prim-#%top)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_17)(syntax-disarm$1 s_647)))" +"(let-values(((disarmed-s_17)(syntax-disarm$1 s_653)))" "(let-values(((id_120)" "(if implicit-omitted?_0" -"(let-values() s_647)" +"(let-values() s_653)" "(let-values()" "(let-values(((ok?_51 #%top345_0 id346_0)" -"(let-values(((s_648) disarmed-s_17))" -"(let-values(((orig-s_55) s_648))" +"(let-values(((s_654) disarmed-s_17))" +"(let-values(((orig-s_55) s_654))" "(let-values(((#%top345_1 id346_1)" -"(let-values(((s_649)" -"(if(syntax?$1 s_648)" -"(syntax-e$1 s_648)" -" s_648)))" -"(if(pair? s_649)" +"(let-values(((s_655)" +"(if(syntax?$1 s_654)" +"(syntax-e$1 s_654)" +" s_654)))" +"(if(pair? s_655)" "(let-values(((#%top347_0)" -"(let-values(((s_650)" +"(let-values(((s_656)" "(car" -" s_649)))" -" s_650))" +" s_655)))" +" s_656))" "((id348_0)" -"(let-values(((s_651)" +"(let-values(((s_657)" "(cdr" -" s_649)))" +" s_655)))" "(if(let-values(((or-part_376)" "(if(syntax?$1" -" s_651)" +" s_657)" "(symbol?" "(syntax-e$1" -" s_651))" +" s_657))" " #f)))" "(if or-part_376" " or-part_376" "(symbol?" -" s_651)))" -" s_651" +" s_657)))" +" s_657" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_55" -" s_651)))))" +" s_657)))))" "(values #%top347_0 id348_0))" "(raise-syntax-error$1" " #f" @@ -65466,7 +65577,7 @@ static const char *startup_source = "(values #t #%top345_1 id346_1))))))" " id346_0)))))" "(let-values(((b_90)" -"(let-values(((temp350_0)(expand-context-phase ctx_92))" +"(let-values(((temp350_0)(expand-context-phase ctx_93))" "((temp351_0) 'ambiguous))" "(resolve+shift30.1" " temp351_0" @@ -65482,27 +65593,27 @@ static const char *startup_source = " id_120" " temp350_0))))" "(if(eq? b_90 'ambiguous)" -"(let-values()(raise-ambiguous-error id_120 ctx_92))" +"(let-values()(raise-ambiguous-error id_120 ctx_93))" "(if(if b_90" "(if(module-binding? b_90)" "(eq?" "(module-binding-module b_90)" -"(namespace-mpi(expand-context-namespace ctx_92)))" +"(namespace-mpi(expand-context-namespace ctx_93)))" " #f)" " #f)" "(let-values()" -"(if(expand-context-to-parsed? ctx_92)" +"(if(expand-context-to-parsed? ctx_93)" "(parsed-id2.1 id_120 b_90 #f)" "(if(top-level-module-path-index?(module-binding-module b_90))" -"(let-values() s_647)" +"(let-values() s_653)" "(let-values() id_120))))" -"(if(register-eventual-variable!? id_120 ctx_92)" +"(if(register-eventual-variable!? id_120 ctx_93)" "(let-values()" -"(if(expand-context-to-parsed? ctx_92)" +"(if(expand-context-to-parsed? ctx_93)" "(parsed-id2.1 id_120 b_90 #f)" " id_120))" "(let-values()" -"(if(not(expand-context-allow-unbound? ctx_92))" +"(if(not(expand-context-allow-unbound? ctx_93))" "(let-values()" "(raise-unbound-syntax-error" " #f" @@ -65510,16 +65621,16 @@ static const char *startup_source = " id_120" " #f" " null" -"(syntax-debug-info-string id_120 ctx_92)))" +"(syntax-debug-info-string id_120 ctx_93)))" "(let-values()" "(let-values(((tl-id_1)" "(add-scope" " id_120" -"(root-expand-context-top-level-bind-scope ctx_92))))" +"(root-expand-context-top-level-bind-scope ctx_93))))" "(let-values(((tl-b_1)" "(let-values(((tl-id352_0) tl-id_1)" "((temp353_0)" -"(expand-context-phase ctx_92)))" +"(expand-context-phase ctx_93)))" "(resolve33.1" " #f" " #f" @@ -65533,48 +65644,48 @@ static const char *startup_source = " temp353_0))))" "(if tl-b_1" "(let-values()" -"(if(expand-context-to-parsed? ctx_92)" +"(if(expand-context-to-parsed? ctx_93)" "(parsed-top-id4.1 tl-id_1 tl-b_1 #f)" "(if implicit-omitted?_0" "(let-values() id_120)" "(let-values()" "(let-values(((ok?_52 #%top354_0 id355_0)" -"(let-values(((s_652) disarmed-s_17))" -"(let-values(((orig-s_56) s_652))" +"(let-values(((s_658) disarmed-s_17))" +"(let-values(((orig-s_56) s_658))" "(let-values(((#%top354_1 id355_1)" -"(let-values(((s_653)" +"(let-values(((s_659)" "(if(syntax?$1" -" s_652)" +" s_658)" "(syntax-e$1" -" s_652)" -" s_652)))" -"(if(pair? s_653)" +" s_658)" +" s_658)))" +"(if(pair? s_659)" "(let-values(((#%top356_0)" -"(let-values(((s_654)" +"(let-values(((s_660)" "(car" -" s_653)))" -" s_654))" +" s_659)))" +" s_660))" "((id357_0)" -"(let-values(((s_655)" +"(let-values(((s_661)" "(cdr" -" s_653)))" +" s_659)))" "(if(let-values(((or-part_377)" "(if(syntax?$1" -" s_655)" +" s_661)" "(symbol?" "(syntax-e$1" -" s_655))" +" s_661))" " #f)))" "(if or-part_377" " or-part_377" "(symbol?" -" s_655)))" -" s_655" +" s_661)))" +" s_661" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_56" -" s_655)))))" +" s_661)))))" "(values" " #%top356_0" " id357_0))" @@ -65583,80 +65694,80 @@ static const char *startup_source = " \"bad syntax\"" " orig-s_56)))))" "(values #t #%top354_1 id355_1))))))" -"(let-values(((s358_0) s_647)" +"(let-values(((s358_0) s_653)" "((temp359_0)(cons #%top354_0 id_120)))" "(rebuild5.1 #f #f s358_0 temp359_0)))))))" "(let-values()" -"(if(expand-context-to-parsed? ctx_92)" +"(if(expand-context-to-parsed? ctx_93)" "(parsed-top-id4.1 id_120 b_90 #f)" -" s_647)))))))))))))))))))))))" +" s_653)))))))))))))))))))))))" "(case-lambda" -"((s_656 ctx_93)(core343_0 s_656 ctx_93 #f #f))" -"((s_657 ctx_94 implicit-omitted?339_1)(core343_0 s_657 ctx_94 implicit-omitted?339_1 #t))))))" +"((s_662 ctx_94)(core343_0 s_662 ctx_94 #f #f))" +"((s_663 ctx_95 implicit-omitted?339_1)(core343_0 s_663 ctx_95 implicit-omitted?339_1 #t))))))" "(void" "(add-core-form!*" " 'set!" -"(lambda(s_658 ctx_95)" +"(lambda(s_664 ctx_96)" "(let-values((()" "(begin" -"(let-values(((obs_111)(expand-context-observer ctx_95)))" -"(if obs_111(let-values()(let-values()(call-expand-observe obs_111 'prim-set!)))(void)))" +"(let-values(((obs_116)(expand-context-observer ctx_96)))" +"(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_658)))" +"(let-values(((disarmed-s_18)(syntax-disarm$1 s_664)))" "(let-values(((ok?_53 set!360_0 id361_0 rhs362_0)" -"(let-values(((s_659) disarmed-s_18))" -"(let-values(((orig-s_57) s_659))" +"(let-values(((s_665) disarmed-s_18))" +"(let-values(((orig-s_57) s_665))" "(let-values(((set!360_1 id361_1 rhs362_1)" -"(let-values(((s_660)(if(syntax?$1 s_659)(syntax-e$1 s_659) s_659)))" -"(if(pair? s_660)" -"(let-values(((set!363_0)(let-values(((s_661)(car s_660))) s_661))" +"(let-values(((s_666)(if(syntax?$1 s_665)(syntax-e$1 s_665) s_665)))" +"(if(pair? s_666)" +"(let-values(((set!363_0)(let-values(((s_667)(car s_666))) s_667))" "((id364_0 rhs365_0)" -"(let-values(((s_662)(cdr s_660)))" -"(let-values(((s_663)" -"(if(syntax?$1 s_662)" -"(syntax-e$1 s_662)" -" s_662)))" -"(if(pair? s_663)" +"(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(((id366_0)" -"(let-values(((s_664)(car s_663)))" +"(let-values(((s_670)(car s_669)))" "(if(let-values(((or-part_378)" -"(if(syntax?$1 s_664)" +"(if(syntax?$1 s_670)" "(symbol?" "(syntax-e$1" -" s_664))" +" s_670))" " #f)))" "(if or-part_378" " or-part_378" -"(symbol? s_664)))" -" s_664" +"(symbol? s_670)))" +" s_670" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_57" -" s_664))))" +" s_670))))" "((rhs367_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_671)(cdr s_669)))" +"(let-values(((s_672)" +"(if(syntax?$1 s_671)" +"(syntax-e$1 s_671)" +" s_671)))" +"(if(pair? s_672)" "(let-values(((rhs368_0)" -"(let-values(((s_667)" +"(let-values(((s_673)" "(car" -" s_666)))" -" s_667))" +" s_672)))" +" s_673))" "(()" -"(let-values(((s_668)" +"(let-values(((s_674)" "(cdr" -" s_666)))" -"(let-values(((s_669)" +" s_672)))" +"(let-values(((s_675)" "(if(syntax?$1" -" s_668)" +" s_674)" "(syntax-e$1" -" s_668)" -" s_668)))" -"(if(null? s_669)" +" s_674)" +" s_674)))" +"(if(null? s_675)" "(values)" "(raise-syntax-error$1" " #f" @@ -65678,7 +65789,7 @@ static const char *startup_source = "(begin" " 'rename-loop" "(let-values(((binding_30)" -"(let-values(((temp370_0)(expand-context-phase ctx_95))" +"(let-values(((temp370_0)(expand-context-phase ctx_96))" "((temp371_0) 'ambiguous)" "((temp372_0) #t))" "(resolve+shift30.1" @@ -65697,31 +65808,31 @@ static const char *startup_source = "(let-values((()" "(begin" "(if(eq? binding_30 'ambiguous)" -"(let-values()(raise-ambiguous-error id_122 ctx_95))" +"(let-values()(raise-ambiguous-error id_122 ctx_96))" "(void))" "(values))))" "(let-values(((t_57 primitive?_10 insp_24)" "(if binding_30" "(let-values(((binding373_0) binding_30)" -"((ctx374_0) ctx_95)" -"((s375_0) s_658))" +"((ctx374_0) ctx_96)" +"((s375_0) s_664))" "(lookup17.1 #f #f #f #f binding373_0 ctx374_0 s375_0))" "(values #f #f #f))))" "(begin" -"(let-values(((obs_112)(expand-context-observer ctx_95)))" -"(if obs_112" +"(let-values(((obs_117)(expand-context-observer ctx_96)))" +"(if obs_117" "(let-values()" -"(let-values()(call-expand-observe obs_112 'resolve id_122)))" +"(let-values()(call-expand-observe obs_117 'resolve id_122)))" "(void)))" "(if(let-values(((or-part_379)(variable? t_57)))" "(if or-part_379" " or-part_379" "(if(not binding_30)" "(let-values(((or-part_380)" -"(register-eventual-variable!? id_122 ctx_95)))" +"(register-eventual-variable!? id_122 ctx_96)))" "(if or-part_380" " or-part_380" -"(expand-context-allow-unbound? ctx_95)))" +"(expand-context-allow-unbound? ctx_96)))" " #f)))" "(let-values()" "(let-values((()" @@ -65731,24 +65842,24 @@ static const char *startup_source = "(eq?" "(module-binding-module binding_30)" "(namespace-mpi" -"(expand-context-namespace ctx_95))))" +"(expand-context-namespace ctx_96))))" " #f)" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate module-required identifier\"" -" s_658" +" s_664" " id_122))" "(void))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_113)" -"(expand-context-observer ctx_95)))" -"(if obs_113" +"(let-values(((obs_118)" +"(expand-context-observer ctx_96)))" +"(if obs_118" "(let-values()" "(let-values()" -"(call-expand-observe obs_113 'next)))" +"(call-expand-observe obs_118 'next)))" "(void)))" "(values))))" "(let-values((()" @@ -65756,7 +65867,7 @@ static const char *startup_source = "(register-variable-referenced-if-local! binding_30)" "(values))))" "(let-values(((rebuild-s_12)" -"(let-values(((ctx376_0) ctx_95)((s377_0) s_658))" +"(let-values(((ctx376_0) ctx_96)((s377_0) s_664))" "(keep-as-needed74.1" " #f" " #f" @@ -65769,9 +65880,9 @@ static const char *startup_source = "(let-values(((exp-rhs_5)" "(let-values(((temp378_0) rhs362_0)" "((temp379_0)" -"(as-expression-context ctx_95)))" +"(as-expression-context ctx_96)))" "(expand7.1 #f #f #f #f temp378_0 temp379_0))))" -"(if(expand-context-to-parsed? ctx_95)" +"(if(expand-context-to-parsed? ctx_96)" "(parsed-set!9.1" " rebuild-s_12" "(parsed-id2.1 id_122 binding_30 #f)" @@ -65783,7 +65894,7 @@ static const char *startup_source = "(let-values(((temp384_0)" "(free-id-set-empty-or-just-module*?" "(expand-context-stops" -" ctx_95))))" +" ctx_96))))" "(substitute-variable6.1" " temp384_0" " id_122" @@ -65795,38 +65906,38 @@ static const char *startup_source = "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_658" +" s_664" " id_122" " null" -"(syntax-debug-info-string id_122 ctx_95)))" +"(syntax-debug-info-string id_122 ctx_96)))" "(if(1/set!-transformer? t_57)" "(let-values()" -"(if(not-in-this-expand-context? t_57 ctx_95)" +"(if(not-in-this-expand-context? t_57 ctx_96)" "(let-values()" "(let-values(((temp385_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_658" +" s_664" " disarmed-s_18" " set!360_0" " rhs362_0" " id_122" " from-rename?_0" -" ctx_95)" +" ctx_96)" " t_57" -" ctx_95))" -"((ctx386_0) ctx_95))" +" ctx_96))" +"((ctx386_0) ctx_96))" "(expand7.1 #f #f #f #f temp385_0 ctx386_0)))" "(let-values()" "(let-values(((exp-s_14 re-ctx_1)" "(apply-transformer" " t_57" " insp_24" -" s_658" +" s_664" " id_122" -" ctx_95" +" ctx_96" " binding_30)))" -"(if(expand-context-just-once? ctx_95)" +"(if(expand-context-just-once? ctx_96)" "(let-values() exp-s_14)" "(let-values()" "(let-values(((exp-s387_0) exp-s_14)" @@ -65834,32 +65945,32 @@ static const char *startup_source = "(expand7.1 #f #f #f #f exp-s387_0 re-ctx388_0))))))))" "(if(1/rename-transformer? t_57)" "(let-values()" -"(if(not-in-this-expand-context? t_57 ctx_95)" +"(if(not-in-this-expand-context? t_57 ctx_96)" "(let-values()" "(let-values(((temp389_0)" "(avoid-current-expand-context" "(substitute-set!-rename" -" s_658" +" s_664" " disarmed-s_18" " set!360_0" " rhs362_0" " id_122" " from-rename?_0" -" ctx_95" +" ctx_96" " t_57)" " t_57" -" ctx_95))" -"((ctx390_0) ctx_95))" +" ctx_96))" +"((ctx390_0) ctx_96))" "(expand7.1 #f #f #f #f temp389_0 ctx390_0)))" "(let-values()" "(rename-loop_0" -"(rename-transformer-target-in-context t_57 ctx_95)" +"(rename-transformer-target-in-context t_57 ctx_96)" " #t))))" "(let-values()" "(raise-syntax-error$1" " #f" " \"cannot mutate syntax identifier\"" -" s_658" +" s_664" " id_122))))))))))))))" " rename-loop_0)" " id_121" @@ -65870,13 +65981,13 @@ 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_670) s25_0))" +"(let-values(((s_676) s25_0))" "(let-values(((disarmed-s_19) disarmed-s26_0))" "(let-values(((set!-id_0) set!-id27_0))" "(let-values(((id_123) id28_0))" "(let-values(((rhs-s_0) rhs-s29_0))" "(let-values(((from-rename?_1) from-rename?30_0))" -"(let-values(((ctx_96) ctx31_0))" +"(let-values(((ctx_97) ctx31_0))" "(let-values(((t_58)(if t24_0 t23_0 #f)))" "(let-values()" "(if(let-values(((or-part_381) t_58))" @@ -65884,7 +65995,7 @@ static const char *startup_source = "(let-values()" "(let-values(((new-id_1)" "(if t_58" -"(rename-transformer-target-in-context t_58 ctx_96)" +"(rename-transformer-target-in-context t_58 ctx_97)" " id_123)))" "(syntax-rearm$1" "(datum->syntax$1" @@ -65892,93 +66003,93 @@ static const char *startup_source = "(list set!-id_0 new-id_1 rhs-s_0)" " disarmed-s_19" " disarmed-s_19)" -" s_670)))" -"(let-values() s_670)))))))))))))))" +" s_676)))" +"(let-values() s_676)))))))))))))))" "(case-lambda" -"((s_671 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_97)" -"(begin(substitute-set!-rename32_0 s_671 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_97 #f #f)))" -"((s_672 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_98 t23_1)" -"(substitute-set!-rename32_0 s_672 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_98 t23_1 #t)))))" +"((s_677 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_98)" +"(begin(substitute-set!-rename32_0 s_677 disarmed-s_20 set!-id_1 id_124 rhs-s_1 from-rename?_2 ctx_98 #f #f)))" +"((s_678 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_99 t23_1)" +"(substitute-set!-rename32_0 s_678 disarmed-s_21 set!-id_2 id_125 rhs-s_2 from-rename?_3 ctx_99 t23_1 #t)))))" "(void" "(add-core-form!*" " '#%variable-reference" -"(lambda(s_673 ctx_99)" +"(lambda(s_679 ctx_100)" "(let-values((()" "(begin" -"(let-values(((obs_114)(expand-context-observer ctx_99)))" -"(if obs_114" -"(let-values()(let-values()(call-expand-observe obs_114 'prim-#%variable-reference)))" +"(let-values(((obs_119)(expand-context-observer ctx_100)))" +"(if obs_119" +"(let-values()(let-values()(call-expand-observe obs_119 'prim-#%variable-reference)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_22)(syntax-disarm$1 s_673)))" +"(let-values(((disarmed-s_22)(syntax-disarm$1 s_679)))" "(let-values(((ok?_54 #%variable-reference391_0 id392_0)" -"(let-values(((s_674) disarmed-s_22))" -"(if(let-values(((s_675)(if(syntax?$1 s_674)(syntax-e$1 s_674) s_674)))" -"(if(pair? s_675)" -"(if(let-values(((s_676)(car s_675))) #t)" -"(let-values(((s_677)(cdr s_675)))" -"(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)))" +"(let-values(((s_680) disarmed-s_22))" +"(if(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))) #t)" +"(let-values(((s_683)(cdr s_681)))" +"(let-values(((s_684)(if(syntax?$1 s_683)(syntax-e$1 s_683) s_683)))" +"(if(pair? s_684)" +"(if(let-values(((s_685)(car s_684)))" "(let-values(((or-part_382)" -"(if(syntax?$1 s_679)(symbol?(syntax-e$1 s_679)) #f)))" -"(if or-part_382 or-part_382(symbol? s_679))))" -"(let-values(((s_680)(cdr s_678)))" -"(let-values(((s_681)(if(syntax?$1 s_680)(syntax-e$1 s_680) s_680)))" -"(null? s_681)))" +"(if(syntax?$1 s_685)(symbol?(syntax-e$1 s_685)) #f)))" +"(if or-part_382 or-part_382(symbol? s_685))))" +"(let-values(((s_686)(cdr s_684)))" +"(let-values(((s_687)(if(syntax?$1 s_686)(syntax-e$1 s_686) s_686)))" +"(null? s_687)))" " #f)" " #f)))" " #f)" " #f))" "(let-values()" "(let-values(((#%variable-reference391_1 id392_1)" -"(let-values(((s_682)(if(syntax?$1 s_674)(syntax-e$1 s_674) s_674)))" +"(let-values(((s_688)(if(syntax?$1 s_680)(syntax-e$1 s_680) s_680)))" "(let-values(((#%variable-reference393_0)" -"(let-values(((s_683)(car s_682))) s_683))" +"(let-values(((s_689)(car s_688))) s_689))" "((id394_0)" -"(let-values(((s_684)(cdr s_682)))" -"(let-values(((s_685)" -"(if(syntax?$1 s_684)" -"(syntax-e$1 s_684)" -" s_684)))" +"(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(((id395_0)" -"(let-values(((s_686)(car s_685))) s_686))" +"(let-values(((s_692)(car s_691))) s_692))" "(()" -"(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_693)(cdr s_691)))" +"(let-values(((s_694)" +"(if(syntax?$1 s_693)" +"(syntax-e$1 s_693)" +" s_693)))" "(values)))))" "(values id395_0))))))" "(values #%variable-reference393_0 id394_0)))))" "(values #t #%variable-reference391_1 id392_1)))" "(values #f #f #f)))))" "(let-values(((ok?_55 #%variable-reference396_0 #%top397_0 id398_0)" -"(let-values(((s_689) disarmed-s_22))" +"(let-values(((s_695) disarmed-s_22))" "(if(if(not ok?_54)" -"(let-values(((s_690)(if(syntax?$1 s_689)(syntax-e$1 s_689) s_689)))" -"(if(pair? s_690)" -"(if(let-values(((s_691)(car s_690))) #t)" -"(let-values(((s_692)(cdr s_690)))" -"(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)))" -"(let-values(((s_695)" -"(if(syntax?$1 s_694)(syntax-e$1 s_694) s_694)))" -"(if(pair? s_695)" -"(if(let-values(((s_696)(car s_695))) #t)" -"(let-values(((s_697)(cdr s_695)))" +"(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))) #t)" +"(let-values(((s_698)(cdr s_696)))" +"(let-values(((s_699)(if(syntax?$1 s_698)(syntax-e$1 s_698) s_698)))" +"(if(pair? s_699)" +"(if(let-values(((s_700)(car s_699)))" +"(let-values(((s_701)" +"(if(syntax?$1 s_700)(syntax-e$1 s_700) s_700)))" +"(if(pair? s_701)" +"(if(let-values(((s_702)(car s_701))) #t)" +"(let-values(((s_703)(cdr s_701)))" "(let-values(((or-part_383)" -"(if(syntax?$1 s_697)" -"(symbol?(syntax-e$1 s_697))" +"(if(syntax?$1 s_703)" +"(symbol?(syntax-e$1 s_703))" " #f)))" -"(if or-part_383 or-part_383(symbol? s_697))))" +"(if or-part_383 or-part_383(symbol? s_703))))" " #f)" " #f)))" -"(let-values(((s_698)(cdr s_693)))" -"(let-values(((s_699)(if(syntax?$1 s_698)(syntax-e$1 s_698) s_698)))" -"(null? s_699)))" +"(let-values(((s_704)(cdr s_699)))" +"(let-values(((s_705)(if(syntax?$1 s_704)(syntax-e$1 s_704) s_704)))" +"(null? s_705)))" " #f)" " #f)))" " #f)" @@ -65986,61 +66097,61 @@ static const char *startup_source = " #f)" "(let-values()" "(let-values(((#%variable-reference396_1 #%top397_1 id398_1)" -"(let-values(((s_700)(if(syntax?$1 s_689)(syntax-e$1 s_689) s_689)))" +"(let-values(((s_706)(if(syntax?$1 s_695)(syntax-e$1 s_695) s_695)))" "(let-values(((#%variable-reference399_0)" -"(let-values(((s_701)(car s_700))) s_701))" +"(let-values(((s_707)(car s_706))) s_707))" "((#%top400_0 id401_0)" -"(let-values(((s_702)(cdr s_700)))" -"(let-values(((s_703)" -"(if(syntax?$1 s_702)" -"(syntax-e$1 s_702)" -" s_702)))" -"(let-values(((#%top402_0 id403_0)" -"(let-values(((s_704)(car s_703)))" -"(let-values(((s_705)" -"(if(syntax?$1 s_704)" -"(syntax-e$1 s_704)" -" s_704)))" -"(let-values(((#%top404_0)" -"(let-values(((s_706)" -"(car" -" s_705)))" -" s_706))" -"((id405_0)" -"(let-values(((s_707)" -"(cdr" -" s_705)))" -" s_707)))" -"(values #%top404_0 id405_0)))))" -"(()" -"(let-values(((s_708)(cdr s_703)))" +"(let-values(((s_708)(cdr s_706)))" "(let-values(((s_709)" "(if(syntax?$1 s_708)" "(syntax-e$1 s_708)" " s_708)))" +"(let-values(((#%top402_0 id403_0)" +"(let-values(((s_710)(car s_709)))" +"(let-values(((s_711)" +"(if(syntax?$1 s_710)" +"(syntax-e$1 s_710)" +" s_710)))" +"(let-values(((#%top404_0)" +"(let-values(((s_712)" +"(car" +" s_711)))" +" s_712))" +"((id405_0)" +"(let-values(((s_713)" +"(cdr" +" s_711)))" +" s_713)))" +"(values #%top404_0 id405_0)))))" +"(()" +"(let-values(((s_714)(cdr s_709)))" +"(let-values(((s_715)" +"(if(syntax?$1 s_714)" +"(syntax-e$1 s_714)" +" s_714)))" "(values)))))" "(values #%top402_0 id403_0))))))" "(values #%variable-reference399_0 #%top400_0 id401_0)))))" "(values #t #%variable-reference396_1 #%top397_1 id398_1)))" "(values #f #f #f #f)))))" "(let-values(((ok?_56 #%variable-reference406_0)" -"(let-values(((s_710) disarmed-s_22))" +"(let-values(((s_716) disarmed-s_22))" "(if(if(not(let-values(((or-part_384) ok?_54))(if or-part_384 or-part_384 ok?_55)))" " #t" " #f)" -"(let-values(((orig-s_58) s_710))" +"(let-values(((orig-s_58) s_716))" "(let-values(((#%variable-reference406_1)" -"(let-values(((s_711)(if(syntax?$1 s_710)(syntax-e$1 s_710) s_710)))" -"(if(pair? s_711)" +"(let-values(((s_717)(if(syntax?$1 s_716)(syntax-e$1 s_716) s_716)))" +"(if(pair? s_717)" "(let-values(((#%variable-reference407_0)" -"(let-values(((s_712)(car s_711))) s_712))" +"(let-values(((s_718)(car s_717))) s_718))" "(()" -"(let-values(((s_713)(cdr s_711)))" -"(let-values(((s_714)" -"(if(syntax?$1 s_713)" -"(syntax-e$1 s_713)" -" s_713)))" -"(if(null? s_714)" +"(let-values(((s_719)(cdr s_717)))" +"(let-values(((s_720)" +"(if(syntax?$1 s_719)" +"(syntax-e$1 s_719)" +" s_719)))" +"(if(null? s_720)" "(values)" "(raise-syntax-error$1" " #f" @@ -66054,87 +66165,87 @@ static const char *startup_source = "(let-values()" "(let-values(((var-id_0)(if ok?_54 id392_0 id398_0)))" "(let-values(((binding_31)" -"(let-values(((temp409_0)(expand-context-phase ctx_99))((temp410_0) 'ambiguous))" +"(let-values(((temp409_0)(expand-context-phase ctx_100))((temp410_0) 'ambiguous))" "(resolve+shift30.1 temp410_0 #t #f #f #f #f #f #f #f #f var-id_0 temp409_0))))" "(let-values((()" "(begin" "(if(eq? binding_31 'ambiguous)" -"(let-values()(raise-ambiguous-error var-id_0 ctx_99))" +"(let-values()(raise-ambiguous-error var-id_0 ctx_100))" "(void))" "(values))))" "(let-values((()" "(begin" "(if(let-values(((or-part_386) binding_31))" -"(if or-part_386 or-part_386(expand-context-allow-unbound? ctx_99)))" +"(if or-part_386 or-part_386(expand-context-allow-unbound? ctx_100)))" "(void)" "(let-values()" "(raise-unbound-syntax-error" " #f" " \"unbound identifier\"" -" s_673" +" s_679" " var-id_0" " null" -"(syntax-debug-info-string var-id_0 ctx_99))))" +"(syntax-debug-info-string var-id_0 ctx_100))))" "(values))))" "(let-values(((t_59 primitive?_11 insp-of-t_7)" "(if binding_31" -"(let-values(((s414_0) s_673)" -"((temp415_0)(expand-context-in-local-expand? ctx_99)))" -"(lookup17.1 s414_0 #t temp415_0 #t binding_31 ctx_99 var-id_0))" +"(let-values(((s414_0) s_679)" +"((temp415_0)(expand-context-in-local-expand? ctx_100)))" +"(lookup17.1 s414_0 #t temp415_0 #t binding_31 ctx_100 var-id_0))" "(values #f #f #f))))" "(begin" "(if(if t_59(not(variable? t_59)) #f)" "(let-values()" -" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_673))" +" (raise-syntax-error$1 #f \"identifier does not refer to a variable\" var-id_0 s_679))" "(void))" -"(if(expand-context-to-parsed? ctx_99)" +"(if(expand-context-to-parsed? ctx_100)" "(parsed-#%variable-reference11.1" -"(keep-properties-only~ s_673)" +"(keep-properties-only~ s_679)" "(if ok?_55" "(let-values()(parsed-top-id4.1 var-id_0 binding_31 #f))" "(let-values()(parsed-id2.1 var-id_0 binding_31 #f))))" -" s_673))))))))" +" s_679))))))))" "(let-values()" -"(if(expand-context-to-parsed? ctx_99)" -"(parsed-#%variable-reference11.1(keep-properties-only~ s_673) #f)" -" s_673)))))))))))" +"(if(expand-context-to-parsed? ctx_100)" +"(parsed-#%variable-reference11.1(keep-properties-only~ s_679) #f)" +" s_679)))))))))))" "(void" "(add-core-form!*" " '#%expression" -"(lambda(s_715 ctx_100)" +"(lambda(s_721 ctx_101)" "(let-values((()" "(begin" -"(let-values(((obs_115)(expand-context-observer ctx_100)))" -"(if obs_115" -"(let-values()(let-values()(call-expand-observe obs_115 'prim-#%expression)))" +"(let-values(((obs_120)(expand-context-observer ctx_101)))" +"(if obs_120" +"(let-values()(let-values()(call-expand-observe obs_120 'prim-#%expression)))" "(void)))" "(values))))" -"(let-values(((disarmed-s_23)(syntax-disarm$1 s_715)))" +"(let-values(((disarmed-s_23)(syntax-disarm$1 s_721)))" "(let-values(((ok?_57 #%expression416_0 e417_0)" -"(let-values(((s_716) disarmed-s_23))" -"(let-values(((orig-s_59) s_716))" +"(let-values(((s_722) disarmed-s_23))" +"(let-values(((orig-s_59) s_722))" "(let-values(((#%expression416_1 e417_1)" -"(let-values(((s_717)(if(syntax?$1 s_716)(syntax-e$1 s_716) s_716)))" -"(if(pair? s_717)" +"(let-values(((s_723)(if(syntax?$1 s_722)(syntax-e$1 s_722) s_722)))" +"(if(pair? s_723)" "(let-values(((#%expression418_0)" -"(let-values(((s_718)(car s_717))) s_718))" +"(let-values(((s_724)(car s_723))) s_724))" "((e419_0)" -"(let-values(((s_719)(cdr s_717)))" -"(let-values(((s_720)" -"(if(syntax?$1 s_719)" -"(syntax-e$1 s_719)" -" s_719)))" -"(if(pair? s_720)" +"(let-values(((s_725)(cdr s_723)))" +"(let-values(((s_726)" +"(if(syntax?$1 s_725)" +"(syntax-e$1 s_725)" +" s_725)))" +"(if(pair? s_726)" "(let-values(((e420_0)" -"(let-values(((s_721)(car s_720)))" -" s_721))" +"(let-values(((s_727)(car s_726)))" +" s_727))" "(()" -"(let-values(((s_722)(cdr s_720)))" -"(let-values(((s_723)" -"(if(syntax?$1 s_722)" -"(syntax-e$1 s_722)" -" s_722)))" -"(if(null? s_723)" +"(let-values(((s_728)(cdr s_726)))" +"(let-values(((s_729)" +"(if(syntax?$1 s_728)" +"(syntax-e$1 s_728)" +" s_728)))" +"(if(null? s_729)" "(values)" "(raise-syntax-error$1" " #f" @@ -66146,42 +66257,42 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_59)))))" "(values #t #%expression416_1 e417_1))))))" "(let-values(((rebuild-s_13)" -"(let-values(((temp423_0) #t))(keep-as-needed74.1 temp423_0 #t #f #f #f #f ctx_100 s_715))))" +"(let-values(((temp423_0) #t))(keep-as-needed74.1 temp423_0 #t #f #f #f #f ctx_101 s_721))))" "(let-values(((exp-e_0)" "(let-values(((temp424_0) e417_0)" "((temp425_0)" -"(let-values(((temp426_0)(as-expression-context ctx_100))" -"((ctx427_0) ctx_100))" +"(let-values(((temp426_0)(as-expression-context ctx_101))" +"((ctx427_0) ctx_101))" "(as-tail-context23.1 ctx427_0 temp426_0))))" "(expand7.1 #f #f #f #f temp424_0 temp425_0))))" -"(if(expand-context-to-parsed? ctx_100)" +"(if(expand-context-to-parsed? ctx_101)" " exp-e_0" "(let-values(((tmp_61)" -"(if(not(expand-context-in-local-expand? ctx_100))" -"(expand-context-context ctx_100)" +"(if(not(expand-context-in-local-expand? ctx_101))" +"(expand-context-context ctx_101)" " #f)))" "(if(equal? tmp_61 'expression)" "(let-values()" "(let-values(((result-s_13)(syntax-track-origin$1 exp-e_0 rebuild-s_13)))" "(begin" -"(let-values(((obs_116)(expand-context-observer ctx_100)))" -"(if obs_116" -"(let-values()(let-values()(call-expand-observe obs_116 'tag result-s_13)))" +"(let-values(((obs_121)(expand-context-observer ctx_101)))" +"(if obs_121" +"(let-values()(let-values()(call-expand-observe obs_121 'tag result-s_13)))" "(void)))" " result-s_13)))" "(let-values()" "(let-values(((rebuild-s428_0) rebuild-s_13)((temp429_0)(list #%expression416_0 exp-e_0)))" "(rebuild5.1 #f #f rebuild-s428_0 temp429_0))))))))))))))" -" (void (add-core-form!* 'unquote (lambda (s_724 ctx_101) (raise-syntax-error$1 #f \"not in quasiquote\" s_724))))" -" (void (add-core-form!* 'unquote-splicing (lambda (s_725 ctx_102) (raise-syntax-error$1 #f \"not in quasiquote\" s_725))))" +" (void (add-core-form!* 'unquote (lambda (s_730 ctx_102) (raise-syntax-error$1 #f \"not in quasiquote\" s_730))))" +" (void (add-core-form!* 'unquote-splicing (lambda (s_731 ctx_103) (raise-syntax-error$1 #f \"not in quasiquote\" s_731))))" "(define-values" "(binding-for-transformer?)" -"(lambda(b_41 id_126 at-phase_12 ns_123)" +"(lambda(b_41 id_126 at-phase_12 ns_120)" "(begin" "(if(not at-phase_12)" "(let-values()" "(let-values(((m_30)" -"(namespace->module ns_123(1/module-path-index-resolve(module-binding-nominal-module b_41)))))" +"(namespace->module ns_120(1/module-path-index-resolve(module-binding-nominal-module b_41)))))" "(let-values(((b/p_4)" "(hash-ref" "(hash-ref(module-provides m_30)(module-binding-nominal-phase b_41) '#hasheq())" @@ -66193,7 +66304,7 @@ static const char *startup_source = "(let-values(((b1_8) b_41)" "((empty-env2_0) empty-env)" "((null3_0) null)" -"((ns4_0) ns_123)" +"((ns4_0) ns_120)" "((at-phase5_0) at-phase_12)" "((id6_0) id_126))" "(binding-lookup48.1 #f #f #f #f b1_8 empty-env2_0 null3_0 ns4_0 at-phase5_0 id6_0))))" @@ -66202,9 +66313,9 @@ static const char *startup_source = "(define-values(provide-form-name) 'provide)" "(define-values" "(parse-and-expand-provides!)" -"(lambda(specs_0 orig-s_60 rp_1 self_28 phase_41 ctx_103)" +"(lambda(specs_0 orig-s_60 rp_1 self_28 phase_41 ctx_104)" "(begin" -"(let-values(((ns_124)(expand-context-namespace ctx_103)))" +"(let-values(((ns_121)(expand-context-namespace ctx_104)))" "((letrec-values(((loop_115)" "(lambda(specs_1 at-phase_13 protected?_4 layer_6)" "(begin" @@ -66220,16 +66331,16 @@ static const char *startup_source = "((letrec-values(((for-loop_91)" "(lambda(track-stxes_1" " exp-specs_1" -" lst_397)" +" lst_396)" "(begin" " 'for-loop" -"(if(pair? lst_397)" +"(if(pair? lst_396)" "(let-values(((spec_0)" "(unsafe-car" -" lst_397))" +" lst_396))" "((rest_233)" "(unsafe-cdr" -" lst_397)))" +" lst_396)))" "(let-values(((track-stxes_2" " exp-specs_2)" "(let-values(((track-stxes_3)" @@ -66345,7 +66456,7 @@ static const char *startup_source = "(syntax-e$1" " spec_0)" " at-phase_13" -" ns_124" +" ns_121" " rp_1" " protected?_4)" "(values" @@ -66375,24 +66486,24 @@ static const char *startup_source = "(let-values(((for-meta3_1" " phase-level4_1" " spec5_1)" -"(let-values(((s_459)" +"(let-values(((s_466)" "(if(syntax?$1" " s_306)" "(syntax-e$1" " s_306)" " s_306)))" "(if(pair?" -" s_459)" +" s_466)" "(let-values(((for-meta6_0)" "(let-values(((s_178)" "(car" -" s_459)))" +" s_466)))" " s_178))" "((phase-level7_0" " spec8_0)" "(let-values(((s_78)" "(cdr" -" s_459)))" +" s_466)))" "(let-values(((s_412)" "(if(syntax?$1" " s_78)" @@ -66524,7 +66635,7 @@ static const char *startup_source = "(let-values(((s_25)" "(cdr" " s_23)))" -"(let-values(((s_726)" +"(let-values(((s_732)" "(if(syntax?$1" " s_25)" "(syntax-e$1" @@ -66532,7 +66643,7 @@ static const char *startup_source = " s_25)))" "(let-values(((flat-s_43)" "(to-syntax-list.1" -" s_726)))" +" s_732)))" "(if(not" " flat-s_43)" "(let-values()" @@ -66596,23 +66707,23 @@ static const char *startup_source = " s_44))" "(let-values(((for-label19_1" " spec20_1)" -"(let-values(((s_727)" +"(let-values(((s_733)" "(if(syntax?$1" " s_44)" "(syntax-e$1" " s_44)" " s_44)))" "(if(pair?" -" s_727)" +" s_733)" "(let-values(((for-label21_0)" -"(let-values(((s_472)" +"(let-values(((s_481)" "(car" -" s_727)))" -" s_472))" +" s_733)))" +" s_481))" "((spec22_0)" "(let-values(((s_45)" "(cdr" -" s_727)))" +" s_733)))" "(let-values(((s_397)" "(if(syntax?$1" " s_45)" @@ -66703,20 +66814,20 @@ static const char *startup_source = "(if(pair?" " s_31)" "(let-values(((protect27_0)" -"(let-values(((s_728)" +"(let-values(((s_734)" "(car" " s_31)))" -" s_728))" +" s_734))" "((p-spec28_0)" -"(let-values(((s_729)" +"(let-values(((s_735)" "(cdr" " s_31)))" "(let-values(((s_393)" "(if(syntax?$1" -" s_729)" +" s_735)" "(syntax-e$1" -" s_729)" -" s_729)))" +" s_735)" +" s_735)))" "(let-values(((flat-s_45)" "(to-syntax-list.1" " s_393)))" @@ -66773,19 +66884,19 @@ static const char *startup_source = " rename31_0" " id:from32_0" " id:to33_0)" -"(let-values(((s_475)" +"(let-values(((s_484)" " disarmed-spec_0))" "(let-values(((orig-s_63)" -" s_475))" +" s_484))" "(let-values(((rename31_1" " id:from32_1" " id:to33_1)" "(let-values(((s_316)" "(if(syntax?$1" -" s_475)" +" s_484)" "(syntax-e$1" -" s_475)" -" s_475)))" +" s_484)" +" s_484)))" "(if(pair?" " s_316)" "(let-values(((rename34_0)" @@ -66798,18 +66909,18 @@ static const char *startup_source = "(let-values(((s_318)" "(cdr" " s_316)))" -"(let-values(((s_492)" +"(let-values(((s_435)" "(if(syntax?$1" " s_318)" "(syntax-e$1" " s_318)" " s_318)))" "(if(pair?" -" s_492)" +" s_435)" "(let-values(((id:from37_0)" "(let-values(((s_56)" "(car" -" s_492)))" +" s_435)))" "(if(let-values(((or-part_60)" "(if(syntax?$1" " s_56)" @@ -66830,19 +66941,19 @@ static const char *startup_source = "((id:to38_0)" "(let-values(((s_389)" "(cdr" -" s_492)))" -"(let-values(((s_730)" +" s_435)))" +"(let-values(((s_736)" "(if(syntax?$1" " s_389)" "(syntax-e$1" " s_389)" " s_389)))" "(if(pair?" -" s_730)" +" s_736)" "(let-values(((id:to39_0)" "(let-values(((s_390)" "(car" -" s_730)))" +" s_736)))" "(if(let-values(((or-part_104)" "(if(syntax?$1" " s_390)" @@ -66863,15 +66974,15 @@ static const char *startup_source = "(()" "(let-values(((s_391)" "(cdr" -" s_730)))" -"(let-values(((s_493)" +" s_736)))" +"(let-values(((s_502)" "(if(syntax?$1" " s_391)" "(syntax-e$1" " s_391)" " s_391)))" "(if(null?" -" s_493)" +" s_502)" "(values)" "(raise-syntax-error$1" " #f" @@ -66910,7 +67021,7 @@ static const char *startup_source = "(syntax-e$1" " id:to33_0)" " at-phase_13" -" ns_124" +" ns_121" " rp_1" " protected?_4)" "(values" @@ -66940,24 +67051,24 @@ static const char *startup_source = "(let-values(((struct40_1" " id:struct41_1" " id:field42_1)" -"(let-values(((s_731)" +"(let-values(((s_737)" "(if(syntax?$1" " s_36)" "(syntax-e$1" " s_36)" " s_36)))" "(if(pair?" -" s_731)" +" s_737)" "(let-values(((struct43_0)" "(let-values(((s_199)" "(car" -" s_731)))" +" s_737)))" " s_199))" "((id:struct44_0" " id:field45_0)" "(let-values(((s_37)" "(cdr" -" s_731)))" +" s_737)))" "(let-values(((s_86)" "(if(syntax?$1" " s_37)" @@ -66967,26 +67078,26 @@ static const char *startup_source = "(if(pair?" " s_86)" "(let-values(((id:struct46_0)" -"(let-values(((s_732)" +"(let-values(((s_438)" "(car" " s_86)))" "(if(let-values(((or-part_258)" "(if(syntax?$1" -" s_732)" +" s_438)" "(symbol?" "(syntax-e$1" -" s_732))" +" s_438))" " #f)))" "(if or-part_258" " or-part_258" "(symbol?" -" s_732)))" -" s_732" +" s_438)))" +" s_438" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_64" -" s_732))))" +" s_438))))" "((id:field47_0)" "(let-values(((s_320)" "(cdr" @@ -67032,17 +67143,17 @@ static const char *startup_source = " lst_100)))" "((letrec-values(((for-loop_116)" "(lambda(id:field_1" -" lst_398)" +" lst_397)" "(begin" " 'for-loop" "(if(pair?" -" lst_398)" +" lst_397)" "(let-values(((s_66)" "(unsafe-car" -" lst_398))" +" lst_397))" "((rest_234)" "(unsafe-cdr" -" lst_398)))" +" lst_397)))" "(let-values(((id:field_2)" "(let-values(((id:field_3)" " id:field_1))" @@ -67133,7 +67244,7 @@ static const char *startup_source = " orig-s_60" " id:field42_0" " at-phase_13" -" ns_124" +" ns_121" " rp_1" " protected?_4)" "(values" @@ -67158,23 +67269,23 @@ static const char *startup_source = " s_409))" "(let-values(((all-from50_1" " mod-path51_1)" -"(let-values(((s_733)" +"(let-values(((s_738)" "(if(syntax?$1" " s_409)" "(syntax-e$1" " s_409)" " s_409)))" "(if(pair?" -" s_733)" +" s_738)" "(let-values(((all-from52_0)" "(let-values(((s_417)" "(car" -" s_733)))" +" s_738)))" " s_417))" "((mod-path53_0)" "(let-values(((s_206)" "(cdr" -" s_733)))" +" s_738)))" "(let-values(((s_207)" "(if(syntax?$1" " s_206)" @@ -67189,15 +67300,15 @@ static const char *startup_source = " s_207)))" " s_93))" "(()" -"(let-values(((s_734)" +"(let-values(((s_739)" "(cdr" " s_207)))" "(let-values(((s_322)" "(if(syntax?$1" -" s_734)" +" s_739)" "(syntax-e$1" -" s_734)" -" s_734)))" +" s_739)" +" s_739)))" "(if(null?" " s_322)" "(values)" @@ -67229,10 +67340,10 @@ static const char *startup_source = " self_28" " null" " at-phase_13" -" ns_124" +" ns_121" " rp_1" " protected?_4" -" ctx_103)" +" ctx_104)" "(values" " null" "(list" @@ -67263,10 +67374,10 @@ static const char *startup_source = "(if(pair?" " s_98)" "(let-values(((all-from-except58_0)" -"(let-values(((s_735)" +"(let-values(((s_740)" "(car" " s_98)))" -" s_735))" +" s_740))" "((mod-path59_0" " id60_0)" "(let-values(((s_102)" @@ -67281,23 +67392,23 @@ static const char *startup_source = "(if(pair?" " s_154)" "(let-values(((mod-path61_0)" -"(let-values(((s_482)" +"(let-values(((s_491)" "(car" " s_154)))" -" s_482))" +" s_491))" "((id62_0)" -"(let-values(((s_483)" +"(let-values(((s_492)" "(cdr" " s_154)))" -"(let-values(((s_736)" +"(let-values(((s_741)" "(if(syntax?$1" -" s_483)" +" s_492)" "(syntax-e$1" -" s_483)" -" s_483)))" +" s_492)" +" s_492)))" "(let-values(((flat-s_47)" "(to-syntax-list.1" -" s_736)))" +" s_741)))" "(if(not" " flat-s_47)" "(let-values()" @@ -67307,7 +67418,7 @@ static const char *startup_source = " orig-s_66))" "(let-values()" "(let-values(((id_127)" -"(let-values(((lst_399)" +"(let-values(((lst_398)" " flat-s_47))" "(begin" "(if(variable-reference-from-unsafe?" @@ -67315,20 +67426,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_399)))" -"((letrec-values(((for-loop_301)" +" lst_398)))" +"((letrec-values(((for-loop_300)" "(lambda(id_128" -" lst_400)" +" lst_399)" "(begin" " 'for-loop" "(if(pair?" -" lst_400)" +" lst_399)" "(let-values(((s_325)" "(unsafe-car" -" lst_400))" +" lst_399))" "((rest_235)" "(unsafe-cdr" -" lst_400)))" +" lst_399)))" "(let-values(((id_109)" "(let-values(((id_129)" " id_128))" @@ -67360,14 +67471,14 @@ static const char *startup_source = " id_130)))))" "(if(not" " #f)" -"(for-loop_301" +"(for-loop_300" " id_109" " rest_235)" " id_109)))" " id_128)))))" -" for-loop_301)" +" for-loop_300)" " null" -" lst_399)))))" +" lst_398)))))" "(reverse$1" " id_127)))))))))" "(values" @@ -67397,10 +67508,10 @@ static const char *startup_source = " self_28" " id57_0" " at-phase_13" -" ns_124" +" ns_121" " rp_1" " protected?_4" -" ctx_103)" +" ctx_104)" "(values" " null" "(list" @@ -67433,20 +67544,20 @@ static const char *startup_source = "(if(pair?" " s_395)" "(let-values(((all-defined65_0)" -"(let-values(((s_737)" +"(let-values(((s_742)" "(car" " s_395)))" -" s_737))" +" s_742))" "(()" -"(let-values(((s_494)" +"(let-values(((s_503)" "(cdr" " s_395)))" "(let-values(((s_111)" "(if(syntax?$1" -" s_494)" +" s_503)" "(syntax-e$1" -" s_494)" -" s_494)))" +" s_503)" +" s_503)))" "(if(null?" " s_111)" "(values)" @@ -67471,7 +67582,7 @@ static const char *startup_source = " null" " #f" " at-phase_13" -" ns_124" +" ns_121" " rp_1" " protected?_4)" "(values" @@ -67487,18 +67598,18 @@ static const char *startup_source = "(let-values(((ok?_67" " all-defined-except66_0" " id67_0)" -"(let-values(((s_738)" +"(let-values(((s_743)" " disarmed-spec_0))" "(let-values(((orig-s_68)" -" s_738))" +" s_743))" "(let-values(((all-defined-except66_1" " id67_1)" "(let-values(((s_216)" "(if(syntax?$1" -" s_738)" +" s_743)" "(syntax-e$1" -" s_738)" -" s_738)))" +" s_743)" +" s_743)))" "(if(pair?" " s_216)" "(let-values(((all-defined-except68_0)" @@ -67528,7 +67639,7 @@ static const char *startup_source = " orig-s_68))" "(let-values()" "(let-values(((id_131)" -"(let-values(((lst_401)" +"(let-values(((lst_400)" " flat-s_48))" "(begin" "(if(variable-reference-from-unsafe?" @@ -67536,20 +67647,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_401)))" -"((letrec-values(((for-loop_302)" +" lst_400)))" +"((letrec-values(((for-loop_301)" "(lambda(id_132" -" lst_402)" +" lst_401)" "(begin" " 'for-loop" "(if(pair?" -" lst_402)" -"(let-values(((s_498)" +" lst_401)" +"(let-values(((s_506)" "(unsafe-car" -" lst_402))" +" lst_401))" "((rest_236)" "(unsafe-cdr" -" lst_402)))" +" lst_401)))" "(let-values(((id_133)" "(let-values(((id_134)" " id_132))" @@ -67559,21 +67670,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_389)" "(if(syntax?$1" -" s_498)" +" s_506)" "(symbol?" "(syntax-e$1" -" s_498))" +" s_506))" " #f)))" "(if or-part_389" " or-part_389" "(symbol?" -" s_498)))" -" s_498" +" s_506)))" +" s_506" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_68" -" s_498)))))" +" s_506)))))" "(cons" " id70_0" " id_134)))))" @@ -67581,14 +67692,14 @@ static const char *startup_source = " id_30)))))" "(if(not" " #f)" -"(for-loop_302" +"(for-loop_301" " id_133" " rest_236)" " id_133)))" " id_132)))))" -" for-loop_302)" +" for-loop_301)" " null" -" lst_401)))))" +" lst_400)))))" "(reverse$1" " id_131)))))))))" "(values" @@ -67610,7 +67721,7 @@ static const char *startup_source = " id67_0" " #f" " at-phase_13" -" ns_124" +" ns_121" " rp_1" " protected?_4)" "(values" @@ -67629,70 +67740,70 @@ static const char *startup_source = "(let-values(((ok?_68" " prefix-all-defined71_0" " id:prefix72_0)" -"(let-values(((s_504)" +"(let-values(((s_448)" " disarmed-spec_0))" "(let-values(((orig-s_69)" -" s_504))" +" s_448))" "(let-values(((prefix-all-defined71_1" " id:prefix72_1)" -"(let-values(((s_739)" +"(let-values(((s_744)" "(if(syntax?$1" -" s_504)" +" s_448)" "(syntax-e$1" -" s_504)" -" s_504)))" +" s_448)" +" s_448)))" "(if(pair?" -" s_739)" +" s_744)" "(let-values(((prefix-all-defined73_0)" -"(let-values(((s_507)" +"(let-values(((s_514)" "(car" -" s_739)))" -" s_507))" +" s_744)))" +" s_514))" "((id:prefix74_0)" -"(let-values(((s_740)" +"(let-values(((s_745)" "(cdr" -" s_739)))" -"(let-values(((s_741)" +" s_744)))" +"(let-values(((s_746)" "(if(syntax?$1" -" s_740)" +" s_745)" "(syntax-e$1" -" s_740)" -" s_740)))" +" s_745)" +" s_745)))" "(if(pair?" -" s_741)" +" s_746)" "(let-values(((id:prefix75_0)" -"(let-values(((s_742)" +"(let-values(((s_747)" "(car" -" s_741)))" +" s_746)))" "(if(let-values(((or-part_390)" "(if(syntax?$1" -" s_742)" +" s_747)" "(symbol?" "(syntax-e$1" -" s_742))" +" s_747))" " #f)))" "(if or-part_390" " or-part_390" "(symbol?" -" s_742)))" -" s_742" +" s_747)))" +" s_747" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_69" -" s_742))))" +" s_747))))" "(()" -"(let-values(((s_743)" +"(let-values(((s_748)" "(cdr" -" s_741)))" -"(let-values(((s_461)" +" s_746)))" +"(let-values(((s_468)" "(if(syntax?$1" -" s_743)" +" s_748)" "(syntax-e$1" -" s_743)" -" s_743)))" +" s_748)" +" s_748)))" "(if(null?" -" s_461)" +" s_468)" "(values)" "(raise-syntax-error$1" " #f" @@ -67724,7 +67835,7 @@ static const char *startup_source = "(syntax-e$1" " id:prefix72_0)" " at-phase_13" -" ns_124" +" ns_121" " rp_1" " protected?_4)" "(values" @@ -67778,39 +67889,39 @@ static const char *startup_source = "(if(pair?" " s_345)" "(let-values(((id:prefix82_0)" -"(let-values(((s_509)" +"(let-values(((s_449)" "(car" " s_345)))" "(if(let-values(((or-part_391)" "(if(syntax?$1" -" s_509)" +" s_449)" "(symbol?" "(syntax-e$1" -" s_509))" +" s_449))" " #f)))" "(if or-part_391" " or-part_391" "(symbol?" -" s_509)))" -" s_509" +" s_449)))" +" s_449" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_70" -" s_509))))" +" s_449))))" "((id83_0)" -"(let-values(((s_510)" +"(let-values(((s_450)" "(cdr" " s_345)))" -"(let-values(((s_511)" +"(let-values(((s_516)" "(if(syntax?$1" -" s_510)" +" s_450)" "(syntax-e$1" -" s_510)" -" s_510)))" +" s_450)" +" s_450)))" "(let-values(((flat-s_49)" "(to-syntax-list.1" -" s_511)))" +" s_516)))" "(if(not" " flat-s_49)" "(let-values()" @@ -67829,19 +67940,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_4)))" -"((letrec-values(((for-loop_303)" +"((letrec-values(((for-loop_302)" "(lambda(id_136" -" lst_403)" +" lst_402)" "(begin" " 'for-loop" "(if(pair?" -" lst_403)" -"(let-values(((s_744)" +" lst_402)" +"(let-values(((s_749)" "(unsafe-car" -" lst_403))" +" lst_402))" "((rest_237)" "(unsafe-cdr" -" lst_403)))" +" lst_402)))" "(let-values(((id_82)" "(let-values(((id_137)" " id_136))" @@ -67851,21 +67962,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_392)" "(if(syntax?$1" -" s_744)" +" s_749)" "(symbol?" "(syntax-e$1" -" s_744))" +" s_749))" " #f)))" "(if or-part_392" " or-part_392" "(symbol?" -" s_744)))" -" s_744" +" s_749)))" +" s_749" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_70" -" s_744)))))" +" s_749)))))" "(cons" " id84_2" " id_137)))))" @@ -67873,12 +67984,12 @@ static const char *startup_source = " id_138)))))" "(if(not" " #f)" -"(for-loop_303" +"(for-loop_302" " id_82" " rest_237)" " id_82)))" " id_136)))))" -" for-loop_303)" +" for-loop_302)" " null" " lst_4)))))" "(reverse$1" @@ -67912,7 +68023,7 @@ static const char *startup_source = "(syntax-e$1" " id:prefix77_0)" " at-phase_13" -" ns_124" +" ns_121" " rp_1" " protected?_4)" "(values" @@ -67924,19 +68035,19 @@ static const char *startup_source = " expand85_0" " id86_0" " datum87_0)" -"(let-values(((s_745)" +"(let-values(((s_750)" " disarmed-spec_0))" "(let-values(((orig-s_71)" -" s_745))" +" s_750))" "(let-values(((expand85_1" " id86_1" " datum87_1)" "(let-values(((s_248)" "(if(syntax?$1" -" s_745)" +" s_750)" "(syntax-e$1" -" s_745)" -" s_745)))" +" s_750)" +" s_750)))" "(if(pair?" " s_248)" "(let-values(((expand88_0)" @@ -67946,51 +68057,51 @@ static const char *startup_source = " s_249))" "((id89_1" " datum90_0)" -"(let-values(((s_462)" +"(let-values(((s_471)" "(cdr" " s_248)))" "(let-values(((s_250)" "(if(syntax?$1" -" s_462)" +" s_471)" "(syntax-e$1" -" s_462)" -" s_462)))" +" s_471)" +" s_471)))" "(if(pair?" " s_250)" "(let-values(((id91_1" " datum92_0)" -"(let-values(((s_746)" +"(let-values(((s_751)" "(car" " s_250)))" "(let-values(((s_252)" "(if(syntax?$1" -" s_746)" +" s_751)" "(syntax-e$1" -" s_746)" -" s_746)))" +" s_751)" +" s_751)))" "(if(pair?" " s_252)" "(let-values(((id93_0)" -"(let-values(((s_747)" +"(let-values(((s_752)" "(car" " s_252)))" "(if(let-values(((or-part_393)" "(if(syntax?$1" -" s_747)" +" s_752)" "(symbol?" "(syntax-e$1" -" s_747))" +" s_752))" " #f)))" "(if or-part_393" " or-part_393" "(symbol?" -" s_747)))" -" s_747" +" s_752)))" +" s_752" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_71" -" s_747))))" +" s_752))))" "((datum94_0)" "(let-values(((s_364)" "(cdr" @@ -68075,22 +68186,22 @@ static const char *startup_source = "(if(pair?" " s_375)" "(let-values(((form99_0)" -"(let-values(((s_748)" +"(let-values(((s_753)" "(car" " s_375)))" -" s_748))" +" s_753))" "(()" -"(let-values(((s_749)" +"(let-values(((s_754)" "(cdr" " s_375)))" -"(let-values(((s_750)" +"(let-values(((s_755)" "(if(syntax?$1" -" s_749)" +" s_754)" "(syntax-e$1" -" s_749)" -" s_749)))" +" s_754)" +" s_754)))" "(if(null?" -" s_750)" +" s_755)" "(values)" "(raise-syntax-error$1" " #f" @@ -68117,21 +68228,21 @@ static const char *startup_source = "(let-values(((temp104_4)" " form96_0)" "((temp105_4)" -"(let-values(((v_255)" -" ctx_103))" -"(let-values(((the-struct_99)" -" v_255))" +"(let-values(((v_252)" +" ctx_104))" +"(let-values(((the-struct_97)" +" v_252))" "(if(expand-context/outer?" -" the-struct_99)" +" the-struct_97)" "(let-values(((def-ctx-scopes106_0)" "(box" " null))" "((inner107_0)" -"(let-values(((the-struct_100)" +"(let-values(((the-struct_98)" "(root-expand-context/outer-inner" -" v_255)))" +" v_252)))" "(if(expand-context/inner?" -" the-struct_100)" +" the-struct_98)" "(let-values(((stops108_0)" "(free-id-set" " at-phase_13" @@ -68141,89 +68252,89 @@ static const char *startup_source = " at-phase_13)))))" "(expand-context/inner2.1" "(root-expand-context/inner-module-scopes" -" the-struct_100)" +" the-struct_98)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_100)" +" the-struct_98)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_100)" +" the-struct_98)" "(root-expand-context/inner-defined-syms" -" the-struct_100)" +" the-struct_98)" "(root-expand-context/inner-counter" -" the-struct_100)" +" the-struct_98)" "(root-expand-context/inner-lift-key" -" the-struct_100)" +" the-struct_98)" "(expand-context/inner-to-parsed?" -" the-struct_100)" +" the-struct_98)" "(expand-context/inner-phase" -" the-struct_100)" +" the-struct_98)" "(expand-context/inner-namespace" -" the-struct_100)" +" the-struct_98)" "(expand-context/inner-just-once?" -" the-struct_100)" +" the-struct_98)" "(expand-context/inner-module-begin-k" -" the-struct_100)" +" the-struct_98)" "(expand-context/inner-allow-unbound?" -" the-struct_100)" +" the-struct_98)" "(expand-context/inner-in-local-expand?" -" the-struct_100)" +" the-struct_98)" " stops108_0" "(expand-context/inner-declared-submodule-names" -" the-struct_100)" +" the-struct_98)" "(expand-context/inner-lifts" -" the-struct_100)" +" the-struct_98)" "(expand-context/inner-lift-envs" -" the-struct_100)" +" the-struct_98)" "(expand-context/inner-module-lifts" -" the-struct_100)" +" the-struct_98)" "(expand-context/inner-require-lifts" -" the-struct_100)" +" the-struct_98)" "(expand-context/inner-to-module-lifts" -" the-struct_100)" +" the-struct_98)" "(expand-context/inner-requires+provides" -" the-struct_100)" +" the-struct_98)" "(expand-context/inner-observer" -" the-struct_100)" +" the-struct_98)" "(expand-context/inner-for-serializable?" -" the-struct_100)" +" the-struct_98)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_100)))" +" the-struct_98)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_100)))))" +" the-struct_98)))))" "(expand-context/outer1.1" " inner107_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_99)" +" the-struct_97)" "(root-expand-context/outer-use-site-scopes" -" the-struct_99)" +" the-struct_97)" "(root-expand-context/outer-frame-id" -" the-struct_99)" +" the-struct_97)" "(expand-context/outer-context" -" the-struct_99)" +" the-struct_97)" "(expand-context/outer-env" -" the-struct_99)" +" the-struct_97)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_99)" +" the-struct_97)" "(expand-context/outer-scopes" -" the-struct_99)" +" the-struct_97)" " def-ctx-scopes106_0" "(expand-context/outer-binding-layer" -" the-struct_99)" +" the-struct_97)" "(expand-context/outer-reference-records" -" the-struct_99)" +" the-struct_97)" "(expand-context/outer-only-immediate?" -" the-struct_99)" +" the-struct_97)" "(expand-context/outer-need-eventually-defined" -" the-struct_99)" +" the-struct_97)" "(expand-context/outer-current-introduction-scopes" -" the-struct_99)" +" the-struct_97)" "(expand-context/outer-name" -" the-struct_99)))" +" the-struct_97)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_99))))))" +" the-struct_97))))))" "(expand7.1" " #f" " #f" @@ -68273,20 +68384,20 @@ static const char *startup_source = "(if(pair?" " s_380)" "(let-values(((begin102_0)" -"(let-values(((s_751)" +"(let-values(((s_756)" "(car" " s_380)))" -" s_751))" +" s_756))" "((spec103_0)" -"(let-values(((s_463)" +"(let-values(((s_472)" "(cdr" " s_380)))" "(let-values(((s_382)" "(if(syntax?$1" -" s_463)" +" s_472)" "(syntax-e$1" -" s_463)" -" s_463)))" +" s_472)" +" s_472)))" "(let-values(((flat-s_50)" "(to-syntax-list.1" " s_382)))" @@ -68357,9 +68468,9 @@ static const char *startup_source = " 'raw)))))" "(define-values" "(parse-identifier!)" -"(lambda(spec_1 orig-s_74 sym_101 at-phase_14 ns_125 rp_2 protected?_5)" +"(lambda(spec_1 orig-s_74 sym_101 at-phase_14 ns_122 rp_2 protected?_5)" "(begin" -"(let-values(((b_91)(resolve+shift/extra-inspector spec_1 at-phase_14 ns_125)))" +"(let-values(((b_91)(resolve+shift/extra-inspector spec_1 at-phase_14 ns_122)))" "(let-values((()" "(begin" "(if b_91" @@ -68371,7 +68482,7 @@ static const char *startup_source = " orig-s_74" " spec_1)))" "(values))))" -"(let-values(((as-transformer?_6)(binding-for-transformer? b_91 spec_1 at-phase_14 ns_125)))" +"(let-values(((as-transformer?_6)(binding-for-transformer? b_91 spec_1 at-phase_14 ns_122)))" "(let-values(((immed-b_0)" "(let-values(((temp120_4) #t))" "(resolve+shift30.1 #f #f #f #f #f #f temp120_4 #t #f #f spec_1 at-phase_14))))" @@ -68388,7 +68499,7 @@ static const char *startup_source = " orig-s_74)))))))))" "(define-values" "(parse-struct!)" -"(lambda(id:struct_0 orig-s_75 fields_0 at-phase_15 ns_126 rp_3 protected?_6)" +"(lambda(id:struct_0 orig-s_75 fields_0 at-phase_15 ns_123 rp_3 protected?_6)" "(begin" "(let-values(((mk_0)" "(lambda(fmt_1)" @@ -68405,17 +68516,17 @@ static const char *startup_source = "(format fmt_2(syntax-e$1 id:struct_0)(syntax-e$1 field-id_0)))))" "(datum->syntax$1 id:struct_0 sym_103 id:struct_0))))))" "(begin" -" (let-values (((lst_404) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" +" (let-values (((lst_403) (list \"~a\" \"make-~a\" \"struct:~a\" \"~a?\")))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_404)))" -"((letrec-values(((for-loop_304)" -"(lambda(lst_405)" +"(let-values()(check-list lst_403)))" +"((letrec-values(((for-loop_303)" +"(lambda(lst_404)" "(begin" " 'for-loop" -"(if(pair? lst_405)" -"(let-values(((fmt_3)(unsafe-car lst_405))((rest_238)(unsafe-cdr lst_405)))" +"(if(pair? lst_404)" +"(let-values(((fmt_3)(unsafe-car lst_404))((rest_238)(unsafe-cdr lst_404)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -68428,27 +68539,27 @@ static const char *startup_source = " orig-s_75" "(syntax-e$1 id_139)" " at-phase_15" -" ns_126" +" ns_123" " rp_3" " protected?_6)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_304 rest_238)(values))))" +"(if(not #f)(for-loop_303 rest_238)(values))))" "(values))))))" -" for-loop_304)" -" lst_404)))" +" for-loop_303)" +" lst_403)))" "(void)" -"(let-values(((lst_406) fields_0))" +"(let-values(((lst_405) fields_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_406)))" -"((letrec-values(((for-loop_305)" -"(lambda(lst_407)" +"(let-values()(check-list lst_405)))" +"((letrec-values(((for-loop_304)" +"(lambda(lst_406)" "(begin" " 'for-loop" -"(if(pair? lst_407)" -"(let-values(((field_0)(unsafe-car lst_407))((rest_239)(unsafe-cdr lst_407)))" +"(if(pair? lst_406)" +"(let-values(((field_0)(unsafe-car lst_406))((rest_239)(unsafe-cdr lst_406)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -68467,7 +68578,7 @@ static const char *startup_source = " orig-s_75" "(syntax-e$1 get-id_0)" " at-phase_15" -" ns_126" +" ns_123" " rp_3" " protected?_6)" "(parse-identifier!" @@ -68475,19 +68586,19 @@ static const char *startup_source = " orig-s_75" "(syntax-e$1 set-id_0)" " at-phase_15" -" ns_126" +" ns_123" " rp_3" " protected?_6)))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_305 rest_239)(values))))" +"(if(not #f)(for-loop_304 rest_239)(values))))" "(values))))))" -" for-loop_305)" -" lst_406)))" +" for-loop_304)" +" lst_405)))" "(void)))))))" "(define-values" "(parse-all-from)" -"(lambda(mod-path-stx_0 orig-s_76 self_29 except-ids_0 at-phase_16 ns_127 rp_4 protected?_7 ctx_104)" +"(lambda(mod-path-stx_0 orig-s_76 self_29 except-ids_0 at-phase_16 ns_124 rp_4 protected?_7 ctx_105)" "(begin" "(let-values(((mod-path_33)(syntax->datum$1 mod-path-stx_0)))" "(let-values((()" @@ -68497,8 +68608,8 @@ static const char *startup_source = "(let-values()" " (raise-syntax-error$1 provide-form-name \"not a module path\" orig-s_76 mod-path-stx_0)))" "(values))))" -"(let-values(((mpi_52)(module-path->mpi/context mod-path_33 ctx_104)))" -"(parse-all-from-module mpi_52 #f orig-s_76 except-ids_0 #f at-phase_16 ns_127 rp_4 protected?_7)))))))" +"(let-values(((mpi_52)(module-path->mpi/context mod-path_33 ctx_105)))" +"(parse-all-from-module mpi_52 #f orig-s_76 except-ids_0 #f at-phase_16 ns_124 rp_4 protected?_7)))))))" "(define-values" "(parse-all-from-module)" "(lambda(mpi_53 matching-stx_0 orig-s_77 except-ids_1 prefix-sym_0 at-phase_17 ns_26 rp_5 protected?_8)" @@ -68531,12 +68642,12 @@ static const char *startup_source = " (if prefix-sym_0 (string->symbol (format \"~a~a\" prefix-sym_0 sym_104)) sym_104)))))" "(let-values(((found_0)(make-hasheq)))" "(begin" -"(let-values(((lst_408) requireds_2))" +"(let-values(((lst_407) requireds_2))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_408)))" -"((letrec-values(((for-loop_306)" +"(let-values()(check-list lst_407)))" +"((letrec-values(((for-loop_305)" "(lambda(lst_283)" "(begin" " 'for-loop" @@ -68551,14 +68662,14 @@ static const char *startup_source = "(let-values()" "(let-values(((id_140)" "(required-id i_193)))" -"(let-values(((phase_147)" +"(let-values(((phase_148)" "(required-phase" " i_193)))" "(if(let-values(((or-part_394)" "(if matching-stx_0" "(not" "(if(eqv?" -" phase_147" +" phase_148" " at-phase_17)" "(free-identifier=?$1" " id_140" @@ -68566,8 +68677,8 @@ static const char *startup_source = " matching-stx_0" "(syntax-e$1" " id_140))" -" phase_147" -" phase_147)" +" phase_148" +" phase_148)" " #f))" " #f)))" "(if or-part_394" @@ -68581,19 +68692,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_234)))" -"((letrec-values(((for-loop_307)" +"((letrec-values(((for-loop_306)" "(lambda(result_119" -" lst_409)" +" lst_408)" "(begin" " 'for-loop" "(if(pair?" -" lst_409)" +" lst_408)" "(let-values(((except-id_0)" "(unsafe-car" -" lst_409))" +" lst_408))" "((rest_214)" "(unsafe-cdr" -" lst_409)))" +" lst_408)))" "(let-values(((result_120)" "(let-values()" "(let-values(((result_121)" @@ -68602,8 +68713,8 @@ static const char *startup_source = "(if(free-identifier=?$1" " id_140" " except-id_0" -" phase_147" -" phase_147)" +" phase_148" +" phase_148)" "(hash-set!" " found_0" " except-id_0" @@ -68618,12 +68729,12 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_307" +"(for-loop_306" " result_120" " rest_214)" " result_120)))" " result_119)))))" -" for-loop_307)" +" for-loop_306)" " #f" " lst_234)))))" "(void)" @@ -68631,7 +68742,7 @@ static const char *startup_source = "(let-values(((b_92)" "(resolve+shift/extra-inspector" " id_140" -" phase_147" +" phase_148" " ns_26)))" "(let-values(((immed-b_1)" "(let-values(((temp132_2)" @@ -68648,13 +68759,13 @@ static const char *startup_source = " #f" " #f" " id_140" -" phase_147))))" +" phase_148))))" "(let-values(((temp122_4)" "(add-prefix_1" "(syntax-e$1" " id_140)))" "((phase123_0)" -" phase_147)" +" phase_148)" "((b124_0)" " b_92)" "((immed-b125_0)" @@ -68680,27 +68791,27 @@ static const char *startup_source = " orig-s127_0)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_306 rest_240)(values))))" +"(if(not #f)(for-loop_305 rest_240)(values))))" "(values))))))" -" for-loop_306)" -" lst_408)))" +" for-loop_305)" +" lst_407)))" "(void)" "(if(=(hash-count found_0)(length except-ids_1))" "(void)" "(let-values()" "(begin" -"(let-values(((lst_367) except-ids_1))" +"(let-values(((lst_366) except-ids_1))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_367)))" -"((letrec-values(((for-loop_308)" -"(lambda(lst_369)" +"(let-values()(check-list lst_366)))" +"((letrec-values(((for-loop_307)" +"(lambda(lst_368)" "(begin" " 'for-loop" -"(if(pair? lst_369)" -"(let-values(((except-id_1)(unsafe-car lst_369))" -"((rest_241)(unsafe-cdr lst_369)))" +"(if(pair? lst_368)" +"(let-values(((except-id_1)(unsafe-car lst_368))" +"((rest_241)(unsafe-cdr lst_368)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -68714,7 +68825,7 @@ static const char *startup_source = " #f)))" "(if or-part_156" " or-part_156" -"(let-values(((lst_370)" +"(let-values(((lst_369)" " requireds_2))" "(begin" "(if(variable-reference-from-unsafe?" @@ -68722,8 +68833,8 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_370)))" -"((letrec-values(((for-loop_309)" +" lst_369)))" +"((letrec-values(((for-loop_308)" "(lambda(result_122" " lst_141)" "(begin" @@ -68744,14 +68855,14 @@ static const char *startup_source = "(let-values(((id_141)" "(required-id" " i_194)))" -"(let-values(((phase_148)" +"(let-values(((phase_149)" "(required-phase" " i_194)))" "(free-identifier=?$1" " id_141" " except-id_1" -" phase_148" -" phase_148)))))))" +" phase_149" +" phase_149)))))))" "(values" " result_124)))))" "(if(if(not" @@ -68761,14 +68872,14 @@ static const char *startup_source = "(not" " #f)" " #f)" -"(for-loop_309" +"(for-loop_308" " result_123" " rest_217)" " result_123)))" " result_122)))))" -" for-loop_309)" +" for-loop_308)" " #f" -" lst_370)))))" +" lst_369)))))" "(void)" "(let-values()" "(raise-syntax-error$1" @@ -68782,10 +68893,10 @@ static const char *startup_source = " except-id_1))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_308 rest_241)(values))))" +"(if(not #f)(for-loop_307 rest_241)(values))))" "(values))))))" -" for-loop_308)" -" lst_367)))" +" for-loop_307)" +" lst_366)))" "(void)))))))))))))" "(define-values" "(check-cross-phase-persistent-form)" @@ -68796,12 +68907,12 @@ static const char *startup_source = "(begin" " 'check-body" "(begin" -"(let-values(((lst_410) bodys_14))" +"(let-values(((lst_409) bodys_14))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_410)))" -"((letrec-values(((for-loop_310)" +"(let-values()(check-list lst_409)))" +"((letrec-values(((for-loop_309)" "(lambda(lst_80)" "(begin" " 'for-loop" @@ -68849,10 +68960,10 @@ static const char *startup_source = " p_34))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_310 rest_38)(values))))" +"(if(not #f)(for-loop_309 rest_38)(values))))" "(values))))))" -" for-loop_310)" -" lst_410)))" +" for-loop_309)" +" lst_409)))" "(void)))))" "((check-expr_0)" "(lambda(e_86 num-results_0 enclosing_15)" @@ -68940,7 +69051,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_269)))" -"((letrec-values(((for-loop_271)" +"((letrec-values(((for-loop_270)" "(lambda(lst_262)" "(begin" " 'for-loop" @@ -68957,9 +69068,9 @@ static const char *startup_source = "(cadr clause_4)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_271 rest_243)(values))))" +"(if(not #f)(for-loop_270 rest_243)(values))))" "(values))))))" -" for-loop_271)" +" for-loop_270)" " lst_269)))" "(void)))" "(if(parsed-app? e_73)" @@ -69074,7 +69185,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_78)))" -"((letrec-values(((for-loop_261)" +"((letrec-values(((for-loop_260)" "(lambda(lst_17)" "(begin" " 'for-loop" @@ -69091,9 +69202,9 @@ static const char *startup_source = " e_88))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_261 rest_36)(values))))" +"(if(not #f)(for-loop_260 rest_36)(values))))" "(values))))))" -" for-loop_261)" +" for-loop_260)" " lst_78)))" "(void))))))" "(check-body_0 bodys_13)))))" @@ -69147,98 +69258,98 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'module" -"(lambda(s_183 ctx_105)" +"(lambda(s_183 ctx_106)" "(begin" -"(if(eq?(expand-context-context ctx_105) 'top-level)" +"(if(eq?(expand-context-context ctx_106) 'top-level)" "(void)" "(let-values()" "(begin" -"(let-values(((obs_117)(expand-context-observer ctx_105)))" -"(if obs_117(let-values()(let-values()(call-expand-observe obs_117 'prim-module)))(void)))" +"(let-values(((obs_122)(expand-context-observer ctx_106)))" +"(if obs_122(let-values()(let-values()(call-expand-observe obs_122 'prim-module)))(void)))" " (raise-syntax-error$1 #f \"allowed only at the top level\" s_183))))" "(let-values()" -"(let-values(((s223_0) s_183)((ctx224_0) ctx_105)((temp225_3) #f))" +"(let-values(((s223_0) s_183)((ctx224_0) ctx_106)((temp225_3) #f))" "(expand-module18.1 #f #f #f #f #f #f #f #f #f #f #f #f #f #f s223_0 ctx224_0 temp225_3)))))))" "(void" "(add-core-form!*" " 'module*" -"(lambda(s_306 ctx_106)" +"(lambda(s_306 ctx_107)" "(begin" -"(let-values(((obs_118)(expand-context-observer ctx_106)))" -"(if obs_118(let-values()(let-values()(call-expand-observe obs_118 'prim-module)))(void)))" +"(let-values(((obs_123)(expand-context-observer ctx_107)))" +"(if obs_123(let-values()(let-values()(call-expand-observe obs_123 'prim-module)))(void)))" " (raise-syntax-error$1 #f \"illegal use (not in a module top-level)\" s_306)))))" "(void" "(add-core-form!*" " '#%module-begin" -"(lambda(s_83 ctx_107)" +"(lambda(s_83 ctx_108)" "(begin" -"(let-values(((obs_119)(expand-context-observer ctx_107)))" -"(if obs_119(let-values()(let-values()(call-expand-observe obs_119 'prim-module-begin)))(void)))" -"(if(eq?(expand-context-context ctx_107) 'module-begin)" +"(let-values(((obs_124)(expand-context-observer ctx_108)))" +"(if obs_124(let-values()(let-values()(call-expand-observe obs_124 'prim-module-begin)))(void)))" +"(if(eq?(expand-context-context ctx_108) 'module-begin)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not in a module-definition context\" s_83)))" -"(if(expand-context-module-begin-k ctx_107)" +"(if(expand-context-module-begin-k ctx_108)" "(void)" " (let-values () (raise-syntax-error$1 #f \"not currently transforming a module\" s_83)))" -"((expand-context-module-begin-k ctx_107)" +"((expand-context-module-begin-k ctx_108)" " s_83" -"(let-values(((v_35) ctx_107))" -"(let-values(((the-struct_101) v_35))" -"(if(expand-context/outer? the-struct_101)" +"(let-values(((v_35) ctx_108))" +"(let-values(((the-struct_99) v_35))" +"(if(expand-context/outer? the-struct_99)" "(let-values(((inner226_0)" -"(let-values(((the-struct_102)(root-expand-context/outer-inner v_35)))" -"(if(expand-context/inner? the-struct_102)" +"(let-values(((the-struct_100)(root-expand-context/outer-inner v_35)))" +"(if(expand-context/inner? the-struct_100)" "(let-values(((module-begin-k227_0) #f))" "(expand-context/inner2.1" -"(root-expand-context/inner-module-scopes the-struct_102)" -"(root-expand-context/inner-top-level-bind-scope the-struct_102)" -"(root-expand-context/inner-all-scopes-stx the-struct_102)" -"(root-expand-context/inner-defined-syms the-struct_102)" -"(root-expand-context/inner-counter the-struct_102)" -"(root-expand-context/inner-lift-key the-struct_102)" -"(expand-context/inner-to-parsed? the-struct_102)" -"(expand-context/inner-phase the-struct_102)" -"(expand-context/inner-namespace the-struct_102)" -"(expand-context/inner-just-once? the-struct_102)" +"(root-expand-context/inner-module-scopes the-struct_100)" +"(root-expand-context/inner-top-level-bind-scope the-struct_100)" +"(root-expand-context/inner-all-scopes-stx the-struct_100)" +"(root-expand-context/inner-defined-syms the-struct_100)" +"(root-expand-context/inner-counter the-struct_100)" +"(root-expand-context/inner-lift-key the-struct_100)" +"(expand-context/inner-to-parsed? the-struct_100)" +"(expand-context/inner-phase the-struct_100)" +"(expand-context/inner-namespace the-struct_100)" +"(expand-context/inner-just-once? the-struct_100)" " module-begin-k227_0" -"(expand-context/inner-allow-unbound? the-struct_102)" -"(expand-context/inner-in-local-expand? the-struct_102)" -"(expand-context/inner-stops the-struct_102)" -"(expand-context/inner-declared-submodule-names the-struct_102)" -"(expand-context/inner-lifts the-struct_102)" -"(expand-context/inner-lift-envs the-struct_102)" -"(expand-context/inner-module-lifts the-struct_102)" -"(expand-context/inner-require-lifts the-struct_102)" -"(expand-context/inner-to-module-lifts the-struct_102)" -"(expand-context/inner-requires+provides the-struct_102)" -"(expand-context/inner-observer the-struct_102)" -"(expand-context/inner-for-serializable? the-struct_102)" -"(expand-context/inner-should-not-encounter-macros? the-struct_102)))" -" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_102)))))" +"(expand-context/inner-allow-unbound? the-struct_100)" +"(expand-context/inner-in-local-expand? the-struct_100)" +"(expand-context/inner-stops the-struct_100)" +"(expand-context/inner-declared-submodule-names the-struct_100)" +"(expand-context/inner-lifts the-struct_100)" +"(expand-context/inner-lift-envs the-struct_100)" +"(expand-context/inner-module-lifts the-struct_100)" +"(expand-context/inner-require-lifts the-struct_100)" +"(expand-context/inner-to-module-lifts the-struct_100)" +"(expand-context/inner-requires+provides the-struct_100)" +"(expand-context/inner-observer the-struct_100)" +"(expand-context/inner-for-serializable? the-struct_100)" +"(expand-context/inner-should-not-encounter-macros? the-struct_100)))" +" (raise-argument-error 'struct-copy \"expand-context/inner?\" the-struct_100)))))" "(expand-context/outer1.1" " inner226_0" -"(root-expand-context/outer-post-expansion-scope the-struct_101)" -"(root-expand-context/outer-use-site-scopes the-struct_101)" -"(root-expand-context/outer-frame-id the-struct_101)" -"(expand-context/outer-context the-struct_101)" -"(expand-context/outer-env the-struct_101)" -"(expand-context/outer-post-expansion-scope-action the-struct_101)" -"(expand-context/outer-scopes the-struct_101)" -"(expand-context/outer-def-ctx-scopes the-struct_101)" -"(expand-context/outer-binding-layer the-struct_101)" -"(expand-context/outer-reference-records the-struct_101)" -"(expand-context/outer-only-immediate? the-struct_101)" -"(expand-context/outer-need-eventually-defined the-struct_101)" -"(expand-context/outer-current-introduction-scopes the-struct_101)" -"(expand-context/outer-name the-struct_101)))" -" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_101)))))))))" +"(root-expand-context/outer-post-expansion-scope the-struct_99)" +"(root-expand-context/outer-use-site-scopes the-struct_99)" +"(root-expand-context/outer-frame-id the-struct_99)" +"(expand-context/outer-context the-struct_99)" +"(expand-context/outer-env the-struct_99)" +"(expand-context/outer-post-expansion-scope-action the-struct_99)" +"(expand-context/outer-scopes the-struct_99)" +"(expand-context/outer-def-ctx-scopes the-struct_99)" +"(expand-context/outer-binding-layer the-struct_99)" +"(expand-context/outer-reference-records the-struct_99)" +"(expand-context/outer-only-immediate? the-struct_99)" +"(expand-context/outer-need-eventually-defined the-struct_99)" +"(expand-context/outer-current-introduction-scopes the-struct_99)" +"(expand-context/outer-name the-struct_99)))" +" (raise-argument-error 'struct-copy \"expand-context/outer?\" the-struct_99)))))))))" "(void" "(add-core-form!*" " '#%declare" -"(lambda(s_412 ctx_108)" +"(lambda(s_412 ctx_109)" "(begin" -"(let-values(((obs_120)(expand-context-observer ctx_108)))" -"(if obs_120(let-values()(let-values()(call-expand-observe obs_120 'prim-declare)))(void)))" +"(let-values(((obs_125)(expand-context-observer ctx_109)))" +"(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_412)))))" "(define-values" "(expand-module18.1)" @@ -69282,41 +69393,41 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_121)(expand-context-observer init-ctx_0)))" -"(if obs_121" +"(let-values(((obs_126)(expand-context-observer init-ctx_0)))" +"(if obs_126" "(let-values()" -"(let-values()(call-expand-observe obs_121 'prim-module)))" +"(let-values()(call-expand-observe obs_126 'prim-module)))" "(void)))" "(values))))" "(let-values(((disarmed-s_24)(syntax-disarm$1 s_16)))" "(let-values(((ok?_73 module228_0 id:module-name229_0 initial-require230_0 body231_0)" -"(let-values(((s_491) disarmed-s_24))" -"(let-values(((orig-s_78) s_491))" +"(let-values(((s_500) disarmed-s_24))" +"(let-values(((orig-s_78) s_500))" "(let-values(((module228_1" " id:module-name229_1" " initial-require230_1" " body231_1)" "(let-values(((s_315)" -"(if(syntax?$1 s_491)" -"(syntax-e$1 s_491)" -" s_491)))" +"(if(syntax?$1 s_500)" +"(syntax-e$1 s_500)" +" s_500)))" "(if(pair? s_315)" "(let-values(((module232_0)" -"(let-values(((s_752)(car s_315)))" -" s_752))" +"(let-values(((s_433)(car s_315)))" +" s_433))" "((id:module-name233_0" " initial-require234_0" " body235_0)" -"(let-values(((s_475)(cdr s_315)))" -"(let-values(((s_476)" -"(if(syntax?$1 s_475)" -"(syntax-e$1 s_475)" -" s_475)))" -"(if(pair? s_476)" +"(let-values(((s_484)(cdr s_315)))" +"(let-values(((s_485)" +"(if(syntax?$1 s_484)" +"(syntax-e$1 s_484)" +" s_484)))" +"(if(pair? s_485)" "(let-values(((id:module-name236_0)" "(let-values(((s_316)" "(car" -" s_476)))" +" s_485)))" "(if(let-values(((or-part_367)" "(if(syntax?$1" " s_316)" @@ -69338,7 +69449,7 @@ static const char *startup_source = " body238_0)" "(let-values(((s_55)" "(cdr" -" s_476)))" +" s_485)))" "(let-values(((s_317)" "(if(syntax?$1" " s_55)" @@ -69348,15 +69459,15 @@ static const char *startup_source = "(if(pair?" " s_317)" "(let-values(((initial-require239_0)" -"(let-values(((s_492)" +"(let-values(((s_435)" "(car" " s_317)))" -" s_492))" +" s_435))" "((body240_0)" "(let-values(((s_388)" "(cdr" " s_317)))" -"(let-values(((s_753)" +"(let-values(((s_436)" "(if(syntax?$1" " s_388)" "(syntax-e$1" @@ -69364,7 +69475,7 @@ static const char *startup_source = " s_388)))" "(let-values(((flat-s_51)" "(to-syntax-list.1" -" s_753)))" +" s_436)))" "(if(not" " flat-s_51)" "(let-values()" @@ -69427,7 +69538,7 @@ static const char *startup_source = " s_16" " initial-require230_0)))" "(values))))" -"(let-values(((phase_149) 0))" +"(let-values(((phase_150) 0))" "(let-values(((module-name-sym_0)(syntax-e$1 id:module-name229_0)))" "(let-values(((outside-scope_1)(new-scope 'module)))" "(let-values(((inside-scope_0)(new-multi-scope module-name-sym_0)))" @@ -69535,113 +69646,113 @@ static const char *startup_source = " #f" " #f" " temp265_1))))" -"(let-values(((ctx_109)" +"(let-values(((ctx_110)" "(let-values(((v_97)" "(copy-root-expand-context" " init-ctx_0" " root-ctx_6)))" -"(let-values(((the-struct_103)" +"(let-values(((the-struct_101)" " v_97))" "(if(expand-context/outer?" -" the-struct_103)" +" the-struct_101)" "(let-values(((post-expansion-scope-action266_0)" " add-scope)" "((inner267_0)" -"(let-values(((the-struct_104)" +"(let-values(((the-struct_102)" "(root-expand-context/outer-inner" " v_97)))" "(if(expand-context/inner?" -" the-struct_104)" +" the-struct_102)" "(let-values(((allow-unbound?268_0)" " #f)" "((namespace269_0)" " m-ns_19)" "((phase270_0)" -" phase_149)" +" phase_150)" "((just-once?271_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-module-scopes" -" the-struct_104)" +" the-struct_102)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_104)" +" the-struct_102)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_104)" +" the-struct_102)" "(root-expand-context/inner-defined-syms" -" the-struct_104)" +" the-struct_102)" "(root-expand-context/inner-counter" -" the-struct_104)" +" the-struct_102)" "(root-expand-context/inner-lift-key" -" the-struct_104)" +" the-struct_102)" "(expand-context/inner-to-parsed?" -" the-struct_104)" +" the-struct_102)" " phase270_0" " namespace269_0" " just-once?271_0" "(expand-context/inner-module-begin-k" -" the-struct_104)" +" the-struct_102)" " allow-unbound?268_0" "(expand-context/inner-in-local-expand?" -" the-struct_104)" +" the-struct_102)" "(expand-context/inner-stops" -" the-struct_104)" +" the-struct_102)" "(expand-context/inner-declared-submodule-names" -" the-struct_104)" +" the-struct_102)" "(expand-context/inner-lifts" -" the-struct_104)" +" the-struct_102)" "(expand-context/inner-lift-envs" -" the-struct_104)" +" the-struct_102)" "(expand-context/inner-module-lifts" -" the-struct_104)" +" the-struct_102)" "(expand-context/inner-require-lifts" -" the-struct_104)" +" the-struct_102)" "(expand-context/inner-to-module-lifts" -" the-struct_104)" +" the-struct_102)" "(expand-context/inner-requires+provides" -" the-struct_104)" +" the-struct_102)" "(expand-context/inner-observer" -" the-struct_104)" +" the-struct_102)" "(expand-context/inner-for-serializable?" -" the-struct_104)" +" the-struct_102)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_104)))" +" the-struct_102)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_104)))))" +" the-struct_102)))))" "(expand-context/outer1.1" " inner267_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_103)" +" the-struct_101)" "(root-expand-context/outer-use-site-scopes" -" the-struct_103)" +" the-struct_101)" "(root-expand-context/outer-frame-id" -" the-struct_103)" +" the-struct_101)" "(expand-context/outer-context" -" the-struct_103)" +" the-struct_101)" "(expand-context/outer-env" -" the-struct_103)" +" the-struct_101)" " post-expansion-scope-action266_0" "(expand-context/outer-scopes" -" the-struct_103)" +" the-struct_101)" "(expand-context/outer-def-ctx-scopes" -" the-struct_103)" +" the-struct_101)" "(expand-context/outer-binding-layer" -" the-struct_103)" +" the-struct_101)" "(expand-context/outer-reference-records" -" the-struct_103)" +" the-struct_101)" "(expand-context/outer-only-immediate?" -" the-struct_103)" +" the-struct_101)" "(expand-context/outer-need-eventually-defined" -" the-struct_103)" +" the-struct_101)" "(expand-context/outer-current-introduction-scopes" -" the-struct_103)" +" the-struct_101)" "(expand-context/outer-name" -" the-struct_103)))" +" the-struct_101)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_103))))))" +" the-struct_101))))))" "(let-values(((bodys_15)" "(let-values(((scoped-s_0)" "(apply-module-scopes_0" @@ -69693,15 +69804,15 @@ static const char *startup_source = " s_91))" "((_281_0" " body282_0)" -"(let-values(((s_733)" +"(let-values(((s_738)" "(cdr" " s_90)))" "(let-values(((s_205)" "(if(syntax?$1" -" s_733)" +" s_738)" "(syntax-e$1" -" s_733)" -" s_733)))" +" s_738)" +" s_738)))" "(if(pair?" " s_205)" "(let-values(((_283_0)" @@ -69834,14 +69945,14 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_122)" +"(let-values(((obs_127)" "(expand-context-observer" " init-ctx_0)))" -"(if obs_122" +"(if obs_127" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_122" +" obs_127" " 'prepare-env)))" "(void)))" "(values))))" @@ -69882,7 +69993,7 @@ static const char *startup_source = "(set! again?_0" " #t)" "(values))))" -"(let-values(((ctx_110)" +"(let-values(((ctx_111)" "(let-values(((v_126)" " mb-init-ctx_0))" "(let-values(((the-struct_43)" @@ -69890,11 +70001,11 @@ static const char *startup_source = "(if(expand-context/outer?" " the-struct_43)" "(let-values(((inner305_0)" -"(let-values(((the-struct_105)" +"(let-values(((the-struct_103)" "(root-expand-context/outer-inner" " v_126)))" "(if(expand-context/inner?" -" the-struct_105)" +" the-struct_103)" "(let-values(((module-begin-k306_0)" "(lambda(s_213" " ctx_3)" @@ -69943,56 +70054,56 @@ static const char *startup_source = " compiled-module-box309_0))))))))))" "(expand-context/inner2.1" "(root-expand-context/inner-module-scopes" -" the-struct_105)" +" the-struct_103)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_105)" +" the-struct_103)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_105)" +" the-struct_103)" "(root-expand-context/inner-defined-syms" -" the-struct_105)" +" the-struct_103)" "(root-expand-context/inner-counter" -" the-struct_105)" +" the-struct_103)" "(root-expand-context/inner-lift-key" -" the-struct_105)" +" the-struct_103)" "(expand-context/inner-to-parsed?" -" the-struct_105)" +" the-struct_103)" "(expand-context/inner-phase" -" the-struct_105)" +" the-struct_103)" "(expand-context/inner-namespace" -" the-struct_105)" +" the-struct_103)" "(expand-context/inner-just-once?" -" the-struct_105)" +" the-struct_103)" " module-begin-k306_0" "(expand-context/inner-allow-unbound?" -" the-struct_105)" +" the-struct_103)" "(expand-context/inner-in-local-expand?" -" the-struct_105)" +" the-struct_103)" "(expand-context/inner-stops" -" the-struct_105)" +" the-struct_103)" "(expand-context/inner-declared-submodule-names" -" the-struct_105)" +" the-struct_103)" "(expand-context/inner-lifts" -" the-struct_105)" +" the-struct_103)" "(expand-context/inner-lift-envs" -" the-struct_105)" +" the-struct_103)" "(expand-context/inner-module-lifts" -" the-struct_105)" +" the-struct_103)" "(expand-context/inner-require-lifts" -" the-struct_105)" +" the-struct_103)" "(expand-context/inner-to-module-lifts" -" the-struct_105)" +" the-struct_103)" "(expand-context/inner-requires+provides" -" the-struct_105)" +" the-struct_103)" "(expand-context/inner-observer" -" the-struct_105)" +" the-struct_103)" "(expand-context/inner-for-serializable?" -" the-struct_105)" +" the-struct_103)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_105)))" +" the-struct_103)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_105)))))" +" the-struct_103)))))" "(expand-context/outer1.1" " inner305_0" "(root-expand-context/outer-post-expansion-scope" @@ -70033,14 +70144,14 @@ static const char *startup_source = " inside-scope_0)))" "(let-values((()" "(begin" -"(let-values(((obs_123)" +"(let-values(((obs_128)" "(expand-context-observer" -" ctx_110)))" -"(if obs_123" +" ctx_111)))" +"(if obs_128" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_123" +" obs_128" " 'rename-one" " added-s_2)))" "(void)))" @@ -70071,15 +70182,15 @@ static const char *startup_source = " s_113)))" " s_116))" "((body303_1)" -"(let-values(((s_754)" +"(let-values(((s_757)" "(cdr" " s_113)))" "(let-values(((s_215)" "(if(syntax?$1" -" s_754)" +" s_757)" "(syntax-e$1" -" s_754)" -" s_754)))" +" s_757)" +" s_757)))" "(let-values(((flat-s_52)" "(to-syntax-list.1" " s_215)))" @@ -70107,7 +70218,7 @@ static const char *startup_source = " body301_1))" "(let-values(((rebuild-mb-s_0)" "(let-values(((ctx315_0)" -" ctx_110)" +" ctx_111)" "((mb-s316_0)" " mb-s_0))" "(keep-as-needed74.1" @@ -70130,7 +70241,7 @@ static const char *startup_source = "(let-values(((expression-expanded-bodys_0)" "((letrec-values(((pass-1-and-2-loop_0)" "(lambda(bodys_17" -" phase_150)" +" phase_151)" "(begin" " 'pass-1-and-2-loop" "(let-values(((def-ctx-scopes_8)" @@ -70138,14 +70249,14 @@ static const char *startup_source = " null)))" "(let-values(((to-parsed?_5)" "(expand-context-to-parsed?" -" ctx_110)))" +" ctx_111)))" "(let-values(((partial-body-ctx_0)" -"(let-values(((v_256)" -" ctx_110))" -"(let-values(((the-struct_106)" -" v_256))" +"(let-values(((v_253)" +" ctx_111))" +"(let-values(((the-struct_104)" +" v_253))" "(if(expand-context/outer?" -" the-struct_106)" +" the-struct_104)" "(let-values(((context325_0)" " 'module)" "((def-ctx-scopes326_0)" @@ -70155,20 +70266,20 @@ static const char *startup_source = "((inner328_0)" "(let-values(((the-struct_48)" "(root-expand-context/outer-inner" -" v_256)))" +" v_253)))" "(if(expand-context/inner?" " the-struct_48)" "(let-values(((phase329_0)" -" phase_150)" +" phase_151)" "((namespace330_0)" "(namespace->namespace-at-phase" " m-ns_19" -" phase_150))" +" phase_151))" "((stops331_0)" "(free-id-set" -" phase_150" +" phase_151" "(module-expand-stop-ids" -" phase_150)))" +" phase_151)))" "((declared-submodule-names332_0)" " declared-submodule-names_3)" "((lift-key333_0)" @@ -70188,11 +70299,11 @@ static const char *startup_source = " temp338_1)))" "((module-lifts335_0)" "(make-module-lift-context" -" phase_150" +" phase_151" " #t))" "((require-lifts336_0)" "(make-require-lift-context" -" phase_150" +" phase_151" "(let-values(((declared-submodule-names342_0)" " declared-submodule-names_3))" "(make-parse-lifted-require220.1" @@ -70208,7 +70319,7 @@ static const char *startup_source = "(make-to-module-lift-context27.1" " temp345_0" " module-ends344_0" -" phase_150))))" +" phase_151))))" "(expand-context/inner2.1" "(root-expand-context/inner-module-scopes" " the-struct_48)" @@ -70256,37 +70367,37 @@ static const char *startup_source = "(expand-context/outer1.1" " inner328_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_106)" +" the-struct_104)" "(root-expand-context/outer-use-site-scopes" -" the-struct_106)" +" the-struct_104)" "(root-expand-context/outer-frame-id" -" the-struct_106)" +" the-struct_104)" " context325_0" "(expand-context/outer-env" -" the-struct_106)" +" the-struct_104)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_106)" +" the-struct_104)" "(expand-context/outer-scopes" -" the-struct_106)" +" the-struct_104)" " def-ctx-scopes326_0" "(expand-context/outer-binding-layer" -" the-struct_106)" +" the-struct_104)" "(expand-context/outer-reference-records" -" the-struct_106)" +" the-struct_104)" "(expand-context/outer-only-immediate?" -" the-struct_106)" +" the-struct_104)" " need-eventually-defined327_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_106)" +" the-struct_104)" "(expand-context/outer-name" -" the-struct_106)))" +" the-struct_104)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_106))))))" +" the-struct_104))))))" "(let-values(((partially-expanded-bodys_0)" "(let-values(((phase347_0)" -" phase_150)" +" phase_151)" "((partial-body-ctx348_0)" " partial-body-ctx_0)" "((m-ns349_0)" @@ -70334,36 +70445,36 @@ static const char *startup_source = " bodys_17))))" "(let-values((()" "(begin" -"(let-values(((obs_124)" +"(let-values(((obs_129)" "(expand-context-observer" " partial-body-ctx_0)))" -"(if obs_124" +"(if obs_129" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_124" +" obs_129" " 'next-group)))" "(void)))" "(values))))" "(let-values(((body-ctx_6)" -"(let-values(((v_257)" +"(let-values(((v_254)" "(accumulate-def-ctx-scopes" " partial-body-ctx_0" " def-ctx-scopes_8)))" -"(let-values(((the-struct_107)" -" v_257))" +"(let-values(((the-struct_105)" +" v_254))" "(if(expand-context/outer?" -" the-struct_107)" +" the-struct_105)" "(let-values(((def-ctx-scopes362_0)" " #f)" "((post-expansion-scope363_0)" " #f)" "((inner364_0)" -"(let-values(((the-struct_108)" +"(let-values(((the-struct_106)" "(root-expand-context/outer-inner" -" v_257)))" +" v_254)))" "(if(expand-context/inner?" -" the-struct_108)" +" the-struct_106)" "(let-values(((stops365_0)" " empty-free-id-set)" "((to-module-lifts366_0)" @@ -70374,92 +70485,92 @@ static const char *startup_source = "(make-to-module-lift-context27.1" " temp369_0" " module-ends368_0" -" phase_150))))" +" phase_151))))" "(expand-context/inner2.1" "(root-expand-context/inner-module-scopes" -" the-struct_108)" +" the-struct_106)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_108)" +" the-struct_106)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_108)" +" the-struct_106)" "(root-expand-context/inner-defined-syms" -" the-struct_108)" +" the-struct_106)" "(root-expand-context/inner-counter" -" the-struct_108)" +" the-struct_106)" "(root-expand-context/inner-lift-key" -" the-struct_108)" +" the-struct_106)" "(expand-context/inner-to-parsed?" -" the-struct_108)" +" the-struct_106)" "(expand-context/inner-phase" -" the-struct_108)" +" the-struct_106)" "(expand-context/inner-namespace" -" the-struct_108)" +" the-struct_106)" "(expand-context/inner-just-once?" -" the-struct_108)" +" the-struct_106)" "(expand-context/inner-module-begin-k" -" the-struct_108)" +" the-struct_106)" "(expand-context/inner-allow-unbound?" -" the-struct_108)" +" the-struct_106)" "(expand-context/inner-in-local-expand?" -" the-struct_108)" +" the-struct_106)" " stops365_0" "(expand-context/inner-declared-submodule-names" -" the-struct_108)" +" the-struct_106)" "(expand-context/inner-lifts" -" the-struct_108)" +" the-struct_106)" "(expand-context/inner-lift-envs" -" the-struct_108)" +" the-struct_106)" "(expand-context/inner-module-lifts" -" the-struct_108)" +" the-struct_106)" "(expand-context/inner-require-lifts" -" the-struct_108)" +" the-struct_106)" " to-module-lifts366_0" "(expand-context/inner-requires+provides" -" the-struct_108)" +" the-struct_106)" "(expand-context/inner-observer" -" the-struct_108)" +" the-struct_106)" "(expand-context/inner-for-serializable?" -" the-struct_108)" +" the-struct_106)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_108)))" +" the-struct_106)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_108)))))" +" the-struct_106)))))" "(expand-context/outer1.1" " inner364_0" " post-expansion-scope363_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_107)" +" the-struct_105)" "(root-expand-context/outer-frame-id" -" the-struct_107)" +" the-struct_105)" "(expand-context/outer-context" -" the-struct_107)" +" the-struct_105)" "(expand-context/outer-env" -" the-struct_107)" +" the-struct_105)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_107)" +" the-struct_105)" "(expand-context/outer-scopes" -" the-struct_107)" +" the-struct_105)" " def-ctx-scopes362_0" "(expand-context/outer-binding-layer" -" the-struct_107)" +" the-struct_105)" "(expand-context/outer-reference-records" -" the-struct_107)" +" the-struct_105)" "(expand-context/outer-only-immediate?" -" the-struct_107)" +" the-struct_105)" "(expand-context/outer-need-eventually-defined" -" the-struct_107)" +" the-struct_105)" "(expand-context/outer-current-introduction-scopes" -" the-struct_107)" +" the-struct_105)" "(expand-context/outer-name" -" the-struct_107)))" +" the-struct_105)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_107))))))" +" the-struct_105))))))" "(let-values(((phase318_0)" -" phase_150)" +" phase_151)" "((body-ctx319_0)" " body-ctx_6)" "((self320_0)" @@ -70483,24 +70594,24 @@ static const char *startup_source = " partially-expanded-bodys_0))))))))))))" " pass-1-and-2-loop_0)" " bodys_16" -" phase_149)))" +" phase_150)))" "(let-values((()" "(begin" "(check-defined-by-now" " need-eventually-defined_1" " self_30" -" ctx_110)" +" ctx_111)" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_125)" +"(let-values(((obs_130)" "(expand-context-observer" -" ctx_110)))" -"(if obs_125" +" ctx_111)))" +"(if obs_130" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_125" +" obs_130" " 'next-group)))" "(void)))" "(values))))" @@ -70512,11 +70623,11 @@ static const char *startup_source = "((m-ns373_0)" " m-ns_19)" "((phase374_0)" -" phase_149)" +" phase_150)" "((self375_0)" " self_30)" "((ctx376_1)" -" ctx_110))" +" ctx_111))" "(resolve-provides115.1" " ctx376_1" " declared-submodule-names372_0" @@ -70553,14 +70664,14 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_68)" +"(let-values(((obs_74)" "(expand-context-observer" -" ctx_110)))" -"(if obs_68" +" ctx_111)))" +"(if obs_74" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_68" +" obs_74" " 'next)))" "(void)))" "(values))))" @@ -70572,108 +70683,108 @@ static const char *startup_source = " #t" " m-ns_19))))" "(let-values(((submod-ctx_0)" -"(let-values(((v_258)" -" ctx_110))" -"(let-values(((the-struct_109)" -" v_258))" +"(let-values(((v_255)" +" ctx_111))" +"(let-values(((the-struct_107)" +" v_255))" "(if(expand-context/outer?" -" the-struct_109)" +" the-struct_107)" "(let-values(((frame-id379_0)" " #f)" "((post-expansion-scope380_0)" " #f)" "((inner381_0)" -"(let-values(((the-struct_110)" +"(let-values(((the-struct_108)" "(root-expand-context/outer-inner" -" v_258)))" +" v_255)))" "(if(expand-context/inner?" -" the-struct_110)" +" the-struct_108)" "(let-values(((namespace382_0)" " submod-m-ns_0))" "(expand-context/inner2.1" "(root-expand-context/inner-module-scopes" -" the-struct_110)" +" the-struct_108)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_110)" +" the-struct_108)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_110)" +" the-struct_108)" "(root-expand-context/inner-defined-syms" -" the-struct_110)" +" the-struct_108)" "(root-expand-context/inner-counter" -" the-struct_110)" +" the-struct_108)" "(root-expand-context/inner-lift-key" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-to-parsed?" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-phase" -" the-struct_110)" +" the-struct_108)" " namespace382_0" "(expand-context/inner-just-once?" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-module-begin-k" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-allow-unbound?" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-in-local-expand?" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-stops" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-declared-submodule-names" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-lifts" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-lift-envs" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-module-lifts" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-require-lifts" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-to-module-lifts" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-requires+provides" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-observer" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-for-serializable?" -" the-struct_110)" +" the-struct_108)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_110)))" +" the-struct_108)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_110)))))" +" the-struct_108)))))" "(expand-context/outer1.1" " inner381_0" " post-expansion-scope380_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_109)" +" the-struct_107)" " frame-id379_0" "(expand-context/outer-context" -" the-struct_109)" +" the-struct_107)" "(expand-context/outer-env" -" the-struct_109)" +" the-struct_107)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_109)" +" the-struct_107)" "(expand-context/outer-scopes" -" the-struct_109)" +" the-struct_107)" "(expand-context/outer-def-ctx-scopes" -" the-struct_109)" +" the-struct_107)" "(expand-context/outer-binding-layer" -" the-struct_109)" +" the-struct_107)" "(expand-context/outer-reference-records" -" the-struct_109)" +" the-struct_107)" "(expand-context/outer-only-immediate?" -" the-struct_109)" +" the-struct_107)" "(expand-context/outer-need-eventually-defined" -" the-struct_109)" +" the-struct_107)" "(expand-context/outer-current-introduction-scopes" -" the-struct_109)" +" the-struct_107)" "(expand-context/outer-name" -" the-struct_109)))" +" the-struct_107)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_109))))))" +" the-struct_107))))))" "(let-values(((declare-enclosing-module_0)" "(delay" "(lambda()" @@ -70720,7 +70831,7 @@ static const char *startup_source = "(let-values(((declare-enclosing-module395_0)" " declare-enclosing-module_0)" "((phase396_0)" -" phase_149)" +" phase_150)" "((self397_0)" " self_30)" "((requires+provides398_0)" @@ -70786,108 +70897,108 @@ static const char *startup_source = "(let-values()" " mb-result-s_0)))))))))))))))))))))))))))))))))" "(let-values(((mb-ctx_0)" -"(let-values(((v_259)" -" ctx_109))" -"(let-values(((the-struct_111)" -" v_259))" +"(let-values(((v_256)" +" ctx_110))" +"(let-values(((the-struct_109)" +" v_256))" "(if(expand-context/outer?" -" the-struct_111)" +" the-struct_109)" "(let-values(((context408_0)" " 'module-begin)" "((inner409_0)" -"(let-values(((the-struct_112)" +"(let-values(((the-struct_110)" "(root-expand-context/outer-inner" -" v_259)))" +" v_256)))" "(if(expand-context/inner?" -" the-struct_112)" +" the-struct_110)" "(let-values(((module-begin-k410_0)" " module-begin-k_1)" "((in-local-expand?411_0)" " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-module-scopes" -" the-struct_112)" +" the-struct_110)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_112)" +" the-struct_110)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_112)" +" the-struct_110)" "(root-expand-context/inner-defined-syms" -" the-struct_112)" +" the-struct_110)" "(root-expand-context/inner-counter" -" the-struct_112)" +" the-struct_110)" "(root-expand-context/inner-lift-key" -" the-struct_112)" +" the-struct_110)" "(expand-context/inner-to-parsed?" -" the-struct_112)" +" the-struct_110)" "(expand-context/inner-phase" -" the-struct_112)" +" the-struct_110)" "(expand-context/inner-namespace" -" the-struct_112)" +" the-struct_110)" "(expand-context/inner-just-once?" -" the-struct_112)" +" the-struct_110)" " module-begin-k410_0" "(expand-context/inner-allow-unbound?" -" the-struct_112)" +" the-struct_110)" " in-local-expand?411_0" "(expand-context/inner-stops" -" the-struct_112)" +" the-struct_110)" "(expand-context/inner-declared-submodule-names" -" the-struct_112)" +" the-struct_110)" "(expand-context/inner-lifts" -" the-struct_112)" +" the-struct_110)" "(expand-context/inner-lift-envs" -" the-struct_112)" +" the-struct_110)" "(expand-context/inner-module-lifts" -" the-struct_112)" +" the-struct_110)" "(expand-context/inner-require-lifts" -" the-struct_112)" +" the-struct_110)" "(expand-context/inner-to-module-lifts" -" the-struct_112)" +" the-struct_110)" "(expand-context/inner-requires+provides" -" the-struct_112)" +" the-struct_110)" "(expand-context/inner-observer" -" the-struct_112)" +" the-struct_110)" "(expand-context/inner-for-serializable?" -" the-struct_112)" +" the-struct_110)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_112)))" +" the-struct_110)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_112)))))" +" the-struct_110)))))" "(expand-context/outer1.1" " inner409_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_111)" +" the-struct_109)" "(root-expand-context/outer-use-site-scopes" -" the-struct_111)" +" the-struct_109)" "(root-expand-context/outer-frame-id" -" the-struct_111)" +" the-struct_109)" " context408_0" "(expand-context/outer-env" -" the-struct_111)" +" the-struct_109)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_111)" +" the-struct_109)" "(expand-context/outer-scopes" -" the-struct_111)" +" the-struct_109)" "(expand-context/outer-def-ctx-scopes" -" the-struct_111)" +" the-struct_109)" "(expand-context/outer-binding-layer" -" the-struct_111)" +" the-struct_109)" "(expand-context/outer-reference-records" -" the-struct_111)" +" the-struct_109)" "(expand-context/outer-only-immediate?" -" the-struct_111)" +" the-struct_109)" "(expand-context/outer-need-eventually-defined" -" the-struct_111)" +" the-struct_109)" "(expand-context/outer-current-introduction-scopes" -" the-struct_111)" +" the-struct_109)" "(expand-context/outer-name" -" the-struct_111)))" +" the-struct_109)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_111))))))" +" the-struct_109))))))" "(let-values(((mb-scopes-s_0)" "(if keep-enclosing-scope-at-phase_0" " disarmed-s_24" @@ -70907,7 +71018,7 @@ static const char *startup_source = "((mb-def-ctx-scopes417_0)" " mb-def-ctx-scopes_0)" "((phase418_0)" -" phase_149)" +" phase_150)" "((s419_0)" " s_16))" "(ensure-module-begin36.1" @@ -70991,18 +71102,18 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_216)))" -"((letrec-values(((for-loop_311)" -"(lambda(lst_411)" +"((letrec-values(((for-loop_310)" +"(lambda(lst_410)" "(begin" " 'for-loop" "(if(pair?" -" lst_411)" +" lst_410)" "(let-values(((mpi_54)" "(unsafe-car" -" lst_411))" +" lst_410))" "((rest_114)" "(unsafe-cdr" -" lst_411)))" +" lst_410)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -71015,11 +71126,11 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_311" +"(for-loop_310" " rest_114)" "(values))))" "(values))))))" -" for-loop_311)" +" for-loop_310)" " lst_216)))" "(void)" "(let-values(((result-s_15)" @@ -71067,14 +71178,14 @@ static const char *startup_source = " #t)" " result-s_17)))" "(begin" -"(let-values(((obs_126)" +"(let-values(((obs_131)" "(expand-context-observer" " init-ctx_0)))" -"(if obs_126" +"(if obs_131" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_126" +" obs_131" " 'rename-one" " result-s_18)))" "(void)))" @@ -71100,55 +71211,55 @@ static const char *startup_source = "(let-values(((module-name-sym_1) module-name-sym21_0))" "(let-values(((scopes-s_0) scopes-s22_0))" "(let-values()" -"(let-values(((ctx_111) ctx24_0))" +"(let-values(((ctx_112) ctx24_0))" "(let-values(((def-ctx-scopes_9) def-ctx-scopes25_0))" -"(let-values(((phase_151) phase26_2))" -"(let-values(((s_755) s27_2))" +"(let-values(((phase_152) phase26_2))" +"(let-values(((s_758) s27_2))" "(let-values()" "(let-values(((make-mb-ctx_0)" "(lambda()" "(begin" " 'make-mb-ctx" -"(let-values(((v_260) ctx_111))" -"(let-values(((the-struct_113) v_260))" -"(if(expand-context/outer? the-struct_113)" +"(let-values(((v_257) ctx_112))" +"(let-values(((the-struct_111) v_257))" +"(if(expand-context/outer? the-struct_111)" "(let-values(((context427_0) 'module-begin)" "((only-immediate?428_0) #t)" "((def-ctx-scopes429_0) def-ctx-scopes_9)" -"((inner430_0)(root-expand-context/outer-inner v_260)))" +"((inner430_0)(root-expand-context/outer-inner v_257)))" "(expand-context/outer1.1" " inner430_0" -"(root-expand-context/outer-post-expansion-scope the-struct_113)" -"(root-expand-context/outer-use-site-scopes the-struct_113)" -"(root-expand-context/outer-frame-id the-struct_113)" +"(root-expand-context/outer-post-expansion-scope the-struct_111)" +"(root-expand-context/outer-use-site-scopes the-struct_111)" +"(root-expand-context/outer-frame-id the-struct_111)" " context427_0" -"(expand-context/outer-env the-struct_113)" -"(expand-context/outer-post-expansion-scope-action the-struct_113)" -"(expand-context/outer-scopes the-struct_113)" +"(expand-context/outer-env the-struct_111)" +"(expand-context/outer-post-expansion-scope-action the-struct_111)" +"(expand-context/outer-scopes the-struct_111)" " def-ctx-scopes429_0" -"(expand-context/outer-binding-layer the-struct_113)" -"(expand-context/outer-reference-records the-struct_113)" +"(expand-context/outer-binding-layer the-struct_111)" +"(expand-context/outer-reference-records the-struct_111)" " only-immediate?428_0" -"(expand-context/outer-need-eventually-defined the-struct_113)" -"(expand-context/outer-current-introduction-scopes the-struct_113)" -"(expand-context/outer-name the-struct_113)))" +"(expand-context/outer-need-eventually-defined the-struct_111)" +"(expand-context/outer-current-introduction-scopes the-struct_111)" +"(expand-context/outer-name the-struct_111)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_113))))))))" +" the-struct_111))))))))" "(let-values(((mb_1)" "(if(= 1(length bodys_18))" "(let-values()" "(begin" -"(let-values(((obs_127)(expand-context-observer ctx_111)))" -"(if obs_127" +"(let-values(((obs_132)(expand-context-observer ctx_112)))" +"(if obs_132" "(let-values()" "(let-values()" -"(call-expand-observe obs_127 'rename-one(car bodys_18))))" +"(call-expand-observe obs_132 'rename-one(car bodys_18))))" "(void)))" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_151))" +"(core-form-sym(syntax-disarm$1(car bodys_18)) phase_152))" "(let-values()(car bodys_18))" "(let-values()" "(let-values(((partly-expanded-body_0)" @@ -71163,13 +71274,13 @@ static const char *startup_source = " '#%module-begin" "(core-form-sym" "(syntax-disarm$1 partly-expanded-body_0)" -" phase_151))" +" phase_152))" "(let-values() partly-expanded-body_0)" "(let-values()" "(let-values(((temp433_0)(list partly-expanded-body_0))" -"((s434_0) s_755)" +"((s434_0) s_758)" "((scopes-s435_0) scopes-s_0)" -"((phase436_0) phase_151)" +"((phase436_0) phase_152)" "((module-name-sym437_0) module-name-sym_1)" "((temp438_0)(make-mb-ctx_0))" "((temp439_0) #f))" @@ -71184,9 +71295,9 @@ static const char *startup_source = " temp438_0)))))))))" "(let-values()" "(let-values(((bodys440_0) bodys_18)" -"((s441_0) s_755)" +"((s441_0) s_758)" "((scopes-s442_0) scopes-s_0)" -"((phase443_0) phase_151)" +"((phase443_0) phase_152)" "((module-name-sym444_0) module-name-sym_1)" "((temp445_0)(make-mb-ctx_0)))" "(add-module-begin47.1" @@ -71212,9 +71323,9 @@ static const char *startup_source = "(begin" " 'add-module-begin47" "(let-values(((bodys_19) bodys41_0))" -"(let-values(((s_756) s42_0))" +"(let-values(((s_759) s42_0))" "(let-values(((scopes-s_1) scopes-s43_0))" -"(let-values(((phase_152) phase44_1))" +"(let-values(((phase_153) phase44_1))" "(let-values(((module-name-sym_2) module-name-sym45_0))" "(let-values(((mb-ctx_1) mb-ctx46_0))" "(let-values(((log-rename-one?_0)(if log-rename-one?40_0 log-rename-one?39_0 #t)))" @@ -71223,33 +71334,33 @@ static const char *startup_source = "(let-values(((mb-id_0)(datum->syntax$1 disarmed-scopes-s_0 '#%module-begin)))" "(let-values((()" "(begin" -"(if(let-values(((mb-id446_0) mb-id_0)((phase447_0) phase_152))" +"(if(let-values(((mb-id446_0) mb-id_0)((phase447_0) phase_153))" "(resolve33.1 #f #f #f #f #f #f #f #f mb-id446_0 phase447_0))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"no #%module-begin binding in the module's language\"" -" s_756)))" +" s_759)))" "(values))))" -"(let-values(((mb_2)(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_756)))" +"(let-values(((mb_2)(datum->syntax$1 disarmed-scopes-s_0(list* mb-id_0 bodys_19) s_759)))" "(let-values((()" "(begin" -"(let-values(((obs_128)(expand-context-observer mb-ctx_1)))" -"(if obs_128" +"(let-values(((obs_133)(expand-context-observer mb-ctx_1)))" +"(if obs_133" "(let-values()" -"(let-values()(call-expand-observe obs_128 'tag mb_2)))" +"(let-values()(call-expand-observe obs_133 'tag mb_2)))" "(void)))" "(values))))" "(let-values((()" "(begin" "(if log-rename-one?_0" "(let-values()" -"(let-values(((obs_129)(expand-context-observer mb-ctx_1)))" -"(if obs_129" +"(let-values(((obs_134)(expand-context-observer mb-ctx_1)))" +"(if obs_134" "(let-values()" "(let-values()" -"(call-expand-observe obs_129 'rename-one mb_2)))" +"(call-expand-observe obs_134 'rename-one mb_2)))" "(void))))" "(void))" "(values))))" @@ -71262,13 +71373,13 @@ static const char *startup_source = "(begin" "(if(eq?" " '#%module-begin" -"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_152))" +"(core-form-sym(syntax-disarm$1 partly-expanded-mb_0) phase_153))" "(void)" "(let-values()" "(raise-syntax-error$1" " #f" " \"expansion of #%module-begin is not a #%plain-module-begin form\"" -" s_756" +" s_759" " partly-expanded-mb_0)))" " partly-expanded-mb_0)))))))))))))))))))" "(define-values" @@ -71284,13 +71395,13 @@ static const char *startup_source = " enclosing-self_2" " enclosing-mod_2)" "(begin" -"(lambda(s_757)" +"(lambda(s_760)" "(let-values()" "(let-values(((s-without-enclosing_0)" "(if keep-enclosing-scope-at-phase_1" -" s_757" +" s_760" "(remove-use-site-scopes" -"(remove-scopes s_757(root-expand-context-module-scopes init-ctx_1))" +"(remove-scopes s_760(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)))" @@ -71342,7 +71453,7 @@ static const char *startup_source = "(begin" " 'partially-expand-bodys81" "(let-values(((bodys_20) bodys80_0))" -"(let-values(((phase_153) phase50_0))" +"(let-values(((phase_154) phase50_0))" "(let-values(((partial-body-ctx_1) ctx51_0))" "(let-values(((m-ns_20) namespace52_0))" "(let-values(((self_32) self53_0))" @@ -71359,24 +71470,24 @@ static const char *startup_source = "(let-values(((pass-1-and-2-loop_1) loop64_0))" "(let-values()" "(begin" -"(namespace-visit-available-modules! m-ns_20 phase_153)" +"(namespace-visit-available-modules! m-ns_20 phase_154)" "((letrec-values(((loop_128)" "(lambda(tail?_53 bodys_21)" "(begin" " 'loop" "(if(null? bodys_21)" "(let-values()" -"(if(if tail?_53(not(zero? phase_153)) #f)" +"(if(if tail?_53(not(zero? phase_154)) #f)" "(let-values()" "(begin" -"(let-values(((obs_130)" +"(let-values(((obs_135)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_130" +"(if obs_135" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_130" +" obs_135" " 'module-lift-end-loop" " '())))" "(void)))" @@ -71392,14 +71503,14 @@ static const char *startup_source = "(expand-context-to-module-lifts" " partial-body-ctx_1)))))" "(begin" -"(let-values(((obs_131)" +"(let-values(((obs_136)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_131" +"(if obs_136" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_131" +" obs_136" " 'module-lift-end-loop" " bodys_22)))" "(void)))" @@ -71416,14 +71527,14 @@ static const char *startup_source = "(let-values(((rest-bodys_1)(cdr bodys_21)))" "(let-values((()" "(begin" -"(let-values(((obs_132)" +"(let-values(((obs_137)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_132" +"(if obs_137" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_132" +" obs_137" " 'next)))" "(void)))" "(values))))" @@ -71455,14 +71566,14 @@ static const char *startup_source = " exp-body_7" " rest-bodys_1))" "(void))" -"(let-values(((obs_133)" +"(let-values(((obs_138)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_133" +"(if obs_138" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_133" +" obs_138" " 'rename-one" " exp-body_7)))" "(void)))" @@ -71473,7 +71584,7 @@ static const char *startup_source = "(let-values(((tmp_64)" "(core-form-sym" " disarmed-exp-body_1" -" phase_153)))" +" phase_154)))" "(if(equal?" " tmp_64" " 'begin)" @@ -71481,38 +71592,38 @@ static const char *startup_source = "(let-values(((ok?_75" " begin459_0" " e460_0)" -"(let-values(((s_758)" +"(let-values(((s_761)" " disarmed-exp-body_1))" "(let-values(((orig-s_81)" -" s_758))" +" s_761))" "(let-values(((begin459_1" " e460_1)" -"(let-values(((s_759)" -"(if(syntax?$1" -" s_758)" -"(syntax-e$1" -" s_758)" -" s_758)))" -"(if(pair?" -" s_759)" -"(let-values(((begin461_0)" -"(let-values(((s_760)" -"(car" -" s_759)))" -" s_760))" -"((e462_0)" -"(let-values(((s_761)" -"(cdr" -" s_759)))" "(let-values(((s_762)" "(if(syntax?$1" " s_761)" "(syntax-e$1" " s_761)" " s_761)))" +"(if(pair?" +" s_762)" +"(let-values(((begin461_0)" +"(let-values(((s_763)" +"(car" +" s_762)))" +" s_763))" +"((e462_0)" +"(let-values(((s_764)" +"(cdr" +" s_762)))" +"(let-values(((s_765)" +"(if(syntax?$1" +" s_764)" +"(syntax-e$1" +" s_764)" +" s_764)))" "(let-values(((flat-s_53)" "(to-syntax-list.1" -" s_762)))" +" s_765)))" "(if(not" " flat-s_53)" "(let-values()" @@ -71547,14 +71658,14 @@ static const char *startup_source = " e460_0)" " rest-bodys_1)))" "(begin" -"(let-values(((obs_134)" +"(let-values(((obs_139)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_134" +"(if obs_139" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_134" +" obs_139" " 'splice" " spliced-bodys_0)))" "(void)))" @@ -71567,22 +71678,22 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_135)" +"(let-values(((obs_140)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_135" +"(if obs_140" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_135" +" obs_140" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_135" +" obs_140" " 'prim-begin-for-syntax)" "(call-expand-observe" -" obs_135" +" obs_140" " 'prepare-env))))" "(void)))" "(values))))" @@ -71590,7 +71701,7 @@ static const char *startup_source = "(namespace->namespace-at-phase" " m-ns_20" "(add1" -" phase_153))))" +" phase_154))))" "(let-values((()" "(begin" "(prepare-next-phase-namespace" @@ -71598,52 +71709,52 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_136)" +"(let-values(((obs_141)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_136" +"(if obs_141" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_136" +" obs_141" " 'phase-up)))" "(void)))" "(values))))" "(let-values(((ok?_76" " begin-for-syntax463_0" " e464_0)" -"(let-values(((s_763)" +"(let-values(((s_766)" " disarmed-exp-body_1))" "(let-values(((orig-s_82)" -" s_763))" +" s_766))" "(let-values(((begin-for-syntax463_1" " e464_1)" -"(let-values(((s_764)" -"(if(syntax?$1" -" s_763)" -"(syntax-e$1" -" s_763)" -" s_763)))" -"(if(pair?" -" s_764)" -"(let-values(((begin-for-syntax465_0)" -"(let-values(((s_765)" -"(car" -" s_764)))" -" s_765))" -"((e466_0)" -"(let-values(((s_766)" -"(cdr" -" s_764)))" "(let-values(((s_767)" "(if(syntax?$1" " s_766)" "(syntax-e$1" " s_766)" " s_766)))" +"(if(pair?" +" s_767)" +"(let-values(((begin-for-syntax465_0)" +"(let-values(((s_768)" +"(car" +" s_767)))" +" s_768))" +"((e466_0)" +"(let-values(((s_769)" +"(cdr" +" s_767)))" +"(let-values(((s_770)" +"(if(syntax?$1" +" s_769)" +"(syntax-e$1" +" s_769)" +" s_769)))" "(let-values(((flat-s_54)" "(to-syntax-list.1" -" s_767)))" +" s_770)))" "(if(not" " flat-s_54)" "(let-values()" @@ -71668,40 +71779,40 @@ static const char *startup_source = "(pass-1-and-2-loop_1" " e464_0" "(add1" -" phase_153))))" +" phase_154))))" "(begin" -"(let-values(((obs_137)" +"(let-values(((obs_142)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_137" +"(if obs_142" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_137" +" obs_142" " 'next-group)))" "(void)))" "(namespace-run-available-modules!" " m-ns_20" "(add1" -" phase_153))" +" phase_154))" "(eval-nested-bodys" " nested-bodys_1" "(add1" -" phase_153)" +" phase_154)" " ct-m-ns_0" " self_32" " partial-body-ctx_1)" "(namespace-visit-available-modules!" " m-ns_20" -" phase_153)" -"(let-values(((obs_138)" +" phase_154)" +"(let-values(((obs_143)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_138" +"(if obs_143" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_138" +" obs_143" " 'exit-prim" "(let-values(((s-nested-bodys_0)" "(reverse$1" @@ -71714,23 +71825,23 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_47)))" -"((letrec-values(((for-loop_312)" -"(lambda(fold-var_358" -" lst_412)" +"((letrec-values(((for-loop_311)" +"(lambda(fold-var_351" +" lst_411)" "(begin" " 'for-loop" "(if(pair?" -" lst_412)" +" lst_411)" "(let-values(((nested-body_0)" "(unsafe-car" -" lst_412))" +" lst_411))" "((rest_246)" "(unsafe-cdr" -" lst_412)))" +" lst_411)))" "(let-values(((fold-var_124)" "(let-values(((fold-var_125)" -" fold-var_358))" -"(let-values(((fold-var_363)" +" fold-var_351))" +"(let-values(((fold-var_356)" "(let-values()" "(cons" "(let-values()" @@ -71738,15 +71849,15 @@ static const char *startup_source = " nested-body_0))" " fold-var_125))))" "(values" -" fold-var_363)))))" +" fold-var_356)))))" "(if(not" " #f)" -"(for-loop_312" +"(for-loop_311" " fold-var_124" " rest_246)" " fold-var_124)))" -" fold-var_358)))))" -" for-loop_312)" +" fold-var_351)))))" +" for-loop_311)" " null" " lst_47))))))" "(datum->syntax$1" @@ -71769,19 +71880,19 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_139)" +"(let-values(((obs_144)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_139" +"(if obs_144" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_139" +" obs_144" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_139" +" obs_144" " 'prim-define-values))))" "(void)))" "(values))))" @@ -71789,52 +71900,52 @@ static const char *startup_source = " define-values467_0" " id468_0" " rhs469_0)" -"(let-values(((s_768)" +"(let-values(((s_771)" " disarmed-exp-body_1))" "(let-values(((orig-s_83)" -" s_768))" +" s_771))" "(let-values(((define-values467_1" " id468_1" " rhs469_1)" -"(let-values(((s_769)" -"(if(syntax?$1" -" s_768)" -"(syntax-e$1" -" s_768)" -" s_768)))" -"(if(pair?" -" s_769)" -"(let-values(((define-values470_0)" -"(let-values(((s_770)" -"(car" -" s_769)))" -" s_770))" -"((id471_0" -" rhs472_0)" -"(let-values(((s_771)" -"(cdr" -" s_769)))" -"(let-values(((s_525)" +"(let-values(((s_772)" "(if(syntax?$1" " s_771)" "(syntax-e$1" " s_771)" " s_771)))" "(if(pair?" -" s_525)" -"(let-values(((id473_0)" -"(let-values(((s_526)" +" s_772)" +"(let-values(((define-values470_0)" +"(let-values(((s_773)" "(car" -" s_525)))" -"(let-values(((s_527)" +" s_772)))" +" s_773))" +"((id471_0" +" rhs472_0)" +"(let-values(((s_774)" +"(cdr" +" s_772)))" +"(let-values(((s_531)" "(if(syntax?$1" -" s_526)" +" s_774)" "(syntax-e$1" -" s_526)" -" s_526)))" +" s_774)" +" s_774)))" +"(if(pair?" +" s_531)" +"(let-values(((id473_0)" +"(let-values(((s_532)" +"(car" +" s_531)))" +"(let-values(((s_533)" +"(if(syntax?$1" +" s_532)" +"(syntax-e$1" +" s_532)" +" s_532)))" "(let-values(((flat-s_55)" "(to-syntax-list.1" -" s_527)))" +" s_533)))" "(if(not" " flat-s_55)" "(let-values()" @@ -71844,7 +71955,7 @@ static const char *startup_source = " orig-s_83))" "(let-values()" "(let-values(((id_144)" -"(let-values(((lst_413)" +"(let-values(((lst_412)" " flat-s_55))" "(begin" "(if(variable-reference-from-unsafe?" @@ -71852,20 +71963,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_413)))" -"((letrec-values(((for-loop_313)" +" lst_412)))" +"((letrec-values(((for-loop_312)" "(lambda(id_145" -" lst_414)" +" lst_413)" "(begin" " 'for-loop" "(if(pair?" -" lst_414)" -"(let-values(((s_772)" +" lst_413)" +"(let-values(((s_775)" "(unsafe-car" -" lst_414))" +" lst_413))" "((rest_247)" "(unsafe-cdr" -" lst_414)))" +" lst_413)))" "(let-values(((id_146)" "(let-values(((id_147)" " id_145))" @@ -71875,21 +71986,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_396)" "(if(syntax?$1" -" s_772)" +" s_775)" "(symbol?" "(syntax-e$1" -" s_772))" +" s_775))" " #f)))" "(if or-part_396" " or-part_396" "(symbol?" -" s_772)))" -" s_772" +" s_775)))" +" s_775" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_83" -" s_772)))))" +" s_775)))))" "(cons" " id483_0" " id_147)))))" @@ -71897,45 +72008,45 @@ static const char *startup_source = " id_148)))))" "(if(not" " #f)" -"(for-loop_313" +"(for-loop_312" " id_146" " rest_247)" " id_146)))" " id_145)))))" -" for-loop_313)" +" for-loop_312)" " null" -" lst_413)))))" +" lst_412)))))" "(reverse$1" " id_144))))))))" "((rhs474_0)" -"(let-values(((s_773)" +"(let-values(((s_776)" "(cdr" -" s_525)))" -"(let-values(((s_774)" +" s_531)))" +"(let-values(((s_777)" "(if(syntax?$1" -" s_773)" +" s_776)" "(syntax-e$1" -" s_773)" -" s_773)))" +" s_776)" +" s_776)))" "(if(pair?" -" s_774)" +" s_777)" "(let-values(((rhs475_0)" -"(let-values(((s_775)" +"(let-values(((s_778)" "(car" -" s_774)))" -" s_775))" +" s_777)))" +" s_778))" "(()" "(let-values(((s_190)" "(cdr" -" s_774)))" -"(let-values(((s_776)" +" s_777)))" +"(let-values(((s_779)" "(if(syntax?$1" " s_190)" "(syntax-e$1" " s_190)" " s_190)))" "(if(null?" -" s_776)" +" s_779)" "(values)" "(raise-syntax-error$1" " #f" @@ -71976,7 +72087,7 @@ static const char *startup_source = "(let-values(((ids476_0)" " ids_39)" "((phase477_0)" -" phase_153)" +" phase_154)" "((exp-body478_0)" " exp-body_7))" "(check-no-duplicate-ids8.1" @@ -71995,7 +72106,7 @@ static const char *startup_source = "(check-ids-unbound173.1" " exp-body482_0" " ids_39" -" phase_153" +" phase_154" " requires+provides_7))" "(values))))" "(let-values(((syms_24)" @@ -72018,21 +72129,21 @@ static const char *startup_source = " ids_39" " defined-syms_11" " self_32" -" phase_153" +" phase_154" " all-scopes-stx_5))))" "(begin" "(add-defined-syms!" " requires+provides_7" " syms_24" -" phase_153)" -"(let-values(((obs_140)" +" phase_154)" +"(let-values(((obs_145)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_140" +"(if obs_145" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_140" +" obs_145" " 'exit-prim" "(datum->syntax$1" " #f" @@ -72057,22 +72168,22 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_141)" +"(let-values(((obs_146)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_141" +"(if obs_146" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_141" +" obs_146" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_141" +" obs_146" " 'prim-define-syntaxes)" "(call-expand-observe" -" obs_141" +" obs_146" " 'prepare-env))))" "(void)))" "(values))))" @@ -72083,14 +72194,14 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_142)" +"(let-values(((obs_147)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_142" +"(if obs_147" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_142" +" obs_147" " 'phase-up)))" "(void)))" "(values))))" @@ -72098,52 +72209,52 @@ static const char *startup_source = " define-syntaxes492_0" " id493_0" " rhs494_0)" -"(let-values(((s_777)" +"(let-values(((s_780)" " disarmed-exp-body_1))" "(let-values(((orig-s_84)" -" s_777))" +" s_780))" "(let-values(((define-syntaxes492_1" " id493_1" " rhs494_1)" -"(let-values(((s_778)" +"(let-values(((s_781)" "(if(syntax?$1" -" s_777)" +" s_780)" "(syntax-e$1" -" s_777)" -" s_777)))" +" s_780)" +" s_780)))" "(if(pair?" -" s_778)" +" s_781)" "(let-values(((define-syntaxes495_0)" -"(let-values(((s_779)" +"(let-values(((s_782)" "(car" -" s_778)))" -" s_779))" +" s_781)))" +" s_782))" "((id496_0" " rhs497_0)" -"(let-values(((s_535)" +"(let-values(((s_541)" "(cdr" -" s_778)))" -"(let-values(((s_780)" +" s_781)))" +"(let-values(((s_783)" "(if(syntax?$1" -" s_535)" +" s_541)" "(syntax-e$1" -" s_535)" -" s_535)))" +" s_541)" +" s_541)))" "(if(pair?" -" s_780)" +" s_783)" "(let-values(((id498_0)" -"(let-values(((s_537)" +"(let-values(((s_543)" "(car" -" s_780)))" -"(let-values(((s_538)" +" s_783)))" +"(let-values(((s_544)" "(if(syntax?$1" -" s_537)" +" s_543)" "(syntax-e$1" -" s_537)" -" s_537)))" +" s_543)" +" s_543)))" "(let-values(((flat-s_40)" "(to-syntax-list.1" -" s_538)))" +" s_544)))" "(if(not" " flat-s_40)" "(let-values()" @@ -72153,7 +72264,7 @@ static const char *startup_source = " orig-s_84))" "(let-values()" "(let-values(((id_149)" -"(let-values(((lst_415)" +"(let-values(((lst_414)" " flat-s_40))" "(begin" "(if(variable-reference-from-unsafe?" @@ -72161,20 +72272,20 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_415)))" -"((letrec-values(((for-loop_314)" +" lst_414)))" +"((letrec-values(((for-loop_313)" "(lambda(id_150" -" lst_416)" +" lst_415)" "(begin" " 'for-loop" "(if(pair?" -" lst_416)" -"(let-values(((s_781)" +" lst_415)" +"(let-values(((s_784)" "(unsafe-car" -" lst_416))" +" lst_415))" "((rest_248)" "(unsafe-cdr" -" lst_416)))" +" lst_415)))" "(let-values(((id_151)" "(let-values(((id_152)" " id_150))" @@ -72184,21 +72295,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_397)" "(if(syntax?$1" -" s_781)" +" s_784)" "(symbol?" "(syntax-e$1" -" s_781))" +" s_784))" " #f)))" "(if or-part_397" " or-part_397" "(symbol?" -" s_781)))" -" s_781" +" s_784)))" +" s_784" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_84" -" s_781)))))" +" s_784)))))" "(cons" " id508_0" " id_152)))))" @@ -72206,34 +72317,17 @@ static const char *startup_source = " id_153)))))" "(if(not" " #f)" -"(for-loop_314" +"(for-loop_313" " id_151" " rest_248)" " id_151)))" " id_150)))))" -" for-loop_314)" +" for-loop_313)" " null" -" lst_415)))))" +" lst_414)))))" "(reverse$1" " id_149))))))))" "((rhs499_0)" -"(let-values(((s_782)" -"(cdr" -" s_780)))" -"(let-values(((s_783)" -"(if(syntax?$1" -" s_782)" -"(syntax-e$1" -" s_782)" -" s_782)))" -"(if(pair?" -" s_783)" -"(let-values(((rhs500_0)" -"(let-values(((s_784)" -"(car" -" s_783)))" -" s_784))" -"(()" "(let-values(((s_785)" "(cdr" " s_783)))" @@ -72243,8 +72337,25 @@ static const char *startup_source = "(syntax-e$1" " s_785)" " s_785)))" -"(if(null?" +"(if(pair?" " s_786)" +"(let-values(((rhs500_0)" +"(let-values(((s_787)" +"(car" +" s_786)))" +" s_787))" +"(()" +"(let-values(((s_788)" +"(cdr" +" s_786)))" +"(let-values(((s_789)" +"(if(syntax?$1" +" s_788)" +"(syntax-e$1" +" s_788)" +" s_788)))" +"(if(null?" +" s_789)" "(values)" "(raise-syntax-error$1" " #f" @@ -72285,7 +72396,7 @@ static const char *startup_source = "(let-values(((ids501_0)" " ids_40)" "((phase502_0)" -" phase_153)" +" phase_154)" "((exp-body503_0)" " exp-body_7))" "(check-no-duplicate-ids8.1" @@ -72304,7 +72415,7 @@ static const char *startup_source = "(check-ids-unbound173.1" " exp-body507_0" " ids_40" -" phase_153" +" phase_154" " requires+provides_7))" "(values))))" "(let-values(((syms_25)" @@ -72329,14 +72440,14 @@ static const char *startup_source = " ids_40" " defined-syms_11" " self_32" -" phase_153" +" phase_154" " all-scopes-stx_5))))" "(let-values((()" "(begin" "(add-defined-syms!" " requires+provides_7" " syms_25" -" phase_153)" +" phase_154)" "(values))))" "(let-values(((exp-rhs_6" " parsed-rhs_2" @@ -72346,20 +72457,20 @@ static const char *startup_source = "((ids519_0)" " ids_40)" "((temp520_0)" -"(let-values(((v_261)" +"(let-values(((v_258)" " partial-body-ctx_1))" -"(let-values(((the-struct_114)" -" v_261))" +"(let-values(((the-struct_112)" +" v_258))" "(if(expand-context/outer?" -" the-struct_114)" +" the-struct_112)" "(let-values(((need-eventually-defined522_0)" " need-eventually-defined_2)" "((inner523_0)" -"(let-values(((the-struct_115)" +"(let-values(((the-struct_113)" "(root-expand-context/outer-inner" -" v_261)))" +" v_258)))" "(if(expand-context/inner?" -" the-struct_115)" +" the-struct_113)" "(let-values(((lifts524_0)" " #f)" "((module-lifts525_0)" @@ -72368,87 +72479,87 @@ static const char *startup_source = " #f))" "(expand-context/inner2.1" "(root-expand-context/inner-module-scopes" -" the-struct_115)" +" the-struct_113)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_115)" +" the-struct_113)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_115)" +" the-struct_113)" "(root-expand-context/inner-defined-syms" -" the-struct_115)" +" the-struct_113)" "(root-expand-context/inner-counter" -" the-struct_115)" +" the-struct_113)" "(root-expand-context/inner-lift-key" -" the-struct_115)" +" the-struct_113)" "(expand-context/inner-to-parsed?" -" the-struct_115)" +" the-struct_113)" "(expand-context/inner-phase" -" the-struct_115)" +" the-struct_113)" "(expand-context/inner-namespace" -" the-struct_115)" +" the-struct_113)" "(expand-context/inner-just-once?" -" the-struct_115)" +" the-struct_113)" "(expand-context/inner-module-begin-k" -" the-struct_115)" +" the-struct_113)" "(expand-context/inner-allow-unbound?" -" the-struct_115)" +" the-struct_113)" "(expand-context/inner-in-local-expand?" -" the-struct_115)" +" the-struct_113)" "(expand-context/inner-stops" -" the-struct_115)" +" the-struct_113)" "(expand-context/inner-declared-submodule-names" -" the-struct_115)" +" the-struct_113)" " lifts524_0" "(expand-context/inner-lift-envs" -" the-struct_115)" +" the-struct_113)" " module-lifts525_0" "(expand-context/inner-require-lifts" -" the-struct_115)" +" the-struct_113)" " to-module-lifts526_0" "(expand-context/inner-requires+provides" -" the-struct_115)" +" the-struct_113)" "(expand-context/inner-observer" -" the-struct_115)" +" the-struct_113)" "(expand-context/inner-for-serializable?" -" the-struct_115)" +" the-struct_113)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_115)))" +" the-struct_113)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_115)))))" +" the-struct_113)))))" "(expand-context/outer1.1" " inner523_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_114)" +" the-struct_112)" "(root-expand-context/outer-use-site-scopes" -" the-struct_114)" +" the-struct_112)" "(root-expand-context/outer-frame-id" -" the-struct_114)" +" the-struct_112)" "(expand-context/outer-context" -" the-struct_114)" +" the-struct_112)" "(expand-context/outer-env" -" the-struct_114)" +" the-struct_112)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_114)" +" the-struct_112)" "(expand-context/outer-scopes" -" the-struct_114)" +" the-struct_112)" "(expand-context/outer-def-ctx-scopes" -" the-struct_114)" +" the-struct_112)" "(expand-context/outer-binding-layer" -" the-struct_114)" +" the-struct_112)" "(expand-context/outer-reference-records" -" the-struct_114)" +" the-struct_112)" "(expand-context/outer-only-immediate?" -" the-struct_114)" +" the-struct_112)" " need-eventually-defined522_0" "(expand-context/outer-current-introduction-scopes" -" the-struct_114)" +" the-struct_112)" "(expand-context/outer-name" -" the-struct_114)))" +" the-struct_112)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_114)))))" +" the-struct_112)))))" "((temp521_0)" " #f))" "(expand+eval-for-syntaxes-binding63.1" @@ -72459,11 +72570,11 @@ static const char *startup_source = " temp520_0))))" "(let-values((()" "(begin" -"(let-values(((lst_417)" +"(let-values(((lst_416)" " syms_25)" -"((lst_418)" +"((lst_417)" " vals_10)" -"((lst_419)" +"((lst_418)" " ids_40))" "(begin" "(if(variable-reference-from-unsafe?" @@ -72471,6 +72582,12 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" +" lst_416)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" +"(check-list" " lst_417)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" @@ -72478,44 +72595,38 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_418)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list" -" lst_419)))" -"((letrec-values(((for-loop_315)" -"(lambda(lst_420" -" lst_421" -" lst_422)" +"((letrec-values(((for-loop_314)" +"(lambda(lst_419" +" lst_420" +" lst_421)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_420)" +" lst_419)" "(if(pair?" -" lst_421)" +" lst_420)" "(pair?" -" lst_422)" +" lst_421)" " #f)" " #f)" "(let-values(((sym_105)" "(unsafe-car" -" lst_420))" +" lst_419))" "((rest_249)" "(unsafe-cdr" -" lst_420))" +" lst_419))" "((val_86)" "(unsafe-car" -" lst_421))" +" lst_420))" "((rest_250)" "(unsafe-cdr" -" lst_421))" +" lst_420))" "((id_154)" "(unsafe-car" -" lst_422))" +" lst_421))" "((rest_251)" "(unsafe-cdr" -" lst_422)))" +" lst_421)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -72526,39 +72637,39 @@ static const char *startup_source = "(maybe-install-free=id-in-context!" " val_86" " id_154" -" phase_153" +" phase_154" " partial-body-ctx_1)" "(namespace-set-transformer!" " m-ns_20" -" phase_153" +" phase_154" " sym_105" " val_86)))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_315" +"(for-loop_314" " rest_249" " rest_250" " rest_251)" "(values))))" "(values))))))" -" for-loop_315)" +" for-loop_314)" +" lst_416" " lst_417" -" lst_418" -" lst_419)))" +" lst_418)))" "(values))))" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_98)" +"(let-values(((obs_103)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_98" +"(if obs_103" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_98" +" obs_103" " 'exit-prim" "(datum->syntax$1" " #f" @@ -72602,19 +72713,19 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_143)" +"(let-values(((obs_148)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_143" +"(if obs_148" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_143" +" obs_148" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_143" +" obs_148" " 'prim-require))))" "(void)))" "(values))))" @@ -72625,38 +72736,38 @@ static const char *startup_source = "(let-values(((ok?_79" " #%require529_0" " req530_0)" -"(let-values(((s_787)" +"(let-values(((s_790)" " ready-body_0))" "(let-values(((orig-s_85)" -" s_787))" +" s_790))" "(let-values(((#%require529_1" " req530_1)" -"(let-values(((s_788)" -"(if(syntax?$1" -" s_787)" -"(syntax-e$1" -" s_787)" -" s_787)))" -"(if(pair?" -" s_788)" -"(let-values(((#%require531_0)" -"(let-values(((s_789)" -"(car" -" s_788)))" -" s_789))" -"((req532_0)" -"(let-values(((s_790)" -"(cdr" -" s_788)))" "(let-values(((s_791)" "(if(syntax?$1" " s_790)" "(syntax-e$1" " s_790)" " s_790)))" +"(if(pair?" +" s_791)" +"(let-values(((#%require531_0)" +"(let-values(((s_792)" +"(car" +" s_791)))" +" s_792))" +"((req532_0)" +"(let-values(((s_793)" +"(cdr" +" s_791)))" +"(let-values(((s_794)" +"(if(syntax?$1" +" s_793)" +"(syntax-e$1" +" s_793)" +" s_793)))" "(let-values(((flat-s_56)" "(to-syntax-list.1" -" s_791)))" +" s_794)))" "(if(not" " flat-s_56)" "(let-values()" @@ -72687,9 +72798,9 @@ static const char *startup_source = "((m-ns536_0)" " m-ns_20)" "((phase537_0)" -" phase_153)" +" phase_154)" "((phase538_0)" -" phase_153)" +" phase_154)" "((requires+provides539_0)" " requires+provides_7)" "((declared-submodule-names540_0)" @@ -72721,14 +72832,14 @@ static const char *startup_source = " m-ns536_0" " phase537_0" " requires+provides539_0))" -"(let-values(((obs_144)" +"(let-values(((obs_149)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_144" +"(if obs_149" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_144" +" obs_149" " 'exit-prim" " ready-body_0)))" "(void)))" @@ -72792,22 +72903,22 @@ static const char *startup_source = " 'module*)" "(let-values()" "(begin" -"(let-values(((obs_145)" +"(let-values(((obs_150)" "(expand-context-observer" " partial-body-ctx_1)))" -"(if obs_145" +"(if obs_150" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_145" +" obs_150" " 'enter-prim" " exp-body_7)" "(call-expand-observe" -" obs_145" +" obs_150" " 'prim-submodule*)" "(call-expand-observe" -" obs_145" +" obs_150" " 'exit-prim" " exp-body_7))))" "(void)))" @@ -72823,38 +72934,38 @@ static const char *startup_source = "(let-values(((ok?_80" " #%declare550_0" " kw551_0)" -"(let-values(((s_792)" +"(let-values(((s_795)" " disarmed-exp-body_1))" "(let-values(((orig-s_86)" -" s_792))" +" s_795))" "(let-values(((#%declare550_1" " kw551_1)" -"(let-values(((s_564)" +"(let-values(((s_570)" "(if(syntax?$1" -" s_792)" +" s_795)" "(syntax-e$1" -" s_792)" -" s_792)))" +" s_795)" +" s_795)))" "(if(pair?" -" s_564)" +" s_570)" "(let-values(((#%declare552_0)" -"(let-values(((s_566)" +"(let-values(((s_572)" "(car" -" s_564)))" -" s_566))" +" s_570)))" +" s_572))" "((kw553_0)" -"(let-values(((s_567)" +"(let-values(((s_573)" "(cdr" -" s_564)))" -"(let-values(((s_568)" +" s_570)))" +"(let-values(((s_574)" "(if(syntax?$1" -" s_567)" +" s_573)" "(syntax-e$1" -" s_567)" -" s_567)))" +" s_573)" +" s_573)))" "(let-values(((flat-s_57)" "(to-syntax-list.1" -" s_568)))" +" s_574)))" "(if(not" " flat-s_57)" "(let-values()" @@ -72877,7 +72988,7 @@ static const char *startup_source = " kw551_1))))))" "(let-values((()" "(begin" -"(let-values(((lst_423)" +"(let-values(((lst_422)" " kw551_0))" "(begin" "(if(variable-reference-from-unsafe?" @@ -72885,19 +72996,19 @@ static const char *startup_source = "(void)" "(let-values()" "(check-list" -" lst_423)))" -"((letrec-values(((for-loop_316)" -"(lambda(lst_424)" +" lst_422)))" +"((letrec-values(((for-loop_315)" +"(lambda(lst_423)" "(begin" " 'for-loop" "(if(pair?" -" lst_424)" +" lst_423)" "(let-values(((kw_1)" "(unsafe-car" -" lst_424))" +" lst_423))" "((rest_252)" "(unsafe-cdr" -" lst_424)))" +" lst_423)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -72948,12 +73059,12 @@ static const char *startup_source = "(values)))))" "(if(not" " #f)" -"(for-loop_316" +"(for-loop_315" " rest_252)" "(values))))" "(values))))))" -" for-loop_316)" -" lst_423)))" +" for-loop_315)" +" lst_422)))" "(values))))" "(let-values()" "(let-values(((parsed-body_1)" @@ -73000,37 +73111,37 @@ static const char *startup_source = "(make-wrap-as-definition)" "(lambda(self_33 frame-id_18 inside-scope_2 all-scopes-stx_6 defined-syms_12 requires+provides_8)" "(begin" -"(lambda(ids_41 rhs_23 phase_154)" +"(lambda(ids_41 rhs_23 phase_155)" "(let-values(((scoped-ids_0)" "(reverse$1" -"(let-values(((lst_425) ids_41))" +"(let-values(((lst_424) ids_41))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_425)))" -"((letrec-values(((for-loop_317)" -"(lambda(fold-var_364 lst_426)" +"(let-values()(check-list lst_424)))" +"((letrec-values(((for-loop_316)" +"(lambda(fold-var_357 lst_425)" "(begin" " 'for-loop" -"(if(pair? lst_426)" -"(let-values(((id_155)(unsafe-car lst_426))" -"((rest_253)(unsafe-cdr lst_426)))" -"(let-values(((fold-var_365)" -"(let-values(((fold-var_366) fold-var_364))" -"(let-values(((fold-var_367)" +"(if(pair? lst_425)" +"(let-values(((id_155)(unsafe-car lst_425))" +"((rest_253)(unsafe-cdr lst_425)))" +"(let-values(((fold-var_358)" +"(let-values(((fold-var_359) fold-var_357))" +"(let-values(((fold-var_360)" "(let-values()" "(cons" "(let-values()" "(add-scope" " id_155" " inside-scope_2))" -" fold-var_366))))" -"(values fold-var_367)))))" -"(if(not #f)(for-loop_317 fold-var_365 rest_253) fold-var_365)))" -" fold-var_364)))))" -" for-loop_317)" +" fold-var_359))))" +"(values fold-var_360)))))" +"(if(not #f)(for-loop_316 fold-var_358 rest_253) fold-var_358)))" +" fold-var_357)))))" +" for-loop_316)" " null" -" lst_425))))))" +" lst_424))))))" "(let-values(((syms_26)" "(let-values(((frame-id559_0) frame-id_18)((requires+provides560_0) requires+provides_8))" "(select-defined-syms-and-bind!16.1" @@ -73046,47 +73157,47 @@ static const char *startup_source = " scoped-ids_0" " defined-syms_12" " self_33" -" phase_154" +" phase_155" " all-scopes-stx_6))))" -"(let-values(((s_793)" +"(let-values(((s_796)" "(add-scope" "(datum->syntax$1" " #f" "(list" -"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_154) 'define-values)" +"(datum->syntax$1(syntax-shift-phase-level$1 core-stx phase_155) 'define-values)" " scoped-ids_0" " rhs_23))" " inside-scope_2)))" -"(values scoped-ids_0(semi-parsed-define-values2.1 s_793 syms_26 scoped-ids_0 rhs_23)))))))))" +"(values scoped-ids_0(semi-parsed-define-values2.1 s_796 syms_26 scoped-ids_0 rhs_23)))))))))" "(define-values" "(add-post-expansion-scope)" -"(lambda(bodys_23 ctx_112)" +"(lambda(bodys_23 ctx_113)" "(begin" -"(let-values(((sc_34)(root-expand-context-post-expansion-scope ctx_112)))" +"(let-values(((sc_34)(root-expand-context-post-expansion-scope ctx_113)))" "(if sc_34" "(reverse$1" -"(let-values(((lst_427) bodys_23))" +"(let-values(((lst_426) bodys_23))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_427)))" -"((letrec-values(((for-loop_318)" -"(lambda(fold-var_368 lst_428)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_426)))" +"((letrec-values(((for-loop_317)" +"(lambda(fold-var_361 lst_427)" "(begin" " 'for-loop" -"(if(pair? lst_428)" -"(let-values(((body_23)(unsafe-car lst_428))((rest_254)(unsafe-cdr lst_428)))" -"(let-values(((fold-var_369)" -"(let-values(((fold-var_370) fold-var_368))" -"(let-values(((fold-var_371)" +"(if(pair? lst_427)" +"(let-values(((body_23)(unsafe-car lst_427))((rest_254)(unsafe-cdr lst_427)))" +"(let-values(((fold-var_362)" +"(let-values(((fold-var_363) fold-var_361))" +"(let-values(((fold-var_364)" "(let-values()" "(cons" "(let-values()(add-scope body_23 sc_34))" -" fold-var_370))))" -"(values fold-var_371)))))" -"(if(not #f)(for-loop_318 fold-var_369 rest_254) fold-var_369)))" -" fold-var_368)))))" -" for-loop_318)" +" fold-var_363))))" +"(values fold-var_364)))))" +"(if(not #f)(for-loop_317 fold-var_362 rest_254) fold-var_362)))" +" fold-var_361)))))" +" for-loop_317)" " null" -" lst_427))))" +" lst_426))))" " bodys_23)))))" "(define-values" "(finish-expanding-body-expressons99.1)" @@ -73101,7 +73212,7 @@ static const char *startup_source = "(begin" " 'finish-expanding-body-expressons99" "(let-values(((partially-expanded-bodys_1) partially-expanded-bodys98_0))" -"(let-values(((phase_155) phase84_0))" +"(let-values(((phase_156) phase84_0))" "(let-values(((body-ctx_7) ctx85_0))" "(let-values(((self_34) self86_0))" "(let-values(((declared-submodule-names_5) declared-submodule-names87_0))" @@ -73115,15 +73226,15 @@ static const char *startup_source = " 'loop" "(if(null? bodys_24)" "(let-values()" -"(if(if tail?_54(not(zero? phase_155)) #f)" +"(if(if tail?_54(not(zero? phase_156)) #f)" "(let-values()" "(begin" -"(let-values(((obs_146)(expand-context-observer body-ctx_7)))" -"(if obs_146" +"(let-values(((obs_151)(expand-context-observer body-ctx_7)))" +"(if obs_151" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_146" +" obs_151" " 'module-lift-end-loop" " '())))" "(void)))" @@ -73139,13 +73250,13 @@ static const char *startup_source = "(if(null? bodys_25)" "(let-values()" "(begin" -"(let-values(((obs_147)" +"(let-values(((obs_152)" "(expand-context-observer body-ctx_7)))" -"(if obs_147" +"(if obs_152" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_147" +" obs_152" " 'module-lift-end-loop" " '())))" "(void)))" @@ -73158,12 +73269,12 @@ static const char *startup_source = "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_148)" +"(let-values(((obs_153)" "(expand-context-observer body-ctx_7)))" -"(if obs_148" +"(if obs_153" "(let-values()" "(let-values()" -"(call-expand-observe obs_148 'next)))" +"(call-expand-observe obs_153 'next)))" "(void)))" "(values))))" "(let-values(((body_24)(car bodys_24)))" @@ -73200,7 +73311,7 @@ static const char *startup_source = " define-values561_0" " _562_0" " _563_0)" -"(let-values(((s_794)" +"(let-values(((s_797)" "(syntax-disarm$1" " s_300)))" "(if(if(not" @@ -73209,28 +73320,10 @@ static const char *startup_source = " #t" " #f)" "(let-values(((orig-s_87)" -" s_794))" +" s_797))" "(let-values(((define-values561_1" " _562_1" " _563_1)" -"(let-values(((s_795)" -"(if(syntax?$1" -" s_794)" -"(syntax-e$1" -" s_794)" -" s_794)))" -"(if(pair?" -" s_795)" -"(let-values(((define-values564_0)" -"(let-values(((s_796)" -"(car" -" s_795)))" -" s_796))" -"((_565_0" -" _566_0)" -"(let-values(((s_797)" -"(cdr" -" s_795)))" "(let-values(((s_798)" "(if(syntax?$1" " s_797)" @@ -73239,12 +73332,13 @@ static const char *startup_source = " s_797)))" "(if(pair?" " s_798)" -"(let-values(((_567_0)" +"(let-values(((define-values564_0)" "(let-values(((s_799)" "(car" " s_798)))" " s_799))" -"((_568_0)" +"((_565_0" +" _566_0)" "(let-values(((s_800)" "(cdr" " s_798)))" @@ -73256,12 +73350,12 @@ static const char *startup_source = " s_800)))" "(if(pair?" " s_801)" -"(let-values(((_569_0)" +"(let-values(((_567_0)" "(let-values(((s_802)" "(car" " s_801)))" " s_802))" -"(()" +"((_568_0)" "(let-values(((s_803)" "(cdr" " s_801)))" @@ -73271,8 +73365,25 @@ static const char *startup_source = "(syntax-e$1" " s_803)" " s_803)))" -"(if(null?" +"(if(pair?" " s_804)" +"(let-values(((_569_0)" +"(let-values(((s_805)" +"(car" +" s_804)))" +" s_805))" +"(()" +"(let-values(((s_806)" +"(cdr" +" s_804)))" +"(let-values(((s_807)" +"(if(syntax?$1" +" s_806)" +"(syntax-e$1" +" s_806)" +" s_806)))" +"(if(null?" +" s_807)" "(values)" "(raise-syntax-error$1" " #f" @@ -73391,7 +73502,7 @@ static const char *startup_source = "(let-values(((tmp_65)" "(core-form-sym" " disarmed-body_0" -" phase_155)))" +" phase_156)))" "(if(if(equal? tmp_65 '#%require)" " #t" "(if(equal? tmp_65 '#%provide)" @@ -73450,14 +73561,14 @@ static const char *startup_source = "(if no-lifts?_0" "(void)" "(let-values()" -"(let-values(((obs_103)" +"(let-values(((obs_108)" "(expand-context-observer" " body-ctx_7)))" -"(if obs_103" +"(if obs_108" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_103" +" obs_108" " 'module-lift-loop" "(append" " lifted-requires_0" @@ -73483,7 +73594,7 @@ static const char *startup_source = " modules-being-compiled590_0" " mpis-to-reset587_0" " lifted-modules_0" -" phase_155" +" phase_156" " self_34" " body-ctx_7))))" "(let-values(((exp-lifted-defns_0)" @@ -73492,14 +73603,14 @@ static const char *startup_source = "(if no-lifts?_0" "(void)" "(let-values()" -"(let-values(((obs_149)" +"(let-values(((obs_154)" "(expand-context-observer" " body-ctx_7)))" -"(if obs_149" +"(if obs_154" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_149" +" obs_154" " 'next)))" "(void)))))" "(append" @@ -73516,18 +73627,18 @@ static const char *startup_source = " partially-expanded-bodys_1)))))))))))))" "(define-values" "(check-defined-by-now)" -"(lambda(need-eventually-defined_3 self_35 ctx_113)" +"(lambda(need-eventually-defined_3 self_35 ctx_114)" "(begin" "(begin" "(let-values(((ht_164) need-eventually-defined_3))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-in-hash ht_164)))" -"((letrec-values(((for-loop_319)" +"((letrec-values(((for-loop_318)" "(lambda(i_195)" "(begin" " 'for-loop" "(if i_195" -"(let-values(((phase_156 l_85)(hash-iterate-key+value ht_164 i_195)))" +"(let-values(((phase_157 l_85)(hash-iterate-key+value ht_164 i_195)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -73535,24 +73646,24 @@ static const char *startup_source = "(begin" "(let-values()" "(begin" -"(let-values(((lst_429) l_85))" +"(let-values(((lst_428) l_85))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" -"(let-values()(check-list lst_429)))" -"((letrec-values(((for-loop_320)" -"(lambda(lst_430)" +"(let-values()(check-list lst_428)))" +"((letrec-values(((for-loop_319)" +"(lambda(lst_429)" "(begin" " 'for-loop" "(if(pair?" -" lst_430)" +" lst_429)" "(let-values(((id_156)" "(unsafe-car" -" lst_430))" +" lst_429))" "((rest_255)" "(unsafe-cdr" -" lst_430)))" +" lst_429)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -73563,7 +73674,7 @@ static const char *startup_source = "(let-values(((id591_0)" " id_156)" "((phase592_0)" -" phase_156))" +" phase_157))" "(resolve+shift30.1" " #f" " #f" @@ -73602,22 +73713,22 @@ static const char *startup_source = " null" "(syntax-debug-info-string" " id_156" -" ctx_113))))))" +" ctx_114))))))" "(values)))))" "(values)))))" "(if(not #f)" -"(for-loop_320" +"(for-loop_319" " rest_255)" "(values))))" "(values))))))" -" for-loop_320)" -" lst_429)))" +" for-loop_319)" +" lst_428)))" "(void)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_319(hash-iterate-next ht_164 i_195))(values))))" +"(if(not #f)(for-loop_318(hash-iterate-next ht_164 i_195))(values))))" "(values))))))" -" for-loop_319)" +" for-loop_318)" "(hash-iterate-first ht_164))))" "(void)))))" "(define-values" @@ -73635,13 +73746,13 @@ static const char *startup_source = "(let-values(((requires+provides_9) requires-and-provides102_0))" "(let-values(((declared-submodule-names_6) declared-submodule-names103_0))" "(let-values(((m-ns_21) namespace104_0))" -"(let-values(((phase_157) phase105_0))" +"(let-values(((phase_158) phase105_0))" "(let-values(((self_36) self106_0))" -"(let-values(((ctx_114) ctx107_1))" +"(let-values(((ctx_115) ctx107_1))" "(let-values()" "(let-values()" "((letrec-values(((loop_130)" -"(lambda(bodys_26 phase_158)" +"(lambda(bodys_26 phase_159)" "(begin" " 'loop" "(if(null? bodys_26)" @@ -73649,79 +73760,79 @@ static const char *startup_source = "(if(let-values(((or-part_400)(parsed?(car bodys_26))))" "(if or-part_400 or-part_400(expanded+parsed?(car bodys_26))))" "(let-values()" -"(cons(car bodys_26)(loop_130(cdr bodys_26) phase_158)))" +"(cons(car bodys_26)(loop_130(cdr bodys_26) phase_159)))" "(if(semi-parsed-begin-for-syntax?(car bodys_26))" "(let-values()" "(let-values(((nested-bodys_2)" "(loop_130" "(semi-parsed-begin-for-syntax-body(car bodys_26))" -"(add1 phase_158))))" +"(add1 phase_159))))" "(cons" -"(let-values(((the-struct_116)(car bodys_26)))" -"(if(semi-parsed-begin-for-syntax? the-struct_116)" +"(let-values(((the-struct_114)(car bodys_26)))" +"(if(semi-parsed-begin-for-syntax? the-struct_114)" "(let-values(((body593_0) nested-bodys_2))" "(semi-parsed-begin-for-syntax3.1" -"(semi-parsed-begin-for-syntax-s the-struct_116)" +"(semi-parsed-begin-for-syntax-s the-struct_114)" " body593_0))" "(raise-argument-error" " 'struct-copy" " \"semi-parsed-begin-for-syntax?\"" -" the-struct_116)))" -"(loop_130(cdr bodys_26) phase_158))))" +" the-struct_114)))" +"(loop_130(cdr bodys_26) phase_159))))" "(let-values()" "(let-values(((disarmed-body_1)(syntax-disarm$1(car bodys_26))))" "(let-values(((tmp_66)" -"(core-form-sym disarmed-body_1 phase_158)))" +"(core-form-sym disarmed-body_1 phase_159)))" "(if(equal? tmp_66 '#%provide)" "(let-values()" "(let-values((()" "(begin" -"(let-values(((obs_150)" +"(let-values(((obs_155)" "(expand-context-observer" -" ctx_114)))" -"(if obs_150" +" ctx_115)))" +"(if obs_155" "(let-values()" "(let-values()" "(begin" "(call-expand-observe" -" obs_150" +" obs_155" " 'enter-prim" "(car bodys_26))" "(call-expand-observe" -" obs_150" +" obs_155" " 'prim-provide))))" "(void)))" "(values))))" "(let-values(((ok?_82 #%provide594_0 spec595_0)" -"(let-values(((s_805) disarmed-body_1))" -"(let-values(((orig-s_88) s_805))" +"(let-values(((s_808) disarmed-body_1))" +"(let-values(((orig-s_88) s_808))" "(let-values(((#%provide594_1" " spec595_1)" -"(let-values(((s_806)" -"(if(syntax?$1" -" s_805)" -"(syntax-e$1" -" s_805)" -" s_805)))" -"(if(pair? s_806)" -"(let-values(((#%provide596_0)" -"(let-values(((s_807)" -"(car" -" s_806)))" -" s_807))" -"((spec597_0)" -"(let-values(((s_808)" -"(cdr" -" s_806)))" "(let-values(((s_809)" "(if(syntax?$1" " s_808)" "(syntax-e$1" " s_808)" " s_808)))" +"(if(pair? s_809)" +"(let-values(((#%provide596_0)" +"(let-values(((s_810)" +"(car" +" s_809)))" +" s_810))" +"((spec597_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_58)" "(to-syntax-list.1" -" s_809)))" +" s_812)))" "(if(not" " flat-s_58)" "(let-values()" @@ -73748,141 +73859,154 @@ static const char *startup_source = "(car bodys_26)" " requires+provides_9" " self_36" -" phase_158" -"(let-values(((v_262) ctx_114))" -"(let-values(((the-struct_117)" -" v_262))" +" phase_159" +"(let-values(((v_259) ctx_115))" +"(let-values(((the-struct_115)" +" v_259))" "(if(expand-context/outer?" -" the-struct_117)" +" the-struct_115)" "(let-values(((context598_0)" " 'top-level)" "((inner599_0)" -"(let-values(((the-struct_118)" +"(let-values(((the-struct_116)" "(root-expand-context/outer-inner" -" v_262)))" +" v_259)))" "(if(expand-context/inner?" -" the-struct_118)" +" the-struct_116)" "(let-values(((phase600_0)" -" phase_158)" +" phase_159)" "((namespace601_0)" "(namespace->namespace-at-phase" " m-ns_21" -" phase_158))" +" phase_159))" "((requires+provides602_0)" " requires+provides_9)" "((declared-submodule-names603_0)" " declared-submodule-names_6))" "(expand-context/inner2.1" "(root-expand-context/inner-module-scopes" -" the-struct_118)" +" the-struct_116)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_118)" +" the-struct_116)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_118)" +" the-struct_116)" "(root-expand-context/inner-defined-syms" -" the-struct_118)" +" the-struct_116)" "(root-expand-context/inner-counter" -" the-struct_118)" +" the-struct_116)" "(root-expand-context/inner-lift-key" -" the-struct_118)" +" the-struct_116)" "(expand-context/inner-to-parsed?" -" the-struct_118)" +" the-struct_116)" " phase600_0" " namespace601_0" "(expand-context/inner-just-once?" -" the-struct_118)" +" the-struct_116)" "(expand-context/inner-module-begin-k" -" the-struct_118)" +" the-struct_116)" "(expand-context/inner-allow-unbound?" -" the-struct_118)" +" the-struct_116)" "(expand-context/inner-in-local-expand?" -" the-struct_118)" +" the-struct_116)" "(expand-context/inner-stops" -" the-struct_118)" +" the-struct_116)" " declared-submodule-names603_0" "(expand-context/inner-lifts" -" the-struct_118)" +" the-struct_116)" "(expand-context/inner-lift-envs" -" the-struct_118)" +" the-struct_116)" "(expand-context/inner-module-lifts" -" the-struct_118)" +" the-struct_116)" "(expand-context/inner-require-lifts" -" the-struct_118)" +" the-struct_116)" "(expand-context/inner-to-module-lifts" -" the-struct_118)" +" the-struct_116)" " requires+provides602_0" "(expand-context/inner-observer" -" the-struct_118)" +" the-struct_116)" "(expand-context/inner-for-serializable?" -" the-struct_118)" +" the-struct_116)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_118)))" +" the-struct_116)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_118)))))" +" the-struct_116)))))" "(expand-context/outer1.1" " inner599_0" "(root-expand-context/outer-post-expansion-scope" -" the-struct_117)" +" the-struct_115)" "(root-expand-context/outer-use-site-scopes" -" the-struct_117)" +" the-struct_115)" "(root-expand-context/outer-frame-id" -" the-struct_117)" +" the-struct_115)" " context598_0" "(expand-context/outer-env" -" the-struct_117)" +" the-struct_115)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_117)" +" the-struct_115)" "(expand-context/outer-scopes" -" the-struct_117)" +" the-struct_115)" "(expand-context/outer-def-ctx-scopes" -" the-struct_117)" +" the-struct_115)" "(expand-context/outer-binding-layer" -" the-struct_117)" +" the-struct_115)" "(expand-context/outer-reference-records" -" the-struct_117)" +" the-struct_115)" "(expand-context/outer-only-immediate?" -" the-struct_117)" +" the-struct_115)" "(expand-context/outer-need-eventually-defined" -" the-struct_117)" +" the-struct_115)" "(expand-context/outer-current-introduction-scopes" -" the-struct_117)" +" the-struct_115)" "(expand-context/outer-name" -" the-struct_117)))" +" the-struct_115)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_117)))))))" -"(begin" -"(let-values(((obs_151)" -"(expand-context-observer ctx_114)))" -"(if obs_151" +" the-struct_115)))))))" +"(if(expand-context-to-parsed? ctx_115)" "(let-values()" +"(loop_130(cdr bodys_26) phase_159))" "(let-values()" -"(call-expand-observe obs_151 'exit-prim)))" -"(void)))" -"(if(expand-context-to-parsed? ctx_114)" -"(let-values()" -"(loop_130(cdr bodys_26) phase_158))" -"(let-values()" -"(cons" +"(let-values(((new-s_9)" "(syntax-track-origin*" " track-stxes_10" -"(let-values(((temp604_0)(car bodys_26))" +"(let-values(((temp604_0)" +"(car bodys_26))" "((temp605_0)" "(list*" " #%provide594_0" " specs_2)))" -"(rebuild5.1 #f #f temp604_0 temp605_0)))" -"(loop_130(cdr bodys_26) phase_158)))))))))" +"(rebuild5.1" +" #f" +" #f" +" temp604_0" +" temp605_0)))))" +"(begin" +"(let-values(((obs_156)" +"(expand-context-observer" +" ctx_115)))" +"(if obs_156" +"(let-values()" +"(let-values()" +"(call-expand-observe" +" obs_156" +" 'exit-prim" +" new-s_9)))" +"(void)))" +"(cons" +" new-s_9" +"(loop_130" +"(cdr bodys_26)" +" phase_159))))))))))" "(let-values()" "(cons" "(car bodys_26)" -"(loop_130(cdr bodys_26) phase_158))))))))))))))" +"(loop_130(cdr bodys_26) phase_159))))))))))))))" " loop_130)" " expression-expanded-bodys_1" -" phase_157)))))))))))))" +" phase_158)))))))))))))" "(define-values" "(declare-module-for-expansion139.1)" "(lambda(ctx125_0" @@ -73906,7 +74030,7 @@ static const char *startup_source = "(let-values(((self_37) self122_0))" "(let-values(((enclosing-self_3) enclosing123_0))" "(let-values(((root-ctx_7) root-ctx124_0))" -"(let-values(((ctx_115) ctx125_0))" +"(let-values(((ctx_116) ctx125_0))" "(let-values(((modules-being-compiled_6) modules-being-compiled126_0))" "(let-values(((compiled-module-box_1) fill127_0))" "(let-values()" @@ -73951,7 +74075,7 @@ static const char *startup_source = " #f" " #f" " #f)))" -"((temp608_0)(expand-context-for-serializable? ctx_115))" +"((temp608_0)(expand-context-for-serializable? ctx_116))" "((modules-being-compiled609_0) modules-being-compiled_6)" "((temp610_0) #f))" "(compile-module13.1" @@ -73993,16 +74117,16 @@ static const char *startup_source = " compiled-module_0)))))))))))))))))))))))))" "(define-values" "(attach-root-expand-context-properties)" -"(lambda(s_810 root-ctx_8 orig-self_1 new-self_2)" +"(lambda(s_813 root-ctx_8 orig-self_1 new-self_2)" "(begin" -"(let-values(((s_811)" -"(syntax-property$1 s_810 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" -"(let-values(((s_812)" +"(let-values(((s_814)" +"(syntax-property$1 s_813 'module-body-context(root-expand-context-all-scopes-stx root-ctx_8))))" +"(let-values(((s_815)" "(syntax-property$1" -" s_811" +" s_814" " 'module-body-inside-context" "(add-scope empty-syntax(root-expand-context-post-expansion-scope root-ctx_8)))))" -" s_812)))))" +" s_815)))))" "(define-values" "(expand-post-submodules165.1)" "(lambda(all-scopes-s147_0" @@ -74021,7 +74145,7 @@ static const char *startup_source = " 'expand-post-submodules165" "(let-values(((fully-expanded-bodys-except-post-submodules_2) fully-expanded-bodys-except-post-submodules164_0))" "(let-values(((declare-enclosing-module_1) declare-enclosing142_0))" -"(let-values(((phase_159) phase143_0))" +"(let-values(((phase_160) phase143_0))" "(let-values(((self_38) self144_0))" "(let-values(((requires+provides_11) requires-and-provides145_0))" "(let-values(((enclosing-is-cross-phase-persistent?_1) enclosing-is-cross-phase-persistent?146_0))" @@ -74033,7 +74157,7 @@ static const char *startup_source = "(let-values(((submod-ctx_1) ctx152_0))" "(let-values()" "((letrec-values(((loop_131)" -"(lambda(bodys_27 phase_160)" +"(lambda(bodys_27 phase_161)" "(begin" " 'loop" "(if(null? bodys_27)" @@ -74047,37 +74171,37 @@ static const char *startup_source = "(semi-parsed-begin-for-syntax-s" " body_25)))" "(let-values(((ok?_83 begin-for-syntax616_0 _617_0)" -"(let-values(((s_813)" +"(let-values(((s_816)" "(syntax-disarm$1" " body-s_0)))" -"(let-values(((orig-s_89) s_813))" +"(let-values(((orig-s_89) s_816))" "(let-values(((begin-for-syntax616_1" " _617_1)" -"(let-values(((s_814)" -"(if(syntax?$1" -" s_813)" -"(syntax-e$1" -" s_813)" -" s_813)))" -"(if(pair? s_814)" -"(let-values(((begin-for-syntax618_0)" -"(let-values(((s_815)" -"(car" -" s_814)))" -" s_815))" -"((_619_0)" -"(let-values(((s_816)" -"(cdr" -" s_814)))" "(let-values(((s_817)" "(if(syntax?$1" " s_816)" "(syntax-e$1" " s_816)" " s_816)))" +"(if(pair? s_817)" +"(let-values(((begin-for-syntax618_0)" +"(let-values(((s_818)" +"(car" +" s_817)))" +" s_818))" +"((_619_0)" +"(let-values(((s_819)" +"(cdr" +" s_817)))" +"(let-values(((s_820)" +"(if(syntax?$1" +" s_819)" +"(syntax-e$1" +" s_819)" +" s_819)))" "(let-values(((flat-s_59)" "(to-syntax-list.1" -" s_817)))" +" s_820)))" "(if(not" " flat-s_59)" "(let-values()" @@ -74116,7 +74240,7 @@ static const char *startup_source = "(loop_131" "(semi-parsed-begin-for-syntax-body" " body_25)" -"(add1 phase_160))))" +"(add1 phase_161))))" "(let-values(((parsed-bfs_0)" "(parsed-begin-for-syntax21.1" " rebuild-body-s_0" @@ -74139,20 +74263,20 @@ static const char *startup_source = " rebuild-body-s622_0" " temp623_0))" " parsed-bfs_0))" -"(loop_131 rest-bodys_3 phase_160))))))))" +"(loop_131 rest-bodys_3 phase_161))))))))" "(if(let-values(((or-part_402)(parsed? body_25)))" "(if or-part_402" " or-part_402" "(expanded+parsed? body_25)))" "(let-values()" -"(cons body_25(loop_131 rest-bodys_3 phase_160)))" +"(cons body_25(loop_131 rest-bodys_3 phase_161)))" "(let-values()" "(let-values(((disarmed-body_2)" "(syntax-disarm$1 body_25)))" "(let-values(((tmp_67)" "(core-form-sym" " disarmed-body_2" -" phase_160)))" +" phase_161)))" "(if(equal? tmp_67 'module*)" "(let-values()" "(let-values((()" @@ -74168,30 +74292,15 @@ static const char *startup_source = " module*624_0" " name625_0" " _626_0)" -"(let-values(((s_818)" +"(let-values(((s_678)" " disarmed-body_2))" -"(if(let-values(((s_672)" +"(if(let-values(((s_821)" "(if(syntax?$1" -" s_818)" +" s_678)" "(syntax-e$1" -" s_818)" -" s_818)))" -"(if(pair? s_672)" -"(if(let-values(((s_819)" -"(car" -" s_672)))" -" #t)" -"(let-values(((s_820)" -"(cdr" -" s_672)))" -"(let-values(((s_821)" -"(if(syntax?$1" -" s_820)" -"(syntax-e$1" -" s_820)" -" s_820)))" -"(if(pair?" -" s_821)" +" s_678)" +" s_678)))" +"(if(pair? s_821)" "(if(let-values(((s_822)" "(car" " s_821)))" @@ -74210,18 +74319,33 @@ static const char *startup_source = "(if(let-values(((s_825)" "(car" " s_824)))" -"(let-values(((s_673)" -"(if(syntax?$1" -" s_825)" -"(syntax-e$1" -" s_825)" -" s_825)))" -"(eq?" -" #f" -" s_673)))" +" #t)" "(let-values(((s_826)" "(cdr" " s_824)))" +"(let-values(((s_827)" +"(if(syntax?$1" +" s_826)" +"(syntax-e$1" +" s_826)" +" s_826)))" +"(if(pair?" +" s_827)" +"(if(let-values(((s_679)" +"(car" +" s_827)))" +"(let-values(((s_828)" +"(if(syntax?$1" +" s_679)" +"(syntax-e$1" +" s_679)" +" s_679)))" +"(eq?" +" #f" +" s_828)))" +"(let-values(((s_829)" +"(cdr" +" s_827)))" " #t)" " #f)" " #f)))" @@ -74233,34 +74357,19 @@ static const char *startup_source = "(let-values(((module*624_1" " name625_1" " _626_1)" -"(let-values(((s_827)" -"(if(syntax?$1" -" s_818)" -"(syntax-e$1" -" s_818)" -" s_818)))" -"(let-values(((module*627_0)" -"(let-values(((s_828)" -"(car" -" s_827)))" -" s_828))" -"((name628_0" -" _629_0)" -"(let-values(((s_829)" -"(cdr" -" s_827)))" "(let-values(((s_830)" "(if(syntax?$1" -" s_829)" +" s_678)" "(syntax-e$1" -" s_829)" -" s_829)))" -"(let-values(((name630_0)" +" s_678)" +" s_678)))" +"(let-values(((module*627_0)" "(let-values(((s_831)" "(car" " s_830)))" " s_831))" -"((_631_0)" +"((name628_0" +" _629_0)" "(let-values(((s_832)" "(cdr" " s_830)))" @@ -74270,22 +74379,37 @@ static const char *startup_source = "(syntax-e$1" " s_832)" " s_832)))" -"(let-values((()" +"(let-values(((name630_0)" "(let-values(((s_834)" "(car" " s_833)))" +" s_834))" +"((_631_0)" "(let-values(((s_835)" -"(if(syntax?$1" -" s_834)" -"(syntax-e$1" -" s_834)" -" s_834)))" -"(values))))" -"((_632_0)" -"(let-values(((s_836)" "(cdr" " s_833)))" +"(let-values(((s_836)" +"(if(syntax?$1" +" s_835)" +"(syntax-e$1" +" s_835)" +" s_835)))" +"(let-values((()" +"(let-values(((s_837)" +"(car" " s_836)))" +"(let-values(((s_838)" +"(if(syntax?$1" +" s_837)" +"(syntax-e$1" +" s_837)" +" s_837)))" +"(values))))" +"((_632_0)" +"(let-values(((s_839)" +"(cdr" +" s_836)))" +" s_839)))" "(values" " _632_0))))))" "(values" @@ -74311,7 +74435,7 @@ static const char *startup_source = "(let-values(((neg-phase_0)" "(phase-" " 0" -" phase_160)))" +" phase_161)))" "(let-values(((shifted-s_0)" "(syntax-shift-phase-level$1" " ready-body_2" @@ -74359,27 +74483,27 @@ static const char *startup_source = "(if(expanded+parsed?" " submod_4)" "(let-values()" -"(let-values(((the-struct_119)" +"(let-values(((the-struct_117)" " submod_4))" "(if(expanded+parsed?" -" the-struct_119)" +" the-struct_117)" "(let-values(((s645_0)" "(syntax-shift-phase-level$1" "(expanded+parsed-s" " submod_4)" -" phase_160)))" +" phase_161)))" "(expanded+parsed1.1" " s645_0" "(expanded+parsed-parsed" -" the-struct_119)))" +" the-struct_117)))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_119))))" +" the-struct_117))))" "(let-values()" "(syntax-shift-phase-level$1" " submod_4" -" phase_160))))))))" +" phase_161))))))))" "(let-values()" "(let-values(((temp649_0)" " #t)" @@ -74412,54 +74536,54 @@ static const char *startup_source = " submod_3" "(loop_131" " rest-bodys_3" -" phase_160)))))))" +" phase_161)))))))" "(let-values()" "(cons" " body_25" "(loop_131" " rest-bodys_3" -" phase_160)))))))))))))))))" +" phase_161)))))))))))))))))" " loop_131)" " fully-expanded-bodys-except-post-submodules_2" -" phase_159)))))))))))))))))" +" phase_160)))))))))))))))))" "(define-values" "(stop-at-module*?)" -"(lambda(ctx_116)" +"(lambda(ctx_117)" "(begin" "(free-id-set-member?" -"(expand-context-stops ctx_116)" -"(expand-context-phase ctx_116)" -"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_116))))))" +"(expand-context-stops ctx_117)" +"(expand-context-phase ctx_117)" +"(syntax-shift-phase-level$1(datum->syntax$1 core-stx 'module*)(expand-context-phase ctx_117))))))" "(define-values" "(check-ids-unbound173.1)" "(lambda(in168_0 ids170_0 phase171_1 requires+provides172_0)" "(begin" " 'check-ids-unbound173" "(let-values(((ids_43) ids170_0))" -"(let-values(((phase_161) phase171_1))" +"(let-values(((phase_162) phase171_1))" "(let-values(((requires+provides_12) requires+provides172_0))" -"(let-values(((s_837) in168_0))" +"(let-values(((s_840) in168_0))" "(let-values()" "(begin" -"(let-values(((lst_431) ids_43))" +"(let-values(((lst_430) ids_43))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_431)))" -"((letrec-values(((for-loop_321)" -"(lambda(lst_432)" +"(let-values()(check-list lst_430)))" +"((letrec-values(((for-loop_320)" +"(lambda(lst_431)" "(begin" " 'for-loop" -"(if(pair? lst_432)" -"(let-values(((id_157)(unsafe-car lst_432))" -"((rest_256)(unsafe-cdr lst_432)))" +"(if(pair? lst_431)" +"(let-values(((id_157)(unsafe-car lst_431))" +"((rest_256)(unsafe-cdr lst_431)))" "(let-values((()" "(let-values()" "(let-values((()" "(let-values()" "(begin" "(let-values()" -"(let-values(((s657_0) s_837)" +"(let-values(((s657_0) s_840)" "((temp658_0) 'module))" "(check-not-defined93.1" " #f" @@ -74474,28 +74598,28 @@ static const char *startup_source = " temp658_0" " requires+provides_12" " id_157" -" phase_161)))" +" phase_162)))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_321 rest_256)(values))))" +"(if(not #f)(for-loop_320 rest_256)(values))))" "(values))))))" -" for-loop_321)" -" lst_431)))" +" for-loop_320)" +" lst_430)))" "(void))))))))))" "(define-values" "(eval-nested-bodys)" -"(lambda(bodys_28 phase_162 m-ns_23 self_39 ctx_117)" +"(lambda(bodys_28 phase_163 m-ns_23 self_39 ctx_118)" "(begin" "(begin" -"(let-values(((lst_433) bodys_28))" +"(let-values(((lst_432) bodys_28))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_433)))" -"((letrec-values(((for-loop_322)" -"(lambda(lst_434)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_432)))" +"((letrec-values(((for-loop_321)" +"(lambda(lst_433)" "(begin" " 'for-loop" -"(if(pair? lst_434)" -"(let-values(((body_26)(unsafe-car lst_434))((rest_257)(unsafe-cdr lst_434)))" +"(if(pair? lst_433)" +"(let-values(((body_26)(unsafe-car lst_433))((rest_257)(unsafe-cdr lst_433)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74517,63 +74641,63 @@ static const char *startup_source = " ids_44" "(parsed-define-values-rhs" " p_84)" -" phase_162" +" phase_163" " m-ns_23" -" ctx_117)))" +" ctx_118)))" "(begin" -"(let-values(((lst_435) ids_44)" -"((lst_436)" +"(let-values(((lst_434) ids_44)" +"((lst_435)" "(parsed-define-values-syms" " p_84))" -"((lst_437) vals_11))" +"((lst_436) vals_11))" "(begin" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" +"(check-list lst_434)))" +"(if(variable-reference-from-unsafe?" +"(#%variable-reference))" +"(void)" +"(let-values()" "(check-list lst_435)))" "(if(variable-reference-from-unsafe?" "(#%variable-reference))" "(void)" "(let-values()" "(check-list lst_436)))" -"(if(variable-reference-from-unsafe?" -"(#%variable-reference))" -"(void)" -"(let-values()" -"(check-list lst_437)))" -"((letrec-values(((for-loop_323)" -"(lambda(lst_438" -" lst_439" -" lst_440)" +"((letrec-values(((for-loop_322)" +"(lambda(lst_437" +" lst_438" +" lst_439)" "(begin" " 'for-loop" "(if(if(pair?" -" lst_438)" +" lst_437)" "(if(pair?" -" lst_439)" +" lst_438)" "(pair?" -" lst_440)" +" lst_439)" " #f)" " #f)" "(let-values(((id_158)" "(unsafe-car" -" lst_438))" +" lst_437))" "((rest_258)" "(unsafe-cdr" -" lst_438))" +" lst_437))" "((sym_106)" "(unsafe-car" -" lst_439))" +" lst_438))" "((rest_259)" "(unsafe-cdr" -" lst_439))" +" lst_438))" "((val_87)" "(unsafe-car" -" lst_440))" +" lst_439))" "((rest_260)" "(unsafe-cdr" -" lst_440)))" +" lst_439)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -74582,23 +74706,23 @@ static const char *startup_source = "(let-values()" "(namespace-set-variable!" " m-ns_23" -" phase_162" +" phase_163" " sym_106" " val_87))" "(values)))))" "(values)))))" "(if(not" " #f)" -"(for-loop_323" +"(for-loop_322" " rest_258" " rest_259" " rest_260)" "(values))))" "(values))))))" -" for-loop_323)" +" for-loop_322)" +" lst_434" " lst_435" -" lst_436" -" lst_437)))" +" lst_436)))" "(void)))))" "(if(let-values(((or-part_403)" "(parsed-define-syntaxes?" @@ -74623,7 +74747,7 @@ static const char *startup_source = " #f" " parameterization-key)" " current-expand-context" -" ctx_117" +" ctx_118" " 1/current-namespace" " m-ns_23)" "(let-values()" @@ -74633,7 +74757,7 @@ static const char *startup_source = "(let-values(((m-ns659_0)" " m-ns_23)" "((phase660_0)" -" phase_162))" +" phase_163))" "(make-compile-context14.1" " #f" " #f" @@ -74650,10 +74774,10 @@ static const char *startup_source = " m-ns_23)))))))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_322 rest_257)(values))))" +"(if(not #f)(for-loop_321 rest_257)(values))))" "(values))))))" -" for-loop_322)" -" lst_433)))" +" for-loop_321)" +" lst_432)))" "(void)))))" "(define-values" "(expand-submodule197.1)" @@ -74675,9 +74799,9 @@ static const char *startup_source = " ctx196_0)" "(begin" " 'expand-submodule197" -"(let-values(((s_838) s194_0))" +"(let-values(((s_841) s194_0))" "(let-values(((self_40) self195_0))" -"(let-values(((ctx_118) ctx196_0))" +"(let-values(((ctx_119) ctx196_0))" "(let-values(((is-star?_0) is-star?176_0))" "(let-values(((keep-enclosing-scope-at-phase_2)" "(if keep-enclosing-scope-at-phase186_0 keep-enclosing-scope-at-phase177_0 #f)))" @@ -74699,47 +74823,47 @@ static const char *startup_source = "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_152)(expand-context-observer ctx_118)))" -"(if obs_152" +"(let-values(((obs_157)(expand-context-observer ctx_119)))" +"(if obs_157" "(let-values()" "(let-values()" "(begin" -"(call-expand-observe obs_152 'enter-prim s_838)" +"(call-expand-observe obs_157 'enter-prim s_841)" "(call-expand-observe" -" obs_152" +" obs_157" "(if is-star?_0 'prim-submodule* 'prim-submodule)))))" "(void)))))" "(values))))" "(let-values(((ok?_85 module661_0 name662_0 _663_0)" -"(let-values(((s_839) s_838))" -"(let-values(((orig-s_90) s_839))" +"(let-values(((s_842) s_841))" +"(let-values(((orig-s_90) s_842))" "(let-values(((module661_1 name662_1 _663_1)" -"(let-values(((s_840)" -"(if(syntax?$1 s_839)" -"(syntax-e$1 s_839)" -" s_839)))" -"(if(pair? s_840)" -"(let-values(((module664_0)" -"(let-values(((s_841)(car s_840)))" -" s_841))" -"((name665_0 _666_0)" -"(let-values(((s_842)(cdr s_840)))" "(let-values(((s_843)" -"(if(syntax?$1" -" s_842)" +"(if(syntax?$1 s_842)" "(syntax-e$1 s_842)" " s_842)))" "(if(pair? s_843)" -"(let-values(((name667_0)" -"(let-values(((s_844)" -"(car" -" s_843)))" +"(let-values(((module664_0)" +"(let-values(((s_844)(car s_843)))" " s_844))" -"((_668_0)" -"(let-values(((s_845)" -"(cdr" -" s_843)))" +"((name665_0 _666_0)" +"(let-values(((s_845)(cdr s_843)))" +"(let-values(((s_846)" +"(if(syntax?$1" +" s_845)" +"(syntax-e$1 s_845)" " s_845)))" +"(if(pair? s_846)" +"(let-values(((name667_0)" +"(let-values(((s_847)" +"(car" +" s_846)))" +" s_847))" +"((_668_0)" +"(let-values(((s_848)" +"(cdr" +" s_846)))" +" s_848)))" "(values name667_0 _668_0))" "(raise-syntax-error$1" " #f" @@ -74759,7 +74883,7 @@ static const char *startup_source = "(raise-syntax-error$1" " #f" " \"submodule already declared with the same name\"" -" s_838" +" s_841" " name_81))" "(void))" "(values))))" @@ -74772,113 +74896,113 @@ static const char *startup_source = "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_153)(expand-context-observer ctx_118)))" -"(if obs_153" +"(let-values(((obs_158)(expand-context-observer ctx_119)))" +"(if obs_158" "(let-values()" "(let-values()" -"(call-expand-observe obs_153 'enter-prim s_838)))" +"(call-expand-observe obs_158 'enter-prim s_841)))" "(void)))" "(values))))" "(let-values(((submod_5)" "(let-values(((temp670_0)" -"(let-values(((v_263) ctx_118))" -"(let-values(((the-struct_120) v_263))" -"(if(expand-context/outer? the-struct_120)" +"(let-values(((v_260) ctx_119))" +"(let-values(((the-struct_118) v_260))" +"(if(expand-context/outer? the-struct_118)" "(let-values(((context679_0) 'module)" "((post-expansion-scope680_0)" " #f)" "((inner681_0)" -"(let-values(((the-struct_121)" +"(let-values(((the-struct_119)" "(root-expand-context/outer-inner" -" v_263)))" +" v_260)))" "(if(expand-context/inner?" -" the-struct_121)" +" the-struct_119)" "(let-values(((stops682_0)" " empty-free-id-set))" "(expand-context/inner2.1" "(root-expand-context/inner-module-scopes" -" the-struct_121)" +" the-struct_119)" "(root-expand-context/inner-top-level-bind-scope" -" the-struct_121)" +" the-struct_119)" "(root-expand-context/inner-all-scopes-stx" -" the-struct_121)" +" the-struct_119)" "(root-expand-context/inner-defined-syms" -" the-struct_121)" +" the-struct_119)" "(root-expand-context/inner-counter" -" the-struct_121)" +" the-struct_119)" "(root-expand-context/inner-lift-key" -" the-struct_121)" +" the-struct_119)" "(expand-context/inner-to-parsed?" -" the-struct_121)" +" the-struct_119)" "(expand-context/inner-phase" -" the-struct_121)" +" the-struct_119)" "(expand-context/inner-namespace" -" the-struct_121)" +" the-struct_119)" "(expand-context/inner-just-once?" -" the-struct_121)" +" the-struct_119)" "(expand-context/inner-module-begin-k" -" the-struct_121)" +" the-struct_119)" "(expand-context/inner-allow-unbound?" -" the-struct_121)" +" the-struct_119)" "(expand-context/inner-in-local-expand?" -" the-struct_121)" +" the-struct_119)" " stops682_0" "(expand-context/inner-declared-submodule-names" -" the-struct_121)" +" the-struct_119)" "(expand-context/inner-lifts" -" the-struct_121)" +" the-struct_119)" "(expand-context/inner-lift-envs" -" the-struct_121)" +" the-struct_119)" "(expand-context/inner-module-lifts" -" the-struct_121)" +" the-struct_119)" "(expand-context/inner-require-lifts" -" the-struct_121)" +" the-struct_119)" "(expand-context/inner-to-module-lifts" -" the-struct_121)" +" the-struct_119)" "(expand-context/inner-requires+provides" -" the-struct_121)" +" the-struct_119)" "(expand-context/inner-observer" -" the-struct_121)" +" the-struct_119)" "(expand-context/inner-for-serializable?" -" the-struct_121)" +" the-struct_119)" "(expand-context/inner-should-not-encounter-macros?" -" the-struct_121)))" +" the-struct_119)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/inner?\"" -" the-struct_121)))))" +" the-struct_119)))))" "(expand-context/outer1.1" " inner681_0" " post-expansion-scope680_0" "(root-expand-context/outer-use-site-scopes" -" the-struct_120)" +" the-struct_118)" "(root-expand-context/outer-frame-id" -" the-struct_120)" +" the-struct_118)" " context679_0" "(expand-context/outer-env" -" the-struct_120)" +" the-struct_118)" "(expand-context/outer-post-expansion-scope-action" -" the-struct_120)" +" the-struct_118)" "(expand-context/outer-scopes" -" the-struct_120)" +" the-struct_118)" "(expand-context/outer-def-ctx-scopes" -" the-struct_120)" +" the-struct_118)" "(expand-context/outer-binding-layer" -" the-struct_120)" +" the-struct_118)" "(expand-context/outer-reference-records" -" the-struct_120)" +" the-struct_118)" "(expand-context/outer-only-immediate?" -" the-struct_120)" +" the-struct_118)" "(expand-context/outer-need-eventually-defined" -" the-struct_120)" +" the-struct_118)" "(expand-context/outer-current-introduction-scopes" -" the-struct_120)" +" the-struct_118)" "(expand-context/outer-name" -" the-struct_120)))" +" the-struct_118)))" "(raise-argument-error" " 'struct-copy" " \"expand-context/outer?\"" -" the-struct_120)))))" +" the-struct_118)))))" "((self671_0) self_40)" "((temp672_0) #t)" "((keep-enclosing-scope-at-phase673_0)" @@ -74906,23 +75030,23 @@ static const char *startup_source = " #t" " mpis-to-reset677_0" " #t" -" s_838" +" s_841" " temp670_0" " self671_0))))" "(let-values((()" "(begin" -"(let-values(((obs_154)" -"(expand-context-observer ctx_118)))" -"(if obs_154" +"(let-values(((obs_159)" +"(expand-context-observer ctx_119)))" +"(if obs_159" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_154" +" obs_159" " 'exit-prim" "(extract-syntax submod_5))))" "(void)))" "(values))))" -"(let-values(((ns_128)(expand-context-namespace ctx_118)))" +"(let-values(((ns_125)(expand-context-namespace ctx_119)))" "(let-values(((module-name_3)(1/module-path-index-resolve self_40)))" "(let-values(((root-module-name_1)" "(resolved-module-path-root-name module-name_3)))" @@ -74932,7 +75056,7 @@ static const char *startup_source = "(expanded+parsed-parsed submod_5)" " submod_5))" "((temp684_0)" -"(let-values(((ns689_0) ns_128)" +"(let-values(((ns689_0) ns_125)" "((self690_0) self_40)" "((temp691_0)" "(1/resolved-module-path-name" @@ -74953,7 +75077,7 @@ static const char *startup_source = "((temp685_0) #t)" "((temp686_0)" "(expand-context-for-serializable?" -" ctx_118))" +" ctx_119))" "((modules-being-compiled687_0)" " modules-being-compiled_8)" "((temp688_0) #f))" @@ -74980,7 +75104,7 @@ static const char *startup_source = "(extend-parameterization" "(continuation-mark-set-first #f parameterization-key)" " 1/current-namespace" -" ns_128" +" ns_125" " 1/current-module-declare-name" "(1/make-resolved-module-path root-module-name_1))" "(let-values()" @@ -74996,13 +75120,13 @@ static const char *startup_source = "(if is-star?_0" "(void)" "(let-values()" -"(let-values(((obs_155)" -"(expand-context-observer ctx_118)))" -"(if obs_155" +"(let-values(((obs_160)" +"(expand-context-observer ctx_119)))" +"(if obs_160" "(let-values()" "(let-values()" "(call-expand-observe" -" obs_155" +" obs_160" " 'exit-prim" "(extract-syntax submod_5))))" "(void)))))" @@ -75010,67 +75134,67 @@ static const char *startup_source = "(let-values() submod_5)" "(if(expanded+parsed? submod_5)" "(let-values()" -"(let-values(((the-struct_122) submod_5))" -"(if(expanded+parsed? the-struct_122)" +"(let-values(((the-struct_120) submod_5))" +"(if(expanded+parsed? the-struct_120)" "(let-values(((parsed694_0)" -"(let-values(((the-struct_123)" +"(let-values(((the-struct_121)" "(expanded+parsed-parsed" " submod_5)))" -"(if(parsed-module? the-struct_123)" +"(if(parsed-module? the-struct_121)" "(let-values(((star?695_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_123)" +"(parsed-s the-struct_121)" " star?695_0" "(parsed-module-name-id" -" the-struct_123)" +" the-struct_121)" "(parsed-module-self" -" the-struct_123)" +" the-struct_121)" "(parsed-module-requires" -" the-struct_123)" +" the-struct_121)" "(parsed-module-provides" -" the-struct_123)" +" the-struct_121)" "(parsed-module-root-ctx-simple?" -" the-struct_123)" +" the-struct_121)" "(parsed-module-encoded-root-ctx" -" the-struct_123)" +" the-struct_121)" "(parsed-module-body" -" the-struct_123)" +" the-struct_121)" "(parsed-module-compiled-module" -" the-struct_123)" +" the-struct_121)" "(parsed-module-compiled-submodules" -" the-struct_123)))" +" the-struct_121)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_123)))))" +" the-struct_121)))))" "(expanded+parsed1.1" -"(expanded+parsed-s the-struct_122)" +"(expanded+parsed-s the-struct_120)" " parsed694_0))" "(raise-argument-error" " 'struct-copy" " \"expanded+parsed?\"" -" the-struct_122))))" +" the-struct_120))))" "(let-values()" -"(let-values(((the-struct_124) submod_5))" -"(if(parsed-module? the-struct_124)" +"(let-values(((the-struct_122) submod_5))" +"(if(parsed-module? the-struct_122)" "(let-values(((star?696_0) #t))" "(parsed-module25.1" -"(parsed-s the-struct_124)" +"(parsed-s the-struct_122)" " star?696_0" -"(parsed-module-name-id the-struct_124)" -"(parsed-module-self the-struct_124)" -"(parsed-module-requires the-struct_124)" -"(parsed-module-provides the-struct_124)" -"(parsed-module-root-ctx-simple? the-struct_124)" -"(parsed-module-encoded-root-ctx the-struct_124)" -"(parsed-module-body the-struct_124)" -"(parsed-module-compiled-module the-struct_124)" +"(parsed-module-name-id the-struct_122)" +"(parsed-module-self the-struct_122)" +"(parsed-module-requires the-struct_122)" +"(parsed-module-provides the-struct_122)" +"(parsed-module-root-ctx-simple? the-struct_122)" +"(parsed-module-encoded-root-ctx the-struct_122)" +"(parsed-module-body the-struct_122)" +"(parsed-module-compiled-module the-struct_122)" "(parsed-module-compiled-submodules" -" the-struct_124)))" +" the-struct_122)))" "(raise-argument-error" " 'struct-copy" " \"parsed-module?\"" -" the-struct_124)))))))))))))))))))))))))))))))))))" +" the-struct_122)))))))))))))))))))))))))))))))))))" "(define-values" "(expand-non-module*-submodules212.1)" "(lambda(compiled-submodules202_0" @@ -75084,30 +75208,30 @@ static const char *startup_source = "(begin" " 'expand-non-module*-submodules212" "(let-values(((bodys_29) bodys208_0))" -"(let-values(((phase_163) phase209_0))" +"(let-values(((phase_164) phase209_0))" "(let-values(((self_41) self210_0))" -"(let-values(((ctx_119) ctx211_0))" +"(let-values(((ctx_120) ctx211_0))" "(let-values(((mpis-to-reset_5) mpis-to-reset200_0))" "(let-values(((declared-submodule-names_9) declared-submodule-names201_0))" "(let-values(((compiled-submodules_6) compiled-submodules202_0))" "(let-values(((modules-being-compiled_9) modules-being-compiled203_0))" "(let-values()" "(reverse$1" -"(let-values(((lst_441) bodys_29))" +"(let-values(((lst_440) bodys_29))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_441)))" -"((letrec-values(((for-loop_324)" -"(lambda(fold-var_372 lst_442)" +"(let-values()(check-list lst_440)))" +"((letrec-values(((for-loop_323)" +"(lambda(fold-var_365 lst_441)" "(begin" " 'for-loop" -"(if(pair? lst_442)" -"(let-values(((body_27)(unsafe-car lst_442))" -"((rest_261)(unsafe-cdr lst_442)))" -"(let-values(((fold-var_373)" -"(let-values(((fold-var_374) fold-var_372))" -"(let-values(((fold-var_375)" +"(if(pair? lst_441)" +"(let-values(((body_27)(unsafe-car lst_441))" +"((rest_261)(unsafe-cdr lst_441)))" +"(let-values(((fold-var_366)" +"(let-values(((fold-var_367) fold-var_365))" +"(let-values(((fold-var_368)" "(let-values()" "(cons" "(let-values()" @@ -75115,7 +75239,7 @@ static const char *startup_source = "(core-form-sym" "(syntax-disarm$1" " body_27)" -" phase_163)))" +" phase_164)))" "(if(equal? tmp_68 'module)" "(let-values()" "(let-values(((temp700_0)" @@ -75144,17 +75268,17 @@ static const char *startup_source = " mpis-to-reset701_0" " body_27" " self_41" -" ctx_119)))" +" ctx_120)))" "(let-values() body_27))))" -" fold-var_374))))" -"(values fold-var_375)))))" +" fold-var_367))))" +"(values fold-var_368)))))" "(if(not #f)" -"(for-loop_324 fold-var_373 rest_261)" -" fold-var_373)))" -" fold-var_372)))))" -" for-loop_324)" +"(for-loop_323 fold-var_366 rest_261)" +" fold-var_366)))" +" fold-var_365)))))" +" for-loop_323)" " null" -" lst_441))))))))))))))))" +" lst_440))))))))))))))))" "(define-values" "(make-parse-lifted-require220.1)" "(lambda(declared-submodule-names215_0 m-ns217_0 self218_0 requires+provides219_0)" @@ -75165,37 +75289,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_846 phase_164)" +"(lambda(s_849 phase_165)" "(let-values(((ok?_86 #%require705_0 req706_0)" -"(let-values(((s_847)(syntax-disarm$1 s_846)))" -"(let-values(((orig-s_91) s_847))" +"(let-values(((s_850)(syntax-disarm$1 s_849)))" +"(let-values(((orig-s_91) s_850))" "(let-values(((#%require705_1 req706_1)" -"(let-values(((s_848)" -"(if(syntax?$1 s_847)(syntax-e$1 s_847) s_847)))" -"(if(pair? s_848)" -"(let-values(((#%require707_0)" -"(let-values(((s_849)(car s_848))) s_849))" -"((req708_0)" -"(let-values(((s_850)(cdr s_848)))" "(let-values(((s_851)" -"(if(syntax?$1 s_850)" -"(syntax-e$1 s_850)" -" s_850)))" +"(if(syntax?$1 s_850)(syntax-e$1 s_850) s_850)))" "(if(pair? s_851)" -"(let-values(((req709_0)" -"(let-values(((s_852)" -"(car s_851)))" -" s_852))" -"(()" -"(let-values(((s_853)" -"(cdr s_851)))" +"(let-values(((#%require707_0)" +"(let-values(((s_852)(car s_851))) s_852))" +"((req708_0)" +"(let-values(((s_853)(cdr s_851)))" "(let-values(((s_854)" -"(if(syntax?$1" -" s_853)" -"(syntax-e$1" -" s_853)" +"(if(syntax?$1 s_853)" +"(syntax-e$1 s_853)" " s_853)))" -"(if(null? s_854)" +"(if(pair? s_854)" +"(let-values(((req709_0)" +"(let-values(((s_855)" +"(car s_854)))" +" s_855))" +"(()" +"(let-values(((s_856)" +"(cdr s_854)))" +"(let-values(((s_857)" +"(if(syntax?$1" +" s_856)" +"(syntax-e$1" +" s_856)" +" s_856)))" +"(if(null? s_857)" "(values)" "(raise-syntax-error$1" " #f" @@ -75210,11 +75334,11 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_91)))))" "(values #t #%require705_1 req706_1))))))" "(let-values(((temp710_0)(list req706_0))" -"((s711_0) s_846)" +"((s711_0) s_849)" "((self712_0) self_42)" "((m-ns713_0) m-ns_24)" -"((phase714_0) phase_164)" -"((phase715_0) phase_164)" +"((phase714_0) phase_165)" +"((phase715_0) phase_165)" "((requires+provides716_0) requires+provides_13)" "((declared-submodule-names717_0) declared-submodule-names_10)" "((temp718_0) 'require))" @@ -75256,57 +75380,57 @@ static const char *startup_source = "(lambda(lifted-defns_2)" "(begin" "(reverse$1" -"(let-values(((lst_443) lifted-defns_2))" +"(let-values(((lst_442) lifted-defns_2))" "(begin" -"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_443)))" -"((letrec-values(((for-loop_325)" -"(lambda(fold-var_376 lst_444)" +"(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_442)))" +"((letrec-values(((for-loop_324)" +"(lambda(fold-var_369 lst_443)" "(begin" " 'for-loop" -"(if(pair? lst_444)" -"(let-values(((lifted-defn_0)(unsafe-car lst_444))" -"((rest_262)(unsafe-cdr lst_444)))" -"(let-values(((fold-var_377)" -"(let-values(((fold-var_378) fold-var_376))" -"(let-values(((fold-var_379)" +"(if(pair? lst_443)" +"(let-values(((lifted-defn_0)(unsafe-car lst_443))" +"((rest_262)(unsafe-cdr lst_443)))" +"(let-values(((fold-var_370)" +"(let-values(((fold-var_371) fold-var_369))" +"(let-values(((fold-var_372)" "(let-values()" "(cons" "(let-values()" "(defn-extract-syntax lifted-defn_0))" -" fold-var_378))))" -"(values fold-var_379)))))" -"(if(not #f)(for-loop_325 fold-var_377 rest_262) fold-var_377)))" -" fold-var_376)))))" -" for-loop_325)" +" fold-var_371))))" +"(values fold-var_372)))))" +"(if(not #f)(for-loop_324 fold-var_370 rest_262) fold-var_370)))" +" fold-var_369)))))" +" for-loop_324)" " null" -" lst_443)))))))" +" lst_442)))))))" "(define-values" "(log-lifted-defns)" "(lambda(partial-body-ctx_2 lifted-defns_3 exp-body_10 rest-bodys_4)" "(begin" -"(let-values(((obs_156)(expand-context-observer partial-body-ctx_2)))" -"(if obs_156" +"(let-values(((obs_161)(expand-context-observer partial-body-ctx_2)))" +"(if obs_161" "(let-values()" "(let-values(((s-lifted-defns_0)(lifted-defns-extract-syntax lifted-defns_3)))" "(let-values((()" "(begin" -"(call-expand-observe obs_156 'rename-list(cons exp-body_10 rest-bodys_4))" +"(call-expand-observe obs_161 'rename-list(cons exp-body_10 rest-bodys_4))" "(values))))" -"(let-values((()(begin(call-expand-observe obs_156 'module-lift-loop s-lifted-defns_0)(values))))" +"(let-values((()(begin(call-expand-observe obs_161 'module-lift-loop s-lifted-defns_0)(values))))" "(let-values((()" "(begin" -"(let-values(((lst_445) s-lifted-defns_0))" +"(let-values(((lst_444) s-lifted-defns_0))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" -"(let-values()(check-list lst_445)))" -"((letrec-values(((for-loop_326)" -"(lambda(lst_446)" +"(let-values()(check-list lst_444)))" +"((letrec-values(((for-loop_325)" +"(lambda(lst_445)" "(begin" " 'for-loop" -"(if(pair? lst_446)" -"(let-values(((s-lifted-defn_0)(unsafe-car lst_446))" -"((rest_263)(unsafe-cdr lst_446)))" +"(if(pair? lst_445)" +"(let-values(((s-lifted-defn_0)(unsafe-car lst_445))" +"((rest_263)(unsafe-cdr lst_445)))" "(let-values((()" "(let-values()" "(let-values((()" @@ -75316,38 +75440,38 @@ static const char *startup_source = "(let-values(((ok?_87" " define-values723_0" " _724_0)" -"(let-values(((s_855)" +"(let-values(((s_858)" " s-lifted-defn_0))" "(let-values(((orig-s_92)" -" s_855))" +" s_858))" "(let-values(((define-values723_1" " _724_1)" -"(let-values(((s_856)" -"(if(syntax?$1" -" s_855)" -"(syntax-e$1" -" s_855)" -" s_855)))" -"(if(pair?" -" s_856)" -"(let-values(((define-values725_0)" -"(let-values(((s_857)" -"(car" -" s_856)))" -" s_857))" -"((_726_0)" -"(let-values(((s_858)" -"(cdr" -" s_856)))" "(let-values(((s_859)" "(if(syntax?$1" " s_858)" "(syntax-e$1" " s_858)" " s_858)))" +"(if(pair?" +" s_859)" +"(let-values(((define-values725_0)" +"(let-values(((s_860)" +"(car" +" s_859)))" +" s_860))" +"((_726_0)" +"(let-values(((s_861)" +"(cdr" +" s_859)))" +"(let-values(((s_862)" +"(if(syntax?$1" +" s_861)" +"(syntax-e$1" +" s_861)" +" s_861)))" "(let-values(((flat-s_60)" "(to-syntax-list.1" -" s_859)))" +" s_862)))" "(if(not" " flat-s_60)" "(let-values()" @@ -75370,100 +75494,100 @@ static const char *startup_source = " _724_1))))))" "(begin" "(call-expand-observe" -" obs_156" +" obs_161" " 'next)" "(call-expand-observe" -" obs_156" +" obs_161" " 'visit" " s-lifted-defn_0)" "(call-expand-observe" -" obs_156" +" obs_161" " 'resolve" " define-values723_0)" "(call-expand-observe" -" obs_156" +" obs_161" " 'enter-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_156" +" obs_161" " 'prim-stop)" "(call-expand-observe" -" obs_156" +" obs_161" " 'exit-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_156" +" obs_161" " 'return" " s-lifted-defn_0)" "(call-expand-observe" -" obs_156" +" obs_161" " 'rename-one" " s-lifted-defn_0)" "(call-expand-observe" -" obs_156" +" obs_161" " 'enter-prim" " s-lifted-defn_0)" "(call-expand-observe" -" obs_156" +" obs_161" " 'prim-define-values)" "(call-expand-observe" -" obs_156" +" obs_161" " 'exit-prim" " s-lifted-defn_0))))" "(values)))))" "(values)))))" -"(if(not #f)(for-loop_326 rest_263)(values))))" +"(if(not #f)(for-loop_325 rest_263)(values))))" "(values))))))" -" for-loop_326)" -" lst_445)))" +" for-loop_325)" +" lst_444)))" "(values))))" "(let-values()" "(let-values(((ok?_88 form-id719_0 _720_0)" -"(let-values(((s_860) exp-body_10))" -"(let-values(((orig-s_93) s_860))" +"(let-values(((s_863) exp-body_10))" +"(let-values(((orig-s_93) s_863))" "(let-values(((form-id719_1 _720_1)" -"(let-values(((s_861)" -"(if(syntax?$1 s_860)(syntax-e$1 s_860) s_860)))" -"(if(pair? s_861)" +"(let-values(((s_864)" +"(if(syntax?$1 s_863)(syntax-e$1 s_863) s_863)))" +"(if(pair? s_864)" "(let-values(((form-id721_0)" -"(let-values(((s_862)(car s_861))) s_862))" +"(let-values(((s_865)(car s_864))) s_865))" "((_722_0)" -"(let-values(((s_863)(cdr s_861))) s_863)))" +"(let-values(((s_866)(cdr s_864))) s_866)))" "(values form-id721_0 _722_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_93)))))" "(values #t form-id719_1 _720_1))))))" "(begin" -"(call-expand-observe obs_156 'next)" -"(call-expand-observe obs_156 'visit exp-body_10)" -"(call-expand-observe obs_156 'resolve form-id719_0)" -"(call-expand-observe obs_156 'enter-prim exp-body_10)" -"(call-expand-observe obs_156 'prim-stop)" -"(call-expand-observe obs_156 'exit-prim exp-body_10)" -"(call-expand-observe obs_156 'return exp-body_10)))))))))" +"(call-expand-observe obs_161 'next)" +"(call-expand-observe obs_161 'visit exp-body_10)" +"(call-expand-observe obs_161 'resolve form-id719_0)" +"(call-expand-observe obs_161 'enter-prim exp-body_10)" +"(call-expand-observe obs_161 'prim-stop)" +"(call-expand-observe obs_161 'exit-prim exp-body_10)" +"(call-expand-observe obs_161 'return exp-body_10)))))))))" "(void))))))" "(define-values" "(log-defn-enter)" -"(lambda(ctx_120 defn_1)" +"(lambda(ctx_121 defn_1)" "(begin" -"(let-values(((obs_157)(expand-context-observer ctx_120)))" -"(if obs_157" +"(let-values(((obs_162)(expand-context-observer ctx_121)))" +"(if obs_162" "(let-values()" "(let-values(((s-defn_0)(defn-extract-syntax defn_1)))" "(let-values(((ok?_89 define-values727_0 _728_0)" -"(let-values(((s_864) s-defn_0))" -"(let-values(((orig-s_94) s_864))" +"(let-values(((s_867) s-defn_0))" +"(let-values(((orig-s_94) s_867))" "(let-values(((define-values727_1 _728_1)" -"(let-values(((s_865)(if(syntax?$1 s_864)(syntax-e$1 s_864) s_864)))" -"(if(pair? s_865)" +"(let-values(((s_868)(if(syntax?$1 s_867)(syntax-e$1 s_867) s_867)))" +"(if(pair? s_868)" "(let-values(((define-values729_0)" -"(let-values(((s_866)(car s_865))) s_866))" +"(let-values(((s_869)(car s_868))) s_869))" "((_730_0)" -"(let-values(((s_867)(cdr s_865)))" -"(let-values(((s_868)" -"(if(syntax?$1 s_867)" -"(syntax-e$1 s_867)" -" s_867)))" -"(let-values(((flat-s_61)(to-syntax-list.1 s_868)))" +"(let-values(((s_870)(cdr s_868)))" +"(let-values(((s_871)" +"(if(syntax?$1 s_870)" +"(syntax-e$1 s_870)" +" s_870)))" +"(let-values(((flat-s_61)(to-syntax-list.1 s_871)))" "(if(not flat-s_61)" "(let-values()" "(raise-syntax-error$1" @@ -75475,30 +75599,30 @@ static const char *startup_source = " (raise-syntax-error$1 #f \"bad syntax\" orig-s_94)))))" "(values #t define-values727_1 _728_1))))))" "(begin" -"(call-expand-observe obs_157 'visit s-defn_0)" -"(call-expand-observe obs_157 'resolve define-values727_0)" -"(call-expand-observe obs_157 'enter-prim s-defn_0)" -"(call-expand-observe obs_157 'prim-define-values)))))" +"(call-expand-observe obs_162 'visit s-defn_0)" +"(call-expand-observe obs_162 'resolve define-values727_0)" +"(call-expand-observe obs_162 'enter-prim s-defn_0)" +"(call-expand-observe obs_162 'prim-define-values)))))" "(void))))))" "(define-values" "(log-defn-exit)" -"(lambda(ctx_121 defn_2 exp-rhs_8)" +"(lambda(ctx_122 defn_2 exp-rhs_8)" "(begin" -"(let-values(((obs_158)(expand-context-observer ctx_121)))" -"(if obs_158" +"(let-values(((obs_163)(expand-context-observer ctx_122)))" +"(if obs_163" "(let-values()" "(let-values(((s-defn_1)" "(datum->syntax$1" " #f" "(list 'define-values(semi-parsed-define-values-ids defn_2) exp-rhs_8)" "(semi-parsed-define-values-s defn_2))))" -"(begin(call-expand-observe obs_158 'exit-prim s-defn_1)(call-expand-observe obs_158 'return s-defn_1))))" +"(begin(call-expand-observe obs_163 'exit-prim s-defn_1)(call-expand-observe obs_163 'return s-defn_1))))" "(void))))))" "(define-values" "(as-expand-time-top-level-bindings)" -"(lambda(ids_45 s_156 ctx_122)" +"(lambda(ids_45 s_156 ctx_123)" "(begin" -"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_122)))" +"(let-values(((top-level-bind-scope_6)(root-expand-context-top-level-bind-scope ctx_123)))" "(let-values(((tl-ids_2)" "(reverse$1" "(let-values(((lst_6) ids_45))" @@ -75507,31 +75631,31 @@ static const char *startup_source = "(void)" "(let-values()(check-list lst_6)))" "((letrec-values(((for-loop_98)" -"(lambda(fold-var_380 lst_80)" +"(lambda(fold-var_373 lst_80)" "(begin" " 'for-loop" "(if(pair? lst_80)" "(let-values(((id_159)(unsafe-car lst_80))" "((rest_38)(unsafe-cdr lst_80)))" "(let-values(((fold-var_60)" -"(let-values(((fold-var_61) fold-var_380))" -"(let-values(((fold-var_381)" +"(let-values(((fold-var_61) fold-var_373))" +"(let-values(((fold-var_374)" "(let-values()" "(cons" "(let-values()" "(remove-use-site-scopes" " id_159" -" ctx_122))" +" ctx_123))" " fold-var_61))))" -"(values fold-var_381)))))" +"(values fold-var_374)))))" "(if(not #f)(for-loop_98 fold-var_60 rest_38) fold-var_60)))" -" fold-var_380)))))" +" fold-var_373)))))" " for-loop_98)" " null" " lst_6))))))" "(let-values((()" "(begin" -"(let-values(((tl-ids1_0) tl-ids_2)((temp2_8)(expand-context-phase ctx_122))((s3_3) s_156))" +"(let-values(((tl-ids1_0) tl-ids_2)((temp2_8)(expand-context-phase ctx_123))((s3_3) s_156))" "(check-no-duplicate-ids8.1 #f #f tl-ids1_0 temp2_8 s3_3 #f #f))" "(values))))" "(let-values(((tmp-bind-ids_0)" @@ -75541,14 +75665,14 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_94)))" -"((letrec-values(((for-loop_327)" +"((letrec-values(((for-loop_326)" "(lambda(fold-var_217 lst_81)" "(begin" " 'for-loop" "(if(pair? lst_81)" "(let-values(((id_3)(unsafe-car lst_81))" "((rest_242)(unsafe-cdr lst_81)))" -"(let-values(((fold-var_382)" +"(let-values(((fold-var_375)" "(let-values(((fold-var_31) fold-var_217))" "(let-values(((fold-var_32)" "(let-values()" @@ -75560,22 +75684,22 @@ static const char *startup_source = " fold-var_31))))" "(values fold-var_32)))))" "(if(not #f)" -"(for-loop_327 fold-var_382 rest_242)" -" fold-var_382)))" +"(for-loop_326 fold-var_375 rest_242)" +" fold-var_375)))" " fold-var_217)))))" -" for-loop_327)" +" for-loop_326)" " null" " lst_94))))))" -"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_122)))))))))" +"(values tl-ids_2(select-defined-syms-and-bind!/ctx tmp-bind-ids_0 ctx_123)))))))))" "(void" "(add-core-form!*" " 'define-values" "(lambda(s_0 ctx_7)" "(let-values((()" "(begin" -"(let-values(((obs_159)(expand-context-observer ctx_7)))" -"(if obs_159" -"(let-values()(let-values()(call-expand-observe obs_159 'prim-define-values)))" +"(let-values(((obs_164)(expand-context-observer ctx_7)))" +"(if obs_164" +"(let-values()(let-values()(call-expand-observe obs_164 'prim-define-values)))" "(void)))" "(values))))" "(let-values((()" @@ -75729,31 +75853,31 @@ static const char *startup_source = "(void" "(add-core-form!*" " 'define-syntaxes" -"(lambda(s_460 ctx_123)" +"(lambda(s_467 ctx_124)" "(let-values((()" "(begin" -"(let-values(((obs_160)(expand-context-observer ctx_123)))" -"(if obs_160" -"(let-values()(let-values()(call-expand-observe obs_160 'prim-define-syntaxes)))" +"(let-values(((obs_165)(expand-context-observer ctx_124)))" +"(if obs_165" +"(let-values()(let-values()(call-expand-observe obs_165 'prim-define-syntaxes)))" "(void)))" "(values))))" "(let-values((()" "(begin" -"(let-values(((obs_161)(expand-context-observer ctx_123)))" -"(if obs_161(let-values()(let-values()(call-expand-observe obs_161 'prepare-env)))(void)))" +"(let-values(((obs_166)(expand-context-observer ctx_124)))" +"(if obs_166(let-values()(let-values()(call-expand-observe obs_166 'prepare-env)))(void)))" "(values))))" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_123) 'top-level)" +"(if(eq?(expand-context-context ctx_124) 'top-level)" "(void)" -" (let-values () (raise-syntax-error$1 #f \"not allowed in an expression position\" s_460)))" +" (let-values () (raise-syntax-error$1 #f \"not allowed in an expression position\" s_467)))" "(values))))" -"(let-values(((disarmed-s_26)(syntax-disarm$1 s_460)))" +"(let-values(((disarmed-s_26)(syntax-disarm$1 s_467)))" "(let-values(((ok?_90 define-syntaxes15_0 id16_2 rhs17_0)" -"(let-values(((s_869) disarmed-s_26))" -"(let-values(((orig-s_96) s_869))" +"(let-values(((s_872) disarmed-s_26))" +"(let-values(((orig-s_96) s_872))" "(let-values(((define-syntaxes15_1 id16_3 rhs17_1)" -"(let-values(((s_20)(if(syntax?$1 s_869)(syntax-e$1 s_869) s_869)))" +"(let-values(((s_20)(if(syntax?$1 s_872)(syntax-e$1 s_872) s_872)))" "(if(pair? s_20)" "(let-values(((define-syntaxes18_0)" "(let-values(((s_23)(car s_20))) s_23))" @@ -75765,14 +75889,14 @@ static const char *startup_source = " s_430)))" "(if(pair? s_24)" "(let-values(((id21_0)" -"(let-values(((s_726)(car s_24)))" -"(let-values(((s_466)" -"(if(syntax?$1 s_726)" -"(syntax-e$1 s_726)" -" s_726)))" +"(let-values(((s_732)(car s_24)))" +"(let-values(((s_475)" +"(if(syntax?$1 s_732)" +"(syntax-e$1 s_732)" +" s_732)))" "(let-values(((flat-s_63)" "(to-syntax-list.1" -" s_466)))" +" s_475)))" "(if(not flat-s_63)" "(let-values()" "(raise-syntax-error$1" @@ -75790,19 +75914,19 @@ static const char *startup_source = "(let-values()" "(check-list" " lst_177)))" -"((letrec-values(((for-loop_262)" +"((letrec-values(((for-loop_261)" "(lambda(id_164" -" lst_447)" +" lst_446)" "(begin" " 'for-loop" "(if(pair?" -" lst_447)" -"(let-values(((s_489)" +" lst_446)" +"(let-values(((s_498)" "(unsafe-car" -" lst_447))" +" lst_446))" "((rest_264)" "(unsafe-cdr" -" lst_447)))" +" lst_446)))" "(let-values(((id_94)" "(let-values(((id_75)" " id_164))" @@ -75812,21 +75936,21 @@ static const char *startup_source = "(let-values()" "(if(let-values(((or-part_263)" "(if(syntax?$1" -" s_489)" +" s_498)" "(symbol?" "(syntax-e$1" -" s_489))" +" s_498))" " #f)))" "(if or-part_263" " or-part_263" "(symbol?" -" s_489)))" -" s_489" +" s_498)))" +" s_498" "(raise-syntax-error$1" " #f" " \"not an identifier\"" " orig-s_96" -" s_489)))))" +" s_498)))))" "(cons" " id24_1" " id_75)))))" @@ -75834,31 +75958,31 @@ static const char *startup_source = " id_165)))))" "(if(not" " #f)" -"(for-loop_262" +"(for-loop_261" " id_94" " rest_264)" " id_94)))" " id_164)))))" -" for-loop_262)" +" for-loop_261)" " null" " lst_177)))))" "(reverse$1 id_92))))))))" "((rhs22_0)" -"(let-values(((s_870)(cdr s_24)))" -"(let-values(((s_474)" -"(if(syntax?$1 s_870)" -"(syntax-e$1 s_870)" -" s_870)))" -"(if(pair? s_474)" +"(let-values(((s_873)(cdr s_24)))" +"(let-values(((s_483)" +"(if(syntax?$1 s_873)" +"(syntax-e$1 s_873)" +" s_873)))" +"(if(pair? s_483)" "(let-values(((rhs23_2)" -"(let-values(((s_490)" +"(let-values(((s_499)" "(car" -" s_474)))" -" s_490))" +" s_483)))" +" s_499))" "(()" "(let-values(((s_44)" "(cdr" -" s_474)))" +" s_483)))" "(let-values(((s_166)" "(if(syntax?$1" " s_44)" @@ -75885,48 +76009,48 @@ static const char *startup_source = "(values define-syntaxes18_0 id19_0 rhs20_0))" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_96)))))" "(values #t define-syntaxes15_1 id16_3 rhs17_1))))))" -"(let-values(((ids_47 syms_29)(as-expand-time-top-level-bindings id16_2 s_460 ctx_123)))" +"(let-values(((ids_47 syms_29)(as-expand-time-top-level-bindings id16_2 s_467 ctx_124)))" "(let-values(((exp-rhs_10)" -"(let-values(((temp25_8) rhs17_0)((temp26_7)(as-named-context ctx_123 ids_47)))" +"(let-values(((temp25_8) rhs17_0)((temp26_7)(as-named-context ctx_124 ids_47)))" "(expand-transformer47.1 #f #f #f #f #f #f #f #f #f #f #f #f temp25_8 temp26_7))))" -"(if(expand-context-to-parsed? ctx_123)" -"(parsed-define-syntaxes20.1 s_460 ids_47 syms_29 exp-rhs_10)" -"(let-values(((s27_3) s_460)((temp28_5)(list define-syntaxes15_0 ids_47 exp-rhs_10)))" +"(if(expand-context-to-parsed? ctx_124)" +"(parsed-define-syntaxes20.1 s_467 ids_47 syms_29 exp-rhs_10)" +"(let-values(((s27_3) s_467)((temp28_5)(list define-syntaxes15_0 ids_47 exp-rhs_10)))" "(rebuild5.1 #f #f s27_3 temp28_5)))))))))))))" "(void" "(add-core-form!*" " 'begin-for-syntax" -" (lambda (s_307 ctx_124) (raise-syntax-error$1 #f \"not allowed in an expression position\" s_307))))" +" (lambda (s_307 ctx_125) (raise-syntax-error$1 #f \"not allowed in an expression position\" s_307))))" "(void" "(add-core-form!*" " '#%require" -"(lambda(s_45 ctx_125)" +"(lambda(s_45 ctx_126)" "(let-values((()" "(begin" -"(let-values(((obs_15)(expand-context-observer ctx_125)))" -"(if obs_15(let-values()(let-values()(call-expand-observe obs_15 'prim-require)))(void)))" +"(let-values(((obs_14)(expand-context-observer ctx_126)))" +"(if obs_14(let-values()(let-values()(call-expand-observe obs_14 'prim-require)))(void)))" "(values))))" "(let-values((()" "(begin" -"(if(eq?(expand-context-context ctx_125) 'top-level)" +"(if(eq?(expand-context-context ctx_126) 'top-level)" "(void)" " (let-values () (raise-syntax-error$1 #f \"allowed only in a module or the top level\" s_45)))" "(values))))" "(let-values(((disarmed-s_27)(syntax-disarm$1 s_45)))" "(let-values(((ok?_91 #%require29_0 req30_0)" -"(let-values(((s_871) disarmed-s_27))" -"(let-values(((orig-s_97) s_871))" +"(let-values(((s_874) disarmed-s_27))" +"(let-values(((orig-s_97) s_874))" "(let-values(((#%require29_1 req30_1)" -"(let-values(((s_872)(if(syntax?$1 s_871)(syntax-e$1 s_871) s_871)))" -"(if(pair? s_872)" -"(let-values(((#%require31_0)(let-values(((s_46)(car s_872))) s_46))" +"(let-values(((s_875)(if(syntax?$1 s_874)(syntax-e$1 s_874) s_874)))" +"(if(pair? s_875)" +"(let-values(((#%require31_0)(let-values(((s_46)(car s_875))) s_46))" "((req32_0)" -"(let-values(((s_32)(cdr s_872)))" -"(let-values(((s_728)" +"(let-values(((s_32)(cdr s_875)))" +"(let-values(((s_734)" "(if(syntax?$1 s_32)" "(syntax-e$1 s_32)" " s_32)))" -"(let-values(((flat-s_64)(to-syntax-list.1 s_728)))" +"(let-values(((flat-s_64)(to-syntax-list.1 s_734)))" "(if(not flat-s_64)" "(let-values()" " (raise-syntax-error$1 #f \"bad syntax\" orig-s_97))" @@ -75943,15 +76067,15 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-list lst_12)))" -"((letrec-values(((for-loop_328)" -"(lambda(fold-var_383 lst_448)" +"((letrec-values(((for-loop_327)" +"(lambda(fold-var_376 lst_447)" "(begin" " 'for-loop" -"(if(pair? lst_448)" -"(let-values(((req_20)(unsafe-car lst_448))" -"((rest_265)(unsafe-cdr lst_448)))" -"(let-values(((fold-var_384)" -"(let-values(((fold-var_385) fold-var_383))" +"(if(pair? lst_447)" +"(let-values(((req_20)(unsafe-car lst_447))" +"((rest_265)(unsafe-cdr lst_447)))" +"(let-values(((fold-var_377)" +"(let-values(((fold-var_378) fold-var_376))" "(let-values(((fold-var_36)" "(let-values()" "(cons" @@ -75959,19 +76083,19 @@ static const char *startup_source = "(add-scope" " req_20" " sc_35))" -" fold-var_385))))" +" fold-var_378))))" "(values fold-var_36)))))" "(if(not #f)" -"(for-loop_328 fold-var_384 rest_265)" -" fold-var_384)))" -" fold-var_383)))))" -" for-loop_328)" +"(for-loop_327 fold-var_377 rest_265)" +" fold-var_377)))" +" fold-var_376)))))" +" for-loop_327)" " null" " lst_12)))))" "((s34_0) s_45)" "((temp35_3) #f)" -"((temp36_7)(expand-context-namespace ctx_125))" -"((temp37_5)(expand-context-phase ctx_125))" +"((temp36_7)(expand-context-namespace ctx_126))" +"((temp37_5)(expand-context-phase ctx_126))" "((temp38_3)(let-values(((temp41_5) #f))(make-requires+provides8.1 #f #f temp41_5)))" "((temp39_8) 'require)" "((temp40_4) #t))" @@ -76000,15 +76124,15 @@ static const char *startup_source = " temp36_7" " temp37_5" " temp38_3))" -"(if(expand-context-to-parsed? ctx_125)(parsed-require23.1 s_45) s_45))))))))))" +"(if(expand-context-to-parsed? ctx_126)(parsed-require23.1 s_45) s_45))))))))))" "(void" "(add-core-form!*" " '#%provide" -"(lambda(s_433 ctx_126)" +"(lambda(s_432 ctx_127)" "(begin" -"(let-values(((obs_23)(expand-context-observer ctx_126)))" -"(if obs_23(let-values()(let-values()(call-expand-observe obs_23 'prim-provide)))(void)))" -" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_433)))))" +"(let-values(((obs_22)(expand-context-observer ctx_127)))" +"(if obs_22(let-values()(let-values()(call-expand-observe obs_22 'prim-provide)))(void)))" +" (raise-syntax-error$1 #f \"not allowed outside of a module body\" s_432)))))" "(define-values(ns)(make-namespace))" "(void" "(begin" @@ -76073,7 +76197,7 @@ static const char *startup_source = "(if(variable-reference-from-unsafe?(#%variable-reference))" "(void)" "(let-values()(check-in-hash-keys ht_165)))" -"((letrec-values(((for-loop_265)" +"((letrec-values(((for-loop_264)" "(lambda(table_202 i_36)" "(begin" " 'for-loop" @@ -76091,10 +76215,10 @@ static const char *startup_source = "(hash-set table_175 key_95 val_89)))))" "(values table_95)))))" "(if(not #f)" -"(for-loop_265 table_219(hash-iterate-next ht_165 i_36))" +"(for-loop_264 table_219(hash-iterate-next ht_165 i_36))" " table_219)))" " table_202)))))" -" for-loop_265)" +" for-loop_264)" " '#hash()" "(hash-iterate-first ht_165))))))" "(declare-kernel-module!8.1 eval27_0 temp28_6 temp29_4 ns))" @@ -76102,7 +76226,7 @@ static const char *startup_source = "(let-values(((lst_270) runtime-instances))" "(begin" "(if(variable-reference-from-unsafe?(#%variable-reference))(void)(let-values()(check-list lst_270)))" -"((letrec-values(((for-loop_329)" +"((letrec-values(((for-loop_328)" "(lambda(lst_54)" "(begin" " 'for-loop" @@ -76151,9 +76275,9 @@ static const char *startup_source = " name_84)))" "(values)))))" "(values)))))))" -"(if(not #f)(for-loop_329 rest_171)(values))))" +"(if(not #f)(for-loop_328 rest_171)(values))))" "(values))))))" -" for-loop_329)" +" for-loop_328)" " lst_270)))" "(void))" "(let-values(((temp33_5) '#%builtin)" @@ -76163,5 +76287,5 @@ static const char *startup_source = "(declare-reexporting-module!50.1 ns35_1 temp36_8 #t temp33_5 temp34_4))" "(1/current-namespace ns)" "(1/dynamic-require ''#%kernel 0)))" -"(define-values(datum->kernel-syntax)(lambda(s_460)(begin(1/datum->syntax core-stx s_460)))))" +"(define-values(datum->kernel-syntax)(lambda(s_467)(begin(1/datum->syntax core-stx s_467)))))" ;