From 17aae656646ebae33482b8c57e8b1694a736efeb Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 20 Jan 2020 10:27:07 -0700 Subject: [PATCH] fix 'inferred-name handling for keyword-supporting `define` Closes #3009 --- .../tests/racket/expobs-regression.rktd | 14136 ++++++++-------- .../tests/racket/function.rktl | 2 + pkgs/racket-test-core/tests/racket/procs.rktl | 67 + racket/collects/racket/private/kw.rkt | 66 +- racket/collects/racket/private/name.rkt | 3 +- .../collects/racket/private/norm-define.rkt | 3 +- racket/src/expander/compile/expr.rkt | 2 +- racket/src/racket/src/startup.inc | 3 +- 8 files changed, 7227 insertions(+), 7055 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/expobs-regression.rktd b/pkgs/racket-test-core/tests/racket/expobs-regression.rktd index 9efd2c61c5..be299f6a8f 100644 --- a/pkgs/racket-test-core/tests/racket/expobs-regression.rktd +++ b/pkgs/racket-test-core/tests/racket/expobs-regression.rktd @@ -17,358 +17,6 @@ (prim-#%top . #s(stx-boundary (s0 . s1))) (exit-prim/return . #s(stx-boundary (s0 . s1))) (exit-prim/return . #s(stx-boundary (s0 (s1 . s2)))))) - ((begin0 '3 '5) - . - ((start-top . #f) - (visit . #s(stx-boundary (s0 (s1 (s2 3) (s2 5))))) - (visit . #s(stx-boundary (s0 (s1 (s2 3) (s2 5))))) - (resolve . #s(stx-boundary s0)) - (stop/return . #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 . #s(stx-boundary (s0 (s1 (s2 3) (s2 5))))) - (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 . #s(stx-boundary (s0 (s1 3) (s1 5)))) - (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/return . #s(stx-boundary (s0 3))) - (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/return . #s(stx-boundary (s0 5))) - (exit-prim/return . #s(stx-boundary (s0 (s1 3) (s1 5)))) - (exit-prim/return . #s(stx-boundary (s0 (s1 (s2 3) (s2 5))))))) - ((quote-syntax (stx-quoted)) - . - ((start-top . #f) - (visit . #s(stx-boundary (s0 (s1 (s2))))) - (visit . #s(stx-boundary (s0 (s1 (s2))))) - (resolve . #s(stx-boundary s0)) - (stop/return . #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 . #s(stx-boundary (s0 (s1 (s2))))) - (visit . #s(stx-boundary (s0 (s1)))) - (resolve . #s(stx-boundary s0)) - (enter-prim . #s(stx-boundary (s0 (s1)))) - (prim-quote-syntax . #s(stx-boundary (s0 (s1)))) - (exit-prim/return . #s(stx-boundary (s0 (s1)))) - (exit-prim/return . #s(stx-boundary (s0 (s1 (s2))))))) - ((#%variable-reference __z) - . - ((start-top . #f) - (visit . #s(stx-boundary (s0 (s1 s2)))) - (visit . #s(stx-boundary (s0 (s1 s2)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #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 . #s(stx-boundary (s0 (s1 s2)))) - (visit . #s(stx-boundary (s0 s1))) - (resolve . #s(stx-boundary s0)) - (enter-prim . #s(stx-boundary (s0 s1))) - (prim-#%variable-reference . #s(stx-boundary (s0 s1))) - (exit-prim/return . #s(stx-boundary (s0 s1))) - (exit-prim/return . #s(stx-boundary (s0 (s1 s2)))))) - ((let () (define (ok x) '8) (ok 5)) - . - ((start-top . #f) - (visit . #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)) - (stop/return - . - #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 - . - #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s3 5))))) - (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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5))) - . - #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 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) - (letX-renames - () - () - () - () - #s(stx-boundary (s0 (s1 s2) (s3 8))) - #s(stx-boundary (s1 5))) - (enter-block - #s(stx-boundary (s0 (s1 s2) (s3 8))) - #s(stx-boundary (s1 5))) - (block-renames - (#s(stx-boundary (s0 (s1 s2) (s3 8))) #s(stx-boundary (s1 5))) - #s(stx-boundary (s0 (s1 s2) (s3 8))) - #s(stx-boundary (s1 5))) - (next . #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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 s1 (s2 (s3) (s4 8)))) - . - #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)))) - . - #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))))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8)))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) (s3 8)))) - (next . #f) - (visit . #s(stx-boundary (s0 5))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 5))) - (block->letrec - ((#s(stx-boundary s0))) - (#s(stx-boundary (s1 (s2) (s3 8)))) - #s(stx-boundary (s0 5))) - (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 . #s(stx-boundary (s0 (s1) (s2 8)))) - (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) - (visit . #s(stx-boundary (s0 8))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 8))) - (block->list . #f) - (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/return . #s(stx-boundary (s0 8))) - (exit-list #s(stx-boundary (s0 8))) - (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 8)))) - (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)) - (tag2 #s(stx-boundary (s0 s1 5)) . #s(stx-boundary (s1 5))) - (enter-macro #s(stx-boundary (s0 s1 5)) . #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)) . #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 . #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 5)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . 5)) . #s(stx-boundary 5)) - (enter-prim . #s(stx-boundary (s0 . 5))) - (prim-#%datum . #s(stx-boundary (s0 . 5))) - (exit-prim/return . #s(stx-boundary (s0 5))) - (exit-prim/return . #s(stx-boundary (s0 s1 (s2 5)))) - (exit-list #s(stx-boundary (s0 s1 (s2 5)))) - (finish-block - #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8)))) (s5 s1 (s4 5))))) - (exit-prim/return - . - #s(stx-boundary - (s0 () (s0 (((s1) (s2 (s3) (s4 8)))) (s5 s1 (s4 5)))))) - (exit-prim/return - . - #s(stx-boundary - (s0 (s1 () (s1 (((s2) (s3 (s4) (s5 8)))) (s6 s2 (s5 5))))))))) - ((lambda (x) (define y (+ x x)) y) - . - ((start-top . #f) - (visit . #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)) - (stop/return . #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 - . - #s(stx-boundary (s0 (s1 (s2) (s3 s4 (s5 s2 s2)) s4)))) - (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)) - . - #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))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 s3 (s4 s1 s1)) s3)) - . - #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 . #s(stx-boundary (s0 (s1) (s2 s3 (s4 s1 s1)) s3))) - (lambda-renames - #s(stx-boundary (s0)) - #s(stx-boundary (s1 s2 (s3 s0 s0))) - #s(stx-boundary s2)) - (enter-block #s(stx-boundary (s0 s1 (s2 s3 s3))) #s(stx-boundary s1)) - (block-renames - (#s(stx-boundary (s0 s1 (s2 s3 s3))) #s(stx-boundary s1)) - #s(stx-boundary (s0 s1 (s2 s3 s3))) - #s(stx-boundary s1)) - (next . #f) - (visit . #s(stx-boundary (s0 s1 (s2 s3 s3)))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary (s0 s1 (s2 s3 s3))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 s1 (s2 s3 s3))) - . - #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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 s3 s3))) - . - #s(stx-boundary (s0 (s1) (s2 s3 s3)))) - (visit . #s(stx-boundary (s0 (s1) (s2 s3 s3)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 s3 s3)))) - (prim-define-values . #s(stx-boundary (s0 (s1) (s2 s3 s3)))) - (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 s2 s2))) - (next . #f) - (visit . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary s0)) - (block->letrec - ((#s(stx-boundary s0))) - (#s(stx-boundary (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)) - (tag2 #s(stx-boundary (s0 s1 s2 s2)) . #s(stx-boundary (s1 s2 s2))) - (enter-macro - #s(stx-boundary (s0 s1 s2 s2)) - . - #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)) - . - #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 . #s(stx-boundary (s0 s1 s2 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-prim/return . #s(stx-boundary (s0 s1 s2 s2))) - (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)) - (finish-block #s(stx-boundary (s0 (((s1) (s2 s3 s4 s4))) s1))) - (exit-prim/return - . - #s(stx-boundary (s0 (s1) (s2 (((s3) (s4 s5 s1 s1))) s3)))) - (exit-prim/return - . - #s(stx-boundary (s0 (s1 (s2) (s3 (((s4) (s5 s6 s2 s2))) s4))))))) ((with-continuation-mark __x __y __z) . ((start-top . #f) @@ -413,3739 +61,6 @@ (exit-prim/return . #s(stx-boundary (s0 (s1 (s2 . s3) (s2 . s4) (s2 . s5))))))) - ((let () - (define-syntax (ok stx) - (define-values - (exp opaque) - (syntax-local-expand-expression (cadr (syntax-e stx)))) - opaque) - (#%expression (ok 9))) - . - ((start-top . #f) - (visit - . - #s(stx-boundary - (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 s7) (s8 (s9 (s10 s4)))) s7) - (s0 (s3 9)))))) - (resolve . #s(stx-boundary s0)) - (stop/return - . - #s(stx-boundary - (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 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 s7) (s8 (s9 (s10 s4)))) s7) - (s0 (s3 9)))))) - (prim-#%expression - . - #s(stx-boundary - (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) (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) (s7 (s8 (s9 s3)))) s6) - (s10 (s2 9)))) - . - #s(stx-boundary - (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) (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 - (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)))) - . - #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 - . - #s(stx-boundary - (s0 - () - (s1 (s2 s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6) - (s10 (s2 9))))) - (letX-renames - () - () - () - () - #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5)) - #s(stx-boundary (s9 (s1 9)))) - (enter-block - #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5)) - #s(stx-boundary (s9 (s1 9)))) - (block-renames - (#s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5)) - #s(stx-boundary (s9 (s1 9)))) - #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5)) - #s(stx-boundary (s9 (s1 9)))) - (next . #f) - (visit - . - #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5)) - . - #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))) - . - #s(stx-boundary - (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6)))) - (visit - . - #s(stx-boundary - (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6)))) - (resolve . #s(stx-boundary s0)) - (stop/return - . - #s(stx-boundary - (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6)))) - (prim-define-syntaxes - . - #s(stx-boundary - (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6)))) - (rename-one - (#s(stx-boundary s0)) - #s(stx-boundary (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)) - . - #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)) - . - #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 - . - #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 (s6 (s7 s1)))) s4))) - (lambda-renames - #s(stx-boundary (s0)) - #s(stx-boundary (s1 (s2 s3) (s4 (s5 (s6 s0))))) - #s(stx-boundary s3)) - (enter-block - #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s6))))) - #s(stx-boundary s2)) - (block-renames - (#s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s6))))) #s(stx-boundary s2)) - #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s6))))) - #s(stx-boundary s2)) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s6)))))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s6)))))) - (prim-define-values . #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s6)))))) - (rename-one - (#s(stx-boundary s0) #s(stx-boundary s1)) - #s(stx-boundary (s2 (s3 (s4 s5))))) - (next . #f) - (visit . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary s0)) - (block->letrec - ((#s(stx-boundary s0) #s(stx-boundary s1))) - (#s(stx-boundary (s2 (s3 (s4 s5))))) - #s(stx-boundary s1)) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 (s2 s3))))) - (resolve . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (tag2 - #s(stx-boundary (s0 s1 (s2 (s3 s4)))) - . - #s(stx-boundary (s1 (s2 (s3 s4))))) - (enter-macro - #s(stx-boundary (s0 s1 (s2 (s3 s4)))) - . - #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)))) - . - #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 . #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)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 s1 (s2 s3))) . #s(stx-boundary (s1 (s2 s3)))) - (enter-macro - #s(stx-boundary (s0 s1 (s2 s3))) - . - #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))) - . - #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 . #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)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 s1 s2)) . #s(stx-boundary (s1 s2))) - (enter-macro #s(stx-boundary (s0 s1 s2)) . #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)) . #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 . #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)) - (exit-prim/return . #s(stx-boundary (s0 s1 s2))) - (exit-prim/return . #s(stx-boundary (s0 s1 (s0 s2 s3)))) - (exit-prim/return . #s(stx-boundary (s0 s1 (s0 s2 (s0 s3 s4))))) - (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)) - (finish-block - #s(stx-boundary (s0 (((s1 s2) (s3 s4 (s3 s5 (s3 s6 s7))))) s2))) - (exit-prim/return - . - #s(stx-boundary - (s0 (s1) (s2 (((s3 s4) (s5 s6 (s5 s7 (s5 s8 s1))))) s4)))) - (next . #f) - (exit-bind . #f) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 9)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1 9)))) - (block->letrec () () #s(stx-boundary (s0 (s1 9)))) - (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 . #s(stx-boundary (s0 (s1 9)))) - (visit . #s(stx-boundary (s0 9))) - (resolve . #s(stx-boundary s0)) - (enter-macro #s(stx-boundary (s0 9)) . #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)) - (tag2 #s(stx-boundary (s0 . 9)) . #s(stx-boundary 9)) - (enter-prim . #s(stx-boundary (s0 . 9))) - (prim-#%datum . #s(stx-boundary (s0 . 9))) - (exit-prim/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) . #s(stx-boundary #:opaque)) - (visit . #s(stx-boundary #:opaque)) - (opaque-expr . #s(stx-boundary (s0 9))) - (tag . #s(stx-boundary (s0 9))) - (exit-prim/return . #s(stx-boundary (s0 9))) - (exit-list #s(stx-boundary (s0 9))) - (finish-block #s(stx-boundary (s0 () (s1 9)))) - (exit-prim/return . #s(stx-boundary (s0 () (s0 () (s1 9))))) - (exit-prim/return . #s(stx-boundary (s0 (s1 () (s1 () (s2 9)))))))) - ((let-values (((x) __y) ((y z) __w)) __x) - . - ((start-top . #f) - (visit . #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)) - (stop/return . #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 - . - #s(stx-boundary (s0 (s1 (((s2) s3) ((s4 s5) s6)) s7)))) - (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 . #s(stx-boundary (s0 (((s1) s2) ((s3 s4) s5)) s6))) - (letX-renames - () - () - ((#s(stx-boundary s0)) (#s(stx-boundary s1) #s(stx-boundary s2))) - (#s(stx-boundary s3) #s(stx-boundary s4)) - #s(stx-boundary s5)) - (next . #f) - (visit . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . s1)) . #s(stx-boundary s1)) - (enter-prim . #s(stx-boundary (s0 . s1))) - (prim-#%top . #s(stx-boundary (s0 . s1))) - (exit-prim/return . #s(stx-boundary (s0 . s1))) - (next . #f) - (visit . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . s1)) . #s(stx-boundary s1)) - (enter-prim . #s(stx-boundary (s0 . s1))) - (prim-#%top . #s(stx-boundary (s0 . s1))) - (exit-prim/return . #s(stx-boundary (s0 . s1))) - (enter-block #s(stx-boundary s0)) - (block-renames (#s(stx-boundary s0)) #s(stx-boundary s0)) - (next . #f) - (visit . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary s0)) - (block->list . #f) - (enter-list #s(stx-boundary s0)) - (next . #f) - (visit . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . s1)) . #s(stx-boundary s1)) - (enter-prim . #s(stx-boundary (s0 . s1))) - (prim-#%top . #s(stx-boundary (s0 . s1))) - (exit-prim/return . #s(stx-boundary (s0 . s1))) - (exit-list #s(stx-boundary (s0 . s1))) - (exit-prim/return - . - #s(stx-boundary - (s0 (((s1) (s2 . s3)) ((s4 s5) (s2 . s6))) (s2 . s7)))) - (exit-prim/return - . - #s(stx-boundary - (s0 (s1 (((s2) (s3 . s4)) ((s5 s6) (s3 . s7))) (s3 . s8))))))) - ((let () - (define-syntax (ok stx) (quote-syntax 8)) - (define-syntax (second stx) (quote-syntax (ok 6))) - (define (ident x) x) - (define (second-ident y) y) - (ident (second-ident (second)))) - . - ((start-top . #f) - (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))))))) - (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)) - (stop/return - . - #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 - . - #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 8)) - (s1 (s5 s3) (s4 (s2 6))) - (s6 (s7 s8) s8) - (s6 (s9 s10) s10) - (s7 (s9 (s5)))))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary - (s0 - () - (s1 (s2 s3) (s4 8)) - (s1 (s5 s3) (s4 (s2 6))) - (s6 (s7 s8) s8) - (s6 (s9 s10) s10) - (s7 (s9 (s5))))) - . - #s(stx-boundary - (s0 - () - (s1 (s2 s3) (s4 8)) - (s1 (s5 s3) (s4 (s2 6))) - (s6 (s7 s8) s8) - (s6 (s9 s10) s10) - (s7 (s9 (s5)))))) - (macro-pre-x - . - #s(stx-boundary - (s0 - () - (s1 (s2 s3) (s4 8)) - (s1 (s5 s3) (s4 (s2 6))) - (s6 (s7 s8) s8) - (s6 (s9 s10) s10) - (s7 (s9 (s5)))))) - (macro-post-x - #s(stx-boundary - (s0 - () - (s1 (s2 s3) (s4 8)) - (s1 (s5 s3) (s4 (s2 6))) - (s6 (s7 s8) s8) - (s6 (s9 s10) s10) - (s7 (s9 (s5))))) - . - #s(stx-boundary - (s11 - () - (s1 (s2 s3) (s4 8)) - (s1 (s5 s3) (s4 (s2 6))) - (s6 (s7 s8) s8) - (s6 (s9 s10) s10) - (s7 (s9 (s5)))))) - (exit-macro - #s(stx-boundary - (s0 - () - (s1 (s2 s3) (s4 8)) - (s1 (s5 s3) (s4 (s2 6))) - (s6 (s7 s8) s8) - (s6 (s9 s10) s10) - (s7 (s9 (s5))))) - . - #s(stx-boundary - (s0 - () - (s1 (s2 s3) (s4 8)) - (s1 (s5 s3) (s4 (s2 6))) - (s6 (s7 s8) s8) - (s6 (s9 s10) s10) - (s7 (s9 (s5)))))) - (visit - . - #s(stx-boundary - (s0 - () - (s1 (s2 s3) (s4 8)) - (s1 (s5 s3) (s4 (s2 6))) - (s6 (s7 s8) s8) - (s6 (s9 s10) s10) - (s7 (s9 (s5)))))) - (resolve . #s(stx-boundary s0)) - (enter-prim - . - #s(stx-boundary - (s0 - () - (s1 (s2 s3) (s4 8)) - (s1 (s5 s3) (s4 (s2 6))) - (s6 (s7 s8) s8) - (s6 (s9 s10) s10) - (s7 (s9 (s5)))))) - (prim-let-values - . - #s(stx-boundary - (s0 - () - (s1 (s2 s3) (s4 8)) - (s1 (s5 s3) (s4 (s2 6))) - (s6 (s7 s8) s8) - (s6 (s9 s10) s10) - (s7 (s9 (s5)))))) - (letX-renames - () - () - () - () - #s(stx-boundary (s0 (s1 s2) (s3 8))) - #s(stx-boundary (s0 (s4 s2) (s3 (s1 6)))) - #s(stx-boundary (s5 (s6 s7) s7)) - #s(stx-boundary (s5 (s8 s9) s9)) - #s(stx-boundary (s6 (s8 (s4))))) - (enter-block - #s(stx-boundary (s0 (s1 s2) (s3 8))) - #s(stx-boundary (s0 (s4 s2) (s3 (s1 6)))) - #s(stx-boundary (s5 (s6 s7) s7)) - #s(stx-boundary (s5 (s8 s9) s9)) - #s(stx-boundary (s6 (s8 (s4))))) - (block-renames - (#s(stx-boundary (s0 (s1 s2) (s3 8))) - #s(stx-boundary (s0 (s4 s2) (s3 (s1 6)))) - #s(stx-boundary (s5 (s6 s7) s7)) - #s(stx-boundary (s5 (s8 s9) s9)) - #s(stx-boundary (s6 (s8 (s4))))) - #s(stx-boundary (s0 (s1 s2) (s3 8))) - #s(stx-boundary (s0 (s4 s2) (s3 (s1 6)))) - #s(stx-boundary (s5 (s6 s7) s7)) - #s(stx-boundary (s5 (s8 s9) s9)) - #s(stx-boundary (s6 (s8 (s4))))) - (next . #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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8)))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (prim-define-syntaxes . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (rename-one (#s(stx-boundary s0)) #s(stx-boundary (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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 8))) - . - #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 . #s(stx-boundary (s0 (s1) (s2 8)))) - (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) - (visit . #s(stx-boundary (s0 8))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 8))) - (block->list . #f) - (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 . #s(stx-boundary (s0 8))) - (exit-prim/return . #s(stx-boundary (s0 8))) - (exit-list #s(stx-boundary (s0 8))) - (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 8)))) - (next . #f) - (exit-bind . #f) - (next . #f) - (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)))) - . - #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))))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6))))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) - (prim-define-syntaxes - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) - (rename-one - (#s(stx-boundary s0)) - #s(stx-boundary (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)))) - . - #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))))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3 6)))) - . - #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 . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) - (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) - (visit . #s(stx-boundary (s0 (s1 6)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1 6)))) - (block->list . #f) - (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 . #s(stx-boundary (s0 (s1 6)))) - (exit-prim/return . #s(stx-boundary (s0 (s1 6)))) - (exit-list #s(stx-boundary (s0 (s1 6)))) - (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) - (next . #f) - (exit-bind . #f) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 s2) s2))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary (s0 (s1 s2) s2)) - . - #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))) - (exit-macro - #s(stx-boundary (s0 s1 (s2 (s3) s3))) - . - #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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) s3))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) s2))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 s2) s2))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary (s0 (s1 s2) s2)) - . - #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))) - (exit-macro - #s(stx-boundary (s0 s1 (s2 (s3) s3))) - . - #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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) s3))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) s2))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 (s2))))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1 (s2))))) - (block->letrec - ((#s(stx-boundary s0)) (#s(stx-boundary s1))) - (#s(stx-boundary (s2 (s3) s3)) #s(stx-boundary (s2 (s4) s4))) - #s(stx-boundary (s0 (s1 (s5))))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1) s1))) - (resolve . #s(stx-boundary s0)) - (enter-prim . #s(stx-boundary (s0 (s1) s1))) - (prim-lambda . #s(stx-boundary (s0 (s1) s1))) - (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) - (visit . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary s0)) - (block->list . #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/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 . #s(stx-boundary (s0 (s1) s1))) - (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) - (visit . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary s0)) - (block->list . #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/return . #s(stx-boundary (s0 (s1) s1))) - (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)) - (tag2 - #s(stx-boundary (s0 s1 (s2 (s3)))) - . - #s(stx-boundary (s1 (s2 (s3))))) - (enter-macro - #s(stx-boundary (s0 s1 (s2 (s3)))) - . - #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)))) - . - #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 . #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)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 s1 (s2))) . #s(stx-boundary (s1 (s2)))) - (enter-macro - #s(stx-boundary (s0 s1 (s2))) - . - #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))) - . - #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 . #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)) - (enter-macro #s(stx-boundary (s0)) . #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)) . #s(stx-boundary (s0 6))) - (visit . #s(stx-boundary (s0 6))) - (resolve . #s(stx-boundary s0)) - (enter-macro #s(stx-boundary (s0 6)) . #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) . #s(stx-boundary 8)) - (visit . #s(stx-boundary 8)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . 8)) . #s(stx-boundary 8)) - (enter-prim . #s(stx-boundary (s0 . 8))) - (prim-#%datum . #s(stx-boundary (s0 . 8))) - (exit-prim/return . #s(stx-boundary (s0 8))) - (exit-prim/return . #s(stx-boundary (s0 s1 (s2 8)))) - (exit-prim/return . #s(stx-boundary (s0 s1 (s0 s2 (s3 8))))) - (exit-list #s(stx-boundary (s0 s1 (s0 s2 (s3 8))))) - (finish-block - #s(stx-boundary - (s0 - (((s1) (s2 (s3) s3))) - (s0 (((s4) (s2 (s5) s5))) (s6 s1 (s6 s4 (s7 8))))))) - (exit-prim/return - . - #s(stx-boundary - (s0 - () - (s0 - (((s1) (s2 (s3) s3))) - (s0 (((s4) (s2 (s5) s5))) (s6 s1 (s6 s4 (s7 8)))))))) - (exit-prim/return - . - #s(stx-boundary - (s0 - (s1 - () - (s1 - (((s2) (s3 (s4) s4))) - (s1 (((s5) (s3 (s6) s6))) (s7 s2 (s7 s5 (s8 8))))))))))) - ((#%top . __x) - . - ((start-top . #f) - (visit . #s(stx-boundary (s0 (s1 . s2)))) - (visit . #s(stx-boundary (s0 (s1 . s2)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #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 . #s(stx-boundary (s0 (s1 . s2)))) - (visit . #s(stx-boundary (s0 . s1))) - (resolve . #s(stx-boundary s0)) - (enter-prim . #s(stx-boundary (s0 . s1))) - (prim-#%top . #s(stx-boundary (s0 . s1))) - (exit-prim/return . #s(stx-boundary (s0 . s1))) - (exit-prim/return . #s(stx-boundary (s0 (s1 . s2)))))) - ('quoted - . - ((start-top . #f) - (visit . #s(stx-boundary (s0 (s1 s2)))) - (visit . #s(stx-boundary (s0 (s1 s2)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #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 . #s(stx-boundary (s0 (s1 s2)))) - (visit . #s(stx-boundary (s0 s1))) - (resolve . #s(stx-boundary s0)) - (enter-prim . #s(stx-boundary (s0 s1))) - (prim-quote . #f) - (exit-prim/return . #s(stx-boundary (s0 s1))) - (exit-prim/return . #s(stx-boundary (s0 (s1 s2)))))) - ((let () (define-syntax (ok stx) (quote-syntax 8)) (ok 5)) - . - ((start-top . #f) - (visit . #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)) - (stop/return - . - #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 - . - #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s3 5))))) - (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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5))) - . - #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 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) - (letX-renames - () - () - () - () - #s(stx-boundary (s0 (s1 s2) (s3 8))) - #s(stx-boundary (s1 5))) - (enter-block - #s(stx-boundary (s0 (s1 s2) (s3 8))) - #s(stx-boundary (s1 5))) - (block-renames - (#s(stx-boundary (s0 (s1 s2) (s3 8))) #s(stx-boundary (s1 5))) - #s(stx-boundary (s0 (s1 s2) (s3 8))) - #s(stx-boundary (s1 5))) - (next . #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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8)))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (prim-define-syntaxes . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (rename-one (#s(stx-boundary s0)) #s(stx-boundary (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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 8))) - . - #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 . #s(stx-boundary (s0 (s1) (s2 8)))) - (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) - (visit . #s(stx-boundary (s0 8))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 8))) - (block->list . #f) - (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 . #s(stx-boundary (s0 8))) - (exit-prim/return . #s(stx-boundary (s0 8))) - (exit-list #s(stx-boundary (s0 8))) - (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 8)))) - (next . #f) - (exit-bind . #f) - (next . #f) - (visit . #s(stx-boundary (s0 5))) - (resolve . #s(stx-boundary s0)) - (enter-macro #s(stx-boundary (s0 5)) . #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) . #s(stx-boundary 8)) - (visit . #s(stx-boundary 8)) - (stop/return . #s(stx-boundary 8)) - (block->letrec () () #s(stx-boundary 8)) - (enter-list #s(stx-boundary 8)) - (next . #f) - (visit . #s(stx-boundary 8)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . 8)) . #s(stx-boundary 8)) - (enter-prim . #s(stx-boundary (s0 . 8))) - (prim-#%datum . #s(stx-boundary (s0 . 8))) - (exit-prim/return . #s(stx-boundary (s0 8))) - (exit-list #s(stx-boundary (s0 8))) - (finish-block #s(stx-boundary (s0 () (s1 8)))) - (exit-prim/return . #s(stx-boundary (s0 () (s0 () (s1 8))))) - (exit-prim/return . #s(stx-boundary (s0 (s1 () (s1 () (s2 8)))))))) - ((#%stratified-body - (define (first z) z) - (define (ok x) (second x)) - (define (second y) 8) - (ok (first 5)) - (define more 'oops)) - . - ((start-top . #f) - (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)))))) - (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)) - (stop/return - . - #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 - . - #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) s3) - (s1 (s4 s5) (s6 s5)) - (s1 (s6 s7) 8) - (s4 (s2 5)) - (s1 s8 (s9 s10))))) - (resolve . #s(stx-boundary s0)) - (enter-prim - . - #s(stx-boundary - (s0 - (s1 (s2 s3) s3) - (s1 (s4 s5) (s6 s5)) - (s1 (s6 s7) 8) - (s4 (s2 5)) - (s1 s8 (s9 s10))))) - (prim-#%stratified - . - #s(stx-boundary - (s0 - (s1 (s2 s3) s3) - (s1 (s4 s5) (s6 s5)) - (s1 (s6 s7) 8) - (s4 (s2 5)) - (s1 s8 (s9 s10))))) - (enter-block - #s(stx-boundary (s0 (s1 s2) s2)) - #s(stx-boundary (s0 (s3 s4) (s5 s4))) - #s(stx-boundary (s0 (s5 s6) 8)) - #s(stx-boundary (s3 (s1 5))) - #s(stx-boundary (s0 s7 (s8 s9)))) - (block-renames - (#s(stx-boundary (s0 (s1 s2) s2)) - #s(stx-boundary (s0 (s3 s4) (s5 s4))) - #s(stx-boundary (s0 (s5 s6) 8)) - #s(stx-boundary (s3 (s1 5))) - #s(stx-boundary (s0 s7 (s8 s9)))) - #s(stx-boundary (s0 (s1 s2) s2)) - #s(stx-boundary (s0 (s3 s4) (s5 s4))) - #s(stx-boundary (s0 (s5 s6) 8)) - #s(stx-boundary (s3 (s1 5))) - #s(stx-boundary (s0 s7 (s8 s9)))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 s2) s2))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary (s0 (s1 s2) s2)) - . - #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))) - (exit-macro - #s(stx-boundary (s0 s1 (s2 (s3) s3))) - . - #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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) s3))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) s2))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary (s0 (s1 s2) (s3 s2))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3)))) - . - #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)))) - . - #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))))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3)))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) (s3 s2)))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 s2) 8))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary (s0 (s1 s2) 8)) - . - #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))) - (exit-macro - #s(stx-boundary (s0 s1 (s2 (s3) 8))) - . - #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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) 8))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) 8))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 5)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1 5)))) - (block->letrec - ((#s(stx-boundary s0)) (#s(stx-boundary s1)) (#s(stx-boundary s2))) - (#s(stx-boundary (s3 (s4) s4)) - #s(stx-boundary (s3 (s5) (s2 s5))) - #s(stx-boundary (s3 (s6) 8))) - #s(stx-boundary (s7 (s1 (s0 5)) (s8 s9 (s10 s11))))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1) s1))) - (resolve . #s(stx-boundary s0)) - (enter-prim . #s(stx-boundary (s0 (s1) s1))) - (prim-lambda . #s(stx-boundary (s0 (s1) s1))) - (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) - (visit . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary s0)) - (block->list . #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/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 . #s(stx-boundary (s0 (s1) (s2 s1)))) - (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) - (visit . #s(stx-boundary (s0 s1))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 s1))) - (block->list . #f) - (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)) - (tag2 #s(stx-boundary (s0 s1 s2)) . #s(stx-boundary (s1 s2))) - (enter-macro #s(stx-boundary (s0 s1 s2)) . #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)) . #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 . #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)) - (exit-prim/return . #s(stx-boundary (s0 s1 s2))) - (exit-list #s(stx-boundary (s0 s1 s2))) - (exit-prim/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 . #s(stx-boundary (s0 (s1) 8))) - (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) - (visit . #s(stx-boundary 8)) - (stop/return . #s(stx-boundary 8)) - (block->list . #f) - (enter-list #s(stx-boundary 8)) - (next . #f) - (visit . #s(stx-boundary 8)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . 8)) . #s(stx-boundary 8)) - (enter-prim . #s(stx-boundary (s0 . 8))) - (prim-#%datum . #s(stx-boundary (s0 . 8))) - (exit-prim/return . #s(stx-boundary (s0 8))) - (exit-list #s(stx-boundary (s0 8))) - (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 8)))) - (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 . #s(stx-boundary (s0 (s1 (s2 5)) (s3 s4 (s5 s6))))) - (enter-block - #s(stx-boundary (s0 (s1 5))) - #s(stx-boundary (s2 s3 (s4 s5)))) - (block-renames - (#s(stx-boundary (s0 (s1 5))) #s(stx-boundary (s2 s3 (s4 s5)))) - #s(stx-boundary (s0 (s1 5))) - #s(stx-boundary (s2 s3 (s4 s5)))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 5)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1 5)))) - (block->list . #f) - (enter-list - #s(stx-boundary (s0 (s1 5))) - #s(stx-boundary (s2 s3 (s4 s5)))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 5)))) - (resolve . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 s1 (s2 5))) . #s(stx-boundary (s1 (s2 5)))) - (enter-macro - #s(stx-boundary (s0 s1 (s2 5))) - . - #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))) - . - #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 . #s(stx-boundary (s0 s1 (s2 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)) - (tag2 #s(stx-boundary (s0 s1 5)) . #s(stx-boundary (s1 5))) - (enter-macro #s(stx-boundary (s0 s1 5)) . #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)) . #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 . #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 5)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . 5)) . #s(stx-boundary 5)) - (enter-prim . #s(stx-boundary (s0 . 5))) - (prim-#%datum . #s(stx-boundary (s0 . 5))) - (exit-prim/return . #s(stx-boundary (s0 5))) - (exit-prim/return . #s(stx-boundary (s0 s1 (s2 5)))) - (exit-prim/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))) - . - #s(stx-boundary (s0 s1 (s2 s3)))) - (macro-pre-x . #s(stx-boundary (s0 s1 (s2 s3)))))) - ((module m '#%kernel 5) - . - ((start-top . #f) - (visit . #s(stx-boundary (s0 s1 (s2 s3) 5))) - (visit . #s(stx-boundary (s0 s1 (s2 s3) 5))) - (resolve . #s(stx-boundary s0)) - (stop/return . #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 . #s(stx-boundary (s0 s1 (s2 s3) 5))) - (prepare-env . #f) - (rename-one #s(stx-boundary 5)) - (track-syntax s0 #s(stx-boundary 5) . #s(stx-boundary 5)) - (visit . #s(stx-boundary 5)) - (stop/return . #s(stx-boundary 5)) - (tag . #s(stx-boundary (s0 5))) - (track-syntax s0 #s(stx-boundary (s1 5)) . #s(stx-boundary (s1 5))) - (visit . #s(stx-boundary (s0 5))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 5))) - (track-syntax s0 #s(stx-boundary (s1 5)) . #s(stx-boundary (s1 5))) - (next . #f) - (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)) - (tag2 #s(stx-boundary (s0 . 5)) . #s(stx-boundary 5)) - (enter-prim . #s(stx-boundary (s0 . 5))) - (prim-#%datum . #s(stx-boundary (s0 . 5))) - (exit-prim/return . #s(stx-boundary (s0 5))) - (module-pass1-case . #s(stx-boundary (s0 5))) - (prim-stop . #f) - (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/return . #s(stx-boundary (s0 5))) - (next-group . #f) - (next-group . #f) - (next . #f) - (next-group . #f) - (next . #f) - (exit-prim/return . #s(stx-boundary (s0 (s1 5)))) - (rename-one . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s2 5))))) - (exit-prim/return . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s2 5))))))) - ((module m racket/base - (define-syntax (ok stx) - (syntax-local-lift-require 'racket/list #'foldl)) - (ok)) - . - ((start-top . #f) - (visit - . - #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)) - (stop/return - . - #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 - . - #s(stx-boundary (s0 s1 s2 (s3 (s4 s5) (s6 (s7 s8) (s9 s10))) (s4)))) - (prepare-env . #f) - (rename-one - #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7)))) - #s(stx-boundary (s1))) - (tag . #s(stx-boundary (s0 (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) - (track-syntax - s0 - #s(stx-boundary (s1 (s2 (s3 s4) (s5 (s6 s7) (s8 s9))) (s3))) - . - #s(stx-boundary (s1 (s2 (s3 s4) (s5 (s6 s7) (s8 s9))) (s3)))) - (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))) - . - #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)) - (s8 (s9 s10) (s11 (s3 s12) (s13 s14))) - (s9))) - . - #s(stx-boundary (s15 (s8 (s9 s10) (s11 (s3 s12) (s13 s14))) (s9)))) - (exit-macro - #s(stx-boundary - (s0 - (s1 s2 (s3 s4) (s5 s6) (s7 #f)) - (s8 (s9 s10) (s11 (s3 s12) (s13 s14))) - (s9))) - . - #s(stx-boundary - (s0 - (s1 s2 (s3 s4) (s5 s6) (s7 #f)) - (s8 (s9 s10) (s11 (s3 s12) (s13 s14))) - (s9)))) - (visit - . - #s(stx-boundary - (s0 - (s1 s2 (s3 s4) (s5 s6) (s7 #f)) - (s8 (s9 s10) (s11 (s3 s12) (s13 s14))) - (s9)))) - (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))) - . - #s(stx-boundary - (s0 - (s1 s2 (s3 s4) (s5 s6) (s7 #f)) - (s8 (s9 s10) (s11 (s3 s12) (s13 s14))) - (s9)))) - (macro-pre-x - . - #s(stx-boundary - (s0 - (s1 s2 (s3 s4) (s5 s6) (s7 #f)) - (s8 (s9 s10) (s11 (s3 s12) (s13 s14))) - (s9)))) - (macro-post-x - #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)))) - . - #s(stx-boundary - (s17 - (s3 s4 (s5 s6) (s7 s8) (s9 #f)) - (s10 (s11 s12) (s13 (s5 s14) (s15 s16))) - (s11)))) - (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)))) - . - #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))))) - (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))))) - (resolve . #s(stx-boundary s0)) - (stop/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))))) - (track-syntax - s0 - #s(stx-boundary - (s1 - (s2 s3 (s4 s5 (s6 s7) (s8 s9) (s10 #f))) - (s2 s3 (s11 (s12 s13) (s14 (s6 s15) (s16 s17)))) - (s2 s3 (s12)))) - . - #s(stx-boundary - (s1 - (s2 s3 (s4 s5 (s6 s7) (s8 s9) (s10 #f))) - (s2 s3 (s11 (s12 s13) (s14 (s6 s15) (s16 s17)))) - (s2 s3 (s12))))) - (next . #f) - (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))))) - (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))))) - (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))))) - (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)))) - . - #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)) - (stop/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))))) - (exit-macro - #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)))) - . - #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)) - (stop/return . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (module-pass1-case - . - #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (prim-begin . #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)))) - (next . #f) - (visit . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (module-pass1-case . #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-submodule . #f) - (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (prim-module . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (prepare-env . #f) - (rename-one #s(stx-boundary (s0 s1)) #s(stx-boundary (s2 #f))) - (tag . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (track-syntax - s0 - #s(stx-boundary (s1 (s2 s3) (s4 #f))) - . - #s(stx-boundary (s1 (s2 s3) (s4 #f)))) - (visit . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (track-syntax - s0 - #s(stx-boundary (s1 (s2 s3) (s4 #f))) - . - #s(stx-boundary (s1 (s2 s3) (s4 #f)))) - (next . #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)) - (stop/return . #s(stx-boundary (s0 s1))) - (module-pass1-case . #s(stx-boundary (s0 s1))) - (prim-require . #s(stx-boundary (s0 s1))) - (exit-case . #s(stx-boundary (s0 s1))) - (next . #f) - (visit . #s(stx-boundary (s0 #f))) - (resolve . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 #f))) - (module-pass1-case . #s(stx-boundary (s0 #f))) - (prim-stop . #f) - (next-group . #f) - (next . #f) - (next . #f) - (visit . #s(stx-boundary (s0 #f))) - (resolve . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 s1 #f)) . #s(stx-boundary (s1 #f))) - (enter-prim . #s(stx-boundary (s0 s1 #f))) - (prim-#%app . #s(stx-boundary (s0 s1 #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)) - (tag2 #s(stx-boundary (s0 . #f)) . #s(stx-boundary #f)) - (enter-prim . #s(stx-boundary (s0 . #f))) - (prim-#%datum . #s(stx-boundary (s0 . #f))) - (exit-prim/return . #s(stx-boundary (s0 #f))) - (exit-prim/return . #s(stx-boundary (s0 s1 (s2 #f)))) - (next-group . #f) - (next-group . #f) - (next . #f) - (next . #f) - (next-group . #f) - (next . #f) - (next . #f) - (exit-prim/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)))))) - (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))))) - . - #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)))) - . - #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))))) - . - #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)) - (stop/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)))))) - (exit-macro - #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 (s6 s7) (s8 s9)))))) - . - #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)) - (stop/return - . - #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 (s6 s7) (s8 s9))))))) - (module-pass1-case - . - #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 (s6 s7) (s8 s9))))))) - (prim-begin - . - #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)))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) - (resolve . #s(stx-boundary s0)) - (stop/return - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) - (module-pass1-case - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) - (prim-define-syntaxes - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) - (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)))) - . - #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)))) - . - #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 . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) - (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) - (visit . #s(stx-boundary (s0 (s1 s2) (s3 s4)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1 s2) (s3 s4)))) - (block->list . #f) - (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)))) - ((let () - (define (first z) z) - (define (ok x) (second x)) - (printf "extra expression\n") - (define (second y) 8) - (ok (first 5))) - . - ((start-top . #f) - (visit - . - #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)) - (stop/return - . - #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 - . - #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) s3) - (s1 (s4 s5) (s6 s5)) - (s7 #:opaque) - (s1 (s6 s8) 8) - (s4 (s2 5))))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary - (s0 - () - (s1 (s2 s3) s3) - (s1 (s4 s5) (s6 s5)) - (s7 #:opaque) - (s1 (s6 s8) 8) - (s4 (s2 5)))) - . - #s(stx-boundary - (s0 - () - (s1 (s2 s3) s3) - (s1 (s4 s5) (s6 s5)) - (s7 #:opaque) - (s1 (s6 s8) 8) - (s4 (s2 5))))) - (macro-pre-x - . - #s(stx-boundary - (s0 - () - (s1 (s2 s3) s3) - (s1 (s4 s5) (s6 s5)) - (s7 #:opaque) - (s1 (s6 s8) 8) - (s4 (s2 5))))) - (macro-post-x - #s(stx-boundary - (s0 - () - (s1 (s2 s3) s3) - (s1 (s4 s5) (s6 s5)) - (s7 #:opaque) - (s1 (s6 s8) 8) - (s4 (s2 5)))) - . - #s(stx-boundary - (s9 - () - (s1 (s2 s3) s3) - (s1 (s4 s5) (s6 s5)) - (s7 #:opaque) - (s1 (s6 s8) 8) - (s4 (s2 5))))) - (exit-macro - #s(stx-boundary - (s0 - () - (s1 (s2 s3) s3) - (s1 (s4 s5) (s6 s5)) - (s7 #:opaque) - (s1 (s6 s8) 8) - (s4 (s2 5)))) - . - #s(stx-boundary - (s0 - () - (s1 (s2 s3) s3) - (s1 (s4 s5) (s6 s5)) - (s7 #:opaque) - (s1 (s6 s8) 8) - (s4 (s2 5))))) - (visit - . - #s(stx-boundary - (s0 - () - (s1 (s2 s3) s3) - (s1 (s4 s5) (s6 s5)) - (s7 #:opaque) - (s1 (s6 s8) 8) - (s4 (s2 5))))) - (resolve . #s(stx-boundary s0)) - (enter-prim - . - #s(stx-boundary - (s0 - () - (s1 (s2 s3) s3) - (s1 (s4 s5) (s6 s5)) - (s7 #:opaque) - (s1 (s6 s8) 8) - (s4 (s2 5))))) - (prim-let-values - . - #s(stx-boundary - (s0 - () - (s1 (s2 s3) s3) - (s1 (s4 s5) (s6 s5)) - (s7 #:opaque) - (s1 (s6 s8) 8) - (s4 (s2 5))))) - (letX-renames - () - () - () - () - #s(stx-boundary (s0 (s1 s2) s2)) - #s(stx-boundary (s0 (s3 s4) (s5 s4))) - #s(stx-boundary (s6 #:opaque)) - #s(stx-boundary (s0 (s5 s7) 8)) - #s(stx-boundary (s3 (s1 5)))) - (enter-block - #s(stx-boundary (s0 (s1 s2) s2)) - #s(stx-boundary (s0 (s3 s4) (s5 s4))) - #s(stx-boundary (s6 #:opaque)) - #s(stx-boundary (s0 (s5 s7) 8)) - #s(stx-boundary (s3 (s1 5)))) - (block-renames - (#s(stx-boundary (s0 (s1 s2) s2)) - #s(stx-boundary (s0 (s3 s4) (s5 s4))) - #s(stx-boundary (s6 #:opaque)) - #s(stx-boundary (s0 (s5 s7) 8)) - #s(stx-boundary (s3 (s1 5)))) - #s(stx-boundary (s0 (s1 s2) s2)) - #s(stx-boundary (s0 (s3 s4) (s5 s4))) - #s(stx-boundary (s6 #:opaque)) - #s(stx-boundary (s0 (s5 s7) 8)) - #s(stx-boundary (s3 (s1 5)))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 s2) s2))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary (s0 (s1 s2) s2)) - . - #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))) - (exit-macro - #s(stx-boundary (s0 s1 (s2 (s3) s3))) - . - #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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) s3))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) s2))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary (s0 (s1 s2) (s3 s2))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3)))) - . - #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)))) - . - #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))))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3)))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) (s3 s2)))) - (next . #f) - (visit . #s(stx-boundary (s0 #:opaque))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 #:opaque))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 s2) 8))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary (s0 (s1 s2) 8)) - . - #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))) - (exit-macro - #s(stx-boundary (s0 s1 (s2 (s3) 8))) - . - #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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) 8))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) 8))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 5)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1 5)))) - (block->letrec - ((#s(stx-boundary s0)) (#s(stx-boundary s1)) () (#s(stx-boundary s2))) - (#s(stx-boundary (s3 (s4) s4)) - #s(stx-boundary (s3 (s5) (s2 s5))) - #s(stx-boundary (s6 (s7 #:opaque) (s8))) - #s(stx-boundary (s3 (s9) 8))) - #s(stx-boundary (s1 (s0 5)))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1) s1))) - (resolve . #s(stx-boundary s0)) - (enter-prim . #s(stx-boundary (s0 (s1) s1))) - (prim-lambda . #s(stx-boundary (s0 (s1) s1))) - (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) - (visit . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary s0)) - (block->list . #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/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 . #s(stx-boundary (s0 (s1) (s2 s1)))) - (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) - (visit . #s(stx-boundary (s0 s1))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 s1))) - (block->list . #f) - (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)) - (tag2 #s(stx-boundary (s0 s1 s2)) . #s(stx-boundary (s1 s2))) - (enter-macro #s(stx-boundary (s0 s1 s2)) . #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)) . #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 . #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)) - (exit-prim/return . #s(stx-boundary (s0 s1 s2))) - (exit-list #s(stx-boundary (s0 s1 s2))) - (exit-prim/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 . #s(stx-boundary (s0 (s1 #:opaque) (s2)))) - (next . #f) - (visit . #s(stx-boundary (s0 #:opaque))) - (resolve . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (tag2 - #s(stx-boundary (s0 s1 #:opaque)) - . - #s(stx-boundary (s1 #:opaque))) - (enter-macro - #s(stx-boundary (s0 s1 #:opaque)) - . - #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))) - (exit-macro - #s(stx-boundary (s0 s1 #:opaque)) - . - #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 . #s(stx-boundary (s0 s1 #: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)) - (tag2 #s(stx-boundary (s0 . #:opaque)) . #s(stx-boundary #:opaque)) - (enter-prim . #s(stx-boundary (s0 . #:opaque))) - (prim-#%datum . #s(stx-boundary (s0 . #:opaque))) - (exit-prim/return . #s(stx-boundary (s0 #:opaque))) - (exit-prim/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)) - (tag2 #s(stx-boundary (s0 s1)) . #s(stx-boundary (s1))) - (enter-prim . #s(stx-boundary (s0 s1))) - (prim-#%app . #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-prim/return . #s(stx-boundary (s0 s1))) - (exit-prim/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 . #s(stx-boundary (s0 (s1) 8))) - (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) - (visit . #s(stx-boundary 8)) - (stop/return . #s(stx-boundary 8)) - (block->list . #f) - (enter-list #s(stx-boundary 8)) - (next . #f) - (visit . #s(stx-boundary 8)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . 8)) . #s(stx-boundary 8)) - (enter-prim . #s(stx-boundary (s0 . 8))) - (prim-#%datum . #s(stx-boundary (s0 . 8))) - (exit-prim/return . #s(stx-boundary (s0 8))) - (exit-list #s(stx-boundary (s0 8))) - (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 8)))) - (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)) - (tag2 #s(stx-boundary (s0 s1 (s2 5))) . #s(stx-boundary (s1 (s2 5)))) - (enter-macro - #s(stx-boundary (s0 s1 (s2 5))) - . - #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))) - . - #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 . #s(stx-boundary (s0 s1 (s2 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)) - (tag2 #s(stx-boundary (s0 s1 5)) . #s(stx-boundary (s1 5))) - (enter-macro #s(stx-boundary (s0 s1 5)) . #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)) . #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 . #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 5)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . 5)) . #s(stx-boundary 5)) - (enter-prim . #s(stx-boundary (s0 . 5))) - (prim-#%datum . #s(stx-boundary (s0 . 5))) - (exit-prim/return . #s(stx-boundary (s0 5))) - (exit-prim/return . #s(stx-boundary (s0 s1 (s2 5)))) - (exit-prim/return . #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) - (exit-list #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) - (finish-block - #s(stx-boundary - (s0 - (((s1) (s2 (s3) s3))) - (s4 - (((s5) (s2 (s6) (s7 s8 s6))) - (() (s9 (s7 s10 (s11 #:opaque)) (s7 s12))) - ((s8) (s2 (s13) (s11 8)))) - (s7 s5 (s7 s1 (s11 5))))))) - (exit-prim/return - . - #s(stx-boundary - (s0 - () - (s0 - (((s1) (s2 (s3) s3))) - (s4 - (((s5) (s2 (s6) (s7 s8 s6))) - (() (s9 (s7 s10 (s11 #:opaque)) (s7 s12))) - ((s8) (s2 (s13) (s11 8)))) - (s7 s5 (s7 s1 (s11 5)))))))) - (exit-prim/return - . - #s(stx-boundary - (s0 - (s1 - () - (s1 - (((s2) (s3 (s4) s4))) - (s5 - (((s6) (s3 (s7) (s8 s9 s7))) - (() (s10 (s8 s11 (s12 #:opaque)) (s8 s13))) - ((s9) (s3 (s14) (s12 8)))) - (s8 s6 (s8 s2 (s12 5))))))))))) - ((let () - (define-syntax (ok stx) (quote-syntax 8)) - (define-syntax (second stx) (quote-syntax (ok 6))) - (second 5)) - . - ((start-top . #f) - (visit - . - #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)) - (stop/return - . - #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 - . - #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 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5)))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary - (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5))) - . - #s(stx-boundary - (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5)))) - (macro-pre-x - . - #s(stx-boundary - (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5)))) - (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)))) - (exit-macro - #s(stx-boundary - (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5))) - . - #s(stx-boundary - (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5)))) - (visit - . - #s(stx-boundary - (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5)))) - (resolve . #s(stx-boundary s0)) - (enter-prim - . - #s(stx-boundary - (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5)))) - (prim-let-values - . - #s(stx-boundary - (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5)))) - (letX-renames - () - () - () - () - #s(stx-boundary (s0 (s1 s2) (s3 8))) - #s(stx-boundary (s0 (s4 s2) (s3 (s1 6)))) - #s(stx-boundary (s4 5))) - (enter-block - #s(stx-boundary (s0 (s1 s2) (s3 8))) - #s(stx-boundary (s0 (s4 s2) (s3 (s1 6)))) - #s(stx-boundary (s4 5))) - (block-renames - (#s(stx-boundary (s0 (s1 s2) (s3 8))) - #s(stx-boundary (s0 (s4 s2) (s3 (s1 6)))) - #s(stx-boundary (s4 5))) - #s(stx-boundary (s0 (s1 s2) (s3 8))) - #s(stx-boundary (s0 (s4 s2) (s3 (s1 6)))) - #s(stx-boundary (s4 5))) - (next . #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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8)))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (prim-define-syntaxes . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (rename-one (#s(stx-boundary s0)) #s(stx-boundary (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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 8))) - . - #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 . #s(stx-boundary (s0 (s1) (s2 8)))) - (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) - (visit . #s(stx-boundary (s0 8))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 8))) - (block->list . #f) - (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 . #s(stx-boundary (s0 8))) - (exit-prim/return . #s(stx-boundary (s0 8))) - (exit-list #s(stx-boundary (s0 8))) - (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 8)))) - (next . #f) - (exit-bind . #f) - (next . #f) - (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)))) - . - #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))))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6))))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) - (prim-define-syntaxes - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) - (rename-one - (#s(stx-boundary s0)) - #s(stx-boundary (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)))) - . - #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))))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3 6)))) - . - #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 . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) - (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) - (visit . #s(stx-boundary (s0 (s1 6)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1 6)))) - (block->list . #f) - (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 . #s(stx-boundary (s0 (s1 6)))) - (exit-prim/return . #s(stx-boundary (s0 (s1 6)))) - (exit-list #s(stx-boundary (s0 (s1 6)))) - (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) - (next . #f) - (exit-bind . #f) - (next . #f) - (visit . #s(stx-boundary (s0 5))) - (resolve . #s(stx-boundary s0)) - (enter-macro #s(stx-boundary (s0 5)) . #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)) . #s(stx-boundary (s0 6))) - (visit . #s(stx-boundary (s0 6))) - (resolve . #s(stx-boundary s0)) - (enter-macro #s(stx-boundary (s0 6)) . #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) . #s(stx-boundary 8)) - (visit . #s(stx-boundary 8)) - (stop/return . #s(stx-boundary 8)) - (block->letrec () () #s(stx-boundary 8)) - (enter-list #s(stx-boundary 8)) - (next . #f) - (visit . #s(stx-boundary 8)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . 8)) . #s(stx-boundary 8)) - (enter-prim . #s(stx-boundary (s0 . 8))) - (prim-#%datum . #s(stx-boundary (s0 . 8))) - (exit-prim/return . #s(stx-boundary (s0 8))) - (exit-list #s(stx-boundary (s0 8))) - (finish-block #s(stx-boundary (s0 () (s1 8)))) - (exit-prim/return . #s(stx-boundary (s0 () (s0 () (s1 8))))) - (exit-prim/return . #s(stx-boundary (s0 (s1 () (s1 () (s2 8)))))))) - ((module m racket/base 'done) - . - ((start-top . #f) - (visit . #s(stx-boundary (s0 s1 s2 (s3 s4)))) - (visit . #s(stx-boundary (s0 s1 s2 (s3 s4)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #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 . #s(stx-boundary (s0 s1 s2 (s3 s4)))) - (prepare-env . #f) - (rename-one #s(stx-boundary (s0 s1))) - (track-syntax s0 #s(stx-boundary (s1 s2)) . #s(stx-boundary (s1 s2))) - (visit . #s(stx-boundary (s0 s1))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 s1))) - (tag . #s(stx-boundary (s0 (s1 s2)))) - (track-syntax - s0 - #s(stx-boundary (s1 (s2 s3))) - . - #s(stx-boundary (s1 (s2 s3)))) - (visit . #s(stx-boundary (s0 (s1 s2)))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary (s0 (s1 s2))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s3 s8))) - . - #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))) - . - #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)))) - (exit-macro - #s(stx-boundary - (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s5 s10)))) - . - #s(stx-boundary - (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s5 s10))))) - (visit - . - #s(stx-boundary - (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s5 s10))))) - (resolve . #s(stx-boundary s0)) - (stop/return - . - #s(stx-boundary - (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s5 s10))))) - (track-syntax - s0 - #s(stx-boundary - (s1 (s2 s3 (s4 s5 (s6 s7) (s8 s9) (s10 #f))) (s2 s3 (s6 s11)))) - . - #s(stx-boundary - (s1 (s2 s3 (s4 s5 (s6 s7) (s8 s9) (s10 #f))) (s2 s3 (s6 s11))))) - (next . #f) - (visit - . - #s(stx-boundary - (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s5 s10))))) - (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))))) - (prim-module-begin . #f) - (rename-one - . - #s(stx-boundary - (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s5 s10))))) - (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)))) - . - #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)) - (stop/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))))) - (exit-macro - #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)))) - . - #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)) - (stop/return . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (module-pass1-case - . - #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (prim-begin . #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)))) - (next . #f) - (visit . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (module-pass1-case . #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-submodule . #f) - (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (prim-module . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (prepare-env . #f) - (rename-one #s(stx-boundary (s0 s1)) #s(stx-boundary (s2 #f))) - (tag . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (track-syntax - s0 - #s(stx-boundary (s1 (s2 s3) (s4 #f))) - . - #s(stx-boundary (s1 (s2 s3) (s4 #f)))) - (visit . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (track-syntax - s0 - #s(stx-boundary (s1 (s2 s3) (s4 #f))) - . - #s(stx-boundary (s1 (s2 s3) (s4 #f)))) - (next . #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)) - (stop/return . #s(stx-boundary (s0 s1))) - (module-pass1-case . #s(stx-boundary (s0 s1))) - (prim-require . #s(stx-boundary (s0 s1))) - (exit-case . #s(stx-boundary (s0 s1))) - (next . #f) - (visit . #s(stx-boundary (s0 #f))) - (resolve . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 #f))) - (module-pass1-case . #s(stx-boundary (s0 #f))) - (prim-stop . #f) - (next-group . #f) - (next . #f) - (next . #f) - (visit . #s(stx-boundary (s0 #f))) - (resolve . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 s1 #f)) . #s(stx-boundary (s1 #f))) - (enter-prim . #s(stx-boundary (s0 s1 #f))) - (prim-#%app . #s(stx-boundary (s0 s1 #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)) - (tag2 #s(stx-boundary (s0 . #f)) . #s(stx-boundary #f)) - (enter-prim . #s(stx-boundary (s0 . #f))) - (prim-#%datum . #s(stx-boundary (s0 . #f))) - (exit-prim/return . #s(stx-boundary (s0 #f))) - (exit-prim/return . #s(stx-boundary (s0 s1 (s2 #f)))) - (next-group . #f) - (next-group . #f) - (next . #f) - (next . #f) - (next-group . #f) - (next . #f) - (next . #f) - (exit-prim/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)))))) - (next . #f) - (visit . #s(stx-boundary (s0 s1 (s2 s3)))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary (s0 s1 (s2 s3))) - . - #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)) - (stop/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)))) - (exit-macro - #s(stx-boundary (s0 (s1 (s2 s3)))) - . - #s(stx-boundary (s0 (s1 (s2 s3))))) - (visit . #s(stx-boundary (s0 (s1 (s2 s3))))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1 (s2 s3))))) - (module-pass1-case . #s(stx-boundary (s0 (s1 (s2 s3))))) - (prim-begin . #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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5)) - . - #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) - (visit . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) - (module-pass1-case . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) - (prim-stop . #f) - (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 . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) - (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 . #s(stx-boundary (s0 () (s1 s2)))) - (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) - (visit . #s(stx-boundary (s0 s1))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 s1))) - (block->list . #f) - (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/return . #s(stx-boundary (s0 s1))) - (exit-list #s(stx-boundary (s0 s1))) - (exit-prim/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-prim/return . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) - (next-group . #f) - (next-group . #f) - (next . #f) - (next . #f) - (next-group . #f) - (next . #f) - (next . #f) - (exit-prim/return - . - #s(stx-boundary - (s0 - (s1 s2 (s3 s4) (s0 (s5 s6) (s7 s8 (s3 #f)))) - (s7 s9 (s10 () (s3 s11)) s12)))) - (rename-one - . - #s(stx-boundary - (s0 - s1 - s2 - (s3 - (s0 s4 (s5 s6) (s3 (s7 s8) (s9 s10 (s5 #f)))) - (s9 s11 (s12 () (s5 s13)) s14))))) - (exit-prim/return - . - #s(stx-boundary - (s0 - s1 - s2 - (s3 - (s0 s4 (s5 s6) (s3 (s7 s8) (s9 s10 (s5 #f)))) - (s9 s11 (s12 () (s5 s13)) s14))))))) - ((let () - (define-syntax (ok stx) - (local-expand (cadr (syntax-e stx)) 'expression #f)) - (ok 9)) - . - ((start-top . #f) - (visit - . - #s(stx-boundary - (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 s4)) (s8 s9) #f)) (s3 9))))) - (resolve . #s(stx-boundary s0)) - (stop/return - . - #s(stx-boundary - (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 s4)) (s8 s9) #f)) (s3 9))))) - (resolve . #s(stx-boundary s0)) - (enter-prim - . - #s(stx-boundary - (s0 (s1 () (s2 (s3 s4) (s5 (s6 (s7 s4)) (s8 s9) #f)) (s3 9))))) - (prim-#%expression - . - #s(stx-boundary - (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 s3)) (s7 s8) #f)) (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))) - . - #s(stx-boundary - (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 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 - (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))) - . - #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 - . - #s(stx-boundary - (s0 () (s1 (s2 s3) (s4 (s5 (s6 s3)) (s7 s8) #f)) (s2 9)))) - (letX-renames - () - () - () - () - #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s2)) (s6 s7) #f))) - #s(stx-boundary (s1 9))) - (enter-block - #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s2)) (s6 s7) #f))) - #s(stx-boundary (s1 9))) - (block-renames - (#s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s2)) (s6 s7) #f))) - #s(stx-boundary (s1 9))) - #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s2)) (s6 s7) #f))) - #s(stx-boundary (s1 9))) - (next . #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 s2)) (s6 s7) #f))) - . - #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 s2)) (s6 s7) #f)))) - (macro-post-x - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 s3)) (s7 s8) #f)))) - . - #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 s3)) (s7 s8) #f)))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 s3)) (s7 s8) #f))))) - (visit - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 s3)) (s7 s8) #f))))) - (resolve . #s(stx-boundary s0)) - (stop/return - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 s3)) (s7 s8) #f))))) - (prim-define-syntaxes - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 s3)) (s7 s8) #f))))) - (rename-one - (#s(stx-boundary s0)) - #s(stx-boundary (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))) - . - #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))) - . - #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 . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 s1)) (s5 s6) #f)))) - (lambda-renames - #s(stx-boundary (s0)) - #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) #f))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 (s2 s3)) (s4 s5) #f))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1 (s2 s3)) (s4 s5) #f))) - (block->list . #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)) - (tag2 - #s(stx-boundary (s0 s1 (s2 (s3 s4)) (s5 s6) #f)) - . - #s(stx-boundary (s1 (s2 (s3 s4)) (s5 s6) #f))) - (enter-macro - #s(stx-boundary (s0 s1 (s2 (s3 s4)) (s5 s6) #f)) - . - #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 (s0 s1 (s2 (s3 s4)) (s5 s6) #f))) - (exit-macro - #s(stx-boundary (s0 s1 (s2 (s3 s4)) (s5 s6) #f)) - . - #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 . #s(stx-boundary (s0 s1 (s2 (s3 s4)) (s5 s6) #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)) - (tag2 #s(stx-boundary (s0 s1 (s2 s3))) . #s(stx-boundary (s1 (s2 s3)))) - (enter-macro - #s(stx-boundary (s0 s1 (s2 s3))) - . - #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))) - . - #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 . #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)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 s1 s2)) . #s(stx-boundary (s1 s2))) - (enter-macro #s(stx-boundary (s0 s1 s2)) . #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)) . #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 . #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)) - (exit-prim/return . #s(stx-boundary (s0 s1 s2))) - (exit-prim/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/return . #s(stx-boundary (s0 s1))) - (next . #f) - (visit . #s(stx-boundary #f)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . #f)) . #s(stx-boundary #f)) - (enter-prim . #s(stx-boundary (s0 . #f))) - (prim-#%datum . #s(stx-boundary (s0 . #f))) - (exit-prim/return . #s(stx-boundary (s0 #f))) - (exit-prim/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/return - . - #s(stx-boundary (s0 (s1) (s2 s3 (s2 s4 (s2 s5 s1)) (s6 s7) (s6 #f))))) - (next . #f) - (exit-bind . #f) - (next . #f) - (visit . #s(stx-boundary (s0 9))) - (resolve . #s(stx-boundary s0)) - (enter-macro #s(stx-boundary (s0 9)) . #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)) - (visit . #s(stx-boundary 9)) - (stop/return . #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) . #s(stx-boundary 9)) - (visit . #s(stx-boundary 9)) - (stop/return . #s(stx-boundary 9)) - (block->letrec () () #s(stx-boundary 9)) - (enter-list #s(stx-boundary 9)) - (next . #f) - (visit . #s(stx-boundary 9)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . 9)) . #s(stx-boundary 9)) - (enter-prim . #s(stx-boundary (s0 . 9))) - (prim-#%datum . #s(stx-boundary (s0 . 9))) - (exit-prim/return . #s(stx-boundary (s0 9))) - (exit-list #s(stx-boundary (s0 9))) - (finish-block #s(stx-boundary (s0 () (s1 9)))) - (exit-prim/return . #s(stx-boundary (s0 () (s0 () (s1 9))))) - (exit-prim/return . #s(stx-boundary (s0 (s1 () (s1 () (s2 9)))))))) - ((let () (define (ok x) '8) (define (second y) (ok y)) (second 5)) - . - ((start-top . #f) - (visit - . - #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)) - (stop/return - . - #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 - . - #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 8)) (s1 (s5 s6) (s2 s6)) (s5 5)))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary - (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s6) (s2 s6)) (s5 5))) - . - #s(stx-boundary - (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s6) (s2 s6)) (s5 5)))) - (macro-pre-x - . - #s(stx-boundary - (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s6) (s2 s6)) (s5 5)))) - (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)))) - (exit-macro - #s(stx-boundary - (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s6) (s2 s6)) (s5 5))) - . - #s(stx-boundary - (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s6) (s2 s6)) (s5 5)))) - (visit - . - #s(stx-boundary - (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s6) (s2 s6)) (s5 5)))) - (resolve . #s(stx-boundary s0)) - (enter-prim - . - #s(stx-boundary - (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s6) (s2 s6)) (s5 5)))) - (prim-let-values - . - #s(stx-boundary - (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s6) (s2 s6)) (s5 5)))) - (letX-renames - () - () - () - () - #s(stx-boundary (s0 (s1 s2) (s3 8))) - #s(stx-boundary (s0 (s4 s5) (s1 s5))) - #s(stx-boundary (s4 5))) - (enter-block - #s(stx-boundary (s0 (s1 s2) (s3 8))) - #s(stx-boundary (s0 (s4 s5) (s1 s5))) - #s(stx-boundary (s4 5))) - (block-renames - (#s(stx-boundary (s0 (s1 s2) (s3 8))) - #s(stx-boundary (s0 (s4 s5) (s1 s5))) - #s(stx-boundary (s4 5))) - #s(stx-boundary (s0 (s1 s2) (s3 8))) - #s(stx-boundary (s0 (s4 s5) (s1 s5))) - #s(stx-boundary (s4 5))) - (next . #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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 s1 (s2 (s3) (s4 8)))) - . - #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)))) - . - #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))))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8)))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) (s3 8)))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary (s0 (s1 s2) (s3 s2))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3)))) - . - #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)))) - . - #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))))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3)))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) (s3 s2)))) - (next . #f) - (visit . #s(stx-boundary (s0 5))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 5))) - (block->letrec - ((#s(stx-boundary s0)) (#s(stx-boundary s1))) - (#s(stx-boundary (s2 (s3) (s4 8))) #s(stx-boundary (s2 (s5) (s0 s5)))) - #s(stx-boundary (s1 5))) - (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 . #s(stx-boundary (s0 (s1) (s2 8)))) - (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) - (visit . #s(stx-boundary (s0 8))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 8))) - (block->list . #f) - (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/return . #s(stx-boundary (s0 8))) - (exit-list #s(stx-boundary (s0 8))) - (exit-prim/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 . #s(stx-boundary (s0 (s1) (s2 s1)))) - (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) - (visit . #s(stx-boundary (s0 s1))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 s1))) - (block->list . #f) - (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)) - (tag2 #s(stx-boundary (s0 s1 s2)) . #s(stx-boundary (s1 s2))) - (enter-macro #s(stx-boundary (s0 s1 s2)) . #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)) . #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 . #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)) - (exit-prim/return . #s(stx-boundary (s0 s1 s2))) - (exit-list #s(stx-boundary (s0 s1 s2))) - (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 s3 s1)))) - (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)) - (tag2 #s(stx-boundary (s0 s1 5)) . #s(stx-boundary (s1 5))) - (enter-macro #s(stx-boundary (s0 s1 5)) . #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)) . #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 . #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 5)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . 5)) . #s(stx-boundary 5)) - (enter-prim . #s(stx-boundary (s0 . 5))) - (prim-#%datum . #s(stx-boundary (s0 . 5))) - (exit-prim/return . #s(stx-boundary (s0 5))) - (exit-prim/return . #s(stx-boundary (s0 s1 (s2 5)))) - (exit-list #s(stx-boundary (s0 s1 (s2 5)))) - (finish-block - #s(stx-boundary - (s0 - (((s1) (s2 (s3) (s4 8)))) - (s0 (((s5) (s2 (s6) (s7 s1 s6)))) (s7 s5 (s4 5)))))) - (exit-prim/return - . - #s(stx-boundary - (s0 - () - (s0 - (((s1) (s2 (s3) (s4 8)))) - (s0 (((s5) (s2 (s6) (s7 s1 s6)))) (s7 s5 (s4 5))))))) - (exit-prim/return - . - #s(stx-boundary - (s0 - (s1 - () - (s1 - (((s2) (s3 (s4) (s5 8)))) - (s1 (((s6) (s3 (s7) (s8 s2 s7)))) (s8 s6 (s5 5)))))))))) ((case-lambda ((x) x) ((x y) (+ x y))) . ((start-top . #f) @@ -4242,2943 +157,6 @@ (exit-prim/return . #s(stx-boundary (s0 (s1 ((s2) s2) ((s2 s3) (s4 s5 s2 s3)))))))) - ((let () (define (ok x) (second x)) (define (second y) 8) (ok 5)) - . - ((start-top . #f) - (visit - . - #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)) - (stop/return - . - #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 - . - #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 s3)) (s1 (s4 s5) 8) (s2 5)))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary (s0 () (s1 (s2 s3) (s4 s3)) (s1 (s4 s5) 8) (s2 5))) - . - #s(stx-boundary (s0 () (s1 (s2 s3) (s4 s3)) (s1 (s4 s5) 8) (s2 5)))) - (macro-pre-x - . - #s(stx-boundary (s0 () (s1 (s2 s3) (s4 s3)) (s1 (s4 s5) 8) (s2 5)))) - (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)))) - (exit-macro - #s(stx-boundary (s0 () (s1 (s2 s3) (s4 s3)) (s1 (s4 s5) 8) (s2 5))) - . - #s(stx-boundary (s0 () (s1 (s2 s3) (s4 s3)) (s1 (s4 s5) 8) (s2 5)))) - (visit - . - #s(stx-boundary (s0 () (s1 (s2 s3) (s4 s3)) (s1 (s4 s5) 8) (s2 5)))) - (resolve . #s(stx-boundary s0)) - (enter-prim - . - #s(stx-boundary (s0 () (s1 (s2 s3) (s4 s3)) (s1 (s4 s5) 8) (s2 5)))) - (prim-let-values - . - #s(stx-boundary (s0 () (s1 (s2 s3) (s4 s3)) (s1 (s4 s5) 8) (s2 5)))) - (letX-renames - () - () - () - () - #s(stx-boundary (s0 (s1 s2) (s3 s2))) - #s(stx-boundary (s0 (s3 s4) 8)) - #s(stx-boundary (s1 5))) - (enter-block - #s(stx-boundary (s0 (s1 s2) (s3 s2))) - #s(stx-boundary (s0 (s3 s4) 8)) - #s(stx-boundary (s1 5))) - (block-renames - (#s(stx-boundary (s0 (s1 s2) (s3 s2))) - #s(stx-boundary (s0 (s3 s4) 8)) - #s(stx-boundary (s1 5))) - #s(stx-boundary (s0 (s1 s2) (s3 s2))) - #s(stx-boundary (s0 (s3 s4) 8)) - #s(stx-boundary (s1 5))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary (s0 (s1 s2) (s3 s2))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3)))) - . - #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)))) - . - #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))))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3)))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) (s3 s2)))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 s2) 8))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary (s0 (s1 s2) 8)) - . - #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))) - (exit-macro - #s(stx-boundary (s0 s1 (s2 (s3) 8))) - . - #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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) 8))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) 8))) - (next . #f) - (visit . #s(stx-boundary (s0 5))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 5))) - (block->letrec - ((#s(stx-boundary s0)) (#s(stx-boundary s1))) - (#s(stx-boundary (s2 (s3) (s1 s3))) #s(stx-boundary (s2 (s4) 8))) - #s(stx-boundary (s0 5))) - (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 . #s(stx-boundary (s0 (s1) (s2 s1)))) - (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) - (visit . #s(stx-boundary (s0 s1))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 s1))) - (block->list . #f) - (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)) - (tag2 #s(stx-boundary (s0 s1 s2)) . #s(stx-boundary (s1 s2))) - (enter-macro #s(stx-boundary (s0 s1 s2)) . #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)) . #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 . #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)) - (exit-prim/return . #s(stx-boundary (s0 s1 s2))) - (exit-list #s(stx-boundary (s0 s1 s2))) - (exit-prim/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 . #s(stx-boundary (s0 (s1) 8))) - (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) - (visit . #s(stx-boundary 8)) - (stop/return . #s(stx-boundary 8)) - (block->list . #f) - (enter-list #s(stx-boundary 8)) - (next . #f) - (visit . #s(stx-boundary 8)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . 8)) . #s(stx-boundary 8)) - (enter-prim . #s(stx-boundary (s0 . 8))) - (prim-#%datum . #s(stx-boundary (s0 . 8))) - (exit-prim/return . #s(stx-boundary (s0 8))) - (exit-list #s(stx-boundary (s0 8))) - (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 8)))) - (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)) - (tag2 #s(stx-boundary (s0 s1 5)) . #s(stx-boundary (s1 5))) - (enter-macro #s(stx-boundary (s0 s1 5)) . #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)) . #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 . #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 5)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . 5)) . #s(stx-boundary 5)) - (enter-prim . #s(stx-boundary (s0 . 5))) - (prim-#%datum . #s(stx-boundary (s0 . 5))) - (exit-prim/return . #s(stx-boundary (s0 5))) - (exit-prim/return . #s(stx-boundary (s0 s1 (s2 5)))) - (exit-list #s(stx-boundary (s0 s1 (s2 5)))) - (finish-block - #s(stx-boundary - (s0 - (((s1) (s2 (s3) (s4 s5 s3))) ((s5) (s2 (s6) (s7 8)))) - (s4 s1 (s7 5))))) - (exit-prim/return - . - #s(stx-boundary - (s0 - () - (s1 - (((s2) (s3 (s4) (s5 s6 s4))) ((s6) (s3 (s7) (s8 8)))) - (s5 s2 (s8 5)))))) - (exit-prim/return - . - #s(stx-boundary - (s0 - (s1 - () - (s2 - (((s3) (s4 (s5) (s6 s7 s5))) ((s7) (s4 (s8) (s9 8)))) - (s6 s3 (s9 5))))))))) - ((#%stratified-body - (define (first z) z) - (define (ok x) (second x)) - (define (second y) 8) - (ok (first 5))) - . - ((start-top . #f) - (visit - . - #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)) - (stop/return - . - #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 - . - #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) s3) - (s1 (s4 s5) (s6 s5)) - (s1 (s6 s7) 8) - (s4 (s2 5))))) - (resolve . #s(stx-boundary s0)) - (enter-prim - . - #s(stx-boundary - (s0 - (s1 (s2 s3) s3) - (s1 (s4 s5) (s6 s5)) - (s1 (s6 s7) 8) - (s4 (s2 5))))) - (prim-#%stratified - . - #s(stx-boundary - (s0 - (s1 (s2 s3) s3) - (s1 (s4 s5) (s6 s5)) - (s1 (s6 s7) 8) - (s4 (s2 5))))) - (enter-block - #s(stx-boundary (s0 (s1 s2) s2)) - #s(stx-boundary (s0 (s3 s4) (s5 s4))) - #s(stx-boundary (s0 (s5 s6) 8)) - #s(stx-boundary (s3 (s1 5)))) - (block-renames - (#s(stx-boundary (s0 (s1 s2) s2)) - #s(stx-boundary (s0 (s3 s4) (s5 s4))) - #s(stx-boundary (s0 (s5 s6) 8)) - #s(stx-boundary (s3 (s1 5)))) - #s(stx-boundary (s0 (s1 s2) s2)) - #s(stx-boundary (s0 (s3 s4) (s5 s4))) - #s(stx-boundary (s0 (s5 s6) 8)) - #s(stx-boundary (s3 (s1 5)))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 s2) s2))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary (s0 (s1 s2) s2)) - . - #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))) - (exit-macro - #s(stx-boundary (s0 s1 (s2 (s3) s3))) - . - #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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) s3))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) s2))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary (s0 (s1 s2) (s3 s2))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3)))) - . - #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)))) - . - #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))))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3)))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) - (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) (s3 s2)))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 s2) 8))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary (s0 (s1 s2) 8)) - . - #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))) - (exit-macro - #s(stx-boundary (s0 s1 (s2 (s3) 8))) - . - #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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) 8))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) - (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) 8))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 5)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1 5)))) - (block->letrec - ((#s(stx-boundary s0)) (#s(stx-boundary s1)) (#s(stx-boundary s2))) - (#s(stx-boundary (s3 (s4) s4)) - #s(stx-boundary (s3 (s5) (s2 s5))) - #s(stx-boundary (s3 (s6) 8))) - #s(stx-boundary (s7 (s1 (s0 5))))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1) s1))) - (resolve . #s(stx-boundary s0)) - (enter-prim . #s(stx-boundary (s0 (s1) s1))) - (prim-lambda . #s(stx-boundary (s0 (s1) s1))) - (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) - (visit . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary s0)) - (block->list . #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/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 . #s(stx-boundary (s0 (s1) (s2 s1)))) - (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) - (visit . #s(stx-boundary (s0 s1))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 s1))) - (block->list . #f) - (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)) - (tag2 #s(stx-boundary (s0 s1 s2)) . #s(stx-boundary (s1 s2))) - (enter-macro #s(stx-boundary (s0 s1 s2)) . #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)) . #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 . #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)) - (exit-prim/return . #s(stx-boundary (s0 s1 s2))) - (exit-list #s(stx-boundary (s0 s1 s2))) - (exit-prim/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 . #s(stx-boundary (s0 (s1) 8))) - (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) - (visit . #s(stx-boundary 8)) - (stop/return . #s(stx-boundary 8)) - (block->list . #f) - (enter-list #s(stx-boundary 8)) - (next . #f) - (visit . #s(stx-boundary 8)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . 8)) . #s(stx-boundary 8)) - (enter-prim . #s(stx-boundary (s0 . 8))) - (prim-#%datum . #s(stx-boundary (s0 . 8))) - (exit-prim/return . #s(stx-boundary (s0 8))) - (exit-list #s(stx-boundary (s0 8))) - (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 8)))) - (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 . #s(stx-boundary (s0 (s1 (s2 5))))) - (enter-block #s(stx-boundary (s0 (s1 5)))) - (block-renames - (#s(stx-boundary (s0 (s1 5)))) - #s(stx-boundary (s0 (s1 5)))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 5)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1 5)))) - (block->list . #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)) - (tag2 #s(stx-boundary (s0 s1 (s2 5))) . #s(stx-boundary (s1 (s2 5)))) - (enter-macro - #s(stx-boundary (s0 s1 (s2 5))) - . - #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))) - . - #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 . #s(stx-boundary (s0 s1 (s2 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)) - (tag2 #s(stx-boundary (s0 s1 5)) . #s(stx-boundary (s1 5))) - (enter-macro #s(stx-boundary (s0 s1 5)) . #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)) . #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 . #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 5)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . 5)) . #s(stx-boundary 5)) - (enter-prim . #s(stx-boundary (s0 . 5))) - (prim-#%datum . #s(stx-boundary (s0 . 5))) - (exit-prim/return . #s(stx-boundary (s0 5))) - (exit-prim/return . #s(stx-boundary (s0 s1 (s2 5)))) - (exit-prim/return . #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) - (exit-list #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) - (exit-prim/return . #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) - (exit-list #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) - (finish-block - #s(stx-boundary - (s0 - (((s1) (s2 (s3) s3)) - ((s4) (s2 (s5) (s6 s7 s5))) - ((s7) (s2 (s8) (s9 8)))) - (s6 s4 (s6 s1 (s9 5)))))) - (exit-prim/return - . - #s(stx-boundary - (s0 - (((s1) (s2 (s3) s3)) - ((s4) (s2 (s5) (s6 s7 s5))) - ((s7) (s2 (s8) (s9 8)))) - (s6 s4 (s6 s1 (s9 5)))))) - (exit-prim/return - . - #s(stx-boundary - (s0 - (s1 - (((s2) (s3 (s4) s4)) - ((s5) (s3 (s6) (s7 s8 s6))) - ((s8) (s3 (s9) (s10 8)))) - (s7 s5 (s7 s2 (s10 5))))))))) - ((set! __x 99) - . - ((start-top . #f) - (visit . #s(stx-boundary (s0 (s1 s2 99)))) - (visit . #s(stx-boundary (s0 (s1 s2 99)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #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 . #s(stx-boundary (s0 (s1 s2 99)))) - (visit . #s(stx-boundary (s0 s1 99))) - (resolve . #s(stx-boundary s0)) - (enter-prim . #s(stx-boundary (s0 s1 99))) - (prim-set! . #s(stx-boundary (s0 s1 99))) - (resolve . #s(stx-boundary s0)) - (next . #f) - (visit . #s(stx-boundary 99)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . 99)) . #s(stx-boundary 99)) - (enter-prim . #s(stx-boundary (s0 . 99))) - (prim-#%datum . #s(stx-boundary (s0 . 99))) - (exit-prim/return . #s(stx-boundary (s0 99))) - (exit-prim/return . #s(stx-boundary (s0 s1 (s2 99)))) - (exit-prim/return . #s(stx-boundary (s0 (s1 s2 (s3 99))))))) - ((let () - (define-syntax (lift stx) (syntax-local-lift-expression #'(+ 1 2))) - (lift)) - . - ((start-top . #f) - (visit - . - #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)) - (stop/return - . - #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 - . - #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 1 2)))) (s2)))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 (s6 1 2)))) (s2))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 (s6 1 2)))) (s2))) - . - #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 - . - #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 (s6 1 2)))) (s2)))) - (letX-renames - () - () - () - () - #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 1 2))))) - #s(stx-boundary (s1))) - (enter-block - #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 1 2))))) - #s(stx-boundary (s1))) - (block-renames - (#s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 1 2))))) - #s(stx-boundary (s1))) - #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 1 2))))) - #s(stx-boundary (s1))) - (next . #f) - (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))))) - . - #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)))))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 1 2)))))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 1 2))))))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 1 2))))))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 1 2))))))) - (prim-define-syntaxes - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 1 2))))))) - (rename-one - (#s(stx-boundary s0)) - #s(stx-boundary (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))))) - . - #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)))))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3 (s4 1 2))))) - . - #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 . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 1 2)))))) - (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))))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 (s2 1 2))))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1 (s2 1 2))))) - (block->list . #f) - (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)) - (tag2 - #s(stx-boundary (s0 s1 (s2 (s3 1 2)))) - . - #s(stx-boundary (s1 (s2 (s3 1 2))))) - (enter-macro - #s(stx-boundary (s0 s1 (s2 (s3 1 2)))) - . - #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))))) - (exit-macro - #s(stx-boundary (s0 s1 (s2 (s3 1 2)))) - . - #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 . #s(stx-boundary (s0 s1 (s2 (s3 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))) - . - #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) - (local-value . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (local-value-result . #f) - (local-value . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (local-value-result . #f) - (track-syntax - s0 - #s(stx-boundary (s1 (s2 1 2))) - . - #s(stx-boundary (s1 (s2 1 2)))) - (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))) - . - #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 . #s(stx-boundary (s0 (s1 1 2)))) - (exit-prim/return . #s(stx-boundary (s0 (s1 1 2)))) - (exit-prim/return . #s(stx-boundary (s0 s1 (s2 (s3 1 2))))) - (exit-list #s(stx-boundary (s0 s1 (s2 (s3 1 2))))) - (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 s3 (s4 (s5 1 2)))))) - (next . #f) - (exit-bind . #f) - (next . #f) - (visit . #s(stx-boundary (s0))) - (resolve . #s(stx-boundary s0)) - (enter-macro #s(stx-boundary (s0)) . #s(stx-boundary (s0))) - (macro-pre-x . #s(stx-boundary (s0))) - (lift-expr - (#s(stx-boundary s0)) - #s(stx-boundary (s1 1 2)) - . - #s(stx-boundary (s1 1 2))) - (macro-post-x #s(stx-boundary s0) . #s(stx-boundary (s1))) - (exit-macro #s(stx-boundary s0) . #s(stx-boundary s0)) - (visit . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary s0)) - (block->letrec () () #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)) - (finish-block #s(stx-boundary (s0 () s1))) - (exit-prim/return . #s(stx-boundary (s0 () (s0 () s1)))) - (exit-prim/return . #s(stx-boundary (s0 (s1 () (s1 () s2))))) - (lift-loop - . - #s(stx-boundary (s0 (s1 (s2) (s3 1 2)) (s4 (s5 () (s5 () s2)))))) - (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 - . - #s(stx-boundary (s0 (s1 (s2) (s3 1 2)) (s4 (s5 () (s5 () s2)))))) - (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 . #s(stx-boundary (s0 (s1) (s2 1 2)))) - (visit . #s(stx-boundary (s0 1 2))) - (resolve . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 s1 1 2)) . #s(stx-boundary (s1 1 2))) - (enter-macro - #s(stx-boundary (s0 s1 1 2)) - . - #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)) - . - #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 . #s(stx-boundary (s0 s1 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)) - (tag2 #s(stx-boundary (s0 . 1)) . #s(stx-boundary 1)) - (enter-prim . #s(stx-boundary (s0 . 1))) - (prim-#%datum . #s(stx-boundary (s0 . 1))) - (exit-prim/return . #s(stx-boundary (s0 1))) - (next . #f) - (visit . #s(stx-boundary 2)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . 2)) . #s(stx-boundary 2)) - (enter-prim . #s(stx-boundary (s0 . 2))) - (prim-#%datum . #s(stx-boundary (s0 . 2))) - (exit-prim/return . #s(stx-boundary (s0 2))) - (exit-prim/return . #s(stx-boundary (s0 s1 (s2 1) (s2 2)))) - (exit-prim/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 . #s(stx-boundary (s0 (s1 () (s1 () s2))))) - (visit . #s(stx-boundary (s0 () (s0 () s1)))) - (resolve . #s(stx-boundary s0)) - (enter-prim . #s(stx-boundary (s0 () (s0 () s1)))) - (prim-let-values . #s(stx-boundary (s0 () (s0 () s1)))) - (letX-renames () () () () #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) - (visit . #s(stx-boundary (s0 () s1))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 () s1))) - (block->list . #f) - (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 . #s(stx-boundary (s0 () s1))) - (letX-renames () () () () #s(stx-boundary s0)) - (enter-block #s(stx-boundary s0)) - (block-renames (#s(stx-boundary s0)) #s(stx-boundary s0)) - (next . #f) - (visit . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary s0)) - (block->list . #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/return . #s(stx-boundary (s0 () s1))) - (exit-list #s(stx-boundary (s0 () s1))) - (exit-prim/return . #s(stx-boundary (s0 () (s0 () s1)))) - (exit-prim/return . #s(stx-boundary (s0 (s1 () (s1 () s2))))) - (exit-prim/return - . - #s(stx-boundary - (s0 (s1 (s2) (s3 s4 (s5 1) (s5 2))) (s6 (s7 () (s7 () s2)))))))) - ((letrec-values (((x) __y) ((y z) __w)) __x) - . - ((start-top . #f) - (visit . #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)) - (stop/return . #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 - . - #s(stx-boundary (s0 (s1 (((s2) s3) ((s4 s5) s6)) s7)))) - (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 - . - #s(stx-boundary (s0 (((s1) s2) ((s3 s4) s5)) s6))) - (letX-renames - () - () - ((#s(stx-boundary s0)) (#s(stx-boundary s1) #s(stx-boundary s2))) - (#s(stx-boundary s3) #s(stx-boundary s4)) - #s(stx-boundary s5)) - (next . #f) - (visit . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . s1)) . #s(stx-boundary s1)) - (enter-prim . #s(stx-boundary (s0 . s1))) - (prim-#%top . #s(stx-boundary (s0 . s1))) - (exit-prim/return . #s(stx-boundary (s0 . s1))) - (next . #f) - (visit . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . s1)) . #s(stx-boundary s1)) - (enter-prim . #s(stx-boundary (s0 . s1))) - (prim-#%top . #s(stx-boundary (s0 . s1))) - (exit-prim/return . #s(stx-boundary (s0 . s1))) - (enter-block #s(stx-boundary s0)) - (block-renames (#s(stx-boundary s0)) #s(stx-boundary s0)) - (next . #f) - (visit . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary s0)) - (block->list . #f) - (enter-list #s(stx-boundary s0)) - (next . #f) - (visit . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . s1)) . #s(stx-boundary s1)) - (enter-prim . #s(stx-boundary (s0 . s1))) - (prim-#%top . #s(stx-boundary (s0 . s1))) - (exit-prim/return . #s(stx-boundary (s0 . s1))) - (exit-list #s(stx-boundary (s0 . s1))) - (exit-prim/return - . - #s(stx-boundary - (s0 (((s1) (s2 . s3)) ((s4 s5) (s2 . s6))) (s2 . s7)))) - (exit-prim/return - . - #s(stx-boundary - (s0 (s1 (((s2) (s3 . s4)) ((s5 s6) (s3 . s7))) (s3 . s8))))))) - ((module m racket/base (require racket/list) foldl) - . - ((start-top . #f) - (visit . #s(stx-boundary (s0 s1 s2 (s3 s4) s5))) - (visit . #s(stx-boundary (s0 s1 s2 (s3 s4) s5))) - (resolve . #s(stx-boundary s0)) - (stop/return . #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 . #s(stx-boundary (s0 s1 s2 (s3 s4) s5))) - (prepare-env . #f) - (rename-one #s(stx-boundary (s0 s1)) #s(stx-boundary s2)) - (tag . #s(stx-boundary (s0 (s1 s2) s3))) - (track-syntax - s0 - #s(stx-boundary (s1 (s2 s3) s4)) - . - #s(stx-boundary (s1 (s2 s3) s4))) - (visit . #s(stx-boundary (s0 (s1 s2) s3))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary (s0 (s1 s2) s3)) - . - #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))) - (exit-macro - #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 s9) s10)) - . - #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)) - . - #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))) - (s1 s2 (s10 s11)) - (s1 s2 s12))) - . - #s(stx-boundary (s13 (s3 s4 (s5 s6) (s7 s8) (s9 #f)) (s10 s11) s12))) - (exit-macro - #s(stx-boundary - (s0 - (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) - (s1 s2 (s10 s11)) - (s1 s2 s12))) - . - #s(stx-boundary - (s0 - (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) - (s1 s2 (s10 s11)) - (s1 s2 s12)))) - (visit - . - #s(stx-boundary - (s0 - (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) - (s1 s2 (s10 s11)) - (s1 s2 s12)))) - (resolve . #s(stx-boundary s0)) - (stop/return - . - #s(stx-boundary - (s0 - (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) - (s1 s2 (s10 s11)) - (s1 s2 s12)))) - (track-syntax - s0 - #s(stx-boundary - (s1 - (s2 s3 (s4 s5 (s6 s7) (s8 s9) (s10 #f))) - (s2 s3 (s11 s12)) - (s2 s3 s13))) - . - #s(stx-boundary - (s1 - (s2 s3 (s4 s5 (s6 s7) (s8 s9) (s10 #f))) - (s2 s3 (s11 s12)) - (s2 s3 s13)))) - (next . #f) - (visit - . - #s(stx-boundary - (s0 - (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) - (s1 s2 (s10 s11)) - (s1 s2 s12)))) - (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)))) - (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)))) - (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)))) - . - #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)) - (stop/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))))) - (exit-macro - #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)))) - . - #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)) - (stop/return . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (module-pass1-case - . - #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (prim-begin . #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))) - (next . #f) - (visit . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (module-pass1-case . #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-submodule . #f) - (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (prim-module . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (prepare-env . #f) - (rename-one #s(stx-boundary (s0 s1)) #s(stx-boundary (s2 #f))) - (tag . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (track-syntax - s0 - #s(stx-boundary (s1 (s2 s3) (s4 #f))) - . - #s(stx-boundary (s1 (s2 s3) (s4 #f)))) - (visit . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (track-syntax - s0 - #s(stx-boundary (s1 (s2 s3) (s4 #f))) - . - #s(stx-boundary (s1 (s2 s3) (s4 #f)))) - (next . #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)) - (stop/return . #s(stx-boundary (s0 s1))) - (module-pass1-case . #s(stx-boundary (s0 s1))) - (prim-require . #s(stx-boundary (s0 s1))) - (exit-case . #s(stx-boundary (s0 s1))) - (next . #f) - (visit . #s(stx-boundary (s0 #f))) - (resolve . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 #f))) - (module-pass1-case . #s(stx-boundary (s0 #f))) - (prim-stop . #f) - (next-group . #f) - (next . #f) - (next . #f) - (visit . #s(stx-boundary (s0 #f))) - (resolve . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 s1 #f)) . #s(stx-boundary (s1 #f))) - (enter-prim . #s(stx-boundary (s0 s1 #f))) - (prim-#%app . #s(stx-boundary (s0 s1 #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)) - (tag2 #s(stx-boundary (s0 . #f)) . #s(stx-boundary #f)) - (enter-prim . #s(stx-boundary (s0 . #f))) - (prim-#%datum . #s(stx-boundary (s0 . #f))) - (exit-prim/return . #s(stx-boundary (s0 #f))) - (exit-prim/return . #s(stx-boundary (s0 s1 (s2 #f)))) - (next-group . #f) - (next-group . #f) - (next . #f) - (next . #f) - (next-group . #f) - (next . #f) - (next . #f) - (exit-prim/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)))))) - (next . #f) - (visit . #s(stx-boundary (s0 s1 (s2 s3)))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary (s0 s1 (s2 s3))) - . - #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)) . #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)) . #s(stx-boundary (s0 s1))) - (visit . #s(stx-boundary (s0 s1))) - (resolve . #s(stx-boundary s0)) - (stop/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))) - . - #s(stx-boundary (s0 (s1 s2)))) - (visit . #s(stx-boundary (s0 (s1 s2)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1 s2)))) - (module-pass1-case . #s(stx-boundary (s0 (s1 s2)))) - (prim-begin . #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)) - (stop/return . #s(stx-boundary (s0 s1))) - (module-pass1-case . #s(stx-boundary (s0 s1))) - (prim-require . #s(stx-boundary (s0 s1))) - (exit-case . #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)) . #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))) - . - #s(stx-boundary (s0 (s1 s2)))) - (visit . #s(stx-boundary (s0 (s1 s2)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1 s2)))) - (module-pass1-case . #s(stx-boundary (s0 (s1 s2)))) - (prim-begin . #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)) . #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)) - . - #s(stx-boundary (s0 s1 (s2 () s3) s4))) - (visit . #s(stx-boundary (s0 s1 (s2 () s3) s4))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 s1 (s2 () s3) s4))) - (module-pass1-case . #s(stx-boundary (s0 s1 (s2 () s3) s4))) - (prim-stop . #f) - (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 . #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-lambda . #s(stx-boundary (s0 () s1))) - (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) - (visit . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary s0)) - (block->list . #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/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-prim/return . #s(stx-boundary (s0 s1 (s2 () s3) s4))) - (next-group . #f) - (next-group . #f) - (next . #f) - (next . #f) - (next . #f) - (next-group . #f) - (next . #f) - (next . #f) - (next . #f) - (exit-prim/return - . - #s(stx-boundary - (s0 - (s1 s2 (s3 s4) (s0 (s5 s6) (s7 s8 (s3 #f)))) - (s5 s9) - (s7 s10 (s11 () s12) s13)))) - (rename-one - . - #s(stx-boundary - (s0 - s1 - s2 - (s3 - (s0 s4 (s5 s6) (s3 (s7 s8) (s9 s10 (s5 #f)))) - (s7 s11) - (s9 s12 (s13 () s14) s15))))) - (exit-prim/return - . - #s(stx-boundary - (s0 - s1 - s2 - (s3 - (s0 s4 (s5 s6) (s3 (s7 s8) (s9 s10 (s5 #f)))) - (s7 s11) - (s9 s12 (s13 () s14) s15))))))) - ((module m racket/base (define (proc x) x) (provide proc)) - . - ((start-top . #f) - (visit . #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)) - (stop/return . #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 . #s(stx-boundary (s0 s1 s2 (s3 (s4 s5) s5) (s6 s4)))) - (prepare-env . #f) - (rename-one #s(stx-boundary (s0 (s1 s2) s2)) #s(stx-boundary (s3 s1))) - (tag . #s(stx-boundary (s0 (s1 (s2 s3) s3) (s4 s2)))) - (track-syntax - s0 - #s(stx-boundary (s1 (s2 (s3 s4) s4) (s5 s3))) - . - #s(stx-boundary (s1 (s2 (s3 s4) s4) (s5 s3)))) - (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))) - . - #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)))) - (exit-macro - #s(stx-boundary - (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 (s9 s10) s10) (s11 s9))) - . - #s(stx-boundary - (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 (s9 s10) s10) (s11 s9)))) - (visit - . - #s(stx-boundary - (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 (s9 s10) s10) (s11 s9)))) - (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))) - . - #s(stx-boundary - (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 (s9 s10) s10) (s11 s9)))) - (macro-pre-x - . - #s(stx-boundary - (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 (s9 s10) s10) (s11 s9)))) - (macro-post-x - #s(stx-boundary - (s0 - (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) - (s1 s2 (s10 (s11 s12) s12)) - (s1 s2 (s13 s11)))) - . - #s(stx-boundary - (s14 - (s3 s4 (s5 s6) (s7 s8) (s9 #f)) - (s10 (s11 s12) s12) - (s13 s11)))) - (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)))) - . - #s(stx-boundary - (s0 - (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) - (s1 s2 (s10 (s11 s12) s12)) - (s1 s2 (s13 s11))))) - (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))))) - (resolve . #s(stx-boundary s0)) - (stop/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))))) - (track-syntax - s0 - #s(stx-boundary - (s1 - (s2 s3 (s4 s5 (s6 s7) (s8 s9) (s10 #f))) - (s2 s3 (s11 (s12 s13) s13)) - (s2 s3 (s14 s12)))) - . - #s(stx-boundary - (s1 - (s2 s3 (s4 s5 (s6 s7) (s8 s9) (s10 #f))) - (s2 s3 (s11 (s12 s13) s13)) - (s2 s3 (s14 s12))))) - (next . #f) - (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))))) - (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))))) - (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))))) - (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)))) - . - #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)) - (stop/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))))) - (exit-macro - #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)))) - . - #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)) - (stop/return . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (module-pass1-case - . - #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (prim-begin . #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)))) - (next . #f) - (visit . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (module-pass1-case . #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-submodule . #f) - (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (prim-module . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (prepare-env . #f) - (rename-one #s(stx-boundary (s0 s1)) #s(stx-boundary (s2 #f))) - (tag . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (track-syntax - s0 - #s(stx-boundary (s1 (s2 s3) (s4 #f))) - . - #s(stx-boundary (s1 (s2 s3) (s4 #f)))) - (visit . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (track-syntax - s0 - #s(stx-boundary (s1 (s2 s3) (s4 #f))) - . - #s(stx-boundary (s1 (s2 s3) (s4 #f)))) - (next . #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)) - (stop/return . #s(stx-boundary (s0 s1))) - (module-pass1-case . #s(stx-boundary (s0 s1))) - (prim-require . #s(stx-boundary (s0 s1))) - (exit-case . #s(stx-boundary (s0 s1))) - (next . #f) - (visit . #s(stx-boundary (s0 #f))) - (resolve . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 #f))) - (module-pass1-case . #s(stx-boundary (s0 #f))) - (prim-stop . #f) - (next-group . #f) - (next . #f) - (next . #f) - (visit . #s(stx-boundary (s0 #f))) - (resolve . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 s1 #f)) . #s(stx-boundary (s1 #f))) - (enter-prim . #s(stx-boundary (s0 s1 #f))) - (prim-#%app . #s(stx-boundary (s0 s1 #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)) - (tag2 #s(stx-boundary (s0 . #f)) . #s(stx-boundary #f)) - (enter-prim . #s(stx-boundary (s0 . #f))) - (prim-#%datum . #s(stx-boundary (s0 . #f))) - (exit-prim/return . #s(stx-boundary (s0 #f))) - (exit-prim/return . #s(stx-boundary (s0 s1 (s2 #f)))) - (next-group . #f) - (next-group . #f) - (next . #f) - (next . #f) - (next-group . #f) - (next . #f) - (next . #f) - (exit-prim/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)))))) - (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))) - . - #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)) - . - #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))) - (exit-macro - #s(stx-boundary (s0 s1 (s2 (s3) s3))) - . - #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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) s3))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (resolve . #s(stx-boundary s0)) - (stop/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)))) - (exit-macro - #s(stx-boundary (s0 (s1 (s2) (s3 (s4) s4)))) - . - #s(stx-boundary (s0 (s1 (s2) (s3 (s4) s4))))) - (visit . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) s4))))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) s4))))) - (module-pass1-case . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) s4))))) - (prim-begin . #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)))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (module-pass1-case . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (exit-case - #s(stx-boundary s0) - (#s(stx-boundary s1)) - #s(stx-boundary (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))) - . - #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)) . #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)))) - . - #s(stx-boundary (s0 (s1 (s2 s3))))) - (visit . #s(stx-boundary (s0 (s1 (s2 s3))))) - (resolve . #s(stx-boundary s0)) - (stop/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)))) - (exit-macro - #s(stx-boundary (s0 (s1 (s2 (s3 s4))))) - . - #s(stx-boundary (s0 (s1 (s2 (s3 s4)))))) - (visit . #s(stx-boundary (s0 (s1 (s2 (s3 s4)))))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1 (s2 (s3 s4)))))) - (module-pass1-case . #s(stx-boundary (s0 (s1 (s2 (s3 s4)))))) - (prim-begin . #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)) - (stop/return . #s(stx-boundary (s0 (s1 (s2 s3))))) - (module-pass1-case . #s(stx-boundary (s0 (s1 (s2 s3))))) - (prim-stop . #f) - (next-group . #f) - (next . #f) - (next . #f) - (visit . #f) - (enter-prim . #f) - (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 . #s(stx-boundary (s0 (s1) s1))) - (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) - (visit . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary s0)) - (block->list . #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/return . #s(stx-boundary (s0 (s1) s1))) - (exit-prim/return . #f) - (next . #f) - (next-group . #f) - (next-group . #f) - (next . #f) - (next . #f) - (enter-prim . #s(stx-boundary (s0 (s1 (s2 s3))))) - (prim-provide . #s(stx-boundary (s0 (s1 (s2 s3))))) - (visit . #s(stx-boundary (s0 s1))) - (resolve . #s(stx-boundary s0)) - (enter-macro #s(stx-boundary (s0 s1)) . #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)) . #s(stx-boundary (s0 s1))) - (visit . #s(stx-boundary (s0 s1))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 s1))) - (exit-prim . #s(stx-boundary (s0 s1))) - (next-group . #f) - (next . #f) - (next . #f) - (next . #f) - (exit-prim/return - . - #s(stx-boundary - (s0 - (s1 s2 (s3 s4) (s0 (s5 s6) (s7 s8 (s3 #f)))) - (s9 (s10) (s11 (s12) s12)) - (s13 s10)))) - (rename-one - . - #s(stx-boundary - (s0 - s1 - s2 - (s3 - (s0 s4 (s5 s6) (s3 (s7 s8) (s9 s10 (s5 #f)))) - (s11 (s12) (s13 (s14) s14)) - (s15 s12))))) - (exit-prim/return - . - #s(stx-boundary - (s0 - s1 - s2 - (s3 - (s0 s4 (s5 s6) (s3 (s7 s8) (s9 s10 (s5 #f)))) - (s11 (s12) (s13 (s14) s14)) - (s15 s12))))))) - ((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))))) - (visit - . - #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 (s6 s7) (s8 s9))) (s3))))) - (resolve . #s(stx-boundary s0)) - (stop/return - . - #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 - . - #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))) (s2)))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2))) - . - #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))) - . - #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 - . - #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) - (letX-renames - () - () - () - () - #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7)))) - #s(stx-boundary (s1))) - (enter-block - #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7)))) - #s(stx-boundary (s1))) - (block-renames - (#s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7)))) - #s(stx-boundary (s1))) - #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7)))) - #s(stx-boundary (s1))) - (next . #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)))) - . - #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))))) - . - #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)) - (stop/return - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) - (prim-define-syntaxes - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) - (rename-one - (#s(stx-boundary s0)) - #s(stx-boundary (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)))) - . - #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)))) - . - #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 . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) - (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) - (visit . #s(stx-boundary (s0 (s1 s2) (s3 s4)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1 s2) (s3 s4)))) - (block->list . #f) - (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)) - (tag2 - #s(stx-boundary (s0 s1 (s2 s3) (s4 s5))) - . - #s(stx-boundary (s1 (s2 s3) (s4 s5)))) - (enter-macro - #s(stx-boundary (s0 s1 (s2 s3) (s4 s5))) - . - #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))) - . - #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 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5)))) - (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/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)) . #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) - (local-value . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (local-value-result . #f) - (track-syntax s0 #s(stx-boundary (s1 s2)) . #s(stx-boundary (s1 s2))) - (macro-post-x #s(stx-boundary (s0 s1)) . #s(stx-boundary (s2 s1))) - (exit-macro #s(stx-boundary (s0 s1)) . #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 . #s(stx-boundary (s0 s1))) - (exit-prim/return . #s(stx-boundary (s0 s1))) - (exit-prim/return . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5)))) - (exit-list #s(stx-boundary (s0 s1 (s2 s3) (s4 s5)))) - (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 s3 (s4 s5) (s6 s7))))) - (next . #f) - (exit-bind . #f) - (next . #f) - (visit . #s(stx-boundary (s0))) - (resolve . #s(stx-boundary s0)) - (enter-macro #s(stx-boundary (s0)) . #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) . #s(stx-boundary s0)) - (visit . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary s0)) - (block->letrec () () #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)) - (finish-block #s(stx-boundary (s0 () s1))) - (exit-prim/return . #s(stx-boundary (s0 () (s0 () s1)))) - (exit-prim/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 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 () (s4 () s5)))))) - (next . #f) - (visit . #s(stx-boundary (s0 s1))) - (resolve . #s(stx-boundary s0)) - (enter-prim . #s(stx-boundary (s0 s1))) - (prim-require . #s(stx-boundary (s0 s1))) - (exit-prim/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 . #s(stx-boundary (s0 (s1 () (s1 () s2))))) - (visit . #s(stx-boundary (s0 () (s0 () s1)))) - (resolve . #s(stx-boundary s0)) - (enter-prim . #s(stx-boundary (s0 () (s0 () s1)))) - (prim-let-values . #s(stx-boundary (s0 () (s0 () s1)))) - (letX-renames () () () () #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) - (visit . #s(stx-boundary (s0 () s1))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 () s1))) - (block->list . #f) - (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 . #s(stx-boundary (s0 () s1))) - (letX-renames () () () () #s(stx-boundary s0)) - (enter-block #s(stx-boundary s0)) - (block-renames (#s(stx-boundary s0)) #s(stx-boundary s0)) - (next . #f) - (visit . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary s0)) - (block->list . #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/return . #s(stx-boundary (s0 () s1))) - (exit-list #s(stx-boundary (s0 () s1))) - (exit-prim/return . #s(stx-boundary (s0 () (s0 () s1)))) - (exit-prim/return . #s(stx-boundary (s0 (s1 () (s1 () s2))))) - (exit-prim/return - . - #s(stx-boundary (s0 (s1 s2) (s3 (s4 () (s4 () s5)))))))) - ((if 1 2 3) - . - ((start-top . #f) - (visit . #s(stx-boundary (s0 (s1 1 2 3)))) - (visit . #s(stx-boundary (s0 (s1 1 2 3)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #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 . #s(stx-boundary (s0 (s1 1 2 3)))) - (visit . #s(stx-boundary (s0 1 2 3))) - (resolve . #s(stx-boundary s0)) - (enter-prim . #s(stx-boundary (s0 1 2 3))) - (prim-if . #s(stx-boundary (s0 1 2 3))) - (visit . #s(stx-boundary 1)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . 1)) . #s(stx-boundary 1)) - (enter-prim . #s(stx-boundary (s0 . 1))) - (prim-#%datum . #s(stx-boundary (s0 . 1))) - (exit-prim/return . #s(stx-boundary (s0 1))) - (next . #f) - (visit . #s(stx-boundary 2)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . 2)) . #s(stx-boundary 2)) - (enter-prim . #s(stx-boundary (s0 . 2))) - (prim-#%datum . #s(stx-boundary (s0 . 2))) - (exit-prim/return . #s(stx-boundary (s0 2))) - (next . #f) - (visit . #s(stx-boundary 3)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . 3)) . #s(stx-boundary 3)) - (enter-prim . #s(stx-boundary (s0 . 3))) - (prim-#%datum . #s(stx-boundary (s0 . 3))) - (exit-prim/return . #s(stx-boundary (s0 3))) - (exit-prim/return . #s(stx-boundary (s0 (s1 1) (s1 2) (s1 3)))) - (exit-prim/return . #s(stx-boundary (s0 (s1 (s2 1) (s2 2) (s2 3))))))) - ((module m racket/base - (define-syntax (ok stx) (quote-syntax 8)) - (ok) - (list (ok) (ok))) - . - ((start-top . #f) - (visit - . - #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)) - (stop/return - . - #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 - . - #s(stx-boundary (s0 s1 s2 (s3 (s4 s5) (s6 8)) (s4) (s7 (s4) (s4))))) - (prepare-env . #f) - (rename-one - #s(stx-boundary (s0 (s1 s2) (s3 8))) - #s(stx-boundary (s1)) - #s(stx-boundary (s4 (s1) (s1)))) - (tag . #s(stx-boundary (s0 (s1 (s2 s3) (s4 8)) (s2) (s5 (s2) (s2))))) - (track-syntax - s0 - #s(stx-boundary (s1 (s2 (s3 s4) (s5 8)) (s3) (s6 (s3) (s3)))) - . - #s(stx-boundary (s1 (s2 (s3 s4) (s5 8)) (s3) (s6 (s3) (s3))))) - (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)))) - . - #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)) - (s8 (s9 s10) (s11 8)) - (s9) - (s12 (s9) (s9)))) - . - #s(stx-boundary (s13 (s8 (s9 s10) (s11 8)) (s9) (s12 (s9) (s9))))) - (exit-macro - #s(stx-boundary - (s0 - (s1 s2 (s3 s4) (s5 s6) (s7 #f)) - (s8 (s9 s10) (s11 8)) - (s9) - (s12 (s9) (s9)))) - . - #s(stx-boundary - (s0 - (s1 s2 (s3 s4) (s5 s6) (s7 #f)) - (s8 (s9 s10) (s11 8)) - (s9) - (s12 (s9) (s9))))) - (visit - . - #s(stx-boundary - (s0 - (s1 s2 (s3 s4) (s5 s6) (s7 #f)) - (s8 (s9 s10) (s11 8)) - (s9) - (s12 (s9) (s9))))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary - (s0 - (s1 s2 (s3 s4) (s5 s6) (s7 #f)) - (s8 (s9 s10) (s11 8)) - (s9) - (s12 (s9) (s9)))) - . - #s(stx-boundary - (s0 - (s1 s2 (s3 s4) (s5 s6) (s7 #f)) - (s8 (s9 s10) (s11 8)) - (s9) - (s12 (s9) (s9))))) - (macro-pre-x - . - #s(stx-boundary - (s0 - (s1 s2 (s3 s4) (s5 s6) (s7 #f)) - (s8 (s9 s10) (s11 8)) - (s9) - (s12 (s9) (s9))))) - (macro-post-x - #s(stx-boundary - (s0 - (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) - (s1 s2 (s10 (s11 s12) (s13 8))) - (s1 s2 (s11)) - (s1 s2 (s14 (s11) (s11))))) - . - #s(stx-boundary - (s15 - (s3 s4 (s5 s6) (s7 s8) (s9 #f)) - (s10 (s11 s12) (s13 8)) - (s11) - (s14 (s11) (s11))))) - (exit-macro - #s(stx-boundary - (s0 - (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) - (s1 s2 (s10 (s11 s12) (s13 8))) - (s1 s2 (s11)) - (s1 s2 (s14 (s11) (s11))))) - . - #s(stx-boundary - (s0 - (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) - (s1 s2 (s10 (s11 s12) (s13 8))) - (s1 s2 (s11)) - (s1 s2 (s14 (s11) (s11)))))) - (visit - . - #s(stx-boundary - (s0 - (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) - (s1 s2 (s10 (s11 s12) (s13 8))) - (s1 s2 (s11)) - (s1 s2 (s14 (s11) (s11)))))) - (resolve . #s(stx-boundary s0)) - (stop/return - . - #s(stx-boundary - (s0 - (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) - (s1 s2 (s10 (s11 s12) (s13 8))) - (s1 s2 (s11)) - (s1 s2 (s14 (s11) (s11)))))) - (track-syntax - s0 - #s(stx-boundary - (s1 - (s2 s3 (s4 s5 (s6 s7) (s8 s9) (s10 #f))) - (s2 s3 (s11 (s12 s13) (s14 8))) - (s2 s3 (s12)) - (s2 s3 (s15 (s12) (s12))))) - . - #s(stx-boundary - (s1 - (s2 s3 (s4 s5 (s6 s7) (s8 s9) (s10 #f))) - (s2 s3 (s11 (s12 s13) (s14 8))) - (s2 s3 (s12)) - (s2 s3 (s15 (s12) (s12)))))) - (next . #f) - (visit - . - #s(stx-boundary - (s0 - (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) - (s1 s2 (s10 (s11 s12) (s13 8))) - (s1 s2 (s11)) - (s1 s2 (s14 (s11) (s11)))))) - (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 8))) - (s1 s2 (s11)) - (s1 s2 (s14 (s11) (s11)))))) - (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 8))) - (s1 s2 (s11)) - (s1 s2 (s14 (s11) (s11)))))) - (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)))) - . - #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)) - (stop/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))))) - (exit-macro - #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)))) - . - #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)) - (stop/return . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (module-pass1-case - . - #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) - (prim-begin . #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))))) - (next . #f) - (visit . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (module-pass1-case . #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-submodule . #f) - (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (prim-module . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) - (prepare-env . #f) - (rename-one #s(stx-boundary (s0 s1)) #s(stx-boundary (s2 #f))) - (tag . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (track-syntax - s0 - #s(stx-boundary (s1 (s2 s3) (s4 #f))) - . - #s(stx-boundary (s1 (s2 s3) (s4 #f)))) - (visit . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) - (track-syntax - s0 - #s(stx-boundary (s1 (s2 s3) (s4 #f))) - . - #s(stx-boundary (s1 (s2 s3) (s4 #f)))) - (next . #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)) - (stop/return . #s(stx-boundary (s0 s1))) - (module-pass1-case . #s(stx-boundary (s0 s1))) - (prim-require . #s(stx-boundary (s0 s1))) - (exit-case . #s(stx-boundary (s0 s1))) - (next . #f) - (visit . #s(stx-boundary (s0 #f))) - (resolve . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 #f))) - (module-pass1-case . #s(stx-boundary (s0 #f))) - (prim-stop . #f) - (next-group . #f) - (next . #f) - (next . #f) - (visit . #s(stx-boundary (s0 #f))) - (resolve . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 s1 #f)) . #s(stx-boundary (s1 #f))) - (enter-prim . #s(stx-boundary (s0 s1 #f))) - (prim-#%app . #s(stx-boundary (s0 s1 #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)) - (tag2 #s(stx-boundary (s0 . #f)) . #s(stx-boundary #f)) - (enter-prim . #s(stx-boundary (s0 . #f))) - (prim-#%datum . #s(stx-boundary (s0 . #f))) - (exit-prim/return . #s(stx-boundary (s0 #f))) - (exit-prim/return . #s(stx-boundary (s0 s1 (s2 #f)))) - (next-group . #f) - (next-group . #f) - (next . #f) - (next . #f) - (next-group . #f) - (next . #f) - (next . #f) - (exit-prim/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)))))) - (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)))) - . - #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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8)))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (resolve . #s(stx-boundary s0)) - (stop/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))))) - (exit-macro - #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 8))))) - . - #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)) - (stop/return . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 8)))))) - (module-pass1-case . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 8)))))) - (prim-begin . #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))))) - (next . #f) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (module-pass1-case . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (prim-define-syntaxes . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 8))) - . - #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 . #s(stx-boundary (s0 (s1) (s2 8)))) - (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) - (visit . #s(stx-boundary (s0 8))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 8))) - (block->list . #f) - (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) - . - ((start-top . #f) - (visit - . - #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)) - (stop/return - . - #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 - . - #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s6 (s7 s8) s8) 9)))) - (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)) - . - #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))) - (exit-macro - #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s5 (s6 s7) s7) 9)) - . - #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 - . - #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s5 (s6 s7) s7) 9))) - (letX-renames - () - () - () - () - #s(stx-boundary (s0 (s1 s2) (s3 8))) - #s(stx-boundary (s4 (s5 s6) s6)) - #s(stx-boundary 9)) - (enter-block - #s(stx-boundary (s0 (s1 s2) (s3 8))) - #s(stx-boundary (s4 (s5 s6) s6)) - #s(stx-boundary 9)) - (block-renames - (#s(stx-boundary (s0 (s1 s2) (s3 8))) - #s(stx-boundary (s4 (s5 s6) s6)) - #s(stx-boundary 9)) - #s(stx-boundary (s0 (s1 s2) (s3 8))) - #s(stx-boundary (s4 (s5 s6) s6)) - #s(stx-boundary 9)) - (next . #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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8)))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (prim-define-syntaxes . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) - (rename-one (#s(stx-boundary s0)) #s(stx-boundary (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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 8))) - . - #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 . #s(stx-boundary (s0 (s1) (s2 8)))) - (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) - (visit . #s(stx-boundary (s0 8))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 8))) - (block->list . #f) - (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 . #s(stx-boundary (s0 8))) - (exit-prim/return . #s(stx-boundary (s0 8))) - (exit-list #s(stx-boundary (s0 8))) - (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 8)))) - (next . #f) - (exit-bind . #f) - (next . #f) - (visit . #s(stx-boundary (s0 (s1 s2) s2))) - (resolve . #s(stx-boundary s0)) - (enter-macro - #s(stx-boundary (s0 (s1 s2) s2)) - . - #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))) - (exit-macro - #s(stx-boundary (s0 s1 (s2 (s3) s3))) - . - #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))) - . - #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)))) - (exit-macro - #s(stx-boundary (s0 (s1) (s2 (s3) s3))) - . - #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (visit . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) - (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) s2))) - (next . #f) - (visit . #s(stx-boundary 9)) - (stop/return . #s(stx-boundary 9)) - (block->letrec - ((#s(stx-boundary s0))) - (#s(stx-boundary (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 . #s(stx-boundary (s0 (s1) s1))) - (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) - (visit . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (stop/return . #s(stx-boundary s0)) - (block->list . #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/return . #s(stx-boundary (s0 (s1) s1))) - (enter-list #s(stx-boundary 9)) - (next . #f) - (visit . #s(stx-boundary 9)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . 9)) . #s(stx-boundary 9)) - (enter-prim . #s(stx-boundary (s0 . 9))) - (prim-#%datum . #s(stx-boundary (s0 . 9))) - (exit-prim/return . #s(stx-boundary (s0 9))) - (exit-list #s(stx-boundary (s0 9))) - (finish-block #s(stx-boundary (s0 (((s1) (s2 (s3) s3))) (s4 9)))) - (exit-prim/return - . - #s(stx-boundary (s0 () (s0 (((s1) (s2 (s3) s3))) (s4 9))))) - (exit-prim/return - . - #s(stx-boundary (s0 (s1 () (s1 (((s2) (s3 (s4) s4))) (s5 9)))))))) - ((begin 1 __x (+ 3 4)) - . - ((start-top . #f) - (visit . #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)) - (stop/return . #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 . #s(stx-boundary (s0 (s1 1 s2 (s3 3 4))))) - (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 . #s(stx-boundary (s0 1 s1 (s2 3 4)))) - (next . #f) - (visit . #s(stx-boundary 1)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . 1)) . #s(stx-boundary 1)) - (enter-prim . #s(stx-boundary (s0 . 1))) - (prim-#%datum . #s(stx-boundary (s0 . 1))) - (exit-prim/return . #s(stx-boundary (s0 1))) - (next . #f) - (visit . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . s1)) . #s(stx-boundary s1)) - (enter-prim . #s(stx-boundary (s0 . s1))) - (prim-#%top . #s(stx-boundary (s0 . s1))) - (exit-prim/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)) - (tag2 #s(stx-boundary (s0 s1 3 4)) . #s(stx-boundary (s1 3 4))) - (enter-macro - #s(stx-boundary (s0 s1 3 4)) - . - #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)) - . - #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 . #s(stx-boundary (s0 s1 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)) - (tag2 #s(stx-boundary (s0 . 3)) . #s(stx-boundary 3)) - (enter-prim . #s(stx-boundary (s0 . 3))) - (prim-#%datum . #s(stx-boundary (s0 . 3))) - (exit-prim/return . #s(stx-boundary (s0 3))) - (next . #f) - (visit . #s(stx-boundary 4)) - (resolve . #s(stx-boundary s0)) - (tag2 #s(stx-boundary (s0 . 4)) . #s(stx-boundary 4)) - (enter-prim . #s(stx-boundary (s0 . 4))) - (prim-#%datum . #s(stx-boundary (s0 . 4))) - (exit-prim/return . #s(stx-boundary (s0 4))) - (exit-prim/return . #s(stx-boundary (s0 s1 (s2 3) (s2 4)))) - (exit-prim/return - . - #s(stx-boundary (s0 (s1 1) (s2 . s3) (s4 s5 (s1 3) (s1 4))))) - (exit-prim/return - . - #s(stx-boundary (s0 (s1 (s2 1) (s3 . s4) (s5 s6 (s2 3) (s2 4)))))))) ((let () (define-syntax-rule (ok x) x) (ok 5)) . ((start-top . #f) @@ -10667,6 +3645,6750 @@ (finish-block #s(stx-boundary (s0 () (s1 5)))) (exit-prim/return . #s(stx-boundary (s0 () (s0 () (s1 5))))) (exit-prim/return . #s(stx-boundary (s0 (s1 () (s1 () (s2 5)))))))) + ((#%stratified-body + (define (first z) z) + (define (ok x) (second x)) + (define (second y) 8) + (ok (first 5))) + . + ((start-top . #f) + (visit + . + #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)) + (stop/return + . + #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 + . + #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) s3) + (s1 (s4 s5) (s6 s5)) + (s1 (s6 s7) 8) + (s4 (s2 5))))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary + (s0 + (s1 (s2 s3) s3) + (s1 (s4 s5) (s6 s5)) + (s1 (s6 s7) 8) + (s4 (s2 5))))) + (prim-#%stratified + . + #s(stx-boundary + (s0 + (s1 (s2 s3) s3) + (s1 (s4 s5) (s6 s5)) + (s1 (s6 s7) 8) + (s4 (s2 5))))) + (enter-block + #s(stx-boundary (s0 (s1 s2) s2)) + #s(stx-boundary (s0 (s3 s4) (s5 s4))) + #s(stx-boundary (s0 (s5 s6) 8)) + #s(stx-boundary (s3 (s1 5)))) + (block-renames + (#s(stx-boundary (s0 (s1 s2) s2)) + #s(stx-boundary (s0 (s3 s4) (s5 s4))) + #s(stx-boundary (s0 (s5 s6) 8)) + #s(stx-boundary (s3 (s1 5)))) + #s(stx-boundary (s0 (s1 s2) s2)) + #s(stx-boundary (s0 (s3 s4) (s5 s4))) + #s(stx-boundary (s0 (s5 s6) 8)) + #s(stx-boundary (s3 (s1 5)))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 s2) s2))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary (s0 (s1 s2) s2)) + . + #s(stx-boundary (s0 (s1 s2) s2))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) s2))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2) s2)) + . + #s(stx-boundary (s1 (s2) s2))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 (s3) s3))) + . + #s(stx-boundary (s0 (s1 s3) s3))) + (exit-macro + #s(stx-boundary (s0 s1 (s2 (s3) s3))) + . + #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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) s3))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) s2))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary (s0 (s1 s2) (s3 s2))) + . + #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2) (s3 s2))) + . + #s(stx-boundary (s1 (s2) (s3 s2)))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3)))) + . + #s(stx-boundary (s0 (s1 s3) (s4 s3)))) + (exit-macro + #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3)))) + . + #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)))) + . + #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))))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3)))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) (s3 s2)))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 s2) 8))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary (s0 (s1 s2) 8)) + . + #s(stx-boundary (s0 (s1 s2) 8))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) 8))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2) 8)) + . + #s(stx-boundary (s1 (s2) 8))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 (s3) 8))) + . + #s(stx-boundary (s0 (s1 s3) 8))) + (exit-macro + #s(stx-boundary (s0 s1 (s2 (s3) 8))) + . + #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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) 8))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) 8))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 5)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1 5)))) + (block->letrec + ((#s(stx-boundary s0)) (#s(stx-boundary s1)) (#s(stx-boundary s2))) + (#s(stx-boundary (s3 (s4) s4)) + #s(stx-boundary (s3 (s5) (s2 s5))) + #s(stx-boundary (s3 (s6) 8))) + #s(stx-boundary (s7 (s1 (s0 5))))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1) s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) s1))) + (prim-lambda . #s(stx-boundary (s0 (s1) s1))) + (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) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary s0)) + (block->list . #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/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 . #s(stx-boundary (s0 (s1) (s2 s1)))) + (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) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 s1))) + (block->list . #f) + (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)) + (tag2 #s(stx-boundary (s0 s1 s2)) . #s(stx-boundary (s1 s2))) + (enter-macro #s(stx-boundary (s0 s1 s2)) . #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)) . #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 . #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)) + (exit-prim/return . #s(stx-boundary (s0 s1 s2))) + (exit-list #s(stx-boundary (s0 s1 s2))) + (exit-prim/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 . #s(stx-boundary (s0 (s1) 8))) + (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) + (visit . #s(stx-boundary 8)) + (stop/return . #s(stx-boundary 8)) + (block->list . #f) + (enter-list #s(stx-boundary 8)) + (next . #f) + (visit . #s(stx-boundary 8)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . 8)) . #s(stx-boundary 8)) + (enter-prim . #s(stx-boundary (s0 . 8))) + (prim-#%datum . #s(stx-boundary (s0 . 8))) + (exit-prim/return . #s(stx-boundary (s0 8))) + (exit-list #s(stx-boundary (s0 8))) + (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 8)))) + (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 . #s(stx-boundary (s0 (s1 (s2 5))))) + (enter-block #s(stx-boundary (s0 (s1 5)))) + (block-renames + (#s(stx-boundary (s0 (s1 5)))) + #s(stx-boundary (s0 (s1 5)))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 5)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1 5)))) + (block->list . #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)) + (tag2 #s(stx-boundary (s0 s1 (s2 5))) . #s(stx-boundary (s1 (s2 5)))) + (enter-macro + #s(stx-boundary (s0 s1 (s2 5))) + . + #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))) + . + #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 . #s(stx-boundary (s0 s1 (s2 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)) + (tag2 #s(stx-boundary (s0 s1 5)) . #s(stx-boundary (s1 5))) + (enter-macro #s(stx-boundary (s0 s1 5)) . #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)) . #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 . #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 5)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . 5)) . #s(stx-boundary 5)) + (enter-prim . #s(stx-boundary (s0 . 5))) + (prim-#%datum . #s(stx-boundary (s0 . 5))) + (exit-prim/return . #s(stx-boundary (s0 5))) + (exit-prim/return . #s(stx-boundary (s0 s1 (s2 5)))) + (exit-prim/return . #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) + (exit-list #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) + (exit-prim/return . #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) + (exit-list #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) + (finish-block + #s(stx-boundary + (s0 + (((s1) (s2 (s3) s3)) + ((s4) (s2 (s5) (s6 s7 s5))) + ((s7) (s2 (s8) (s9 8)))) + (s6 s4 (s6 s1 (s9 5)))))) + (exit-prim/return + . + #s(stx-boundary + (s0 + (((s1) (s2 (s3) s3)) + ((s4) (s2 (s5) (s6 s7 s5))) + ((s7) (s2 (s8) (s9 8)))) + (s6 s4 (s6 s1 (s9 5)))))) + (exit-prim/return + . + #s(stx-boundary + (s0 + (s1 + (((s2) (s3 (s4) s4)) + ((s5) (s3 (s6) (s7 s8 s6))) + ((s8) (s3 (s9) (s10 8)))) + (s7 s5 (s7 s2 (s10 5))))))))) + ((#%top . __x) + . + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 . s2)))) + (visit . #s(stx-boundary (s0 (s1 . s2)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #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 . #s(stx-boundary (s0 (s1 . s2)))) + (visit . #s(stx-boundary (s0 . s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 . s1))) + (prim-#%top . #s(stx-boundary (s0 . s1))) + (exit-prim/return . #s(stx-boundary (s0 . s1))) + (exit-prim/return . #s(stx-boundary (s0 (s1 . s2)))))) + ((let () + (define-syntax (ok stx) (quote-syntax 8)) + (define-syntax (second stx) (quote-syntax (ok 6))) + (define (ident x) x) + (define (second-ident y) y) + (ident (second-ident (second)))) + . + ((start-top . #f) + (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))))))) + (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)) + (stop/return + . + #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 + . + #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 8)) + (s1 (s5 s3) (s4 (s2 6))) + (s6 (s7 s8) s8) + (s6 (s9 s10) s10) + (s7 (s9 (s5)))))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary + (s0 + () + (s1 (s2 s3) (s4 8)) + (s1 (s5 s3) (s4 (s2 6))) + (s6 (s7 s8) s8) + (s6 (s9 s10) s10) + (s7 (s9 (s5))))) + . + #s(stx-boundary + (s0 + () + (s1 (s2 s3) (s4 8)) + (s1 (s5 s3) (s4 (s2 6))) + (s6 (s7 s8) s8) + (s6 (s9 s10) s10) + (s7 (s9 (s5)))))) + (macro-pre-x + . + #s(stx-boundary + (s0 + () + (s1 (s2 s3) (s4 8)) + (s1 (s5 s3) (s4 (s2 6))) + (s6 (s7 s8) s8) + (s6 (s9 s10) s10) + (s7 (s9 (s5)))))) + (macro-post-x + #s(stx-boundary + (s0 + () + (s1 (s2 s3) (s4 8)) + (s1 (s5 s3) (s4 (s2 6))) + (s6 (s7 s8) s8) + (s6 (s9 s10) s10) + (s7 (s9 (s5))))) + . + #s(stx-boundary + (s11 + () + (s1 (s2 s3) (s4 8)) + (s1 (s5 s3) (s4 (s2 6))) + (s6 (s7 s8) s8) + (s6 (s9 s10) s10) + (s7 (s9 (s5)))))) + (exit-macro + #s(stx-boundary + (s0 + () + (s1 (s2 s3) (s4 8)) + (s1 (s5 s3) (s4 (s2 6))) + (s6 (s7 s8) s8) + (s6 (s9 s10) s10) + (s7 (s9 (s5))))) + . + #s(stx-boundary + (s0 + () + (s1 (s2 s3) (s4 8)) + (s1 (s5 s3) (s4 (s2 6))) + (s6 (s7 s8) s8) + (s6 (s9 s10) s10) + (s7 (s9 (s5)))))) + (visit + . + #s(stx-boundary + (s0 + () + (s1 (s2 s3) (s4 8)) + (s1 (s5 s3) (s4 (s2 6))) + (s6 (s7 s8) s8) + (s6 (s9 s10) s10) + (s7 (s9 (s5)))))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary + (s0 + () + (s1 (s2 s3) (s4 8)) + (s1 (s5 s3) (s4 (s2 6))) + (s6 (s7 s8) s8) + (s6 (s9 s10) s10) + (s7 (s9 (s5)))))) + (prim-let-values + . + #s(stx-boundary + (s0 + () + (s1 (s2 s3) (s4 8)) + (s1 (s5 s3) (s4 (s2 6))) + (s6 (s7 s8) s8) + (s6 (s9 s10) s10) + (s7 (s9 (s5)))))) + (letX-renames + () + () + () + () + #s(stx-boundary (s0 (s1 s2) (s3 8))) + #s(stx-boundary (s0 (s4 s2) (s3 (s1 6)))) + #s(stx-boundary (s5 (s6 s7) s7)) + #s(stx-boundary (s5 (s8 s9) s9)) + #s(stx-boundary (s6 (s8 (s4))))) + (enter-block + #s(stx-boundary (s0 (s1 s2) (s3 8))) + #s(stx-boundary (s0 (s4 s2) (s3 (s1 6)))) + #s(stx-boundary (s5 (s6 s7) s7)) + #s(stx-boundary (s5 (s8 s9) s9)) + #s(stx-boundary (s6 (s8 (s4))))) + (block-renames + (#s(stx-boundary (s0 (s1 s2) (s3 8))) + #s(stx-boundary (s0 (s4 s2) (s3 (s1 6)))) + #s(stx-boundary (s5 (s6 s7) s7)) + #s(stx-boundary (s5 (s8 s9) s9)) + #s(stx-boundary (s6 (s8 (s4))))) + #s(stx-boundary (s0 (s1 s2) (s3 8))) + #s(stx-boundary (s0 (s4 s2) (s3 (s1 6)))) + #s(stx-boundary (s5 (s6 s7) s7)) + #s(stx-boundary (s5 (s8 s9) s9)) + #s(stx-boundary (s6 (s8 (s4))))) + (next . #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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8)))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (prim-define-syntaxes . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (rename-one (#s(stx-boundary s0)) #s(stx-boundary (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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 8))) + . + #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 . #s(stx-boundary (s0 (s1) (s2 8)))) + (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) + (visit . #s(stx-boundary (s0 8))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 8))) + (block->list . #f) + (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 . #s(stx-boundary (s0 8))) + (exit-prim/return . #s(stx-boundary (s0 8))) + (exit-list #s(stx-boundary (s0 8))) + (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 8)))) + (next . #f) + (exit-bind . #f) + (next . #f) + (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)))) + . + #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))))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6))))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) + (prim-define-syntaxes + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) + (rename-one + (#s(stx-boundary s0)) + #s(stx-boundary (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)))) + . + #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))))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3 6)))) + . + #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 . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) + (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) + (visit . #s(stx-boundary (s0 (s1 6)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1 6)))) + (block->list . #f) + (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 . #s(stx-boundary (s0 (s1 6)))) + (exit-prim/return . #s(stx-boundary (s0 (s1 6)))) + (exit-list #s(stx-boundary (s0 (s1 6)))) + (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) + (next . #f) + (exit-bind . #f) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 s2) s2))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary (s0 (s1 s2) s2)) + . + #s(stx-boundary (s0 (s1 s2) s2))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) s2))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2) s2)) + . + #s(stx-boundary (s1 (s2) s2))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 (s3) s3))) + . + #s(stx-boundary (s0 (s1 s3) s3))) + (exit-macro + #s(stx-boundary (s0 s1 (s2 (s3) s3))) + . + #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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) s3))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) s2))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 s2) s2))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary (s0 (s1 s2) s2)) + . + #s(stx-boundary (s0 (s1 s2) s2))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) s2))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2) s2)) + . + #s(stx-boundary (s1 (s2) s2))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 (s3) s3))) + . + #s(stx-boundary (s0 (s1 s3) s3))) + (exit-macro + #s(stx-boundary (s0 s1 (s2 (s3) s3))) + . + #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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) s3))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) s2))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 (s2))))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1 (s2))))) + (block->letrec + ((#s(stx-boundary s0)) (#s(stx-boundary s1))) + (#s(stx-boundary (s2 (s3) s3)) #s(stx-boundary (s2 (s4) s4))) + #s(stx-boundary (s0 (s1 (s5))))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1) s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) s1))) + (prim-lambda . #s(stx-boundary (s0 (s1) s1))) + (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) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary s0)) + (block->list . #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/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 . #s(stx-boundary (s0 (s1) s1))) + (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) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary s0)) + (block->list . #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/return . #s(stx-boundary (s0 (s1) s1))) + (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)) + (tag2 + #s(stx-boundary (s0 s1 (s2 (s3)))) + . + #s(stx-boundary (s1 (s2 (s3))))) + (enter-macro + #s(stx-boundary (s0 s1 (s2 (s3)))) + . + #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)))) + . + #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 . #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)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 s1 (s2))) . #s(stx-boundary (s1 (s2)))) + (enter-macro + #s(stx-boundary (s0 s1 (s2))) + . + #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))) + . + #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 . #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)) + (enter-macro #s(stx-boundary (s0)) . #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)) . #s(stx-boundary (s0 6))) + (visit . #s(stx-boundary (s0 6))) + (resolve . #s(stx-boundary s0)) + (enter-macro #s(stx-boundary (s0 6)) . #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) . #s(stx-boundary 8)) + (visit . #s(stx-boundary 8)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . 8)) . #s(stx-boundary 8)) + (enter-prim . #s(stx-boundary (s0 . 8))) + (prim-#%datum . #s(stx-boundary (s0 . 8))) + (exit-prim/return . #s(stx-boundary (s0 8))) + (exit-prim/return . #s(stx-boundary (s0 s1 (s2 8)))) + (exit-prim/return . #s(stx-boundary (s0 s1 (s0 s2 (s3 8))))) + (exit-list #s(stx-boundary (s0 s1 (s0 s2 (s3 8))))) + (finish-block + #s(stx-boundary + (s0 + (((s1) (s2 (s3) s3))) + (s0 (((s4) (s2 (s5) s5))) (s6 s1 (s6 s4 (s7 8))))))) + (exit-prim/return + . + #s(stx-boundary + (s0 + () + (s0 + (((s1) (s2 (s3) s3))) + (s0 (((s4) (s2 (s5) s5))) (s6 s1 (s6 s4 (s7 8)))))))) + (exit-prim/return + . + #s(stx-boundary + (s0 + (s1 + () + (s1 + (((s2) (s3 (s4) s4))) + (s1 (((s5) (s3 (s6) s6))) (s7 s2 (s7 s5 (s8 8))))))))))) + ((#%stratified-body + (define (first z) z) + (define (ok x) (second x)) + (define (second y) 8) + (ok (first 5)) + (define more 'oops)) + . + ((start-top . #f) + (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)))))) + (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)) + (stop/return + . + #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 + . + #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) s3) + (s1 (s4 s5) (s6 s5)) + (s1 (s6 s7) 8) + (s4 (s2 5)) + (s1 s8 (s9 s10))))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary + (s0 + (s1 (s2 s3) s3) + (s1 (s4 s5) (s6 s5)) + (s1 (s6 s7) 8) + (s4 (s2 5)) + (s1 s8 (s9 s10))))) + (prim-#%stratified + . + #s(stx-boundary + (s0 + (s1 (s2 s3) s3) + (s1 (s4 s5) (s6 s5)) + (s1 (s6 s7) 8) + (s4 (s2 5)) + (s1 s8 (s9 s10))))) + (enter-block + #s(stx-boundary (s0 (s1 s2) s2)) + #s(stx-boundary (s0 (s3 s4) (s5 s4))) + #s(stx-boundary (s0 (s5 s6) 8)) + #s(stx-boundary (s3 (s1 5))) + #s(stx-boundary (s0 s7 (s8 s9)))) + (block-renames + (#s(stx-boundary (s0 (s1 s2) s2)) + #s(stx-boundary (s0 (s3 s4) (s5 s4))) + #s(stx-boundary (s0 (s5 s6) 8)) + #s(stx-boundary (s3 (s1 5))) + #s(stx-boundary (s0 s7 (s8 s9)))) + #s(stx-boundary (s0 (s1 s2) s2)) + #s(stx-boundary (s0 (s3 s4) (s5 s4))) + #s(stx-boundary (s0 (s5 s6) 8)) + #s(stx-boundary (s3 (s1 5))) + #s(stx-boundary (s0 s7 (s8 s9)))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 s2) s2))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary (s0 (s1 s2) s2)) + . + #s(stx-boundary (s0 (s1 s2) s2))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) s2))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2) s2)) + . + #s(stx-boundary (s1 (s2) s2))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 (s3) s3))) + . + #s(stx-boundary (s0 (s1 s3) s3))) + (exit-macro + #s(stx-boundary (s0 s1 (s2 (s3) s3))) + . + #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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) s3))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) s2))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary (s0 (s1 s2) (s3 s2))) + . + #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2) (s3 s2))) + . + #s(stx-boundary (s1 (s2) (s3 s2)))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3)))) + . + #s(stx-boundary (s0 (s1 s3) (s4 s3)))) + (exit-macro + #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3)))) + . + #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)))) + . + #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))))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3)))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) (s3 s2)))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 s2) 8))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary (s0 (s1 s2) 8)) + . + #s(stx-boundary (s0 (s1 s2) 8))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) 8))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2) 8)) + . + #s(stx-boundary (s1 (s2) 8))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 (s3) 8))) + . + #s(stx-boundary (s0 (s1 s3) 8))) + (exit-macro + #s(stx-boundary (s0 s1 (s2 (s3) 8))) + . + #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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) 8))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) 8))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 5)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1 5)))) + (block->letrec + ((#s(stx-boundary s0)) (#s(stx-boundary s1)) (#s(stx-boundary s2))) + (#s(stx-boundary (s3 (s4) s4)) + #s(stx-boundary (s3 (s5) (s2 s5))) + #s(stx-boundary (s3 (s6) 8))) + #s(stx-boundary (s7 (s1 (s0 5)) (s8 s9 (s10 s11))))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1) s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) s1))) + (prim-lambda . #s(stx-boundary (s0 (s1) s1))) + (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) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary s0)) + (block->list . #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/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 . #s(stx-boundary (s0 (s1) (s2 s1)))) + (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) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 s1))) + (block->list . #f) + (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)) + (tag2 #s(stx-boundary (s0 s1 s2)) . #s(stx-boundary (s1 s2))) + (enter-macro #s(stx-boundary (s0 s1 s2)) . #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)) . #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 . #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)) + (exit-prim/return . #s(stx-boundary (s0 s1 s2))) + (exit-list #s(stx-boundary (s0 s1 s2))) + (exit-prim/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 . #s(stx-boundary (s0 (s1) 8))) + (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) + (visit . #s(stx-boundary 8)) + (stop/return . #s(stx-boundary 8)) + (block->list . #f) + (enter-list #s(stx-boundary 8)) + (next . #f) + (visit . #s(stx-boundary 8)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . 8)) . #s(stx-boundary 8)) + (enter-prim . #s(stx-boundary (s0 . 8))) + (prim-#%datum . #s(stx-boundary (s0 . 8))) + (exit-prim/return . #s(stx-boundary (s0 8))) + (exit-list #s(stx-boundary (s0 8))) + (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 8)))) + (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 . #s(stx-boundary (s0 (s1 (s2 5)) (s3 s4 (s5 s6))))) + (enter-block + #s(stx-boundary (s0 (s1 5))) + #s(stx-boundary (s2 s3 (s4 s5)))) + (block-renames + (#s(stx-boundary (s0 (s1 5))) #s(stx-boundary (s2 s3 (s4 s5)))) + #s(stx-boundary (s0 (s1 5))) + #s(stx-boundary (s2 s3 (s4 s5)))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 5)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1 5)))) + (block->list . #f) + (enter-list + #s(stx-boundary (s0 (s1 5))) + #s(stx-boundary (s2 s3 (s4 s5)))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 5)))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 s1 (s2 5))) . #s(stx-boundary (s1 (s2 5)))) + (enter-macro + #s(stx-boundary (s0 s1 (s2 5))) + . + #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))) + . + #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 . #s(stx-boundary (s0 s1 (s2 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)) + (tag2 #s(stx-boundary (s0 s1 5)) . #s(stx-boundary (s1 5))) + (enter-macro #s(stx-boundary (s0 s1 5)) . #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)) . #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 . #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 5)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . 5)) . #s(stx-boundary 5)) + (enter-prim . #s(stx-boundary (s0 . 5))) + (prim-#%datum . #s(stx-boundary (s0 . 5))) + (exit-prim/return . #s(stx-boundary (s0 5))) + (exit-prim/return . #s(stx-boundary (s0 s1 (s2 5)))) + (exit-prim/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))) + . + #s(stx-boundary (s0 s1 (s2 s3)))) + (macro-pre-x . #s(stx-boundary (s0 s1 (s2 s3)))))) + ((module m racket/base (define (proc x) x) (provide proc)) + . + ((start-top . #f) + (visit . #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)) + (stop/return . #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 . #s(stx-boundary (s0 s1 s2 (s3 (s4 s5) s5) (s6 s4)))) + (prepare-env . #f) + (rename-one #s(stx-boundary (s0 (s1 s2) s2)) #s(stx-boundary (s3 s1))) + (tag . #s(stx-boundary (s0 (s1 (s2 s3) s3) (s4 s2)))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2 (s3 s4) s4) (s5 s3))) + . + #s(stx-boundary (s1 (s2 (s3 s4) s4) (s5 s3)))) + (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))) + . + #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)))) + (exit-macro + #s(stx-boundary + (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 (s9 s10) s10) (s11 s9))) + . + #s(stx-boundary + (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 (s9 s10) s10) (s11 s9)))) + (visit + . + #s(stx-boundary + (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 (s9 s10) s10) (s11 s9)))) + (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))) + . + #s(stx-boundary + (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 (s9 s10) s10) (s11 s9)))) + (macro-pre-x + . + #s(stx-boundary + (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 (s9 s10) s10) (s11 s9)))) + (macro-post-x + #s(stx-boundary + (s0 + (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) + (s1 s2 (s10 (s11 s12) s12)) + (s1 s2 (s13 s11)))) + . + #s(stx-boundary + (s14 + (s3 s4 (s5 s6) (s7 s8) (s9 #f)) + (s10 (s11 s12) s12) + (s13 s11)))) + (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)))) + . + #s(stx-boundary + (s0 + (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) + (s1 s2 (s10 (s11 s12) s12)) + (s1 s2 (s13 s11))))) + (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))))) + (resolve . #s(stx-boundary s0)) + (stop/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))))) + (track-syntax + s0 + #s(stx-boundary + (s1 + (s2 s3 (s4 s5 (s6 s7) (s8 s9) (s10 #f))) + (s2 s3 (s11 (s12 s13) s13)) + (s2 s3 (s14 s12)))) + . + #s(stx-boundary + (s1 + (s2 s3 (s4 s5 (s6 s7) (s8 s9) (s10 #f))) + (s2 s3 (s11 (s12 s13) s13)) + (s2 s3 (s14 s12))))) + (next . #f) + (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))))) + (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))))) + (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))))) + (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)))) + . + #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)) + (stop/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))))) + (exit-macro + #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)))) + . + #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)) + (stop/return . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (module-pass1-case + . + #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (prim-begin . #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)))) + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (module-pass1-case . #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-submodule . #f) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-module . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prepare-env . #f) + (rename-one #s(stx-boundary (s0 s1)) #s(stx-boundary (s2 #f))) + (tag . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2 s3) (s4 #f))) + . + #s(stx-boundary (s1 (s2 s3) (s4 #f)))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2 s3) (s4 #f))) + . + #s(stx-boundary (s1 (s2 s3) (s4 #f)))) + (next . #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)) + (stop/return . #s(stx-boundary (s0 s1))) + (module-pass1-case . #s(stx-boundary (s0 s1))) + (prim-require . #s(stx-boundary (s0 s1))) + (exit-case . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary (s0 #f))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 #f))) + (module-pass1-case . #s(stx-boundary (s0 #f))) + (prim-stop . #f) + (next-group . #f) + (next . #f) + (next . #f) + (visit . #s(stx-boundary (s0 #f))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 s1 #f)) . #s(stx-boundary (s1 #f))) + (enter-prim . #s(stx-boundary (s0 s1 #f))) + (prim-#%app . #s(stx-boundary (s0 s1 #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)) + (tag2 #s(stx-boundary (s0 . #f)) . #s(stx-boundary #f)) + (enter-prim . #s(stx-boundary (s0 . #f))) + (prim-#%datum . #s(stx-boundary (s0 . #f))) + (exit-prim/return . #s(stx-boundary (s0 #f))) + (exit-prim/return . #s(stx-boundary (s0 s1 (s2 #f)))) + (next-group . #f) + (next-group . #f) + (next . #f) + (next . #f) + (next-group . #f) + (next . #f) + (next . #f) + (exit-prim/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)))))) + (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))) + . + #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)) + . + #s(stx-boundary (s0 (s1 s2) s2))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) s2))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2) s2)) + . + #s(stx-boundary (s1 (s2) s2))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 (s3) s3))) + . + #s(stx-boundary (s0 (s1 s3) s3))) + (exit-macro + #s(stx-boundary (s0 s1 (s2 (s3) s3))) + . + #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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) s3))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (resolve . #s(stx-boundary s0)) + (stop/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)))) + (exit-macro + #s(stx-boundary (s0 (s1 (s2) (s3 (s4) s4)))) + . + #s(stx-boundary (s0 (s1 (s2) (s3 (s4) s4))))) + (visit . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) s4))))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) s4))))) + (module-pass1-case . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) s4))))) + (prim-begin . #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)))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (module-pass1-case . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (exit-case + #s(stx-boundary s0) + (#s(stx-boundary s1)) + #s(stx-boundary (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))) + . + #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)) . #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)))) + . + #s(stx-boundary (s0 (s1 (s2 s3))))) + (visit . #s(stx-boundary (s0 (s1 (s2 s3))))) + (resolve . #s(stx-boundary s0)) + (stop/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)))) + (exit-macro + #s(stx-boundary (s0 (s1 (s2 (s3 s4))))) + . + #s(stx-boundary (s0 (s1 (s2 (s3 s4)))))) + (visit . #s(stx-boundary (s0 (s1 (s2 (s3 s4)))))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1 (s2 (s3 s4)))))) + (module-pass1-case . #s(stx-boundary (s0 (s1 (s2 (s3 s4)))))) + (prim-begin . #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)) + (stop/return . #s(stx-boundary (s0 (s1 (s2 s3))))) + (module-pass1-case . #s(stx-boundary (s0 (s1 (s2 s3))))) + (prim-stop . #f) + (next-group . #f) + (next . #f) + (next . #f) + (visit . #f) + (enter-prim . #f) + (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 . #s(stx-boundary (s0 (s1) s1))) + (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) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary s0)) + (block->list . #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/return . #s(stx-boundary (s0 (s1) s1))) + (exit-prim/return . #f) + (next . #f) + (next-group . #f) + (next-group . #f) + (next . #f) + (next . #f) + (enter-prim . #s(stx-boundary (s0 (s1 (s2 s3))))) + (prim-provide . #s(stx-boundary (s0 (s1 (s2 s3))))) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-macro #s(stx-boundary (s0 s1)) . #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)) . #s(stx-boundary (s0 s1))) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 s1))) + (exit-prim . #s(stx-boundary (s0 s1))) + (next-group . #f) + (next . #f) + (next . #f) + (next . #f) + (exit-prim/return + . + #s(stx-boundary + (s0 + (s1 s2 (s3 s4) (s0 (s5 s6) (s7 s8 (s3 #f)))) + (s9 (s10) (s11 (s12) s12)) + (s13 s10)))) + (rename-one + . + #s(stx-boundary + (s0 + s1 + s2 + (s3 + (s0 s4 (s5 s6) (s3 (s7 s8) (s9 s10 (s5 #f)))) + (s11 (s12) (s13 (s14) s14)) + (s15 s12))))) + (exit-prim/return + . + #s(stx-boundary + (s0 + s1 + s2 + (s3 + (s0 s4 (s5 s6) (s3 (s7 s8) (s9 s10 (s5 #f)))) + (s11 (s12) (s13 (s14) s14)) + (s15 s12))))))) + ((lambda (x) (define y (+ x x)) y) + . + ((start-top . #f) + (visit . #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)) + (stop/return . #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 + . + #s(stx-boundary (s0 (s1 (s2) (s3 s4 (s5 s2 s2)) s4)))) + (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)) + . + #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))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 s3 (s4 s1 s1)) s3)) + . + #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 . #s(stx-boundary (s0 (s1) (s2 s3 (s4 s1 s1)) s3))) + (lambda-renames + #s(stx-boundary (s0)) + #s(stx-boundary (s1 s2 (s3 s0 s0))) + #s(stx-boundary s2)) + (enter-block #s(stx-boundary (s0 s1 (s2 s3 s3))) #s(stx-boundary s1)) + (block-renames + (#s(stx-boundary (s0 s1 (s2 s3 s3))) #s(stx-boundary s1)) + #s(stx-boundary (s0 s1 (s2 s3 s3))) + #s(stx-boundary s1)) + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3 s3)))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary (s0 s1 (s2 s3 s3))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 s1 (s2 s3 s3))) + . + #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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 s3 s3))) + . + #s(stx-boundary (s0 (s1) (s2 s3 s3)))) + (visit . #s(stx-boundary (s0 (s1) (s2 s3 s3)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 s3 s3)))) + (prim-define-values . #s(stx-boundary (s0 (s1) (s2 s3 s3)))) + (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 s2 s2))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary s0)) + (block->letrec + ((#s(stx-boundary s0))) + (#s(stx-boundary (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)) + (tag2 #s(stx-boundary (s0 s1 s2 s2)) . #s(stx-boundary (s1 s2 s2))) + (enter-macro + #s(stx-boundary (s0 s1 s2 s2)) + . + #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)) + . + #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 . #s(stx-boundary (s0 s1 s2 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-prim/return . #s(stx-boundary (s0 s1 s2 s2))) + (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)) + (finish-block #s(stx-boundary (s0 (((s1) (s2 s3 s4 s4))) s1))) + (exit-prim/return + . + #s(stx-boundary (s0 (s1) (s2 (((s3) (s4 s5 s1 s1))) s3)))) + (exit-prim/return + . + #s(stx-boundary (s0 (s1 (s2) (s3 (((s4) (s5 s6 s2 s2))) s4))))))) + ((let () + (define-syntax (ok stx) (quote-syntax 8)) + (define (ident x) x) + 9) + . + ((start-top . #f) + (visit + . + #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)) + (stop/return + . + #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 + . + #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s6 (s7 s8) s8) 9)))) + (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)) + . + #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))) + (exit-macro + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s5 (s6 s7) s7) 9)) + . + #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 + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s5 (s6 s7) s7) 9))) + (letX-renames + () + () + () + () + #s(stx-boundary (s0 (s1 s2) (s3 8))) + #s(stx-boundary (s4 (s5 s6) s6)) + #s(stx-boundary 9)) + (enter-block + #s(stx-boundary (s0 (s1 s2) (s3 8))) + #s(stx-boundary (s4 (s5 s6) s6)) + #s(stx-boundary 9)) + (block-renames + (#s(stx-boundary (s0 (s1 s2) (s3 8))) + #s(stx-boundary (s4 (s5 s6) s6)) + #s(stx-boundary 9)) + #s(stx-boundary (s0 (s1 s2) (s3 8))) + #s(stx-boundary (s4 (s5 s6) s6)) + #s(stx-boundary 9)) + (next . #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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8)))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (prim-define-syntaxes . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (rename-one (#s(stx-boundary s0)) #s(stx-boundary (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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 8))) + . + #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 . #s(stx-boundary (s0 (s1) (s2 8)))) + (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) + (visit . #s(stx-boundary (s0 8))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 8))) + (block->list . #f) + (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 . #s(stx-boundary (s0 8))) + (exit-prim/return . #s(stx-boundary (s0 8))) + (exit-list #s(stx-boundary (s0 8))) + (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 8)))) + (next . #f) + (exit-bind . #f) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 s2) s2))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary (s0 (s1 s2) s2)) + . + #s(stx-boundary (s0 (s1 s2) s2))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) s2))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2) s2)) + . + #s(stx-boundary (s1 (s2) s2))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 (s3) s3))) + . + #s(stx-boundary (s0 (s1 s3) s3))) + (exit-macro + #s(stx-boundary (s0 s1 (s2 (s3) s3))) + . + #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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) s3))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) s2))) + (next . #f) + (visit . #s(stx-boundary 9)) + (stop/return . #s(stx-boundary 9)) + (block->letrec + ((#s(stx-boundary s0))) + (#s(stx-boundary (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 . #s(stx-boundary (s0 (s1) s1))) + (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) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary s0)) + (block->list . #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/return . #s(stx-boundary (s0 (s1) s1))) + (enter-list #s(stx-boundary 9)) + (next . #f) + (visit . #s(stx-boundary 9)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . 9)) . #s(stx-boundary 9)) + (enter-prim . #s(stx-boundary (s0 . 9))) + (prim-#%datum . #s(stx-boundary (s0 . 9))) + (exit-prim/return . #s(stx-boundary (s0 9))) + (exit-list #s(stx-boundary (s0 9))) + (finish-block #s(stx-boundary (s0 (((s1) (s2 (s3) s3))) (s4 9)))) + (exit-prim/return + . + #s(stx-boundary (s0 () (s0 (((s1) (s2 (s3) s3))) (s4 9))))) + (exit-prim/return + . + #s(stx-boundary (s0 (s1 () (s1 (((s2) (s3 (s4) s4))) (s5 9)))))))) + ((let () (define (ok x) '8) (define (second y) (ok y)) (second 5)) + . + ((start-top . #f) + (visit + . + #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)) + (stop/return + . + #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 + . + #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 8)) (s1 (s5 s6) (s2 s6)) (s5 5)))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary + (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s6) (s2 s6)) (s5 5))) + . + #s(stx-boundary + (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s6) (s2 s6)) (s5 5)))) + (macro-pre-x + . + #s(stx-boundary + (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s6) (s2 s6)) (s5 5)))) + (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)))) + (exit-macro + #s(stx-boundary + (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s6) (s2 s6)) (s5 5))) + . + #s(stx-boundary + (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s6) (s2 s6)) (s5 5)))) + (visit + . + #s(stx-boundary + (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s6) (s2 s6)) (s5 5)))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary + (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s6) (s2 s6)) (s5 5)))) + (prim-let-values + . + #s(stx-boundary + (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s6) (s2 s6)) (s5 5)))) + (letX-renames + () + () + () + () + #s(stx-boundary (s0 (s1 s2) (s3 8))) + #s(stx-boundary (s0 (s4 s5) (s1 s5))) + #s(stx-boundary (s4 5))) + (enter-block + #s(stx-boundary (s0 (s1 s2) (s3 8))) + #s(stx-boundary (s0 (s4 s5) (s1 s5))) + #s(stx-boundary (s4 5))) + (block-renames + (#s(stx-boundary (s0 (s1 s2) (s3 8))) + #s(stx-boundary (s0 (s4 s5) (s1 s5))) + #s(stx-boundary (s4 5))) + #s(stx-boundary (s0 (s1 s2) (s3 8))) + #s(stx-boundary (s0 (s4 s5) (s1 s5))) + #s(stx-boundary (s4 5))) + (next . #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))) + . + #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2) (s3 8))) + . + #s(stx-boundary (s1 (s2) (s3 8)))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 (s3) (s4 8)))) + . + #s(stx-boundary (s0 (s1 s3) (s4 8)))) + (exit-macro + #s(stx-boundary (s0 s1 (s2 (s3) (s4 8)))) + . + #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)))) + . + #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))))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8)))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) (s3 8)))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary (s0 (s1 s2) (s3 s2))) + . + #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2) (s3 s2))) + . + #s(stx-boundary (s1 (s2) (s3 s2)))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3)))) + . + #s(stx-boundary (s0 (s1 s3) (s4 s3)))) + (exit-macro + #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3)))) + . + #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)))) + . + #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))))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3)))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) (s3 s2)))) + (next . #f) + (visit . #s(stx-boundary (s0 5))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 5))) + (block->letrec + ((#s(stx-boundary s0)) (#s(stx-boundary s1))) + (#s(stx-boundary (s2 (s3) (s4 8))) #s(stx-boundary (s2 (s5) (s0 s5)))) + #s(stx-boundary (s1 5))) + (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 . #s(stx-boundary (s0 (s1) (s2 8)))) + (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) + (visit . #s(stx-boundary (s0 8))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 8))) + (block->list . #f) + (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/return . #s(stx-boundary (s0 8))) + (exit-list #s(stx-boundary (s0 8))) + (exit-prim/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 . #s(stx-boundary (s0 (s1) (s2 s1)))) + (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) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 s1))) + (block->list . #f) + (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)) + (tag2 #s(stx-boundary (s0 s1 s2)) . #s(stx-boundary (s1 s2))) + (enter-macro #s(stx-boundary (s0 s1 s2)) . #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)) . #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 . #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)) + (exit-prim/return . #s(stx-boundary (s0 s1 s2))) + (exit-list #s(stx-boundary (s0 s1 s2))) + (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 s3 s1)))) + (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)) + (tag2 #s(stx-boundary (s0 s1 5)) . #s(stx-boundary (s1 5))) + (enter-macro #s(stx-boundary (s0 s1 5)) . #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)) . #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 . #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 5)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . 5)) . #s(stx-boundary 5)) + (enter-prim . #s(stx-boundary (s0 . 5))) + (prim-#%datum . #s(stx-boundary (s0 . 5))) + (exit-prim/return . #s(stx-boundary (s0 5))) + (exit-prim/return . #s(stx-boundary (s0 s1 (s2 5)))) + (exit-list #s(stx-boundary (s0 s1 (s2 5)))) + (finish-block + #s(stx-boundary + (s0 + (((s1) (s2 (s3) (s4 8)))) + (s0 (((s5) (s2 (s6) (s7 s1 s6)))) (s7 s5 (s4 5)))))) + (exit-prim/return + . + #s(stx-boundary + (s0 + () + (s0 + (((s1) (s2 (s3) (s4 8)))) + (s0 (((s5) (s2 (s6) (s7 s1 s6)))) (s7 s5 (s4 5))))))) + (exit-prim/return + . + #s(stx-boundary + (s0 + (s1 + () + (s1 + (((s2) (s3 (s4) (s5 8)))) + (s1 (((s6) (s3 (s7) (s8 s2 s7)))) (s8 s6 (s5 5)))))))))) + ((let () + (define-syntax (lift stx) (syntax-local-lift-expression #'(+ 1 2))) + (lift)) + . + ((start-top . #f) + (visit + . + #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)) + (stop/return + . + #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 + . + #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 1 2)))) (s2)))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 (s6 1 2)))) (s2))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 (s6 1 2)))) (s2))) + . + #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 + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 (s6 1 2)))) (s2)))) + (letX-renames + () + () + () + () + #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 1 2))))) + #s(stx-boundary (s1))) + (enter-block + #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 1 2))))) + #s(stx-boundary (s1))) + (block-renames + (#s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 1 2))))) + #s(stx-boundary (s1))) + #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 1 2))))) + #s(stx-boundary (s1))) + (next . #f) + (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))))) + . + #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)))))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 1 2)))))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 1 2))))))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 1 2))))))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 1 2))))))) + (prim-define-syntaxes + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 1 2))))))) + (rename-one + (#s(stx-boundary s0)) + #s(stx-boundary (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))))) + . + #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)))))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3 (s4 1 2))))) + . + #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 . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 1 2)))))) + (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))))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 (s2 1 2))))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1 (s2 1 2))))) + (block->list . #f) + (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)) + (tag2 + #s(stx-boundary (s0 s1 (s2 (s3 1 2)))) + . + #s(stx-boundary (s1 (s2 (s3 1 2))))) + (enter-macro + #s(stx-boundary (s0 s1 (s2 (s3 1 2)))) + . + #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))))) + (exit-macro + #s(stx-boundary (s0 s1 (s2 (s3 1 2)))) + . + #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 . #s(stx-boundary (s0 s1 (s2 (s3 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))) + . + #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) + (local-value . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (local-value-result . #f) + (local-value . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (local-value-result . #f) + (track-syntax + s0 + #s(stx-boundary (s1 (s2 1 2))) + . + #s(stx-boundary (s1 (s2 1 2)))) + (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))) + . + #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 . #s(stx-boundary (s0 (s1 1 2)))) + (exit-prim/return . #s(stx-boundary (s0 (s1 1 2)))) + (exit-prim/return . #s(stx-boundary (s0 s1 (s2 (s3 1 2))))) + (exit-list #s(stx-boundary (s0 s1 (s2 (s3 1 2))))) + (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 s3 (s4 (s5 1 2)))))) + (next . #f) + (exit-bind . #f) + (next . #f) + (visit . #s(stx-boundary (s0))) + (resolve . #s(stx-boundary s0)) + (enter-macro #s(stx-boundary (s0)) . #s(stx-boundary (s0))) + (macro-pre-x . #s(stx-boundary (s0))) + (lift-expr + (#s(stx-boundary s0)) + #s(stx-boundary (s1 1 2)) + . + #s(stx-boundary (s1 1 2))) + (macro-post-x #s(stx-boundary s0) . #s(stx-boundary (s1))) + (exit-macro #s(stx-boundary s0) . #s(stx-boundary s0)) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary s0)) + (block->letrec () () #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)) + (finish-block #s(stx-boundary (s0 () s1))) + (exit-prim/return . #s(stx-boundary (s0 () (s0 () s1)))) + (exit-prim/return . #s(stx-boundary (s0 (s1 () (s1 () s2))))) + (lift-loop + . + #s(stx-boundary (s0 (s1 (s2) (s3 1 2)) (s4 (s5 () (s5 () s2)))))) + (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 + . + #s(stx-boundary (s0 (s1 (s2) (s3 1 2)) (s4 (s5 () (s5 () s2)))))) + (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 . #s(stx-boundary (s0 (s1) (s2 1 2)))) + (visit . #s(stx-boundary (s0 1 2))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 s1 1 2)) . #s(stx-boundary (s1 1 2))) + (enter-macro + #s(stx-boundary (s0 s1 1 2)) + . + #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)) + . + #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 . #s(stx-boundary (s0 s1 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)) + (tag2 #s(stx-boundary (s0 . 1)) . #s(stx-boundary 1)) + (enter-prim . #s(stx-boundary (s0 . 1))) + (prim-#%datum . #s(stx-boundary (s0 . 1))) + (exit-prim/return . #s(stx-boundary (s0 1))) + (next . #f) + (visit . #s(stx-boundary 2)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . 2)) . #s(stx-boundary 2)) + (enter-prim . #s(stx-boundary (s0 . 2))) + (prim-#%datum . #s(stx-boundary (s0 . 2))) + (exit-prim/return . #s(stx-boundary (s0 2))) + (exit-prim/return . #s(stx-boundary (s0 s1 (s2 1) (s2 2)))) + (exit-prim/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 . #s(stx-boundary (s0 (s1 () (s1 () s2))))) + (visit . #s(stx-boundary (s0 () (s0 () s1)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 () (s0 () s1)))) + (prim-let-values . #s(stx-boundary (s0 () (s0 () s1)))) + (letX-renames () () () () #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) + (visit . #s(stx-boundary (s0 () s1))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 () s1))) + (block->list . #f) + (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 . #s(stx-boundary (s0 () s1))) + (letX-renames () () () () #s(stx-boundary s0)) + (enter-block #s(stx-boundary s0)) + (block-renames (#s(stx-boundary s0)) #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary s0)) + (block->list . #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/return . #s(stx-boundary (s0 () s1))) + (exit-list #s(stx-boundary (s0 () s1))) + (exit-prim/return . #s(stx-boundary (s0 () (s0 () s1)))) + (exit-prim/return . #s(stx-boundary (s0 (s1 () (s1 () s2))))) + (exit-prim/return + . + #s(stx-boundary + (s0 (s1 (s2) (s3 s4 (s5 1) (s5 2))) (s6 (s7 () (s7 () s2)))))))) + ('quoted + . + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 s2)))) + (visit . #s(stx-boundary (s0 (s1 s2)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #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 . #s(stx-boundary (s0 (s1 s2)))) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-quote . #f) + (exit-prim/return . #s(stx-boundary (s0 s1))) + (exit-prim/return . #s(stx-boundary (s0 (s1 s2)))))) + ((letrec-values (((x) __y) ((y z) __w)) __x) + . + ((start-top . #f) + (visit . #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)) + (stop/return . #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 + . + #s(stx-boundary (s0 (s1 (((s2) s3) ((s4 s5) s6)) s7)))) + (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 + . + #s(stx-boundary (s0 (((s1) s2) ((s3 s4) s5)) s6))) + (letX-renames + () + () + ((#s(stx-boundary s0)) (#s(stx-boundary s1) #s(stx-boundary s2))) + (#s(stx-boundary s3) #s(stx-boundary s4)) + #s(stx-boundary s5)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . s1)) . #s(stx-boundary s1)) + (enter-prim . #s(stx-boundary (s0 . s1))) + (prim-#%top . #s(stx-boundary (s0 . s1))) + (exit-prim/return . #s(stx-boundary (s0 . s1))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . s1)) . #s(stx-boundary s1)) + (enter-prim . #s(stx-boundary (s0 . s1))) + (prim-#%top . #s(stx-boundary (s0 . s1))) + (exit-prim/return . #s(stx-boundary (s0 . s1))) + (enter-block #s(stx-boundary s0)) + (block-renames (#s(stx-boundary s0)) #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary s0)) + (block->list . #f) + (enter-list #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . s1)) . #s(stx-boundary s1)) + (enter-prim . #s(stx-boundary (s0 . s1))) + (prim-#%top . #s(stx-boundary (s0 . s1))) + (exit-prim/return . #s(stx-boundary (s0 . s1))) + (exit-list #s(stx-boundary (s0 . s1))) + (exit-prim/return + . + #s(stx-boundary + (s0 (((s1) (s2 . s3)) ((s4 s5) (s2 . s6))) (s2 . s7)))) + (exit-prim/return + . + #s(stx-boundary + (s0 (s1 (((s2) (s3 . s4)) ((s5 s6) (s3 . s7))) (s3 . s8))))))) + ((let () + (define-syntax (ok stx) (quote-syntax 8)) + (define-syntax (second stx) (quote-syntax (ok 6))) + (second 5)) + . + ((start-top . #f) + (visit + . + #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)) + (stop/return + . + #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 + . + #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 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5)))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary + (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5))) + . + #s(stx-boundary + (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5)))) + (macro-pre-x + . + #s(stx-boundary + (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5)))) + (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)))) + (exit-macro + #s(stx-boundary + (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5))) + . + #s(stx-boundary + (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5)))) + (visit + . + #s(stx-boundary + (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5)))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary + (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5)))) + (prim-let-values + . + #s(stx-boundary + (s0 () (s1 (s2 s3) (s4 8)) (s1 (s5 s3) (s4 (s2 6))) (s5 5)))) + (letX-renames + () + () + () + () + #s(stx-boundary (s0 (s1 s2) (s3 8))) + #s(stx-boundary (s0 (s4 s2) (s3 (s1 6)))) + #s(stx-boundary (s4 5))) + (enter-block + #s(stx-boundary (s0 (s1 s2) (s3 8))) + #s(stx-boundary (s0 (s4 s2) (s3 (s1 6)))) + #s(stx-boundary (s4 5))) + (block-renames + (#s(stx-boundary (s0 (s1 s2) (s3 8))) + #s(stx-boundary (s0 (s4 s2) (s3 (s1 6)))) + #s(stx-boundary (s4 5))) + #s(stx-boundary (s0 (s1 s2) (s3 8))) + #s(stx-boundary (s0 (s4 s2) (s3 (s1 6)))) + #s(stx-boundary (s4 5))) + (next . #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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8)))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (prim-define-syntaxes . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (rename-one (#s(stx-boundary s0)) #s(stx-boundary (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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 8))) + . + #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 . #s(stx-boundary (s0 (s1) (s2 8)))) + (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) + (visit . #s(stx-boundary (s0 8))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 8))) + (block->list . #f) + (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 . #s(stx-boundary (s0 8))) + (exit-prim/return . #s(stx-boundary (s0 8))) + (exit-list #s(stx-boundary (s0 8))) + (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 8)))) + (next . #f) + (exit-bind . #f) + (next . #f) + (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)))) + . + #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))))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6))))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) + (prim-define-syntaxes + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 6)))))) + (rename-one + (#s(stx-boundary s0)) + #s(stx-boundary (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)))) + . + #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))))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3 6)))) + . + #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 . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) + (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) + (visit . #s(stx-boundary (s0 (s1 6)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1 6)))) + (block->list . #f) + (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 . #s(stx-boundary (s0 (s1 6)))) + (exit-prim/return . #s(stx-boundary (s0 (s1 6)))) + (exit-list #s(stx-boundary (s0 (s1 6)))) + (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 (s3 6))))) + (next . #f) + (exit-bind . #f) + (next . #f) + (visit . #s(stx-boundary (s0 5))) + (resolve . #s(stx-boundary s0)) + (enter-macro #s(stx-boundary (s0 5)) . #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)) . #s(stx-boundary (s0 6))) + (visit . #s(stx-boundary (s0 6))) + (resolve . #s(stx-boundary s0)) + (enter-macro #s(stx-boundary (s0 6)) . #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) . #s(stx-boundary 8)) + (visit . #s(stx-boundary 8)) + (stop/return . #s(stx-boundary 8)) + (block->letrec () () #s(stx-boundary 8)) + (enter-list #s(stx-boundary 8)) + (next . #f) + (visit . #s(stx-boundary 8)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . 8)) . #s(stx-boundary 8)) + (enter-prim . #s(stx-boundary (s0 . 8))) + (prim-#%datum . #s(stx-boundary (s0 . 8))) + (exit-prim/return . #s(stx-boundary (s0 8))) + (exit-list #s(stx-boundary (s0 8))) + (finish-block #s(stx-boundary (s0 () (s1 8)))) + (exit-prim/return . #s(stx-boundary (s0 () (s0 () (s1 8))))) + (exit-prim/return . #s(stx-boundary (s0 (s1 () (s1 () (s2 8)))))))) + ((let () + (define-syntax (ok stx) + (define-values + (exp opaque) + (syntax-local-expand-expression (cadr (syntax-e stx)))) + opaque) + (#%expression (ok 9))) + . + ((start-top . #f) + (visit + . + #s(stx-boundary + (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 s7) (s8 (s9 (s10 s4)))) s7) + (s0 (s3 9)))))) + (resolve . #s(stx-boundary s0)) + (stop/return + . + #s(stx-boundary + (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 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 s7) (s8 (s9 (s10 s4)))) s7) + (s0 (s3 9)))))) + (prim-#%expression + . + #s(stx-boundary + (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) (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) (s7 (s8 (s9 s3)))) s6) + (s10 (s2 9)))) + . + #s(stx-boundary + (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) (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 + (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)))) + . + #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 + . + #s(stx-boundary + (s0 + () + (s1 (s2 s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6) + (s10 (s2 9))))) + (letX-renames + () + () + () + () + #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5)) + #s(stx-boundary (s9 (s1 9)))) + (enter-block + #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5)) + #s(stx-boundary (s9 (s1 9)))) + (block-renames + (#s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5)) + #s(stx-boundary (s9 (s1 9)))) + #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5)) + #s(stx-boundary (s9 (s1 9)))) + (next . #f) + (visit + . + #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 (s7 (s8 s2)))) s5)) + . + #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))) + . + #s(stx-boundary + (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6)))) + (visit + . + #s(stx-boundary + (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6)))) + (resolve . #s(stx-boundary s0)) + (stop/return + . + #s(stx-boundary + (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6)))) + (prim-define-syntaxes + . + #s(stx-boundary + (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 (s8 (s9 s3)))) s6)))) + (rename-one + (#s(stx-boundary s0)) + #s(stx-boundary (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)) + . + #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)) + . + #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 + . + #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 (s6 (s7 s1)))) s4))) + (lambda-renames + #s(stx-boundary (s0)) + #s(stx-boundary (s1 (s2 s3) (s4 (s5 (s6 s0))))) + #s(stx-boundary s3)) + (enter-block + #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s6))))) + #s(stx-boundary s2)) + (block-renames + (#s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s6))))) #s(stx-boundary s2)) + #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s6))))) + #s(stx-boundary s2)) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s6)))))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s6)))))) + (prim-define-values . #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s6)))))) + (rename-one + (#s(stx-boundary s0) #s(stx-boundary s1)) + #s(stx-boundary (s2 (s3 (s4 s5))))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary s0)) + (block->letrec + ((#s(stx-boundary s0) #s(stx-boundary s1))) + (#s(stx-boundary (s2 (s3 (s4 s5))))) + #s(stx-boundary s1)) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 (s2 s3))))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag2 + #s(stx-boundary (s0 s1 (s2 (s3 s4)))) + . + #s(stx-boundary (s1 (s2 (s3 s4))))) + (enter-macro + #s(stx-boundary (s0 s1 (s2 (s3 s4)))) + . + #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)))) + . + #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 . #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)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 s1 (s2 s3))) . #s(stx-boundary (s1 (s2 s3)))) + (enter-macro + #s(stx-boundary (s0 s1 (s2 s3))) + . + #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))) + . + #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 . #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)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 s1 s2)) . #s(stx-boundary (s1 s2))) + (enter-macro #s(stx-boundary (s0 s1 s2)) . #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)) . #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 . #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)) + (exit-prim/return . #s(stx-boundary (s0 s1 s2))) + (exit-prim/return . #s(stx-boundary (s0 s1 (s0 s2 s3)))) + (exit-prim/return . #s(stx-boundary (s0 s1 (s0 s2 (s0 s3 s4))))) + (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)) + (finish-block + #s(stx-boundary (s0 (((s1 s2) (s3 s4 (s3 s5 (s3 s6 s7))))) s2))) + (exit-prim/return + . + #s(stx-boundary + (s0 (s1) (s2 (((s3 s4) (s5 s6 (s5 s7 (s5 s8 s1))))) s4)))) + (next . #f) + (exit-bind . #f) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 9)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1 9)))) + (block->letrec () () #s(stx-boundary (s0 (s1 9)))) + (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 . #s(stx-boundary (s0 (s1 9)))) + (visit . #s(stx-boundary (s0 9))) + (resolve . #s(stx-boundary s0)) + (enter-macro #s(stx-boundary (s0 9)) . #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)) + (tag2 #s(stx-boundary (s0 . 9)) . #s(stx-boundary 9)) + (enter-prim . #s(stx-boundary (s0 . 9))) + (prim-#%datum . #s(stx-boundary (s0 . 9))) + (exit-prim/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) . #s(stx-boundary #:opaque)) + (visit . #s(stx-boundary #:opaque)) + (opaque-expr . #s(stx-boundary (s0 9))) + (tag . #s(stx-boundary (s0 9))) + (exit-prim/return . #s(stx-boundary (s0 9))) + (exit-list #s(stx-boundary (s0 9))) + (finish-block #s(stx-boundary (s0 () (s1 9)))) + (exit-prim/return . #s(stx-boundary (s0 () (s0 () (s1 9))))) + (exit-prim/return . #s(stx-boundary (s0 (s1 () (s1 () (s2 9)))))))) + ((begin 1 __x (+ 3 4)) + . + ((start-top . #f) + (visit . #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)) + (stop/return . #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 . #s(stx-boundary (s0 (s1 1 s2 (s3 3 4))))) + (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 . #s(stx-boundary (s0 1 s1 (s2 3 4)))) + (next . #f) + (visit . #s(stx-boundary 1)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . 1)) . #s(stx-boundary 1)) + (enter-prim . #s(stx-boundary (s0 . 1))) + (prim-#%datum . #s(stx-boundary (s0 . 1))) + (exit-prim/return . #s(stx-boundary (s0 1))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . s1)) . #s(stx-boundary s1)) + (enter-prim . #s(stx-boundary (s0 . s1))) + (prim-#%top . #s(stx-boundary (s0 . s1))) + (exit-prim/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)) + (tag2 #s(stx-boundary (s0 s1 3 4)) . #s(stx-boundary (s1 3 4))) + (enter-macro + #s(stx-boundary (s0 s1 3 4)) + . + #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)) + . + #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 . #s(stx-boundary (s0 s1 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)) + (tag2 #s(stx-boundary (s0 . 3)) . #s(stx-boundary 3)) + (enter-prim . #s(stx-boundary (s0 . 3))) + (prim-#%datum . #s(stx-boundary (s0 . 3))) + (exit-prim/return . #s(stx-boundary (s0 3))) + (next . #f) + (visit . #s(stx-boundary 4)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . 4)) . #s(stx-boundary 4)) + (enter-prim . #s(stx-boundary (s0 . 4))) + (prim-#%datum . #s(stx-boundary (s0 . 4))) + (exit-prim/return . #s(stx-boundary (s0 4))) + (exit-prim/return . #s(stx-boundary (s0 s1 (s2 3) (s2 4)))) + (exit-prim/return + . + #s(stx-boundary (s0 (s1 1) (s2 . s3) (s4 s5 (s1 3) (s1 4))))) + (exit-prim/return + . + #s(stx-boundary (s0 (s1 (s2 1) (s3 . s4) (s5 s6 (s2 3) (s2 4)))))))) + ((let-values (((x) __y) ((y z) __w)) __x) + . + ((start-top . #f) + (visit . #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)) + (stop/return . #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 + . + #s(stx-boundary (s0 (s1 (((s2) s3) ((s4 s5) s6)) s7)))) + (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 . #s(stx-boundary (s0 (((s1) s2) ((s3 s4) s5)) s6))) + (letX-renames + () + () + ((#s(stx-boundary s0)) (#s(stx-boundary s1) #s(stx-boundary s2))) + (#s(stx-boundary s3) #s(stx-boundary s4)) + #s(stx-boundary s5)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . s1)) . #s(stx-boundary s1)) + (enter-prim . #s(stx-boundary (s0 . s1))) + (prim-#%top . #s(stx-boundary (s0 . s1))) + (exit-prim/return . #s(stx-boundary (s0 . s1))) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . s1)) . #s(stx-boundary s1)) + (enter-prim . #s(stx-boundary (s0 . s1))) + (prim-#%top . #s(stx-boundary (s0 . s1))) + (exit-prim/return . #s(stx-boundary (s0 . s1))) + (enter-block #s(stx-boundary s0)) + (block-renames (#s(stx-boundary s0)) #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary s0)) + (block->list . #f) + (enter-list #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . s1)) . #s(stx-boundary s1)) + (enter-prim . #s(stx-boundary (s0 . s1))) + (prim-#%top . #s(stx-boundary (s0 . s1))) + (exit-prim/return . #s(stx-boundary (s0 . s1))) + (exit-list #s(stx-boundary (s0 . s1))) + (exit-prim/return + . + #s(stx-boundary + (s0 (((s1) (s2 . s3)) ((s4 s5) (s2 . s6))) (s2 . s7)))) + (exit-prim/return + . + #s(stx-boundary + (s0 (s1 (((s2) (s3 . s4)) ((s5 s6) (s3 . s7))) (s3 . s8))))))) + ((quote-syntax (stx-quoted)) + . + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 (s2))))) + (visit . #s(stx-boundary (s0 (s1 (s2))))) + (resolve . #s(stx-boundary s0)) + (stop/return . #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 . #s(stx-boundary (s0 (s1 (s2))))) + (visit . #s(stx-boundary (s0 (s1)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1)))) + (prim-quote-syntax . #s(stx-boundary (s0 (s1)))) + (exit-prim/return . #s(stx-boundary (s0 (s1)))) + (exit-prim/return . #s(stx-boundary (s0 (s1 (s2))))))) + ((set! __x 99) + . + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 s2 99)))) + (visit . #s(stx-boundary (s0 (s1 s2 99)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #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 . #s(stx-boundary (s0 (s1 s2 99)))) + (visit . #s(stx-boundary (s0 s1 99))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1 99))) + (prim-set! . #s(stx-boundary (s0 s1 99))) + (resolve . #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary 99)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . 99)) . #s(stx-boundary 99)) + (enter-prim . #s(stx-boundary (s0 . 99))) + (prim-#%datum . #s(stx-boundary (s0 . 99))) + (exit-prim/return . #s(stx-boundary (s0 99))) + (exit-prim/return . #s(stx-boundary (s0 s1 (s2 99)))) + (exit-prim/return . #s(stx-boundary (s0 (s1 s2 (s3 99))))))) + ((let () + (define (first z) z) + (define (ok x) (second x)) + (printf "extra expression\n") + (define (second y) 8) + (ok (first 5))) + . + ((start-top . #f) + (visit + . + #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)) + (stop/return + . + #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 + . + #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) s3) + (s1 (s4 s5) (s6 s5)) + (s7 #:opaque) + (s1 (s6 s8) 8) + (s4 (s2 5))))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary + (s0 + () + (s1 (s2 s3) s3) + (s1 (s4 s5) (s6 s5)) + (s7 #:opaque) + (s1 (s6 s8) 8) + (s4 (s2 5)))) + . + #s(stx-boundary + (s0 + () + (s1 (s2 s3) s3) + (s1 (s4 s5) (s6 s5)) + (s7 #:opaque) + (s1 (s6 s8) 8) + (s4 (s2 5))))) + (macro-pre-x + . + #s(stx-boundary + (s0 + () + (s1 (s2 s3) s3) + (s1 (s4 s5) (s6 s5)) + (s7 #:opaque) + (s1 (s6 s8) 8) + (s4 (s2 5))))) + (macro-post-x + #s(stx-boundary + (s0 + () + (s1 (s2 s3) s3) + (s1 (s4 s5) (s6 s5)) + (s7 #:opaque) + (s1 (s6 s8) 8) + (s4 (s2 5)))) + . + #s(stx-boundary + (s9 + () + (s1 (s2 s3) s3) + (s1 (s4 s5) (s6 s5)) + (s7 #:opaque) + (s1 (s6 s8) 8) + (s4 (s2 5))))) + (exit-macro + #s(stx-boundary + (s0 + () + (s1 (s2 s3) s3) + (s1 (s4 s5) (s6 s5)) + (s7 #:opaque) + (s1 (s6 s8) 8) + (s4 (s2 5)))) + . + #s(stx-boundary + (s0 + () + (s1 (s2 s3) s3) + (s1 (s4 s5) (s6 s5)) + (s7 #:opaque) + (s1 (s6 s8) 8) + (s4 (s2 5))))) + (visit + . + #s(stx-boundary + (s0 + () + (s1 (s2 s3) s3) + (s1 (s4 s5) (s6 s5)) + (s7 #:opaque) + (s1 (s6 s8) 8) + (s4 (s2 5))))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary + (s0 + () + (s1 (s2 s3) s3) + (s1 (s4 s5) (s6 s5)) + (s7 #:opaque) + (s1 (s6 s8) 8) + (s4 (s2 5))))) + (prim-let-values + . + #s(stx-boundary + (s0 + () + (s1 (s2 s3) s3) + (s1 (s4 s5) (s6 s5)) + (s7 #:opaque) + (s1 (s6 s8) 8) + (s4 (s2 5))))) + (letX-renames + () + () + () + () + #s(stx-boundary (s0 (s1 s2) s2)) + #s(stx-boundary (s0 (s3 s4) (s5 s4))) + #s(stx-boundary (s6 #:opaque)) + #s(stx-boundary (s0 (s5 s7) 8)) + #s(stx-boundary (s3 (s1 5)))) + (enter-block + #s(stx-boundary (s0 (s1 s2) s2)) + #s(stx-boundary (s0 (s3 s4) (s5 s4))) + #s(stx-boundary (s6 #:opaque)) + #s(stx-boundary (s0 (s5 s7) 8)) + #s(stx-boundary (s3 (s1 5)))) + (block-renames + (#s(stx-boundary (s0 (s1 s2) s2)) + #s(stx-boundary (s0 (s3 s4) (s5 s4))) + #s(stx-boundary (s6 #:opaque)) + #s(stx-boundary (s0 (s5 s7) 8)) + #s(stx-boundary (s3 (s1 5)))) + #s(stx-boundary (s0 (s1 s2) s2)) + #s(stx-boundary (s0 (s3 s4) (s5 s4))) + #s(stx-boundary (s6 #:opaque)) + #s(stx-boundary (s0 (s5 s7) 8)) + #s(stx-boundary (s3 (s1 5)))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 s2) s2))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary (s0 (s1 s2) s2)) + . + #s(stx-boundary (s0 (s1 s2) s2))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) s2))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2) s2)) + . + #s(stx-boundary (s1 (s2) s2))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 (s3) s3))) + . + #s(stx-boundary (s0 (s1 s3) s3))) + (exit-macro + #s(stx-boundary (s0 s1 (s2 (s3) s3))) + . + #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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) s3))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) s3)))) + (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) s2))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary (s0 (s1 s2) (s3 s2))) + . + #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2) (s3 s2))) + . + #s(stx-boundary (s1 (s2) (s3 s2)))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3)))) + . + #s(stx-boundary (s0 (s1 s3) (s4 s3)))) + (exit-macro + #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3)))) + . + #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)))) + . + #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))))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3)))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) (s3 s2)))) + (next . #f) + (visit . #s(stx-boundary (s0 #:opaque))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 #:opaque))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 s2) 8))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary (s0 (s1 s2) 8)) + . + #s(stx-boundary (s0 (s1 s2) 8))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) 8))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2) 8)) + . + #s(stx-boundary (s1 (s2) 8))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 (s3) 8))) + . + #s(stx-boundary (s0 (s1 s3) 8))) + (exit-macro + #s(stx-boundary (s0 s1 (s2 (s3) 8))) + . + #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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) 8))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) 8))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 5)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1 5)))) + (block->letrec + ((#s(stx-boundary s0)) (#s(stx-boundary s1)) () (#s(stx-boundary s2))) + (#s(stx-boundary (s3 (s4) s4)) + #s(stx-boundary (s3 (s5) (s2 s5))) + #s(stx-boundary (s6 (s7 #:opaque) (s8))) + #s(stx-boundary (s3 (s9) 8))) + #s(stx-boundary (s1 (s0 5)))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1) s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 (s1) s1))) + (prim-lambda . #s(stx-boundary (s0 (s1) s1))) + (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) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary s0)) + (block->list . #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/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 . #s(stx-boundary (s0 (s1) (s2 s1)))) + (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) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 s1))) + (block->list . #f) + (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)) + (tag2 #s(stx-boundary (s0 s1 s2)) . #s(stx-boundary (s1 s2))) + (enter-macro #s(stx-boundary (s0 s1 s2)) . #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)) . #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 . #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)) + (exit-prim/return . #s(stx-boundary (s0 s1 s2))) + (exit-list #s(stx-boundary (s0 s1 s2))) + (exit-prim/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 . #s(stx-boundary (s0 (s1 #:opaque) (s2)))) + (next . #f) + (visit . #s(stx-boundary (s0 #:opaque))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag2 + #s(stx-boundary (s0 s1 #:opaque)) + . + #s(stx-boundary (s1 #:opaque))) + (enter-macro + #s(stx-boundary (s0 s1 #:opaque)) + . + #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))) + (exit-macro + #s(stx-boundary (s0 s1 #:opaque)) + . + #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 . #s(stx-boundary (s0 s1 #: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)) + (tag2 #s(stx-boundary (s0 . #:opaque)) . #s(stx-boundary #:opaque)) + (enter-prim . #s(stx-boundary (s0 . #:opaque))) + (prim-#%datum . #s(stx-boundary (s0 . #:opaque))) + (exit-prim/return . #s(stx-boundary (s0 #:opaque))) + (exit-prim/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)) + (tag2 #s(stx-boundary (s0 s1)) . #s(stx-boundary (s1))) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-#%app . #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-prim/return . #s(stx-boundary (s0 s1))) + (exit-prim/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 . #s(stx-boundary (s0 (s1) 8))) + (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) + (visit . #s(stx-boundary 8)) + (stop/return . #s(stx-boundary 8)) + (block->list . #f) + (enter-list #s(stx-boundary 8)) + (next . #f) + (visit . #s(stx-boundary 8)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . 8)) . #s(stx-boundary 8)) + (enter-prim . #s(stx-boundary (s0 . 8))) + (prim-#%datum . #s(stx-boundary (s0 . 8))) + (exit-prim/return . #s(stx-boundary (s0 8))) + (exit-list #s(stx-boundary (s0 8))) + (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 8)))) + (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)) + (tag2 #s(stx-boundary (s0 s1 (s2 5))) . #s(stx-boundary (s1 (s2 5)))) + (enter-macro + #s(stx-boundary (s0 s1 (s2 5))) + . + #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))) + . + #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 . #s(stx-boundary (s0 s1 (s2 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)) + (tag2 #s(stx-boundary (s0 s1 5)) . #s(stx-boundary (s1 5))) + (enter-macro #s(stx-boundary (s0 s1 5)) . #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)) . #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 . #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 5)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . 5)) . #s(stx-boundary 5)) + (enter-prim . #s(stx-boundary (s0 . 5))) + (prim-#%datum . #s(stx-boundary (s0 . 5))) + (exit-prim/return . #s(stx-boundary (s0 5))) + (exit-prim/return . #s(stx-boundary (s0 s1 (s2 5)))) + (exit-prim/return . #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) + (exit-list #s(stx-boundary (s0 s1 (s0 s2 (s3 5))))) + (finish-block + #s(stx-boundary + (s0 + (((s1) (s2 (s3) s3))) + (s4 + (((s5) (s2 (s6) (s7 s8 s6))) + (() (s9 (s7 s10 (s11 #:opaque)) (s7 s12))) + ((s8) (s2 (s13) (s11 8)))) + (s7 s5 (s7 s1 (s11 5))))))) + (exit-prim/return + . + #s(stx-boundary + (s0 + () + (s0 + (((s1) (s2 (s3) s3))) + (s4 + (((s5) (s2 (s6) (s7 s8 s6))) + (() (s9 (s7 s10 (s11 #:opaque)) (s7 s12))) + ((s8) (s2 (s13) (s11 8)))) + (s7 s5 (s7 s1 (s11 5)))))))) + (exit-prim/return + . + #s(stx-boundary + (s0 + (s1 + () + (s1 + (((s2) (s3 (s4) s4))) + (s5 + (((s6) (s3 (s7) (s8 s9 s7))) + (() (s10 (s8 s11 (s12 #:opaque)) (s8 s13))) + ((s9) (s3 (s14) (s12 8)))) + (s8 s6 (s8 s2 (s12 5))))))))))) + ((module m racket/base + (define-syntax (ok stx) (quote-syntax 8)) + (ok) + (list (ok) (ok))) + . + ((start-top . #f) + (visit + . + #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)) + (stop/return + . + #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 + . + #s(stx-boundary (s0 s1 s2 (s3 (s4 s5) (s6 8)) (s4) (s7 (s4) (s4))))) + (prepare-env . #f) + (rename-one + #s(stx-boundary (s0 (s1 s2) (s3 8))) + #s(stx-boundary (s1)) + #s(stx-boundary (s4 (s1) (s1)))) + (tag . #s(stx-boundary (s0 (s1 (s2 s3) (s4 8)) (s2) (s5 (s2) (s2))))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2 (s3 s4) (s5 8)) (s3) (s6 (s3) (s3)))) + . + #s(stx-boundary (s1 (s2 (s3 s4) (s5 8)) (s3) (s6 (s3) (s3))))) + (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)))) + . + #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)) + (s8 (s9 s10) (s11 8)) + (s9) + (s12 (s9) (s9)))) + . + #s(stx-boundary (s13 (s8 (s9 s10) (s11 8)) (s9) (s12 (s9) (s9))))) + (exit-macro + #s(stx-boundary + (s0 + (s1 s2 (s3 s4) (s5 s6) (s7 #f)) + (s8 (s9 s10) (s11 8)) + (s9) + (s12 (s9) (s9)))) + . + #s(stx-boundary + (s0 + (s1 s2 (s3 s4) (s5 s6) (s7 #f)) + (s8 (s9 s10) (s11 8)) + (s9) + (s12 (s9) (s9))))) + (visit + . + #s(stx-boundary + (s0 + (s1 s2 (s3 s4) (s5 s6) (s7 #f)) + (s8 (s9 s10) (s11 8)) + (s9) + (s12 (s9) (s9))))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary + (s0 + (s1 s2 (s3 s4) (s5 s6) (s7 #f)) + (s8 (s9 s10) (s11 8)) + (s9) + (s12 (s9) (s9)))) + . + #s(stx-boundary + (s0 + (s1 s2 (s3 s4) (s5 s6) (s7 #f)) + (s8 (s9 s10) (s11 8)) + (s9) + (s12 (s9) (s9))))) + (macro-pre-x + . + #s(stx-boundary + (s0 + (s1 s2 (s3 s4) (s5 s6) (s7 #f)) + (s8 (s9 s10) (s11 8)) + (s9) + (s12 (s9) (s9))))) + (macro-post-x + #s(stx-boundary + (s0 + (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) + (s1 s2 (s10 (s11 s12) (s13 8))) + (s1 s2 (s11)) + (s1 s2 (s14 (s11) (s11))))) + . + #s(stx-boundary + (s15 + (s3 s4 (s5 s6) (s7 s8) (s9 #f)) + (s10 (s11 s12) (s13 8)) + (s11) + (s14 (s11) (s11))))) + (exit-macro + #s(stx-boundary + (s0 + (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) + (s1 s2 (s10 (s11 s12) (s13 8))) + (s1 s2 (s11)) + (s1 s2 (s14 (s11) (s11))))) + . + #s(stx-boundary + (s0 + (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) + (s1 s2 (s10 (s11 s12) (s13 8))) + (s1 s2 (s11)) + (s1 s2 (s14 (s11) (s11)))))) + (visit + . + #s(stx-boundary + (s0 + (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) + (s1 s2 (s10 (s11 s12) (s13 8))) + (s1 s2 (s11)) + (s1 s2 (s14 (s11) (s11)))))) + (resolve . #s(stx-boundary s0)) + (stop/return + . + #s(stx-boundary + (s0 + (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) + (s1 s2 (s10 (s11 s12) (s13 8))) + (s1 s2 (s11)) + (s1 s2 (s14 (s11) (s11)))))) + (track-syntax + s0 + #s(stx-boundary + (s1 + (s2 s3 (s4 s5 (s6 s7) (s8 s9) (s10 #f))) + (s2 s3 (s11 (s12 s13) (s14 8))) + (s2 s3 (s12)) + (s2 s3 (s15 (s12) (s12))))) + . + #s(stx-boundary + (s1 + (s2 s3 (s4 s5 (s6 s7) (s8 s9) (s10 #f))) + (s2 s3 (s11 (s12 s13) (s14 8))) + (s2 s3 (s12)) + (s2 s3 (s15 (s12) (s12)))))) + (next . #f) + (visit + . + #s(stx-boundary + (s0 + (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) + (s1 s2 (s10 (s11 s12) (s13 8))) + (s1 s2 (s11)) + (s1 s2 (s14 (s11) (s11)))))) + (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 8))) + (s1 s2 (s11)) + (s1 s2 (s14 (s11) (s11)))))) + (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 8))) + (s1 s2 (s11)) + (s1 s2 (s14 (s11) (s11)))))) + (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)))) + . + #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)) + (stop/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))))) + (exit-macro + #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)))) + . + #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)) + (stop/return . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (module-pass1-case + . + #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (prim-begin . #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))))) + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (module-pass1-case . #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-submodule . #f) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-module . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prepare-env . #f) + (rename-one #s(stx-boundary (s0 s1)) #s(stx-boundary (s2 #f))) + (tag . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2 s3) (s4 #f))) + . + #s(stx-boundary (s1 (s2 s3) (s4 #f)))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2 s3) (s4 #f))) + . + #s(stx-boundary (s1 (s2 s3) (s4 #f)))) + (next . #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)) + (stop/return . #s(stx-boundary (s0 s1))) + (module-pass1-case . #s(stx-boundary (s0 s1))) + (prim-require . #s(stx-boundary (s0 s1))) + (exit-case . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary (s0 #f))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 #f))) + (module-pass1-case . #s(stx-boundary (s0 #f))) + (prim-stop . #f) + (next-group . #f) + (next . #f) + (next . #f) + (visit . #s(stx-boundary (s0 #f))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 s1 #f)) . #s(stx-boundary (s1 #f))) + (enter-prim . #s(stx-boundary (s0 s1 #f))) + (prim-#%app . #s(stx-boundary (s0 s1 #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)) + (tag2 #s(stx-boundary (s0 . #f)) . #s(stx-boundary #f)) + (enter-prim . #s(stx-boundary (s0 . #f))) + (prim-#%datum . #s(stx-boundary (s0 . #f))) + (exit-prim/return . #s(stx-boundary (s0 #f))) + (exit-prim/return . #s(stx-boundary (s0 s1 (s2 #f)))) + (next-group . #f) + (next-group . #f) + (next . #f) + (next . #f) + (next-group . #f) + (next . #f) + (next . #f) + (exit-prim/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)))))) + (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)))) + . + #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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8)))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (resolve . #s(stx-boundary s0)) + (stop/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))))) + (exit-macro + #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 8))))) + . + #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)) + (stop/return . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 8)))))) + (module-pass1-case . #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 8)))))) + (prim-begin . #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))))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (module-pass1-case . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (prim-define-syntaxes . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 8))) + . + #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 . #s(stx-boundary (s0 (s1) (s2 8)))) + (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) + (visit . #s(stx-boundary (s0 8))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 8))) + (block->list . #f) + (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)))) + ((#%variable-reference __z) + . + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 s2)))) + (visit . #s(stx-boundary (s0 (s1 s2)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #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 . #s(stx-boundary (s0 (s1 s2)))) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-#%variable-reference . #s(stx-boundary (s0 s1))) + (exit-prim/return . #s(stx-boundary (s0 s1))) + (exit-prim/return . #s(stx-boundary (s0 (s1 s2)))))) + ((module m racket/base (require racket/list) foldl) + . + ((start-top . #f) + (visit . #s(stx-boundary (s0 s1 s2 (s3 s4) s5))) + (visit . #s(stx-boundary (s0 s1 s2 (s3 s4) s5))) + (resolve . #s(stx-boundary s0)) + (stop/return . #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 . #s(stx-boundary (s0 s1 s2 (s3 s4) s5))) + (prepare-env . #f) + (rename-one #s(stx-boundary (s0 s1)) #s(stx-boundary s2)) + (tag . #s(stx-boundary (s0 (s1 s2) s3))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2 s3) s4)) + . + #s(stx-boundary (s1 (s2 s3) s4))) + (visit . #s(stx-boundary (s0 (s1 s2) s3))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary (s0 (s1 s2) s3)) + . + #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))) + (exit-macro + #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s8 s9) s10)) + . + #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)) + . + #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))) + (s1 s2 (s10 s11)) + (s1 s2 s12))) + . + #s(stx-boundary (s13 (s3 s4 (s5 s6) (s7 s8) (s9 #f)) (s10 s11) s12))) + (exit-macro + #s(stx-boundary + (s0 + (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) + (s1 s2 (s10 s11)) + (s1 s2 s12))) + . + #s(stx-boundary + (s0 + (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) + (s1 s2 (s10 s11)) + (s1 s2 s12)))) + (visit + . + #s(stx-boundary + (s0 + (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) + (s1 s2 (s10 s11)) + (s1 s2 s12)))) + (resolve . #s(stx-boundary s0)) + (stop/return + . + #s(stx-boundary + (s0 + (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) + (s1 s2 (s10 s11)) + (s1 s2 s12)))) + (track-syntax + s0 + #s(stx-boundary + (s1 + (s2 s3 (s4 s5 (s6 s7) (s8 s9) (s10 #f))) + (s2 s3 (s11 s12)) + (s2 s3 s13))) + . + #s(stx-boundary + (s1 + (s2 s3 (s4 s5 (s6 s7) (s8 s9) (s10 #f))) + (s2 s3 (s11 s12)) + (s2 s3 s13)))) + (next . #f) + (visit + . + #s(stx-boundary + (s0 + (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) + (s1 s2 (s10 s11)) + (s1 s2 s12)))) + (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)))) + (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)))) + (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)))) + . + #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)) + (stop/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))))) + (exit-macro + #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)))) + . + #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)) + (stop/return . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (module-pass1-case + . + #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (prim-begin . #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))) + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (module-pass1-case . #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-submodule . #f) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-module . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prepare-env . #f) + (rename-one #s(stx-boundary (s0 s1)) #s(stx-boundary (s2 #f))) + (tag . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2 s3) (s4 #f))) + . + #s(stx-boundary (s1 (s2 s3) (s4 #f)))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2 s3) (s4 #f))) + . + #s(stx-boundary (s1 (s2 s3) (s4 #f)))) + (next . #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)) + (stop/return . #s(stx-boundary (s0 s1))) + (module-pass1-case . #s(stx-boundary (s0 s1))) + (prim-require . #s(stx-boundary (s0 s1))) + (exit-case . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary (s0 #f))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 #f))) + (module-pass1-case . #s(stx-boundary (s0 #f))) + (prim-stop . #f) + (next-group . #f) + (next . #f) + (next . #f) + (visit . #s(stx-boundary (s0 #f))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 s1 #f)) . #s(stx-boundary (s1 #f))) + (enter-prim . #s(stx-boundary (s0 s1 #f))) + (prim-#%app . #s(stx-boundary (s0 s1 #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)) + (tag2 #s(stx-boundary (s0 . #f)) . #s(stx-boundary #f)) + (enter-prim . #s(stx-boundary (s0 . #f))) + (prim-#%datum . #s(stx-boundary (s0 . #f))) + (exit-prim/return . #s(stx-boundary (s0 #f))) + (exit-prim/return . #s(stx-boundary (s0 s1 (s2 #f)))) + (next-group . #f) + (next-group . #f) + (next . #f) + (next . #f) + (next-group . #f) + (next . #f) + (next . #f) + (exit-prim/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)))))) + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3)))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary (s0 s1 (s2 s3))) + . + #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)) . #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)) . #s(stx-boundary (s0 s1))) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (stop/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))) + . + #s(stx-boundary (s0 (s1 s2)))) + (visit . #s(stx-boundary (s0 (s1 s2)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1 s2)))) + (module-pass1-case . #s(stx-boundary (s0 (s1 s2)))) + (prim-begin . #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)) + (stop/return . #s(stx-boundary (s0 s1))) + (module-pass1-case . #s(stx-boundary (s0 s1))) + (prim-require . #s(stx-boundary (s0 s1))) + (exit-case . #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)) . #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))) + . + #s(stx-boundary (s0 (s1 s2)))) + (visit . #s(stx-boundary (s0 (s1 s2)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1 s2)))) + (module-pass1-case . #s(stx-boundary (s0 (s1 s2)))) + (prim-begin . #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)) . #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)) + . + #s(stx-boundary (s0 s1 (s2 () s3) s4))) + (visit . #s(stx-boundary (s0 s1 (s2 () s3) s4))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 s1 (s2 () s3) s4))) + (module-pass1-case . #s(stx-boundary (s0 s1 (s2 () s3) s4))) + (prim-stop . #f) + (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 . #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-lambda . #s(stx-boundary (s0 () s1))) + (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) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary s0)) + (block->list . #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/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-prim/return . #s(stx-boundary (s0 s1 (s2 () s3) s4))) + (next-group . #f) + (next-group . #f) + (next . #f) + (next . #f) + (next . #f) + (next-group . #f) + (next . #f) + (next . #f) + (next . #f) + (exit-prim/return + . + #s(stx-boundary + (s0 + (s1 s2 (s3 s4) (s0 (s5 s6) (s7 s8 (s3 #f)))) + (s5 s9) + (s7 s10 (s11 () s12) s13)))) + (rename-one + . + #s(stx-boundary + (s0 + s1 + s2 + (s3 + (s0 s4 (s5 s6) (s3 (s7 s8) (s9 s10 (s5 #f)))) + (s7 s11) + (s9 s12 (s13 () s14) s15))))) + (exit-prim/return + . + #s(stx-boundary + (s0 + s1 + s2 + (s3 + (s0 s4 (s5 s6) (s3 (s7 s8) (s9 s10 (s5 #f)))) + (s7 s11) + (s9 s12 (s13 () s14) s15))))))) + ((module m racket/base + (define-syntax (ok stx) + (syntax-local-lift-require 'racket/list #'foldl)) + (ok)) + . + ((start-top . #f) + (visit + . + #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)) + (stop/return + . + #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 + . + #s(stx-boundary (s0 s1 s2 (s3 (s4 s5) (s6 (s7 s8) (s9 s10))) (s4)))) + (prepare-env . #f) + (rename-one + #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7)))) + #s(stx-boundary (s1))) + (tag . #s(stx-boundary (s0 (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2 (s3 s4) (s5 (s6 s7) (s8 s9))) (s3))) + . + #s(stx-boundary (s1 (s2 (s3 s4) (s5 (s6 s7) (s8 s9))) (s3)))) + (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))) + . + #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)) + (s8 (s9 s10) (s11 (s3 s12) (s13 s14))) + (s9))) + . + #s(stx-boundary (s15 (s8 (s9 s10) (s11 (s3 s12) (s13 s14))) (s9)))) + (exit-macro + #s(stx-boundary + (s0 + (s1 s2 (s3 s4) (s5 s6) (s7 #f)) + (s8 (s9 s10) (s11 (s3 s12) (s13 s14))) + (s9))) + . + #s(stx-boundary + (s0 + (s1 s2 (s3 s4) (s5 s6) (s7 #f)) + (s8 (s9 s10) (s11 (s3 s12) (s13 s14))) + (s9)))) + (visit + . + #s(stx-boundary + (s0 + (s1 s2 (s3 s4) (s5 s6) (s7 #f)) + (s8 (s9 s10) (s11 (s3 s12) (s13 s14))) + (s9)))) + (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))) + . + #s(stx-boundary + (s0 + (s1 s2 (s3 s4) (s5 s6) (s7 #f)) + (s8 (s9 s10) (s11 (s3 s12) (s13 s14))) + (s9)))) + (macro-pre-x + . + #s(stx-boundary + (s0 + (s1 s2 (s3 s4) (s5 s6) (s7 #f)) + (s8 (s9 s10) (s11 (s3 s12) (s13 s14))) + (s9)))) + (macro-post-x + #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)))) + . + #s(stx-boundary + (s17 + (s3 s4 (s5 s6) (s7 s8) (s9 #f)) + (s10 (s11 s12) (s13 (s5 s14) (s15 s16))) + (s11)))) + (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)))) + . + #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))))) + (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))))) + (resolve . #s(stx-boundary s0)) + (stop/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))))) + (track-syntax + s0 + #s(stx-boundary + (s1 + (s2 s3 (s4 s5 (s6 s7) (s8 s9) (s10 #f))) + (s2 s3 (s11 (s12 s13) (s14 (s6 s15) (s16 s17)))) + (s2 s3 (s12)))) + . + #s(stx-boundary + (s1 + (s2 s3 (s4 s5 (s6 s7) (s8 s9) (s10 #f))) + (s2 s3 (s11 (s12 s13) (s14 (s6 s15) (s16 s17)))) + (s2 s3 (s12))))) + (next . #f) + (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))))) + (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))))) + (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))))) + (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)))) + . + #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)) + (stop/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))))) + (exit-macro + #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)))) + . + #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)) + (stop/return . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (module-pass1-case + . + #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (prim-begin . #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)))) + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (module-pass1-case . #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-submodule . #f) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-module . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prepare-env . #f) + (rename-one #s(stx-boundary (s0 s1)) #s(stx-boundary (s2 #f))) + (tag . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2 s3) (s4 #f))) + . + #s(stx-boundary (s1 (s2 s3) (s4 #f)))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2 s3) (s4 #f))) + . + #s(stx-boundary (s1 (s2 s3) (s4 #f)))) + (next . #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)) + (stop/return . #s(stx-boundary (s0 s1))) + (module-pass1-case . #s(stx-boundary (s0 s1))) + (prim-require . #s(stx-boundary (s0 s1))) + (exit-case . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary (s0 #f))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 #f))) + (module-pass1-case . #s(stx-boundary (s0 #f))) + (prim-stop . #f) + (next-group . #f) + (next . #f) + (next . #f) + (visit . #s(stx-boundary (s0 #f))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 s1 #f)) . #s(stx-boundary (s1 #f))) + (enter-prim . #s(stx-boundary (s0 s1 #f))) + (prim-#%app . #s(stx-boundary (s0 s1 #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)) + (tag2 #s(stx-boundary (s0 . #f)) . #s(stx-boundary #f)) + (enter-prim . #s(stx-boundary (s0 . #f))) + (prim-#%datum . #s(stx-boundary (s0 . #f))) + (exit-prim/return . #s(stx-boundary (s0 #f))) + (exit-prim/return . #s(stx-boundary (s0 s1 (s2 #f)))) + (next-group . #f) + (next-group . #f) + (next . #f) + (next . #f) + (next-group . #f) + (next . #f) + (next . #f) + (exit-prim/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)))))) + (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))))) + . + #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)))) + . + #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))))) + . + #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)) + (stop/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)))))) + (exit-macro + #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 (s6 s7) (s8 s9)))))) + . + #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)) + (stop/return + . + #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 (s6 s7) (s8 s9))))))) + (module-pass1-case + . + #s(stx-boundary (s0 (s1 (s2) (s3 (s4) (s5 (s6 s7) (s8 s9))))))) + (prim-begin + . + #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)))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) + (resolve . #s(stx-boundary s0)) + (stop/return + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) + (module-pass1-case + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) + (prim-define-syntaxes + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) + (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)))) + . + #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)))) + . + #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 . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) + (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) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 s4)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1 s2) (s3 s4)))) + (block->list . #f) + (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)))) + ((let () (define (ok x) (second x)) (define (second y) 8) (ok 5)) + . + ((start-top . #f) + (visit + . + #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)) + (stop/return + . + #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 + . + #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 s3)) (s1 (s4 s5) 8) (s2 5)))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 s3)) (s1 (s4 s5) 8) (s2 5))) + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 s3)) (s1 (s4 s5) 8) (s2 5)))) + (macro-pre-x + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 s3)) (s1 (s4 s5) 8) (s2 5)))) + (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)))) + (exit-macro + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 s3)) (s1 (s4 s5) 8) (s2 5))) + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 s3)) (s1 (s4 s5) 8) (s2 5)))) + (visit + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 s3)) (s1 (s4 s5) 8) (s2 5)))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 s3)) (s1 (s4 s5) 8) (s2 5)))) + (prim-let-values + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 s3)) (s1 (s4 s5) 8) (s2 5)))) + (letX-renames + () + () + () + () + #s(stx-boundary (s0 (s1 s2) (s3 s2))) + #s(stx-boundary (s0 (s3 s4) 8)) + #s(stx-boundary (s1 5))) + (enter-block + #s(stx-boundary (s0 (s1 s2) (s3 s2))) + #s(stx-boundary (s0 (s3 s4) 8)) + #s(stx-boundary (s1 5))) + (block-renames + (#s(stx-boundary (s0 (s1 s2) (s3 s2))) + #s(stx-boundary (s0 (s3 s4) 8)) + #s(stx-boundary (s1 5))) + #s(stx-boundary (s0 (s1 s2) (s3 s2))) + #s(stx-boundary (s0 (s3 s4) 8)) + #s(stx-boundary (s1 5))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary (s0 (s1 s2) (s3 s2))) + . + #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) (s3 s2)))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2) (s3 s2))) + . + #s(stx-boundary (s1 (s2) (s3 s2)))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3)))) + . + #s(stx-boundary (s0 (s1 s3) (s4 s3)))) + (exit-macro + #s(stx-boundary (s0 s1 (s2 (s3) (s4 s3)))) + . + #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)))) + . + #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))))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3)))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 s3))))) + (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) (s3 s2)))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 s2) 8))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary (s0 (s1 s2) 8)) + . + #s(stx-boundary (s0 (s1 s2) 8))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) 8))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2) 8)) + . + #s(stx-boundary (s1 (s2) 8))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 (s3) 8))) + . + #s(stx-boundary (s0 (s1 s3) 8))) + (exit-macro + #s(stx-boundary (s0 s1 (s2 (s3) 8))) + . + #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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) 8))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) 8)))) + (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) 8))) + (next . #f) + (visit . #s(stx-boundary (s0 5))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 5))) + (block->letrec + ((#s(stx-boundary s0)) (#s(stx-boundary s1))) + (#s(stx-boundary (s2 (s3) (s1 s3))) #s(stx-boundary (s2 (s4) 8))) + #s(stx-boundary (s0 5))) + (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 . #s(stx-boundary (s0 (s1) (s2 s1)))) + (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) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 s1))) + (block->list . #f) + (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)) + (tag2 #s(stx-boundary (s0 s1 s2)) . #s(stx-boundary (s1 s2))) + (enter-macro #s(stx-boundary (s0 s1 s2)) . #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)) . #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 . #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)) + (exit-prim/return . #s(stx-boundary (s0 s1 s2))) + (exit-list #s(stx-boundary (s0 s1 s2))) + (exit-prim/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 . #s(stx-boundary (s0 (s1) 8))) + (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) + (visit . #s(stx-boundary 8)) + (stop/return . #s(stx-boundary 8)) + (block->list . #f) + (enter-list #s(stx-boundary 8)) + (next . #f) + (visit . #s(stx-boundary 8)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . 8)) . #s(stx-boundary 8)) + (enter-prim . #s(stx-boundary (s0 . 8))) + (prim-#%datum . #s(stx-boundary (s0 . 8))) + (exit-prim/return . #s(stx-boundary (s0 8))) + (exit-list #s(stx-boundary (s0 8))) + (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 8)))) + (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)) + (tag2 #s(stx-boundary (s0 s1 5)) . #s(stx-boundary (s1 5))) + (enter-macro #s(stx-boundary (s0 s1 5)) . #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)) . #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 . #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 5)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . 5)) . #s(stx-boundary 5)) + (enter-prim . #s(stx-boundary (s0 . 5))) + (prim-#%datum . #s(stx-boundary (s0 . 5))) + (exit-prim/return . #s(stx-boundary (s0 5))) + (exit-prim/return . #s(stx-boundary (s0 s1 (s2 5)))) + (exit-list #s(stx-boundary (s0 s1 (s2 5)))) + (finish-block + #s(stx-boundary + (s0 + (((s1) (s2 (s3) (s4 s5 s3))) ((s5) (s2 (s6) (s7 8)))) + (s4 s1 (s7 5))))) + (exit-prim/return + . + #s(stx-boundary + (s0 + () + (s1 + (((s2) (s3 (s4) (s5 s6 s4))) ((s6) (s3 (s7) (s8 8)))) + (s5 s2 (s8 5)))))) + (exit-prim/return + . + #s(stx-boundary + (s0 + (s1 + () + (s2 + (((s3) (s4 (s5) (s6 s7 s5))) ((s7) (s4 (s8) (s9 8)))) + (s6 s3 (s9 5))))))))) + ((if 1 2 3) + . + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 1 2 3)))) + (visit . #s(stx-boundary (s0 (s1 1 2 3)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #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 . #s(stx-boundary (s0 (s1 1 2 3)))) + (visit . #s(stx-boundary (s0 1 2 3))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 1 2 3))) + (prim-if . #s(stx-boundary (s0 1 2 3))) + (visit . #s(stx-boundary 1)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . 1)) . #s(stx-boundary 1)) + (enter-prim . #s(stx-boundary (s0 . 1))) + (prim-#%datum . #s(stx-boundary (s0 . 1))) + (exit-prim/return . #s(stx-boundary (s0 1))) + (next . #f) + (visit . #s(stx-boundary 2)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . 2)) . #s(stx-boundary 2)) + (enter-prim . #s(stx-boundary (s0 . 2))) + (prim-#%datum . #s(stx-boundary (s0 . 2))) + (exit-prim/return . #s(stx-boundary (s0 2))) + (next . #f) + (visit . #s(stx-boundary 3)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . 3)) . #s(stx-boundary 3)) + (enter-prim . #s(stx-boundary (s0 . 3))) + (prim-#%datum . #s(stx-boundary (s0 . 3))) + (exit-prim/return . #s(stx-boundary (s0 3))) + (exit-prim/return . #s(stx-boundary (s0 (s1 1) (s1 2) (s1 3)))) + (exit-prim/return . #s(stx-boundary (s0 (s1 (s2 1) (s2 2) (s2 3))))))) + ((let () (define (ok x) '8) (ok 5)) + . + ((start-top . #f) + (visit . #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)) + (stop/return + . + #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 + . + #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s3 5))))) + (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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5))) + . + #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 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) + (letX-renames + () + () + () + () + #s(stx-boundary (s0 (s1 s2) (s3 8))) + #s(stx-boundary (s1 5))) + (enter-block + #s(stx-boundary (s0 (s1 s2) (s3 8))) + #s(stx-boundary (s1 5))) + (block-renames + (#s(stx-boundary (s0 (s1 s2) (s3 8))) #s(stx-boundary (s1 5))) + #s(stx-boundary (s0 (s1 s2) (s3 8))) + #s(stx-boundary (s1 5))) + (next . #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))) + . + #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (macro-pre-x . #s(stx-boundary (s0 (s1 s2) (s3 8)))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2) (s3 8))) + . + #s(stx-boundary (s1 (s2) (s3 8)))) + (macro-post-x + #s(stx-boundary (s0 s1 (s2 (s3) (s4 8)))) + . + #s(stx-boundary (s0 (s1 s3) (s4 8)))) + (exit-macro + #s(stx-boundary (s0 s1 (s2 (s3) (s4 8)))) + . + #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)))) + . + #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))))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8)))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (prim-define-values . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (rename-one (#s(stx-boundary s0)) #s(stx-boundary (s1 (s2) (s3 8)))) + (next . #f) + (visit . #s(stx-boundary (s0 5))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 5))) + (block->letrec + ((#s(stx-boundary s0))) + (#s(stx-boundary (s1 (s2) (s3 8)))) + #s(stx-boundary (s0 5))) + (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 . #s(stx-boundary (s0 (s1) (s2 8)))) + (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) + (visit . #s(stx-boundary (s0 8))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 8))) + (block->list . #f) + (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/return . #s(stx-boundary (s0 8))) + (exit-list #s(stx-boundary (s0 8))) + (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 8)))) + (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)) + (tag2 #s(stx-boundary (s0 s1 5)) . #s(stx-boundary (s1 5))) + (enter-macro #s(stx-boundary (s0 s1 5)) . #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)) . #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 . #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 5)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . 5)) . #s(stx-boundary 5)) + (enter-prim . #s(stx-boundary (s0 . 5))) + (prim-#%datum . #s(stx-boundary (s0 . 5))) + (exit-prim/return . #s(stx-boundary (s0 5))) + (exit-prim/return . #s(stx-boundary (s0 s1 (s2 5)))) + (exit-list #s(stx-boundary (s0 s1 (s2 5)))) + (finish-block + #s(stx-boundary (s0 (((s1) (s2 (s3) (s4 8)))) (s5 s1 (s4 5))))) + (exit-prim/return + . + #s(stx-boundary + (s0 () (s0 (((s1) (s2 (s3) (s4 8)))) (s5 s1 (s4 5)))))) + (exit-prim/return + . + #s(stx-boundary + (s0 (s1 () (s1 (((s2) (s3 (s4) (s5 8)))) (s6 s2 (s5 5))))))))) + ((let () (define-syntax (ok stx) (quote-syntax 8)) (ok 5)) + . + ((start-top . #f) + (visit . #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)) + (stop/return + . + #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 + . + #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 8)) (s3 5))))) + (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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5))) + . + #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 . #s(stx-boundary (s0 () (s1 (s2 s3) (s4 8)) (s2 5)))) + (letX-renames + () + () + () + () + #s(stx-boundary (s0 (s1 s2) (s3 8))) + #s(stx-boundary (s1 5))) + (enter-block + #s(stx-boundary (s0 (s1 s2) (s3 8))) + #s(stx-boundary (s1 5))) + (block-renames + (#s(stx-boundary (s0 (s1 s2) (s3 8))) #s(stx-boundary (s1 5))) + #s(stx-boundary (s0 (s1 s2) (s3 8))) + #s(stx-boundary (s1 5))) + (next . #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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8)))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (visit . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (prim-define-syntaxes . #s(stx-boundary (s0 (s1) (s2 (s3) (s4 8))))) + (rename-one (#s(stx-boundary s0)) #s(stx-boundary (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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 (s1) (s2 8))) + . + #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 . #s(stx-boundary (s0 (s1) (s2 8)))) + (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) + (visit . #s(stx-boundary (s0 8))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 8))) + (block->list . #f) + (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 . #s(stx-boundary (s0 8))) + (exit-prim/return . #s(stx-boundary (s0 8))) + (exit-list #s(stx-boundary (s0 8))) + (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 8)))) + (next . #f) + (exit-bind . #f) + (next . #f) + (visit . #s(stx-boundary (s0 5))) + (resolve . #s(stx-boundary s0)) + (enter-macro #s(stx-boundary (s0 5)) . #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) . #s(stx-boundary 8)) + (visit . #s(stx-boundary 8)) + (stop/return . #s(stx-boundary 8)) + (block->letrec () () #s(stx-boundary 8)) + (enter-list #s(stx-boundary 8)) + (next . #f) + (visit . #s(stx-boundary 8)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . 8)) . #s(stx-boundary 8)) + (enter-prim . #s(stx-boundary (s0 . 8))) + (prim-#%datum . #s(stx-boundary (s0 . 8))) + (exit-prim/return . #s(stx-boundary (s0 8))) + (exit-list #s(stx-boundary (s0 8))) + (finish-block #s(stx-boundary (s0 () (s1 8)))) + (exit-prim/return . #s(stx-boundary (s0 () (s0 () (s1 8))))) + (exit-prim/return . #s(stx-boundary (s0 (s1 () (s1 () (s2 8)))))))) + ((module m racket/base 'done) + . + ((start-top . #f) + (visit . #s(stx-boundary (s0 s1 s2 (s3 s4)))) + (visit . #s(stx-boundary (s0 s1 s2 (s3 s4)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #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 . #s(stx-boundary (s0 s1 s2 (s3 s4)))) + (prepare-env . #f) + (rename-one #s(stx-boundary (s0 s1))) + (track-syntax s0 #s(stx-boundary (s1 s2)) . #s(stx-boundary (s1 s2))) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 s1))) + (tag . #s(stx-boundary (s0 (s1 s2)))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2 s3))) + . + #s(stx-boundary (s1 (s2 s3)))) + (visit . #s(stx-boundary (s0 (s1 s2)))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary (s0 (s1 s2))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)) (s3 s8))) + . + #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))) + . + #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)))) + (exit-macro + #s(stx-boundary + (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s5 s10)))) + . + #s(stx-boundary + (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s5 s10))))) + (visit + . + #s(stx-boundary + (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s5 s10))))) + (resolve . #s(stx-boundary s0)) + (stop/return + . + #s(stx-boundary + (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s5 s10))))) + (track-syntax + s0 + #s(stx-boundary + (s1 (s2 s3 (s4 s5 (s6 s7) (s8 s9) (s10 #f))) (s2 s3 (s6 s11)))) + . + #s(stx-boundary + (s1 (s2 s3 (s4 s5 (s6 s7) (s8 s9) (s10 #f))) (s2 s3 (s6 s11))))) + (next . #f) + (visit + . + #s(stx-boundary + (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s5 s10))))) + (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))))) + (prim-module-begin . #f) + (rename-one + . + #s(stx-boundary + (s0 (s1 s2 (s3 s4 (s5 s6) (s7 s8) (s9 #f))) (s1 s2 (s5 s10))))) + (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)))) + . + #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)) + (stop/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))))) + (exit-macro + #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f)))) + . + #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)) + (stop/return . #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (module-pass1-case + . + #s(stx-boundary (s0 (s1 s2 (s3 s4) (s5 s6) (s7 #f))))) + (prim-begin . #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)))) + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (module-pass1-case . #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-submodule . #f) + (enter-prim . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prim-module . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5) (s6 #f)))) + (prepare-env . #f) + (rename-one #s(stx-boundary (s0 s1)) #s(stx-boundary (s2 #f))) + (tag . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2 s3) (s4 #f))) + . + #s(stx-boundary (s1 (s2 s3) (s4 #f)))) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1 s2) (s3 #f)))) + (track-syntax + s0 + #s(stx-boundary (s1 (s2 s3) (s4 #f))) + . + #s(stx-boundary (s1 (s2 s3) (s4 #f)))) + (next . #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)) + (stop/return . #s(stx-boundary (s0 s1))) + (module-pass1-case . #s(stx-boundary (s0 s1))) + (prim-require . #s(stx-boundary (s0 s1))) + (exit-case . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary (s0 #f))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 #f))) + (module-pass1-case . #s(stx-boundary (s0 #f))) + (prim-stop . #f) + (next-group . #f) + (next . #f) + (next . #f) + (visit . #s(stx-boundary (s0 #f))) + (resolve . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 s1 #f)) . #s(stx-boundary (s1 #f))) + (enter-prim . #s(stx-boundary (s0 s1 #f))) + (prim-#%app . #s(stx-boundary (s0 s1 #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)) + (tag2 #s(stx-boundary (s0 . #f)) . #s(stx-boundary #f)) + (enter-prim . #s(stx-boundary (s0 . #f))) + (prim-#%datum . #s(stx-boundary (s0 . #f))) + (exit-prim/return . #s(stx-boundary (s0 #f))) + (exit-prim/return . #s(stx-boundary (s0 s1 (s2 #f)))) + (next-group . #f) + (next-group . #f) + (next . #f) + (next . #f) + (next-group . #f) + (next . #f) + (next . #f) + (exit-prim/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)))))) + (next . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3)))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary (s0 s1 (s2 s3))) + . + #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)) + (stop/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)))) + (exit-macro + #s(stx-boundary (s0 (s1 (s2 s3)))) + . + #s(stx-boundary (s0 (s1 (s2 s3))))) + (visit . #s(stx-boundary (s0 (s1 (s2 s3))))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1 (s2 s3))))) + (module-pass1-case . #s(stx-boundary (s0 (s1 (s2 s3))))) + (prim-begin . #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))) + . + #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)))) + (exit-macro + #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5)) + . + #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) + (visit . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) + (module-pass1-case . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) + (prim-stop . #f) + (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 . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) + (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 . #s(stx-boundary (s0 () (s1 s2)))) + (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) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 s1))) + (block->list . #f) + (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/return . #s(stx-boundary (s0 s1))) + (exit-list #s(stx-boundary (s0 s1))) + (exit-prim/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-prim/return . #s(stx-boundary (s0 s1 (s2 () (s3 s4)) s5))) + (next-group . #f) + (next-group . #f) + (next . #f) + (next . #f) + (next-group . #f) + (next . #f) + (next . #f) + (exit-prim/return + . + #s(stx-boundary + (s0 + (s1 s2 (s3 s4) (s0 (s5 s6) (s7 s8 (s3 #f)))) + (s7 s9 (s10 () (s3 s11)) s12)))) + (rename-one + . + #s(stx-boundary + (s0 + s1 + s2 + (s3 + (s0 s4 (s5 s6) (s3 (s7 s8) (s9 s10 (s5 #f)))) + (s9 s11 (s12 () (s5 s13)) s14))))) + (exit-prim/return + . + #s(stx-boundary + (s0 + s1 + s2 + (s3 + (s0 s4 (s5 s6) (s3 (s7 s8) (s9 s10 (s5 #f)))) + (s9 s11 (s12 () (s5 s13)) s14))))))) + ((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))))) + (visit + . + #s(stx-boundary (s0 (s1 () (s2 (s3 s4) (s5 (s6 s7) (s8 s9))) (s3))))) + (resolve . #s(stx-boundary s0)) + (stop/return + . + #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 + . + #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))) (s2)))) + (resolve . #s(stx-boundary s0)) + (enter-macro + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2))) + . + #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))) + . + #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 + . + #s(stx-boundary (s0 () (s1 (s2 s3) (s4 (s5 s6) (s7 s8))) (s2)))) + (letX-renames + () + () + () + () + #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7)))) + #s(stx-boundary (s1))) + (enter-block + #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7)))) + #s(stx-boundary (s1))) + (block-renames + (#s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7)))) + #s(stx-boundary (s1))) + #s(stx-boundary (s0 (s1 s2) (s3 (s4 s5) (s6 s7)))) + #s(stx-boundary (s1))) + (next . #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)))) + . + #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))))) + . + #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)) + (stop/return + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) + (prim-define-syntaxes + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 s6) (s7 s8)))))) + (rename-one + (#s(stx-boundary s0)) + #s(stx-boundary (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)))) + . + #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)))) + . + #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 . #s(stx-boundary (s0 (s1) (s2 (s3 s4) (s5 s6))))) + (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) + (visit . #s(stx-boundary (s0 (s1 s2) (s3 s4)))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1 s2) (s3 s4)))) + (block->list . #f) + (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)) + (tag2 + #s(stx-boundary (s0 s1 (s2 s3) (s4 s5))) + . + #s(stx-boundary (s1 (s2 s3) (s4 s5)))) + (enter-macro + #s(stx-boundary (s0 s1 (s2 s3) (s4 s5))) + . + #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))) + . + #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 . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5)))) + (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/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)) . #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) + (local-value . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (local-value-result . #f) + (track-syntax s0 #s(stx-boundary (s1 s2)) . #s(stx-boundary (s1 s2))) + (macro-post-x #s(stx-boundary (s0 s1)) . #s(stx-boundary (s2 s1))) + (exit-macro #s(stx-boundary (s0 s1)) . #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 . #s(stx-boundary (s0 s1))) + (exit-prim/return . #s(stx-boundary (s0 s1))) + (exit-prim/return . #s(stx-boundary (s0 s1 (s2 s3) (s4 s5)))) + (exit-list #s(stx-boundary (s0 s1 (s2 s3) (s4 s5)))) + (exit-prim/return . #s(stx-boundary (s0 (s1) (s2 s3 (s4 s5) (s6 s7))))) + (next . #f) + (exit-bind . #f) + (next . #f) + (visit . #s(stx-boundary (s0))) + (resolve . #s(stx-boundary s0)) + (enter-macro #s(stx-boundary (s0)) . #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) . #s(stx-boundary s0)) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary s0)) + (block->letrec () () #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)) + (finish-block #s(stx-boundary (s0 () s1))) + (exit-prim/return . #s(stx-boundary (s0 () (s0 () s1)))) + (exit-prim/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 . #s(stx-boundary (s0 (s1 s2) (s3 (s4 () (s4 () s5)))))) + (next . #f) + (visit . #s(stx-boundary (s0 s1))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 s1))) + (prim-require . #s(stx-boundary (s0 s1))) + (exit-prim/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 . #s(stx-boundary (s0 (s1 () (s1 () s2))))) + (visit . #s(stx-boundary (s0 () (s0 () s1)))) + (resolve . #s(stx-boundary s0)) + (enter-prim . #s(stx-boundary (s0 () (s0 () s1)))) + (prim-let-values . #s(stx-boundary (s0 () (s0 () s1)))) + (letX-renames () () () () #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) + (visit . #s(stx-boundary (s0 () s1))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 () s1))) + (block->list . #f) + (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 . #s(stx-boundary (s0 () s1))) + (letX-renames () () () () #s(stx-boundary s0)) + (enter-block #s(stx-boundary s0)) + (block-renames (#s(stx-boundary s0)) #s(stx-boundary s0)) + (next . #f) + (visit . #s(stx-boundary s0)) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary s0)) + (block->list . #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/return . #s(stx-boundary (s0 () s1))) + (exit-list #s(stx-boundary (s0 () s1))) + (exit-prim/return . #s(stx-boundary (s0 () (s0 () s1)))) + (exit-prim/return . #s(stx-boundary (s0 (s1 () (s1 () s2))))) + (exit-prim/return + . + #s(stx-boundary (s0 (s1 s2) (s3 (s4 () (s4 () s5)))))))) ((#%plain-app 1 2) . ((start-top . #f) @@ -10697,4 +10419,372 @@ (prim-#%datum . #s(stx-boundary (s0 . 2))) (exit-prim/return . #s(stx-boundary (s0 2))) (exit-prim/return . #s(stx-boundary (s0 (s1 1) (s1 2)))) - (exit-prim/return . #s(stx-boundary (s0 (s1 (s2 1) (s2 2)))))))) + (exit-prim/return . #s(stx-boundary (s0 (s1 (s2 1) (s2 2))))))) + ((module m '#%kernel 5) + . + ((start-top . #f) + (visit . #s(stx-boundary (s0 s1 (s2 s3) 5))) + (visit . #s(stx-boundary (s0 s1 (s2 s3) 5))) + (resolve . #s(stx-boundary s0)) + (stop/return . #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 . #s(stx-boundary (s0 s1 (s2 s3) 5))) + (prepare-env . #f) + (rename-one #s(stx-boundary 5)) + (track-syntax s0 #s(stx-boundary 5) . #s(stx-boundary 5)) + (visit . #s(stx-boundary 5)) + (stop/return . #s(stx-boundary 5)) + (tag . #s(stx-boundary (s0 5))) + (track-syntax s0 #s(stx-boundary (s1 5)) . #s(stx-boundary (s1 5))) + (visit . #s(stx-boundary (s0 5))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 5))) + (track-syntax s0 #s(stx-boundary (s1 5)) . #s(stx-boundary (s1 5))) + (next . #f) + (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)) + (tag2 #s(stx-boundary (s0 . 5)) . #s(stx-boundary 5)) + (enter-prim . #s(stx-boundary (s0 . 5))) + (prim-#%datum . #s(stx-boundary (s0 . 5))) + (exit-prim/return . #s(stx-boundary (s0 5))) + (module-pass1-case . #s(stx-boundary (s0 5))) + (prim-stop . #f) + (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/return . #s(stx-boundary (s0 5))) + (next-group . #f) + (next-group . #f) + (next . #f) + (next-group . #f) + (next . #f) + (exit-prim/return . #s(stx-boundary (s0 (s1 5)))) + (rename-one . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s2 5))))) + (exit-prim/return . #s(stx-boundary (s0 s1 (s2 s3) (s4 (s2 5))))))) + ((begin0 '3 '5) + . + ((start-top . #f) + (visit . #s(stx-boundary (s0 (s1 (s2 3) (s2 5))))) + (visit . #s(stx-boundary (s0 (s1 (s2 3) (s2 5))))) + (resolve . #s(stx-boundary s0)) + (stop/return . #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 . #s(stx-boundary (s0 (s1 (s2 3) (s2 5))))) + (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 . #s(stx-boundary (s0 (s1 3) (s1 5)))) + (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/return . #s(stx-boundary (s0 3))) + (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/return . #s(stx-boundary (s0 5))) + (exit-prim/return . #s(stx-boundary (s0 (s1 3) (s1 5)))) + (exit-prim/return . #s(stx-boundary (s0 (s1 (s2 3) (s2 5))))))) + ((let () + (define-syntax (ok stx) + (local-expand (cadr (syntax-e stx)) 'expression #f)) + (ok 9)) + . + ((start-top . #f) + (visit + . + #s(stx-boundary + (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 s4)) (s8 s9) #f)) (s3 9))))) + (resolve . #s(stx-boundary s0)) + (stop/return + . + #s(stx-boundary + (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 s4)) (s8 s9) #f)) (s3 9))))) + (resolve . #s(stx-boundary s0)) + (enter-prim + . + #s(stx-boundary + (s0 (s1 () (s2 (s3 s4) (s5 (s6 (s7 s4)) (s8 s9) #f)) (s3 9))))) + (prim-#%expression + . + #s(stx-boundary + (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 s3)) (s7 s8) #f)) (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))) + . + #s(stx-boundary + (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 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 + (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))) + . + #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 + . + #s(stx-boundary + (s0 () (s1 (s2 s3) (s4 (s5 (s6 s3)) (s7 s8) #f)) (s2 9)))) + (letX-renames + () + () + () + () + #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s2)) (s6 s7) #f))) + #s(stx-boundary (s1 9))) + (enter-block + #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s2)) (s6 s7) #f))) + #s(stx-boundary (s1 9))) + (block-renames + (#s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s2)) (s6 s7) #f))) + #s(stx-boundary (s1 9))) + #s(stx-boundary (s0 (s1 s2) (s3 (s4 (s5 s2)) (s6 s7) #f))) + #s(stx-boundary (s1 9))) + (next . #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 s2)) (s6 s7) #f))) + . + #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 s2)) (s6 s7) #f)))) + (macro-post-x + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 s3)) (s7 s8) #f)))) + . + #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 s3)) (s7 s8) #f)))) + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 s3)) (s7 s8) #f))))) + (visit + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 s3)) (s7 s8) #f))))) + (resolve . #s(stx-boundary s0)) + (stop/return + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 s3)) (s7 s8) #f))))) + (prim-define-syntaxes + . + #s(stx-boundary (s0 (s1) (s2 (s3) (s4 (s5 (s6 s3)) (s7 s8) #f))))) + (rename-one + (#s(stx-boundary s0)) + #s(stx-boundary (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))) + . + #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))) + . + #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 . #s(stx-boundary (s0 (s1) (s2 (s3 (s4 s1)) (s5 s6) #f)))) + (lambda-renames + #s(stx-boundary (s0)) + #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) #f))) + (next . #f) + (visit . #s(stx-boundary (s0 (s1 (s2 s3)) (s4 s5) #f))) + (resolve . #s(stx-boundary s0)) + (stop/return . #s(stx-boundary (s0 (s1 (s2 s3)) (s4 s5) #f))) + (block->list . #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)) + (tag2 + #s(stx-boundary (s0 s1 (s2 (s3 s4)) (s5 s6) #f)) + . + #s(stx-boundary (s1 (s2 (s3 s4)) (s5 s6) #f))) + (enter-macro + #s(stx-boundary (s0 s1 (s2 (s3 s4)) (s5 s6) #f)) + . + #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 (s0 s1 (s2 (s3 s4)) (s5 s6) #f))) + (exit-macro + #s(stx-boundary (s0 s1 (s2 (s3 s4)) (s5 s6) #f)) + . + #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 . #s(stx-boundary (s0 s1 (s2 (s3 s4)) (s5 s6) #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)) + (tag2 #s(stx-boundary (s0 s1 (s2 s3))) . #s(stx-boundary (s1 (s2 s3)))) + (enter-macro + #s(stx-boundary (s0 s1 (s2 s3))) + . + #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))) + . + #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 . #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)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 s1 s2)) . #s(stx-boundary (s1 s2))) + (enter-macro #s(stx-boundary (s0 s1 s2)) . #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)) . #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 . #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)) + (exit-prim/return . #s(stx-boundary (s0 s1 s2))) + (exit-prim/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/return . #s(stx-boundary (s0 s1))) + (next . #f) + (visit . #s(stx-boundary #f)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . #f)) . #s(stx-boundary #f)) + (enter-prim . #s(stx-boundary (s0 . #f))) + (prim-#%datum . #s(stx-boundary (s0 . #f))) + (exit-prim/return . #s(stx-boundary (s0 #f))) + (exit-prim/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/return + . + #s(stx-boundary (s0 (s1) (s2 s3 (s2 s4 (s2 s5 s1)) (s6 s7) (s6 #f))))) + (next . #f) + (exit-bind . #f) + (next . #f) + (visit . #s(stx-boundary (s0 9))) + (resolve . #s(stx-boundary s0)) + (enter-macro #s(stx-boundary (s0 9)) . #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)) + (visit . #s(stx-boundary 9)) + (stop/return . #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) . #s(stx-boundary 9)) + (visit . #s(stx-boundary 9)) + (stop/return . #s(stx-boundary 9)) + (block->letrec () () #s(stx-boundary 9)) + (enter-list #s(stx-boundary 9)) + (next . #f) + (visit . #s(stx-boundary 9)) + (resolve . #s(stx-boundary s0)) + (tag2 #s(stx-boundary (s0 . 9)) . #s(stx-boundary 9)) + (enter-prim . #s(stx-boundary (s0 . 9))) + (prim-#%datum . #s(stx-boundary (s0 . 9))) + (exit-prim/return . #s(stx-boundary (s0 9))) + (exit-list #s(stx-boundary (s0 9))) + (finish-block #s(stx-boundary (s0 () (s1 9)))) + (exit-prim/return . #s(stx-boundary (s0 () (s0 () (s1 9))))) + (exit-prim/return . #s(stx-boundary (s0 (s1 () (s1 () (s2 9))))))))) diff --git a/pkgs/racket-test-core/tests/racket/function.rktl b/pkgs/racket-test-core/tests/racket/function.rktl index 36b62177ab..19dafc47b2 100644 --- a/pkgs/racket-test-core/tests/racket/function.rktl +++ b/pkgs/racket-test-core/tests/racket/function.rktl @@ -279,4 +279,6 @@ (define l (for/list ([i 100]) 0)) (test 0 apply @max l)) +;; ---------------------------------------- + (report-errs) diff --git a/pkgs/racket-test-core/tests/racket/procs.rktl b/pkgs/racket-test-core/tests/racket/procs.rktl index 2e920463b2..c241c24615 100644 --- a/pkgs/racket-test-core/tests/racket/procs.rktl +++ b/pkgs/racket-test-core/tests/racket/procs.rktl @@ -689,6 +689,73 @@ (lambda () y))) (test #f object-name (return-a-function-that-returns-y)) +;; ---------------------------------------- +;; Check 'inferred-name property on `lambda` that supports keywords +;; and optional arguments + +(let ([mk + (lambda (mod-name proc) + (define e + `(module ,mod-name racket/base + (require (for-syntax racket/base)) + (provide check-all) + + (define-for-syntax (add-name stx) + (syntax-property stx 'inferred-name 'new-name)) + + (define-for-syntax fun + #',proc) + + (define-syntax (go1 stx) + (syntax-case stx () + [(_ id) + #`(define id #,fun)])) + (define-syntax (go2 stx) + (syntax-case stx () + [(_ id) + #`(define id #,(add-name fun))])) + (define-syntax (go3 stx) + (syntax-case stx () + [(_ id) + #`(define id (#%expression #,(add-name fun)))])) + (define-syntax (go4 stx) + (syntax-case stx () + [(_ id) + #`(define id (let () #,(add-name fun)))])) + + (go1 f1) + (go2 f2) + (go3 f3) + (go4 f4) + + (define (check-all check) + (go1 g1) + (go2 g2) + (go3 g3) + (go4 g4) + + (check f1 'f1) + (check f2 'new-name) + (check f3 'new-name) + (check f4 'new-name) + + (check g1 'g1) + (check g2 'new-name) + (check g3 'new-name) + (check g4 'new-name)))) + (eval e) + ((dynamic-require `',mod-name 'check-all) + (lambda (proc name) + (test name mod-name (object-name proc)))))]) + (mk 'checks-many-declared-inferred-names + '(lambda (x) x)) + (mk 'checks-many-declared-inferred-names/opt + '(lambda (x [y 10]) x)) + (mk 'checks-many-declared-inferred-names/keyword + '(lambda (x #:z z) x)) + (mk 'checks-many-declared-inferred-names/opt-keyword + '(lambda (x #:z [z 11]) x))) + ;; ---------------------------------------- (report-errs) diff --git a/racket/collects/racket/private/kw.rkt b/racket/collects/racket/private/kw.rkt index 9efc738006..ed50be947b 100644 --- a/racket/collects/racket/private/kw.rkt +++ b/racket/collects/racket/private/kw.rkt @@ -676,8 +676,19 @@ [(null? kws) null] [else (cons (cadar kws) (loop (cdr kws)))])))] - [local-name (or local-name - (syntax-local-infer-name stx))]) + [local-name (let ([name (simplify-inferred-name (syntax-property stx 'inferred-name))]) + (cond + [(or (symbol? name) (identifier? name)) name] + [else (or local-name + (let ([name (syntax-local-infer-name stx)]) + (and (or (symbol? name) (identifier? name)) + name)))]))] + [add-local-name (lambda (stx) + (if local-name + ;; Expecting always a `[case-]lambda form, so 'inferred-name + ;; should work and is less invasive than `let`: + (syntax-property stx 'inferred-name local-name) + stx))]) (with-syntax ([(kw-arg ...) kw-args] [kws-sorted sorted-kws] [(opt-arg ...) opt-args] @@ -761,14 +772,15 @@ [mk-no-kws (lambda (kw-core?) ;; entry point without keywords: - (annotate-method - (quasisyntax/loc/always stx - (opt-cases #,(if kw-core? - #'(unpack null null) - #'(core)) - ([opt-id opt-arg opt-not-supplied] ...) (plain-id ...) - () () - (rest-empty rest-id . rest) ()))))] + (add-local-name + (annotate-method + (quasisyntax/loc/always stx + (opt-cases #,(if kw-core? + #'(unpack null null) + #'(core)) + ([opt-id opt-arg opt-not-supplied] ...) (plain-id ...) + () () + (rest-empty rest-id . rest) ())))))] [mk-with-kws (lambda () ;; entry point with keywords: @@ -808,11 +820,7 @@ (mk-core #t) (mk-unpack) (with-syntax ([kws (map car sorted-kws)] - [no-kws (let ([p (mk-no-kws #t)] - [n local-name]) - (if n - #`(let ([#,n #,p]) #,n) - p))] + [no-kws (mk-no-kws #t)] [with-kws (mk-with-kws)]) (quasisyntax/loc stx (make-okp @@ -1110,11 +1118,14 @@ (compile-enforce-module-constants)) (and (list? ctx) (andmap liberal-define-context? ctx))))))] - [opt (lambda (rhs core-wrap plain) + [opt (lambda (lam-id rhs core-wrap plain) (parse-lambda rhs id - plain - (lambda (impl kwimpl wrap + (lambda (new-rhs) + (plain (syntax-track-origin new-rhs + rhs + lam-id))) + (lambda (impl kwimpl wrap core-id unpack-id n-req opt-not-supplieds rest? req-kws all-kws) (with-syntax ([proc (car (generate-temporaries (list id)))]) @@ -1122,22 +1133,22 @@ (quasisyntax/loc stx (begin #,(quasisyntax/loc stx - (define-syntax #,id - (make-keyword-syntax (lambda () + (define-syntax #,id + (make-keyword-syntax (lambda () (values (quote-syntax #,core-id) (quote-syntax proc))) - #,n-req '#,opt-not-supplieds #,rest? + #,n-req '#,opt-not-supplieds #,rest? '#,req-kws '#,all-kws))) - #,(quasisyntax/loc stx + #,(quasisyntax/loc stx (define #,core-id #,(core-wrap impl))) - #,(quasisyntax/loc stx + #,(quasisyntax/loc stx (define #,unpack-id #,kwimpl)) - #,(quasisyntax/loc stx - (define proc #,wrap)))))))))]) + #,(quasisyntax/loc stx + (define proc #,(syntax-track-origin wrap rhs lam-id))))))))))]) (syntax-case rhs (begin quote) [(lam-id . _) (can-opt? #'lam-id) - (opt rhs values plain)] + (opt #'lam-id rhs values plain)] [(begin (quote sym) (lam-id . _)) ;; looks like a compiler hint (and (can-opt? #'lam-id) @@ -1145,7 +1156,8 @@ (syntax-case rhs () [(_ _ sub-rhs) (let ([wrap (lambda (stx) #`(begin (quote sym) #,stx))]) - (opt #'sub-rhs + (opt #'lam-id + #'sub-rhs wrap (lambda (rhs) (plain (wrap rhs)))))])] [_ (plain rhs)])))) diff --git a/racket/collects/racket/private/name.rkt b/racket/collects/racket/private/name.rkt index 6946e46ecf..b7e42e925f 100644 --- a/racket/collects/racket/private/name.rkt +++ b/racket/collects/racket/private/name.rkt @@ -1,7 +1,8 @@ (module name '#%kernel (#%require "define.rkt" "qq-and-or.rkt" "cond.rkt") - (#%provide syntax-local-infer-name) + (#%provide syntax-local-infer-name + simplify-inferred-name) (define syntax-local-infer-name (case-lambda diff --git a/racket/collects/racket/private/norm-define.rkt b/racket/collects/racket/private/norm-define.rkt index 32f28a523a..65bb605b91 100644 --- a/racket/collects/racket/private/norm-define.rkt +++ b/racket/collects/racket/private/norm-define.rkt @@ -6,8 +6,7 @@ (#%provide normalize-definition normalize-definition/mk-rhs) (define-values (normalize-definition/mk-rhs) - (lambda - (stx lambda-stx check-context? allow-key+opt? err-no-body?) + (lambda (stx lambda-stx check-context? allow-key+opt? err-no-body?) (when (and check-context? (memq (syntax-local-context) '(expression))) (raise-syntax-error diff --git a/racket/src/expander/compile/expr.rkt b/racket/src/expander/compile/expr.rkt index 4803b5639f..dfcf462152 100644 --- a/racket/src/expander/compile/expr.rkt +++ b/racket/src/expander/compile/expr.rkt @@ -143,7 +143,7 @@ [else v])) ;; Get either a declared 'inferred-name or one accumulated by the compiler (define name (or (let ([v (simplify-name (syntax-property orig-s 'inferred-name))]) - (and (or (symbol? v) (syntax? v) (void? v)) + (and (or (symbol? v) (and (syntax? v) (symbol? (syntax-e v))) (void? v)) v)) inferred-name)) (define named-s (if name diff --git a/racket/src/racket/src/startup.inc b/racket/src/racket/src/startup.inc index 0b9281a05b..1c1eb8ae93 100644 --- a/racket/src/racket/src/startup.inc +++ b/racket/src/racket/src/startup.inc @@ -31276,7 +31276,8 @@ static const char *startup_source = "(if(let-values(((or-part_0)(symbol? v_0)))" "(if or-part_0" " or-part_0" -"(let-values(((or-part_1)(syntax?$1 v_0)))" +"(let-values(((or-part_1)" +"(if(syntax?$1 v_0)(symbol?(syntax-e$1 v_0)) #f)))" "(if or-part_1 or-part_1(void? v_0)))))" " v_0" " #f))))"